diff options
| author | Joseph Hunkeler <jhunkeler@gmail.com> | 2015-07-08 20:46:52 -0400 |
|---|---|---|
| committer | Joseph Hunkeler <jhunkeler@gmail.com> | 2015-07-08 20:46:52 -0400 |
| commit | fa080de7afc95aa1c19a6e6fc0e0708ced2eadc4 (patch) | |
| tree | bdda434976bc09c864f2e4fa6f16ba1952b1e555 /noao/imred/hydra/demos/mkdonessie.cl | |
| download | iraf-linux-fa080de7afc95aa1c19a6e6fc0e0708ced2eadc4.tar.gz | |
Initial commit
Diffstat (limited to 'noao/imred/hydra/demos/mkdonessie.cl')
| -rw-r--r-- | noao/imred/hydra/demos/mkdonessie.cl | 36 |
1 files changed, 36 insertions, 0 deletions
diff --git a/noao/imred/hydra/demos/mkdonessie.cl b/noao/imred/hydra/demos/mkdonessie.cl new file mode 100644 index 00000000..e67a90e1 --- /dev/null +++ b/noao/imred/hydra/demos/mkdonessie.cl @@ -0,0 +1,36 @@ +# 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$mkdonessie.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$mkdonessie.dat", + title="Hydra artificial image", header="demos$header.dat", + ncols=100, nlines=256, wstart=5786., wend=7362., seed=2) +mkfibers ("demoarc1", type="ehenear", fibers="demos$mkdonessie.dat", + title="Hydra artificial image", header="demos$header.dat", + ncols=100, nlines=256, wstart=5786., wend=7362., seed=3) +mkfibers ("demoarc2", type="ohenear", fibers="demos$mkdonessie.dat", + title="Hydra artificial image", header="demos$header.dat", + ncols=100, nlines=256, wstart=5786., wend=7362., seed=4) +#mkfibers ("demoarc3", type="mercury", fibers="demos$mkdonessie.dat", +# title="Hydra artificial image", header="demos$header.dat", +# ncols=100, nlines=256, wstart=5786., wend=7362., seed=4) + +# Create the setup files. +delete ("demoapid,demoarcrep", verify=no, >& "dev$null") +list = "demos$mkdonessie.dat" +while (fscan (list, i, j) != EOF) + print (i, j, >> "demoapid") +list = "" +print ("demoarc1 demoarc2 1x2", > "demoarcrep") |