pro colorspec, red, green, blue

; Color table with blue-green-yellow-red ("spectrum") scale

common colors, r_orig, g_orig, b_orig, r_curr, g_curr, b_curr

red=fltarr(256) & green=fltarr(256) & blue=fltarr(256)
r=fltarr(26)    & g=fltarr(26)      & b=fltarr(26)
r=[ 0.2,  0.2,  0.2,  0.2,  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]
g=[ 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 ]
b=[ 0.2,  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]

n=!d.table_size-1

re=interpol(r,n)
gr=interpol(g,n)
bl=interpol(b,n)
red(0:n-1)=re
green(0:n-1)=gr
blue(0:n-1)=bl
red(0)=0.
green(0)=0.
blue(0)=0.
red(n:255)=1.
green(n:255)=1.
blue(n:255)=1.
red=bytscl(red)
green=bytscl(green)
blue=bytscl(blue)

tvlct,red,green,blue

r_orig=red
g_orig=green
b_orig=blue
r_curr=red
g_curr=green
b_curr=blue

return
end