;+
; NAME		sunray.pro
;
; PURPOSE	Draw radial rays.
;
; SYNTAX	sunray, rmin, rmax, anginc, xcen, ycen, scroll, pixrs, cindex, $
;                       xmin, xmax, ymin, ymax
;		rmin, rmax:	start/stop radii [Rsun]
;		rinc:		increment for radius.
;		anginc:		angular increment [degrees].
;		xcen, ycen:	sun center.
;		pixrs:		#pixels/Rsun.
;		scroll:		spacecraft roll.
;		cindex:		color index.
;		xmin, ymin:	Lower left  corner of window.
;		xmax, ymax:	Upper right corner of window.
;
; AUTHOR	Andrew L. Stanger   HAO/NCAR   10 Jan 2006
;		Adapted from "glcp_suncir.c".
;-

PRO sunray, rmin, rmax, rinc, anginc, xcen, ycen, pixrs, scroll, cindex, $
	    xmin, xmax, ymin, ymax

   nres = 1			; Low resolution only.
   cproll = 43.0		; C/P axis is 43 deg CCW from +Y axis.

   ;*** Draw radial scans (r=r1min -> r1max) every ang1inc degrees. ***

   FOR th = 0.0, 360.0, anginc DO	$
   BEGIN
;      IF (th EQ 180.0) THEN rmin = 0.2 ELSE rmin = 0.4
      FOR r = rmin, rmax, rinc DO	$
      BEGIN
	 ierr = rcoord (r, th, xx, yy, 1, scroll+cproll, xcen, ycen, pixrs)
	 xg = ((xx / nres) + 0.5) + xmin
	 yg = ((yy / nres) + 0.5) + ymin
	 IF (xg GE xmin AND xg LE xmax AND	$
	     yg GE ymin AND yg LE ymax) THEN	$
	     BEGIN
		wvec, xg,   yg-1, xg,   yg+1, cindex
		wvec, xg-1, yg,   xg+1, yg,   cindex
	     END
      END
   END

END