aboutsummaryrefslogtreecommitdiff
path: root/noao/imred/kpnocoude/demos/doslit.cl
blob: dd7a09558228cec3baf9081c4b59bbd332537c43 (plain) (blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
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")