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
|
#{ MAKEIMAGES --
# getinroot,s,a,,,,Input root file name
# getoutroot,s,a,,,,Root filename for output images
# inroot,s,h
# outroot,s,h
{
inroot = getinroot
outroot = getoutroot
if (access("scratch$"//inroot//"001")) {
readvt ("scratch$"//inroot//"001", inroot//"tmp1")
quickfit (inroot//"tmp1001",verbose=yes)
rmap (inroot//"tmp1001",outroot//"a1",outroot//"a3",
outroot//"a2","H"//outroot//"a")
delete ("scratch$"//inroot//"001")
imdelete (inroot//"tmp1001")
} else {
print ("scratch$"//inroot//"001 not accessable")
}
if (access("scratch$"//inroot//"002")) {
readvt ("scratch$"//inroot//"002", inroot//"tmp2")
quickfit (inroot//"tmp2001",verbose=yes)
rmap (inroot//"tmp2001",outroot//"b1",outroot//"b3",
outroot//"b2","H"//outroot//"b")
delete ("scratch$"//inroot//"002")
imdelete (inroot//"tmp2001")
} else {
print ("scratch$"//inroot//"002 not accessable")
}
if (access("scratch$"//inroot//"003")) {
readvt ("scratch$"//inroot//"003", inroot//"tmp3")
quickfit (inroot//"tmp3001",verbose=yes)
rmap (inroot//"tmp3001",outroot//"c1",outroot//"c3",
outroot//"c2","H"//outroot//"c")
delete ("scratch$"//inroot//"003")
imdelete (inroot//"tmp3001")
} else {
print ("scratch$"//inroot//"003 not accessable")
}
if (access("scratch$"//inroot//"004")) {
readvt ("scratch$"//inroot//"004", inroot//"tmp4")
quickfit (inroot//"tmp4001",verbose=yes)
rmap (inroot//"tmp4001",outroot//"d1",outroot//"d3",
outroot//"d2","H"//outroot//"d")
delete ("scratch$"//inroot//"004")
imdelete (inroot//"tmp4001")
} else {
print ("scratch$"//inroot//"004 not accessable")
}
if (access("scratch$"//inroot//"005")) {
readvt ("scratch$"//inroot//"005", inroot//"tmp5")
quickfit (inroot//"tmp5001",verbose=yes)
rmap (inroot//"tmp5001",outroot//"e1",outroot//"e3",
outroot//"e2","H"//outroot//"e")
delete ("scratch$"//inroot//"005")
imdelete (inroot//"tmp5001")
} else {
print ("scratch$"//inroot//"005 not accessable")
}
}
|
