From 855a0d558331a9a1d491eccdcda97b4d242fd036 Mon Sep 17 00:00:00 2001
From: Dima Kogan <dkogan@cds.caltech.edu>
Date: Mon, 9 Feb 2009 01:35:19 -0800
Subject: [PATCH] drivegnuplot: style on the cmdline

Ignore-this: 6b20c61ec03965d0a090ee8f2475b45b

darcs-hash:20090209093519-0cb85-bdcbd0698f84ea6830931bf4c0cc314a2bde9824.gz
---
 driveGnuPlots.pl | 12 +++++++++++-
 1 file changed, 11 insertions(+), 1 deletion(-)

diff --git a/driveGnuPlots.pl b/driveGnuPlots.pl
index e3e0f07..677c35e 100755
--- a/driveGnuPlots.pl
+++ b/driveGnuPlots.pl
@@ -1,5 +1,15 @@
 #!/usr/bin/perl -w
 use strict;
+use Getopt::Long;
+
+# point plotting by default
+my %options = ( "lines" => 0);
+GetOptions(\%options,
+           "lines!");
+
+# set up plotting style
+my $style = "points";
+$style = "linespoints" if($options{"lines"});
 
 sub usage {
     print "Usage: $0 <options>\n";
@@ -55,7 +65,7 @@ sub main {
     print PIPE "set xtics\n";
     print PIPE "set ytics\n";
     print PIPE "set yrange [". $miny . ":" . $maxy ."]\n";
-    print PIPE "set style data points\n";
+    print PIPE "set style data $style\n";
     print PIPE "set grid\n";
 
     for(my $i=0; $i<$numberOfStreams; $i++) {