blob: c4ab15a523d3dbc4d05454c108f6472dbddf6501 (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
|
# Create demo data if needed.
cl (< "demos$mkdo3fiber.cl")
unlearn do3fiber
params.coordlist = "linelists$idhenear.dat"
params.match = 10.
delete demologfile,demoplotfile verify=no >& dev$null
# Execute playback.
if (substr (envget("stdgraph"), 1, 6) == "xgterm")
stty (playback="demos$xgdo3fiber.dat", nlines=24, verify=no, delay=0)
else
error (1, "Playback for current terminal type not available")
|
