22 lines
355 B
Plaintext
22 lines
355 B
Plaintext
|
* initialize a device plot
|
||
|
|
.control
|
||
|
|
begin
|
||
|
|
unset devfile
|
||
|
|
if $argc = 1
|
||
|
|
set devfile = $argv[1]
|
||
|
|
load $devfile
|
||
|
|
strcmp flag "$?&y" "1"
|
||
|
|
if ($flag = 0)
|
||
|
|
let yaxis = y[0]
|
||
|
|
transpose all
|
||
|
|
let xaxis = x[0]
|
||
|
|
transpose all
|
||
|
|
setscale yaxis
|
||
|
|
end
|
||
|
|
else
|
||
|
|
echo "usage: devload <filename>"
|
||
|
|
end
|
||
|
|
|
||
|
|
unset devfile flag
|
||
|
|
end
|