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

allow line-only plots

Browse Source 
Ignore-this: 59483d197ae73a0c307ca726d2d96dc3

darcs-hash:20090804205717-0cb85-998aa3e993c9063debbf5235c0d059419b695101.gz
This commit is contained in:
Dima Kogan 2009-08-04 13:57:17 -07:00
parent 041bdad232
commit c77a8c0a43
1 changed files with 7 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
driveGnuPlots.pl
View File

@ -6,8 +6,8 @@ use Data::Dumper;
# stream in the data by default # stream in the data by default
# point plotting by default # point plotting by default
my %options = ( "stream" => 1, my %options = ( "stream" => 1,
"lines" => 0); "points" => 0,
"lines" => 0,);
GetOptions(\%options, GetOptions(\%options,
"stream!", "stream!",
"lines!", "lines!",
@ -21,8 +21,11 @@ GetOptions(\%options,
"y2=i@"); "y2=i@");
# set up plotting style # set up plotting style
my $style = "points"; my $style = "";
$style = "linespoints" if($options{"lines"}); if($options{"lines"}) { $style .= "lines";}
if($options{"points"}) { $style .= "points";}
if(!$style) { $style = "points"; }
sub usage { sub usage {
print "Usage: $0 <options>\n"; print "Usage: $0 <options>\n";