File: mscred.cl

package info (click to toggle)
iraf-mscred 5.05%2B2018.07.09-1
  • links: PTS, VCS
  • area: main
  • in suites: bookworm, bullseye, buster, sid
  • size: 6,472 kB
  • sloc: lisp: 10,194; ansic: 1,288; makefile: 24
file content (195 lines) | stat: -rw-r--r-- 5,123 bytes parent folder | download
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
#{ MSCRED -- Mosaic CCD Reduction Package

# Load dependent packages.
if (deftask ("fitsutil"))
    fitsutil
else
    ;
nproto
astutil
digiphot
apphot
photcal
if (deftask ("astcat"))
    astcat
else
    ;

# This package requires FITS image type and various kernel parameters.
reset imtype = "fits"
if (defvar ("fkinit"))
    set fkinit = envget ("fkinit") // ",append,padlines=10,cachesize=60"
else
    set fkinit = "append,padlines=10,cachesize=60"


cl < "mscred$lib/zzsetenv.def"
package mscred, bin = mscbin$

# Logical directories.
set	xtcoeff		= "mscred$lib/xtcoeff/"
set	mccdred		= "mscsrc$ccdred/"
set	combine		= "mscsrc$ccdred/src/combine/"

# Tasks.

task	mscmedian	= mscsrc$mscmedian.cl
task	msctmp1		= mscsrc$msctmp1.cl
task	mscfindgain	= mscsrc$mscfindgain.cl
task	mscsplit	= mscsrc$mscsplit.cl
task	mscjoin		= mscsrc$mscjoin.cl
task	mscwfits	= mscsrc$mscwfits.cl
task	mscrfits	= mscsrc$mscrfits.cl
task	msctoshort	= mscsrc$msctoshort.cl
task	dispsnap	= mscsrc$dispsnap.cl

task	ccdproc		= mscsrc$ccdproc.cl
task	calproc		= mscsrc$calproc.cl
task	ccdhedit	= mscsrc$ccdhedit.cl
task	ccdlist		= mscsrc$ccdlist.cl
task	setinstrument	= mscsrc$setinstrument.cl

task	_ccdhedit,
	_ccdlist,
	_ccdtool	= mscsrc$x_ccdred.e

task	ccddelete,
	ccdgroups	= mccdred$x_ccdred.e
hidetask ccddelete, ccdgroups

task	combine,
	coutput,
	mergeamps	= combine$x_combine.e
hidetask coutput, mergeamps

task	darkcombine	= mccdred$darkcombine.cl
task	flatcombine	= mccdred$flatcombine.cl
task	sflatcombine	= mscsrc$sflatcombine.cl
task	zerocombine	= mccdred$zerocombine.cl

task	mscgetcatalog	= mscsrc$mscgetcatalog.cl
task	mscagetcat	= mscsrc$mscagetcat.cl
task	mscsetwcs	= mscsrc$mscsetwcs.cl
task	msczero		= mscsrc$msczero.cl
task	mscxreg		= mscsrc$mscxreg.cl
task	mscimage	= mscsrc$mscimage.cl
task	mscoimage	= mscsrc$mscoimage.cl
task	mscstack	= mscsrc$mscstack.cl
#task	mscdither	= mscsrc$mscdither.cl
task	msccmd		= mscsrc$msccmd.cl
task	mscarith	= mscsrc$mscarith.cl
task	mscstat		= mscsrc$mscstat.cl
#task	mscimatch	= mscsrc$mscimatch.cl
#task	ffpupilcor	= mscsrc$ffpupilcor.cl
task	rmfringe	= mscsrc$rmfringe.cl
task	rmpupil		= mscsrc$rmpupil.cl
task	irmfringe	= mscsrc$irmfringe.cl
task	irmpupil	= mscsrc$irmpupil.cl
task	mscpupil	= mscsrc$mscpupil.cl
task	mscblkavg	= mscsrc$mscblkavg.cl
task	mscpixarea	= mscsrc$mscpixarea.cl
#task	xtalkcor	= mscsrc$xtalkcor.cl
task	mscqphot	= mscsrc$mscqphot.cl
task	msccntr		= mscsrc$msccntr.cl
task	mscshutcor	= mscsrc$mscshutcor.cl
task	mscselect	= mscsrc$mscselect.cl

