! @(#)optopus.ctx	17.1.1.1 (ES0-DMD) 01/25/02 17:54:52
!===========================================================================
! Copyright (C) 1995 European Southern Observatory (ESO)
!
! This program is free software; you can redistribute it and/or 
! modify it under the terms of the GNU General Public License as 
! published by the Free Software Foundation; either version 2 of 
! the License, or (at your option) any later version.
!
! This program is distributed in the hope that it will be useful,
! but WITHOUT ANY WARRANTY; without even the implied warranty of
! MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
! GNU General Public License for more details.
!
! You should have received a copy of the GNU General Public 
! License along with this program; if not, write to the Free 
! Software Foundation, Inc., 675 Massachusetss Ave, Cambridge, 
! MA 02139, USA.
!
! Corresponding concerning ESO-MIDAS should be addressed as follows:
!	Internet e-mail: midas@eso.org
!	Postal address: European Southern Observatory
!			Data Management Division 
!			Karl-Schwarzschild-Strasse 2
!			D 85748 Garching bei Muenchen 
!			GERMANY
!===========================================================================
!
!+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
!.IDENTIFICATION: OPTOPUS.CTX
!.PURPOSE: Define standard OPTOPUS commands
!.AUTHOR: Alessandra Gemmo      Padova Department of Astronomy
!.VERSION: 910517 AG Creation
!---------------------------------------------------------------------------
! 
! *** indicate origin
!HELP = stdred
! 
!SET/MIDAS USER=EXPERT
!
! Create the OPTOPUS commands
!
CREATE/COMMAND CREATE/OPTOPUS           @s createopto
CREATE/COMMAND DRILL/OPTOPUS            @s drillopto
CREATE/COMMAND HOLES/OPTOPUS            @s holesopto
CREATE/COMMAND MODIFY/OPTOPUS           @s modifyopto
CREATE/COMMAND PLOT/OPTOPUS             @s plotopto
CREATE/COMMAND PRECESS/OPTOPUS          @s precesopto
CREATE/COMMAND REFRACTION/OPTOPUS       @s refracopto
CREATE/COMMAND FINISH/OPTOPUS           @s finishopto
CREATE/COMMAND RESTORE/OPTOPUS          @s restoropto
CREATE/COMMAND SAVE/OPTOPUS             @s saveopto
CREATE/COMMAND SET/OPTOPUS              @s setopto
CREATE/COMMAND SHOW/OPTOPUS             @s showopto
CREATE/COMMAND START/OPTOPUS            @s startopto
CREATE/COMMAND ZOOM/OPTOPUS             @s zoomopto
CREATE/COMMAND TUTORIAL/OPTOPUS         @s tutoopto
!
! start definition of keywords
!
SET/FORMAT F12.9
WRITE/KEYW INPUTFI/C/1/50  None
WRITE/KEYW OUTPUTF/C/1/50  None
WRITE/KEYW PLATECEN/D/1/6 0.,0.,0.,0.,0.,0.
WRITE/KEYW PLATEC1/D/1/2 0.,0.
WRITE/KEYW PLATECHA/C/1/80 0.,0.,0.
WRITE/KEYW EQUINOX/D/1/2 1950.,2000.
WRITE/KEYW EPOCH/D/1/1 2000.
WRITE/KEYW LABEL/C/1/40 "Optopus Plate"
WRITE/KEYW DATE/D/1/3 1999.,12.,31.
WRITE/KEYW EXPTIME/D/1/1 0.
WRITE/KEYW LAMBDA/D/1/2 3800.,8000.
WRITE/KEYW STSLOT/D/1/2 0.,0.
WRITE/KEYW SIDTIME/D/1/1 0.
WRITE/KEYW ACFLAG/C/1/1 Y
WRITE/KEYW PFLAG/C/1/1/ Y
WRITE/KEYW EWFLAG/C/1/1 N
WRITE/KEYW ASTFLAG/C/1/1 Y
WRITE/KEYW XF/D/1/4 0.,0.,0.,0.
WRITE/KEYW YF/D/1/4 0.,0.,0.,0.
WRITE/KEYW NAMECIRC/C/1/50 circle
WRITE/KEYW CIRDIM/D/1/2 0.,0.
!
WRITE/OUT "******************** Context Optopus enabled ********************"
WRITE/OUT
WRITE/OUT "Available commands are:"
WRITE/OUT "CREATE/OPTOPUS      Create table for HOLES/OPTOPUS command"
WRITE/OUT "DRILL/OPTOPUS       Write OPTOPUS drill command file"
WRITE/OUT "FINISH/OPTOPUS      Make drill file and plots, and save session" 
WRITE/OUT "HOLES/OPTOPUS       Calculate X and Y positions of targets"
WRITE/OUT "MODIFY/OPTOPUS      Plot on graphic screen positions of holes"
WRITE/OUT "PLOT/OPTOPUS        Plot positions of holes on Optopus plate"
WRITE/OUT "PRECESS/OPTOPUS     Precess RA and DEC coordinates to new equinox"
WRITE/OUT "REFRACTION/OPTOPUS  Correct for atmospheric refraction effects'
WRITE/OUT "RESTORE/OPTOPUS     Restore parameters used in old Optopus run"
WRITE/OUT "SAVE/OPTOPUS        Save parameters currently set"
WRITE/OUT "SET/OPTOPUS         Set parameters in Optopus context"
WRITE/OUT "SHOW/OPTOPUS        Show the setup parameters"
WRITE/OUT "START/OPTOPUS       Create table for HOLES/OPTO and precess coords."
WRITE/OUT "ZOOM/OPTOPUS        Blow up the area of the Optopus plate"
WRITE/OUT "TUTORIAL/OPTOPUS    Demonstrate the OPTOPUS package"
WRITE/OUT
! 
! 
entry clear
! 
delete/keyw INPUTFI,outputf,platecen,platec1,platecha
delete/keyw EQUINOX,epoch,label,date,exptime,lambda,stslot
delete/keyw SIDTIME,acflag,pflag,ewflag,astflag,xf,yf,namecirc,cirdim