#!/bin/csh -f
#+
# image_user_masks -- acquire images of DEIMOS user slitmasks
#
# Purpose:
#	Configure spectrograph for zeroth order imaging, turn on appropriate
#	lamps, and acquire direct images of DEIMOS user slitmasks which can be
#	used to check alignment boxes for xbox.
#
# Usage:
#	image_slitmasks [masks]
# 
# Arguments:
#	masks = list of slitmasks to image [default=all non-engineering masks]
# 
# Output:
#	None
# 
# Restrictions:
#	None
# 
# Exit values:
#	 0 = normal completion
#	 1 = wrong number of arguments
# 
# See also:
#	image_user_masks.tcl GUI
#
# Example:
#	1) take images of all user masks currently loaded:
#		image_user_masks 
#
#	2) take images of all masks FOOBAR1 and FOOBAR2
#		image_user_masks FOOBAR1 FOOBAR2
#
#-
# Modification history:
#	2003-Mar-04	GDW	Original version
#	2003-Apr-24	GDW	Modified to support zeroth order on slider 4
#	2004-Apr-20	GDW	Added "cycle_shutter"
#	2004-May-17	GDW	Removed "-nowait" from "goi"
#	2005-May-03	GDW	Changed to cycle_shutter -10
#	2006-Oct-30	GDW	Added MaskCheck mode
#-----------------------------------------------------------------------

set buf = $0
set cmd = $buf:t
set usage = "Usage: $cmd"
set masks = `masknames | awk '/Long/ || /GOH/ || /GOSpH/ || /INDEF/{next}{print $NF}'`
set filter = R
set save_file = $cmd.$$

# parse args...
if ( $#argv >= 1 ) then
    set masks = ( $* )
endif

# print welcome message...
cat <<EOF
------------------------------------------------------------------------
			   Image User Masks
------------------------------------------------------------------------

List of masks to be imaged:
EOF

foreach mask ( $masks )
    printf "$mask\t"
end
printf "\n\n"


# save the current state...
printf "Saving instrument state so we can restore it..."
save_state -dmc $save_file
printf "done.\n"

# verify that we are in an imaging configuration...
set slider = `slider`
if ( ( $slider == "3" || $slider == "4" ) ) then
    gozero
endif

# close the hatch...
modify -s deimot hatchpos=closed
if ( $status != 0 ) then
    printf "ERROR -- could not close the hatch\n"
    exit 1
endif

# set the filter..
filter $filter			
if ( $status != 0 ) then
    printf "ERROR -- could not select the $filter filter\n"
    exit 1
endif

# cycle the shutter...
cycle_shutter -10
if ( $status != 0 ) then
    printf "ERROR opening shutter -- check air pressure, etc.\n"
    beep 3
    exit 1
endif

# close shutter and turn on lamps...
modify -s deiccd cshutter=f	# close shutter to turn on arc lamps
lamps Xe			# turn on Xe lamps
tint 2				# set exposure time to 2 sec
direct                          # put CCD in direct imaging mode
modify -s deiccd obstype=MaskCheck # set to something useful

onintr abort

# save the todisk state...
set todisk_old = `show -s deiccd -terse todisk`
modify -s deiccd todisk=t

# loop over masks...
foreach mask ( $masks )

    # select the specified mask...
    slitmask $mask
    if ( $status != 0 ) then
	printf "ERROR selecting mask $mask --- skipping\n"
	beep 3
	continue
    endif

    # acquire an exposure...
    object Direct image mask $mask
    goi
end

abort:
modify -s deiccd todisk=$todisk_old
restore_state -dv $save_file
\rm $save_file
lamps off
exit