mirror of
https://github.com/dkogan/feedgnuplot.git
synced 2025-09-19 03:38:08 +08:00
Compare commits
11 Commits
| Author | SHA1 | Date | |
|---|---|---|---|
|
498047e785 | ||
|
|
72adba82f7 | ||
|
|
539b2035d8 | ||
|
|
9b3cbc13be | ||
|
|
a65abc6095 | ||
|
|
5db86810b5 | ||
|
|
d75b572875 | ||
|
|
6cb1574e2b | ||
|
|
4fd1c390ff | ||
|
|
4163e24956 | ||
|
|
13268a1fa8 |
23
Changes
23
Changes
@@ -1,3 +1,26 @@
|
||||
feedgnuplot (1.34)
|
||||
|
||||
* Fix for "Use of implicit split to @_ is deprecated". Thanks to Corey
|
||||
Putkunz
|
||||
|
||||
* Declaring feedgnuplot as a package to let MetaCPAN index this
|
||||
distribution
|
||||
|
||||
-- Dima Kogan <dima@secretsauce.net> Wed, 14 May 2014 00:45:24 -0700
|
||||
|
||||
feedgnuplot (1.33)
|
||||
|
||||
* fixed incorrect plotting of --timefmt --rangesize plots
|
||||
|
||||
-- Dima Kogan <dima@secretsauce.net> Thu, 06 Feb 2014 23:17:21 -0800
|
||||
|
||||
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()
|
||||
|
||||
202
bin/feedgnuplot
202
bin/feedgnuplot
@@ -1,4 +1,7 @@
|
||||
#!/usr/bin/perl
|
||||
|
||||
package feedgnuplot; # for the metacpan indexer
|
||||
|
||||
use strict;
|
||||
use warnings;
|
||||
use Getopt::Long;
|
||||
@@ -13,7 +16,7 @@ use Thread::Queue;
|
||||
use Pod::Usage;
|
||||
use Time::Piece;
|
||||
|
||||
my $VERSION = 1.31;
|
||||
my $VERSION = 1.34;
|
||||
|
||||
my %options;
|
||||
interpretCommandline();
|
||||
@@ -121,6 +124,8 @@ sub interpretCommandline
|
||||
$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',
|
||||
@@ -129,7 +134,8 @@ sub interpretCommandline
|
||||
'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 );
|
||||
@@ -176,7 +182,7 @@ sub interpretCommandline
|
||||
# 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"} = {};
|
||||
|
||||
@@ -193,6 +199,29 @@ 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;
|
||||
}
|
||||
|
||||
|
||||
# I now set up the rangesize to always be
|
||||
# $options{rangesize_hash}{$id} // $options{rangesize_default}
|
||||
if ( $options{rangesizeall} )
|
||||
{
|
||||
$options{rangesize_default} = $options{rangesizeall};
|
||||
}
|
||||
else
|
||||
{
|
||||
$options{rangesize_default} = 1;
|
||||
|
||||
$options{rangesize_default} += $options{extraValuesPerPoint} if ($options{extraValuesPerPoint});
|
||||
$options{rangesize_default}++ if ($options{colormap});
|
||||
$options{rangesize_default}++ if ($options{circles} );
|
||||
}
|
||||
|
||||
|
||||
# parse stream option. Allowed only numbers >= 0 or 'trigger'. After this code
|
||||
# $options{stream} is
|
||||
# -1 for triggered replotting
|
||||
@@ -345,10 +374,8 @@ sub interpretCommandline
|
||||
$options{timefmt} =~ s/^\s*//;
|
||||
$options{timefmt} =~ s/\s*$//;
|
||||
|
||||
my $Nfields = scalar split( ' ', $options{timefmt});
|
||||
my $Nfields = () = split /\s+/, $options{timefmt}, -1;
|
||||
$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
|
||||
@@ -427,11 +454,6 @@ sub makeDomainNumeric
|
||||
|
||||
sub mainThread
|
||||
{
|
||||
my $valuesPerPoint = 1;
|
||||
if($options{extraValuesPerPoint}) { $valuesPerPoint += $options{extraValuesPerPoint}; }
|
||||
if($options{colormap}) { $valuesPerPoint++; }
|
||||
if($options{circles} ) { $valuesPerPoint++; }
|
||||
|
||||
local *PIPE;
|
||||
my $dopersist = '';
|
||||
|
||||
@@ -573,16 +595,6 @@ sub mainThread
|
||||
|
||||
setCurveAsHistogram( $_ ) foreach (@{$options{histogram}});
|
||||
|
||||
# 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/;
|
||||
|
||||
# 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
|
||||
@@ -651,18 +663,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 )
|
||||
{
|
||||
@@ -676,7 +707,6 @@ sub mainThread
|
||||
else
|
||||
{ $latestX = $domain0_numeric; }
|
||||
}
|
||||
|
||||
}
|
||||
else
|
||||
{
|
||||
@@ -684,8 +714,7 @@ sub mainThread
|
||||
# $. on the data queue in that case
|
||||
if(defined $dataQueue)
|
||||
{
|
||||
s/ ([\d]+)$//o;
|
||||
$domain[0] = $1;
|
||||
$domain[0] = pop @fields;
|
||||
}
|
||||
else
|
||||
{
|
||||
@@ -695,13 +724,30 @@ sub mainThread
|
||||
}
|
||||
|
||||
my $id = -1;
|
||||
while (/$pointRE/go)
|
||||
{
|
||||
if($1 ne '') {$id = $1;}
|
||||
else {$id++; }
|
||||
|
||||
pushPoint(getCurve($id),
|
||||
"@domain $2\n", $domain0_numeric);
|
||||
while(@fields)
|
||||
{
|
||||
if($options{dataid})
|
||||
{
|
||||
$id = shift @fields;
|
||||
}
|
||||
else
|
||||
{
|
||||
$id++;
|
||||
}
|
||||
|
||||
# I'd like to use //, but I guess some people are still on perl 5.8
|
||||
my $rangesize = exists $options{rangesize_hash}{$id} ?
|
||||
$options{rangesize_hash}{$id} :
|
||||
$options{rangesize_default};
|
||||
|
||||
last if @fields < $rangesize;
|
||||
|
||||
pushPoint(getCurve($id),
|
||||
join(' ',
|
||||
@domain,
|
||||
splice( @fields, 0, $rangesize ) ) . "\n",
|
||||
$domain0_numeric);
|
||||
}
|
||||
}
|
||||
}
|
||||
@@ -824,7 +870,19 @@ sub updateCurveOptions
|
||||
my $usingoptions = '';
|
||||
if( $options{timefmt} )
|
||||
{
|
||||
$usingoptions = "using 1:" . ($options{timefmt_Ncols}+1);
|
||||
# with --timefmt I need an explicit 'using' specification. I specify the
|
||||
# columns as 1:2:3..... I need the right number of columns (this is given
|
||||
# as 1 + rangesize). I also need to start the range at the first column
|
||||
# past the timefmt
|
||||
|
||||
# I'd like to use //, but I guess some people are still on perl 5.8
|
||||
my $rangesize = exists $options{rangesize_hash}{$id} ?
|
||||
$options{rangesize_hash}{$id} :
|
||||
$options{rangesize_default};
|
||||
|
||||
my @rest = map {$_ + $options{timefmt_Ncols}} (1..$rangesize);
|
||||
|
||||
$usingoptions = "using 1:" . join(':', @rest);
|
||||
}
|
||||
|
||||
$curve->{options} = "$histoptions $usingoptions $titleoption $curve->{extraoptions} $curvestyleall";
|
||||
@@ -1112,17 +1170,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<--style>, 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
|
||||
|
||||
@@ -1157,7 +1222,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:
|
||||
|
||||
@@ -1365,8 +1430,7 @@ Interpret the X data as a time/date, parsed with the given format
|
||||
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
|
||||
|
||||
@@ -1394,8 +1458,7 @@ Do [not] draw points
|
||||
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
|
||||
|
||||
@@ -1599,13 +1662,32 @@ replotted before being purged
|
||||
|
||||
=item
|
||||
|
||||
C<--rangesize curveID xxx>
|
||||
|
||||
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
|
||||
|
||||
C<--rangesizeall xxx>
|
||||
|
||||
Like C<--rangesize>, but applies to I<all> the curves.
|
||||
|
||||
C<--extraValuesPerPoint 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 C<--styleall> or C<--with> for instance
|
||||
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
|
||||
|
||||
|
||||
@@ -15,6 +15,8 @@ complete -W \
|
||||
--dump \
|
||||
--exit \
|
||||
--extraValuesPerPoint \
|
||||
--rangesizeall \
|
||||
--rangesize \
|
||||
--extracmds \
|
||||
--set \
|
||||
--unset \
|
||||
|
||||
@@ -37,7 +37,9 @@ _arguments -S
|
||||
'--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:' \
|
||||
|
||||
150
t/plots.t
150
t/plots.t
@@ -39,7 +39,7 @@ BEGIN {
|
||||
}
|
||||
}
|
||||
|
||||
use Test::More tests => 52;
|
||||
use Test::More tests => 58;
|
||||
use File::Temp 'tempfile';
|
||||
use IPC::Run 'run';
|
||||
use String::ShellQuote;
|
||||
@@ -801,10 +801,57 @@ tryplot( testname => '--timefmt plot with --monotonic',
|
||||
|
||||
EOF
|
||||
|
||||
tryplot( testname => '--timefmt with custom rangesize',
|
||||
cmd => q{seq 5 | gawk '{print strftime("%d %b %Y %T",1382249107+$1,1),$1,$1/10}'},
|
||||
options => ['--domain', '--timefmt', '%d %b %Y %H:%M:%S',
|
||||
qw(--with errorbars --rangesizeall 2)],
|
||||
refplot => <<'EOF' );
|
||||
|
||||
|
||||
5.5 ++---------+-----------+----------+----------+----------+-----------+----------+---------**
|
||||
+ + + + + + + + *
|
||||
| *
|
||||
5 ++ +A
|
||||
| *
|
||||
| *
|
||||
| *
|
||||
4.5 ++ **
|
||||
| *** |
|
||||
| * |
|
||||
4 ++ A ++
|
||||
| * |
|
||||
| * |
|
||||
| *** |
|
||||
3.5 ++ ++
|
||||
| *** |
|
||||
| * |
|
||||
3 ++ A ++
|
||||
| * |
|
||||
| * |
|
||||
| *** |
|
||||
2.5 ++ ++
|
||||
| |
|
||||
| *** |
|
||||
2 ++ A ++
|
||||
| * |
|
||||
| *** |
|
||||
| |
|
||||
1.5 ++ ++
|
||||
| |
|
||||
| |
|
||||
1 A* ++
|
||||
** |
|
||||
| |
|
||||
+ + + + + + + + +
|
||||
0.5 ++---------+-----------+----------+----------+----------+-----------+----------+---------++
|
||||
05:08 05:08 05:09 05:09 05:10 05:10 05:11 05:11 05:12
|
||||
|
||||
EOF
|
||||
|
||||
tryplot( testname => 'Error bars (using extraValuesPerPoint)',
|
||||
cmd => q{seq 5 | gawk '{print $1,$1,$1/10}'},
|
||||
options => [qw(--domain),
|
||||
qw(--extraValuesPerPoint 1 --curvestyle 0), 'with errorbars'],
|
||||
qw(--extraValuesPerPoint 1 --with errorbars)],
|
||||
refplot => <<'EOF' );
|
||||
|
||||
|
||||
@@ -849,6 +896,103 @@ tryplot( testname => 'Error bars (using extraValuesPerPoint)',
|
||||
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:
|
||||
{
|
||||
|
||||
@@ -2183,7 +2327,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