;+
; NAME:
;	RemoteView_EqTrans
; PURPOSE:
;	Sets integer ID of mapping used to map sky to display
; CATEGORY:
;	RemoteView project
; CALLING SEQUENCE:
	FUNCTION RemoteView_eqtrans, EqTrans, eqdistance=EqDistance, eqangle=EqAngle, eqarea=EqArea
; OPTIONAL INPUT PARAMETERS:
;	/eqdistance			preserve distance to line of sight through center of image
;					(this is the default if no keywords are set)
;	/eqangle			preserve angular distance to line of sight through center of image
;	/eqarea				preserve area on sky;
; OUTPUTS:
;	Result				scalar; type: integer
	@compile_opt.pro			; On error, return to caller
; PROCEDURE:
; MODIFICATION HISTORY:
;	SEP-2000, Paul Hick (UCSD/CASS; pphick@ucsd.edu)
;-

IF n_elements(EqTrans) NE 0 THEN				$
	R = (['distance','angle','area'])[EqTrans]	$
ELSE											$
	R = 0*keyword_set(EqDistance)+1*keyword_set(EqAngle)+2*keyword_set(EqArea)

RETURN, R  &  END