Initial commit

14 files changed, 511 insertions, 0 deletions

diff --git a/noao/twodspec/longslit/demos/demoarc1.dat b/noao/twodspec/longslit/demos/demoarc1.dat
new file mode 100644
index 00000000..fa0a179d
--- /dev/null
+++ b/noao/twodspec/longslit/demos/demoarc1.dat
@@ -0,0 +1,38 @@
+    OBJECT  = 'First comp        '  /  object name
+    OBSERVAT= 'KPNO              '  /  observatory
+    OBSERVER= 'Massey            '  /  observers
+    COMMENTS= 'Final New Ice     '  /  comments
+    EXPTIME =                  60.  /  actual integration time
+    DARKTIME=                  60.  /  total elapsed time
+    IMAGETYP= 'comp              '  /  object, dark, bias, etc.
+    DATE-OBS= '26/11/91          '  /  date (dd/mm/yy) of obs.
+    UT      = '12:11:30.00       '  /  universal time
+    ST      = '09:04:54.00       '  /  sidereal time
+    RA      = '06:37:02.00       '  /  right ascension
+    DEC     = '06:09:03.00       '  /  declination
+    EPOCH   =               1991.9  /  epoch of ra and dec
+    ZD      = '48.760            '  /  zenith distance
+    AIRMASS =                   0.  /  airmass
+    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= 'test              '  /  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'
+    CCDMEAN =              179.398
+    CCDPROC = 'Nov 26  5:44 CCD processing done'
diff --git a/noao/twodspec/longslit/demos/demoarc2.dat b/noao/twodspec/longslit/demos/demoarc2.dat
new file mode 100644
index 00000000..4cd9975d
--- /dev/null
+++ b/noao/twodspec/longslit/demos/demoarc2.dat
@@ -0,0 +1,38 @@
+    OBJECT  = 'Last comp         '  /  object name
+    OBSERVAT= 'KPNO              '  /  observatory
+    OBSERVER= 'Massey            '  /  observers
+    COMMENTS= 'Final New Ice     '  /  comments
+    EXPTIME =                  60.  /  actual integration time
+    DARKTIME=                  60.  /  total elapsed time
+    IMAGETYP= 'comp              '  /  object, dark, bias, etc.
+    DATE-OBS= '26/11/91          '  /  date (dd/mm/yy) of obs.
+    UT      = '12:41:30.00       '  /  universal time
+    ST      = '09:34:54.00       '  /  sidereal time
+    RA      = '06:37:02.00       '  /  right ascension
+    DEC     = '06:09:03.00       '  /  declination
+    EPOCH   =               1991.9  /  epoch of ra and dec
+    ZD      = '48.760            '  /  zenith distance
+    AIRMASS =                   0.  /  airmass
+    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= 'test              '  /  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'
+    CCDMEAN =              179.398
+    CCDPROC = 'Nov 26  5:44 CCD processing done'
diff --git a/noao/twodspec/longslit/demos/demoflat.dat b/noao/twodspec/longslit/demos/demoflat.dat
new file mode 100644
index 00000000..f4651c52
--- /dev/null
+++ b/noao/twodspec/longslit/demos/demoflat.dat
@@ -0,0 +1,37 @@
+    OBJECT  = 'Flat	         '  /  object name
+    OBSERVAT= 'KPNO              '  /  observatory
+    OBSERVER= 'Massey            '  /  observers
+    COMMENTS= 'Final New Ice     '  /  comments
+    EXPTIME =                1200.  /  actual integration time
+    DARKTIME=                1200.  /  total elapsed time
+    IMAGETYP= 'flat              '  /  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
+    AIRMASS =                   0.  /  airmass
+    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= 'test              '  /  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/twodspec/longslit/demos/demoobj.dat b/noao/twodspec/longslit/demos/demoobj.dat
new file mode 100644
index 00000000..78f3b9ad
--- /dev/null
+++ b/noao/twodspec/longslit/demos/demoobj.dat
@@ -0,0 +1,37 @@
+    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
+    AIRMASS =                   0.  /  airmass
+    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= 'test              '  /  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/twodspec/longslit/demos/demos.cl b/noao/twodspec/longslit/demos/demos.cl
new file mode 100644
index 00000000..5b065c51
--- /dev/null
+++ b/noao/twodspec/longslit/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/twodspec/longslit/demos/demos.men b/noao/twodspec/longslit/demos/demos.men
new file mode 100644
index 00000000..559bc1ae
--- /dev/null
+++ b/noao/twodspec/longslit/demos/demos.men
@@ -0,0 +1,4 @@
+	MENU of LONGSLIT Demonstrations
+
+         test - Test of LONGSLIT package (no comments, no delays)
+	testt - Test of LONGSLIT package with transposed data
diff --git a/noao/twodspec/longslit/demos/demos.par b/noao/twodspec/longslit/demos/demos.par
new file mode 100644
index 00000000..4181ed59
--- /dev/null
+++ b/noao/twodspec/longslit/demos/demos.par
@@ -0,0 +1,2 @@
+demoname,f,a,"",,,"Demo name"
+mode,s,h,"ql",,,
diff --git a/noao/twodspec/longslit/demos/demostd.dat b/noao/twodspec/longslit/demos/demostd.dat
new file mode 100644
index 00000000..78f3b9ad
--- /dev/null
+++ b/noao/twodspec/longslit/demos/demostd.dat
@@ -0,0 +1,37 @@
+    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
+    AIRMASS =                   0.  /  airmass
+    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= 'test              '  /  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/twodspec/longslit/demos/mktest.cl b/noao/twodspec/longslit/demos/mktest.cl
new file mode 100644
index 00000000..e1c5f069
--- /dev/null
+++ b/noao/twodspec/longslit/demos/mktest.cl
@@ -0,0 +1,31 @@
+# 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
+
+mkexample ("longslit", "Demoflat", oseed=4,  nseed=3,
+    errors=no, verbose=yes, list=no)
+mkheader ("Demoflat", "demos$demoflat.dat", append=no, verbose=no)
+mkexample ("longslit", "Demoarc1", oseed=5,  nseed=1,
+    errors=no, verbose=yes, list=no)
+mkheader ("Demoarc1", "demos$demoarc1.dat", append=no, verbose=no)
+mkexample ("longslit", "Demoobj", oseed=1,  nseed=1,
+    errors=no, verbose=yes, list=no)
+mkheader ("Demoobj", "demos$demoobj.dat", append=no, verbose=no)
+mkexample ("longslit", "Demostd", oseed=2, nseed=2,
+    errors=no, verbose=yes, list=no)
+mkheader ("Demostd", "demos$demostd.dat", append=no, verbose=no)
+mkexample ("longslit", "Demoarc2", oseed=5,  nseed=2,
+    errors=no, verbose=yes, list=no)
+mkheader ("Demoarc2", "demos$demoarc2.dat", append=no, verbose=no)
+imcopy ("Demoflat,Demoarc1,Demoobj,Demostd,Demoarc2",
+	"demoflat,demoarc1,demoobj,demostd,demoarc2",
+	verbose=yes)
diff --git a/noao/twodspec/longslit/demos/mktestt.cl b/noao/twodspec/longslit/demos/mktestt.cl
new file mode 100644
index 00000000..a60d8ad7
--- /dev/null
+++ b/noao/twodspec/longslit/demos/mktestt.cl
@@ -0,0 +1,38 @@
+# 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
+
+mkexample ("longslit", "Demoflat", oseed=4,  nseed=3,
+    errors=no, verbose=yes, list=no)
+mkheader ("Demoflat", "demos$demoflat.dat", append=no, verbose=no)
+mkexample ("longslit", "Demoarc1", oseed=5,  nseed=1,
+    errors=no, verbose=yes, list=no)
+mkheader ("Demoarc1", "demos$demoarc1.dat", append=no, verbose=no)
+mkexample ("longslit", "Demoobj", oseed=1,  nseed=1,
+    errors=no, verbose=yes, list=no)
+mkheader ("Demoobj", "demos$demoobj.dat", append=no, verbose=no)
+mkexample ("longslit", "Demostd", oseed=2, nseed=2,
+    errors=no, verbose=yes, list=no)
+mkheader ("Demostd", "demos$demostd.dat", append=no, verbose=no)
+mkexample ("longslit", "Demoarc2", oseed=5,  nseed=2,
+    errors=no, verbose=yes, list=no)
+mkheader ("Demoarc2", "demos$demoarc2.dat", append=no, verbose=no)
+
+print ("Transposing images...")
+imtranspose ("Demoflat,Demoarc1,Demoobj,Demostd,Demoarc2",
+	"demoflat,demoarc1,demoobj,demostd,demoarc2")
+wcsreset ("demoflat,demoarc1,demoobj,demostd,demoarc2", wcs="physical",
+	verbose=no)
+hedit ("demoflat,demoarc1,demoobj,demostd,demoarc2", "dispaxis", 1,
+	update=yes, verify=no, show=no)
+imtranspose ("demoflat,demoarc1,demoobj,demostd,demoarc2",
+	"demoflat,demoarc1,demoobj,demostd,demoarc2")
diff --git a/noao/twodspec/longslit/demos/test.cl b/noao/twodspec/longslit/demos/test.cl
new file mode 100644
index 00000000..99dbeb77
--- /dev/null
+++ b/noao/twodspec/longslit/demos/test.cl
@@ -0,0 +1,21 @@
+# Create demo data if needed.
+
+unlearn background calibrate identify illumination reidentify response
+unlearn sensfunc setairmass setjd splot standard fitcoords transform
+imdel demo*.imh
+cl (< "demos$mktest.cl")
+delete demolist,demodelfile,demologfile,demoplotfile,demostdfile v- >& dev$null
+if (access ("database"))
+    delete database/* v- >& dev$null
+;
+reidentify.logfile="demologfile"
+fitcoords.deletions="demodelfile"
+fitcoords.logfiles="STDOUT,demologfile"
+fitcoords.plotfile="demoplotfile"
+transform.logfiles="STDOUT,demologfile"
+
+# Execute playback.
+if (substr (envget("stdgraph"), 1, 6) == "xgterm")
+    stty (playback="demos$xgtest.dat", nlines=24, verify=no, delay=0)
+else
+    error (1, "Playback for current terminal type not available")
diff --git a/noao/twodspec/longslit/demos/testt.cl b/noao/twodspec/longslit/demos/testt.cl
new file mode 100644
index 00000000..94dcf0e0
--- /dev/null
+++ b/noao/twodspec/longslit/demos/testt.cl
@@ -0,0 +1,21 @@
+# Create demo data if needed.
+
+unlearn background calibrate identify illumination reidentify response
+unlearn sensfunc setairmass setjd splot standard fitcoords transform
+imdel demo*.imh
+cl (< "demos$mktestt.cl")
+delete demolist,demodelfile,demologfile,demoplotfile,demostdfile v- >& dev$null
+if (access ("database"))
+    delete database/* v- >& dev$null
+;
+reidentify.logfile="demologfile"
+fitcoords.deletions="demodelfile"
+fitcoords.logfiles="STDOUT,demologfile"
+fitcoords.plotfile="demoplotfile"
+transform.logfiles="STDOUT,demologfile"
+
+# Execute playback.
+if (substr (envget("stdgraph"), 1, 6) == "xgterm")
+    stty (playback="demos$xgtest.dat", nlines=24, verify=no, delay=0)
+else
+    error (1, "Playback for current terminal type not available")
diff --git a/noao/twodspec/longslit/demos/xgtest.dat b/noao/twodspec/longslit/demos/xgtest.dat
new file mode 100644
index 00000000..c521337d
--- /dev/null
+++ b/noao/twodspec/longslit/demos/xgtest.dat
@@ -0,0 +1,96 @@
+\O=NOAO/IRAF V2.10EXPORT valdes@puppis Thu 09:50:51 04-Feb-93
+\T=xgtermc
+\G=xgtermc
+imred\n
+bias\n
+sections\sdemoobj,demostd,demoarc1,demoarc2\s>\sdemolist\n
+colbias\sdemoflat,@demolist\sdemoflat,@demolist\sbias=[100,*]\strim=[20:80,*]\n
+\n
+:/<-5\s\s\s\s/=(.\s=\r f\scheb\r
+f/<-5\s\s\s\s/=(.\s=\r
+q/<-5\s\s\s\s/=(.\s=\r
+N\n
+bye\n
+bye\n
+response\sdemoflat\sdemoflat[20:40,*]\sdemoflat\n
+\n
+k/<-5\s\s\s\s/=(.\s=\r
+q/<-5\s\s\s\s/=(.\s=\r
+imarith\s@demolist\s/\sdemoflat\s@demolist\n
+illum\sdemostd\sdemoillum\sbins=1\n
+\n
+q/<-5\s\s\s\s/=(.\s=\r
+\n
+:/<-5\s\s\s\s/=(.\s=\r sample\s5:24,36:55\r
+:/<-5\s\s\s\s/=(.\s=\r f\scheb\r
+:/<-5\s\s\s\s/=(.\s=\r o\s3\r
+f/<-5\s\s\s\s/=(.\s=\r
+q/<-5\s\s\s\s/=(.\s=\r
+imarith\s@demolist\s/\sdemoillum\s@demolist\n
+iden\sdemoarc1\ssec="mid\scol"\n
+i/<-5\s\s\s\s/=(.\s=\r
+m*),'\s\s\s\s*)&/=2\r 5015\r
+m;$,9\s\s\s\s;%+/%*\r 7281\r
+l/<-5\s\s\s\s/=(.\s=\r
+f/<-5\s\s\s\s/=(.\s=\r
+d%"5!\s\s\s\s%!;$**\r
+d:7'5\s\s\s\s:845=(\r
+f/<-5\s\s\s\s/=(.\s=\r
+l/<-5\s\s\s\s/=(.\s=\r
+d/0%>\s\s\s\s/008&"\r
+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
+reid\sdemoarc1\sdemoarc1,demoarc2\ssec="mid\scol"\snlost=5\sv+\n
+iden\sdemostd\ssec="mid\sline"\n
+m/<-;\s\s\s\s/=(-94\r 50\r
+q/<-5\s\s\s\s/=(.\s=\r
+\n
+reid\sdemostd\sdemostd\ssec="mid\sline"\snlost=5\sv+\n
+fitcoords\scombine+\sfitname=demoarcfit\n
+demoarc1,demoarc2\n
+\n
+y/<-5\s\s\s\s/=(.\s=\r
+x/<-5\s\s\s\s/=(.\s=\r
+r/<-5\s\s\s\s/=(.\s=\r
+q/<-5\s\s\s\s/=(.\s=\r
+\n
+fitcoords\n
+demostd\n
+\n
+y/<-5\s\s\s\s/=(.\s=\r
+x/<-5\s\s\s\s/=(.\s=\r
+r/<-5\s\s\s\s/=(.\s=\r
+q/<-5\s\s\s\s/=(.\s=\r
+\n
+transform\slogfiles=STDOUT,demologfile\n
+demoobj,demostd\n
+demoobj,demostd\n
+demoarcfit,demostd\n
+background\sdemoobj,demostd\sdemoobj,demostd\n
+256\r
+:/<-5\s\s\s\s/=(.\s=\r sample\s5:24,36:55\r
+:/<-5\s\s\s\s/=(.\s=\r nav\s-20\r
+f/<-5\s\s\s\s/=(.\s=\r
+q/<-5\s\s\s\s/=(.\s=\r
+\r
+256\r
+q/<-5\s\s\s\s/=(.\s=\r
+\r
+nsum=7\n
+setairmass\sdemoobj,demostd\n
+standard\sdemostd\sdemostdfile\sap=31\n
+hz14\n
+n\n
+sensfunc\sdemostdfile\sdemosens\slogfile=demologfile\n
+\n
+q/<-5\s\s\s\s/=(.\s=\r
+calibrate\sdemoobj,demostd\sdemoobj,demostd\ssens=demosens\n
+splot\sdemostd,demoobj\n
+31\n
+y/<-5\s\s\s\s/=(.\s=\r hz14\r
+q/<-5\s\s\s\s/=(.\s=\r
+o/<-5\s\s\s\s/=(.\s=\r
+#/<-5\s\s\s\s/=(.\s=\r 1\r
+q/<-5\s\s\s\s/=(.\s=\r
diff --git a/noao/twodspec/longslit/demos/xgtestold.dat b/noao/twodspec/longslit/demos/xgtestold.dat
new file mode 100644
index 00000000..071fa083
--- /dev/null
+++ b/noao/twodspec/longslit/demos/xgtestold.dat
@@ -0,0 +1,93 @@
+\O=NOAO/IRAF V2.10EXPORT valdes@puppis Thu 09:50:51 04-Feb-93
+\T=xgtermc
+\G=xgtermc
+imred\n
+bias\n
+sections\sdemoobj,demostd,demoarc1,demoarc2\s>\sdemolist\n
+colbias\sdemoflat,@demolist\sdemoflat,@demolist\sbias=[100,*]\strim=[20:80,*]\n
+\n
+:*'3,\r f\scheb\r
+f*'3,\r
+q*'3,\r
+N\n
+bye\n
+bye\n
+response\sdemoflat\sdemoflat[20:40,*]\sdemoflat\n
+\n
+k*'3,\r
+q*'3,\r
+imarith\s@demolist\s/\sdemoflat\s@demolist\n
+illum\sdemostd\sdemoillum\sbins=1\n
+\n
+q*'3,\r
+\n
+:*'3,\r sample\s5:24,36:55\r
+:*'3,\r f\scheb\r
+:*'3,\r o\s3\r
+f*'3,\r
+q*'3,\r
+imarith\s@demolist\s/\sdemoillum\s@demolist\n
+iden\sdemoarc1\ssec="mid\scol"\n
+m*)4)\r 5015\r
+m;$4)\r 7281\r
+l*'3,\r
+f*'3,\r
+d$<5!\r
+d/9&5\r
+f*'3,\r
+l*'3,\r
+q*'3,\r
+q*'3,\r
+\n
+reid\sdemoarc1\sdemoarc1,demoarc2\ssec="mid\scol"\sv+\n
+iden\sdemostd\ssec="mid\sline"\n
+m0\s4"\r 50\r
+q0\s4"\r
+\n
+reid\sdemostd\sdemostd\ssec="mid\sline"\sv+\n
+fitcoords\scombine+\sfitname=demoarcfit\n
+demoarc1,demoarc2\n
+\n
+y*'3,\r
+x*'3,\r
+r*'3,\r
+q*'3,\r
+\n
+fitcoords\n
+demostd\n
+\n
+y*'3,\r
+x*'3,\r
+r*'3,\r
+q*'3,\r
+\n
+transform\slogfiles=STDOUT,demologfile\n
+demoobj,demostd\n
+demoobj,demostd\n
+demoarcfit,demostd\n
+background\sdemoobj,demostd\sdemoobj,demostd\n
+256\r
+:*'3,\r sample\s5:24,36:55\r
+:*'3,\r nav\s-20\r
+f*'3,\r
+q*'3,\r
+\r
+256\r
+q*'3,\r
+\r
+nsum=7\n
+setairmass\sdemoobj,demostd\n
+standard\sdemostd\sdemostdfile\sap=31\n
+hz14\n
+n\n
+sensfunc\sdemostdfile\sdemosens\slogfile=demologfile\n
+\n
+q*'3,\r
+calibrate\sdemoobj,demostd\sdemoobj,demostd\ssens=demosens\n
+splot\sdemostd,demoobj\n
+31\n
+y*'3,\r hz14\r
+q*'3,\r
+o*'3,\r
+#*'3,\r 1\r
+q*'3,\r