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 option to add a style to ALL the curves

Browse Source
This commit is contained in:
Dima Kogan 2011-01-06 14:05:38 -08:00
parent 1419007483
commit e9f92fc7a2
1 changed files with 16 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

20
feedGnuplot.pl
View File

@ -94,6 +94,8 @@ As an example, if line 3 of the input is "0 9 1 20"
--curvestyle xxx Additional style per curve. Give this option multiple --curvestyle xxx Additional style per curve. Give this option multiple
times for multiple curves times for multiple curves
--curvestyleall xxx Additional styles for ALL curves.
--extracmds xxx Additional commands. These could contain extra global styles --extracmds xxx Additional commands. These could contain extra global styles
for instance for instance
@ -162,6 +164,7 @@ GetOptions(\%options,
'zmax=f', 'zmax=f',
'y2=s@', 'y2=s@',
'curvestyle=s@', 'curvestyle=s@',
'curvestyleall=s',
'extracmds=s@', 'extracmds=s@',
'size=s', 'size=s',
'square!', 'square!',
@ -177,7 +180,16 @@ if( $options{help} )
die($usage); die($usage);
} }
if($options{colormap}) { $options{'3d'} = 1; }; # colormap implies 3d if($options{colormap})
{
# colormap implies 3d
$options{'3d'} = 1;
# colormap styles all curves with palette. Seems like there should be a way to do this with a
# global setting, but I can't get that to work
$options{curvestyleall} = '' unless defined $options{curvestyleall};
$options{curvestyleall} .= ' palette';
}
if( $options{'3d'} ) if( $options{'3d'} )
{ {
@ -312,7 +324,7 @@ sub mainThread
if(!$outputfileType) { die("Only .eps, .ps, .pdf and .png supported\n"); } if(!$outputfileType) { die("Only .eps, .ps, .pdf and .png supported\n"); }
my %terminalOpts = my %terminalOpts =
( eps => 'postscript solid color eps 10', ( eps => 'postscript solid color enhanced eps',
ps => 'postscript solid color landscape 10', ps => 'postscript solid color landscape 10',
pdf => 'pdfcairo solid color font ",10" size 11in,8.5in', pdf => 'pdfcairo solid color font ",10" size 11in,8.5in',
png => 'png size 1280,1024' ); png => 'png size 1280,1024' );
@ -582,8 +594,8 @@ sub updateCurveOptions
$title = $id if $options{autolegend}; $title = $id if $options{autolegend};
my $titleoption = defined $title ? "title \"$title\"" : "notitle"; my $titleoption = defined $title ? "title \"$title\"" : "notitle";
my $colormapoption = $options{colormap} ? 'palette' : ''; my $extraoption = defined $options{curvestyleall} ? $options{curvestyleall} : '';
$curveoptions->{options} = "$titleoption $curveoptions->{extraoptions} $colormapoption"; $curveoptions->{options} = "$titleoption $curveoptions->{extraoptions} $extraoption";
} }
sub getCurve sub getCurve