← Back to branch summary

~ubuntu-branches/debian/jessie/eso-midas/jessie

« back to all changes in this revision

Viewing changes to stdred/optopus/etc/optopus.ctx

  • Committer: Package Import Robot
  • Author(s): Ole Streicher
  • Date: 2014-04-22 14:44:58 UTC
  • Revision ID: package-import@ubuntu.com-20140422144458-okiwi1assxkkiz39
Tags: upstream-13.09pl1.2+dfsg
Import upstream version 13.09pl1.2+dfsg

Show diffs side-by-side

added added

removed removed

Lines of Context:
stdred/optopus/etc/optopus.ctx
 
1
! @(#)optopus.ctx       19.1 (ES0-DMD) 02/25/03 14:27:18
 
2
!===========================================================================
 
3
! Copyright (C) 1995 European Southern Observatory (ESO)
 
4
!
 
5
! This program is free software; you can redistribute it and/or 
 
6
! modify it under the terms of the GNU General Public License as 
 
7
! published by the Free Software Foundation; either version 2 of 
 
8
! the License, or (at your option) any later version.
 
9
!
 
10
! This program is distributed in the hope that it will be useful,
 
11
! but WITHOUT ANY WARRANTY; without even the implied warranty of
 
12
! MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
 
13
! GNU General Public License for more details.
 
14
!
 
15
! You should have received a copy of the GNU General Public 
 
16
! License along with this program; if not, write to the Free 
 
17
! Software Foundation, Inc., 675 Massachusetss Ave, Cambridge, 
 
18
! MA 02139, USA.
 
19
!
 
20
! Corresponding concerning ESO-MIDAS should be addressed as follows:
 
21
!       Internet e-mail: midas@eso.org
 
22
!       Postal address: European Southern Observatory
 
23
!                       Data Management Division 
 
24
!                       Karl-Schwarzschild-Strasse 2
 
25
!                       D 85748 Garching bei Muenchen 
 
26
!                       GERMANY
 
27
!===========================================================================
 
28
!
 
29
!+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
 
30
!.IDENTIFICATION: OPTOPUS.CTX
 
31
!.PURPOSE: Define standard OPTOPUS commands
 
32
!.AUTHOR: Alessandra Gemmo      Padova Department of Astronomy
 
33
!.VERSION: 910517 AG Creation
 
34
!---------------------------------------------------------------------------
 
35
! 
 
36
! *** indicate origin
 
37
!HELP = stdred
 
38
! 
 
39
!SET/MIDAS USER=EXPERT
 
40
!
 
41
! Create the OPTOPUS commands
 
42
!
 
43
CREATE/COMMAND CREATE/OPTOPUS           @s createopto
 
44
CREATE/COMMAND DRILL/OPTOPUS            @s drillopto
 
45
CREATE/COMMAND HOLES/OPTOPUS            @s holesopto
 
46
CREATE/COMMAND MODIFY/OPTOPUS           @s modifyopto
 
47
CREATE/COMMAND PLOT/OPTOPUS             @s plotopto
 
48
CREATE/COMMAND PRECESS/OPTOPUS          @s precesopto
 
49
CREATE/COMMAND REFRACTION/OPTOPUS       @s refracopto
 
50
CREATE/COMMAND FINISH/OPTOPUS           @s finishopto
 
51
CREATE/COMMAND RESTORE/OPTOPUS          @s restoropto
 
52
CREATE/COMMAND SAVE/OPTOPUS             @s saveopto
 
53
CREATE/COMMAND SET/OPTOPUS              @s setopto
 
54
CREATE/COMMAND SHOW/OPTOPUS             @s showopto
 
55
CREATE/COMMAND START/OPTOPUS            @s startopto
 
56
CREATE/COMMAND ZOOM/OPTOPUS             @s zoomopto
 
57
CREATE/COMMAND TUTORIAL/OPTOPUS         @s tutoopto
 
58
!
 
59
! start definition of keywords
 
60
!
 
61
SET/FORMAT F12.9
 
62
WRITE/KEYW INPUTFI/C/1/50  None
 
63
WRITE/KEYW OUTPUTF/C/1/50  None
 
64
WRITE/KEYW PLATECEN/D/1/6 0.,0.,0.,0.,0.,0.
 
65
WRITE/KEYW PLATEC1/D/1/2 0.,0.
 
66
WRITE/KEYW PLATECHA/C/1/80 0.,0.,0.
 
67
WRITE/KEYW EQUINOX/D/1/2 1950.,2000.
 
68
WRITE/KEYW EPOCH/D/1/1 2000.
 
69
WRITE/KEYW LABEL/C/1/40 "Optopus Plate"
 
70
WRITE/KEYW DATE/D/1/3 1999.,12.,31.
 
71
WRITE/KEYW EXPTIME/D/1/1 0.
 
72
WRITE/KEYW LAMBDA/D/1/2 3800.,8000.
 
73
WRITE/KEYW STSLOT/D/1/2 0.,0.
 
74
WRITE/KEYW SIDTIME/D/1/1 0.
 
75
WRITE/KEYW ACFLAG/C/1/1 Y
 
76
WRITE/KEYW PFLAG/C/1/1/ Y
 
77
WRITE/KEYW EWFLAG/C/1/1 N
 
78
WRITE/KEYW ASTFLAG/C/1/1 Y
 
79
WRITE/KEYW XF/D/1/4 0.,0.,0.,0.
 
80
WRITE/KEYW YF/D/1/4 0.,0.,0.,0.
 
81
WRITE/KEYW NAMECIRC/C/1/50 circle
 
82
WRITE/KEYW CIRDIM/D/1/2 0.,0.
 
83
!
 
84
WRITE/OUT "******************** Context Optopus enabled ********************"
 
85
WRITE/OUT
 
86
WRITE/OUT "Available commands are:"
 
87
WRITE/OUT "CREATE/OPTOPUS      Create table for HOLES/OPTOPUS command"
 
88
WRITE/OUT "DRILL/OPTOPUS       Write OPTOPUS drill command file"
 
89
WRITE/OUT "FINISH/OPTOPUS      Make drill file and plots, and save session" 
 
90
WRITE/OUT "HOLES/OPTOPUS       Calculate X and Y positions of targets"
 
91
WRITE/OUT "MODIFY/OPTOPUS      Plot on graphic screen positions of holes"
 
92
WRITE/OUT "PLOT/OPTOPUS        Plot positions of holes on Optopus plate"
 
93
WRITE/OUT "PRECESS/OPTOPUS     Precess RA and DEC coordinates to new equinox"
 
94
WRITE/OUT "REFRACTION/OPTOPUS  Correct for atmospheric refraction effects'
 
95
WRITE/OUT "RESTORE/OPTOPUS     Restore parameters used in old Optopus run"
 
96
WRITE/OUT "SAVE/OPTOPUS        Save parameters currently set"
 
97
WRITE/OUT "SET/OPTOPUS         Set parameters in Optopus context"
 
98
WRITE/OUT "SHOW/OPTOPUS        Show the setup parameters"
 
99
WRITE/OUT "START/OPTOPUS       Create table for HOLES/OPTO and precess coords."
 
100
WRITE/OUT "ZOOM/OPTOPUS        Blow up the area of the Optopus plate"
 
101
WRITE/OUT "TUTORIAL/OPTOPUS    Demonstrate the OPTOPUS package"
 
102
WRITE/OUT
 
103
! 
 
104
! 
 
105
entry clear
 
106
! 
 
107
delete/keyw INPUTFI,outputf,platecen,platec1,platecha
 
108
delete/keyw EQUINOX,epoch,label,date,exptime,lambda,stslot
 
109
delete/keyw SIDTIME,acflag,pflag,ewflag,astflag,xf,yf,namecirc,cirdim