! @(#)lutexc.prg	17.1.1.1 (ESO-DMD) 01/25/02 17:46:12
! ++++++++++++++++++++++++++++++++++++++++++++++++++++
!
! MIDAS procedure lutexc.prg
! K. Banse	900703, 901212, 010618
!
! 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 idl2, idl4, idl5, idl6, idl11, idl12, idl14, idl15
WRITE/OUT
!
SET/LUT					!enable lookup tables
DISPLAY/LUT				!display colour bar
!
@ lutexc,sublut idl2
@ lutexc,sublut idl4
@ lutexc,sublut idl5
@ lutexc,sublut idl6
@ lutexc,sublut idl11
@ lutexc,sublut idl12
@ lutexc,sublut idl14
@ lutexc,sublut idl15
! 
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}