r70442 - in /trunk/libgraphics-gnuplotif-perl: Changes META.yml README debian/changelog debian/compat debian/control debian/copyright debian/libgraphics-gnuplotif-perl.docs debian/source/local-options lib/Graphics/GnuplotIF.pm
ansgar at users.alioth.debian.org
ansgar at users.alioth.debian.org
Sat Mar 5 14:10:19 UTC 2011
Author: ansgar
Date: Sat Mar 5 14:09:57 2011
New Revision: 70442
URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=70442
Log:
* New upstream release.
* Use debhelper compat level 8.
* No longer install README.
Added:
trunk/libgraphics-gnuplotif-perl/debian/source/local-options
Removed:
trunk/libgraphics-gnuplotif-perl/debian/libgraphics-gnuplotif-perl.docs
Modified:
trunk/libgraphics-gnuplotif-perl/Changes
trunk/libgraphics-gnuplotif-perl/META.yml
trunk/libgraphics-gnuplotif-perl/README
trunk/libgraphics-gnuplotif-perl/debian/changelog
trunk/libgraphics-gnuplotif-perl/debian/compat
trunk/libgraphics-gnuplotif-perl/debian/control
trunk/libgraphics-gnuplotif-perl/debian/copyright
trunk/libgraphics-gnuplotif-perl/lib/Graphics/GnuplotIF.pm
Modified: trunk/libgraphics-gnuplotif-perl/Changes
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libgraphics-gnuplotif-perl/Changes?rev=70442&op=diff
==============================================================================
--- trunk/libgraphics-gnuplotif-perl/Changes (original)
+++ trunk/libgraphics-gnuplotif-perl/Changes Sat Mar 5 14:09:57 2011
@@ -20,12 +20,18 @@
1.4 Nov 28 2007
- Plot window can survive after gnuplot exits.
- - Plot can be stored to a script file instead of beeing executed immediately.
+ - Plot can be stored to a script file instead of beeing executed immediately.
- New method gnuplot_plot_3d makes 3-D-plots from arrays.
- New method gnuplot_hardcopy writes a plot into a file for printing.
- - New method gnuplot_restore_terminal restores terminal settings before the last hardcopy.
+ - New method gnuplot_restore_terminal restores terminal settings before the
+ last hardcopy.
1.5 June 11 2008
- - Method gnuplot_plot_many() and gnuplot_plot_many_style for x-y-plots not sharing an x-axis.
+ - Method gnuplot_plot_many() and gnuplot_plot_many_style for x-y-plots not
+ sharing an x-axis.
- Most method calls can now be chained (thanks to Bruce Ravel for both).
+1.6 March 3 2011
+ - gnuplot_pause() not working as advertised.
+ - New constructor argument 'plot_also': write all plot commands to a file, in
+ addition show the plots.
Modified: trunk/libgraphics-gnuplotif-perl/META.yml
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libgraphics-gnuplotif-perl/META.yml?rev=70442&op=diff
==============================================================================
--- trunk/libgraphics-gnuplotif-perl/META.yml (original)
+++ trunk/libgraphics-gnuplotif-perl/META.yml Sat Mar 5 14:09:57 2011
@@ -1,15 +1,23 @@
--- #YAML:1.0
-name: Graphics-GnuplotIF
-version: 1.5
-abstract: A dynamic Perl interface to gnuplot
-license: ~
-author:
+name: Graphics-GnuplotIF
+version: 1.6
+abstract: A dynamic Perl interface to gnuplot
+author:
- Dr.-Ing. Fritz Mehner <mehner at fh-swf.de>
-generated_by: ExtUtils::MakeMaker version 6.44
-distribution_type: module
-requires:
- Test::More: 0
- version: 0
+license: unknown
+distribution_type: module
+configure_requires:
+ ExtUtils::MakeMaker: 0
+build_requires:
+ ExtUtils::MakeMaker: 0
+requires:
+ Test::More: 0
+ version: 0
+no_index:
+ directory:
+ - t
+ - inc
+generated_by: ExtUtils::MakeMaker version 6.56
meta-spec:
- url: http://module-build.sourceforge.net/META-spec-v1.3.html
- version: 1.3
+ url: http://module-build.sourceforge.net/META-spec-v1.4.html
+ version: 1.4
Modified: trunk/libgraphics-gnuplotif-perl/README
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libgraphics-gnuplotif-perl/README?rev=70442&op=diff
==============================================================================
--- trunk/libgraphics-gnuplotif-perl/README (original)
+++ trunk/libgraphics-gnuplotif-perl/README Sat Mar 5 14:09:57 2011
@@ -1,4 +1,4 @@
-GnuplotIF version 1.5
+GnuplotIF version 1.6
=====================
GnuplotIF is a simple and easy to use Perl interface to gnuplot. gnuplot is a
@@ -43,7 +43,7 @@
COPYRIGHT AND LICENCE
- Copyright (C) 2005-2008 by Fritz Mehner
+ Copyright (C) 2005-2011 by Fritz Mehner
This module is free software; you can redistribute it and/or modify it under
the same terms as Perl itself. See perlartistic. This program is distributed
Modified: trunk/libgraphics-gnuplotif-perl/debian/changelog
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libgraphics-gnuplotif-perl/debian/changelog?rev=70442&op=diff
==============================================================================
--- trunk/libgraphics-gnuplotif-perl/debian/changelog (original)
+++ trunk/libgraphics-gnuplotif-perl/debian/changelog Sat Mar 5 14:09:57 2011
@@ -1,3 +1,11 @@
+libgraphics-gnuplotif-perl (1.6-1) unstable; urgency=low
+
+ * New upstream release.
+ * Use debhelper compat level 8.
+ * No longer install README.
+
+ -- Ansgar Burchardt <ansgar at debian.org> Sat, 05 Mar 2011 15:09:41 +0100
+
libgraphics-gnuplotif-perl (1.5-2) unstable; urgency=low
[ gregor herrmann ]
Modified: trunk/libgraphics-gnuplotif-perl/debian/compat
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libgraphics-gnuplotif-perl/debian/compat?rev=70442&op=diff
==============================================================================
--- trunk/libgraphics-gnuplotif-perl/debian/compat (original)
+++ trunk/libgraphics-gnuplotif-perl/debian/compat Sat Mar 5 14:09:57 2011
@@ -1,1 +1,1 @@
-7
+8
Modified: trunk/libgraphics-gnuplotif-perl/debian/control
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libgraphics-gnuplotif-perl/debian/control?rev=70442&op=diff
==============================================================================
--- trunk/libgraphics-gnuplotif-perl/debian/control (original)
+++ trunk/libgraphics-gnuplotif-perl/debian/control Sat Mar 5 14:09:57 2011
@@ -1,7 +1,7 @@
Source: libgraphics-gnuplotif-perl
Section: perl
Priority: optional
-Build-Depends: debhelper (>= 7.0.50~)
+Build-Depends: debhelper (>= 8)
Build-Depends-Indep: perl, xvfb, xauth,
xfonts-base, gnuplot
Maintainer: Debian Perl Group <pkg-perl-maintainers at lists.alioth.debian.org>
Modified: trunk/libgraphics-gnuplotif-perl/debian/copyright
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libgraphics-gnuplotif-perl/debian/copyright?rev=70442&op=diff
==============================================================================
--- trunk/libgraphics-gnuplotif-perl/debian/copyright (original)
+++ trunk/libgraphics-gnuplotif-perl/debian/copyright Sat Mar 5 14:09:57 2011
@@ -4,7 +4,7 @@
Name: Graphics-GnuplotIF
Files: *
-Copyright: 2005-2008, Dr.-Ing. Fritz Mehner <mehner at fh-swf.de>
+Copyright: 2005-2011, Dr.-Ing. Fritz Mehner <mehner at fh-swf.de>
License: Artistic or GPL-1+
Files: debian/*
Added: trunk/libgraphics-gnuplotif-perl/debian/source/local-options
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libgraphics-gnuplotif-perl/debian/source/local-options?rev=70442&op=file
==============================================================================
--- trunk/libgraphics-gnuplotif-perl/debian/source/local-options (added)
+++ trunk/libgraphics-gnuplotif-perl/debian/source/local-options Sat Mar 5 14:09:57 2011
@@ -1,0 +1,2 @@
+abort-on-upstream-changes
+unapply-patches
Modified: trunk/libgraphics-gnuplotif-perl/lib/Graphics/GnuplotIF.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libgraphics-gnuplotif-perl/lib/Graphics/GnuplotIF.pm?rev=70442&op=diff
==============================================================================
--- trunk/libgraphics-gnuplotif-perl/lib/Graphics/GnuplotIF.pm (original)
+++ trunk/libgraphics-gnuplotif-perl/lib/Graphics/GnuplotIF.pm Sat Mar 5 14:09:57 2011
@@ -9,10 +9,10 @@
# BUGS: ---
# NOTES: ---
# AUTHOR: Dr.-Ing. Fritz Mehner (Mn), <mehner at fh-swf.de>
-# COMPANY: FH Suedwestfalen, Iserlohn
+# COMPANY: FH Südwestfalen, Iserlohn
# VERSION: see $VERSION below
# CREATED: 16.07.2005 13:43:11 CEST
-# REVISION: $Id: GnuplotIF.pm,v 1.13 2008/06/11 08:07:08 mehner Exp $
+# REVISION: $Id: GnuplotIF.pm,v 1.16 2011/03/03 20:15:14 mehner Exp $
#===============================================================================
package Graphics::GnuplotIF;
@@ -22,7 +22,7 @@
use Carp;
use IO::Handle;
-our $VERSION = '1.5'; # version number
+our $VERSION = '1.6'; # version number
use base qw(Exporter);
use vars qw(@ISA @EXPORT_OK %EXPORT_TAGS);
@@ -102,27 +102,28 @@
sub new {
my ( $class, %args ) = @_;
- my $IOHANDLE;
my $self = {
- style => 'lines',
- title => q{},
- xlabel => q{},
- ylabel => q{},
- xrange => [],
- yrange => [],
- plot_titles => [],
- scriptfile => q{},
- persist => 0,
- objectname => q{},
- silent_pause => 1,
+ style => 'lines',
+ title => q{},
+ xlabel => q{},
+ ylabel => q{},
+ xrange => [],
+ yrange => [],
+ plot_titles => [],
+ scriptfile => q{},
+ persist => 0,
+ objectname => q{},
+ silent_pause => 1,
+ plot_also => 0,
%args,
- __pausetime => -1,
- __pausemess => q{},
- __output_type => q{},
- __objectnumber=> ++$object_number,
- __plotnumber => 1,
- __error_log => q{},
+ __pausetime => -1,
+ __pausemess => q{},
+ __objectnumber => ++$object_number,
+ __plotnumber => 1,
+ __error_log => q{},
+ __iohandle_pipe => undef,
+ __iohandle_file => undef,
};
bless $self, $class ;
@@ -135,18 +136,21 @@
$self->{__error_log} = ".gnuplot.${$}.${object_number}.stderr.log";
- if ( $self->{scriptfile} eq q{} ) {
- $self->{__output_type} = 'pipe';
- open $IOHANDLE, '|- ', "gnuplot ${persist} 2> $self->{__error_log}"
+ #-------------------------------------------------------------------------------
+ # open pipe
+ #-------------------------------------------------------------------------------
+ if ( $self->{scriptfile} eq q{} || ( $self->{scriptfile} ne q{} && $self->{plot_also} != 0 ) ) {
+ open $self->{__iohandle_pipe}, '|- ', "gnuplot ${persist} 2> $self->{__error_log}"
or die "\n$0 : failed to open pipe to \"gnuplot\" : $!\n";
- $IOHANDLE->autoflush(1);
+ $self->{__iohandle_pipe}->autoflush(1);
}
- else {
- $self->{__output_type} = 'file';
- open $IOHANDLE, '>', $self->{scriptfile}
+ #-------------------------------------------------------------------------------
+ # open script file
+ #-------------------------------------------------------------------------------
+ if ( $self->{scriptfile} ne q{} ) {
+ open $self->{__iohandle_file}, '>', $self->{scriptfile}
or die "\n$0 : failed to open file \"$self->{scriptfile}\" : $!\n";
}
- $self->{__iohandle} = $IOHANDLE;
$self->$private_plot_script_header();
$self->gnuplot_set_style ( $self->{style } );
@@ -180,15 +184,13 @@
#---------------------------------------------------------------------------
# close pipe to gnuplot / close the script file
#---------------------------------------------------------------------------
- if ( !close $self->{__iohandle} ) {
- if ( $self->{__output_type} eq 'pipe' ) {
+ if ( defined $self->{__iohandle_pipe} && !close $self->{__iohandle_pipe} ) {
print { *STDERR } "Graphics::GnuplotIF (object $self->{__objectnumber}): "
."problem closing communication to gnuplot\n";
- }
- if ( $self->{__output_type} eq 'file' ) {
+ }
+ if ( defined $self->{__iohandle_file} && !close $self->{__iohandle_file} ) {
print { *STDERR } "Graphics::GnuplotIF (object $self->{__objectnumber}): "
."problem closing file $self->{scriptfile}\n";
- }
}
#---------------------------------------------------------------------------
# remove empty error logfiles, if any
@@ -317,38 +319,40 @@
# assumed to contain y-values
#===============================================================================
sub gnuplot_plot_many {
- my ( $self, @array_refs ) = @_;
- my $parnr = 0;
- my $cmd = " '-' using 1:2 with $self->{style} title <PLOT_TITLE>,\\\n" x ((scalar @array_refs)/2);
+ my ( $self, @array_refs ) = @_;
+
+ my $parnr = 0;
+ my $cmd = " '-' using 1:2 with $self->{style} title <PLOT_TITLE>,\\\n" x
+ ( ( scalar @array_refs ) / 2 );
$cmd =~ s/,\\\n$//s;
- $self->$private_apply_plot_titles(\$cmd); # Honor gnuplot_set_plot_titles
+ $self->$private_apply_plot_titles( \$cmd ); # Honor gnuplot_set_plot_titles
return $self if $cmd eq q{};
- $self->gnuplot_cmd( "plot \\\n$cmd\n" );
+ $self->gnuplot_cmd("plot \\\n$cmd\n");
while (@array_refs) {
my $xxr = shift @array_refs;
$parnr++;
die "Graphics::GnuplotIF (object $self->{__objectnumber}): gnuplot_plot_many - "
- ."$parnr. argument not an array reference\n"
- if ref($xxr) ne 'ARRAY';
- my $yyr = shift @array_refs ;
+ . "$parnr. argument not an array reference\n"
+ if ref($xxr) ne 'ARRAY';
+ my $yyr = shift @array_refs;
$parnr++;
die "Graphics::GnuplotIF (object $self->{__objectnumber}): gnuplot_plot_many - "
- ."$parnr. argument not an array reference\n"
- if ref($yyr) ne 'ARRAY';
+ . "$parnr. argument not an array reference\n"
+ if ref($yyr) ne 'ARRAY';
# there may be fewer y-values than x-values
- my $min = $#{$xxr} < $#{$yyr} ? $#{$xxr} : $#{$yyr};
- foreach my $i ( 0..$min ) {
- $self->gnuplot_cmd( "$$xxr[$i] $$yyr[$i]" );
+ my $min = $#{$xxr} < $#{$yyr} ? $#{$xxr} : $#{$yyr};
+ foreach my $i ( 0 .. $min ) {
+ $self->gnuplot_cmd("$$xxr[$i] $$yyr[$i]");
}
- $self->gnuplot_cmd( 'e' );
+ $self->gnuplot_cmd('e');
}
$self->{__plotnumber}++;
return $self;
-} # ---------- end of subroutine gnuplot_plot_many ----------
+} # ---------- end of subroutine gnuplot_plot_many ----------
#=== CLASS METHOD ============================================================
# NAME: gnuplot_plot_xy_style
@@ -526,7 +530,9 @@
#===============================================================================
sub gnuplot_pause {
my ( $self, $pause, $message ) = @_;
- if ( defined $pause && $pause =~ m/[+-]?(\d+|\d+\.\d*|\d*\.\d+)/x ) {
+
+ $self->{__pausetime} = 0; # default: wait for a carriage return
+ if ( defined $pause && $pause =~ m/^[+-]?(\d+|\d+\.\d*|\d*\.\d+)$/x ) {
$self->{__pausetime} = $pause;
}
if ( defined $message && $message ne q{} ) {
@@ -546,7 +552,7 @@
if ( $self->{silent_pause} == 1 ) {
print "$msg0$msg2";
}
- $self->gnuplot_cmd( "pause $self->{__pausetime} \n" );
+ $self->gnuplot_cmd( "pause $self->{__pausetime}" );
}
return $self;
} # ---------- end of subroutine gnuplot_pause ----------
@@ -560,8 +566,14 @@
sub gnuplot_cmd {
my ($self, @commands) = @_;
@commands = map {$_."\n"} @commands;
- print { $self->{__iohandle}} @commands
- or croak "Couldn't write to pipe: $!";
+ if ( defined $self->{__iohandle_pipe} ) {
+ print { $self->{__iohandle_pipe} } @commands
+ or croak "Couldn't write to pipe: $!";
+ }
+ if ( defined $self->{__iohandle_file} ) {
+ print { $self->{__iohandle_file} } @commands
+ or croak "Couldn't write to file $!";
+ }
return $self;
} # ---------- end of subroutine gnuplot_cmd ----------
@@ -633,7 +645,7 @@
sub gnuplot_set_title {
my ( $self, $title ) = @_;
if ( defined $title ) {
- $self->gnuplot_cmd( "set title \"$title\"" );
+ $self->gnuplot_cmd( "set title '$title'" );
};
return $self;
} # ---------- end of subroutine gnuplot_set_title ----------
@@ -738,7 +750,7 @@
=head1 VERSION
-This documentation refers to Graphics::GnuplotIF version 1.4
+This documentation refers to Graphics::GnuplotIF version 1.5
=head1 SYNOPSIS
@@ -750,45 +762,46 @@
my $plot1 = Graphics::GnuplotIF->new(title => "line", style => "points");
- $plot1->gnuplot_plot_y( \@x ); # plot 9 points over 0..8
-
- $plot1->gnuplot_pause( ); # hit RETURN to continue
-
- $plot1->gnuplot_set_title( "parabola" ); # new title
- $plot1->gnuplot_set_style( "lines" ); # new line style
- $plot1->gnuplot_plot_xy( \@x, \@y1, \@y2 ); # rewrite plot1: y1, y2 over x
- $plot1->gnuplot_plot_many( \@x1, \@y1, \@x2, \@y2 ); # rewrite plot1: y1 over x1, y2 over x2
-
- my $plot2 = Graphics::GnuplotIF->new; # new plot object
-
- $plot2->gnuplot_set_xrange( 0, 4 ); # set x range
- $plot2->gnuplot_set_yrange( -2, 2 ); # set y range
- $plot2->gnuplot_cmd( "set grid" ); # send a gnuplot command
- $plot2->gnuplot_plot_equation( # 3 equations in one plot
+ $plot1->gnuplot_plot_y( \@x ); # plot 9 points over 0..8
+
+ $plot1->gnuplot_pause( ); # hit RETURN to continue
+
+ $plot1->gnuplot_set_title( "parabola" ); # new title
+ $plot1->gnuplot_set_style( "lines" ); # new line style
+
+ $plot1->gnuplot_plot_xy( \@x, \@y1, \@y2 ); # plot 1: y1, y2 over x
+ $plot1->gnuplot_plot_many( \@x, \@y1, \@x, \@y2 ); # plot 1: y1 - x, y2 - x
+
+ my $plot2 = Graphics::GnuplotIF->new; # new plot object
+
+ $plot2->gnuplot_set_xrange( 0, 4 ); # set x range
+ $plot2->gnuplot_set_yrange( -2, 2 ); # set y range
+ $plot2->gnuplot_cmd( "set grid" ); # send a gnuplot command
+ $plot2->gnuplot_plot_equation( # 3 equations in one plot
"y1(x) = sin(x)",
"y2(x) = cos(x)",
"y3(x) = sin(x)/x" );
- $plot2->gnuplot_pause( ); # hit RETURN to continue
-
- $plot2->gnuplot_plot_equation( # rewrite plot 2
+ $plot2->gnuplot_pause( ); # hit RETURN to continue
+
+ $plot2->gnuplot_plot_equation( # rewrite plot 2
"y4(x) = 2*exp(-x)*sin(4*x)" );
- $plot2->gnuplot_pause( ); # hit RETURN to continue
-
- my $plot3 = GnuplotIF; # new plot object
-
- my @xyz = ( # 2-D-matrix, z-values
+ $plot2->gnuplot_pause( ); # hit RETURN to continue
+
+ my $plot3 = GnuplotIF; # new plot object
+
+ my @xyz = ( # 2-D-matrix, z-values
[0, 1, 4, 9],
[1, 2, 6, 15],
[4, 6, 12, 27],
[9, 15, 27, 54],
);
- $plot3->gnuplot_cmd( "set grid" ); # send a gnuplot command
- $plot3->gnuplot_set_plot_titles("surface"); # set legend
- $plot3->gnuplot_plot_3d( \@xyz ); # start 3-D-plot
- $plot3->gnuplot_pause( ); # hit RETURN to continue
+ $plot3->gnuplot_cmd( "set grid" ); # send a gnuplot command
+ $plot3->gnuplot_set_plot_titles("surface"); # set legend
+ $plot3->gnuplot_plot_3d( \@xyz ); # start 3-D-plot
+ $plot3->gnuplot_pause( ); # hit RETURN to continue
=head1 DESCRIPTION
@@ -851,6 +864,8 @@
xrange => [], # array reference; autoscaling, if empty
plot_titles => [], # array of strings; titles used in the legend
scriptfile => '', # write all plot commands to the specified file
+ plot_also => 0, # write all plot commands to the specified file,
+ # in addition show the plots
persist => 0, # let plot windows survive after gnuplot exits
# 0 : close / 1 : survive
objectname => '', # an optional name for the object
@@ -902,7 +917,7 @@
=head2 gnuplot_plot_xy_style
%y1 = ( 'y_values' => \@y1, 'style_spec' => "lines lw 3" );
- %y2 = ( 'y_values' => \@y2,
+ %y2 = ( 'y_values' => \@y2,
'style_spec' => "points pointtype 4 pointsize 5" );
$plot1->gnuplot_plot_xy_style( \@x, \%y1, \%y2 );
@@ -923,7 +938,8 @@
=head2 gnuplot_plot_many_style
- %f1 = ( 'x_values' => \@x1, 'y_values' => \@y1, 'style_spec' => "lines lw 3" );
+ %f1 = ( 'x_values' => \@x1, 'y_values' => \@y1,
+ 'style_spec' => "lines lw 3" );
%f2 = ( 'x_values' => \@x2, 'y_values' => \@y2,
'style_spec' => "points pointtype 4 pointsize 5" );
@@ -958,7 +974,7 @@
This is an emulation of the B<gnuplot> C<pause> command. It displays any text
associated with the command and waits a specified amount of time or until the
-carriage return is pressed. The message can be suppressed by
+carriage return is pressed. The message can be suppressed by
silent_pause => 0
@@ -971,18 +987,16 @@
The time value and the text are stored in the object and reused. A sequence
like
+ $plot1->gnuplot_plot_y( \@y1 );
$plot1->gnuplot_pause( 5.5 ); # delay is 5.5 seconds
- $plot1->gnuplot_plot_y( \@y1 );
-
+
+ $plot1->gnuplot_plot_y( \@y2 );
$plot1->gnuplot_pause( );
- $plot1->gnuplot_plot_y( \@y2 );
-
+
+ $plot1->gnuplot_plot_y( \@y3 );
$plot1->gnuplot_pause( );
- $plot1->gnuplot_plot_y( \@y3 );
-
- $plot1->gnuplot_pause( -1 );
-
-will display 3 plots with 5 seconds delay and wait for a final carriage return.
+
+will display 3 plots with 5.5 seconds delay.
=head2 gnuplot_cmd
@@ -1056,8 +1070,8 @@
C<gnuplot_cmd> can be used to write a plot into a file or make a printable file
by setting/resetting the terminal and the output file:
- $plot1->gnuplot_hardcopy( 'function1.gnuplot.ps',
- 'postscript',
+ $plot1->gnuplot_hardcopy( 'function1.gnuplot.ps',
+ 'postscript',
'color lw 3' );
$plot1->gnuplot_plot_xy( \@x, \@y1, \@y2 );
@@ -1124,7 +1138,7 @@
=head1 DIAGNOSTICS
-Dialog messages and diagnostic messages start with
+Dialog messages and diagnostic messages start with
C< Graphics::GnuplotIF (object NR): ... > .
C<NR> is the number of the corresponding Graphics::GnuplotIF object and output
More information about the Pkg-perl-cvs-commits
mailing list