1
! @(#)feros.ctx 19.1 (ESO-IPG) 02/25/03 14:20:49
2
! @(#)feros.ctx 1.1 LSW Heidelberg 19.12.1997
3
!+++++++++++++++++++++++++++++++++++++++++++++++++++++++
4
!.COPYRIGHT (c) 1997 European Southern Observatory
6
!.AUTHOR Anton Malina, LSW Heidelberg
7
!.KEYWORDS Spectroscopy, Echelle, FEROS
8
!.PURPOSE Context file of feros package
9
!.VERSION 1.1 19. Dec 1997
10
!-------------------------------------------------------
12
!indicate origin of context
15
DEFINE/LOCAL LERR/I/1/1 'ERROR(2)' !save current user level
22
CREATE/COMM INITIALIZE/FEROS @s ferosinit
23
CREATE/COMM SAVE/FEROS @s ferossave
24
CREATE/COMM SHOW/FEROS @s ferosshow
26
CREATE/COMM SET/FEROS @a keyset
27
CREATE/COMM SAVINIT/FEROS @a keyrdwr
28
CREATE/COMM HELP/FEROS @a keyhelp
29
CREATE/COMM KEYDEL/FEROS @a keydel
31
CREATE/COMM DEFINE/FEROS @s feroslocate
32
CREATE/COMM BACKGR/FEROS @s ferosbackgnd
33
CREATE/COMM RECTIFY/FEROS @s ferosstraight
34
CREATE/COMM EXTRACT/FEROS @s ferosextract
35
CREATE/COMM FLAT/FEROS @s ferosunblaze
36
CREATE/COMM SEARCH/FEROS @s ferosfind
37
CREATE/COMM CALIBRATE/FEROS @s feroscalibrate
38
CREATE/COMM REBIN/FEROS @s ferosrebin1d
39
CREATE/COMM MERGE/FEROS @s ferosmerge
41
CREATE/COMM IMAQUAL/FEROS @s ferosimaqual
43
CREATE/COMM TUTORIAL/FEROS @s ferosdemo
45
!--------------------------------------------------------------------------
46
! Otmar Stahl, 25-FEB-1999
47
! user visible changes after installation in La Silla:
49
! the following commands changed names for compatibility with context echelle
51
! BACKGND/FEROS -> BACKGR/FEROS
52
! LOCATE/FEROS -> DEFINE/FEROS
53
! STRAIGHTEN/FEROS -> RECTIFY/FEROS
54
! UNBLAZE/FEROS -> FLAT/FEROS
55
! FIND/FEROS -> SEARCH/FEROS
57
! the following command was replaced (only internally used in ferosmerge)
59
! ECHMERG/FEROS -> @s ferosmerge1
60
!--------------------------------------------------------------------------
62
AUX_MODE(4) = 1 ! Copy all descriptors
66
WRITE/OUT "****************** Context feros enabled ******************"
68
WRITE/OUT "** Use TUTORI/FEROS for a demonstration of the commands. **"
69
WRITE/OUT "** All suggestions and comments will be most welcome **"
70
WRITE/OUT "** (contact midas@eso.org). **"
72
WRITE/OUT "***********************************************************"