! @(#)surfphot.ctx	17.1.1.1 (ES0-DMD) 01/25/02 17:18:42
!===========================================================================
! 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
!===========================================================================
!
!++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
!.PURPOSE: Context for surface photometry commands
!.IDENT:   Context file surfphot.ctx
!.History: 840126 EAV  Created 
!          880105 KB  ???
!          890705 RHW  inclusion of Lauberts' software
!          901212, 920505 KB  take care of '\' in WRITE/OUT
!          910306 RHW  combining photom and morpholo contexts
!          940712 KB   add entry CLEAR
!---------------------------------------------------------------------------
! 
! *** indicate origin
!HELP = contrib
! 
SET/MIDAS USER=EXPERT
!
DEFINE/LOCAL LERR/I/1/1 {ERROR(2)}
ERROR(2) = LERR
WRITE/KEYW MORPH/C/1/61 " "
WRITE/KEYW MORPH/C/61/1 "Z"
!
! Create the SURFPHOT commands
!
! display version of application package
WRITE/OUT ******** SURFPHOT application package version 1.0 enabled **********
WRITE/OUT commands available: 
WRITE/OUT
CREA/COMM   COMPUTE/GRID     @c grid
WRITE/OUT  "COMPUTE/GRID     create frame with distorted rectangular evenly spaced grid"
CREATE/COMM  COMPUTE/FCOEFF   @c sgpfc
WRITE/OUT  "COMPUTE/FCOEFF   compute fourier coefficients of azimuthal profiles"
WRITE/OUT  "                 of a galaxy"
CREA/COMM   FILTER/FILL      @c filtfl
WRITE/OUT  "FILTER/FILL      fill up low-flux pixels with neightbouring values "
CREA/COMM   FIT/BACKGROUND   @c bgfit
WRITE/OUT  "FIT/BACKGROUND   compute a 2-dim. polyn. background approximation"
CREATE/COMM  FIT/ELL1         @c fitell1
WRITE/OUT  "FIT/ELL1         fits an ellipse with respect to predefined center"
CREATE/COMM  FIT/ELL2         @c fitell2
WRITE/OUT  "FIT/ELL2         fits an ellips with respect to predefined center"
CREATE/COMM  FIT/ELL3         @c fitell3
WRITE/OUT  "FIT/ELL3         fit an ellipse using the Bender & Moellenhof method"
CREATE/COMM  FIT/POSINC       @c sgfpi
WRITE/OUT  "FIT/POSINC       fit position angle and inclination to 2nd and 4th harmonic"
CREA/COMM   NORMALIZE/IMAGE  @c normalize
WRITE/OUT  "NORMALIZE/IMAGE  normalize and truncate a frame"
CREATE/COMM  FIND/POSINC      @c sgepi
WRITE/OUT  "FIND/POSINC      find position angle and inclination of a galaxy"
CREA/COMM   REBIN/DECONV     @c rebdec
WRITE/OUT  "REBIN/DECONV     rebin linearly and deconvolve point spread function"
CREA/COMM   RECTIFY/IMAGE    @c rectima
WRITE/OUT  "RECTIFY/IMAGE    rectify a geometrically distorted frame"
CREA/COMM   SUBTRACT/SKY     @c subsky
WRITE/OUT  "SUBTRACT/SKY     compute most probable sky value and subtract "
!CREATE/COMM COMPUTE/CC       @c comcc
!WRITE/OUT  "COMPUTE/CC      compute characteristic curve values"
!CREATE/COMM COMPUTE/SKY      @c comsky
!WRITE/OUT  "COMPUTE/SKY     computes sky background"
!CREATE/COMM CONVERT/DTOM     @c dtom
!WRITE/OUT  "CONVERT/DTOM    determines (fits) characteristic curve"
!CREATE/COMM CONVERT/DTOI     @c dtoi
!WRITE/OUT  "CONVERT/DTOI    transforms image from density to intensity"
CREATE/COMM  INTEGRATE/ELLIPS @c intell
WRITE/OUT  "INTEGRATE/ELLIPS integrates pixel intensities within ellipse"
CREATE/COMM  FIND/PAIR        @c pair
WRITE/OUT  "FIND/PAIR        matches two point sets with coords in table files"
! 
! 
entry clear
! 
delete/keyw morph