Clive Cook wrote:
> Is there any where on the web i can download color table files that other
> people have put together?
>
> cheers
> Clive
Hi Clive,
that is a good idea, perhaps everyone can post
their favourite color table procedures.
The one I often use is attached.(It also has some
main level example code at the end, so you can just
run the procedure to see what it looks like).
I received it from Dennis Riggin who I think
got it from someone else.
Cheers,
bob stockwell
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.)*25 5.)
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
|
comp.lang.idl-pvwave archive
Members
Search
Help
Login
Home
