Repatch (from linux) of OSX IRAF

24 files changed, 1106 insertions, 0 deletions

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