define character lut_name*12 
define integer aint
let lut_name &1
let lut%saturation 1
let lut%value 1
if (lut_name.eq."vla") then
   let lut%hue[i] 256*(lut%size-i)|lut%size
else if (lut_name.eq."roll") then
   let aint &2
   let lut%hue mod(lut%hue+aint,360)
else if (lut_name.eq."contour") then
   let aint &2
   let lut%hue[i] 360|aint*int(i*aint|lut%size)
else if (lut_name.eq."grey") then
   let aint &2
   let lut%hue 0
   let lut%saturation 0
   let lut%value[i] 1.0|aint*int(i*aint|lut%size)
else
   say "w-lut,  unsupported lut" 'lut_name'
   return
endif
lut
