version 1.3, 2004/12/16 08:42:14 |
version 1.4, 2004/12/16 11:41:58 |
|
|
%$OpenXM: OpenXM/src/kan96xx/Doc/gnuplot.sm1,v 1.2 1999/11/17 00:28:54 takayama Exp $ |
%$OpenXM: OpenXM/src/kan96xx/Doc/gnuplot.sm1,v 1.3 2004/12/16 08:42:14 takayama Exp $ |
%%% 1999, 6/7 Mon. |
%%% 1999, 6/7 Mon. |
[(parse) (ox.sm1) pushfile] extension |
[(parse) (ox.sm1) pushfile] extension |
[(getenv) (OpenXM_HOME)] extension /OpenXM_HOME set |
[(getenv) (OpenXM_HOME)] extension /OpenXM_HOME set |
|
|
[OpenXM_HOME (/bin/gnuplot4ox)] cat /plot.gnuplotexec set |
[OpenXM_HOME (/bin/gnuplot4ox)] cat /plot.gnuplotexec set |
|
%(gnuplot) /plot.gnuplotexec set |
|
|
(SSkan/lib/plot.sm1 for ox_sm1_gnuplot. 1999/09/03. ) message |
(SSkan/lib/plot.sm1 for ox_sm1_gnuplot. 1999/09/03. ) message |
|
|
/gnuplot.callingMethod 0 def % 0 : old, 1 : pipe, 2: file |
/gnuplot.callingMethod 1 def % 0 : old, 1 : pipe, 2: file |
|
|
/plotstart { |
/plotstart { |
sm1connectr |
sm1connectr |
|
|
[(fp2mkfifo) gnuplot.fifo] extension message |
[(fp2mkfifo) gnuplot.fifo] extension message |
gnuplot.fifo message |
gnuplot.fifo message |
[(fp2popen) plot.gnuplotexec (w)] extension /gnuplot.pfp set |
[(fp2popen) plot.gnuplotexec (w)] extension /gnuplot.pfp set |
[(fp2fopen) gnuplot.fifo (r)] extension /gnuplot.fifoFp set |
(Started gnuplot) message |
% BUG! It does not return. |
|
|
|
[(fp2fputs) [(set mouse; set print ") gnuplot.fifo (" ; ) nl ] cat |
[(fp2fputs) [(set mouse; set print ") gnuplot.fifo (" ; ) nl ] cat |
gnuplot.pfp ] extension message |
gnuplot.pfp ] extension message |
[(fp2fflush) gnuplot.pfp] extension message |
[(fp2fflush) gnuplot.pfp] extension message |
|
|
|
[(fp2fopen) gnuplot.fifo (r)] extension /gnuplot.fifoFp set |
|
% This must be the last. Otherwise, fopen is blocked. |
|
/gnuplot.pid -2 def % dummy. |
|
gnuplot.pid message |
} def |
} def |
|
|
|
/plotstop { |
|
gnuplot.ccc $ plotstop.aux $ oxsubmit |
|
} def |
|
|
/plotstop.aux { |
/plotstop.aux { |
{ |
{ |
gnuplot.callingMethod 0 eq { |
gnuplot.callingMethod 0 eq { |
|
|
/plotstop.aux.0 { } def |
/plotstop.aux.0 { } def |
/plotstop.aux.1 { |
/plotstop.aux.1 { |
[(fp2fclose) gnuplot.pfp] extension pop |
[(fp2fclose) gnuplot.pfp] extension pop |
[(fp2fclose) gnuplot.fifo] extension pop |
[(fp2fclose) gnuplot.fifoFp] extension pop |
[(rm) gnuplot.fifo] oxshell pop |
[(rm) gnuplot.fifo] oxshell pop |
} def |
} def |
|
|
|
|
|
|
|
|
$plotstart ; (plot sin(x);) rplot$ message |
$plotstart ; (plot sin(x);) rplot$ message |
|
$plotstart.aux ; (splot x**2-y**2;) gnuplot $ message |