Initial commit

1 files changed, 41 insertions, 0 deletions

diff --git a/noao/imred/hydra/demos/mkdohydra.cl b/noao/imred/hydra/demos/mkdohydra.cl
new file mode 100644
index 00000000..543dadb5
--- /dev/null
+++ b/noao/imred/hydra/demos/mkdohydra.cl
@@ -0,0 +1,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 = ""