pro colorspec, red, green, blue
; Carefully smoothed color table
; common colors, r_orig, g_orig, b_orig, r_curr, g_curr, b_curr
red=fltarr(256)
green=fltarr(256)
blue=fltarr(256)
fred=  [ 0.3,  0.3,  0.3,  0.3,  0.2,  0.1,  0.0,  0.0,  0.0,  0.0,  0.0,$
         0.0,  0.0,  0.2,  .56,  .70, 0.82,  0.9, 0.95,  1.0,  1.0,  1.0,  1.0,$
         1.0,  1.0,  1.0 ]
fgreen=[ 0.1,  0.1,  0.1,  0.1,  0.1,  0.1, 0.35,  0.5, 0.65, 0.75, 0.85,$
         0.9, 0.93,  0.95,0.94, 0.93, 0.90, 0.86, 0.82, 0.77,  0.7,  0.6,  0.5,$
         0.4,  0.3,  0.0 ]
fblue= [ 0.4,  0.6,  0.7,  0.8,  0.9,  1.0,  1.0,  1.0,  0.9,  0.8,  0.7,$
         0.6,  0.5,  0.1,  0.0,  0.0,  0.0,  0.0,  0.0,  0.0,  0.0,  0.0,  0.0,$
         0.0,  0.0,  0.0 ]
for icx=0,24 do begin
  for icy=0,9 do begin
    icz=10*icx+icy
    red(icz)=((fred(icx)+(fred(icx+1)-fred(icx))*icy/10.)*255.)
    green(icz)=((fgreen(icx)+(fgreen(icx+1)-fgreen(icx))*icy/10.)*255.)
    blue(icz)=((fblue(icx)+(fblue(icx+1)-fblue(icx))*icy/10.)*255.)
  endfor
endfor
red(0)=0
green(0)=0
blue(0)=0
if !d.window eq -1 then loadct,0,silent=1
red(0:!d.table_size-2)=interpolate(red, $
                       findgen(!d.table_size-1)/(!d.table_size-2)*249.)
green(0:!d.table_size-2)=interpolate(green, $
                       findgen(!d.table_size-1)/(!d.table_size-2)*249.)
blue(0:!d.table_size-2)=interpolate(blue, $
                       findgen(!d.table_size-1)/(!d.table_size-2)*249.)
red(!d.table_size-1:255)=255
green(!d.table_size-1:255)=255
blue(!d.table_size-1:255)=255
red=byte(red)
green=byte(green)
blue=byte(blue)

tvlct,red,green,blue
return
end



; test code
colorspec
arr = findgen(256)#(fltarr(500)+1)
shade_surf,arr,ax=90,az=0,shade =arr

end