mirror of
https://github.com/dkogan/feedgnuplot.git
synced 2025-09-19 03:38:08 +08:00
Compare commits
24 Commits
Author | SHA1 | Date | |
---|---|---|---|
![]() |
d75b572875 | ||
![]() |
6cb1574e2b | ||
![]() |
4fd1c390ff | ||
![]() |
4163e24956 | ||
![]() |
13268a1fa8 | ||
![]() |
08fa97fdb5 | ||
![]() |
e19bdf51c4 | ||
![]() |
a9af1925e2 | ||
![]() |
9387a85fe6 | ||
![]() |
f38a00bfd1 | ||
![]() |
c21c4d7e70 | ||
![]() |
35901fe6d1 | ||
![]() |
1e3d01edd2 | ||
![]() |
20e9adbae4 | ||
![]() |
2b2bba9ff3 | ||
![]() |
caea1285a9 | ||
![]() |
64bce2a425 | ||
![]() |
adbc8393f5 | ||
![]() |
235de3d5d1 | ||
![]() |
198122431f | ||
![]() |
dd8bc8995d | ||
![]() |
cc0b41e270 | ||
![]() |
1f757d1db1 | ||
![]() |
84a8daa56a |
39
Changes
39
Changes
@@ -1,3 +1,42 @@
|
||||
feedgnuplot (1.32)
|
||||
|
||||
* Added --rangesize and --rangesizeall. Different curves can now plot
|
||||
different-size tuples
|
||||
|
||||
-- Dima Kogan <dima@secretsauce.net> Wed, 05 Feb 2014 13:57:58 -0800
|
||||
|
||||
feedgnuplot (1.31)
|
||||
|
||||
* Test suite requires gawk to get strftime()
|
||||
|
||||
-- Dima Kogan <dima@secretsauce.net> Sat, 25 Jan 2014 20:49:38 -0800
|
||||
|
||||
feedgnuplot (1.30)
|
||||
|
||||
* Added --with, --set, --unset, --style, --styleall
|
||||
|
||||
-- Dima Kogan <dima@secretsauce.net> Fri, 24 Jan 2014 15:38:07 -0800
|
||||
|
||||
feedgnuplot (1.29)
|
||||
|
||||
* added CPAN meta-data to require IPC::Run at build time
|
||||
|
||||
-- Dima Kogan <dima@secretsauce.net> Wed, 04 Dec 2013 21:12:40 -0800
|
||||
|
||||
feedgnuplot (1.28)
|
||||
|
||||
* Minor POD update
|
||||
|
||||
-- Dima Kogan <dima@secretsauce.net> Wed, 04 Dec 2013 02:01:05 -0800
|
||||
|
||||
feedgnuplot (1.27)
|
||||
|
||||
* Disabled tests that can fail on some arches (can be re-enabled with
|
||||
environment variable)
|
||||
* Removed sample debianization; this program is now in Debian proper
|
||||
|
||||
-- Dima Kogan <dima@secretsauce.net> Tue, 03 Dec 2013 23:37:40 -0800
|
||||
|
||||
feedgnuplot (1.26)
|
||||
|
||||
* Minor POD fixes
|
||||
|
12
INSTALL
12
INSTALL
@@ -1,17 +1,9 @@
|
||||
If running on a Debian-based OS (this includes Ubuntu), it is highly recommended
|
||||
to install this program as a package. In debian/unstable feedgnuplot is in the
|
||||
official repos, so all you need to do is
|
||||
to install this program as a package. In Debian and Ubuntu, feedgnuplot is in
|
||||
the official repos, so all you need to do is
|
||||
|
||||
sudo apt-get install feedgnuplot
|
||||
|
||||
Otherwise a package can be built with
|
||||
|
||||
ln -fs package_definitions/debian debian
|
||||
dpkg-buildpackage -us -uc -b
|
||||
sudo dpkg -i ../feedgnuplot*.deb
|
||||
|
||||
This builds a debian package and installs it.
|
||||
|
||||
Without a package, an installation can be done with
|
||||
|
||||
perl Makefile.PL prefix=/usr/local
|
||||
|
@@ -63,7 +63,8 @@ WriteMakefile
|
||||
: ()),
|
||||
PL_FILES => {},
|
||||
EXE_FILES => [ 'bin/feedgnuplot' ],
|
||||
BUILD_REQUIRES => { 'String::ShellQuote' => 0},
|
||||
BUILD_REQUIRES => { 'String::ShellQuote' => 0,
|
||||
'IPC::Run' => 0},
|
||||
dist => { COMPRESS => 'gzip -9f', SUFFIX => 'gz', },
|
||||
clean => { FILES => 'feedgnuplot-*' },
|
||||
);
|
||||
|
528
bin/feedgnuplot
528
bin/feedgnuplot
@@ -13,7 +13,7 @@ use Thread::Queue;
|
||||
use Pod::Usage;
|
||||
use Time::Piece;
|
||||
|
||||
my $VERSION = 1.26;
|
||||
my $VERSION = 1.32;
|
||||
|
||||
my %options;
|
||||
interpretCommandline();
|
||||
@@ -107,18 +107,32 @@ sub interpretCommandline
|
||||
# syntax, but disregarded the order of the given options. This resulted in arbitrarily ordered
|
||||
# curves. I thus make parse these into lists, and then also make hashes, for later use
|
||||
|
||||
# needed for these to be parsed into an array-ref
|
||||
# needed for these to be parsed into an array-ref, these default to []
|
||||
$options{legend} = [];
|
||||
$options{curvestyle} = [];
|
||||
$options{style} = [];
|
||||
$options{histogram} = [];
|
||||
$options{y2} = [];
|
||||
$options{extracmds} = [];
|
||||
$options{set} = [];
|
||||
$options{unset} = [];
|
||||
|
||||
$options{curvestyleall} = '';
|
||||
$options{styleall} = '';
|
||||
$options{with} = '';
|
||||
|
||||
$options{rangesize} = [];
|
||||
|
||||
GetOptions(\%options, 'stream:s', 'domain!', 'dataid!', '3d!', 'colormap!', 'lines!', 'points!',
|
||||
'circles', 'legend=s{2}', 'autolegend!', 'xlabel=s', 'ylabel=s', 'y2label=s', 'zlabel=s',
|
||||
'title=s', 'xlen=f', 'ymin=f', 'ymax=f', 'xmin=s', 'xmax=s', 'y2min=f', 'y2max=f',
|
||||
'zmin=f', 'zmax=f', 'y2=s@', 'curvestyle=s{2}', 'curvestyleall=s', 'extracmds=s@',
|
||||
'zmin=f', 'zmax=f', 'y2=s@',
|
||||
'style=s{2}', 'curvestyle=s{2}', 'curvestyleall=s', 'styleall=s', 'with=s', 'extracmds=s@', 'set=s@', 'unset=s@',
|
||||
'square!', 'square_xy!', 'hardcopy=s', 'maxcurves=i', 'monotonic!', 'timefmt=s',
|
||||
'histogram=s@', 'binwidth=f', 'histstyle=s',
|
||||
'terminal=s',
|
||||
'extraValuesPerPoint=i', 'help', 'dump', 'exit', 'version',
|
||||
'rangesize=s{2}', 'rangesizeall=i', 'extraValuesPerPoint=i',
|
||||
'help', 'dump', 'exit', 'version',
|
||||
'geometry=s') or pod2usage( -exitval => 1,
|
||||
-verbose => 1, # synopsis and args
|
||||
-output => \*STDERR );
|
||||
@@ -138,9 +152,6 @@ sub interpretCommandline
|
||||
exit 0;
|
||||
}
|
||||
|
||||
# no global style if one isn't given
|
||||
$options{curvestyleall} = '' unless defined $options{curvestyleall};
|
||||
|
||||
# expand options that are given as comma-separated lists
|
||||
for my $listkey (qw(histogram y2))
|
||||
{
|
||||
@@ -148,11 +159,27 @@ sub interpretCommandline
|
||||
if defined $options{$listkey};
|
||||
}
|
||||
|
||||
# --style and --curvestyle are synonyms, as are --styleall and
|
||||
# --curvestyleall, so fill that in
|
||||
if( $options{styleall} )
|
||||
{
|
||||
if($options{curvestyleall} )
|
||||
{
|
||||
$options{curvestyleall} .= " $options{styleall}";
|
||||
}
|
||||
else
|
||||
{
|
||||
$options{curvestyleall} = $options{styleall};
|
||||
}
|
||||
}
|
||||
push @{$options{curvestyle}}, @{$options{style}};
|
||||
|
||||
|
||||
# --legend and --curvestyle options are conceptually hashes, but are parsed as
|
||||
# arrays in order to preserve the ordering. I parse both of these into hashes
|
||||
# because those are useful to have later. After this I can access individual
|
||||
# legends with $options{legend_hash}{curveid}
|
||||
for my $listkey (qw(legend curvestyle))
|
||||
for my $listkey (qw(legend curvestyle rangesize))
|
||||
{
|
||||
$options{"${listkey}_hash"} = {};
|
||||
|
||||
@@ -169,6 +196,12 @@ sub interpretCommandline
|
||||
exit -1;
|
||||
}
|
||||
|
||||
if ( defined $options{rangesizeall} && defined $options{extraValuesPerPoint} )
|
||||
{
|
||||
print STDERR "Only one of --rangesizeall and --extraValuesPerPoint may be given\n";
|
||||
exit -1;
|
||||
}
|
||||
|
||||
# parse stream option. Allowed only numbers >= 0 or 'trigger'. After this code
|
||||
# $options{stream} is
|
||||
# -1 for triggered replotting
|
||||
@@ -203,6 +236,17 @@ sub interpretCommandline
|
||||
}
|
||||
}
|
||||
|
||||
if( $options{curvestyleall} && $options{with} )
|
||||
{
|
||||
print STDERR "--curvestyleall and --with are mutually exclusive. Please just use one.\n";
|
||||
exit -1;
|
||||
}
|
||||
if( $options{with} )
|
||||
{
|
||||
$options{curvestyleall} = "with $options{with}";
|
||||
$options{with} = '';
|
||||
}
|
||||
|
||||
if ($options{colormap})
|
||||
{
|
||||
# colormap styles all curves with palette. Seems like there should be a way to do this with a
|
||||
@@ -224,7 +268,7 @@ sub interpretCommandline
|
||||
exit -1;
|
||||
}
|
||||
|
||||
if ( defined $options{y2min} || defined $options{y2max} || defined $options{y2} )
|
||||
if ( defined $options{y2min} || defined $options{y2max} || @{$options{y2}} )
|
||||
{
|
||||
print STDERR "--3d does not make sense with --y2...\n";
|
||||
exit -1;
|
||||
@@ -312,8 +356,6 @@ sub interpretCommandline
|
||||
|
||||
my $Nfields = scalar split( ' ', $options{timefmt});
|
||||
$options{timefmt_Ncols} = $Nfields;
|
||||
my $regex_str = join( '\s+', ('\S+') x $Nfields );
|
||||
$options{timefmt_regex} = qr/$regex_str/;
|
||||
|
||||
# make sure --xlen is an integer. With a timefmt xlen goes through strptime
|
||||
# and strftime, and those are integer-only
|
||||
@@ -392,10 +434,18 @@ sub makeDomainNumeric
|
||||
|
||||
sub mainThread
|
||||
{
|
||||
my $valuesPerPoint = 1;
|
||||
my $valuesPerPoint;
|
||||
if( $options{rangesizeall} )
|
||||
{
|
||||
$valuesPerPoint = $options{rangesizeall};
|
||||
}
|
||||
else
|
||||
{
|
||||
$valuesPerPoint = 1;
|
||||
if($options{extraValuesPerPoint}) { $valuesPerPoint += $options{extraValuesPerPoint}; }
|
||||
if($options{colormap}) { $valuesPerPoint++; }
|
||||
if($options{circles} ) { $valuesPerPoint++; }
|
||||
}
|
||||
|
||||
local *PIPE;
|
||||
my $dopersist = '';
|
||||
@@ -486,7 +536,7 @@ sub mainThread
|
||||
}
|
||||
|
||||
# For the specified values, set the legend entries to 'title "blah blah"'
|
||||
if(defined $options{legend} && @{$options{legend}})
|
||||
if(@{$options{legend}})
|
||||
{
|
||||
# @{$options{legend}} is a list where consecutive pairs are (curveID,
|
||||
# legend). I use $options{legend} here instead of $options{legend_hash}
|
||||
@@ -501,7 +551,7 @@ sub mainThread
|
||||
}
|
||||
|
||||
# add the extra curve options
|
||||
if(defined $options{curvestyle} && @{$options{curvestyle}})
|
||||
if(@{$options{curvestyle}})
|
||||
{
|
||||
# @{$options{curvestyle}} is a list where consecutive pairs are (curveID,
|
||||
# style). I use $options{curvestyle} here instead of
|
||||
@@ -516,13 +566,7 @@ sub mainThread
|
||||
}
|
||||
|
||||
# For the values requested to be printed on the y2 axis, set that
|
||||
if( defined $options{y2} )
|
||||
{
|
||||
foreach (@{$options{y2}})
|
||||
{
|
||||
addCurveOption($_, 'axes x1y2');
|
||||
}
|
||||
}
|
||||
addCurveOption($_, 'axes x1y2') foreach (@{$options{y2}});
|
||||
|
||||
# timefmt
|
||||
if( $options{timefmt} )
|
||||
@@ -532,43 +576,24 @@ sub mainThread
|
||||
}
|
||||
|
||||
# add the extra global options
|
||||
if(defined $options{extracmds})
|
||||
{
|
||||
foreach (@{$options{extracmds}})
|
||||
{
|
||||
print(PIPE "$_\n");
|
||||
}
|
||||
}
|
||||
print(PIPE "$_\n") foreach (@{$options{extracmds}});
|
||||
print(PIPE "set $_\n") foreach (@{$options{set}});
|
||||
print(PIPE "unset $_\n") foreach (@{$options{unset}});
|
||||
|
||||
# set up histograms
|
||||
if( defined $options{histogram} )
|
||||
{
|
||||
$options{binwidth} ||= 1; # if no binwidth given, set it to 1
|
||||
print PIPE
|
||||
"set boxwidth $options{binwidth}\n" .
|
||||
"histbin(x) = $options{binwidth} * floor(0.5 + x/$options{binwidth})\n";
|
||||
foreach (@{$options{histogram}})
|
||||
{
|
||||
setCurveAsHistogram( $_ );
|
||||
}
|
||||
}
|
||||
|
||||
# regexp for a possibly floating point, possibly scientific notation number
|
||||
my $numRE = '-?\d*\.?\d+(?:[Ee][-+]?\d+)?';
|
||||
my $domainRE = $options{timefmt_regex} || $numRE;
|
||||
|
||||
|
||||
# a point may be preceded by an id
|
||||
my $pointRE = $options{dataid} ? '(\S+)\s+' : '()';
|
||||
$pointRE .= '(' . join('\s+', ($numRE) x $valuesPerPoint) . ')';
|
||||
$pointRE = qr/$pointRE/;
|
||||
setCurveAsHistogram( $_ ) foreach (@{$options{histogram}});
|
||||
|
||||
# set all the axis ranges
|
||||
# If a bound isn't given I want to set it to the empty string, so I can communicate it simply to
|
||||
# gnuplot
|
||||
print PIPE "set xtics\n";
|
||||
|
||||
if($options{y2})
|
||||
if(@{$options{y2}})
|
||||
{
|
||||
print PIPE "set ytics nomirror\n";
|
||||
print PIPE "set y2tics\n";
|
||||
@@ -631,18 +656,37 @@ sub mainThread
|
||||
# line is used)
|
||||
# 3d plots require $options{domain}, and dictate "x y" for the domain instead of just "x"
|
||||
|
||||
my @fields = split;
|
||||
|
||||
if($options{domain})
|
||||
{
|
||||
/($domainRE)/go or next;
|
||||
$domain[0] = $1;
|
||||
$domain0_numeric = makeDomainNumeric( $domain[0] );
|
||||
|
||||
if($options{'3d'})
|
||||
if( $options{timefmt} )
|
||||
{
|
||||
/($numRE)/go or next;
|
||||
$domain[1] = $1;
|
||||
# no point if doing anything unless I have at least the domain and
|
||||
# 1 piece of data
|
||||
next if @fields < $options{timefmt_Ncols}+1;
|
||||
|
||||
$domain[0] = join (' ', splice( @fields, 0, $options{timefmt_Ncols}) );
|
||||
$domain0_numeric = makeDomainNumeric( $domain[0] );
|
||||
}
|
||||
elsif( $options{monotonic} )
|
||||
elsif(!$options{'3d'})
|
||||
{
|
||||
# no point if doing anything unless I have at least the domain and
|
||||
# 1 piece of data
|
||||
next if @fields < 1+1;
|
||||
|
||||
$domain[0] = $domain0_numeric = shift @fields;
|
||||
}
|
||||
else
|
||||
{
|
||||
# no point if doing anything unless I have at least the domain and
|
||||
# 1 piece of data
|
||||
next if @fields < 2+1;
|
||||
|
||||
@domain = splice(@fields, 0, 2);
|
||||
}
|
||||
|
||||
if( $options{monotonic} )
|
||||
{
|
||||
if( defined $latestX && $domain0_numeric < $latestX )
|
||||
{
|
||||
@@ -656,7 +700,6 @@ sub mainThread
|
||||
else
|
||||
{ $latestX = $domain0_numeric; }
|
||||
}
|
||||
|
||||
}
|
||||
else
|
||||
{
|
||||
@@ -664,8 +707,7 @@ sub mainThread
|
||||
# $. on the data queue in that case
|
||||
if(defined $dataQueue)
|
||||
{
|
||||
s/ ([\d]+)$//o;
|
||||
$domain[0] = $1;
|
||||
$domain[0] = pop @fields;
|
||||
}
|
||||
else
|
||||
{
|
||||
@@ -675,13 +717,32 @@ sub mainThread
|
||||
}
|
||||
|
||||
my $id = -1;
|
||||
while (/$pointRE/go)
|
||||
|
||||
while(@fields)
|
||||
{
|
||||
if($1 ne '') {$id = $1;}
|
||||
else {$id++; }
|
||||
my $rangesize = $valuesPerPoint;
|
||||
|
||||
if($options{dataid})
|
||||
{
|
||||
$id = shift @fields;
|
||||
}
|
||||
else
|
||||
{
|
||||
$id++;
|
||||
}
|
||||
|
||||
if( $options{rangesize_hash}{$id} )
|
||||
{
|
||||
$rangesize = $options{rangesize_hash}{$id};
|
||||
}
|
||||
|
||||
last if @fields < $rangesize;
|
||||
|
||||
pushPoint(getCurve($id),
|
||||
"@domain $2\n", $domain0_numeric);
|
||||
join(' ',
|
||||
@domain,
|
||||
splice( @fields, 0, $rangesize ) ) . "\n",
|
||||
$domain0_numeric);
|
||||
}
|
||||
}
|
||||
}
|
||||
@@ -787,9 +848,17 @@ sub updateCurveOptions
|
||||
|
||||
my $titleoption = defined $title ? "title \"$title\"" : "notitle";
|
||||
|
||||
my $curvestyleall = '';
|
||||
$curvestyleall = $options{curvestyleall}
|
||||
if defined $options{curvestyleall} && !defined $options{curvestyle_hash}{$id};
|
||||
my ($curvestyleall);
|
||||
if( defined $options{curvestyle_hash}{$id} )
|
||||
{
|
||||
# I have a curve-specific style set with --curvestyle. This style lives in
|
||||
# $curve->{extraoptions}, and it overrides the global styles
|
||||
$curvestyleall = '';
|
||||
}
|
||||
else
|
||||
{
|
||||
$curvestyleall = $options{curvestyleall};
|
||||
}
|
||||
|
||||
my $histoptions = $curve->{histoptions} || '';
|
||||
|
||||
@@ -961,6 +1030,47 @@ Simple plotting of piped data:
|
||||
|
||||
$ seq 5 | awk '{print 2*$1, $1*$1}' |
|
||||
feedgnuplot --lines --points --legend 0 "data 0" --title "Test plot" --y2 1
|
||||
--terminal 'dumb 80,40' --exit
|
||||
|
||||
Test plot
|
||||
|
||||
10 ++------+--------+-------+-------+-------+--------+-------+------*A 25
|
||||
+ + + + + + + + **#+
|
||||
| : : : : : : data 0+**A*** |
|
||||
| : : : : : : :** # |
|
||||
9 ++.......................................................**.##....|
|
||||
| : : : : : : ** :# |
|
||||
| : : : : : : ** # |
|
||||
| : : : : : :** ##: ++ 20
|
||||
8 ++................................................A....#..........|
|
||||
| : : : : : **: # : |
|
||||
| : : : : : ** : ## : |
|
||||
| : : : : : ** :# : |
|
||||
| : : : : :** B : |
|
||||
7 ++......................................**......##................|
|
||||
| : : : : ** : ## : : ++ 15
|
||||
| : : : : ** : # : : |
|
||||
| : : : :** : ## : : |
|
||||
6 ++..............................*A.......##.......................|
|
||||
| : : : ** : ##: : : |
|
||||
| : : : ** : # : : : |
|
||||
| : : :** : ## : : : ++ 10
|
||||
5 ++......................**........##..............................|
|
||||
| : : ** : #B : : : |
|
||||
| : : ** : ## : : : : |
|
||||
| : :** : ## : : : : |
|
||||
4 ++...............A.......###......................................|
|
||||
| : **: ##: : : : : |
|
||||
| : ** : ## : : : : : ++ 5
|
||||
| : ** : ## : : : : : |
|
||||
| :** ##B# : : : : : |
|
||||
3 ++.....**..####...................................................|
|
||||
| **#### : : : : : : |
|
||||
| **## : : : : : : : |
|
||||
B** + + + + + + + +
|
||||
2 A+------+--------+-------+-------+-------+--------+-------+------++ 0
|
||||
1 1.5 2 2.5 3 3.5 4 4.5 5
|
||||
|
||||
|
||||
Simple real-time plotting example: plot how much data is received on the wlan0
|
||||
network interface in bytes/second (uses bash, awk and Linux):
|
||||
@@ -986,14 +1096,21 @@ plotting. Input parsing is flexible; every line need not have the same number of
|
||||
points. New curves will be created as needed.
|
||||
|
||||
The most commonly used functionality of gnuplot is supported directly by the
|
||||
script. Anything not directly supported can still be done with the
|
||||
C<--extracmds> and C<--curvestyle> options. Arbitrary gnuplot commands can be
|
||||
passed in with C<--extracmds>. For example, to turn off the grid, pass in
|
||||
C<--extracmds 'unset grid'>. As many of these options as needed can be passed
|
||||
in. To add arbitrary curve styles, use C<--curvestyle curveID extrastyle>. Pass
|
||||
these more than once to affect more than one curve. To apply an extra style to
|
||||
I<all> the curves that lack an explicit C<--curvestyle>, pass in
|
||||
C<--curvestyleall extrastyle>.
|
||||
script. Anything not directly supported can still be done with options such as
|
||||
C<--set>, C<--extracmds> C<--style>, etc. Arbitrary gnuplot commands can be
|
||||
passed in with C<--extracmds>. For example, to turn off the grid, you can pass
|
||||
in C<--extracmds 'unset grid'>. Commands C<--set> and C<--unset> exists to
|
||||
provide nicer syntax, so this is equivalent to passing C<--unset grid>. As many
|
||||
of these options as needed can be passed in. To add arbitrary curve styles, use
|
||||
C<--style curveID extrastyle>. Pass these more than once to affect more than one
|
||||
curve.
|
||||
|
||||
To apply an extra style to I<all> the curves that lack an explicit C<--style>,
|
||||
pass in C<--styleall extrastyle>. In the most common case, the extra style is
|
||||
C<with something>. To support this more simply, you can pass in C<--with
|
||||
something> instead of C<--styleall 'with something'>. C<--styleall> and
|
||||
C<--with> are mutually exclusive. Furthermore any curve-specific C<--style>
|
||||
overrides the global C<--styleall> or C<--with> setting.
|
||||
|
||||
=head2 Data formats
|
||||
|
||||
@@ -1009,7 +1126,7 @@ interpreted as the I<X>-value for the rest of the data on that line. Without
|
||||
C<--domain> the I<X>-value is the line number, and the first value on a line is
|
||||
a plain data point like the others. Default is C<--nodomain>. Thus the original
|
||||
example above produces 2 curves, with B<1,2,3,4,5> as the I<X>-values. If we run
|
||||
the same command with --domain:
|
||||
the same command with C<--domain>:
|
||||
|
||||
$ seq 5 | awk '{print 2*$1, $1*$1}' | feedgnuplot --domain
|
||||
|
||||
@@ -1036,18 +1153,24 @@ conjunction with C<--dataid>.
|
||||
=head3 Multi-value style support
|
||||
|
||||
Depending on how gnuplot is plotting the data, more than one value may be needed
|
||||
to represent a single point. For example, the script has support to plot all the
|
||||
data with C<--circles>. This requires a radius to be specified for each point in
|
||||
addition to the position of the point. Thus, when plotting with C<--circles>, 2
|
||||
numbers are read for each data point instead of 1. A similar situation exists
|
||||
with C<--colormap> where each point contains the position I<and> the
|
||||
color. There are other gnuplot styles that require more data (such as error
|
||||
bars), but none of these are directly supported by the script. They can still be
|
||||
used, though, by specifying the specific style with C<--curvestyle>, and
|
||||
specifying how many extra values are needed for each point with
|
||||
C<--extraValuesPerPoint extra>. C<--extraValuesPerPoint> is ONLY needed for the
|
||||
styles not explicitly supported; supported styles set that variable
|
||||
automatically.
|
||||
to represent the range of a single point. Basic 2D plots have 2 numbers
|
||||
representing each point: 1 domain and 1 range. But if plotting with
|
||||
C<--circles>, for instance, then there's an extra range value: the radius. A
|
||||
similar situation exists with C<--colormap> where each point contains the
|
||||
position I<and> the color. There are other gnuplot styles that require more data
|
||||
(such as error bars), but none of these are directly supported by the script.
|
||||
They can still be used, however, by specifying the specific style with
|
||||
C<--style>, and specifying how many values are needed for each point with
|
||||
C<--rangesizeall> or C<--rangesize> or C<--extraValuesPerPoint>. Those options
|
||||
that specify the range size are required I<only> for styles not explicitly
|
||||
supported by feedgnuplot; supported styles do the right thing automatically.
|
||||
|
||||
More examples: if making a 2d plot of y error bars where gnuplot expects a
|
||||
(x,y,ydelta) tuple for each point, you want C<--rangesizeall 2> because you have
|
||||
one domain value (x) and 2 range values (y,ydelta). Gnuplot can also plot
|
||||
lopsided y errorbars by giving a tuple (x,y,ylow,yhigh). This is similar as
|
||||
before, but you want C<--rangesizeall 3> instead.
|
||||
|
||||
|
||||
=head3 3D data
|
||||
|
||||
@@ -1082,7 +1205,7 @@ C<--xmin> and C<--xmax> I<must> use the format passed in to C<--timefmt>
|
||||
|
||||
Using this option changes both the way the input is parsed I<and> the way the
|
||||
x-axis tics are labelled. Gnuplot tries to be intelligent in this labelling, but
|
||||
it doesn't always to what the user wants. The labelling can be controlled with
|
||||
it doesn't always do what the user wants. The labelling can be controlled with
|
||||
the gnuplot C<set format> command, which takes the same type of format string as
|
||||
C<--timefmt>. Example:
|
||||
|
||||
@@ -1090,7 +1213,7 @@ C<--timefmt>. Example:
|
||||
awk '$1 ~ /..:..:../ && $8 ~/^[0-9\.]*$/ {print $1,$8; fflush()}' |
|
||||
feedgnuplot --stream --domain
|
||||
--lines --timefmt '%H:%M:%S'
|
||||
--extracmds 'set format x "%H:%M:%S"'
|
||||
--set 'format x "%H:%M:%S"'
|
||||
|
||||
This plots the 'idle' CPU consumption against time.
|
||||
|
||||
@@ -1181,10 +1304,10 @@ data file can be plotted simply with
|
||||
|
||||
$ ./data
|
||||
|
||||
The caveats here are that on Linux the whole #! line is limited to 127 charaters
|
||||
and that the full path to feedgnuplot must be given. The 127 character limit is
|
||||
a serious limitation, but this can likely be resolved with a kernel patch. I
|
||||
have only tried on Linux 2.6.
|
||||
The caveats here are that on Linux the whole #! line is limited to 127
|
||||
characters and that the full path to feedgnuplot must be given. The 127
|
||||
character limit is a serious limitation, but this can likely be resolved with a
|
||||
kernel patch. I have only tried on Linux 2.6.
|
||||
|
||||
=head3 Self-plotting data with perl inline data
|
||||
|
||||
@@ -1230,14 +1353,14 @@ it to the plotter.
|
||||
|
||||
=item
|
||||
|
||||
--[no]domain
|
||||
--C<[no]domain>
|
||||
|
||||
If enabled, the first element of each line is the domain variable. If not, the
|
||||
point index is used
|
||||
|
||||
=item
|
||||
|
||||
--[no]dataid
|
||||
--C<[no]dataid>
|
||||
|
||||
If enabled, each data point is preceded by the ID of the data set that point
|
||||
corresponds to. This ID is interpreted as a string, NOT as just a number. If not
|
||||
@@ -1249,23 +1372,23 @@ As an example, if line 3 of the input is "0 9 1 20" then
|
||||
|
||||
=item
|
||||
|
||||
'--nodomain --nodataid' would parse the 4 numbers as points in 4 different
|
||||
C<--nodomain --nodataid> would parse the 4 numbers as points in 4 different
|
||||
curves at x=3
|
||||
|
||||
=item
|
||||
|
||||
'--domain --nodataid' would parse the 4 numbers as points in 3 different
|
||||
C<--domain --nodataid> would parse the 4 numbers as points in 3 different
|
||||
curves at x=0. Here, 0 is the x-variable and 9,1,20 are the data values
|
||||
|
||||
=item
|
||||
|
||||
'--nodomain --dataid' would parse the 4 numbers as points in 2 different
|
||||
C<--nodomain --dataid> would parse the 4 numbers as points in 2 different
|
||||
curves at x=3. Here 0 and 1 are the data IDs and 9 and 20 are the
|
||||
data values
|
||||
|
||||
=item
|
||||
|
||||
'--domain --dataid' would parse the 4 numbers as a single point at
|
||||
C<--domain --dataid> would parse the 4 numbers as a single point at
|
||||
x=0. Here 9 is the data ID and 1 is the data value. 20 is an extra
|
||||
value, so it is ignored. If another value followed 20, we'd get another
|
||||
point in curve ID 20
|
||||
@@ -1274,28 +1397,27 @@ point in curve ID 20
|
||||
|
||||
=item
|
||||
|
||||
--[no]3d
|
||||
C<--[no]3d>
|
||||
|
||||
Do [not] plot in 3D. This only makes sense with --domain. Each domain here is an
|
||||
(x,y) tuple
|
||||
Do [not] plot in 3D. This only makes sense with C<--domain>. Each domain here is
|
||||
an (x,y) tuple
|
||||
|
||||
=item
|
||||
|
||||
--timefmt [format]
|
||||
--C<timefmt [format]>
|
||||
|
||||
Interpret the X data as a time/date, parsed with the given format
|
||||
|
||||
=item
|
||||
|
||||
--colormap
|
||||
C<--colormap>
|
||||
|
||||
Show a colormapped xy plot. Requires extra data for the color. zmin/zmax can be
|
||||
used to set the extents of the colors. Automatically increments
|
||||
C<--extraValuesPerPoint>
|
||||
used to set the extents of the colors. Automatically sets the C<--rangesize>.
|
||||
|
||||
=item
|
||||
|
||||
--stream [period]
|
||||
C<--stream [period]>
|
||||
|
||||
Plot the data as it comes in, in realtime. If period is given, replot every
|
||||
period seconds. If no period is given, replot at 1Hz. If the period is given as
|
||||
@@ -1304,55 +1426,54 @@ L</"Real-time streaming data"> section of the man page.
|
||||
|
||||
=item
|
||||
|
||||
--[no]lines
|
||||
C<--[no]lines>
|
||||
|
||||
Do [not] draw lines to connect consecutive points
|
||||
|
||||
=item
|
||||
|
||||
--[no]points
|
||||
C<--[no]points>
|
||||
|
||||
Do [not] draw points
|
||||
|
||||
=item
|
||||
|
||||
--circles
|
||||
C<--circles>
|
||||
|
||||
Plot with circles. This requires a radius be specified for each point.
|
||||
Automatically increments C<--extraValuesPerPoint>). C<Not> supported for 3d
|
||||
plots.
|
||||
Automatically sets the C<--rangesize>. C<Not> supported for 3d plots.
|
||||
|
||||
=item
|
||||
|
||||
--title xxx
|
||||
C<--title xxx>
|
||||
|
||||
Set the title of the plot
|
||||
|
||||
=item
|
||||
|
||||
--legend curveID legend
|
||||
C<--legend curveID legend>
|
||||
|
||||
Set the label for a curve plot. Use this option multiple times for multiple
|
||||
curves. With --dataid, curveID is the ID. Otherwise, it's the index of the
|
||||
curves. With C<--dataid>, curveID is the ID. Otherwise, it's the index of the
|
||||
curve, starting at 0
|
||||
|
||||
=item
|
||||
|
||||
--autolegend
|
||||
C<--autolegend>
|
||||
|
||||
Use the curve IDs for the legend. Titles given with --legend override these
|
||||
Use the curve IDs for the legend. Titles given with C<--legend> override these
|
||||
|
||||
=item
|
||||
|
||||
--xlen xxx
|
||||
C<--xlen xxx>
|
||||
|
||||
When using --stream, sets the size of the x-window to plot. Omit this or set it
|
||||
to 0 to plot ALL the data. Does not make sense with 3d plots. Implies
|
||||
--monotonic
|
||||
When using C<--stream>, sets the size of the x-window to plot. Omit this or set
|
||||
it to 0 to plot ALL the data. Does not make sense with 3d plots. Implies
|
||||
C<--monotonic>
|
||||
|
||||
=item
|
||||
|
||||
--xmin/xmax/ymin/ymax/y2min/y2max/zmin/zmax xxx
|
||||
C<--xmin/xmax/ymin/ymax/y2min/y2max/zmin/zmax xxx>
|
||||
|
||||
Set the range for the given axis. These x-axis bounds are ignored in a streaming
|
||||
plot. The y2-axis bound do not apply in 3d plots. The z-axis bounds apply
|
||||
@@ -1360,52 +1481,52 @@ I<only> to 3d plots or colormaps.
|
||||
|
||||
=item
|
||||
|
||||
--xlabel/ylabel/y2label/zlabel xxx
|
||||
C<--xlabel/ylabel/y2label/zlabel xxx>
|
||||
|
||||
Label the given axis. The y2-axis label does not apply to 3d plots while the
|
||||
z-axis label applies I<only> to 3d plots.
|
||||
|
||||
=item
|
||||
|
||||
--y2 xxx
|
||||
C<--y2 xxx>
|
||||
|
||||
Plot the data specified by this curve ID on the y2 axis. Without --dataid, the
|
||||
ID is just an ordered 0-based index. Does not apply to 3d plots. Can be passed
|
||||
multiple times, or passed a comma-separated list. By default the y2-axis curves
|
||||
look the same as the y-axis ones. I.e. the viewer of the resulting plot has to
|
||||
be told which is which via an axes label, legend, etc. Prior to version 1.25 of
|
||||
feedgnuplot the curves plotted on the y2 axis were drawn with a thicker line.
|
||||
This is no longer the case, but that behavior can be brought back by passing
|
||||
something like
|
||||
Plot the data specified by this curve ID on the y2 axis. Without C<--dataid>,
|
||||
the ID is just an ordered 0-based index. Does not apply to 3d plots. Can be
|
||||
passed multiple times, or passed a comma-separated list. By default the y2-axis
|
||||
curves look the same as the y-axis ones. I.e. the viewer of the resulting plot
|
||||
has to be told which is which via an axes label, legend, etc. Prior to version
|
||||
1.25 of feedgnuplot the curves plotted on the y2 axis were drawn with a thicker
|
||||
line. This is no longer the case, but that behavior can be brought back by
|
||||
passing something like
|
||||
|
||||
--y2 curveid --curvestyle curveid 'linewidth 3'
|
||||
--y2 curveid --style curveid 'linewidth 3'
|
||||
|
||||
=item
|
||||
|
||||
--histogram curveID
|
||||
C<--histogram curveID>
|
||||
|
||||
|
||||
Set up a this specific curve to plot a histogram. The bin width is given with
|
||||
the --binwidth option (assumed 1.0 if omitted). --histogram does NOT touch the
|
||||
drawing style. It is often desired to plot these with boxes, and this MUST be
|
||||
explicitly requested with --curvestyleall 'with boxes'. This works with --domain
|
||||
and/or --stream, but in those cases the x-value is used ONLY to cull old data
|
||||
because of --xlen or --monotonic. I.e. the x-values are NOT drawn in any way.
|
||||
Can be passed multiple times, or passed a comma- separated list
|
||||
the C<--binwidth> option (assumed 1.0 if omitted). C<--histogram> does I<not>
|
||||
touch the drawing style. It is often desired to plot these with boxes, and this
|
||||
I<must> be explicitly requested by C<--with boxes>. This works with C<--domain>
|
||||
and/or C<--stream>, but in those cases the x-value is used I<only> to cull old
|
||||
data because of C<--xlen> or C<--monotonic>. I.e. the x-values are I<not> drawn
|
||||
in any way. Can be passed multiple times, or passed a comma- separated list
|
||||
|
||||
=item
|
||||
|
||||
--binwidth width
|
||||
C<--binwidth width>
|
||||
|
||||
The width of bins when making histograms. This setting applies to ALL histograms
|
||||
in the plot. Defaults to 1.0 if not given.
|
||||
|
||||
=item
|
||||
|
||||
--histstyle style
|
||||
C<--histstyle style>
|
||||
|
||||
Normally, histograms are generated with the 'smooth freq' gnuplot style.
|
||||
--histstyle can be used to select different 'smooth' settings. Allowed are
|
||||
C<--histstyle> can be used to select different 'smooth' settings. Allowed are
|
||||
'unique', 'cumulative' and 'cnormal'. 'unique' indicates whether a bin has at
|
||||
least one item in it: instead of counting the items, it'll always report 0 or 1.
|
||||
'cumulative' is the integral of the "normal" histogram. 'cnormal' is like
|
||||
@@ -1413,58 +1534,100 @@ least one item in it: instead of counting the items, it'll always report 0 or 1.
|
||||
|
||||
=item
|
||||
|
||||
--curvestyle curveID
|
||||
C<--style curveID style>
|
||||
|
||||
style Additional styles per curve. With --dataid, curveID is the ID. Otherwise,
|
||||
Additional styles per curve. With C<--dataid>, curveID is the ID. Otherwise,
|
||||
it's the index of the curve, starting at 0. Use this option multiple times for
|
||||
multiple curves. --curvestylall does NOT apply to curves that have a
|
||||
--curvestyle
|
||||
multiple curves. C<--styleall> does I<not> apply to curves that have a
|
||||
C<--style>
|
||||
|
||||
=item
|
||||
|
||||
--curvestyleall xxx
|
||||
C<--curvestyle curveID>
|
||||
|
||||
Additional styles for all curves that have no --curvestyle
|
||||
Synonym for C<--style>
|
||||
|
||||
=item
|
||||
|
||||
--extracmds xxx
|
||||
C<--styleall xxx>
|
||||
|
||||
Additional commands. These could contain extra global styles for instance. Can
|
||||
be passed multiple times.
|
||||
Additional styles for all curves that have no C<--style>. This is overridden by
|
||||
any applicable C<--style>. Exclusive with C<--with>.
|
||||
|
||||
=item
|
||||
|
||||
--square
|
||||
C<--curvestyleall xxx>
|
||||
|
||||
Synonym for C<--styleall>
|
||||
|
||||
=item
|
||||
|
||||
C<--with xxx>
|
||||
|
||||
Same as C<--styleall>, but prefixed with "with". Thus
|
||||
|
||||
--with boxes
|
||||
|
||||
is equivalent to
|
||||
|
||||
--styleall 'with boxes'
|
||||
|
||||
Exclusive with C<--styleall>.
|
||||
|
||||
=item
|
||||
|
||||
C<--extracmds xxx>
|
||||
|
||||
Additional commands to pass on to gnuplot verbatim. These could contain extra
|
||||
global styles for instance. Can be passed multiple times.
|
||||
|
||||
=item
|
||||
|
||||
C<--set xxx>
|
||||
|
||||
Additional 'set' commands to pass on to gnuplot verbatim. C<--set 'a b c'> will
|
||||
result in gnuplot seeing a C<set a b c> command. Can be passed multiple times.
|
||||
|
||||
=item
|
||||
|
||||
C<--unset xxx>
|
||||
|
||||
Additional 'unset' commands to pass on to gnuplot verbatim. C<--unset 'a b c'>
|
||||
will result in gnuplot seeing a C<unset a b c> command. Can be passed multiple
|
||||
times.
|
||||
|
||||
=item
|
||||
|
||||
C<--square>
|
||||
|
||||
Plot data with aspect ratio 1. For 3D plots, this controls the aspect ratio for
|
||||
all 3 axes
|
||||
|
||||
=item
|
||||
|
||||
--square_xy
|
||||
C<--square_xy>
|
||||
|
||||
For 3D plots, set square aspect ratio for ONLY the x,y axes
|
||||
|
||||
=item
|
||||
|
||||
--hardcopy xxx
|
||||
C<--hardcopy xxx>
|
||||
|
||||
If not streaming, output to a file specified here. Format inferred from
|
||||
filename, unless specified by --terminal
|
||||
filename, unless specified by C<--terminal>
|
||||
|
||||
=item
|
||||
|
||||
--terminal xxx
|
||||
C<--terminal xxx>
|
||||
|
||||
String passed to 'set terminal'. No attempts are made to validate this.
|
||||
--hardcopy sets this to some sensible defaults if --hardcopy is given .png,
|
||||
.pdf, .ps, .eps or .svg. If any other file type is desired, use both --hardcopy
|
||||
and --terminal
|
||||
C<--hardcopy> sets this to some sensible defaults if --hardcopy is given .png,
|
||||
.pdf, .ps, .eps or .svg. If any other file type is desired, use both
|
||||
C<--hardcopy> and C<--terminal>
|
||||
|
||||
=item
|
||||
|
||||
--maxcurves xxx
|
||||
C<--maxcurves xxx>
|
||||
|
||||
The maximum allowed number of curves. This is 100 by default, but can be reset
|
||||
with this option. This exists purely to prevent perl from allocating all of the
|
||||
@@ -1472,34 +1635,53 @@ system's memory when reading bogus data
|
||||
|
||||
=item
|
||||
|
||||
--monotonic
|
||||
C<--monotonic>
|
||||
|
||||
If --domain is given, checks to make sure that the x- coordinate in the input
|
||||
If C<--domain> is given, checks to make sure that the x- coordinate in the input
|
||||
data is monotonically increasing. If a given x-variable is in the past, all data
|
||||
currently cached for this curve is purged. Without --monotonic, all data is
|
||||
kept. Does not make sense with 3d plots. No --monotonic by default. The data is
|
||||
currently cached for this curve is purged. Without C<--monotonic>, all data is
|
||||
kept. Does not make sense with 3d plots. No C<--monotonic> by default. The data is
|
||||
replotted before being purged
|
||||
|
||||
=item
|
||||
|
||||
--extraValuesPerPoint
|
||||
C<--rangesize curveID xxx>
|
||||
|
||||
xxx How many extra values are given for each data point. Normally this is 0, and
|
||||
does not need to be specified, but sometimes we want extra data, like for colors
|
||||
or point sizes or error bars, etc. feedgnuplot options that require this
|
||||
(colormap, circles) automatically set it. This option is ONLY needed if unknown
|
||||
styles are used, with --curvestyleall for instance
|
||||
The options C<--rangesizeall>, C<--rangesize> and C<--extraValuesPerPoint> set
|
||||
the number of values are needed to represent each point being plotted (see
|
||||
L</"Multi-value style support"> above). These options are I<only> needed if
|
||||
unknown styles are used, with C<--styleall> or C<--with> for instance.
|
||||
|
||||
C<--rangesize> is used to set how many values are needed to represent the range
|
||||
of a point for a particular curve. This overrides any defaults that may exist
|
||||
for this curve only.
|
||||
|
||||
=item
|
||||
|
||||
--dump
|
||||
C<--rangesizeall xxx>
|
||||
|
||||
Like C<--rangesize>, but applies to I<all> the curves.
|
||||
|
||||
C<--extraValuesPerPoint xxx>
|
||||
|
||||
Like C<--rangesizeall>, but instead of overriding the default, adds to it. For
|
||||
example, if plotting non-lopsided y errorbars gnuplot wants (x,y,ydelta) tuples.
|
||||
These can be specified both with C<--rangesizeall 2> (because there are 2 range
|
||||
values) or C<--extraValuesPerPoint 1> (because there's 1 more value than usual).
|
||||
|
||||
This option is I<only> needed if unknown styles are used, with C<--styleall> or
|
||||
C<--with> for instance.
|
||||
|
||||
=item
|
||||
|
||||
C<--dump>
|
||||
|
||||
Instead of printing to gnuplot, print to STDOUT. Very useful for debugging. It
|
||||
is possible to send the output produced this way to gnuplot directly.
|
||||
|
||||
=item
|
||||
|
||||
--exit
|
||||
C<--exit>
|
||||
|
||||
Terminate the feedgnuplot process after passing data to gnuplot. The window will
|
||||
persist but will not be interactive. Without this option feedgnuplot keeps
|
||||
@@ -1508,13 +1690,13 @@ later versions of gnuplot and only with some gnuplot terminals.
|
||||
|
||||
=item
|
||||
|
||||
--geometry
|
||||
C<--geometry>
|
||||
|
||||
If using X11, specifies the size, position of the plot window
|
||||
|
||||
=item
|
||||
|
||||
--version
|
||||
C<--version>
|
||||
|
||||
Print the version and exit
|
||||
|
||||
@@ -1561,7 +1743,7 @@ in a Thinkpad.
|
||||
=head2 Plotting a histogram of file sizes in a directory
|
||||
|
||||
$ ls -l | awk '{print $5/1e6}' |
|
||||
feedgnuplot --histogram 0 --curvestyleall 'with boxes' --ymin 0 --xlabel 'File size (MB)' --ylabel Frequency
|
||||
feedgnuplot --histogram 0 --with boxes --ymin 0 --xlabel 'File size (MB)' --ylabel Frequency
|
||||
|
||||
=head1 ACKNOWLEDGEMENT
|
||||
|
||||
|
@@ -7,12 +7,19 @@ complete -W \
|
||||
--colormap \
|
||||
--curvestyle \
|
||||
--curvestyleall \
|
||||
--style \
|
||||
--styleall \
|
||||
--with \
|
||||
--dataid \
|
||||
--domain \
|
||||
--dump \
|
||||
--exit \
|
||||
--extraValuesPerPoint \
|
||||
--rangesizeall \
|
||||
--rangesize \
|
||||
--extracmds \
|
||||
--set \
|
||||
--unset \
|
||||
--geometry \
|
||||
--hardcopy \
|
||||
--help \
|
||||
|
@@ -26,17 +26,24 @@ _arguments -S
|
||||
'--zmin:min Z:' \
|
||||
'--zmax:max Z:' \
|
||||
'*--y2:plot to place on the Y2 axis:' \
|
||||
'--curvestyleall[Additional styles for ALL curves]:style' \
|
||||
'(--with)--curvestyleall[Additional styles for ALL curves]:style' \
|
||||
'(--with)--styleall[Additional styles for ALL curves]:style' \
|
||||
'(--curvestyleall)--with[Additional styles for ALL curves]:style' \
|
||||
'*--extracmds[Additional gnuplot commands]:command' \
|
||||
'*--set[Additional 'set' gnuplot commands]:set-option' \
|
||||
'*--unset[Additional 'unset' gnuplot commands]:unset-option' \
|
||||
'--square[Plot data with square aspect ratio]' \
|
||||
'--square_xy[For 3D plots, set square aspect ratio for ONLY the x,y axes]' \
|
||||
'--hardcopy[Plot to a file]:filename' \
|
||||
'--maxcurves[The maximum allowed number of curves]:number of curves' \
|
||||
'(--3d)--monotonic[Resets plot if an X in the past is seen]' \
|
||||
'--extraValuesPerPoint[How many extra values are given for each data point]:N'\
|
||||
'(--rangesizeall)--extraValuesPerPoint[How many extra values are given for each data range]:N'\
|
||||
'(--extraValuesPerPoint)--rangesizeall[How many values are given for each data range]:N'\
|
||||
'*--rangesize[How many values comprise a data range in this curve]:curve id: :N:' \
|
||||
'--dump[Instead of printing to gnuplot, print to STDOUT]' \
|
||||
'--geometry[The X11 geometry string]:geometry string:' \
|
||||
'*--curvestyle[Additional styles for a curve]:curve id: :style:' \
|
||||
'*--style[Additional styles for a curve]:curve id: :style:' \
|
||||
'(--3d)*--histogram:plot to treat as a histogram:' \
|
||||
'--binwidth:Histogram bin width:' \
|
||||
'--histstyle:Style of histogram:(frequency unique cumulative cnormal)' \
|
||||
|
@@ -1,111 +0,0 @@
|
||||
feedgnuplot (1.22) unstable; urgency=low
|
||||
|
||||
* removed --size option
|
||||
|
||||
-- Dima Kogan <dima@secretsauce.net> Mon, 03 Sep 2012 08:33:26 -0700
|
||||
|
||||
feedgnuplot (1.21) unstable; urgency=low
|
||||
|
||||
* removed the POD from the script to its own file
|
||||
* fixed regression to allow no given extracmds, histogram or y2
|
||||
options
|
||||
|
||||
-- Dima Kogan <dima@secretsauce.net> Sun, 02 Sep 2012 23:52:21 -0700
|
||||
|
||||
feedgnuplot (1.20) unstable; urgency=low
|
||||
|
||||
* no longer hardcoding 'x11' as the default terminal
|
||||
* added histogram support
|
||||
* generic terminals can now be requested
|
||||
* --extracmds, --histogram, --y2 can now take comma-separated lists
|
||||
|
||||
-- Dima Kogan <dima@secretsauce.net> Fri, 31 Aug 2012 01:35:50 -0700
|
||||
|
||||
feedgnuplot (1.19) unstable; urgency=low
|
||||
|
||||
* added --geometry option to specify plot dimensions
|
||||
|
||||
-- Dima Kogan <dima@secretsauce.net> Sat, 11 Feb 2012 21:04:42 -0800
|
||||
|
||||
feedgnuplot (1.18) unstable; urgency=low
|
||||
|
||||
* data-ids can now include characters such as -. Any non-whitespace
|
||||
works
|
||||
|
||||
-- Dima Kogan <dima@secretsauce.net> Tue, 27 Dec 2011 16:47:36 -0800
|
||||
|
||||
feedgnuplot (1.17) unstable; urgency=low
|
||||
|
||||
[ Dima Kogan ]
|
||||
* POD: removed -Winteractive, since this was apparently a mawk-ism
|
||||
* added zsh and bash completions to the package
|
||||
|
||||
[ Hermann Schwarting ]
|
||||
* add build dependency libtest-script-run-perl
|
||||
|
||||
-- Dima Kogan <dima@secretsauce.net> Sun, 20 Nov 2011 19:17:22 -0800
|
||||
|
||||
feedgnuplot (1.16) unstable; urgency=low
|
||||
|
||||
* deb version parser now works for any package name
|
||||
* Some POD fixes
|
||||
* now building a native package
|
||||
|
||||
-- Dima Kogan <dima@secretsauce.net> Fri, 11 Nov 2011 00:10:18 -0800
|
||||
|
||||
feedgnuplot (1.15-2) unstable; urgency=low
|
||||
|
||||
* added source format for the debianization
|
||||
* added configuration to let git-buildpackage build this package
|
||||
* standards bump to make lintian happier
|
||||
|
||||
-- Dima Kogan <dima@secretsauce.net> Sun, 23 Oct 2011 13:38:15 -0700
|
||||
|
||||
feedgnuplot (1.15-1) unstable; urgency=low
|
||||
|
||||
* Renamed main script from feedGnuplot to feedgnuplot
|
||||
* Slightly improved packaging, added instructions, etc
|
||||
|
||||
-- Dima Kogan <dima@secretsauce.net> Sun, 16 Oct 2011 11:58:15 -0700
|
||||
|
||||
feedgnuplot (1.14-1) unstable; urgency=low
|
||||
|
||||
* New upstream release (added 'clear' command, documented commands)
|
||||
|
||||
-- Dima Kogan <dima@secretsauce.net> Sun, 22 May 2011 15:25:28 -0700
|
||||
|
||||
feedgnuplot (1.13-1) unstable; urgency=low
|
||||
|
||||
* New upstream release (Better streaming plot control)
|
||||
|
||||
-- Dima Kogan <dima@secretsauce.net> Tue, 26 Apr 2011 14:24:09 -0700
|
||||
|
||||
feedgnuplot (1.12-1) unstable; urgency=low
|
||||
|
||||
* New upstream release
|
||||
|
||||
-- Dima Kogan <dima@secretsauce.net> Tue, 19 Apr 2011 11:02:23 -0700
|
||||
|
||||
feedgnuplot (1.11-1) unstable; urgency=low
|
||||
|
||||
* New upstream release
|
||||
|
||||
-- Dima Kogan <dima@secretsauce.net> Sat, 09 Apr 2011 14:10:21 -0700
|
||||
|
||||
feedgnuplot (1.10-1) unstable; urgency=low
|
||||
|
||||
* New upstream release
|
||||
|
||||
-- Dima Kogan <dima@secretsauce.net> Sat, 09 Apr 2011 14:08:06 -0700
|
||||
|
||||
feedgnuplot (1.09-1) unstable; urgency=low
|
||||
|
||||
* New upstream release
|
||||
|
||||
-- Dima Kogan <dima@secretsauce.net> Sun, 03 Apr 2011 17:23:38 -0700
|
||||
|
||||
feedgnuplot (1.08-1) unstable; urgency=low
|
||||
|
||||
* Initial debianized release.
|
||||
|
||||
-- Dima Kogan <dima@secretsauce.net> Sun, 6 Feb 2011 15:58:22 -0800
|
@@ -1 +0,0 @@
|
||||
7
|
@@ -1,20 +0,0 @@
|
||||
Source: feedgnuplot
|
||||
Section: science
|
||||
Priority: extra
|
||||
Build-Depends: debhelper (>= 7), libtest-script-run-perl, perl
|
||||
Maintainer: Dima Kogan <dima@secretsauce.net>
|
||||
Uploaders: Dima Kogan <dima@secretsauce.net>
|
||||
Standards-Version: 3.9.3
|
||||
Homepage: https://github.com/dkogan/feedgnuplot
|
||||
Vcs-Git: git://github.com/dkogan/feedgnuplot.git
|
||||
Vcs-Browser: https://github.com/dkogan/feedgnuplot
|
||||
DM-Upload-Allowed: yes
|
||||
|
||||
Package: feedgnuplot
|
||||
Architecture: all
|
||||
Depends: ${misc:Depends}, ${perl:Depends}, gnuplot
|
||||
Description: Pipe-oriented frontend to Gnuplot
|
||||
Flexible, command-line-oriented frontend to Gnuplot. Creates plots from data
|
||||
coming in on STDIN or given in a filename passed on the commandline. Various
|
||||
data representations are supported, as is hardcopy output and streaming display
|
||||
of live data.
|
@@ -1,24 +0,0 @@
|
||||
Format: http://www.debian.org/doc/packaging-manuals/copyright-format/1.0/
|
||||
Source: https://github.com/dkogan/feedgnuplot
|
||||
Upstream-Contact: Dima Kogan, <dima@secretsauce.net>
|
||||
Upstream-Name: feedgnuplot
|
||||
|
||||
Files: *
|
||||
Copyright: 2011, Dima Kogan <dima@secretsauce.net>
|
||||
License: Artistic or GPL-1+
|
||||
|
||||
License: Artistic
|
||||
This program is free software; you can redistribute it and/or modify
|
||||
it under the terms of the Artistic License, which comes with Perl.
|
||||
.
|
||||
On Debian GNU/Linux systems, the complete text of the Artistic License
|
||||
can be found in `/usr/share/common-licenses/Artistic'.
|
||||
|
||||
License: GPL-1+
|
||||
This program is free software; you can redistribute it and/or modify
|
||||
it under the terms of the GNU General Public License as published by
|
||||
the Free Software Foundation; either version 1, or (at your option)
|
||||
any later version.
|
||||
.
|
||||
On Debian GNU/Linux systems, the complete text of version 1 of the
|
||||
General Public License can be found in `/usr/share/common-licenses/GPL-1'.
|
@@ -1,2 +0,0 @@
|
||||
completions/bash/feedgnuplot /etc/bash_completion.d/
|
||||
completions/zsh/_feedgnuplot /usr/share/zsh/vendor-completions
|
@@ -1,5 +0,0 @@
|
||||
[DEFAULT]
|
||||
upstream-tree = branch
|
||||
upstream-branch = master
|
||||
debian-branch = master
|
||||
debian-tag = debian-%(version)s
|
@@ -1,4 +0,0 @@
|
||||
#!/usr/bin/make -f
|
||||
|
||||
%:
|
||||
dh $@
|
@@ -1 +0,0 @@
|
||||
3.0 (native)
|
541
t/plots.t
541
t/plots.t
@@ -5,7 +5,9 @@
|
||||
# change the way the output looks will show up as test failures. Currently the
|
||||
# reference plots come from gnuplot 4.6.4, and I make sure this is the version
|
||||
# we're testing with
|
||||
|
||||
#
|
||||
# Note that some tests are only executed when the RUN_ALL_TESTS environment
|
||||
# variable is set.
|
||||
|
||||
# require a threaded perl for my tests. This block lifted verbatim from the cpantesters wiki
|
||||
BEGIN {
|
||||
@@ -15,14 +17,20 @@ BEGIN {
|
||||
exit(0);
|
||||
}
|
||||
|
||||
open(my $pipe, 'gnuplot --version |');
|
||||
if( !$pipe )
|
||||
my $gawkversion = `gawk -V`;
|
||||
if( !$gawkversion || $@ )
|
||||
{
|
||||
print("1..0 # Skip: gawk is required for strftime() in the test suite. Skipping tests.\n");
|
||||
exit(0);
|
||||
}
|
||||
|
||||
my $gnuplotVersion = `gnuplot --version`;
|
||||
if( !$gnuplotVersion || $@)
|
||||
{
|
||||
print("1..0 # Skip: gnuplot not installed. Tests require ver. 4.6.4; feedgnuplot works with any.\n");
|
||||
exit(0);
|
||||
}
|
||||
|
||||
my $gnuplotVersion = <$pipe>;
|
||||
chomp $gnuplotVersion;
|
||||
if ($gnuplotVersion ne "gnuplot 4.6 patchlevel 4")
|
||||
{
|
||||
@@ -31,7 +39,7 @@ BEGIN {
|
||||
}
|
||||
}
|
||||
|
||||
use Test::More tests => 52;
|
||||
use Test::More tests => 56;
|
||||
use File::Temp 'tempfile';
|
||||
use IPC::Run 'run';
|
||||
use String::ShellQuote;
|
||||
@@ -318,7 +326,7 @@ tryplot( testname => 'basic line plot with bounds, square aspect ratio',
|
||||
EOF
|
||||
|
||||
tryplot( testname => 'lines on both axes with labels, legends, titles',
|
||||
cmd => q{seq 5 | awk '{print 2*$1, $1*$1}'},
|
||||
cmd => q{seq 5 | gawk '{print 2*$1, $1*$1}'},
|
||||
options => [qw(--lines --points),
|
||||
'--legend', '0', 'data 0',
|
||||
'--title', "Test plot",
|
||||
@@ -367,7 +375,7 @@ tryplot( testname => 'lines on both axes with labels, legends, titles',
|
||||
EOF
|
||||
|
||||
tryplot( testname => 'lines on both axes with labels, legends, titles; different styles',
|
||||
cmd => q{seq 5 | awk '{print 2*$1, $1*$1}'},
|
||||
cmd => q{seq 5 | gawk '{print 2*$1, $1*$1}'},
|
||||
options => ['--legend', '0', 'data 0',
|
||||
'--title', "Test plot",
|
||||
qw(--y2 1 --y2label y2 --xlabel x --ylabel y --y2max 30),
|
||||
@@ -417,7 +425,7 @@ tryplot( testname => 'lines on both axes with labels, legends, titles; different
|
||||
EOF
|
||||
|
||||
tryplot( testname => 'domain plot',
|
||||
cmd => q{seq 5 | awk '{print 2*$1, $1*$1}'},
|
||||
cmd => q{seq 5 | gawk '{print 2*$1, $1*$1}'},
|
||||
options => [qw(--lines --points), '--domain'],
|
||||
refplot => <<'EOF' );
|
||||
|
||||
@@ -463,7 +471,7 @@ tryplot( testname => 'domain plot',
|
||||
EOF
|
||||
|
||||
tryplot( testname => 'dataid plot',
|
||||
cmd => q{seq 5 | awk '{print 2*$1, $1*$1}'},
|
||||
cmd => q{seq 5 | gawk '{print 2*$1, $1*$1}'},
|
||||
options => [qw(--lines --points),
|
||||
qw(--dataid --autolegend)],
|
||||
refplot => <<'EOF' );
|
||||
@@ -510,7 +518,7 @@ tryplot( testname => 'dataid plot',
|
||||
EOF
|
||||
|
||||
tryplot( testname => '3d spiral with bounds, labels',
|
||||
cmd => q{seq 50 | awk '{print 2*cos($1/5), sin($1/5), $1}'},
|
||||
cmd => q{seq 50 | gawk '{print 2*cos($1/5), sin($1/5), $1}'},
|
||||
options => [qw(--lines --points),
|
||||
qw(--3d --domain --zmin -5 --zmax 45 --zlabel z),
|
||||
'--extracmds', 'set view 60,30'],
|
||||
@@ -558,7 +566,7 @@ tryplot( testname => '3d spiral with bounds, labels',
|
||||
EOF
|
||||
|
||||
tryplot( testname => '3d spiral with bounds, labels, square xy aspect ratio',
|
||||
cmd => q{seq 50 | awk '{print 2*cos($1/5), sin($1/5), $1}'},
|
||||
cmd => q{seq 50 | gawk '{print 2*cos($1/5), sin($1/5), $1}'},
|
||||
options => [qw(--lines --points),
|
||||
qw(--3d --domain --zmin -5 --zmax 45 --zlabel z),
|
||||
'--extracmds', 'set view 60,30', '--square_xy'],
|
||||
@@ -603,197 +611,10 @@ tryplot( testname => '3d spiral with bounds, labels, square xy aspect ratio',
|
||||
|
||||
|
||||
|
||||
EOF
|
||||
|
||||
tryplot( testname => 'Histogram plot',
|
||||
cmd => q{seq 50 | awk '{print $1*$1}'},
|
||||
options => [qw(--lines --points),
|
||||
qw(--histo 0 --binwidth 50 --ymin 0 --curvestyleall), 'with boxes'],
|
||||
refplot => <<'EOF' );
|
||||
|
||||
|
||||
4 ++----------****----------+------------+-----------+------------+------------+-----------++
|
||||
+ *+** + + + + + +
|
||||
| * ** |
|
||||
| * ** |
|
||||
3.5 ++ * ** ++
|
||||
| * ** |
|
||||
| * ** |
|
||||
| * ** |
|
||||
| * ** |
|
||||
3 ++ * *** ++
|
||||
| * *** |
|
||||
| * *** |
|
||||
| * *** |
|
||||
2.5 ++ * *** ++
|
||||
| * *** |
|
||||
| * *** |
|
||||
| * *** |
|
||||
2 ++ * **** *** ++
|
||||
| * **** *** |
|
||||
| * **** *** |
|
||||
| * **** *** |
|
||||
| * **** *** |
|
||||
1.5 ++ * **** *** ++
|
||||
| * **** *** |
|
||||
| * **** *** |
|
||||
| * **** *** |
|
||||
1 ++ * ************************** ******** ************************** ** ++
|
||||
| * **** *** **** *** **** *** **** *** **** *** **** *** **** *** ** |
|
||||
| * **** *** **** *** **** *** **** *** **** *** **** *** **** *** ** |
|
||||
| * **** *** **** *** **** *** **** *** **** *** **** *** **** *** ** |
|
||||
| * **** *** **** *** **** *** **** *** **** *** **** *** **** *** ** |
|
||||
0.5 ++ * **** *** **** *** **** *** **** *** **** *** **** *** **** *** ** ++
|
||||
| * **** *** **** *** **** *** **** *** **** *** **** *** **** *** ** |
|
||||
| * **** *** **** *** **** *** **** *** **** *** **** *** **** *** ** |
|
||||
+ *+**** *** **** *** **** *** **** *** **** *** **** *** **** *** ** +
|
||||
0 ++----------****************************-********-**************************-**----------++
|
||||
-500 0 500 1000 1500 2000 2500 3000
|
||||
|
||||
EOF
|
||||
|
||||
tryplot( testname => 'Cumulative histogram',
|
||||
cmd => q{seq 50 | awk '{print $1*$1}'},
|
||||
options => [qw(--lines --points),
|
||||
qw(--histo 0 --histstyle cum --binwidth 50 --ymin 0 --curvestyleall), 'with boxes'],
|
||||
refplot => <<'EOF' );
|
||||
|
||||
|
||||
50 ++-----------+------------+------------+------------+------------+-----------***----------++
|
||||
+ + + + + + ** ***+* +
|
||||
| **** *** * |
|
||||
| *** **** *** * |
|
||||
| ** *** **** *** * |
|
||||
| ***** *** **** *** * |
|
||||
| **** *** *** **** *** * |
|
||||
40 ++ ** **** *** *** **** *** * ++
|
||||
| ****** **** *** *** **** *** * |
|
||||
| ***** *** **** *** *** **** *** * |
|
||||
| *** *** *** **** *** *** **** *** * |
|
||||
| ****** *** *** **** *** *** **** *** * |
|
||||
| ** **** *** *** **** *** *** **** *** * |
|
||||
| ****** **** *** *** **** *** *** **** *** * |
|
||||
30 ++ *** *** **** *** *** **** *** *** **** *** * ++
|
||||
| ****** *** **** *** *** **** *** *** **** *** * |
|
||||
| *** *** *** **** *** *** **** *** *** **** *** * |
|
||||
| ****** *** *** **** *** *** **** *** *** **** *** * |
|
||||
| ** **** *** *** **** *** *** **** *** *** **** *** * |
|
||||
| *** **** *** *** **** *** *** **** *** *** **** *** * |
|
||||
| ****** **** *** *** **** *** *** **** *** *** **** *** * |
|
||||
20 ++ *** *** **** *** *** **** *** *** **** *** *** **** *** * ++
|
||||
| ****** *** **** *** *** **** *** *** **** *** *** **** *** * |
|
||||
| ** *** *** **** *** *** **** *** *** **** *** *** **** *** * |
|
||||
| *** *** *** **** *** *** **** *** *** **** *** *** **** *** * |
|
||||
| **** *** *** **** *** *** **** *** *** **** *** *** **** *** * |
|
||||
| ****** *** *** **** *** *** **** *** *** **** *** *** **** *** * |
|
||||
| ** **** *** *** **** *** *** **** *** *** **** *** *** **** *** * |
|
||||
10 ++ ** **** *** *** **** *** *** **** *** *** **** *** *** **** *** * ++
|
||||
| *** **** *** *** **** *** *** **** *** *** **** *** *** **** *** * |
|
||||
| *** **** *** *** **** *** *** **** *** *** **** *** *** **** *** * |
|
||||
| *** **** *** *** **** *** *** **** *** *** **** *** *** **** *** * |
|
||||
| ***** **** *** *** **** *** *** **** *** *** **** *** *** **** *** * |
|
||||
| * *** **** *** *** **** *** *** **** *** *** **** *** *** **** *** * |
|
||||
+ *+*** **** ***+*** **** ***+*** **** ***+*** **** ***+*** **** ***+* +
|
||||
0 ++----------********************************************-********+***-****-*****----------++
|
||||
-500 0 500 1000 1500 2000 2500 3000
|
||||
|
||||
EOF
|
||||
|
||||
tryplot( testname => 'Circles',
|
||||
cmd => q{seq 5 | awk '{print $1,$1,$1/10}'},
|
||||
options => [qw(--circles --domain)],
|
||||
refplot => <<'EOF' );
|
||||
|
||||
|
||||
5 ++-------+--------+--------+--------+--------+--------+--------+--------*******************
|
||||
+ + + + + + + + * + *+
|
||||
| * * *|
|
||||
| ******** * *|
|
||||
4.5 ++ ** ** * *+
|
||||
| ** ** ** **|
|
||||
| ** ** ** ** |
|
||||
| * * ** ** |
|
||||
| * * ** ** |
|
||||
4 ++ * ** ********** ++
|
||||
| * * |
|
||||
| * * |
|
||||
| * * * |
|
||||
3.5 ++ ****** ** ** ++
|
||||
| * * ** ** |
|
||||
| * * ** ** |
|
||||
| * * ******** |
|
||||
3 ++ * ** ++
|
||||
| * * |
|
||||
| * * |
|
||||
| * * |
|
||||
| * * |
|
||||
2.5 ++ * ****** ++
|
||||
| ****** |
|
||||
| ** ** |
|
||||
| * * |
|
||||
2 ++ * ** ++
|
||||
| * ** |
|
||||
| * * |
|
||||
| ** ** |
|
||||
| ****** |
|
||||
1.5 ++ ++
|
||||
| |
|
||||
| * |
|
||||
+ **** + + + + + + + + +
|
||||
1 ++-----*-+**------+--------+--------+--------+--------+--------+--------+--------+-------++
|
||||
0.5 1 1.5 2 2.5 3 3.5 4 4.5 5 5.5
|
||||
|
||||
EOF
|
||||
|
||||
tryplot( testname => 'Error bars (using extraValuesPerPoint)',
|
||||
cmd => q{seq 5 | awk '{print $1,$1,$1/10}'},
|
||||
options => [qw(--domain),
|
||||
qw(--extraValuesPerPoint 1 --curvestyle 0), 'with errorbars'],
|
||||
refplot => <<'EOF' );
|
||||
|
||||
|
||||
5.5 ++---------+-----------+----------+----------+----------+-----------+----------+---------**
|
||||
+ + + + + + + + *
|
||||
| *
|
||||
5 ++ +A
|
||||
| *
|
||||
| *
|
||||
| *
|
||||
4.5 ++ **
|
||||
| *** |
|
||||
| * |
|
||||
4 ++ A ++
|
||||
| * |
|
||||
| * |
|
||||
| *** |
|
||||
3.5 ++ ++
|
||||
| *** |
|
||||
| * |
|
||||
3 ++ A ++
|
||||
| * |
|
||||
| * |
|
||||
| *** |
|
||||
2.5 ++ ++
|
||||
| |
|
||||
| *** |
|
||||
2 ++ A ++
|
||||
| * |
|
||||
| *** |
|
||||
| |
|
||||
1.5 ++ ++
|
||||
| |
|
||||
| |
|
||||
1 A* ++
|
||||
** |
|
||||
| |
|
||||
+ + + + + + + + +
|
||||
0.5 ++---------+-----------+----------+----------+----------+-----------+----------+---------++
|
||||
1 1.5 2 2.5 3 3.5 4 4.5 5
|
||||
|
||||
EOF
|
||||
|
||||
tryplot( testname => 'Monotonicity check',
|
||||
cmd => q{seq 10 | awk '{print (NR-1)%5,NR}'},
|
||||
cmd => q{seq 10 | gawk '{print (NR-1)%5,NR}'},
|
||||
options => [qw(--lines --points --domain --monotonic)],
|
||||
refplot => <<'EOF' );
|
||||
|
||||
@@ -840,7 +661,7 @@ EOF
|
||||
|
||||
|
||||
tryplot( testname => 'basic --timefmt plot',
|
||||
cmd => q{seq 5 | awk '{print strftime("%d %b %Y %T",1382249107+$1,1),$1}'},
|
||||
cmd => q{seq 5 | gawk '{print strftime("%d %b %Y %T",1382249107+$1,1),$1}'},
|
||||
options => ['--domain', '--timefmt', '%d %b %Y %H:%M:%S'],
|
||||
refplot => <<'EOF' );
|
||||
|
||||
@@ -886,7 +707,7 @@ tryplot( testname => 'basic --timefmt plot',
|
||||
EOF
|
||||
|
||||
tryplot( testname => '--timefmt plot with bounds',
|
||||
cmd => q{seq 5 | awk '{print strftime("%d %b %Y %T",1382249107+$1,1),$1}'},
|
||||
cmd => q{seq 5 | gawk '{print strftime("%d %b %Y %T",1382249107+$1,1),$1}'},
|
||||
options => ['--domain', '--timefmt', '%d %b %Y %H:%M:%S',
|
||||
'--xmin', '20 Oct 2013 06:05:00',
|
||||
'--xmax', '20 Oct 2013 06:05:20'],
|
||||
@@ -934,7 +755,7 @@ tryplot( testname => '--timefmt plot with bounds',
|
||||
EOF
|
||||
|
||||
tryplot( testname => '--timefmt plot with --monotonic',
|
||||
cmd => q{seq 10 | awk '{x=(NR-1)%5; print strftime("%d %b %Y %T",1382249107+x,1),$1}'},
|
||||
cmd => q{seq 10 | gawk '{x=(NR-1)%5; print strftime("%d %b %Y %T",1382249107+x,1),$1}'},
|
||||
options => ['--domain', '--timefmt', '%d %b %Y %H:%M:%S',
|
||||
'--monotonic'],
|
||||
refplot => <<'EOF' );
|
||||
@@ -980,6 +801,307 @@ tryplot( testname => '--timefmt plot with --monotonic',
|
||||
|
||||
EOF
|
||||
|
||||
tryplot( testname => 'Error bars (using extraValuesPerPoint)',
|
||||
cmd => q{seq 5 | gawk '{print $1,$1,$1/10}'},
|
||||
options => [qw(--domain),
|
||||
qw(--extraValuesPerPoint 1 --with errorbars)],
|
||||
refplot => <<'EOF' );
|
||||
|
||||
|
||||
5.5 ++---------+-----------+----------+----------+----------+-----------+----------+---------**
|
||||
+ + + + + + + + *
|
||||
| *
|
||||
5 ++ +A
|
||||
| *
|
||||
| *
|
||||
| *
|
||||
4.5 ++ **
|
||||
| *** |
|
||||
| * |
|
||||
4 ++ A ++
|
||||
| * |
|
||||
| * |
|
||||
| *** |
|
||||
3.5 ++ ++
|
||||
| *** |
|
||||
| * |
|
||||
3 ++ A ++
|
||||
| * |
|
||||
| * |
|
||||
| *** |
|
||||
2.5 ++ ++
|
||||
| |
|
||||
| *** |
|
||||
2 ++ A ++
|
||||
| * |
|
||||
| *** |
|
||||
| |
|
||||
1.5 ++ ++
|
||||
| |
|
||||
| |
|
||||
1 A* ++
|
||||
** |
|
||||
| |
|
||||
+ + + + + + + + +
|
||||
0.5 ++---------+-----------+----------+----------+----------+-----------+----------+---------++
|
||||
1 1.5 2 2.5 3 3.5 4 4.5 5
|
||||
|
||||
EOF
|
||||
|
||||
|
||||
tryplot( testname => 'Error bars (using rangesizeall)',
|
||||
cmd => q{seq 5 | gawk '{print $1,$1,$1/10}'},
|
||||
options => [qw(--domain),
|
||||
qw(--rangesizeall 2 --with errorbars)],
|
||||
refplot => <<'EOF' );
|
||||
|
||||
|
||||
5.5 ++---------+-----------+----------+----------+----------+-----------+----------+---------**
|
||||
+ + + + + + + + *
|
||||
| *
|
||||
5 ++ +A
|
||||
| *
|
||||
| *
|
||||
| *
|
||||
4.5 ++ **
|
||||
| *** |
|
||||
| * |
|
||||
4 ++ A ++
|
||||
| * |
|
||||
| * |
|
||||
| *** |
|
||||
3.5 ++ ++
|
||||
| *** |
|
||||
| * |
|
||||
3 ++ A ++
|
||||
| * |
|
||||
| * |
|
||||
| *** |
|
||||
2.5 ++ ++
|
||||
| |
|
||||
| *** |
|
||||
2 ++ A ++
|
||||
| * |
|
||||
| *** |
|
||||
| |
|
||||
1.5 ++ ++
|
||||
| |
|
||||
| |
|
||||
1 A* ++
|
||||
** |
|
||||
| |
|
||||
+ + + + + + + + +
|
||||
0.5 ++---------+-----------+----------+----------+----------+-----------+----------+---------++
|
||||
1 1.5 2 2.5 3 3.5 4 4.5 5
|
||||
|
||||
EOF
|
||||
|
||||
|
||||
tryplot( testname => 'Error bars (using rangesize, rangesizeall)',
|
||||
cmd => q{seq 5 | gawk '{print $1,"vert",$1,$1/10,"horiz",5-$1,$1-$1/5,$1+$1/20}'},
|
||||
options => [qw(--domain --dataid),
|
||||
qw(--rangesize vert 2 --rangesizeall 3 --with xerrorbars --style vert), 'with errorbars',
|
||||
qw(--xmin 1 --xmax 5 --ymin 0.5 --ymax 5.5)],
|
||||
refplot => <<'EOF' );
|
||||
|
||||
|
||||
+-----------+----------+-----------+----------+-----------+----------+-----------+---------**
|
||||
+ + + + + + + + *
|
||||
| *
|
||||
5 ++ +A
|
||||
| *
|
||||
| *
|
||||
| *
|
||||
| **
|
||||
| *** |
|
||||
## * |
|
||||
4 B# A ++
|
||||
## * |
|
||||
| * |
|
||||
| *** |
|
||||
| |
|
||||
| *** |
|
||||
| # # * |
|
||||
3 ++ #########B## A ++
|
||||
| # # * |
|
||||
| * |
|
||||
| *** |
|
||||
| |
|
||||
| |
|
||||
| *** # # |
|
||||
2 ++ A ##############B### ++
|
||||
| * # # |
|
||||
| *** |
|
||||
| |
|
||||
| |
|
||||
| |
|
||||
| # # |
|
||||
1 A* ##################B##### ++
|
||||
** # # |
|
||||
| |
|
||||
+ + + + + + + + +
|
||||
+-----------+----------+-----------+----------+-----------+----------+-----------+----------+
|
||||
1 1.5 2 2.5 3 3.5 4 4.5 5
|
||||
|
||||
EOF
|
||||
|
||||
|
||||
SKIP:
|
||||
{
|
||||
|
||||
# Some tests aren't 100% reliable, so I do not include them in automated testing. These are
|
||||
#
|
||||
# - Histogram and circle-plotting tests: these have inconsistent round-off
|
||||
# behavior on different arches; specifically 32-bit and 64-bit x86. So both
|
||||
# plots look fine, but not identical, thus the tests fail
|
||||
#
|
||||
# - Streaming tests. These tests have a temporal component, so the loading of
|
||||
# the host machine can cause a test failure. It's fine pretty much all the
|
||||
# time on my not-too-new laptop, but this is bad for automated testing
|
||||
|
||||
skip "Skipping unreliable tests. Set RUN_ALL_TESTS environment variable to run them all", 18 unless $ENV{RUN_ALL_TESTS};
|
||||
|
||||
|
||||
tryplot( testname => 'Histogram plot',
|
||||
cmd => q{seq 50 | gawk '{print $1*$1}'},
|
||||
options => [qw(--lines --points),
|
||||
qw(--histo 0 --binwidth 50 --ymin 0 --curvestyleall), 'with boxes'],
|
||||
refplot => <<'EOF' );
|
||||
|
||||
|
||||
4 ++----------****----------+------------+-----------+------------+------------+-----------++
|
||||
+ *+** + + + + + +
|
||||
| * ** |
|
||||
| * ** |
|
||||
3.5 ++ * ** ++
|
||||
| * ** |
|
||||
| * ** |
|
||||
| * ** |
|
||||
| * ** |
|
||||
3 ++ * *** ++
|
||||
| * *** |
|
||||
| * *** |
|
||||
| * *** |
|
||||
2.5 ++ * *** ++
|
||||
| * *** |
|
||||
| * *** |
|
||||
| * *** |
|
||||
2 ++ * **** *** ++
|
||||
| * **** *** |
|
||||
| * **** *** |
|
||||
| * **** *** |
|
||||
| * **** *** |
|
||||
1.5 ++ * **** *** ++
|
||||
| * **** *** |
|
||||
| * **** *** |
|
||||
| * **** *** |
|
||||
1 ++ * ************************** ******** ************************** ** ++
|
||||
| * **** *** **** *** **** *** **** *** **** *** **** *** **** *** ** |
|
||||
| * **** *** **** *** **** *** **** *** **** *** **** *** **** *** ** |
|
||||
| * **** *** **** *** **** *** **** *** **** *** **** *** **** *** ** |
|
||||
| * **** *** **** *** **** *** **** *** **** *** **** *** **** *** ** |
|
||||
0.5 ++ * **** *** **** *** **** *** **** *** **** *** **** *** **** *** ** ++
|
||||
| * **** *** **** *** **** *** **** *** **** *** **** *** **** *** ** |
|
||||
| * **** *** **** *** **** *** **** *** **** *** **** *** **** *** ** |
|
||||
+ *+**** *** **** *** **** *** **** *** **** *** **** *** **** *** ** +
|
||||
0 ++----------****************************-********-**************************-**----------++
|
||||
-500 0 500 1000 1500 2000 2500 3000
|
||||
|
||||
EOF
|
||||
|
||||
tryplot( testname => 'Cumulative histogram',
|
||||
cmd => q{seq 50 | gawk '{print $1*$1}'},
|
||||
options => [qw(--lines --points),
|
||||
qw(--histo 0 --histstyle cum --binwidth 50 --ymin 0 --curvestyleall), 'with boxes'],
|
||||
refplot => <<'EOF' );
|
||||
|
||||
|
||||
50 ++-----------+------------+------------+------------+------------+-----------***----------++
|
||||
+ + + + + + ** ***+* +
|
||||
| **** *** * |
|
||||
| *** **** *** * |
|
||||
| ** *** **** *** * |
|
||||
| ***** *** **** *** * |
|
||||
| **** *** *** **** *** * |
|
||||
40 ++ ** **** *** *** **** *** * ++
|
||||
| ****** **** *** *** **** *** * |
|
||||
| ***** *** **** *** *** **** *** * |
|
||||
| *** *** *** **** *** *** **** *** * |
|
||||
| ****** *** *** **** *** *** **** *** * |
|
||||
| ** **** *** *** **** *** *** **** *** * |
|
||||
| ****** **** *** *** **** *** *** **** *** * |
|
||||
30 ++ *** *** **** *** *** **** *** *** **** *** * ++
|
||||
| ****** *** **** *** *** **** *** *** **** *** * |
|
||||
| *** *** *** **** *** *** **** *** *** **** *** * |
|
||||
| ****** *** *** **** *** *** **** *** *** **** *** * |
|
||||
| ** **** *** *** **** *** *** **** *** *** **** *** * |
|
||||
| *** **** *** *** **** *** *** **** *** *** **** *** * |
|
||||
| ****** **** *** *** **** *** *** **** *** *** **** *** * |
|
||||
20 ++ *** *** **** *** *** **** *** *** **** *** *** **** *** * ++
|
||||
| ****** *** **** *** *** **** *** *** **** *** *** **** *** * |
|
||||
| ** *** *** **** *** *** **** *** *** **** *** *** **** *** * |
|
||||
| *** *** *** **** *** *** **** *** *** **** *** *** **** *** * |
|
||||
| **** *** *** **** *** *** **** *** *** **** *** *** **** *** * |
|
||||
| ****** *** *** **** *** *** **** *** *** **** *** *** **** *** * |
|
||||
| ** **** *** *** **** *** *** **** *** *** **** *** *** **** *** * |
|
||||
10 ++ ** **** *** *** **** *** *** **** *** *** **** *** *** **** *** * ++
|
||||
| *** **** *** *** **** *** *** **** *** *** **** *** *** **** *** * |
|
||||
| *** **** *** *** **** *** *** **** *** *** **** *** *** **** *** * |
|
||||
| *** **** *** *** **** *** *** **** *** *** **** *** *** **** *** * |
|
||||
| ***** **** *** *** **** *** *** **** *** *** **** *** *** **** *** * |
|
||||
| * *** **** *** *** **** *** *** **** *** *** **** *** *** **** *** * |
|
||||
+ *+*** **** ***+*** **** ***+*** **** ***+*** **** ***+*** **** ***+* +
|
||||
0 ++----------********************************************-********+***-****-*****----------++
|
||||
-500 0 500 1000 1500 2000 2500 3000
|
||||
|
||||
EOF
|
||||
|
||||
tryplot( testname => 'Circles',
|
||||
cmd => q{seq 5 | gawk '{print $1,$1,$1/10}'},
|
||||
options => [qw(--circles --domain)],
|
||||
refplot => <<'EOF' );
|
||||
|
||||
|
||||
5 ++-------+--------+--------+--------+--------+--------+--------+--------*******************
|
||||
+ + + + + + + + * + *+
|
||||
| * * *|
|
||||
| ******** * *|
|
||||
4.5 ++ ** ** * *+
|
||||
| ** ** ** **|
|
||||
| ** ** ** ** |
|
||||
| * * ** ** |
|
||||
| * * ** ** |
|
||||
4 ++ * ** ********** ++
|
||||
| * * |
|
||||
| * * |
|
||||
| * * * |
|
||||
3.5 ++ ****** ** ** ++
|
||||
| * * ** ** |
|
||||
| * * ** ** |
|
||||
| * * ******** |
|
||||
3 ++ * ** ++
|
||||
| * * |
|
||||
| * * |
|
||||
| * * |
|
||||
| * * |
|
||||
2.5 ++ * ****** ++
|
||||
| ****** |
|
||||
| ** ** |
|
||||
| * * |
|
||||
2 ++ * ** ++
|
||||
| * ** |
|
||||
| * * |
|
||||
| ** ** |
|
||||
| ****** |
|
||||
1.5 ++ ++
|
||||
| |
|
||||
| * |
|
||||
+ **** + + + + + + + + +
|
||||
1 ++-----*-+**------+--------+--------+--------+--------+--------+--------+--------+-------++
|
||||
0.5 1 1.5 2 2.5 3 3.5 4 4.5 5 5.5
|
||||
|
||||
EOF
|
||||
|
||||
|
||||
|
||||
|
||||
@@ -989,7 +1111,7 @@ note( "Starting to run streaming tests. These will take several seconds each" );
|
||||
# points, and then "exit", so I should have two frames worth of data plotted. I
|
||||
# pre-send a 0 so that the gnuplot autoscaling is always well-defined
|
||||
tryplot( testname => 'basic streaming test',
|
||||
cmd => q{seq 500 | awk 'BEGIN{ print 0; } {print (NR==3)? "exit" : $0; fflush(); system("sleep 1.2");}'},
|
||||
cmd => q{seq 500 | gawk 'BEGIN{ print 0; } {print (NR==3)? "exit" : $0; fflush(); system("sleep 1.2");}'},
|
||||
options => [qw(--lines --points --stream)],
|
||||
refplot => <<'EOF' );
|
||||
|
||||
@@ -1075,7 +1197,7 @@ tryplot( testname => 'basic streaming test',
|
||||
EOF
|
||||
|
||||
tryplot( testname => 'basic streaming test, twice as fast',
|
||||
cmd => q{seq 500 | awk 'BEGIN{ print 0; } {print (NR==3)? "exit" : $0; fflush(); system("sleep 0.6");}'},
|
||||
cmd => q{seq 500 | gawk 'BEGIN{ print 0; } {print (NR==3)? "exit" : $0; fflush(); system("sleep 0.6");}'},
|
||||
options => [qw(--lines --points --stream 0.4)],
|
||||
refplot => <<'EOF' );
|
||||
|
||||
@@ -1162,7 +1284,7 @@ EOF
|
||||
|
||||
|
||||
tryplot( testname => 'streaming with --xlen',
|
||||
cmd => q{seq 500 | awk 'BEGIN{ print 0; } {print (NR==3)? "exit" : $0; fflush(); system("sleep 0.6");}'},
|
||||
cmd => q{seq 500 | gawk 'BEGIN{ print 0; } {print (NR==3)? "exit" : $0; fflush(); system("sleep 0.6");}'},
|
||||
options => [qw(--lines --points --stream 0.4 --xlen 1.1)],
|
||||
refplot => <<'EOF' );
|
||||
|
||||
@@ -1248,7 +1370,7 @@ tryplot( testname => 'streaming with --xlen',
|
||||
EOF
|
||||
|
||||
tryplot( testname => 'streaming with --monotonic',
|
||||
cmd => q{seq 500 | awk '{if(NR==11) {print "exit";} else {x=(NR-1)%5; if(x==0) {print -1,-1;} print x,NR;}; fflush(); system("sleep 0.6");}'},
|
||||
cmd => q{seq 500 | gawk '{if(NR==11) {print "exit";} else {x=(NR-1)%5; if(x==0) {print -1,-1;} print x,NR;}; fflush(); system("sleep 0.6");}'},
|
||||
options => [qw(--lines --points --stream 0.4 --domain --monotonic)],
|
||||
refplot => <<'EOF' );
|
||||
|
||||
@@ -1654,7 +1776,7 @@ tryplot( testname => 'streaming with --monotonic',
|
||||
EOF
|
||||
|
||||
tryplot( testname => '--timefmt streaming plot with --xlen',
|
||||
cmd => q{seq 5 | awk 'BEGIN{ print strftime("%d %b %Y %T",1382249107-1,1),-4;} {if(NR==3) {print "exit";} else{ print strftime("%d %b %Y %T",1382249107+$1,1),$1;} fflush(); system("sleep 0.6")}'},
|
||||
cmd => q{seq 5 | gawk 'BEGIN{ print strftime("%d %b %Y %T",1382249107-1,1),-4;} {if(NR==3) {print "exit";} else{ print strftime("%d %b %Y %T",1382249107+$1,1),$1;} fflush(); system("sleep 0.6")}'},
|
||||
options => ['--points', '--lines',
|
||||
'--domain', '--timefmt', '%d %b %Y %H:%M:%S',
|
||||
qw(--stream 0.4 --xlen 3)],
|
||||
@@ -1742,7 +1864,7 @@ tryplot( testname => '--timefmt streaming plot with --xlen',
|
||||
EOF
|
||||
|
||||
tryplot( testname => '--timefmt streaming plot with --monotonic',
|
||||
cmd => q{seq 10 | awk '{x=(NR-1)%5; if(x==0) {print strftime("%d %b %Y %T",1382249107-1,-4),-4;} print strftime("%d %b %Y %T",1382249107+x,1),NR; fflush(); system("sleep 0.6")}'},
|
||||
cmd => q{seq 10 | gawk '{x=(NR-1)%5; if(x==0) {print strftime("%d %b %Y %T",1382249107-1,-4),-4;} print strftime("%d %b %Y %T",1382249107+x,1),NR; fflush(); system("sleep 0.6")}'},
|
||||
options => ['--points', '--lines',
|
||||
'--domain', '--timefmt', '%d %b %Y %H:%M:%S',
|
||||
qw(--stream 0.4 --monotonic)],
|
||||
@@ -2149,6 +2271,7 @@ tryplot( testname => '--timefmt streaming plot with --monotonic',
|
||||
|
||||
EOF
|
||||
|
||||
}
|
||||
|
||||
|
||||
|
||||
@@ -2157,7 +2280,7 @@ sub tryplot
|
||||
my %args = @_;
|
||||
|
||||
my @options = ('--exit',
|
||||
'--extracmds', 'unset grid',
|
||||
qw(--unset grid),
|
||||
'--terminal', 'dumb 100,40');
|
||||
unshift @options, @{$args{options}};
|
||||
|
||||
|
Reference in New Issue
Block a user