# File: newfdfoc.src	14 Sep 95 	R. Bush
#
# This procedure takes series of 1x exposures at all focus positions
#

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

#Position 1; focus (1/9)
tcblock mbdpconf 0xffff 0xffff 0xffff 55 17
queue off
tcblock mbcmtp1r !GI7 !GI0 !GI0
wait time !GI9

#Position 2; focus (2/9)
queue on
tcblock mbdpconf 0xffff 0xffff 0xffff 91
queue off
tcblock mbcmtp1r !GI7 !GI0 !GI0
wait time !GI9

#Position 3; focus (3/9)
queue on
tcblock mbdpconf 0xffff 0xffff 0xffff 127
queue off
tcblock mbcmtp1r !GI7 !GI0 !GI0
wait time !GI9

#Position 4; focus (4/9)
queue on
tcblock mbdpconf 0xffff 0xffff 0xffff 55 89
queue off
tcblock mbcmtp1r !GI7 !GI0 !GI0
wait time !GI9

#Position 5; focus (5/9)
queue on
tcblock mbdpconf 0xffff 0xffff 0xffff 91
queue off
tcblock mbcmtp1r !GI7 !GI0 !GI0
wait time !GI9

#Position 6; focus (6/9)
queue on
tcblock mbdpconf 0xffff 0xffff 0xffff 127
queue off
tcblock mbcmtp1r !GI7 !GI0 !GI0
wait time !GI9

#Position 7; focus (7/9)
queue on
tcblock mbdpconf 0xffff 0xffff 0xffff 55 53
queue off
tcblock mbcmtp1r !GI7 !GI0 !GI0
wait time !GI9

#Position 8; focus (8/9)
queue on
tcblock mbdpconf 0xffff 0xffff 0xffff 91
queue off
tcblock mbcmtp1r !GI7 !GI0 !GI0
wait time !GI9

#Position 9; focus (9/9)
queue on
tcblock mbdpconf 0xffff 0xffff 0xffff 127
queue off
tcblock mbcmtp1r !GI7 !GI0 !GI0
wait time !GI9

# Go back to best focus (55/89)
queue on
tcblock mbdpconf 0xffff 0xffff 0xffff 55 89
