#!/bin/csh -f
#+
# deimos_flip -- acquire dithered/rotated image sequence for phot cal
#
# Purpose:
#	Acquire a sequence of direct images in various filters at 
#	two pointings (125 arcsec south and north of current location)
#	and at two rotator orientations.
#
# Usage:
#	deimos_flip
# 
# Arguments:
#	none
# 
# Output:
#	transcript written to STDOUT
# 
# Restrictions:
#	must have proper filters loaded
# 
# Exit values:
#	 0 = normal completion
#	 1 = wrong number of arguments
#
# Example:
#
#-
# Modification history:
#	2002-Aug-11	GDW	Original version
#-----------------------------------------------------------------------

set filters = (B V R I Z)
set foci    = (-6400 -7000 -6300 -6600 -6700)
set nexps   = (3 2 1 1 2)
set ttimes  = (100 100 100 100 100)

# save starting location...
markbase
onintr last

# loop over rotator positions...
foreach rotdest ( 90 270 )

    # move rotator and wait for tracking...
    modify -s dcs ROTDEST=$rotdest ROTMODE=1
    sleep 3
    waitfor -s dcs ROTSTAT=8

    # loop over positions...
    foreach dec ( -125 125 )

	# move telescope and wait for tracking...
	modify -s dcs raoff=0 decoff=$dec rel2base=true
	sleep 3
	waitfor -s dcs axestat=tracking

	# loop over filters
	@ j = 1
	while ( $j <= $#filters )

	    set filter = $filters[$j]
	    set focus  = $foci[$j]
	    set nexp   = $nexps[$j]
	    set ttime  = $ttimes[$j]

	    filter $filter
	    focus $focus
	    tint $ttime

	    goi -nowait $nexp
	    sleep 30
	@ j++
        end
    end
end

# end...
last:
gotobase
printf "Done."
script_done