! @(#)echelle.ctx	17.1.1.1 (ES0-DMD) 01/25/02 17:50:19
!===========================================================================
! 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
!===========================================================================
!
!+++++++++++++++++++++++++++++++++++++++++++++++++++++++
!
!.COPYRIGHT   (C) 1994 European Southern Observatory
!.IDENT       echelle.ctx
!.AUTHOR      Pascal Ballester,  ESO - Garching
!.KEYWORDS    Spectroscopy, Echelle, 
!.PURPOSE     Context file of echelle package
!.VERSION     1.0    Creation    25-AUG-1994 PB
!
!-------------------------------------------------------
! indicate origin of context
!HELP = stdred
!
DEFINE/LOCAL LERR/I/1/1 'ERROR(2)'		!save current user level
SET/MIDAS USER=EXPERT
SET/CONTEXT   spec				!set context SPEC first
!
! instrument specific commands
!
create/COMM  INITIAL/EMMI      @s necemmi
create/COMM  SPLIT/UVES        @s necsplituves
create/COMM  WPROJECT/UVES     @s necpreduves
create/COMM  WMATCH/ECHELLE    @s necmsrawxy
create/COMM  WCALIB/UVES       @s neccalmap
create/COMM  PLOT/RESOLUTION   @s necdispres
!
! level 1 commands
!
create/COMM  LOAD/ECHELLE      @s necload
create/COMM  LOAD/SEARCH       @s necldsear
create/COMM  REGRES/ECHELLE    @s necregr
create/COMM  AVERAGE/TABLE     @s necavtab
create/COMM  CONVERT/ECHELLE   @s necconv
create/COMM  EXTRACT/ORDER     @s necexor
create/COMM  HOUGH/ECHELLE     @s nechough
create/COMM  PREPARE/BACKGR    @s necbackprep
create/COMM  SEARCH/ORDER      @s necsord
create/COMM  VERIFY/ECHELLE    @s necverif
create/COMM  UPDATE/ECHELLE    @s necupdate
create/COMM  UPDATE/ORDER      @s necorder
create/COMM  OFFSET/ECHELLE    @s necoffset
create/COMM  DISPLAY/ECHELLE   @s necdisp
!
!create/COMM  SEGMENT/ORDERS    @s necsegment
!create/COMM  ANALYZE/ZEBRA     @s neczebpar
!create/COMM  DEFINE/ZEBRA      @s neczebdef
!create/COMM  EDIT/ECHELLE      @s necedit
!create/COMM  RIPPLE/MEDIAN     @s necrippexp
!create/COMM  NORMALIZE/ECHELLE @s necrippexp
!
create/COMM  BACKGR/ECHELLE    @s necback
create/COMM  BACKGR/SMOOTH     @s necbackexp
create/COMM  DEFINE/HOUGH      @s necdefh
create/COMM  DEFINE/ECHELLE    @s necdefi
create/COMM  EXTRACT/ECHELLE   @s necextr
create/COMM  EXTRACT/OPTIMAL   @s necopt
create/COMM  IDENTIFY/ECHELLE  @s neciden
create/COMM  MERGE/ECHELLE     @s necmerg
create/COMM  MERGE/OPTIMAL     @s necmgopt
create/COMM  PREPARE/WINDOW    @s necprep
create/COMM  REBIN/ECHELLE     @s necrebi
create/COMM  RIPPLE/ECHELLE    @s necripp 
create/COMM  ROTATE/ECHELLE    @s necrota
create/COMM  SCAN/ECHELLE      @s necscan
create/COMM  SEARCH/ECHELLE    @s necsear
create/COMM  SELECT/BACKGROUND @s necselback
create/COMM  SUBTRACT/BACKGR   @s necremback
create/COMM  TUTORIAL/ECHELLE  @s necdemo
!
create/COMM  SET/ECHELLE       @a keyset
create/COMM  HELP/ECHELLE      @a keyhelp
create/COMM  ERROR/ECHELLE     @a keyerror
create/COMM  SAVINIT/ECHELLE   @a keyrdwr
create/COMM  KEYDEL/ECHELLE    @a keydel
create/COMM  SAVE/ECHELLE      @s necsave
create/COMM  SHOW/ECHELLE      @s necshow
create/COMM  INITIAL/ECHELLE   @s necinit
create/COMM  CLEAN/ECHELLE     @s necclean
create/COMM  SYNCHRONIZE/ECHEL @s necsync
!
create/COMM  PLOT/ECHELLE      @s necplot
create/COMM  LOAD/IDENT        @s neclide
create/COMM  LOAD/CALIB        @s neclocal
create/COMM  PLOT/RESIDUAL     @s necpres
create/COMM  PLOT/CALIBRATION  @s necompix
create/COMM  PLOT/IDENT        @s necpidn
create/COMM  OVERLAP/ECHELLE   @s necpov
!
! level 2 commands -
!
create/comm  define/sky        @s necdefsky
create/comm  extract/sky       @s necextsky
create/comm  PLOT/SPECTRUM     @s necplspec
create/COMM  CALIBRATE/ECHELLE @s neccali
create/COMM  FILTER/ECHELLE    @s necfilt
create/COMM  FLAT/ECHELLE      @s necflat
create/COMM  RESPONSE/ECHELLE  @s necresp
create/COMM  REPEAT/ECHELLE    @s necrepe
create/COMM  REDUCE/ECHELLE    @s necredu
create/COMM  REDUCE/SIMPLY     @s necsred
!
AUX_MODE(4) = 1            ! Copy all descriptors
ERROR(2) = LERR
SET/GRAPH   BIN=ON
! 
WRITE/OUT   "*************** Context Echelle enabled *******************"
WRITE/OUT   "***                                                     ***"
WRITE/OUT   "*** This version of the Echelle context has been        ***"
WRITE/OUT   "*** upgraded to allow world coordinates calibrations    ***"
WRITE/OUT   "*** The 94NOV version of the echelle context can be     ***"
WRITE/OUT   "*** activated with SET/CONTEXT echellec.                ***"
WRITE/OUT   "*** The echellec  context will be suppressed in 1996.   ***"
WRITE/OUT   "***                                                     ***" 
WRITE/OUT   "*** A Motif Graphical User Interface for this context   ***" 
WRITE/OUT   "*** can be activated with CREATE/GUI ECHELLE            ***" 
WRITE/OUT   "***                                                     ***" 
WRITE/OUT   "***********************************************************"
!
INIT/ECHELLE
!
entry clear
! 
@a keydel ? echel ! Session manager takes care of deleting keywords