task	addkey,
	fitscopy,
	getcatalog,
	joinlists,
	mkmsc,
	msccmatch,
	mscctran,
	mscextensions,
	mscgmask,
	mscimatch,
	mscpmask,
	mscskysub,
	msctemplate,
	mscwtemplate,
	mscwcs,
	mscuniq,
	patfit,
	pixarea,
	pupilfit,
	toshort,
	ximstat,
	xlog,
	xtalkcor,
	xtcoeff		= mscsrc$x_mscred.e

# Photometry parameters.
#task	msccpars	= mscsrc$msccpars.par
#task	mscdpars	= mscsrc$mscdpars.par
#task	mscppars	= mscsrc$mscppars.par
#task	mscspars	= mscsrc$mscspars.par

hidetask ximstat, joinlists, mscoimage, msccntr
hidetask addkey, fitscopy, calproc, getcatalog
hidetask mscgmask, mscpmask, msctemplate, mscwtemplate
hidetask mscxreg, mscuniq, mscextensions
hidetask patfit, pupilfit, toshort, xlog
#hidetask msccpars, mscdpars, mscppars, mscspars
hidetask dispsnap, mscqphot, pixarea, msctmp1

# Special version of utilities.curfit
task	msccurfit	= "mscsrc$curfit/x_mscred.e"
hidetask msccurfit

# Display stuff.

#task	newdisplay = "mscsrc$display/x_display.e"

task	msctvmark	= "mscsrc$msctvmark.cl"
task	mscztvmark	= "mscsrc$mscztvmark.cl"

set	mscdisplay	= "mscsrc$mscdisplay/"
set	mosexam		= "mscdisplay$src/imexam/"
set	starfocus	= "mscdisplay$src/starfocus/"

task	mscstarfocus	= starfocus$x_mscdisplay.e; hidetask mscstarfocus
task	mscfocus	= starfocus$mscfocus.cl

task	mscdisplay,
	mscrtdisplay	= mscdisplay$x_mscdisplay.e
task	mimpars		= mscdisplay$mimpars.par

hidetask mscrtdisplay, mscztvmark

task    mscexamine    = "mosexam$x_mscexam.e"

task    cimexam2 = mosexam$cimexam2.par;    hidetask cimexam2
task    eimexam2 = mosexam$eimexam2.par;    hidetask eimexam2
task    himexam2 = mosexam$himexam2.par;    hidetask himexam2
task    jimexam2 = mosexam$jimexam2.par;    hidetask jimexam2
task    kimexam2 = mosexam$kimexam2.par;    hidetask kimexam2
task    limexam2 = mosexam$limexam2.par;    hidetask limexam2
task    rimexam2 = mosexam$rimexam2.par;    hidetask rimexam2
task    simexam2 = mosexam$simexam2.par;    hidetask simexam2
task    vimexam2 = mosexam$vimexam2.par;    hidetask vimexam2

task	mscotfflat	= "mscdisplay$mscotfflat.cl"
task	flatcompress	= "mscdisplay$flatcompress.cl"
hidetask flatcompress

# Stuff for PICREAD data.
#task	mkfits		= mscsrc$picread/mkfits.cl
#task	mosfocus	= mscsrc$picread/mosfocus.cl

# Subpackages

set	mscfinder	= "mscsrc$mscfinder/"
task	$mscfinder	= mscfinder$mscfinder.cl

set	mscpipeline	= "mscsrc$mscpipeline/"
task	mscpipeline	= mscpipeline$mscpipeline.cl
hidetask mscpipeline

set	msctest		= "mscsrc$msctest/"
task	$msctest	= msctest$msctest.cl; 	 hidetask msctest

set	msctools	= "mscsrc$msctools/"
#task	$msctools	= msctools$msctools.cl

clbye()