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
|
#{ CTIOSLIT package definition
# Define CTIOSLIT package
package ctioslit
set demos = "ctioslit$demos/"
# Slitproc
cl < doslit$doslittasks.cl
task sparams = "ctioslit$sparams.par"
# Onedspec tasks
task autoidentify,
continuum,
deredden,
dispcor,
dopcor,
identify,
refspectra,
reidentify,
sarith,
sflip,
slist,
splot,
specplot,
specshift = "onedspec$x_onedspec.e"
task scombine = "onedspec$scombine/x_scombine.e"
task aidpars = "onedspec$aidpars.par"
task bplot = "onedspec$bplot.cl"
task scopy = "onedspec$scopy.cl"
task dispcor1 = "onedspec$dispcor1.par"
# Different default parameters
task calibrate,
sensfunc,
standard = "ctioslit$x_onedspec.e"
# Apextract tasks
task apall,
apedit,
apfind,
apflatten,
apnormalize,
aprecenter,
apresize,
apsum,
aptrace = "apextract$x_apextract.e"
task apdefault = "apextract$apdefault.par"
task apparams = "apextract$apparams.par"
task apall1 = "apextract$apall1.par"
task apflat1 = "apextract$apflat1.par"
task apnorm1 = "apextract$apflat1.par"
# Longslit tasks
task illumination,
response = "twodspec$longslit/x_longslit.e"
task background = "generic$background.cl"
# Astutil tasks
task setairmass,
setjd = "astutil$x_astutil.e"
# Demos
task demos = "demos$demos.cl"
# Hide tasks from the user
hidetask apparams, apall1, apflat1, apnorm1, dispcor1, sparams
clbye()
|
