! @(#)lutexb.prg	17.1.1.1 (ES0-DMD) 01/25/02 17:46:12
! ++++++++++++++++++++++++++++++++++++++++++++++++++++
!
! MIDAS procedure lutexb.prg
! K. Banse	900703, 901212
!
! demonstrate different colour lookup tables
!
! ++++++++++++++++++++++++++++++++++++++++++++++++++++
! 
write/keyw out_a {p1}		!save plotflag (Plot or NoPlot)
!
write/out "Some of the existing colour lookup tables are:"
write/out
write/out aips0, random6, isophot, manycol, pastel, rainbow2, smooth, smooth2
write/out stairs8, standard
write/out
!
set/lut					!enable lookup tables
display/lut				!display colour bar
!
@ lutexb,sublut aips0
@ lutexb,sublut random6
@ lutexb,sublut isophot
@ lutexb,sublut manycol
@ lutexb,sublut pastel
@ lutexb,sublut rainbow2 
@ lutexb,sublut smooth
@ lutexb,sublut smooth2
@ lutexb,sublut stairs8
@ lutexb,sublut standard
! 
write/out
write/out "To see all existing LUTs, use the host command"
write/out  -DIR MID_SYSTAB:*.lut
!
! here entry SUBLUT
!
entry sublut
! 
write/out LOAD/LUT {p1} yields:
load/lut {p1} {dazhold(10)},256
if out_a(1:1) .eq. "P" @a plottab,lut {p1}