[Plplot-cvs] SF.net SVN: plplot:[9171] trunk/examples/perl

[<and...@us...>]

Revision: 9171
          http://plplot.svn.sourceforge.net/plplot/?rev=9171&view=rev
Author:   andrewross
Date:     2008-12-17 19:59:43 +0000 (Wed, 17 Dec 2008)

Log Message:
-----------
Update perl example 1, 3, 9 and 13 consistent with recent changes to C 
versions.

Modified Paths:
--------------
    trunk/examples/perl/x01.pl
    trunk/examples/perl/x03.pl
    trunk/examples/perl/x09.pl
    trunk/examples/perl/x13.pl

Modified: trunk/examples/perl/x01.pl
===================================================================
--- trunk/examples/perl/x01.pl	2008-12-17 19:30:22 UTC (rev 9170)
+++ trunk/examples/perl/x01.pl	2008-12-17 19:59:43 UTC (rev 9171)
@@ -84,10 +84,7 @@
   unshift (@ARGV, $0);
 
   # plplot initialization
-  # Divide page into 2x2 plots unless user overrides
 
-  plssub (2, 2);
-
   # Parse and process command line arguments
 
   plParseOpts (\@ARGV, PL_PARSE_PARTIAL);
@@ -98,9 +95,9 @@
   print STDOUT "PLplot library version: $ver\n";
 
   # Initialize plplot
+  # Divide page into 2x2 plots unless user overrides
+  plstar (2, 2);
 
-  plinit;
-
   # Select font set as per input flag
 
   plfontld ($fontset);

Modified: trunk/examples/perl/x03.pl
===================================================================
--- trunk/examples/perl/x03.pl	2008-12-17 19:30:22 UTC (rev 9170)
+++ trunk/examples/perl/x03.pl	2008-12-17 19:59:43 UTC (rev 9171)
@@ -37,6 +37,10 @@
 
 plParseOpts (\@ARGV, PL_PARSE_SKIP | PL_PARSE_NOPROGRAM);
 
+# Set orientation to landscape - note not all device drivers
+# support this, in particular most interactive drivers do not
+plsori(1);
+
 # Initialize plplot
 
 plinit ();

Modified: trunk/examples/perl/x09.pl
===================================================================
--- trunk/examples/perl/x09.pl	2008-12-17 19:30:22 UTC (rev 9170)
+++ trunk/examples/perl/x09.pl	2008-12-17 19:59:43 UTC (rev 9171)
@@ -279,6 +279,7 @@
 
 # Plot using identity transform
 
+pl_setcontlabelformat (4, 3);
 pl_setcontlabelparam (0.006, 0.3, 0.1, 1);
 plenv (-1.0, 1.0, -1.0, 1.0, 0, 0);
 plcol0 (2);

Modified: trunk/examples/perl/x13.pl
===================================================================
--- trunk/examples/perl/x13.pl	2008-12-17 19:30:22 UTC (rev 9170)
+++ trunk/examples/perl/x13.pl	2008-12-17 19:59:43 UTC (rev 9171)
@@ -52,7 +52,12 @@
 
 plinit ();
 
-plenv (0, 10, 0, 10, 1, -2);
+pladv(0);
+# Ensure window has aspect ratio of one so circle is
+# plotted as a circle. 
+plvasp(1.0);
+plwind(0., 10., 0., 10.);
+#plenv (0, 10, 0, 10, 1, -2);
 plcol0 (2);
 # n.b. all theta quantities scaled by 2*pi/500 to be integers to avoid
 # floating point logic problems.


This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.