aboutsummaryrefslogtreecommitdiff
path: root/noao/imred/echelle/demos/dofoe.cl
blob: 9a7d0da3c2e3b05bfb4ba28241d6ab281d8fe579 (plain) (blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
# Create demo data if needed.

task $mkdofoe=demos$mkdofoe.cl
mkdofoe

unlearn dofoe params
delete ("demologfile,demoplotfile", verify=no, >& "dev$null")

# Execute playback.
if (substr (envget("stdgraph"), 1, 6) == "xgterm")
    stty (playback="demos$xgdofoe.dat", nlines=24, verify=no, delay=0)
else
    error (1, "Playback for current terminal type not available")