version 1.8, 2005/02/04 11:25:45 |
version 1.9, 2005/02/04 11:54:06 |
|
|
%$OpenXM: OpenXM/src/kan96xx/Doc/gnuplot.sm1,v 1.7 2004/12/21 03:25:04 takayama Exp $ |
%$OpenXM: OpenXM/src/kan96xx/Doc/gnuplot.sm1,v 1.8 2005/02/04 11:25:45 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 |
|
|
[(fp2fputs) [cccc nl] cat gnuplot.pfp] extension pop |
[(fp2fputs) [cccc nl] cat gnuplot.pfp] extension pop |
[(fp2fflush) gnuplot.pfp] extension pop |
[(fp2fflush) gnuplot.pfp] extension pop |
gnuplot.read.1 |
gnuplot.read.1 |
|
gnuplot.sync.1 |
} def |
} def |
|
|
%% (plot sin(x);) gnuplot |
%% (plot sin(x);) gnuplot |
|
|
} loop |
} loop |
} ifelse |
} ifelse |
] { (string) dc } map cat |
] { (string) dc } map cat |
|
} def |
|
|
|
% It uses "@" to wait for the gnuplot. |
|
/gnuplot.sync.1 { |
|
[(fp2fputs) [(print "@";) nl] cat gnuplot.pfp] extension pop |
|
[(fp2fflush) gnuplot.pfp] extension pop |
|
{ |
|
[(fp2fgetc) gnuplot.fifoFp] extension 64 eq { exit} { } ifelse |
|
} loop |
} def |
} def |
|
|
/isAlive { |
/isAlive { |