[Plplot-cvs] SF.net SVN: plplot:[9208] trunk/examples/perl/x23.pl

[<ai...@us...>]

Revision: 9208
          http://plplot.svn.sourceforge.net/plplot/?rev=9208&view=rev
Author:   airwin
Date:     2008-12-19 20:31:14 +0000 (Fri, 19 Dec 2008)

Log Message:
-----------
Change to simpler style of returning values from plg functions to be
consistent with other examples.

Modified Paths:
--------------
    trunk/examples/perl/x23.pl

Modified: trunk/examples/perl/x23.pl
===================================================================
--- trunk/examples/perl/x23.pl	2008-12-19 18:09:25 UTC (rev 9207)
+++ trunk/examples/perl/x23.pl	2008-12-19 20:31:14 UTC (rev 9208)
@@ -227,16 +227,12 @@
 
   plvpor (0.02, 0.98, 0.02, 0.90);
   plwind (0.0, 1.0, 0.0, 1.0);
-  my ($xmin, $xmax, $ymin, $ymax) = 
-      (PDL->new(0), PDL->new(0), PDL->new(0), PDL->new(0));
-  plgspa ($xmin, $xmax, $ymin, $ymax);
+  my ($xmin, $xmax, $ymin, $ymax) = plgspa ();
   plschr (0., 0.8);
   my $ycharacter_scale = (1.0 - 0.0) / ($ymax->at (0) - $ymin->at (0));
 
   # Factor should be 0.5, but heuristically it turns out to be larger
-  my ($chardef, $charht) = (PDL->new(0), PDL->new(0));
-
-  plgchr ($chardef, $charht);
+  my ($chardef, $charht) = plgchr ();
   my $yoffset = 1.0 * $charht->at (0) * $ycharacter_scale;
 
   # Draw the grid using plbox


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