idl/idl_inverted_grey_table.pro


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16

pro idl_inverted_grey_table
	
 max  = 255

 r = findgen(max+1)
 g = findgen(max+1)

 for i=1, max do begin
     g(i) = max * ( 1 - r(i)/max )  
 endfor
 
 g(0) = 255

 tvlct, g, g, g

end