! #############################################################################
!  Copyright (c) 2000  Bruker Advance X-ray Solutions, Inc. (Bruker AXS, Inc.)
!                      5465 E Cheryl Parkway
!                      Madison, WI 53711-5373  USA
! #############################################################################
!
! CLRST -- Command file for testing FRAMBO/SADIE CLEAR command.
!       Following files must be accessible, in the test
!       directory (SAXS$TEST:).
!
!               clrtst.slm -- this file
!		cor30_07.u -- corundum test frame
!               plotso.dat -- Test plot data
!
! Display a frame.
display/new/quad=0/lo=0/hi=150/x=255/y=255/mag=1 SAXS$TEST:fiber-h.1
wait 0.5
!
! Clear full screen
clear/q=0 screen
wait 0.5
!
! Re-display
display/new/quad=0/lo=0/hi=150/x=255/y=255/mag=1 SAXS$TEST:fiber-h.1
wait 0.5
!
! Clear quadrants
clear/q=1 screen
wait 0.5
clear/q=4 screen
wait 0.5
clear/q=2 screen
wait 0.5
clear/q=3 screen
wait 0.5
! 
! Re-display
display/new/quad=0/lo=0/hi=150/x=255/y=255/mag=1 SAXS$TEST:fiber-h.1
wait 0.5
!
! Overlay a graph
graph/file/q=0 SAXS$TEST:plotso.dat
wait 0.5
!
! Clear image, leave graph
clear/graphics_save/q=1 screen
wait 0.5
clear/graphics_save/q=3 screen
wait 0.5
clear/graphics_save/q=4 screen
wait 0.5
clear/graphics_save/q=2 screen
wait 0.5
!
! Redisplay image, preserving graph
display/new/quad=0/lo=0/hi=150/x=255/y=255/mag=1/graph SAXS$TEST:fiber-h.1
!
! Clear graph; leave image
clear/image_save/q=1 screen
wait 0.5
clear/image_save/q=3 screen
wait 0.5
clear/image_save/q=4 screen
wait 0.5
clear/image_save/q=2 screen
wait 0.5
!
! Redraw graph
graph/file/q=0 SAXS$TEST:plotso.dat
wait 0.5
!
! Clear all
clear/q=1 screen
wait 0.5
clear/q=3 screen
wait 0.5
clear/q=4 screen
wait 0.5
clear/q=2 screen
wait 0.5