#!/bin/csh -f
#+
# image_slitmasks -- acquire images of LRIS user slitmasks
#
# Purpose:
#	Configure spectrograph for zeroth order imaging, turn on appropriate
#	lamps, and acquire direct images of LRIS 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_slitmasks.tcl GUI
#
# Example:
#	1) take images of all user masks currently loaded:
#		image_slitmasks 
#
#	2) take images of all masks FOOBAR1 and FOOBAR2
#		image_slitmasks FOOBAR1 FOOBAR2
#
#-
# Modification history:
#	2004-Nov-08	GDW	Original version
#	2005-Apr-02	GDW	Changed invalid flags for save_state and restore_state
#-----------------------------------------------------------------------

set buf = $0
set cmd = $buf:t
set usage = "Usage: $cmd"
set masks = `consort slitname | awk 'NR<2 || /long/ || /direct/ || /focus/ || /INDEF/{next}{print $1}'`
set filter = G
set save_file = $cmd.$$

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

# print welcome message...
cat <<EOF
------------------------------------------------------------------------
			   Image Slitmasks
------------------------------------------------------------------------

List of masks to be imaged:
EOF

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

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

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

# configure the instrument for G-band imaging on the blue side...
set_state -v <<EOF
lris TRAPDOOR closed
lris DICHNAME 560
lris GRISNAME clear
lris BLUFILT G
EOF
if ( $status != 0 ) then
    printf "ERROR configuring instrument -- abort!\n"
    beep 3
    exit 1
endif

lamps Ar			# turn on Ar lamps
tintb 1				# set exposure time to 2 sec
fullframeb                      # put blue CCD in direct imaging mode

onintr abort

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

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

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

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

abort:
modify -s lrisblue todisk=$todisk_old
lamps off
restore_state -d -v $save_file
\rm $save_file
exit