From fa080de7afc95aa1c19a6e6fc0e0708ced2eadc4 Mon Sep 17 00:00:00 2001 From: Joseph Hunkeler Date: Wed, 8 Jul 2015 20:46:52 -0400 Subject: Initial commit --- noao/imred/hydra/demos/big.cl | 13 ++ noao/imred/hydra/demos/demos.cl | 18 ++ noao/imred/hydra/demos/demos.men | 13 ++ noao/imred/hydra/demos/demos.par | 2 + noao/imred/hydra/demos/dohydra.cl | 12 ++ noao/imred/hydra/demos/dohydra1.cl | 12 ++ noao/imred/hydra/demos/dohydral.cl | 13 ++ noao/imred/hydra/demos/dohydranl.cl | 14 ++ noao/imred/hydra/demos/donessie.cl | 12 ++ noao/imred/hydra/demos/fibers.dat | 44 +++++ noao/imred/hydra/demos/header.dat | 36 ++++ noao/imred/hydra/demos/mkbig.cl | 29 ++++ noao/imred/hydra/demos/mkbig.dat | 300 +++++++++++++++++++++++++++++++++ noao/imred/hydra/demos/mkdohydra.cl | 41 +++++ noao/imred/hydra/demos/mkdohydra1.dat | 12 ++ noao/imred/hydra/demos/mkdohydra2.dat | 12 ++ noao/imred/hydra/demos/mkdonessie.cl | 36 ++++ noao/imred/hydra/demos/mkdonessie.dat | 12 ++ noao/imred/hydra/demos/mklist.cl | 27 +++ noao/imred/hydra/demos/xgbig.dat | 81 +++++++++ noao/imred/hydra/demos/xgdohydra.dat | 93 ++++++++++ noao/imred/hydra/demos/xgdohydra1.dat | 89 ++++++++++ noao/imred/hydra/demos/xgdohydranl.dat | 91 ++++++++++ noao/imred/hydra/demos/xgdonessie.dat | 94 +++++++++++ 24 files changed, 1106 insertions(+) create mode 100644 noao/imred/hydra/demos/big.cl create mode 100644 noao/imred/hydra/demos/demos.cl create mode 100644 noao/imred/hydra/demos/demos.men create mode 100644 noao/imred/hydra/demos/demos.par create mode 100644 noao/imred/hydra/demos/dohydra.cl create mode 100644 noao/imred/hydra/demos/dohydra1.cl create mode 100644 noao/imred/hydra/demos/dohydral.cl create mode 100644 noao/imred/hydra/demos/dohydranl.cl create mode 100644 noao/imred/hydra/demos/donessie.cl create mode 100644 noao/imred/hydra/demos/fibers.dat create mode 100644 noao/imred/hydra/demos/header.dat create mode 100644 noao/imred/hydra/demos/mkbig.cl create mode 100644 noao/imred/hydra/demos/mkbig.dat create mode 100644 noao/imred/hydra/demos/mkdohydra.cl create mode 100644 noao/imred/hydra/demos/mkdohydra1.dat create mode 100644 noao/imred/hydra/demos/mkdohydra2.dat create mode 100644 noao/imred/hydra/demos/mkdonessie.cl create mode 100644 noao/imred/hydra/demos/mkdonessie.dat create mode 100644 noao/imred/hydra/demos/mklist.cl create mode 100644 noao/imred/hydra/demos/xgbig.dat create mode 100644 noao/imred/hydra/demos/xgdohydra.dat create mode 100644 noao/imred/hydra/demos/xgdohydra1.dat create mode 100644 noao/imred/hydra/demos/xgdohydranl.dat create mode 100644 noao/imred/hydra/demos/xgdonessie.dat (limited to 'noao/imred/hydra/demos') diff --git a/noao/imred/hydra/demos/big.cl b/noao/imred/hydra/demos/big.cl new file mode 100644 index 00000000..7596599f --- /dev/null +++ b/noao/imred/hydra/demos/big.cl @@ -0,0 +1,13 @@ +# Create demo data if needed. + +cl (< "demos$mkbig.cl") + +unlearn dohydra params +params.order = "increasing" +delete ("demologfile,demoplotfile", verify=no, >& "dev$null") + +# Execute playback. +if (substr (envget("stdgraph"), 1, 6) == "xgterm") + stty (playback="demos$xgbig.dat", nlines=24, verify=no, delay=0) +else + error (1, "Playback for current terminal type not available") diff --git a/noao/imred/hydra/demos/demos.cl b/noao/imred/hydra/demos/demos.cl new file mode 100644 index 00000000..5b065c51 --- /dev/null +++ b/noao/imred/hydra/demos/demos.cl @@ -0,0 +1,18 @@ +# DEMOS -- Run specified demo provided a demo file exists. + +procedure demos (demoname) + +file demoname {prompt="Demo name"} + +begin + file demo, demofile + + if ($nargs == 0 && mode != "h") + type ("demos$demos.men") + demo = demoname + demofile = "demos$" // demo // ".cl" + if (access (demofile)) + cl (< demofile) + else + error (1, "Unknown demo " // demo) +end diff --git a/noao/imred/hydra/demos/demos.men b/noao/imred/hydra/demos/demos.men new file mode 100644 index 00000000..8c81d0f6 --- /dev/null +++ b/noao/imred/hydra/demos/demos.men @@ -0,0 +1,13 @@ + MENU of HYDRA Demonstrations + + mkdohdyra - Make Hydra test data (12 fibers, 100x256) + dohydra - Quick Hydra test with linear resampling + dohydra1 - Quick Hydra test with single standard star + dohydral - Quick Hydra test with logarithmic resampling + dohydranl - Quick Hydra test with nonlinear dispersion + + mkdonessie - Make Nessie test data (12 fibers, 100x256) + donessie - Quick Nessie test (small images, no comments, no delays) + + mkbig - Make large number of fiber test data (300 fibers, 1500x256) + big - Test with a large number of fibers diff --git a/noao/imred/hydra/demos/demos.par b/noao/imred/hydra/demos/demos.par new file mode 100644 index 00000000..4181ed59 --- /dev/null +++ b/noao/imred/hydra/demos/demos.par @@ -0,0 +1,2 @@ +demoname,f,a,"",,,"Demo name" +mode,s,h,"ql",,, diff --git a/noao/imred/hydra/demos/dohydra.cl b/noao/imred/hydra/demos/dohydra.cl new file mode 100644 index 00000000..7a81d37e --- /dev/null +++ b/noao/imred/hydra/demos/dohydra.cl @@ -0,0 +1,12 @@ +# Create demo data if needed. + +cl (< "demos$mkdohydra.cl") + +unlearn dohydra params +delete ("demologfile,demoplotfile", verify=no, >& "dev$null") + +# Execute playback. +if (substr (envget("stdgraph"), 1, 6) == "xgterm") + stty (playback="demos$xgdohydra.dat", nlines=24, verify=no, delay=0) +else + error (1, "Playback for current terminal type not available") diff --git a/noao/imred/hydra/demos/dohydra1.cl b/noao/imred/hydra/demos/dohydra1.cl new file mode 100644 index 00000000..d18ac1bb --- /dev/null +++ b/noao/imred/hydra/demos/dohydra1.cl @@ -0,0 +1,12 @@ +# Create demo data if needed. + +cl (< "demos$mkdohydra.cl") + +unlearn dohydra params +delete ("demologfile,demoplotfile", verify=no, >& "dev$null") + +# Execute playback. +if (substr (envget("stdgraph"), 1, 6) == "xgterm") + stty (playback="demos$xgdohydra1.dat", nlines=24, verify=no, delay=0) +else + error (1, "Playback for current terminal type not available") diff --git a/noao/imred/hydra/demos/dohydral.cl b/noao/imred/hydra/demos/dohydral.cl new file mode 100644 index 00000000..b0b99f4f --- /dev/null +++ b/noao/imred/hydra/demos/dohydral.cl @@ -0,0 +1,13 @@ +# Create demo data if needed. + +cl (< "demos$mkdohydra.cl") + +unlearn dohydra params +params.log = yes +delete ("demologfile,demoplotfile", verify=no, >& "dev$null") + +# Execute playback. +if (substr (envget("stdgraph"), 1, 6) == "xgterm") + stty (playback="demos$xgdohydra.dat", nlines=24, verify=no, delay=0) +else + error (1, "Playback for current terminal type not available") diff --git a/noao/imred/hydra/demos/dohydranl.cl b/noao/imred/hydra/demos/dohydranl.cl new file mode 100644 index 00000000..8b90cd54 --- /dev/null +++ b/noao/imred/hydra/demos/dohydranl.cl @@ -0,0 +1,14 @@ + +# Create demo data if needed. + +cl (< "demos$mkdohydra.cl") + +unlearn dohydra params +params.linearize = no +delete ("demologfile,demoplotfile", verify=no, >& "dev$null") + +# Execute playback. +if (substr (envget("stdgraph"), 1, 6) == "xgterm") + stty (playback="demos$xgdohydranl.dat", nlines=24, verify=no, delay=0) +else + error (1, "Playback for current terminal type not available") diff --git a/noao/imred/hydra/demos/donessie.cl b/noao/imred/hydra/demos/donessie.cl new file mode 100644 index 00000000..154992f2 --- /dev/null +++ b/noao/imred/hydra/demos/donessie.cl @@ -0,0 +1,12 @@ +# Create demo data if needed. + +cl (< "demos$mkdonessie.cl") + +unlearn dohydra params +delete ("demologfile,demoplotfile", verify=no, >& "dev$null") + +# Execute playback. +if (substr (envget("stdgraph"), 1, 6) == "xgterm") + stty (playback="demos$xgdonessie.dat", nlines=24, verify=no, delay=0) +else + error (1, "Playback for current terminal type not available") diff --git a/noao/imred/hydra/demos/fibers.dat b/noao/imred/hydra/demos/fibers.dat new file mode 100644 index 00000000..fcfa74b5 --- /dev/null +++ b/noao/imred/hydra/demos/fibers.dat @@ -0,0 +1,44 @@ + 1 2 0.804985 gauss 2.7 0 355.825 0.002 + 2 0 0.642824 gauss 2.7 0 349.692 0.002 + 3 1 0.901402 gauss 2.7 0 343.900 0.002 + 4 0 0.795503 gauss 2.7 0 337.464 0.002 + 5 1 0.989898 gauss 2.7 0 331.099 0.002 + 6 1 0.934496 gauss 2.7 0 324.886 0.002 + 7 1 0.888073 gauss 2.7 0 318.907 0.002 + 8 0 0.860567 gauss 2.7 0 312.805 0.002 + 9 1 0.677534 gauss 2.7 0 306.601 0.002 +11 1 1.086792 gauss 2.7 0 294.340 0.002 +12 1 1.000867 gauss 2.7 0 288.223 0.002 +13 1 1.011535 gauss 2.7 0 282.295 0.002 +14 1 1.059941 gauss 2.7 0 276.397 0.002 +15 1 1.070633 gauss 2.7 0 270.036 0.002 +16 1 1.014929 gauss 2.7 0 263.795 0.002 +17 0 1.056154 gauss 2.7 0 257.857 0.002 +19 1 1.010262 gauss 2.7 0 245.340 0.002 +20 1 1.329210 gauss 2.7 0 239.071 0.002 +21 1 1.012730 gauss 2.7 0 232.936 0.002 +22 2 1.053946 gauss 2.7 0 226.763 0.002 +23 1 1.376721 gauss 2.7 0 220.742 0.002 +24 1 1.396739 gauss 2.7 0 214.579 0.002 +25 1 1.301325 gauss 2.7 0 208.787 0.002 +26 1 0.810463 gauss 2.7 0 202.392 0.002 +27 1 1.219917 gauss 2.7 0 196.406 0.002 +28 1 0.729413 gauss 2.7 0 189.815 0.002 +30 1 1.257244 gauss 2.7 0 177.277 0.002 +31 1 1.077903 gauss 2.7 0 171.462 0.002 +32 1 1.085670 gauss 2.7 0 165.604 0.002 +33 1 0.800563 gauss 2.7 0 159.134 0.002 +34 1 1.147771 gauss 2.7 0 152.901 0.002 +35 0 1.096679 gauss 2.7 0 146.801 0.002 +36 1 1.164292 gauss 2.7 0 141.093 0.002 +37 1 0.457727 gauss 2.7 0 134.824 0.002 +38 1 1.269284 gauss 2.7 0 128.719 0.002 +39 1 1.309297 gauss 2.7 0 122.536 0.002 +41 1 1.283618 gauss 2.7 0 110.218 0.002 +42 1 0.687173 gauss 2.7 0 103.963 0.002 +43 1 1.175850 gauss 2.7 0 98.0091 0.002 +44 1 0.757532 gauss 2.7 0 91.9606 0.002 +45 1 1.015546 gauss 2.7 0 79.5097 0.002 +46 1 0.372036 gauss 2.7 0 73.5889 0.002 +47 0 1.065080 gauss 2.7 0 67.4535 0.002 +48 2 0.939866 gauss 2.7 0 60.9762 0.002 diff --git a/noao/imred/hydra/demos/header.dat b/noao/imred/hydra/demos/header.dat new file mode 100644 index 00000000..b9891d07 --- /dev/null +++ b/noao/imred/hydra/demos/header.dat @@ -0,0 +1,36 @@ +OBJECT = 'V640Mon 4500 ' / object name +OBSERVAT= 'KPNO ' / observatory +OBSERVER= 'Massey ' / observers +COMMENTS= 'Final New Ice ' / comments +EXPTIME = 1200. / actual integration time +DARKTIME= 1200. / total elapsed time +IMAGETYP= 'object ' / object, dark, bias, etc. +DATE-OBS= '26/11/91 ' / date (dd/mm/yy) of obs. +UT = '12:19:55.00 ' / universal time +ST = '09:13:15.00 ' / sidereal time +RA = '06:37:02.00 ' / right ascension +DEC = '06:08:52.00 ' / declination +EPOCH = 1991.9 / epoch of ra and dec +ZD = '44.580 ' / zenith distance +TELESCOP= 'kpcdf ' / telescope name +DETECTOR= 'te1k ' / detector +PREFLASH= 0 / preflash time, seconds +GAIN = 5.4 / gain, electrons per adu +DWELL = 5 / sample integration time +RDNOISE = 3.5 / read noise, electrons per adu +DELAY0 = 0 / time delay after each pixel +DELAY1 = 0 / time delay after each row +CAMTEMP = -111 / camera temperature +DEWTEMP = -183 / dewar temperature +CCDSEC = '[97:134,2:1023]' / orientation to full frame +ORIGSEC = '[1:1024,1:1024] ' / original size full frame +CCDSUM = '1 1 ' / on chip summation +INSTRUME= 'IRAF/ARTDATA ' / instrument +APERTURE= '250micron slit ' / aperture +TVFILT = '4-96 ' / tv filter +DISPAXIS= '2 ' / dispersion axis +GRATPOS = 4624.3 / grating position +TRIM = 'Nov 26 5:44 Trim data section is [23:60,2:1023]' +OVERSCAN= 'Nov 26 5:44 Overscan section is [103:133,2:1023] with mean=611.1 +ZEROCOR = 'Nov 26 5:44 Zero level correction image is Zerof' +CCDPROC = 'Nov 26 5:44 CCD processing done' 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 = "" diff --git a/noao/imred/hydra/demos/mkbig.dat b/noao/imred/hydra/demos/mkbig.dat new file mode 100644 index 00000000..c2260523 --- /dev/null +++ b/noao/imred/hydra/demos/mkbig.dat @@ -0,0 +1,300 @@ +1 1 1.104 gauss 2.0 0 9.8 .002 +2 0 0.963 gauss 2.0 0 14.7 .002 +3 1 1.245 gauss 2.0 0 19.6 .002 +4 0 1.007 gauss 2.0 0 24.5 .002 +5 1 0.961 gauss 2.0 0 29.4 .002 +6 0 1.074 gauss 2.0 0 34.3 .002 +7 1 1.104 gauss 2.0 0 39.2 .002 +8 0 1.167 gauss 2.0 0 44.1 .002 +9 1 1.152 gauss 2.0 0 49.0 .002 +10 0 1.035 gauss 2.0 0 53.9 .002 +11 1 1.089 gauss 2.0 0 58.8 .002 +12 0 0.901 gauss 2.0 0 63.7 .002 +13 1 1.054 gauss 2.0 0 68.6 .002 +14 0 0.999 gauss 2.0 0 73.5 .002 +15 1 1.017 gauss 2.0 0 78.4 .002 +16 0 0.930 gauss 2.0 0 83.3 .002 +17 1 0.821 gauss 2.0 0 88.2 .002 +18 0 0.903 gauss 2.0 0 93.1 .002 +19 1 0.957 gauss 2.0 0 98.0 .002 +20 0 1.004 gauss 2.0 0 102.9 .002 +21 1 0.777 gauss 2.0 0 107.8 .002 +22 0 0.978 gauss 2.0 0 112.7 .002 +23 1 0.820 gauss 2.0 0 117.6 .002 +24 0 0.902 gauss 2.0 0 122.5 .002 +25 1 0.825 gauss 2.0 0 127.4 .002 +26 0 0.975 gauss 2.0 0 132.3 .002 +27 1 1.121 gauss 2.0 0 137.2 .002 +28 0 1.158 gauss 2.0 0 142.1 .002 +29 1 0.782 gauss 2.0 0 147.0 .002 +30 0 0.956 gauss 2.0 0 151.9 .002 +31 1 0.994 gauss 2.0 0 156.8 .002 +32 0 1.020 gauss 2.0 0 161.7 .002 +33 1 0.817 gauss 2.0 0 166.6 .002 +34 0 0.786 gauss 2.0 0 171.5 .002 +35 1 1.227 gauss 2.0 0 176.4 .002 +36 0 0.863 gauss 2.0 0 181.3 .002 +37 1 0.914 gauss 2.0 0 186.2 .002 +38 0 1.154 gauss 2.0 0 191.1 .002 +39 1 0.878 gauss 2.0 0 196.0 .002 +40 0 1.044 gauss 2.0 0 200.9 .002 +41 1 1.034 gauss 2.0 0 205.8 .002 +42 0 0.756 gauss 2.0 0 210.7 .002 +43 1 0.773 gauss 2.0 0 215.6 .002 +44 0 0.933 gauss 2.0 0 220.5 .002 +45 1 0.888 gauss 2.0 0 225.4 .002 +46 0 0.990 gauss 2.0 0 230.3 .002 +47 1 0.920 gauss 2.0 0 235.2 .002 +48 0 1.113 gauss 2.0 0 240.1 .002 +49 1 1.010 gauss 2.0 0 245.0 .002 +50 0 0.767 gauss 2.0 0 249.9 .002 +51 1 1.146 gauss 2.0 0 254.8 .002 +52 0 0.962 gauss 2.0 0 259.7 .002 +53 1 1.030 gauss 2.0 0 264.6 .002 +54 0 0.812 gauss 2.0 0 269.5 .002 +55 1 1.001 gauss 2.0 0 274.4 .002 +56 0 1.126 gauss 2.0 0 279.3 .002 +57 1 0.845 gauss 2.0 0 284.2 .002 +58 0 1.050 gauss 2.0 0 289.1 .002 +59 1 1.221 gauss 2.0 0 294.0 .002 +60 0 1.103 gauss 2.0 0 298.9 .002 +61 1 1.079 gauss 2.0 0 303.8 .002 +62 0 0.944 gauss 2.0 0 308.7 .002 +63 1 0.810 gauss 2.0 0 313.6 .002 +64 0 0.922 gauss 2.0 0 318.5 .002 +65 1 1.039 gauss 2.0 0 323.4 .002 +66 0 0.892 gauss 2.0 0 328.3 .002 +67 1 1.021 gauss 2.0 0 333.2 .002 +68 0 1.160 gauss 2.0 0 338.1 .002 +69 1 1.053 gauss 2.0 0 343.0 .002 +70 0 1.043 gauss 2.0 0 347.9 .002 +71 1 0.794 gauss 2.0 0 352.8 .002 +72 0 0.777 gauss 2.0 0 357.7 .002 +73 1 0.890 gauss 2.0 0 362.6 .002 +74 0 1.143 gauss 2.0 0 367.5 .002 +75 1 0.945 gauss 2.0 0 372.4 .002 +76 0 0.994 gauss 2.0 0 377.3 .002 +77 1 1.174 gauss 2.0 0 382.2 .002 +78 0 0.766 gauss 2.0 0 387.1 .002 +79 1 1.157 gauss 2.0 0 392.0 .002 +80 0 1.219 gauss 2.0 0 396.9 .002 +81 1 0.951 gauss 2.0 0 401.8 .002 +82 0 1.044 gauss 2.0 0 406.7 .002 +83 1 1.054 gauss 2.0 0 411.6 .002 +84 0 1.236 gauss 2.0 0 416.5 .002 +85 1 0.862 gauss 2.0 0 421.4 .002 +86 0 0.755 gauss 2.0 0 426.3 .002 +87 1 0.933 gauss 2.0 0 431.2 .002 +88 0 1.149 gauss 2.0 0 436.1 .002 +89 1 1.053 gauss 2.0 0 441.0 .002 +90 0 0.870 gauss 2.0 0 445.9 .002 +91 1 0.920 gauss 2.0 0 450.8 .002 +92 0 0.820 gauss 2.0 0 455.7 .002 +93 1 0.786 gauss 2.0 0 460.6 .002 +94 0 0.934 gauss 2.0 0 465.5 .002 +95 1 1.117 gauss 2.0 0 470.4 .002 +96 0 0.776 gauss 2.0 0 475.3 .002 +97 1 0.887 gauss 2.0 0 480.2 .002 +98 0 0.876 gauss 2.0 0 485.1 .002 +99 1 1.037 gauss 2.0 0 490.0 .002 +100 0 0.824 gauss 2.0 0 494.9 .002 +101 1 0.979 gauss 2.0 0 499.8 .002 +102 0 1.112 gauss 2.0 0 504.7 .002 +103 1 0.856 gauss 2.0 0 509.6 .002 +104 0 0.864 gauss 2.0 0 514.5 .002 +105 1 1.154 gauss 2.0 0 519.4 .002 +106 0 1.060 gauss 2.0 0 524.3 .002 +107 1 0.800 gauss 2.0 0 529.2 .002 +108 0 1.121 gauss 2.0 0 534.1 .002 +109 1 1.017 gauss 2.0 0 539.0 .002 +110 0 0.905 gauss 2.0 0 543.9 .002 +111 1 1.203 gauss 2.0 0 548.8 .002 +112 0 0.795 gauss 2.0 0 553.7 .002 +113 1 0.770 gauss 2.0 0 558.6 .002 +114 0 1.246 gauss 2.0 0 563.5 .002 +115 1 1.035 gauss 2.0 0 568.4 .002 +116 0 0.852 gauss 2.0 0 573.3 .002 +117 1 0.757 gauss 2.0 0 578.2 .002 +118 0 0.969 gauss 2.0 0 583.1 .002 +119 1 0.943 gauss 2.0 0 588.0 .002 +120 0 0.943 gauss 2.0 0 592.9 .002 +121 1 1.141 gauss 2.0 0 597.8 .002 +122 0 0.965 gauss 2.0 0 602.7 .002 +123 1 1.107 gauss 2.0 0 607.6 .002 +124 0 1.199 gauss 2.0 0 612.5 .002 +125 1 1.141 gauss 2.0 0 617.4 .002 +126 0 1.043 gauss 2.0 0 622.3 .002 +127 1 0.964 gauss 2.0 0 627.2 .002 +128 0 0.856 gauss 2.0 0 632.1 .002 +129 1 0.993 gauss 2.0 0 637.0 .002 +130 0 1.160 gauss 2.0 0 641.9 .002 +131 1 1.076 gauss 2.0 0 646.8 .002 +132 0 0.981 gauss 2.0 0 651.7 .002 +133 1 1.061 gauss 2.0 0 656.6 .002 +134 0 0.811 gauss 2.0 0 661.5 .002 +135 1 1.210 gauss 2.0 0 666.4 .002 +136 0 0.753 gauss 2.0 0 671.3 .002 +137 1 0.773 gauss 2.0 0 676.2 .002 +138 0 1.202 gauss 2.0 0 681.1 .002 +139 1 0.922 gauss 2.0 0 686.0 .002 +140 0 1.055 gauss 2.0 0 690.9 .002 +141 1 0.790 gauss 2.0 0 695.8 .002 +142 0 1.064 gauss 2.0 0 700.7 .002 +143 1 1.179 gauss 2.0 0 705.6 .002 +144 0 0.843 gauss 2.0 0 710.5 .002 +145 1 1.105 gauss 2.0 0 715.4 .002 +146 0 1.208 gauss 2.0 0 720.3 .002 +147 1 0.835 gauss 2.0 0 725.2 .002 +148 0 1.039 gauss 2.0 0 730.1 .002 +149 1 0.966 gauss 2.0 0 735.0 .002 +150 0 1.191 gauss 2.0 0 739.9 .002 +151 1 0.995 gauss 2.0 0 744.8 .002 +152 0 0.936 gauss 2.0 0 749.7 .002 +153 1 0.813 gauss 2.0 0 754.6 .002 +154 0 1.190 gauss 2.0 0 759.5 .002 +155 1 1.064 gauss 2.0 0 764.4 .002 +156 0 0.832 gauss 2.0 0 769.3 .002 +157 1 1.147 gauss 2.0 0 774.2 .002 +158 0 0.967 gauss 2.0 0 779.1 .002 +159 1 1.040 gauss 2.0 0 784.0 .002 +160 0 0.890 gauss 2.0 0 788.9 .002 +161 1 1.002 gauss 2.0 0 793.8 .002 +162 0 0.999 gauss 2.0 0 798.7 .002 +163 1 0.828 gauss 2.0 0 803.6 .002 +164 0 0.962 gauss 2.0 0 808.5 .002 +165 1 0.932 gauss 2.0 0 813.4 .002 +166 0 1.166 gauss 2.0 0 818.3 .002 +167 1 1.144 gauss 2.0 0 823.2 .002 +168 0 0.850 gauss 2.0 0 828.1 .002 +169 1 1.209 gauss 2.0 0 833.0 .002 +170 0 1.089 gauss 2.0 0 837.9 .002 +171 1 0.788 gauss 2.0 0 842.8 .002 +172 0 1.242 gauss 2.0 0 847.7 .002 +173 1 1.130 gauss 2.0 0 852.6 .002 +174 0 0.977 gauss 2.0 0 857.5 .002 +175 1 0.843 gauss 2.0 0 862.4 .002 +176 0 0.815 gauss 2.0 0 867.3 .002 +177 1 1.110 gauss 2.0 0 872.2 .002 +178 0 1.098 gauss 2.0 0 877.1 .002 +179 1 1.090 gauss 2.0 0 882.0 .002 +180 0 1.230 gauss 2.0 0 886.9 .002 +181 1 1.004 gauss 2.0 0 891.8 .002 +182 0 1.237 gauss 2.0 0 896.7 .002 +183 1 1.197 gauss 2.0 0 901.6 .002 +184 0 1.007 gauss 2.0 0 906.5 .002 +185 1 0.790 gauss 2.0 0 911.4 .002 +186 0 1.233 gauss 2.0 0 916.3 .002 +187 1 0.962 gauss 2.0 0 921.2 .002 +188 0 1.014 gauss 2.0 0 926.1 .002 +189 1 1.076 gauss 2.0 0 931.0 .002 +190 0 0.978 gauss 2.0 0 935.9 .002 +191 1 1.173 gauss 2.0 0 940.8 .002 +192 0 1.058 gauss 2.0 0 945.7 .002 +193 1 1.077 gauss 2.0 0 950.6 .002 +194 0 0.970 gauss 2.0 0 955.5 .002 +195 1 0.874 gauss 2.0 0 960.4 .002 +196 0 0.803 gauss 2.0 0 965.3 .002 +197 1 0.990 gauss 2.0 0 970.2 .002 +198 0 0.783 gauss 2.0 0 975.1 .002 +199 1 1.083 gauss 2.0 0 980.0 .002 +200 0 1.009 gauss 2.0 0 984.9 .002 +201 1 0.943 gauss 2.0 0 989.8 .002 +202 0 1.071 gauss 2.0 0 994.7 .002 +203 1 0.764 gauss 2.0 0 999.6 .002 +204 0 0.827 gauss 2.0 0 1004.5 .002 +205 1 0.938 gauss 2.0 0 1009.4 .002 +206 0 0.956 gauss 2.0 0 1014.3 .002 +207 1 1.094 gauss 2.0 0 1019.2 .002 +208 0 1.119 gauss 2.0 0 1024.1 .002 +209 1 0.957 gauss 2.0 0 1029.0 .002 +210 0 0.910 gauss 2.0 0 1033.9 .002 +211 1 0.827 gauss 2.0 0 1038.8 .002 +212 0 1.060 gauss 2.0 0 1043.7 .002 +213 1 1.154 gauss 2.0 0 1048.6 .002 +214 0 1.002 gauss 2.0 0 1053.5 .002 +215 1 0.797 gauss 2.0 0 1058.4 .002 +216 0 0.989 gauss 2.0 0 1063.3 .002 +217 1 0.810 gauss 2.0 0 1068.2 .002 +218 0 1.106 gauss 2.0 0 1073.1 .002 +219 1 0.863 gauss 2.0 0 1078.0 .002 +220 0 1.246 gauss 2.0 0 1082.9 .002 +221 1 0.963 gauss 2.0 0 1087.8 .002 +222 0 0.929 gauss 2.0 0 1092.7 .002 +223 1 0.835 gauss 2.0 0 1097.6 .002 +224 0 0.995 gauss 2.0 0 1102.5 .002 +225 1 0.897 gauss 2.0 0 1107.4 .002 +226 0 0.983 gauss 2.0 0 1112.3 .002 +227 1 1.187 gauss 2.0 0 1117.2 .002 +228 0 1.239 gauss 2.0 0 1122.1 .002 +229 1 0.900 gauss 2.0 0 1127.0 .002 +230 0 0.846 gauss 2.0 0 1131.9 .002 +231 1 1.096 gauss 2.0 0 1136.8 .002 +232 0 1.041 gauss 2.0 0 1141.7 .002 +233 1 0.968 gauss 2.0 0 1146.6 .002 +234 0 0.827 gauss 2.0 0 1151.5 .002 +235 1 1.108 gauss 2.0 0 1156.4 .002 +236 0 1.162 gauss 2.0 0 1161.3 .002 +237 1 0.884 gauss 2.0 0 1166.2 .002 +238 0 0.891 gauss 2.0 0 1171.1 .002 +239 1 0.974 gauss 2.0 0 1176.0 .002 +240 0 1.116 gauss 2.0 0 1180.9 .002 +241 1 0.830 gauss 2.0 0 1185.8 .002 +242 0 0.964 gauss 2.0 0 1190.7 .002 +243 1 0.963 gauss 2.0 0 1195.6 .002 +244 0 0.869 gauss 2.0 0 1200.5 .002 +245 1 0.962 gauss 2.0 0 1205.4 .002 +246 0 0.959 gauss 2.0 0 1210.3 .002 +247 1 1.182 gauss 2.0 0 1215.2 .002 +248 0 1.167 gauss 2.0 0 1220.1 .002 +249 1 1.124 gauss 2.0 0 1225.0 .002 +250 0 1.151 gauss 2.0 0 1229.9 .002 +251 1 1.218 gauss 2.0 0 1234.8 .002 +252 0 1.229 gauss 2.0 0 1239.7 .002 +253 1 1.108 gauss 2.0 0 1244.6 .002 +254 0 1.248 gauss 2.0 0 1249.5 .002 +255 1 1.135 gauss 2.0 0 1254.4 .002 +256 0 0.787 gauss 2.0 0 1259.3 .002 +257 1 1.156 gauss 2.0 0 1264.2 .002 +258 0 0.773 gauss 2.0 0 1269.1 .002 +259 1 1.129 gauss 2.0 0 1274.0 .002 +260 0 1.212 gauss 2.0 0 1278.9 .002 +261 1 1.092 gauss 2.0 0 1283.8 .002 +262 0 1.116 gauss 2.0 0 1288.7 .002 +263 1 0.892 gauss 2.0 0 1293.6 .002 +264 0 1.208 gauss 2.0 0 1298.5 .002 +265 1 0.795 gauss 2.0 0 1303.4 .002 +266 0 0.860 gauss 2.0 0 1308.3 .002 +267 1 0.967 gauss 2.0 0 1313.2 .002 +268 0 0.800 gauss 2.0 0 1318.1 .002 +269 1 0.902 gauss 2.0 0 1323.0 .002 +270 0 0.752 gauss 2.0 0 1327.9 .002 +271 1 1.164 gauss 2.0 0 1332.8 .002 +272 0 1.119 gauss 2.0 0 1337.7 .002 +273 1 0.932 gauss 2.0 0 1342.6 .002 +274 0 0.912 gauss 2.0 0 1347.5 .002 +275 1 0.806 gauss 2.0 0 1352.4 .002 +276 0 1.198 gauss 2.0 0 1357.3 .002 +277 1 1.242 gauss 2.0 0 1362.2 .002 +278 0 1.158 gauss 2.0 0 1367.1 .002 +279 1 0.881 gauss 2.0 0 1372.0 .002 +280 0 0.782 gauss 2.0 0 1376.9 .002 +281 1 1.000 gauss 2.0 0 1381.8 .002 +282 0 1.038 gauss 2.0 0 1386.7 .002 +283 1 0.872 gauss 2.0 0 1391.6 .002 +284 0 0.868 gauss 2.0 0 1396.5 .002 +285 1 1.079 gauss 2.0 0 1401.4 .002 +286 0 0.943 gauss 2.0 0 1406.3 .002 +287 1 0.825 gauss 2.0 0 1411.2 .002 +288 0 0.973 gauss 2.0 0 1416.1 .002 +289 1 1.061 gauss 2.0 0 1421.0 .002 +290 0 0.905 gauss 2.0 0 1425.9 .002 +291 1 0.954 gauss 2.0 0 1430.8 .002 +292 0 0.865 gauss 2.0 0 1435.7 .002 +293 1 0.761 gauss 2.0 0 1440.6 .002 +294 0 0.932 gauss 2.0 0 1445.5 .002 +295 1 0.818 gauss 2.0 0 1450.4 .002 +296 0 1.225 gauss 2.0 0 1455.3 .002 +297 1 0.949 gauss 2.0 0 1460.2 .002 +298 0 1.006 gauss 2.0 0 1465.1 .002 +299 1 0.880 gauss 2.0 0 1470.0 .002 +300 0 0.998 gauss 2.0 0 1474.9 .002 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 = "" diff --git a/noao/imred/hydra/demos/mkdohydra1.dat b/noao/imred/hydra/demos/mkdohydra1.dat new file mode 100644 index 00000000..87640612 --- /dev/null +++ b/noao/imred/hydra/demos/mkdohydra1.dat @@ -0,0 +1,12 @@ +36 1 1.164292 gauss 2.7 0 91.093 0.002 +37 0 0.457727 gauss 2.7 0 84.824 0.002 +38 1 1.269284 gauss 2.7 0 78.719 0.002 +39 1 1.309297 gauss 2.7 0 72.536 0.002 +41 0 1.283618 gauss 2.7 0 60.218 0.002 +42 1 0.687173 gauss 2.7 0 53.963 0.002 +43 1 1.175850 gauss 2.7 0 48.0091 0.002 +44 0 0.757532 gauss 2.7 0 41.9606 0.002 +45 1 1.015546 gauss 2.7 0 29.5097 0.002 +46 -1 0.372036 gauss 2.7 0 23.5889 0.002 +47 0 1.065080 gauss 2.7 0 17.4535 0.002 +48 1 0.939866 gauss 2.7 0 10.9762 0.002 diff --git a/noao/imred/hydra/demos/mkdohydra2.dat b/noao/imred/hydra/demos/mkdohydra2.dat new file mode 100644 index 00000000..4b848596 --- /dev/null +++ b/noao/imred/hydra/demos/mkdohydra2.dat @@ -0,0 +1,12 @@ +36 0 1.164292 gauss 2.7 0 91.093 0.002 +37 0 0.457727 gauss 2.7 0 84.824 0.002 +38 0 1.269284 gauss 2.7 0 78.719 0.002 +39 0 1.309297 gauss 2.7 0 72.536 0.002 +41 0 1.283618 gauss 2.7 0 60.218 0.002 +42 0 0.687173 gauss 2.7 0 53.963 0.002 +43 1 1.175850 gauss 2.7 0 48.0091 0.002 +44 0 0.757532 gauss 2.7 0 41.9606 0.002 +45 0 1.015546 gauss 2.7 0 29.5097 0.002 +46 -1 0.372036 gauss 2.7 0 23.5889 0.002 +47 0 1.065080 gauss 2.7 0 17.4535 0.002 +48 0 0.939866 gauss 2.7 0 10.9762 0.002 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") diff --git a/noao/imred/hydra/demos/mkdonessie.dat b/noao/imred/hydra/demos/mkdonessie.dat new file mode 100644 index 00000000..1113aae6 --- /dev/null +++ b/noao/imred/hydra/demos/mkdonessie.dat @@ -0,0 +1,12 @@ +36 2 1.164292 gauss 2.7 0 91.093 0.002 +37 0 0.457727 gauss 2.7 0 84.824 0.002 +38 1 1.269284 gauss 2.7 0 78.719 0.002 +39 1 1.309297 gauss 2.7 0 72.536 0.002 +41 0 1.283618 gauss 2.7 0 60.218 0.002 +42 1 0.687173 gauss 2.7 0 53.963 0.002 +43 1 1.175850 gauss 2.7 0 48.0091 0.002 +44 0 0.757532 gauss 2.7 0 41.9606 0.002 +45 1 1.015546 gauss 2.7 0 29.5097 0.002 +46 1 0.372036 gauss 2.7 0 23.5889 0.002 +47 0 1.065080 gauss 2.7 0 17.4535 0.002 +48 2 0.939866 gauss 2.7 0 10.9762 0.002 diff --git a/noao/imred/hydra/demos/mklist.cl b/noao/imred/hydra/demos/mklist.cl new file mode 100644 index 00000000..b36b3a3e --- /dev/null +++ b/noao/imred/hydra/demos/mklist.cl @@ -0,0 +1,27 @@ +# MKLIST - Make a fiber list. + +int nfibers +real width, sep, flux +file temp + +#nfibers = 300 +#width = 2.0 +#sep = 4.9 +nfibers = j +width = x +sep = y + +temp = mktemp ("tmp") +urand (nfibers, 1, ndigits=4, seed=1, scale_factor=0.5, > temp) +list = temp + +for (i=1; i<=nfibers; i+=1) { + if (fscan (list, flux) == EOF) + break + flux = 0.75 + flux + printf ("%d %d %5.3f gauss %4.1f 0 %6.1f .002\n", i, mod(i,2), + flux, width, sep*(i+1)) +} + +list = "" +delete (temp, verify=no) diff --git a/noao/imred/hydra/demos/xgbig.dat b/noao/imred/hydra/demos/xgbig.dat new file mode 100644 index 00000000..074d8db5 --- /dev/null +++ b/noao/imred/hydra/demos/xgbig.dat @@ -0,0 +1,81 @@ +\O=NOAO/IRAF IRAFX valdes@puppis Mon 14:58:37 15-Nov-93 +\T=xgterm +\G=xgterm +epar\shydra\n +\r +\r +\r +\r +\r +y\r +demologfile\r +""\r +^Z +epar\sdohydra\n +demoobj\r +demoflat\r +demoflat\r +\r +demoarc\r +\r +\r +\r +rdnoise\r +gain\r +\r +300\r +3\r +4\r +6\r +demoapid\r +6600\r +6.1\r +\r +\r +\r +\r +\r +\r +n\r +\r +n\r +\r +\r +\r +\r +\r +\r +y\r +^Z +dohydra\sredo+\n +\n +\n +\n +q/<-5\s\s\s\s/=(.\s=\r +\r +\r +q/<-5\s\s\s\s/=(.\s=\r +N\r +j/<-5\s\s\s\s/=(.\s=\r +q/<-5\s\s\s\s/=(.\s=\r +f/<-5\s\s\s\s/=(.\s=\r +l/<-5\s\s\s\s/=(.\s=\r +q/<-5\s\s\s\s/=(.\s=\r +q/<-5\s\s\s\s/=(.\s=\r +n\n +y\n +f/<-5\s\s\s\s/=(.\s=\r +q/<-5\s\s\s\s/=(.\s=\r +q/<-5\s\s\s\s/=(.\s=\r +N\n +n\n +\n +q/<-5\s\s\s\s/=(.\s=\r +\n +\n +41\n +#/<-5\s\s\s\s/=(.\s=\r 37\r +#/<-5\s\s\s\s/=(.\s=\r 45\r +q/<-5\s\s\s\s/=(.\s=\r +imdelete\sdemoobj.ms\n +dohydra\sdemoobj\sskyedit-\ssplot-\sbatch+\n diff --git a/noao/imred/hydra/demos/xgdohydra.dat b/noao/imred/hydra/demos/xgdohydra.dat new file mode 100644 index 00000000..be94c8b0 --- /dev/null +++ b/noao/imred/hydra/demos/xgdohydra.dat @@ -0,0 +1,93 @@ +\O=NOAO/IRAF V2.10EXPORT valdes@puppis Tue 14:30:46 09-Feb-93 +\T=xgterm +\G=xgterm +epar\shydra\n +\r +\r +\r +\r +\r +y\r +demologfile\r +demoplotfile\r +^Z +epar\sdohydra\n +demoobj\r +demoflat\r +demoflat\r +\r +demoarc\r +\r +\r +\r +rdnoise\r +gain\r +\r +12\r +4\r +5\r +7\r +demoflat\r +6600\r +6.1\r +\r +\r +\r +\r +\r +\r +y\r +\r +n\r +\r +\r +\r +\r +\r +\r +y\r +^Z +dohydra\sredo+\n +\n +\n +\n +q/<-5\s\s\s\s/=(.\s=\r +\r +\r +q/<-5\s\s\s\s/=(.\s=\r +N\r +\n +\n +q/<-5\s\s\s\s/=(.\s=\r +q\r +q/<-5\s\s\s\s/=(.\s=\r +q\r +j/<-5\s\s\s\s/=(.\s=\r +q/<-5\s\s\s\s/=(.\s=\r +f/<-5\s\s\s\s/=(.\s=\r +l/<-5\s\s\s\s/=(.\s=\r +q/<-5\s\s\s\s/=(.\s=\r +q/<-5\s\s\s\s/=(.\s=\r +n\n +y\n +f/<-5\s\s\s\s/=(.\s=\r +q/<-5\s\s\s\s/=(.\s=\r +q/<-5\s\s\s\s/=(.\s=\r +N\n +n\n +\n +\n +q/<-5\s\s\s\s/=(.\s=\r +q\r +q/<-5\s\s\s\s/=(.\s=\r +q\r +\n +q/<-5\s\s\s\s/=(.\s=\r +\n +\n +41\n +#/<-5\s\s\s\s/=(.\s=\r 37\r +#/<-5\s\s\s\s/=(.\s=\r 45\r +q/<-5\s\s\s\s/=(.\s=\r +imdelete\sdemoobj.ms\n +dohydra\sdemoobj\sskyedit-\ssplot-\sbatch+\n diff --git a/noao/imred/hydra/demos/xgdohydra1.dat b/noao/imred/hydra/demos/xgdohydra1.dat new file mode 100644 index 00000000..ce9cebb7 --- /dev/null +++ b/noao/imred/hydra/demos/xgdohydra1.dat @@ -0,0 +1,89 @@ +\O=NOAO/IRAF IRAFX valdes@puppis Mon 14:58:37 15-Nov-93 +\T=xgterm +\G=xgterm +epar\shydra\n +\r +\r +\r +\r +\r +y\r +demologfile\r +demoplotfile\r +^Z +epar\sdohydra\n +demostd\r +demoflat\r +demoflat\r +\r +demoarc\r +\r +\r +\r +rdnoise\r +gain\r +\r +12\r +4\r +5\r +7\r +demoapid2\r +6600\r +6.1\r +\r +\r +\r +1\r +\r +\r +y\r +\r +n\r +\r +\r +\r +\r +\r +\r +y\r +^Z +type\sdemoapid2\n +dohydra\sredo+\n +\n +\n +\n +q/<-5\s\s\s\s/=(.\s=\r +\r +\r +q/<-5\s\s\s\s/=(.\s=\r +N\r +\n +\n +q/<-5\s\s\s\s/=(.\s=\r +q\r +q/<-5\s\s\s\s/=(.\s=\r +q\r +j/<-5\s\s\s\s/=(.\s=\r +q/<-5\s\s\s\s/=(.\s=\r +f/<-5\s\s\s\s/=(.\s=\r +l/<-5\s\s\s\s/=(.\s=\r +q/<-5\s\s\s\s/=(.\s=\r +q/<-5\s\s\s\s/=(.\s=\r +n\n +y\n +f/<-5\s\s\s\s/=(.\s=\r +q/<-5\s\s\s\s/=(.\s=\r +q/<-5\s\s\s\s/=(.\s=\r +N\n +n\n +\n +\n +q/<-5\s\s\s\s/=(.\s=\r +q\r +q/<-5\s\s\s\s/=(.\s=\r +q\r +\n +q/<-5\s\s\s\s/=(.\s=\r +\n +\n +q/<-5\s\s\s\s/=(.\s=\r diff --git a/noao/imred/hydra/demos/xgdohydranl.dat b/noao/imred/hydra/demos/xgdohydranl.dat new file mode 100644 index 00000000..9efdb764 --- /dev/null +++ b/noao/imred/hydra/demos/xgdohydranl.dat @@ -0,0 +1,91 @@ +\O=NOAO/IRAF IRAFX valdes@puppis Mon 14:58:37 15-Nov-93 +\T=xgterm +\G=xgterm +epar\shydra\n +\r +\r +\r +\r +\r +y\r +demologfile\r +demoplotfile\r +^Z +epar\sdohydra\n +demoobj\r +demoflat\r +demoflat\r +\r +demoarc\r +\r +\r +\r +rdnoise\r +gain\r +\r +12\r +4\r +5\r +7\r +demoapid1\r +6600\r +6.1\r +\r +\r +\r +\r +\r +\r +y\r +\r +n\r +\r +\r +\r +\r +\r +\r +y\r +^Z +type\sdemoapid1\n +dohydra\sredo+\n +\n +\n +\n +q/<-5\s\s\s\s/=(.\s=\r +\r +\r +q/<-5\s\s\s\s/=(.\s=\r +N\r +\n +\n +q/<-5\s\s\s\s/=(.\s=\r +q\r +q/<-5\s\s\s\s/=(.\s=\r +q\r +j/<-5\s\s\s\s/=(.\s=\r +q/<-5\s\s\s\s/=(.\s=\r +f/<-5\s\s\s\s/=(.\s=\r +l/<-5\s\s\s\s/=(.\s=\r +q/<-5\s\s\s\s/=(.\s=\r +q/<-5\s\s\s\s/=(.\s=\r +n\n +y\n +f/<-5\s\s\s\s/=(.\s=\r +q/<-5\s\s\s\s/=(.\s=\r +q/<-5\s\s\s\s/=(.\s=\r +N\n +\n +\n +q/<-5\s\s\s\s/=(.\s=\r +q\r +q/<-5\s\s\s\s/=(.\s=\r +q\r +\n +q/<-5\s\s\s\s/=(.\s=\r +\n +\n +41\n +#/<-5\s\s\s\s/=(.\s=\r 37\r +#/<-5\s\s\s\s/=(.\s=\r 45\r +q/<-5\s\s\s\s/=(.\s=\r diff --git a/noao/imred/hydra/demos/xgdonessie.dat b/noao/imred/hydra/demos/xgdonessie.dat new file mode 100644 index 00000000..49e57ff0 --- /dev/null +++ b/noao/imred/hydra/demos/xgdonessie.dat @@ -0,0 +1,94 @@ +\O=NOAO/IRAF IRAFX valdes@puppis Mon 14:58:37 15-Nov-93 +\T=xgterm +\G=xgterm +epar\shydra\n +\r +\r +\r +\r +\r +y\r +demologfile\r +demoplotfile\r +^Z +epar\sdohydra\n +demoobj\r +demoflat\r +demoflat\r +\r +demoarc1\r +\r +demoarcrep\r +\r +rdnoise\r +gain\r +\r +12\r +4\r +5\r +7\r +demoapid\r +6600\r +6.1\r +\r +\r +\r +\r +\r +\r +\r +\r +n\r +\r +\r +\r +\r +\r +\r +y\r +^Z +type\sdemoapid,demoarcrep\n +dohydra\sredo+\n +\n +\n +\n +q/<-5\s\s\s\s/=(.\s=\r +\r +\r +q/<-5\s\s\s\s/=(.\s=\r +N\r +\n +\n +q/<-5\s\s\s\s/=(.\s=\r +q\r +q/<-5\s\s\s\s/=(.\s=\r +q\r +k/<-5\s\s\s\s/=(.\s=\r +q/<-5\s\s\s\s/=(.\s=\r +f/<-5\s\s\s\s/=(.\s=\r +l/<-5\s\s\s\s/=(.\s=\r +q/<-5\s\s\s\s/=(.\s=\r +q/<-5\s\s\s\s/=(.\s=\r +n\n +y\n +f/<-5\s\s\s\s/=(.\s=\r +q/<-5\s\s\s\s/=(.\s=\r +q/<-5\s\s\s\s/=(.\s=\r +N\n +n\n +\n +\n +q/<-5\s\s\s\s/=(.\s=\r +q\r +q/<-5\s\s\s\s/=(.\s=\r +q\r +\n +q/<-5\s\s\s\s/=(.\s=\r +\n +\n +41\n +#/<-5\s\s\s\s/=(.\s=\r 37\r +#/<-5\s\s\s\s/=(.\s=\r 45\r +q/<-5\s\s\s\s/=(.\s=\r +imdelete\sdemoobj.ms\n +dohydra\sdemoobj\sskyedit-\ssplot-\sbatch+\n -- cgit