From 40e5a5811c6ffce9b0974e93cdd927cbcf60c157 Mon Sep 17 00:00:00 2001
From: Joe Hunkeler <jhunkeler@gmail.com>
Date: Tue, 11 Aug 2015 16:51:37 -0400
Subject: Repatch (from linux) of OSX IRAF

---
 noao/twodspec/longslit/demos/test.cl | 21 +++++++++++++++++++++
 1 file changed, 21 insertions(+)
 create mode 100644 noao/twodspec/longslit/demos/test.cl

(limited to 'noao/twodspec/longslit/demos/test.cl')

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")
-- 
cgit