aboutsummaryrefslogtreecommitdiff
path: root/noao/imred/kpnocoude/demos
diff options
context:
space:
mode:
Diffstat (limited to 'noao/imred/kpnocoude/demos')
-rw-r--r--noao/imred/kpnocoude/demos/demoarc1.dat38
-rw-r--r--noao/imred/kpnocoude/demos/demoarc2.dat38
-rw-r--r--noao/imred/kpnocoude/demos/demoobj1.dat37
-rw-r--r--noao/imred/kpnocoude/demos/demos.cl18
-rw-r--r--noao/imred/kpnocoude/demos/demos.men6
-rw-r--r--noao/imred/kpnocoude/demos/demos.par2
-rw-r--r--noao/imred/kpnocoude/demos/demostd1.dat37
-rw-r--r--noao/imred/kpnocoude/demos/do3fiber.cl14
-rw-r--r--noao/imred/kpnocoude/demos/doslit.cl15
-rw-r--r--noao/imred/kpnocoude/demos/mkdo3fiber.cl22
-rw-r--r--noao/imred/kpnocoude/demos/mkdo3fiber.dat3
-rw-r--r--noao/imred/kpnocoude/demos/mkdoslit.cl25
-rw-r--r--noao/imred/kpnocoude/demos/xgdo3fiber.dat60
-rw-r--r--noao/imred/kpnocoude/demos/xgdoslit.dat71
14 files changed, 386 insertions, 0 deletions
diff --git a/noao/imred/kpnocoude/demos/demoarc1.dat b/noao/imred/kpnocoude/demos/demoarc1.dat
new file mode 100644
index 00000000..fa0a179d
--- /dev/null
+++ b/noao/imred/kpnocoude/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/imred/kpnocoude/demos/demoarc2.dat b/noao/imred/kpnocoude/demos/demoarc2.dat
new file mode 100644
index 00000000..4cd9975d
--- /dev/null
+++ b/noao/imred/kpnocoude/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/imred/kpnocoude/demos/demoobj1.dat b/noao/imred/kpnocoude/demos/demoobj1.dat
new file mode 100644
index 00000000..78f3b9ad
--- /dev/null
+++ b/noao/imred/kpnocoude/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= '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/imred/kpnocoude/demos/demos.cl b/noao/imred/kpnocoude/demos/demos.cl
new file mode 100644
index 00000000..5b065c51
--- /dev/null
+++ b/noao/imred/kpnocoude/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/kpnocoude/demos/demos.men b/noao/imred/kpnocoude/demos/demos.men
new file mode 100644
index 00000000..cdd3d484
--- /dev/null
+++ b/noao/imred/kpnocoude/demos/demos.men
@@ -0,0 +1,6 @@
+ MENU of KPNOCOUDE Demonstrations
+
+ doslit - Quick test of DOSLIT (no comments, no delays)
+ do3fiber - Quick test of DO3FIBER (small images, no comments, no delays)
+ mkdoslit - Make DOSLIT test data
+ mkdo3fiber - Make DO3FIBER test data (50x256)
diff --git a/noao/imred/kpnocoude/demos/demos.par b/noao/imred/kpnocoude/demos/demos.par
new file mode 100644
index 00000000..4181ed59
--- /dev/null
+++ b/noao/imred/kpnocoude/demos/demos.par
@@ -0,0 +1,2 @@
+demoname,f,a,"",,,"Demo name"
+mode,s,h,"ql",,,
diff --git a/noao/imred/kpnocoude/demos/demostd1.dat b/noao/imred/kpnocoude/demos/demostd1.dat
new file mode 100644
index 00000000..78f3b9ad
--- /dev/null
+++ b/noao/imred/kpnocoude/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= '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/imred/kpnocoude/demos/do3fiber.cl b/noao/imred/kpnocoude/demos/do3fiber.cl
new file mode 100644
index 00000000..c4ab15a5
--- /dev/null
+++ b/noao/imred/kpnocoude/demos/do3fiber.cl
@@ -0,0 +1,14 @@
+# Create demo data if needed.
+
+cl (< "demos$mkdo3fiber.cl")
+
+unlearn do3fiber
+params.coordlist = "linelists$idhenear.dat"
+params.match = 10.
+delete demologfile,demoplotfile verify=no >& dev$null
+
+# Execute playback.
+if (substr (envget("stdgraph"), 1, 6) == "xgterm")
+ stty (playback="demos$xgdo3fiber.dat", nlines=24, verify=no, delay=0)
+else
+ error (1, "Playback for current terminal type not available")
diff --git a/noao/imred/kpnocoude/demos/doslit.cl b/noao/imred/kpnocoude/demos/doslit.cl
new file mode 100644
index 00000000..dd7a0955
--- /dev/null
+++ b/noao/imred/kpnocoude/demos/doslit.cl
@@ -0,0 +1,15 @@
+# Create demo data if needed.
+
+cl (< "demos$mkdoslit.cl")
+
+unlearn doslit
+sparams.extras = no
+sparams.coordlist = "linelists$idhenear.dat"
+sparams.match = 10.
+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/kpnocoude/demos/mkdo3fiber.cl b/noao/imred/kpnocoude/demos/mkdo3fiber.cl
new file mode 100644
index 00000000..00a775f4
--- /dev/null
+++ b/noao/imred/kpnocoude/demos/mkdo3fiber.cl
@@ -0,0 +1,22 @@
+# 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="objnosky", fibers="demos$mkdo3fiber.dat",
+ title="Coude artificial image", header="demos$demoobj1.dat",
+ ncols=50, nlines=256, wstart=5786., wend=7362., seed=1)
+mkfibers ("demoflat", type="flat", fibers="demos$mkdo3fiber.dat",
+ title="Coude artificial image", header="demos$demostd1.dat",
+ ncols=50, nlines=256, wstart=5786., wend=7362., seed=2)
+mkfibers ("demoarc", type="henear", fibers="demos$mkdo3fiber.dat",
+ title="Coude artificial image", header="demos$demoarc1.dat",
+ ncols=50, nlines=256, wstart=5786., wend=7362., seed=3)
diff --git a/noao/imred/kpnocoude/demos/mkdo3fiber.dat b/noao/imred/kpnocoude/demos/mkdo3fiber.dat
new file mode 100644
index 00000000..e0d2d241
--- /dev/null
+++ b/noao/imred/kpnocoude/demos/mkdo3fiber.dat
@@ -0,0 +1,3 @@
+1 2 0.757532 gauss 2.7 0 14.6 0.002
+2 1 0.939866 gauss 2.7 0 25.1 0.002
+3 2 1.015546 gauss 2.7 0 35.5 0.002
diff --git a/noao/imred/kpnocoude/demos/mkdoslit.cl b/noao/imred/kpnocoude/demos/mkdoslit.cl
new file mode 100644
index 00000000..b76f467d
--- /dev/null
+++ b/noao/imred/kpnocoude/demos/mkdoslit.cl
@@ -0,0 +1,25 @@
+# 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", "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/kpnocoude/demos/xgdo3fiber.dat b/noao/imred/kpnocoude/demos/xgdo3fiber.dat
new file mode 100644
index 00000000..498209b4
--- /dev/null
+++ b/noao/imred/kpnocoude/demos/xgdo3fiber.dat
@@ -0,0 +1,60 @@
+\O=NOAO/IRAF IRAFX valdes@puppis Mon 14:58:37 15-Nov-93
+\T=xgterm
+\G=xgterm
+epar\skpnocoude\n
+\r
+\r
+\r
+\r
+\r
+\r
+\r
+y\r
+demologfile\r
+demoplotfile
+^Z
+epar\sdo3fiber\n
+demoobj\r
+demoflat\r
+demoflat\r
+demoarc\r
+\r
+rdnoise\r
+gain\r
+\r
+\r
+4\r
+6600\r
+6.1\r
+\r
+\r
+\r
+\r
+y\r
+y\r
+\r
+\r
+y\r
+^Z
+do3fiber\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
+q/<-5\s\s\s\s/=(.\s=\r
+:/<-5\s\s\s\s/=(.\s=\r coord\slinelists$idhenear.dat\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
+q/<-5\s\s\s\s/=(.\s=\r
+N\n
+n\n
+\n
+q/<-5\s\s\s\s/=(.\s=\r
diff --git a/noao/imred/kpnocoude/demos/xgdoslit.dat b/noao/imred/kpnocoude/demos/xgdoslit.dat
new file mode 100644
index 00000000..4ba38e19
--- /dev/null
+++ b/noao/imred/kpnocoude/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\skpnocoude\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
+hz14\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 09:14:19 -0400