pro colorwind, red, green, blue ; Color table with blue-white-red scale, for neg-zero-pos data, e.g., winds ; Range is from 1 to !d.table_size-2 (usually 254) with midpoint at 127. 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(9) & g=fltarr(9) & b=fltarr(9) r=[0.0, 0.0, 0.0, 0.5, 1.0, 1.0, 1.0, 1.0, 1.0] g=[0.0, 0.3, 0.6, 0.8, 1.0, 0.8, 0.6, 0.3, 0.0] b=[1.0, 1.0, 1.0, 1.0, 1.0, 0.5, 0.0, 0.0, 0.0] n=!d.table_size-2 re=interpol(r,n) gr=interpol(g,n) bl=interpol(b,n) red(0)=0 green(0)=0 blue(0)=0 red(1:n)=re green(1:n)=gr blue(1:n)=bl red(n+1:255)=1. green(n+1:255)=1. blue(n+1: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