print,'1-black & white linear, 2-seven color, 3-Red-blue'
	read,icol

	if(icol eq 1) then begin
	  loadct,0
	endif

	if(icol eq 2) then begin
;              black,  red  , green , blue  , cyan  ,  mag  , white
          c2=[   0  ,   1   ,   0   ,   0   ,   0   ,   1   ,   1   ]
	  c3=[   0  ,   0   ,   1   ,   0   ,   1   ,   0   ,   1   ]
	  c4=[   0  ,   0   ,   0   ,   1   ,   1   ,   1   ,   1   ]

	  tvlct,c2*255,c3*255,c4*255

	endif

	if(icol eq 3) then begin
;; black at 0, blue from 1-127, white at 128, red from 129-255
	  val0=0.3
	  dval=0.6
	  sat0=0.3
	  dsat=0.6
	  dw=14
	  dwt=2*dw+1
	  dc=127-dw
	  temp=findgen(dc)/(dc-1)
	  hue = [0, 240+bytarr(dc)     , 0+bytarr(dwt), 0+bytarr(dc)]
	  sat = [0, sat0+dsat*(1.-temp), 0+fltarr(dwt), sat0+dsat*temp]
	  val = [0, val0+dval*(1.-temp), 1+fltarr(dwt), val0+dval*temp]
	  tvlct, hue,sat,val,/HSV

	endif


	end