! @(#)ccdred.ctx	17.1.1.1 (ES0-DMD) 01/25/02 17:48:45
!===========================================================================
! 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
!===========================================================================
!
! @(#)ccdred.ctx	17.1.1.1 (ESO-SDAG) 01/25/02 17:48:45
! ---------------------------------------------------------------------------
!.IDENTIFICATION: ccd.ctx
!.PURPOSE:        contains the setup of the ccd package
!.AUTHOR:         Rein H. Warmels
!.VERSION:        920810 RHW creation
!.VERSION:        930427 RHW change of names
!.VERSION:        930506 RHW inclusion of fringe and illumination commands
!		  940712 KB  add entry CLEAR
!		  950414 RHW delete mkredt; redefine ill/skycor, ill/skyflat
! +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
!
! *** indicate origin
!HELP = stdred
WRITE/OUT "*****    Context CCD standard reduction package enabled     *****"
WRITE/OUT "***   For an overview of the available commands use HELP/CCD  ***" 
WRITE/OUT " "
!
DEFINE/LOCAL LERR/I/1/1 {ERROR(2)}                    ! save current user level
SET/MIDAS USER=EXPERT
!
! *** create the CCD commands, first the general commands
CREATE/COMMAND INITIAL/CCD       @s ccdinit
CREATE/COMMAND LOAD/CCD          @s ccdload
CREATE/COMMAND SAVE/CCD          @s ccdsave
CREATE/COMMAND SET/CCD           @s ccdset
CREATE/COMMAND SHOW/CCD          @s ccdshow
CREATE/COMMAND ERROR/CCD         @a keyerror
CREATE/COMMAND HELP/CCD          @a keyhelp
CREATE/COMMAND SAVINIT/CCD       @a keyrdwr
!
! *** here for the reduction and combining commands
CREATE/COMMAND MKREDT/CCD        @s make_red.prg
!CREATE/COMMAND MKPIXTBL/CCD     @s make_pix
CREATE/COMMAND REDUCE/CCD        @s ccdreduce
CREATE/COMMAND COMBINE/CCD       @s ccdcombine
!
! *** here for the creation of calibration frame
CREATE/COMMAND ILLCOR/CCD        @s ccdflatcor
CREATE/COMMAND ILLFLAT/CCD       @s ccdflatcor
CREATE/COMMAND SKYCOR/CCD        @s ccdskycor
CREATE/COMMAND SKYFLAT/CCD       @s ccdskycor
CREATE/COMMAND FRCOR/CCD         @s ccdfrcor
!
! *** here for the correction commands
CREATE/COMMAND OVERSCAN/CCD      @s ccdscan
CREATE/COMMAND TRIM/CCD          @s ccdtrim
CREATE/COMMAND FIXPIX/CCD        @s ccdfixpix
CREATE/COMMAND BIAS/CCD          @s ccdbias
CREATE/COMMAND DARK/CCD          @s ccddark
CREATE/COMMAND FLAT/CCD          @s ccdflat
CREATE/COMMAND ILLUMIN/CCD       @s ccdillum
CREATE/COMMAND FRINGE/CCD        @s ccdfringe
!
! *** here for the mosaicing commands
CREATE/COMMAND CREATE/MOSAIC     @s mosaiccreate
CREATE/COMMAND SHIFT/MOSAIC      @s mosaicshift
CREATE/COMMAND ALIGN/MOSAIC      @s mosaicalign
CREATE/COMMAND MATCH/MOSAIC      @s mosaicmatch
CREATE/COMMAND FIT/MOSAIC        @s mosaicfit
!
! *** here for the mosaicing tutorial
CREATE/COMMAND TUTORIAL/MOSAIC   @s tutomosaic
!
ERROR(2) = LERR
! 
INIT/CCD
! 
! *** here clear all the context keywords
entry clear
! 
@a keydel ? ccd