# File: hrfocser.src	23.9.93
#
# This procedure takes series of exposures at all focus positions
#

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

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

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

#display "1. focus (1/9)"
tcblock mbdpconf 0xffff 0xffff 0xffff 55 17
tcblock mbcmtp3r !GI7 !GI0 !GI0
wait time !GI9

#display "2. focus (2/9)"
tcblock mbdpconf 0xffff 0xffff 0xffff 91
tcblock mbcmtp3r !GI7 !GI0 !GI0
wait time !GI9

#display "3. focus (3/9)"
tcblock mbdpconf 0xffff 0xffff 0xffff 127
tcblock mbcmtp3r !GI7 !GI0 !GI0
wait time !GI9

#display "4. focus (4/9)"
tcblock mbdpconf 0xffff 0xffff 0xffff 55 89
tcblock mbcmtp3r !GI7 !GI0 !GI0
wait time !GI9

#display "5. focus (5/9)"
tcblock mbdpconf 0xffff 0xffff 0xffff 91
tcblock mbcmtp3r !GI7 !GI0 !GI0
wait time !GI9

#display "6. focus (6/9)"
tcblock mbdpconf 0xffff 0xffff 0xffff 127
tcblock mbcmtp3r !GI7 !GI0 !GI0
wait time !GI9

#display "7. focus (7/9)"
tcblock mbdpconf 0xffff 0xffff 0xffff 55 53
tcblock mbcmtp3r !GI7 !GI0 !GI0
wait time !GI9

#display "8. focus (8/9)"
tcblock mbdpconf 0xffff 0xffff 0xffff 91
tcblock mbcmtp3r !GI7 !GI0 !GI0
wait time !GI9

#display "9. focus (9/9)"
tcblock mbdpconf 0xffff 0xffff 0xffff 127
tcblock mbcmtp3r !GI7 !GI0 !GI0
wait time !GI9

#display "Go back to best focus (55/89)"
tcblock mbdpconf 0xffff 0xffff 0xffff 55 89

#display "Done... End procedure hrfocser"
