diff options
Diffstat (limited to 'noao/twodspec/longslit/demos/test.cl')
| -rw-r--r-- | noao/twodspec/longslit/demos/test.cl | 21 |
1 files changed, 21 insertions, 0 deletions
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") |