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
|
# Create demo data if needed.
artdata
artdata.nxc = 5
artdata.nyc = 5
artdata.nxsub = 10
artdata.nysub = 10
artdata.nxgsub = 5
artdata.nygsub = 5
artdata.dynrange = 100000.
artdata.psfrange = 10.
artdata.ranbuf = 0
mkfibers ("demoobj", type="object", fibers="demos$mkdohydra1.dat",
title="Hydra artificial image", header="demos$header.dat",
ncols=100, nlines=256, wstart=5786., wend=7362., seed=1)
mkfibers ("demoflat", type="flat", fibers="demos$mkdohydra1.dat",
title="Hydra artificial image", header="demos$header.dat",
ncols=100, nlines=256, wstart=5786., wend=7362., seed=2)
mkfibers ("demoarc", type="henear", fibers="demos$mkdohydra1.dat",
title="Hydra artificial image", header="demos$header.dat",
ncols=100, nlines=256, wstart=5786., wend=7362., seed=3)
mkfibers ("demostd", type="object", fibers="demos$mkdohydra2.dat",
title="Hydra artificial image", header="demos$header.dat",
ncols=100, nlines=256, wstart=5786., wend=7362., seed=1)
# Create the setup files.
delete ("demoapid1", verify=no, >& "dev$null")
list = "demos$mkdohydra1.dat"
while (fscan (list, i, j) != EOF) {
print (i, j, "Title", >> "demoapid1")
s1 = i // " " // j // " 01:23:45.67 +01:23:45.67 Title"
hedit ("demoobj,demoflat,demoarc,demostd", "slfib"//i, s1,
add=yes, verify=no, show=no, update=yes)
}
list = ""
delete ("demoapid2", verify=no, >& "dev$null")
list = "demos$mkdohydra2.dat"
while (fscan (list, i, j) != EOF)
print (i, j, >> "demoapid2")
list = ""
|
