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

added function to add options to single curves

Browse Source
This commit is contained in:
Dima Kogan 2010-07-19 12:32:15 -07:00
parent a86cd8c621
commit 5f40f298d4
1 changed files with 14 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

23
feedGnuplot.pl
View File

@ -305,15 +305,7 @@ sub mainThread {
# For the values requested to be printed on the y2 axis, set that # For the values requested to be printed on the y2 axis, set that
foreach my $y2idx (@{$options{"y2"}}) foreach my $y2idx (@{$options{"y2"}})
{ {
my $str = " axes x1y2 linewidth 3"; addCurveOption($y2idx, 'axes x1y2 linewidth 3');
if(exists $curves[$y2idx])
{
$curves[$y2idx][0]{"options"} .= $str;
}
else
{
newCurve("", $str, undef, $y2idx);
}
} }
# regexp for a possibly floating point, possibly scientific notation number, fully captured # regexp for a possibly floating point, possibly scientific notation number, fully captured
@ -503,6 +495,19 @@ sub newCurve
} }
} }
sub addCurveOption
{
my ($idx, $str) = @_;
if(exists $curves[$idx])
{
$curves[$idx][0]{"options"} .= " $str";
}
else
{
newCurve('', $str, undef, $idx);
}
}
sub pushNewEmptyCurve sub pushNewEmptyCurve
{ {
my $opts = "notitle "; my $opts = "notitle ";