BWR

;;

;; 青→白→赤のカラーテーブルを作る 最大値は白、最小値は黒になる

;;

pro blue_white_red_ct

steps = 255

r = intarr(steps)

g = intarr(steps)

b = intarr(steps)

for i=1, steps-2,1 do begin

if i le steps/2 then begin

r[i]=i*2

g[i]=i*2

b[i]=255

endif else begin

r[i]=255

g[i]=511-i*2

b[i]=511-i*2

endelse

endfor

r[steps-1]=255

g[steps-1]=255

b[steps-1]=255

tvlct,r,g,b

;; Test ;;

window,0,xs=256,ys=100

tmp = dindgen(256,100)

for i=0, 256-1,1 do begin

tmp[i,*] = i

endfor

tvscl,tmp

end