# Script to automate taking multiple exposures of a standard star(field)
# in several filters.
# Adapt this script to other (Landolt) standards by changing coordinates.
# R.A. Jansen    April 4 1995.


# set name of standard star(field)
set name='L113_492'

# set exposure times for different filters
set expR1=5
set expR2=40
set expB1=10
set expB2=120
set expU1=180
set expV1=5
set expV2=40
set expI1=5
set expI2=40

# set coordinates of standard star(field)
echo -n "sending coordinates 21:42:28 00:38:21 2000.0  "
tele coords 21:42:28 00:38:21 2000.0
sleep 3

# move telescope to standard star coordinates
echo -n "Starting slew ..."
tele enable

# ask observer to find guide star and start autoguider
echo -n "Turn ON Autoguider (segment 41). Hit <RETURN> when ready..."
set foo1=$<

# make sure right name appears in title and comment field
object "$name"
setcom ccd Object "$name"

# change filter to R and take two exposures of 'expR1' and 'expR2'
# seconds, respectively
echo -n "Moving filter wheel to "
tele filter 4
echo "Starting 1st R exposure ($expR1 sec) at "`date`
ccd gowait $expR1 
fresh
dstore
echo "1st R exposure done"
echo "Starting 2nd R exposure ($expR2 sec) at "`date`
ccd gowait $expR2 
fresh
dstore
echo "2nd R exposure done"

# change filter to R and take two exposures of 'expI1' and 'expI2'
# seconds, respectively
echo -n "Moving filter wheel to "
tele filter 5
echo "Starting 1st V exposure ($expI1 sec) at "`date`
ccd gowait $expI1 
fresh
dstore
echo "1st I exposure done"
echo "Starting 2nd I exposure ($expI2 sec) at "`date`
ccd gowait $expI2 
fresh
dstore
echo "2nd I exposure done"

# change filter to V and take two exposures of 'expV1' and 'expV2' 
# seconds, respectively
echo -n "Moving filter wheel to "
tele filter 3
echo "Starting 1st V exposure ($expV1 sec) at "`date`
ccd gowait $expV1 
fresh
dstore
echo "1st V exposure done"
echo "Starting 2nd V exposure ($expV2 sec) at "`date`
ccd gowait $expV2 
fresh
dstore
echo "2nd V exposure done"

# change filter to B and take two exposures of 'expB1' and 'expB2' 
# seconds, respectively
echo -n "Moving filter wheel to "
tele filter 2
echo "Starting 1st B exposure ($expB1 sec) at "`date`
ccd gowait $expB1 
fresh
dstore
echo "1st B exposure done"
echo "Starting 2nd B exposure ($expB2 sec) at "`date`
ccd gowait $expB2 
fresh
dstore
echo "2nd B exposure done"

# change filter to U and take one exposure of 'expU1' seconds
echo -n "Moving filter wheel to "
tele filter 1
echo "Starting U exposure ($expU1 sec) at "`date`
ccd gowait $expU1 
fresh
dstore
echo "U exposure done"

# tell the observer to stop auto-guiding
echo -n "Turn OFF Autoguider.  Hit <RETURN> when ready..."
set foo2=$<

# end message
echo " "
echo "All Done."
echo " "