pro cipsct,grid=grid,coastcolor=coastcolor,white=white,red=red,green=green,blue=blue,black=black,rgb_red=rgb_red,rgb_green=rgb_green,rgb_blue=rgb_blue

	; Create the color table Supplied by John McNabb
	; ripped off from Brian Templeman by SMB, August 10, 2009

	min_blue=64
	
	rgb_red=indgen(256)
	rgb_green=indgen(256)
	rgb_blue=indgen(256)
	
	for i=0,255 do begin
		rgb_blue[i]=min_blue+1.75*i
		if (rgb_blue[i] gt 255) then begin
			rgb_blue[i]=255
		endif
	endfor
	
	;  black
	black=0
	rgb_red[black]=0
	rgb_green[black]=0
	rgb_blue[black]=0

  ;  Orbit Swath Color
  orbit_swath=1
  rgb_red[orbit_swath]=1
  rgb_green[orbit_swath]=1
  rgb_blue[orbit_swath]=48
	
	;  red
	red=250
	rgb_red[red]=255
	rgb_green[red]=0
	rgb_blue[red]=0
	
	;  green
	green=251
	rgb_red[green]=0
	rgb_green[green]=255
	rgb_blue[green]=0
	
	; blue
	blue=252
	rgb_red[blue]=0
	rgb_green[blue]=0
	rgb_blue[blue]=255
	
	;option 2
	; grid
	grid=253
	rgb_red[grid]=91
	rgb_green[grid]=91
	rgb_blue[grid]=239
	
	; coast
	ccolor=100						; Grey intensity of coast color
	coastcolor=254					; Index of coast color
	rgb_red[coastcolor]=ccolor
	rgb_green[coastcolor]=ccolor
	rgb_blue[coastcolor]=ccolor
	
	;  white
	white=255
	rgb_red[white]=255
	rgb_green[white]=255
	rgb_blue[white]=255
	white=255
	
	tvlct,rgb_red,rgb_green,rgb_blue
end