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

moved monotonicity checking into an outer loop

Browse Source
This commit is contained in:
Dima Kogan 2011-05-22 15:15:37 -07:00
parent b6cc2579c4
commit 339c2f9a3d
1 changed files with 15 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

26
bin/feedGnuplot
View File

@ -31,6 +31,9 @@ my %curveIndices = ();
# now start the data acquisition and plotting threads # now start the data acquisition and plotting threads
my $dataQueue; my $dataQueue;
# latest domain variable present in our data
my $latestX;
my $streamingFinished : shared = undef; my $streamingFinished : shared = undef;
if($options{stream}) if($options{stream})
{ {
@ -421,6 +424,18 @@ sub mainThread
/($numRE)/go or next; /($numRE)/go or next;
$domain[1] = $1; $domain[1] = $1;
} }
elsif( $options{monotonic} )
{
if( defined $latestX && $domain[0] < $latestX )
{
# the x-coordinate of the new point is in the past, so I wipe out all the data for this curve
# and start anew
clearCurves();
}
else
{ $latestX = $domain[0]; }
}
} }
else else
{ {
@ -595,17 +610,6 @@ sub setCurveLabel
sub pushPoint sub pushPoint
{ {
my ($curve, $xy) = @_; my ($curve, $xy) = @_;
if($options{monotonic})
{
if( @$curve > 1 && $xy->[0] < $curve->[$#{$curve}][0] )
{
# the x-coordinate of the new point is in the past, so I wipe out all the data for this curve
# and start anew
splice( @$curve, 1 );
}
}
push @$curve, $xy; push @$curve, $xy;
} }