mirror of
https://github.com/dkogan/feedgnuplot.git
synced 2025-05-05 22:11:12 +08:00
minor simplification
curvestyle_hash doesn't really exist anymore
This commit is contained in:
parent
9e669044c7
commit
d4ca90e1bd
@ -571,9 +571,7 @@ sub mainThread
|
|||||||
if(@{$options{curvestyle}})
|
if(@{$options{curvestyle}})
|
||||||
{
|
{
|
||||||
# @{$options{curvestyle}} is a list where consecutive pairs are (curveID,
|
# @{$options{curvestyle}} is a list where consecutive pairs are (curveID,
|
||||||
# style). I use $options{curvestyle} here instead of
|
# style).
|
||||||
# $options{curvestyle_hash} because I create a new curve when I see a new
|
|
||||||
# one, and the hash is unordered, thus messing up the ordering
|
|
||||||
my $n = scalar @{$options{curvestyle}}/2;
|
my $n = scalar @{$options{curvestyle}}/2;
|
||||||
foreach my $idx (0..$n-1)
|
foreach my $idx (0..$n-1)
|
||||||
{
|
{
|
||||||
@ -846,19 +844,6 @@ sub updateCurveOptions
|
|||||||
{ $title = $id; }
|
{ $title = $id; }
|
||||||
|
|
||||||
my $titleoption = defined $title ? "title \"$title\"" : "notitle";
|
my $titleoption = defined $title ? "title \"$title\"" : "notitle";
|
||||||
|
|
||||||
my ($curvestyleall);
|
|
||||||
if( defined $options{curvestyle_hash}{$id} )
|
|
||||||
{
|
|
||||||
# I have a curve-specific style set with --curvestyle. This style lives in
|
|
||||||
# $curve->{extraoptions}, and it overrides the global styles
|
|
||||||
$curvestyleall = '';
|
|
||||||
}
|
|
||||||
else
|
|
||||||
{
|
|
||||||
$curvestyleall = $options{curvestyleall};
|
|
||||||
}
|
|
||||||
|
|
||||||
my $histoptions = $curve->{histoptions} || '';
|
my $histoptions = $curve->{histoptions} || '';
|
||||||
|
|
||||||
my $usingoptions = '';
|
my $usingoptions = '';
|
||||||
@ -879,7 +864,7 @@ sub updateCurveOptions
|
|||||||
$usingoptions = "using 1:" . join(':', @rest);
|
$usingoptions = "using 1:" . join(':', @rest);
|
||||||
}
|
}
|
||||||
|
|
||||||
$curve->{options} = "$histoptions $usingoptions $titleoption $curve->{extraoptions} $curvestyleall";
|
$curve->{options} = "$histoptions $usingoptions $titleoption $curve->{extraoptions} $options{curvestyleall}";
|
||||||
}
|
}
|
||||||
|
|
||||||
sub getCurve
|
sub getCurve
|
||||||
|
Loading…
Reference in New Issue
Block a user