From c77a8c0a4315a035436ca59b0b2cef0b1f210e7f Mon Sep 17 00:00:00 2001
From: Dima Kogan <dkogan@cds.caltech.edu>
Date: Tue, 4 Aug 2009 13:57:17 -0700
Subject: [PATCH] allow line-only plots

Ignore-this: 59483d197ae73a0c307ca726d2d96dc3

darcs-hash:20090804205717-0cb85-998aa3e993c9063debbf5235c0d059419b695101.gz
---
 driveGnuPlots.pl | 11 +++++++----
 1 file changed, 7 insertions(+), 4 deletions(-)

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