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/argus/demos/demos.cl | 18 +++++++++ noao/imred/argus/demos/demos.men | 4 ++ noao/imred/argus/demos/demos.par | 2 + noao/imred/argus/demos/doargus.cl | 13 ++++++ noao/imred/argus/demos/header.dat | 36 +++++++++++++++++ noao/imred/argus/demos/mkdoargus.cl | 22 +++++++++++ noao/imred/argus/demos/mkdoargus.dat | 13 ++++++ noao/imred/argus/demos/xgdoargus.dat | 76 ++++++++++++++++++++++++++++++++++++ 8 files changed, 184 insertions(+) create mode 100644 noao/imred/argus/demos/demos.cl create mode 100644 noao/imred/argus/demos/demos.men create mode 100644 noao/imred/argus/demos/demos.par create mode 100644 noao/imred/argus/demos/doargus.cl create mode 100644 noao/imred/argus/demos/header.dat create mode 100644 noao/imred/argus/demos/mkdoargus.cl create mode 100644 noao/imred/argus/demos/mkdoargus.dat create mode 100644 noao/imred/argus/demos/xgdoargus.dat (limited to 'noao/imred/argus/demos') diff --git a/noao/imred/argus/demos/demos.cl b/noao/imred/argus/demos/demos.cl new file mode 100644 index 00000000..5b065c51 --- /dev/null +++ b/noao/imred/argus/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/argus/demos/demos.men b/noao/imred/argus/demos/demos.men new file mode 100644 index 00000000..ee467bdf --- /dev/null +++ b/noao/imred/argus/demos/demos.men @@ -0,0 +1,4 @@ + MENU of ARGUS Demonstrations + + doargus - Quick test of DOARGUS (small images, no comments, no delays) + mkdoargus - Make DOARGUS test data (12 fibers, 100x256) diff --git a/noao/imred/argus/demos/demos.par b/noao/imred/argus/demos/demos.par new file mode 100644 index 00000000..4181ed59 --- /dev/null +++ b/noao/imred/argus/demos/demos.par @@ -0,0 +1,2 @@ +demoname,f,a,"",,,"Demo name" +mode,s,h,"ql",,, diff --git a/noao/imred/argus/demos/doargus.cl b/noao/imred/argus/demos/doargus.cl new file mode 100644 index 00000000..51e7f0d9 --- /dev/null +++ b/noao/imred/argus/demos/doargus.cl @@ -0,0 +1,13 @@ +# Create demo data if needed. + +cl (< "demos$mkdoargus.cl") + +delete ("demologfile,demoplotfile", verify=no, >& "dev$null") + +unlearn doargus params + +# Execute playback. +if (substr (envget("stdgraph"), 1, 6) == "xgterm") + stty (playback="demos$xgdoargus.dat", nlines=24, verify=no, delay=0) +else + error (1, "Playback for current terminal type not available") diff --git a/noao/imred/argus/demos/header.dat b/noao/imred/argus/demos/header.dat new file mode 100644 index 00000000..2e104ae7 --- /dev/null +++ b/noao/imred/argus/demos/header.dat @@ -0,0 +1,36 @@ +OBJECT = 'V640Mon 4500 ' / object name +OBSERVAT= 'CTIO ' / 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/argus/demos/mkdoargus.cl b/noao/imred/argus/demos/mkdoargus.cl new file mode 100644 index 00000000..39c94db0 --- /dev/null +++ b/noao/imred/argus/demos/mkdoargus.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="object", fibers="demos$mkdoargus.dat", + title="Argus artificial image", header="demos$header.dat", + ncols=100, nlines=256, wstart=5786., wend=7362., seed=1) +mkfibers ("demoflat", type="flat", fibers="demos$mkdoargus.dat", + title="Argus artificial image", header="demos$header.dat", + ncols=100, nlines=256, wstart=5786., wend=7362., seed=2) +mkfibers ("demoarc", type="henear", fibers="demos$mkdoargus.dat", + title="Argus artificial image", header="demos$header.dat", + ncols=100, nlines=256, wstart=5786., wend=7362., seed=3) diff --git a/noao/imred/argus/demos/mkdoargus.dat b/noao/imred/argus/demos/mkdoargus.dat new file mode 100644 index 00000000..8f9311c0 --- /dev/null +++ b/noao/imred/argus/demos/mkdoargus.dat @@ -0,0 +1,13 @@ + 1 1 1.096679 gauss 2.7 0 86.801 0.002 + 2 0 1.164292 gauss 2.7 0 81.093 0.002 + 3 1 0.457727 gauss 2.7 0 74.824 0.002 + 4 0 1.269284 gauss 2.7 0 68.719 0.002 + 5 1 1.309297 gauss 2.7 0 62.536 0.002 + 7 1 1.283618 gauss 2.7 0 50.218 0.002 + 8 0 0.687173 gauss 2.7 0 43.963 0.002 + 9 1 1.175850 gauss 2.7 0 38.0091 0.002 +10 0 0.757532 gauss 2.7 0 31.9606 0.002 +11 1 0.939866 gauss 2.7 0 25.1000 0.002 +12 0 1.015546 gauss 2.7 0 19.5097 0.002 +13 1 0.372036 gauss 2.7 0 13.5889 0.002 +14 0 1.065080 gauss 2.7 0 07.4535 0.002 diff --git a/noao/imred/argus/demos/xgdoargus.dat b/noao/imred/argus/demos/xgdoargus.dat new file mode 100644 index 00000000..e3fb9dfd --- /dev/null +++ b/noao/imred/argus/demos/xgdoargus.dat @@ -0,0 +1,76 @@ +\O=NOAO/IRAF IRAFX valdes@puppis Mon 14:58:37 15-Nov-93 +\T=xgterm +\G=xgterm +epar\sargus\n +\r +\r +\r +\r +\r +y\r +demologfile\r +demoplotfile\r +^Z +epar\sdoargus\n +demoobj\r +demoflat\r +demoflat\r +\r +demoarc\r +\r +\r +rdnoise\r +gain\r +\r +13\r +4\r +5\r +7\r +\r +6600\r +6.1\r +\r +\r +\r +\r +\r +\r +n\r +\r +\r +\r +\r +\r +y\r +^Z +doargus\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 +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 +n\n +\n +q/<-5\s\s\s\s/=(.\s=\r +\n +\n +\n +#/<-5\s\s\s\s/=(.\s=\r 3\r +#/<-5\s\s\s\s/=(.\s=\r 14\r +q/<-5\s\s\s\s/=(.\s=\r -- cgit