# File: spthrfoc.src	17.8.93
#
# This procedure takes a focus series @ all PAW positions
#

program "@(#) MODULE: spthrfoc.src RELEASE: %R%.%L% CREATED: %G% %U%"
source "/mdisw/cfl/eof/src/spthrfoc.src"
descr "spthrfoc - Takes a focus series in HR at all PAW positions"

#!!-->  Set exposure time (!GI0) and wait time (!GI9) externally <---!!
#set !GI0 = 16000
#set !GI9 = 20

perform lobsmode
display "Focus series in 3x (hi-rez) path"

display "Focus series in s-wave (PAW 125)"
perform hrfocser

tcblock mbdpconf 0xffff 0xffff 89
display "Focus series in p-wave (PAW 89)"
perform hrfocser

tcblock mbdpconf 0xffff 0xffff 17
display "Focus series in lcp (PAW 17)"
perform hrfocser

tcblock mbdpconf 0xffff 0xffff 53
display "Focus series in rcp (PAW 53)"
perform hrfocser

display "Back to s-wave (PAW 125)"
tcblock mbdpconf 0xffff 0xffff 125

display "Done... End procedure sptfdfoc"
