aboutsummaryrefslogtreecommitdiff
path: root/noao/twodspec/longslit/demos/test.cl
blob: 99dbeb774b5d0f786b7cc87f265b10cb68fd8725 (plain) (blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
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")