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
|
#{ MAKEHELIUM --
# 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(inroot//"1.imh")) {
rmap (inroot//"1", outroot//"a1", outroot//"a3", outroot//"a2",
"H"//outroot//"a")
imdelete (inroot//"1")
} else {
print (inroot//"1 not accessable")
}
if (access(inroot//"2.imh")) {
rmap (inroot//"2", outroot//"b1", outroot//"b3", outroot//"b2",
"H"//outroot//"b")
imdelete (inroot//"2")
} else {
print (inroot//"2 not accessable")
}
if (access(inroot//"3.imh")) {
rmap (inroot//"3", outroot//"c1", outroot//"c3", outroot//"c2",
"H"//outroot//"c")
imdelete (inroot//"3")
} else {
print (inroot//"3 not accessable")
}
if (access(inroot//"4.imh")) {
rmap (inroot//"4", outroot//"d1", outroot//"d3", outroot//"d2",
"H"//outroot//"d")
imdelete (inroot//"4")
} else {
print (inroot//"4 not accessable")
}
if (access(inroot//"5.imh")) {
rmap (inroot//"5", outroot//"e1", outroot//"e3", outroot//"e2",
"H"//outroot//"e")
imdelete (inroot//"5")
} else {
print (inroot//"5 not accessable")
}
}
|
