! P_COLOR.GRAPHIC 
!	Nice colour lookup table with fixed colour for the zero... 
! Author ??  Optimized S.Guilloteau 
!------------------------------------ 
let saturation 1 
def integer izero jmax 
if .not.exist(color) then 
  define integer color[3] /global 
  let color 0 360 25 
  symbol color "@ PR:P_COLOR.GRAPHIC" 
endif 
if ("&1 ".ne." ") then 
  let color[3] &1 
endif 
let izero nint(-true_scale[1]|(true_scale[2]-true_scale[1])*126.) 
let jmax 127-izero 
let hue[i] mod(color[1]+(color[2]-color[1])*(i-izero)|jmax,360) 
if (color[3].ne.0) then 
  let value[i] min(1.,abs(i-izero)|color[3]) 
else 
  let value 1 
endif 
let hue hue+10.*sin(hue*pi|60) 
lut