zhangyiss/feedgnuplot
1
0
Fork 0
mirror of https://github.com/dkogan/feedgnuplot.git synced 2025-05-05 22:11:12 +08:00
Code Issues Actions Packages Projects Releases Wiki Activity

initial tests

Browse Source
This commit is contained in:
Dima Kogan 2015-08-29 12:09:53 -07:00
parent 9d98b84546
commit 2fd23ed446
1 changed files with 17 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

25
bin/feedgnuplot
View File

@ -455,6 +455,8 @@ sub makeDomainNumeric
sub mainThread sub mainThread
{ {
local *PIPE; local *PIPE;
pipe my ($pipe_readdata, $pipe_writedata);
my $dopersist = ''; my $dopersist = '';
if( getGnuplotVersion() >= 4.3) if( getGnuplotVersion() >= 4.3)
@ -644,7 +646,8 @@ sub mainThread
if(/^replot/o ) if(/^replot/o )
{ {
# /timertick/ determines if the timer was the source of the replot # /timertick/ determines if the timer was the source of the replot
replot( $domain0_numeric, /timertick/ ); replot( $pipe_readdata, $pipe_writedata,
$domain0_numeric, /timertick/ );
next; next;
} }
@ -700,7 +703,8 @@ sub mainThread
# the x-coordinate of the new point is in the past, so I wipe out # the x-coordinate of the new point is in the past, so I wipe out
# all the data and start anew. Before I wipe the old data, I # all the data and start anew. Before I wipe the old data, I
# replot the old data # replot the old data
replot( $domain0_numeric ); replot( $pipe_readdata, $pipe_writedata,
$domain0_numeric );
clearCurves(); clearCurves();
$latestX = undef; $latestX = undef;
} }
@ -759,7 +763,7 @@ sub mainThread
} }
# finished reading in all. Plot what we have # finished reading in all. Plot what we have
plotStoredData(); plotStoredData($pipe_readdata, $pipe_writedata);
if ( defined $options{hardcopy}) if ( defined $options{hardcopy})
{ {
@ -819,18 +823,22 @@ sub pruneOldData
sub plotStoredData sub plotStoredData
{ {
my ($pipe_readdata, $pipe_writedata) = @_;
# get the options for those curves that havse any data # get the options for those curves that havse any data
my @nonemptyCurves = grep { $_->{datastring} } @curves; my @nonemptyCurves = grep { $_->{datastring} } @curves;
my @extraopts = map {$_->{options}} @nonemptyCurves; my @extraopts = map {$_->{options}} @nonemptyCurves;
my $body = join(', ' , map({ "'-' $_" } @extraopts) ); my $fd = fileno $pipe_readdata;
my $body = join(', ' , map({ "'<&$fd' $_" } @extraopts) );
if($options{'3d'}) { print PIPE "splot $body\n"; } if($options{'3d'}) { print PIPE "splot $body\n"; }
else { print PIPE "plot $body\n"; } else { print PIPE "plot $body\n"; }
foreach my $curve (@nonemptyCurves) foreach my $curve (@nonemptyCurves)
{ {
print PIPE $curve->{datastring}; print $pipe_writedata $curve->{datastring};
print PIPE "e\n"; print $pipe_writedata "e\n";
} }
} }
@ -977,7 +985,8 @@ sub replot
# } # }
my ($domain0_numeric, $replot_is_from_timer) = @_; my ($pipe_readdata, $pipe_writedata,
$domain0_numeric, $replot_is_from_timer) = @_;
my $now = [gettimeofday]; my $now = [gettimeofday];
@ -1008,7 +1017,7 @@ sub replot
sendRangeCommand( "xrange", $xmin, $xmax ); sendRangeCommand( "xrange", $xmin, $xmax );
} }
plotStoredData(); plotStoredData($pipe_readdata, $pipe_writedata);
# update replot state # update replot state