1
!++++++++++++++++++++++++++++++++++++++++++++++++
3
! MIDAS procedure geotest.prg
4
! with entries for RAMP, SPEC1, SPEC2, SPEC3, WAVE
5
! for commands CREATE/RAMP, /WAVE, /SPC1, /SPC2, /SPC3
12
! @c geotest,ramp image slope angle dimension
16
! image - the output image name,
17
! slope - real slope (units/pixel along gradient),
19
! angle - integer position angle (degrees),
21
! dimension - integer dimensions of axes of image,
25
! @c geotest,spec1 image slope amplitude period phase dimension
29
! image - the output image name,
30
! slope - real wave slope,
32
! amplitude - real, wave amplitude,
34
! period - real period of wave,
36
! phase - real wave phase,
38
! dimension - integer dimensions of axes of image,
42
! @c geotest,spec2 image period slope amplitude phase dimension
46
! image - the output image name,
47
! period - integer period (1 to 20 are valid values),
48
! slope - real wave slope,
50
! phase - integer wave phase,
52
! dimension - integer dimensions of axes of image,
56
! @c geotest,spec3 image psf-option centring table boxwidth-or-fwhm
60
! image - the output image name.
61
! psf-option - a box of specified width (B, default); or
62
! a gaussian of specified full width half max. (G).
63
! centring - positions of lines vis-a-vis pixel centres.
65
! table - input table, giving positions of lines.
66
! Default is LINES.TBL.
67
! boxwidth - width of "box" PSF; if .LE. 0.001, then a delta
68
! function is used instead.
70
! fwhm - full width half maximum (greater than 0.2).
71
! Default of boxwidth or of fwhm is 1.0.
74
! @c geotest,wave image amplitude period dimension
78
! image - the output image name,
79
! amplitude - real wave amplitude,
81
! period - real period of wave,
83
! dimension - integer dimensions of axes of image,
89
! D. Ponz, ESO - IPG, Garching 860622
90
! F. Murtagh, ST-ECF, Garching 860707
91
! K. Banse, ESO - IPG, Garching 901107, 910108, 070522
93
!-----------------------------------------------------------
95
! **********************
97
! **********************
100
DEFINE/PARAM P1 ? IMA "Enter output image name:"
101
DEFINE/PARAM P2 1.0 NUMBER
102
DEFINE/PARAM P3 0 NUMBER
103
DEFINE/PARAM P4 128 NUMBER
105
WRITE/KEYW OUT_A {P1}
106
WRITE/KEYW INPUTR/R/1/1 {P2}
107
WRITE/KEYW INPUTI/I/1/1 {P3}
108
WRITE/KEYW INPUTI/I/2/1 {P4}
111
! **********************
113
! **********************
116
DEFINE/PARAM P1 ? IMA "Enter output image name:"
117
DEFINE/PARAM P2 0.0 NUMBER
118
DEFINE/PARAM P3 10.0 NUMBER
119
DEFINE/PARAM P4 8.5 NUMBER
120
DEFINE/PARAM P5 0.0 NUMBER
121
DEFINE/PARAM P6 128 NUMBER
123
WRITE/KEYW OUT_A {P1}
124
WRITE/KEYW INPUTR/R/1/1 {P2}
125
WRITE/KEYW INPUTR/R/2/1 {P3}
126
WRITE/KEYW INPUTR/R/3/1 {P4}
127
WRITE/KEYW INPUTR/R/4/1 {P5}
128
WRITE/KEYW INPUTI/I/1/1 {P6}
131
! **********************
133
! **********************
136
DEFINE/PARAM P1 ? IMA "Enter output image name:"
137
DEFINE/PARAM P2 10 NUMBER
138
DEFINE/PARAM P3 0.0 NUMBER
139
DEFINE/PARAM P4 1 NUMBER
140
DEFINE/PARAM P5 128 NUMBER
142
WRITE/KEYW OUT_A {P1}
143
WRITE/KEYW INPUTR/R/1/1 {P3}
144
WRITE/KEYW INPUTI/I/1/1 {P4}
145
WRITE/KEYW INPUTI/I/2/1 {P5}
146
WRITE/KEYW INPUTI/I/3/1 {P2}
149
! **********************
151
! **********************
154
DEFINE/PARAM P1 ? IMA "Enter output image name:"
155
DEFINE/PARAM P2 B CHARACTER
156
DEFINE/PARAM P3 0.645 NUMBER
157
DEFINE/PARAM P4 LINES TABLE
158
DEFINE/PARAM P5 1.0 NUMBER
160
WRITE/KEYW OUT_A {P1}
161
WRITE/KEYW INPUTC/C/1/1 {P2}
162
WRITE/KEYW INPUTR/R/1/1 {P3}
163
IF INPUTR .LT. 0.0 THEN
164
WRITE/OUT "Offset vis a vis pixel centre must be positive"
167
IF INPUTR .GT. 1.0 THEN
168
WRITE/OUT "Offset vis a vis pixel centre must be less than 1.0"
172
WRITE/KEYW IN_TAB/C/1/8 {P4}
173
WRITE/KEYW INPUTR/R/2/1 {P5}
174
IF P2(1:1) .EQ. "G" THEN
175
RUN CON_EXE:SPEC3G ! Gaussian psf used.
177
RUN CON_EXE:SPEC3B ! "Box" psf used.
180
! **********************
182
! **********************
185
DEFINE/PARAM P1 ? IMA "Enter output image name:"
186
DEFINE/PARAM P2 10.0 NUMBER
187
DEFINE/PARAM P3 8.5 NUMBER
188
DEFINE/PARAM P4 128 NUMBER
190
WRITE/KEYW OUT_A {P1}
191
WRITE/KEYW INPUTR/R/1/1 {P2}
192
WRITE/KEYW INPUTR/R/2/1 {P3}
193
WRITE/KEYW INPUTI/I/1/1 {P4}