aboutsummaryrefslogtreecommitdiff
path: root/noao/imred/kpnoslit/demos
diff options
context:
space:
mode:
Diffstat (limited to 'noao/imred/kpnoslit/demos')
-rw-r--r--noao/imred/kpnoslit/demos/demoarc1.dat38
-rw-r--r--noao/imred/kpnoslit/demos/demoarc2.dat38
-rw-r--r--noao/imred/kpnoslit/demos/demoflat.dat38
-rw-r--r--noao/imred/kpnoslit/demos/demoobj1.dat37
-rw-r--r--noao/imred/kpnoslit/demos/demos.cl18
-rw-r--r--noao/imred/kpnoslit/demos/demos.men4
-rw-r--r--noao/imred/kpnoslit/demos/demos.par2
-rw-r--r--noao/imred/kpnoslit/demos/demostd1.dat37
-rw-r--r--noao/imred/kpnoslit/demos/doslit.cl14
-rw-r--r--noao/imred/kpnoslit/demos/mkdoslit.cl28
-rw-r--r--noao/imred/kpnoslit/demos/xgdoslit.dat71
11 files changed, 325 insertions, 0 deletions
diff --git a/noao/imred/kpnoslit/demos/demoarc1.dat b/noao/imred/kpnoslit/demos/demoarc1.dat
new file mode 100644
index 00000000..dd6b0161
--- /dev/null
+++ b/noao/imred/kpnoslit/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= '1991-11-26T12:11:30.00' / 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/imred/kpnoslit/demos/demoarc2.dat b/noao/imred/kpnoslit/demos/demoarc2.dat
new file mode 100644
index 00000000..5c2d8050
--- /dev/null
+++ b/noao/imred/kpnoslit/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= '1991-11-26T12:41:30.00' / 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/imred/kpnoslit/demos/demoflat.dat b/noao/imred/kpnoslit/demos/demoflat.dat
new file mode 100644
index 00000000..0d5ed308
--- /dev/null
+++ b/noao/imred/kpnoslit/demos/demoflat.dat
@@ -0,0 +1,38 @@
+OBJECT = 'Flat field ' / object name
+OBSERVAT= 'KPNO ' / observatory
+OBSERVER= 'Massey ' / observers
+COMMENTS= 'Final New Ice ' / comments
+EXPTIME = 3. / actual integration time
+DARKTIME= 3. / total elapsed time
+IMAGETYP= 'flat ' / object, dark, bias, etc.
+DATE-OBS= '1991-11-26T11:11:30.00' / date (dd/mm/yy) of obs.
+UT = '11: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/imred/kpnoslit/demos/demoobj1.dat b/noao/imred/kpnoslit/demos/demoobj1.dat
new file mode 100644
index 00000000..bf571862
--- /dev/null
+++ b/noao/imred/kpnoslit/demos/demoobj1.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= '1991-11-26T12:19:55.00' / 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/imred/kpnoslit/demos/demos.cl b/noao/imred/kpnoslit/demos/demos.cl
new file mode 100644
index 00000000..5b065c51
--- /dev/null
+++ b/noao/imred/kpnoslit/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/kpnoslit/demos/demos.men b/noao/imred/kpnoslit/demos/demos.men
new file mode 100644
index 00000000..b35ba7be
--- /dev/null
+++ b/noao/imred/kpnoslit/demos/demos.men
@@ -0,0 +1,4 @@
+ MENU of KPNOSLIT Demonstrations
+
+ doslit - Quick test of DOSLIT (no comments, no delays)
+ mkdoslit - Make DOSLIT test data
diff --git a/noao/imred/kpnoslit/demos/demos.par b/noao/imred/kpnoslit/demos/demos.par
new file mode 100644
index 00000000..4181ed59
--- /dev/null
+++ b/noao/imred/kpnoslit/demos/demos.par
@@ -0,0 +1,2 @@
+demoname,f,a,"",,,"Demo name"
+mode,s,h,"ql",,,
diff --git a/noao/imred/kpnoslit/demos/demostd1.dat b/noao/imred/kpnoslit/demos/demostd1.dat
new file mode 100644
index 00000000..bf571862
--- /dev/null
+++ b/noao/imred/kpnoslit/demos/demostd1.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= '1991-11-26T12:19:55.00' / 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/imred/kpnoslit/demos/doslit.cl b/noao/imred/kpnoslit/demos/doslit.cl
new file mode 100644
index 00000000..b2ecbde2
--- /dev/null
+++ b/noao/imred/kpnoslit/demos/doslit.cl
@@ -0,0 +1,14 @@
+# Create demo data if needed.
+
+cl (< "demos$mkdoslit.cl")
+
+unlearn doslit
+sparams.extras = no
+sparams.coordlist = "linelists$idhenear.dat"
+delete demologfile,demoplotfile verify=no >& dev$null
+
+# Execute playback.
+if (substr (envget("stdgraph"), 1, 6) == "xgterm")
+ stty (playback="demos$xgdoslit.dat", nlines=24, verify=no, delay=0)
+else
+ error (1, "Playback for current terminal type not available")
diff --git a/noao/imred/kpnoslit/demos/mkdoslit.cl b/noao/imred/kpnoslit/demos/mkdoslit.cl
new file mode 100644
index 00000000..63acb123
--- /dev/null
+++ b/noao/imred/kpnoslit/demos/mkdoslit.cl
@@ -0,0 +1,28 @@
+# 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=1,
+ 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", "demoobj1", oseed=1, nseed=1,
+ errors=no, verbose=yes, list=no)
+mkheader ("demoobj1", "demos$demoobj1.dat", append=no, verbose=no)
+mkexample ("longslit", "demostd1", oseed=2, nseed=2,
+ errors=no, verbose=yes, list=no)
+mkheader ("demostd1", "demos$demostd1.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)
diff --git a/noao/imred/kpnoslit/demos/xgdoslit.dat b/noao/imred/kpnoslit/demos/xgdoslit.dat
new file mode 100644
index 00000000..0cd3a8d9
--- /dev/null
+++ b/noao/imred/kpnoslit/demos/xgdoslit.dat
@@ -0,0 +1,71 @@
+\O=NOAO/IRAF IRAFX valdes@puppis Mon 14:58:37 15-Nov-93
+\T=xgterm
+\G=xgterm
+epar\skpnoslit\n
+\r
+\r
+\r
+\r
+\r
+\r
+\r
+y\r
+demologfile\r
+demoplotfile\r
+^Z
+epar\sdoslit\n
+demoobj1\r
+demoarc1,demoarc2\r
+\r
+demostd1\r
+rdnoise\r
+gain\r
+\r
+\r
+5700\r
+6.2\r
+\r
+y\r
+y\r
+y\r
+y\r
+y\r
+^Z
+doslit\sredo+\n
+\n
+\n
+b/<-5\s\s\s\s/=(.\s=\r
+q/<-5\s\s\s\s/=(.\s=\r
+q/<-5\s\s\s\s/=(.\s=\r
+\r
+\r
+q/<-5\s\s\s\s/=(.\s=\r
+\n
+q/<-5\s\s\s\s/=(.\s=\r
+\r
+\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
+y\n
+4210\n
+7350\n
+6.2\n
+\n
+n\n
+\n
+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
+hz44\n
+\n
+q/<-5\s\s\s\s/=(.\s=\r
+Y\n
+q/<-5\s\s\s\s/=(.\s=\r
+q/<-5\s\s\s\s/=(.\s=\r
+gkimos\sdemoplotfile\snx=3\sny=3\sdev=stdgraph\n
+q/<-5\s\s\s\s/=(.\s=\r
generated by cgit (git 2.34.1) at 2025-09-20 08:52:37 -0400