mirror of
https://github.com/dkogan/feedgnuplot.git
synced 2025-05-06 06:21:16 +08:00
y-range specified with options instead of hard-coded cmdline positions
Ignore-this: 956b97272172f6adbe785cb62fd6ad0a darcs-hash:20090810181416-0cb85-eb9e872523d96a51e33c174a995df684659cdd8a.gz
This commit is contained in:
parent
144a2f1a01
commit
2d55fa6f30
@ -36,7 +36,6 @@ where mandatory options are (in order):
|
|||||||
|
|
||||||
NumberOfStreams How many streams to plot
|
NumberOfStreams How many streams to plot
|
||||||
Stream_WindowSampleSize this many samples
|
Stream_WindowSampleSize this many samples
|
||||||
Stream_YRangeMin Stream_YRangeMax Min and Max y values
|
|
||||||
|
|
||||||
also
|
also
|
||||||
--[no]stream Do [not] display the data a point at a time, as it comes in
|
--[no]stream Do [not] display the data a point at a time, as it comes in
|
||||||
@ -46,6 +45,8 @@ also
|
|||||||
--y2label xxx Set y2-axis label
|
--y2label xxx Set y2-axis label
|
||||||
--title xxx Set the title of the plot
|
--title xxx Set the title of the plot
|
||||||
--legend xxx Set the label for a curve plot. Give this option multiple times for multiple curves
|
--legend xxx Set the label for a curve plot. Give this option multiple times for multiple curves
|
||||||
|
--ymin xxx Set the range for the y axis. Both or neither of these have to be specified
|
||||||
|
--ymax xxx Set the range for the y axis. Both or neither of these have to be specified
|
||||||
--y2min xxx Set the range for the y2 axis. Both or neither of these have to be specified
|
--y2min xxx Set the range for the y2 axis. Both or neither of these have to be specified
|
||||||
--y2max xxx Set the range for the y2 axis. Both or neither of these have to be specified
|
--y2max xxx Set the range for the y2 axis. Both or neither of these have to be specified
|
||||||
--y2 xxx Plot the data with this index on the y2 axis. These are 0-indexed
|
--y2 xxx Plot the data with this index on the y2 axis. These are 0-indexed
|
||||||
@ -63,6 +64,12 @@ sub Arg {
|
|||||||
}
|
}
|
||||||
|
|
||||||
sub main {
|
sub main {
|
||||||
|
if( defined $options{"ymin"} && !defined $options{"ymax"} ||
|
||||||
|
!defined $options{"ymin"} && defined $options{"ymax"} )
|
||||||
|
{
|
||||||
|
usage;
|
||||||
|
die("Both or neither of ymin,ymax should be specified\n");
|
||||||
|
}
|
||||||
if( defined $options{"y2min"} && !defined $options{"y2max"} ||
|
if( defined $options{"y2min"} && !defined $options{"y2max"} ||
|
||||||
!defined $options{"y2min"} && defined $options{"y2max"} )
|
!defined $options{"y2min"} && defined $options{"y2max"} )
|
||||||
{
|
{
|
||||||
@ -81,15 +88,9 @@ sub main {
|
|||||||
my $samples = Arg($argIdx++);
|
my $samples = Arg($argIdx++);
|
||||||
print "Will use a window of $samples samples\n";
|
print "Will use a window of $samples samples\n";
|
||||||
|
|
||||||
my $miny = Arg($argIdx++);
|
|
||||||
my $maxy = Arg($argIdx++);
|
|
||||||
print "Will use a range of [$miny, $maxy]\n";
|
|
||||||
|
|
||||||
my @buffers;
|
my @buffers;
|
||||||
shift @ARGV; # number of streams
|
shift @ARGV; # number of streams
|
||||||
shift @ARGV; # sample size
|
shift @ARGV; # sample size
|
||||||
shift @ARGV; # miny
|
|
||||||
shift @ARGV; # maxy
|
|
||||||
local *PIPE;
|
local *PIPE;
|
||||||
|
|
||||||
open PIPE, "|gnuplot" || die "Can't initialize gnuplot\n";
|
open PIPE, "|gnuplot" || die "Can't initialize gnuplot\n";
|
||||||
@ -122,7 +123,7 @@ sub main {
|
|||||||
print PIPE "set xtics\n";
|
print PIPE "set xtics\n";
|
||||||
print PIPE "set ytics nomirror\n";
|
print PIPE "set ytics nomirror\n";
|
||||||
print PIPE "set y2tics\n";
|
print PIPE "set y2tics\n";
|
||||||
print PIPE "set yrange [". $miny . ":" . $maxy ."]\n";
|
print PIPE "set yrange [". $options{"ymin"} . ":" . $options{"ymax"} ."]\n" if $options{"y2max"};
|
||||||
print PIPE "set y2range [". $options{"y2min"} . ":" . $options{"y2max"} ."]\n" if $options{"y2max"};
|
print PIPE "set y2range [". $options{"y2min"} . ":" . $options{"y2max"} ."]\n" if $options{"y2max"};
|
||||||
print PIPE "set style data $style\n";
|
print PIPE "set style data $style\n";
|
||||||
print PIPE "set grid\n";
|
print PIPE "set grid\n";
|
||||||
|
Loading…
Reference in New Issue
Block a user