! @(#)ittexa.prg	17.1.1.1 (ES0-DMD) 01/25/02 17:46:11
! ++++++++++++++++++++++++++++++++++++++++++++++++++++
! MIDAS procedure ittexa.prg
! K. Banse	890616, 910425, 910724
!
! demonstrate different intensity transfer tables
!
! ++++++++++++++++++++++++++++++++++++++++++++++++++++
!
write/keyw out_a {p1}            !save plotflag (Plot or NoPlot)
!
write/out the following intensity transfer tables exist currently
write/out
write/out "neg, log, neglog, expo, gamma, jigsaw, stairs, ramp"
write/out
!
set/lut                                 !enable lookup tables
display/lut                                !display colour bar
!
@ ittexa,subitt neg
@ ittexa,subitt log 
@ ittexa,subitt neglog 
@ ittexa,subitt expo 
@ ittexa,subitt gamma
@ ittexa,subitt jigsaw
@ ittexa,subitt stairs
@ ittexa,subitt ramp
!
! here entry SUBITT
!
entry subitt
!
write/out LOAD/ITT {p1} yields:
load/itt {p1}
if out_a(1:1) .eq. "P" then
   @a plottab,itt {p1}
   wait/secs 6
else
   wait/secs 3
endif