zhangyiss/feedgnuplot
1
0
Fork 0
mirror of https://github.com/dkogan/feedgnuplot.git synced 2025-06-24 14:51:11 +08:00
Code Issues Actions Packages Projects Releases Wiki Activity

added 'circles' plotting style

Browse Source
This commit is contained in:
Dima Kogan 2011-01-06 16:09:03 -08:00
parent 5eec77a637
commit 6a748ee767
1 changed files with 8 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
feedGnuplot.pl
View File

@ -60,8 +60,9 @@ As an example, if line 3 of the input is "0 9 1 20"
comes in comes in
--[no]lines Do [not] draw lines to connect consecutive points --[no]lines Do [not] draw lines to connect consecutive points
--[no]points Do [not] draw points --[no]points Do [not] draw points
--circles Plot with circles. This requires a radius be specified for
each point. Automatically increments extraValuesPerPoint
--xlabel xxx Set x-axis label --xlabel xxx Set x-axis label
--ylabel xxx Set y-axis label --ylabel xxx Set y-axis label
@ -156,6 +157,7 @@ GetOptions(\%options,
'colormap!', 'colormap!',
'lines!', 'lines!',
'points!', 'points!',
'circles',
'legend=s@', 'legend=s@',
'autolegend!', 'autolegend!',
'xlabel=s', 'xlabel=s',
@ -302,6 +304,7 @@ sub mainThread
my $valuesPerPoint = 1; my $valuesPerPoint = 1;
if($options{extraValuesPerPoint}) { $valuesPerPoint += $options{extraValuesPerPoint}; } if($options{extraValuesPerPoint}) { $valuesPerPoint += $options{extraValuesPerPoint}; }
if($options{colormap}) { $valuesPerPoint++; } if($options{colormap}) { $valuesPerPoint++; }
if($options{circles} ) { $valuesPerPoint++; }
local *PIPE; local *PIPE;
my $dopersist = ''; my $dopersist = '';
@ -367,6 +370,10 @@ sub mainThread
my $style = ''; my $style = '';
if($options{lines}) { $style .= 'lines';} if($options{lines}) { $style .= 'lines';}
if($options{points}) { $style .= 'points';} if($options{points}) { $style .= 'points';}
if($options{circles})
{
$options{curvestyleall} = "with circles $options{curvestyleall}";
}
# if any of the ranges are given, set the range # if any of the ranges are given, set the range
print PIPE "set xrange [". $options{xmin} . ":" . $options{xmax} ."]\n" if length( $options{xmin} . $options{xmax} ); print PIPE "set xrange [". $options{xmin} . ":" . $options{xmax} ."]\n" if length( $options{xmin} . $options{xmax} );