c	spur_color.inc
c
c PGPLOT documentation
c SUBROUTINE PGSCI (CI)
c      INTEGER  CI
c
c Set the Color Index for subsequent plotting, if the output device
c permits this. The default color index is 1, usually white on a black
c background for video displays or black on a white background for
c printer plots. The color index is an integer in the range 0 to a
c device-dependent maximum. Color index 0 corresponds to the background
c color; lines may be "erased" by overwriting them with color index 0
c (if the device permits this).
c 
c If the requested color index is not available on the selected device,
c color index 1 will be substituted.
c 
c The assignment of colors to color indices can be changed with
c subroutine PGSCR (set color representation).  Color indices 0-15
c have predefined color representations (see the PGPLOT manual), but
c these may be changed with PGSCR.  Color indices above 15  have no
c predefined representations: if these indices are used, PGSCR must
c be called to define the representation.
c
c
c Table 5.1. Default Color Representation
c
c Color
c Index    Color                  (H, L, S)        (R, G, B)
c 
c  0   Black (background)       0, 0.00, 0.00   0.00, 0.00, 0.00
c  1   White (default)          0, 1.00, 0.00   1.00, 1.00, 1.00
c  2   Red                    120, 0.50, 1.00   1.00, 0.00, 0.00
c  3   Green                  240, 0.50, 1.00   0.00, 1.00, 0.00
c  4   Blue                     0, 0.50, 1.00   0.00, 0.00, 1.00
c  5   Cyan (Green + Blue)    300, 0.50, 1.00   0.00, 1.00, 1.00
c  6   Magenta (Red + Blue)    60, 0.50, 1.00   1.00, 0.00, 1.00
c  7   Yellow  (Red + Green)  180, 0.50, 1.00   1.00, 1.00, 0.00
c  8   Red + Yellow (Orange)  150, 0.50, 1.00   1.00, 0.50, 0.00
c  9   Green + Yellow         210, 0.50, 1.00   0.50, 1.00, 0.00
c 10   Green + Cyan           270, 0.50, 1.00   0.00, 1.00, 0.50
c 11   Blue + Cyan            330, 0.50, 1.00   0.00, 0.50, 1.00
c 12   Blue + Magenta          30, 0.50, 1.00   0.50, 0.00, 1.00
c 13   Red + Magenta           90, 0.50, 1.00   1.00, 0.00, 0.50
c 14   Dark Gray                0, 0.33, 0.00   0.33, 0.33, 0.33
c 15   Light Gray   	      0, 0.66, 0.00   0.66, 0.66, 0.66
c 16--255	Undefined                    	                      


c...	For use with PGSCI().
	integer color_bkgr, color_ink
	integer color_red, color_green, color_blue
	integer color_cyan, color_magenta, color_yellow
	integer color_orange, color_yellowgreen, color_greencyan
	integer color_bluecyan, color_bluemagenta, color_redmagenta
	integer	color_darkgrey, color_lightgrey 
	parameter (color_bkgr = 0)	! black on screen, white on paper
	parameter (color_ink = 1)	! white on screen, black on paper
	parameter (color_red = 2)
	parameter (color_green = 3)
	parameter (color_blue = 4)
	parameter (color_cyan = 5)
	parameter (color_magenta = 6)
	parameter (color_yellow = 7)
	parameter (color_orange = 8)
	parameter (color_yellowgreen = 9)
	parameter (color_greencyan = 10)
	parameter (color_bluecyan = 11)
	parameter (color_bluemagenta = 12)
	parameter (color_redmagenta = 13)
	parameter (color_darkgrey = 14)
	parameter (color_lightgrey = 15)
	

c...	Index max for palette lookup.
c...	common 
      integer icol2
      common /palette/ icol2

cWrong      character*10 color_name(16)
cWrong      common /cb_pallete_names/ color_name
      
