Viewing contents of file '../idllib/contrib/buie/astrd2sn.pro'
;+
; NAME:
;  astrd2sn
; PURPOSE:
;  Astrometry conversion from ($\alpha$,$\delta$) to ($\xi$,$\eta$)
;
; DESCRIPTION:
;  Standard coordinate conversion (see Smart, p283)
;
; CATEGORY:
;  Astrometry
;
; CALLING SEQUENCE:
;  astrd2sn,ra,dec,racen,deccen,xi,eta
;
; INPUTS:
;  ra     - Right ascension (radians)
;  dec    - Declination (radians)
;  racen  - Right ascension of tangent point between plane and celestial sphere.
;  deccen - Declination of tangent point between plane and celestial sphere.
;
; OPTIONAL INPUT PARAMETERS:
;
; KEYWORD INPUT PARAMETERS:
;
; OUTPUTS:
;  xi     - Coordinate in tangent plane.
;  eta    - Coordinate in tangent plane.
;
; KEYWORD OUTPUT PARAMETERS:
;
; COMMON BLOCKS:
;
; SIDE EFFECTS:
;
; RESTRICTIONS:
;
; PROCEDURE:
;
; MODIFICATION HISTORY:
;  97/04/05 - Written by Marc W. Buie, Lowell Observatory
;
;-
PRO astrd2sn,ra,dec,racen,deccen,xi,eta
   beta      = ra - racen
   cosbeta   = cos(beta)
   tandec    = tan(dec)
   tandeccen = tan(deccen)
   s   = cosbeta + tandec*tandeccen
   xi  = sin(beta)/cos(deccen)/s
   eta = (tandec - tandeccen*cosbeta)/s
END