[Plplot-cvs] SF.net SVN: plplot:[8662] trunk/examples/ada

[<jb...@us...>]

Revision: 8662
          http://plplot.svn.sourceforge.net/plplot/?rev=8662&view=rev
Author:   jbauck
Date:     2008-08-15 02:58:19 +0000 (Fri, 15 Aug 2008)

Log Message:
-----------
Fix bug in xthick21a.adb so now it is like x21a.adb. In both, trivially improve the expression of a couple of loop iterates.

Modified Paths:
--------------
    trunk/examples/ada/x21a.adb.cmake
    trunk/examples/ada/xthick21a.adb.cmake

Modified: trunk/examples/ada/x21a.adb.cmake
===================================================================
--- trunk/examples/ada/x21a.adb.cmake	2008-08-15 01:37:47 UTC (rev 8661)
+++ trunk/examples/ada/x21a.adb.cmake	2008-08-15 02:58:19 UTC (rev 8662)
@@ -249,7 +249,7 @@
             pladv(alg);
 
             if k = 0 then
-                for i in 0 .. nl - 1 loop
+                for i in clev'range loop
                     clev(i) := lzm + (lzMM - lzm) / Long_Float(nl-1) * Long_Float(i);
                 end loop;
 
@@ -260,7 +260,7 @@
                  clev, 1, 0, 1, plfill'access, True, null, System.Null_Address);
                 plcol0(2);
             else
-                for i in 0 .. nl - 1 loop
+                for i in clev'range loop
                     clev(i) := lzm + (lzMM - lzm) / Long_Float(nl - 1) * Long_Float(i);
                 end loop;
 

Modified: trunk/examples/ada/xthick21a.adb.cmake
===================================================================
--- trunk/examples/ada/xthick21a.adb.cmake	2008-08-15 01:37:47 UTC (rev 8661)
+++ trunk/examples/ada/xthick21a.adb.cmake	2008-08-15 02:58:19 UTC (rev 8662)
@@ -59,7 +59,7 @@
     pts : Integer := 500;
     xp  : Integer := 25;
     yp  : Integer := 20;
-    nl  : Integer := 15;
+    nl  : Integer := 16;
     knn_order : Integer := 20;
     threshold : Long_Float := 1.001;
     wmin : Long_Float := -1.0e3;
@@ -246,7 +246,7 @@
             if k = 0 then
                 lzm :=  Vector_Min((lzm,  zmin));
                 lzMM := Vector_Max((lzMM, zmax));
-                for i in 0 .. nl - 1 loop
+                for i in clev'range loop
                     clev(i) := lzm + (lzMM - lzm) / Long_Float(nl-1) * Long_Float(i);
                 end loop;
 
@@ -257,7 +257,7 @@
                  clev, 1, 0, 1, Fill_Polygon'access, True, null, System.Null_Address);
                 Set_Pen_Color(Yellow);
             else
-                for i in 0 .. nl - 1 loop
+                for i in clev'range loop
                     clev(i) := lzm + (lzMM - lzm) / Long_Float(nl - 1) * Long_Float(i);
                 end loop;
 


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