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

I no longer add any data points in the newCurve() call, so I remove newCurve() 's ability to do that

Browse Source
This commit is contained in:
Dima Kogan 2010-10-23 01:08:52 -07:00
parent 78bb507f36
commit f5ee508d25
1 changed files with 4 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
feedGnuplot.pl
View File

@ -506,7 +506,7 @@ sub newCurve
# COULD be a part of $opts, but this raises an issue in the no-title case. When no title is
# specified, gnuplot will still add a legend entry with an unhelpful '-' label. I can still grep
# $opts to see if a title is given, but that's a bit ugly in its own way...
my ($title, $opts, $newpoint, $idx) = @_;
my ($title, $opts, $idx) = @_;
if(scalar @curves >= $options{maxcurves})
{
@ -533,14 +533,7 @@ sub newCurve
if(defined $title) { $opts = "title \"$title\" $opts" }
else { $opts = "notitle $opts" }
if( defined $newpoint )
{
$curves[$idx] = [{"options" => " $opts"}, $newpoint];
}
else
{
$curves[$idx] = [{"options" => " $opts"}];
}
}
sub addCurveOption
@ -552,7 +545,7 @@ sub addCurveOption
}
else
{
newCurve('', $str, undef, $idx);
newCurve('', $str, $idx);
}
}
@ -563,7 +556,7 @@ sub pushPoint
if ( !exists $curves[$idx] )
{
newCurve("", "", undef, $idx);
newCurve("", "", $idx);
}
elsif($options{monotonic})
{