! #############################################################################
!  Copyright (c) 2000  Bruker Advance X-ray Solutions, Inc. (Bruker AXS, Inc.)
!                      5465 E Cheryl Parkway
!                      Madison, WI 53711-5373  USA
! #############################################################################
!
! CONTST -- Command file for testing FRAMBO/SADIE CONTRAST command.
!       Following files must be accessible, in the test
!       directory (SAXS$TEST:).
!
!               contst.slm -- this file
!		fiber_u.1 -- fiber test frame
!               contstmd.slm -- Subroutine to modify contrast
!
!       The following lookup tables must be accessible in SAXS$SYSDATA:
!
!               bb.lut -- "Blackbody radiation" lookup table
!               video.lut -- Blue low-end lookup table
!               mono.lut -- Monochrome lookup table
!               v8.lut -- 8-color lookup table
!
! Set default (BLACKBODY) lookup table
configure/colors bb.lut
wait 1.0
!
! Display a frame.
display/new/quad=0/lo=0/hi=150/x=255/y=255/mag=1 SAXS$TEST:fiber-h.1
!
! Modify contrast
@SAXS$TEST:contstmd
wait 1.0
!
! Set VIDEO lookup table
configure/colors video.lut
wait 1.0
!
! Modify contrast
@SAXS$TEST:contstmd
wait 1.0
!
! Set monochrome lookup table
configure/colors mono.lut
wait 1.0
!
! Modify contrast
@SAXS$TEST:contstmd
wait 1.0
!
! Set 8-color lookup table
configure/colors v8.lut
wait 1.0
!
! Modify contrast
@SAXS$TEST:contstmd
wait 1.0
!
! Restore default table
configure/colors bb.lut
wait 1.0