mirror of
https://github.com/dkogan/feedgnuplot.git
synced 2025-09-19 03:38:08 +08:00
Compare commits
3 Commits
Author | SHA1 | Date | |
---|---|---|---|
![]() |
319e86b667 | ||
![]() |
938e360e84 | ||
![]() |
d5e8906946 |
6
Changes
6
Changes
@@ -1,3 +1,9 @@
|
|||||||
|
feedgnuplot (1.48)
|
||||||
|
|
||||||
|
* --vnlog works properly with --domain
|
||||||
|
|
||||||
|
-- Dima Kogan <dima@secretsauce.net> Sat, 24 Feb 2018 12:33:50 -0800
|
||||||
|
|
||||||
feedgnuplot (1.47)
|
feedgnuplot (1.47)
|
||||||
|
|
||||||
* Fixed typo. Everything is un-broken now
|
* Fixed typo. Everything is un-broken now
|
||||||
|
@@ -16,7 +16,7 @@ use Pod::Usage;
|
|||||||
use Time::Piece;
|
use Time::Piece;
|
||||||
|
|
||||||
# Makefile.PL assumes this is in ''
|
# Makefile.PL assumes this is in ''
|
||||||
my $VERSION = '1.47';
|
my $VERSION = '1.48';
|
||||||
|
|
||||||
my %options;
|
my %options;
|
||||||
interpretCommandline();
|
interpretCommandline();
|
||||||
@@ -865,6 +865,7 @@ sub mainThread
|
|||||||
# 3d plots require $options{domain}, and dictate "x y" for the domain instead of just "x"
|
# 3d plots require $options{domain}, and dictate "x y" for the domain instead of just "x"
|
||||||
|
|
||||||
my @fields = split;
|
my @fields = split;
|
||||||
|
my $i_column = 0;
|
||||||
|
|
||||||
if($options{domain})
|
if($options{domain})
|
||||||
{
|
{
|
||||||
@@ -876,6 +877,7 @@ sub mainThread
|
|||||||
|
|
||||||
$domain[0] = join (' ', splice( @fields, 0, $options{timefmt_Ncols}) );
|
$domain[0] = join (' ', splice( @fields, 0, $options{timefmt_Ncols}) );
|
||||||
$domain0_numeric = makeDomainNumeric( $domain[0] );
|
$domain0_numeric = makeDomainNumeric( $domain[0] );
|
||||||
|
$i_column += $options{timefmt_Ncols};
|
||||||
}
|
}
|
||||||
elsif(!$options{'3d'})
|
elsif(!$options{'3d'})
|
||||||
{
|
{
|
||||||
@@ -884,6 +886,7 @@ sub mainThread
|
|||||||
next if @fields < 1+1;
|
next if @fields < 1+1;
|
||||||
|
|
||||||
$domain[0] = $domain0_numeric = shift @fields;
|
$domain[0] = $domain0_numeric = shift @fields;
|
||||||
|
$i_column += 1;
|
||||||
}
|
}
|
||||||
else
|
else
|
||||||
{
|
{
|
||||||
@@ -892,6 +895,7 @@ sub mainThread
|
|||||||
next if @fields < 2+1;
|
next if @fields < 2+1;
|
||||||
|
|
||||||
@domain = splice(@fields, 0, 2);
|
@domain = splice(@fields, 0, 2);
|
||||||
|
$i_column += 2;
|
||||||
}
|
}
|
||||||
|
|
||||||
if( $options{monotonic} )
|
if( $options{monotonic} )
|
||||||
@@ -915,8 +919,7 @@ sub mainThread
|
|||||||
$domain0_numeric = makeDomainNumeric( $domain[0] );
|
$domain0_numeric = makeDomainNumeric( $domain[0] );
|
||||||
}
|
}
|
||||||
|
|
||||||
my $id = -1;
|
my $id = -1;
|
||||||
my $i_curve = 0;
|
|
||||||
while(@fields)
|
while(@fields)
|
||||||
{
|
{
|
||||||
if ($options{dataid})
|
if ($options{dataid})
|
||||||
@@ -925,14 +928,14 @@ sub mainThread
|
|||||||
}
|
}
|
||||||
elsif($options{vnlog} )
|
elsif($options{vnlog} )
|
||||||
{
|
{
|
||||||
if( $i_curve >= @vnlog_headers )
|
if( $i_column >= @vnlog_headers )
|
||||||
{
|
{
|
||||||
# Got more columns than vnlog headers. The data is probably
|
# Got more columns than vnlog headers. The data is probably
|
||||||
# bogus, but I don't want to barf at the user, so I silently
|
# bogus, but I don't want to barf at the user, so I silently
|
||||||
# ignore the data
|
# ignore the data
|
||||||
last;
|
last;
|
||||||
}
|
}
|
||||||
$id = $vnlog_headers[$i_curve];
|
$id = $vnlog_headers[$i_column];
|
||||||
}
|
}
|
||||||
else
|
else
|
||||||
{
|
{
|
||||||
@@ -948,7 +951,7 @@ sub mainThread
|
|||||||
splice( @fields, 0, $rangesize ) ) . "\n",
|
splice( @fields, 0, $rangesize ) ) . "\n",
|
||||||
$domain0_numeric);
|
$domain0_numeric);
|
||||||
|
|
||||||
$i_curve++;
|
$i_column++;
|
||||||
}
|
}
|
||||||
}
|
}
|
||||||
|
|
||||||
|
Reference in New Issue
Block a user