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/mkbig.cl | |
| download | iraf-linux-fa080de7afc95aa1c19a6e6fc0e0708ced2eadc4.tar.gz | |
Initial commit
Diffstat (limited to 'noao/imred/hydra/demos/mkbig.cl')
| -rw-r--r-- | noao/imred/hydra/demos/mkbig.cl | 29 |
1 files changed, 29 insertions, 0 deletions
diff --git a/noao/imred/hydra/demos/mkbig.cl b/noao/imred/hydra/demos/mkbig.cl new file mode 100644 index 00000000..80b88572 --- /dev/null +++ b/noao/imred/hydra/demos/mkbig.cl @@ -0,0 +1,29 @@ +# 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$mkbig.dat", + title="Hydra artificial image", header="demos$header.dat", + ncols=1500, nlines=256, wstart=5786., wend=7362., seed=1) +mkfibers ("demoflat", type="flat", fibers="demos$mkbig.dat", + title="Hydra artificial image", header="demos$header.dat", + ncols=1500, nlines=256, wstart=5786., wend=7362., seed=2) +mkfibers ("demoarc", type="henear", fibers="demos$mkbig.dat", + title="Hydra artificial image", header="demos$header.dat", + ncols=1500, nlines=256, wstart=5786., wend=7362., seed=3) + +# Create the setup files. +delete ("demoapid", verify=no, >& "dev$null") +list = "demos$mkbig.dat" +while (fscan (list, i, j) != EOF) + print (i, j, >> "demoapid") +list = "" |