Appendix B. The SPIcam routine, m2test

###### macro to test if M2 pistons are tilting the mirror.

##### J. Morgan 2/17/00

## modified from dofocus.

macro m2test

if ($0 < 4)

echo "USAGE: m2test <start> <initial focus step> <number of exp. pairs>"

break

end

if ($EXPTIME > 30)

echo "exposure time is $EXPTIME"

echo "very long exposure time, use 'longfocus' if you really want this"

break

end

if ($EXPTIME < 1.7)

echo "exposure time is $EXPTIME"

echo "too short to be reliable"

break

end

$tmplog = $CAMLOG

camlog /dev/null

$focus = $1

$step = $2

$npairs = $3

$findex = 0

tcc hi

clear

for i 1 $npairs

echo ""

$focus = $focus - $findex * $step

echo doing focus = $focus (exp. A of pair $i out of a total of $npairs pairs)

focus $focus

$findex = $findex + 1

light

shift 100

echo ""

$focus = $focus + $findex * $step

echo doing focus = $focus (exp. B of pair $i out of a total of $npairs pairs)

focus $focus

$findex = $findex + 1

light

if ($i = { $npairs - 1})

shift 200

else

shift 100

end

end

comment "m2test $1 $step $npairs"

read

## tcc lo

comment ""

camlog $tmplog