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

This commit is contained in:
Dima Kogan 2010-10-23 01:08:52 -07:00
parent 78bb507f36
commit f5ee508d25

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 # 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 # 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... # $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}) if(scalar @curves >= $options{maxcurves})
{ {
@ -533,14 +533,7 @@ sub newCurve
if(defined $title) { $opts = "title \"$title\" $opts" } if(defined $title) { $opts = "title \"$title\" $opts" }
else { $opts = "notitle $opts" } else { $opts = "notitle $opts" }
if( defined $newpoint ) $curves[$idx] = [{"options" => " $opts"}];
{
$curves[$idx] = [{"options" => " $opts"}, $newpoint];
}
else
{
$curves[$idx] = [{"options" => " $opts"}];
}
} }
sub addCurveOption sub addCurveOption
@ -552,7 +545,7 @@ sub addCurveOption
} }
else else
{ {
newCurve('', $str, undef, $idx); newCurve('', $str, $idx);
} }
} }
@ -563,7 +556,7 @@ sub pushPoint
if ( !exists $curves[$idx] ) if ( !exists $curves[$idx] )
{ {
newCurve("", "", undef, $idx); newCurve("", "", $idx);
} }
elsif($options{monotonic}) elsif($options{monotonic})
{ {