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
|
#{ DESTREAK5 -- Destreak all five images from a vacuum telescope tape. The
# script accepts the general input image filename and the general output
# image filename from the user (and now the scratch disk). Destreak5
# appends a digit [1-5] to the file name for each file read and each
# corresponding file written.
# getinput,s,a,,,,General input filename for the 5 images
# getoutput,s,a,,,,General output filename for the 5 images
# inim,s,h
# outim,s,h
{
inim = getinput
outim = getoutput
if (access("vtelscr$"//inim//"001")) {
readvt ("vtelscr$"//inim//"001", inim//"tmp1")
quickfit (inim//"tmp1001",verbose=yes)
delete ("vtelscr$"//inim//"001")
getsqib (inim//"tmp1001", inim//"sqib1")
destreak (inim//"tmp1001", inim//"temp1", inim//"tmpr1")
imdelete (inim//"tmp1001")
imdelete (inim//"tmpr1")
putsqib (inim//"temp1", inim//"sqib1", outim//"1")
imdelete (inim//"temp1")
imdelete (inim//"sqib1")
} else {
print ("vtelscr$"//inim//"001 not accessable")
}
if (access("vtelscr$"//inim//"002")) {
readvt ("vtelscr$"//inim//"002", inim//"tmp2")
quickfit (inim//"tmp2001",verbose=yes)
delete ("vtelscr$"//inim//"002")
getsqib (inim//"tmp2001", inim//"sqib2")
destreak (inim//"tmp2001", inim//"temp2", inim//"tmpr2")
imdelete (inim//"tmp2001")
imdelete (inim//"tmpr2")
putsqib (inim//"temp2", inim//"sqib2", outim//"2")
imdelete (inim//"temp2")
imdelete (inim//"sqib2")
} else {
print ("vtelscr$"//inim//"002 not accessable")
}
if (access("vtelscr$"//inim//"003")) {
readvt ("vtelscr$"//inim//"003", inim//"tmp3")
quickfit (inim//"tmp3001",verbose=yes)
delete ("vtelscr$"//inim//"003")
getsqib (inim//"tmp3001", inim//"sqib3")
destreak (inim//"tmp3001", inim//"temp3", inim//"tmpr3")
imdelete (inim//"tmp3001")
imdelete (inim//"tmpr3")
putsqib (inim//"temp3", inim//"sqib3", outim//"3")
imdelete (inim//"temp3")
imdelete (inim//"sqib3")
} else {
print ("vtelscr$"//inim//"003 not accessable")
}
if (access("vtelscr$"//inim//"004")) {
readvt ("vtelscr$"//inim//"004", inim//"tmp4")
quickfit (inim//"tmp4001",verbose=yes)
delete ("vtelscr$"//inim//"004")
getsqib (inim//"tmp4001", inim//"sqib4")
destreak (inim//"tmp4001", inim//"temp4", inim//"tmpr4")
imdelete (inim//"tmp4001")
imdelete (inim//"tmpr4")
putsqib (inim//"temp4", inim//"sqib4", outim//"4")
imdelete (inim//"temp4")
imdelete (inim//"sqib4")
} else {
print ("vtelscr$"//inim//"004 not accessable")
}
if (access("vtelscr$"//inim//"005")) {
readvt ("vtelscr$"//inim//"005", inim//"tmp5")
quickfit (inim//"tmp5001",verbose=yes)
delete ("vtelscr$"//inim//"005")
getsqib (inim//"tmp5001", inim//"sqib5")
destreak (inim//"tmp5001", inim//"temp5", inim//"tmpr5")
imdelete (inim//"tmp5001")
imdelete (inim//"tmpr5")
putsqib (inim//"temp5", inim//"sqib5", outim//"5")
imdelete (inim//"temp5")
imdelete (inim//"sqib5")
} else {
print ("vtelscr$"//inim//"004 not accessable")
}
}
|
