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

drivegnuplot: style on the cmdline

Browse Source 
Ignore-this: 6b20c61ec03965d0a090ee8f2475b45b

darcs-hash:20090209093519-0cb85-bdcbd0698f84ea6830931bf4c0cc314a2bde9824.gz
This commit is contained in:
Dima Kogan 2009-02-09 01:35:19 -08:00
parent bb9a00994c
commit 855a0d5583
1 changed files with 11 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
driveGnuPlots.pl
View File

@ -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++) {