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

[<hu...@us...>]

Revision: 9238
          http://plplot.svn.sourceforge.net/plplot/?rev=9238&view=rev
Author:   huntd
Date:     2008-12-31 17:24:33 +0000 (Wed, 31 Dec 2008)

Log Message:
-----------
fixed x31 so that both psc output and stdout match C demo 31.  Requires PDL-Graphics-PLplot-0.47

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

Modified: trunk/examples/perl/x31.pl
===================================================================
--- trunk/examples/perl/x31.pl	2008-12-31 06:18:54 UTC (rev 9237)
+++ trunk/examples/perl/x31.pl	2008-12-31 17:24:33 UTC (rev 9238)
@@ -22,8 +22,6 @@
 # along with PLplot; if not, write to the Free Software
 # Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA
 
-# SYNC: x31c.c 1.?? FIXME
-
 use PDL;
 use PDL::Graphics::PLplot;
 
@@ -122,27 +120,16 @@
 }
 
 # Get world coordinates for middle of viewport
-# FIXME plcalc_world is not yet implemented.  I have inferred the argument list
-# below where xmid, and ymid are input, and ($wx, $wy, $win) are all output.
-# my ($wx, $wy, $win) = plcalc_world ($xmid, $ymid);
-my ($wx, $wy, $win) = (0., 0., 0); #Temporary FIXME
+my ($wx, $wy, $win) = plcalc_world ($xmid, $ymid);
 printf("world parameters: wx, wy, win = %f %f %d\n", $wx, $wy, $win);
 if (abs($wx-0.5*($xmin+$xmax)) > 1.0E-5 || abs($wy-0.5*($ymin+$ymax)) > 1.0E-5) {
     printf STDERR ("plcalc_world test failed\n");
     $status = 1;
-    $status = 0;  #FIXME, temporary
 }
 
 # Retrieve and print the name of the output file (if any)
-# FIXME, I could not get the following code to work.
-# my $fnam = plgfnam();
-# plgfam currently needs an argument unlike other plg functions that return
-# a character string such as plgver.  Also, if I tried an argument, it
-# generated a run-time error in glibc.
-# Temporarily use plgver instead which unlike the current plgfnam has no
-# arguments.
-my $fnam = plgver();
-if ($fnam == "") {
+my $fnam = plgfnam();
+if ($fnam eq "") {
     printf ("No output file name is set\n");
 } else {
     printf ("Output file name read\n");


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