! #############################################################################
!  Copyright (c) 2000  Bruker Advance X-ray Solutions, Inc. (Bruker AXS, Inc.)
!                      5465 E Cheryl Parkway
!                      Madison, WI 53711-5373  USA
! #############################################################################
!
! DSPTST -- Command file for testing FRAMBO/SADIE DISPLAY command.
!       Following files must be accessible, all in the test directory
!       (SAXS$TEST:).
!
!               dsptst.slm -- this file
!		fiber-h.1 -- fiber test frame
!               plotso.dat   -- Test data for graphing
!
! Set configuration for 3-character base 10 extensions
!configure/edit/numchars=3/numbase=10 SAXI$CFG
configure/colors bb.lut
contrast /lo=0 /hi=63
!
! DISPLAY Command Test
display /new /quad=0 /lo=0 /hi=150 /x=255 /y=255 /mag=1 SAXS$TEST:fiber-h.1
wait 0.5
!
! Display quadrants of image full screen
display/new/quad=0/x=128/y=128/mag=2 SAXS$TEST:fiber-h.1
wait 0.5
display/new/quad=0/x=384/y=128/mag=2 SAXS$TEST:fiber-h.1
wait 0.5
display/new/quad=0/x=128/y=384/mag=2 SAXS$TEST:fiber-h.1
wait 0.5
display/new/quad=0/x=384/y=384/mag=2 SAXS$TEST:fiber-h.1
wait 0.5
!
! Display quadrants in quadrants
display/new/quad=1/x=128/y=128/mag=2 SAXS$TEST:fiber-h.1
wait 0.5
display/new/quad=2/x=384/y=128/mag=2 SAXS$TEST:fiber-h.1
wait 0.5
display/new/quad=3/x=128/y=384/mag=2 SAXS$TEST:fiber-h.1
wait 0.5
display/new/quad=4/x=384/y=384/mag=2 SAXS$TEST:fiber-h.1
wait 0.5
!
! Show frame header
!
frame_info $FRAME
!
! Draw full screen graph to check overlay clearing
!
graph/file/quad=0 SAXS$TEST:plotso.dat
wait 0.5
!
! Display full screen, but preserve graph
!
display/new/quad=0/graphics_save SAXS$TEST:fiber-h.1
wait 0.5
!
! Do the same, but clear the graph
!
display/new/quad=0 SAXS$TEST:fiber-h.1
wait 0.5
!
! Display in quadrants at different levels
!
display/new/quad=1/x=128/y=128/mag=2/hi=500 SAXS$TEST:fiber-h.1
wait 0.5
display/new/quad=2/x=384/y=128/mag=2/hi=400 SAXS$TEST:fiber-h.1
wait 0.5
display/new/quad=3/x=128/y=384/mag=2/hi=300 SAXS$TEST:fiber-h.1
wait 0.5
display/new/quad=4/x=384/y=384/mag=2/hi=200 SAXS$TEST:fiber-h.1
wait 0.5

display/new/quad=1/x=128/y=128/mag=2/lo=0/hi=250 SAXS$TEST:fiber-h.1
display/new/quad=2/x=384/y=128/mag=2/lo=25 SAXS$TEST:fiber-h.1
display/new/quad=3/x=128/y=384/mag=2/lo=50 SAXS$TEST:fiber-h.1
display/new/quad=4/x=384/y=384/mag=2/lo=75 SAXS$TEST:fiber-h.1
!
! DISPLAY Frame INdices Test
!!display/new/quad=0/lo=0/hi=50/x=255/y=255/mag=1 SAXS$TEST:corundum.fin#0
!!wait 0.5
!!display /next
!!wait 0.5
!!display /next
!!wait 0.5
!!display /prev
!!wait 0.5
!!display /prev
!!wait 0.5
!!display /movie+
!!wait 0.5
!!display /movie-
!!wait 0.5