[Plplot-cvs] plplot/examples/perl x16.pl,1.8,1.9

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

Update of /cvsroot/plplot/plplot/examples/perl
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv21142/examples/perl

Modified Files:
	x16.pl 
Log Message:

Fix to make perl results for example 16 closer to C version. Some 
differences still remain.



Index: x16.pl
===================================================================
RCS file: /cvsroot/plplot/plplot/examples/perl/x16.pl,v
retrieving revision 1.8
retrieving revision 1.9
diff -u -d -r1.8 -r1.9
--- x16.pl	21 Dec 2006 13:00:07 -0000	1.8
+++ x16.pl	3 Jan 2007 15:58:49 -0000	1.9
@@ -280,7 +280,7 @@
 # Need a new shedge to go along with the new data set
 
 ($zmin, $zmax) =  f2mnmx ($z);
-$shedge = $zmin + ($zmax - $zmin) * sequence ($ns) / $ns;
+$shedge = $zmin + ($zmax - $zmin) * sequence ($ns+1) / $ns;
 
 # Now we can shade the interior region