#!/bin/csh -f
#+
# rotatcal -- home (calibratre) the DEIMOS rotator
#
# Purpose:
#
# Usage:
# 
# Arguments:
# 
# Output:
# 
# Restrictions:
# 
# Exit values:
#	 0 = normal completion
#	 1 = wrong number of arguments
#
# Example:
#
#-
# Modification history:
#	2004-Oct-08	GDW	Original version
#-----------------------------------------------------------------------

set buf = $0
set cmd = $buf:t
set usage = "Usage: $cmd"

# verify args...
if ( $#argv > 0 ) then
  printf "$usage\n"
  exit 1
endif

# confirm...
printf "ARE YOU SURE you want to home the DEIMOS rotator? (y/n) [n]: "
set ans = $<
if ( "$ans" =~ y* ) then
    # perform the operation...
    modify -s deirot rotatcal=1
endif

exit