From: Rafael L. <rla...@us...> - 2004-03-15 21:16:32
|
Update of /cvsroot/plplot/plplot/examples/perl In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv3326 Modified Files: Makefile.am x08.pl Added Files: x10.pl Log Message: Added example x10.pl Index: Makefile.am =================================================================== RCS file: /cvsroot/plplot/plplot/examples/perl/Makefile.am,v retrieving revision 1.11 retrieving revision 1.12 diff -u -d -r1.11 -r1.12 --- Makefile.am 15 Mar 2004 15:53:52 -0000 1.11 +++ Makefile.am 15 Mar 2004 21:07:19 -0000 1.12 @@ -31,6 +31,7 @@ x07.pl \ x08.pl \ x09.pl \ + x10.pl \ x12.pl examples_perl_DATA = \ Index: x08.pl =================================================================== RCS file: /cvsroot/plplot/plplot/examples/perl/x08.pl,v retrieving revision 1.1 retrieving revision 1.2 diff -u -d -r1.1 -r1.2 --- x08.pl 9 Mar 2004 00:27:19 -0000 1.1 +++ x08.pl 15 Mar 2004 21:07:19 -0000 1.2 @@ -32,7 +32,7 @@ use constant XPTS => 35; # Data points in x use constant YPTS => 46; # Data points in y -use constant LEVELS => 10; +use constant LEVELS => 10; @alt = (60.0, 20.0); @az = (30.0, 60.0); @@ -81,7 +81,7 @@ my $nlevel = LEVELS; my $rosen = 1; -$rosen = 0 +$rosen = 0 if $sombrero; # Initialize plplot --- NEW FILE: x10.pl --- #! /usr/bin/env perl # # Demo x10 for PLplot PDL bindings # # Window positioning demo. # # Copyright (C) 2004 Rafael Laboissiere # # This file is part of PLplot. # # PLplot is free software; you can redistribute it and/or modify # it under the terms of the GNU General Library Public License as published # by the Free Software Foundation; either version 2 of the License, or # (at your option) any later version. # # PLplot is distributed in the hope that it will be useful, # but WITHOUT ANY WARRANTY; without even the implied warranty of # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the # GNU Library General Public License for more details. # # You should have received a copy of the GNU Library General Public License # along with PLplot; if not, write to the Free Software # Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA use PDL; use PDL::Graphics::PLplot; # Parse and process command line arguments plParseOpts (\@ARGV, PL_PARSE_SKIP | PL_PARSE_NOPROGRAM); # Initialize plplot plinit (); pladv (0); plvpor (0.0, 1.0, 0.0, 1.0); plwind (0.0, 1.0, 0.0, 1.0); plbox (0.0, 0, 0.0, 0, "bc", "bc"); plsvpa (50.0, 150.0, 50.0, 100.0); plwind (0.0, 1.0, 0.0, 1.0); plbox (0.0, 0, 0.0, 0, "bc", "bc"); plptex (0.5, 0.5, 1.0, 0.0, 0.5, "BOX at (50,150,50,100)"); plend (); |