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

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

Revision: 8656
          http://plplot.svn.sourceforge.net/plplot/?rev=8656&view=rev
Author:   jbauck
Date:     2008-08-14 22:06:23 +0000 (Thu, 14 Aug 2008)

Log Message:
-----------
Minor tweaks to Ada examples 9.

Modified Paths:
--------------
    trunk/examples/ada/x09a.adb.cmake
    trunk/examples/ada/xthick09a.adb.cmake

Modified: trunk/examples/ada/x09a.adb.cmake
===================================================================
--- trunk/examples/ada/x09a.adb.cmake	2008-08-14 19:27:25 UTC (rev 8655)
+++ trunk/examples/ada/x09a.adb.cmake	2008-08-14 22:06:23 UTC (rev 8656)
@@ -108,7 +108,7 @@
     begin -- mypltr
         tx := tr(0) * x + tr(1) * y + tr(2);
         ty := tr(3) * x + tr(4) * y + tr(5);
-    end; -- mypltr
+    end mypltr;
 
 
     -- Polar contour plot example
@@ -152,7 +152,7 @@
         plcont(z, 1, RPTS, 1, THETAPTS, lev, pltr2'access, cgrid2'Address);
         plcol0(1);
         pllab("", "", "Polar Contour Plot");
-    end; -- polar
+    end polar;
 
 
     -- Shielded potential contour plot example
@@ -283,7 +283,7 @@
         plcol0(ncollab);
         pllab("", "", "Shielded potential of charges in a conducting sphere");
 
-    end; -- potential
+    end potential;
 
 
 begin -- main

Modified: trunk/examples/ada/xthick09a.adb.cmake
===================================================================
--- trunk/examples/ada/xthick09a.adb.cmake	2008-08-14 19:27:25 UTC (rev 8655)
+++ trunk/examples/ada/xthick09a.adb.cmake	2008-08-14 22:06:23 UTC (rev 8656)
@@ -108,7 +108,7 @@
     begin -- mypltr
         tx := tr(0) * x + tr(1) * y + tr(2);
         ty := tr(3) * x + tr(4) * y + tr(5);
-    end; -- mypltr
+    end mypltr;
 
 
     -- Polar contour plot example
@@ -152,7 +152,7 @@
         Contour_Plot(z, 1, RPTS, 1, THETAPTS, lev, Plot_Transformation_2'access, cgrid2'Address);
         Set_Pen_Color(Red);
         Write_Labels("", "", "Polar Contour Plot");
-    end; -- polar
+    end polar;
 
 
     -- Shielded potential contour plot example
@@ -283,7 +283,7 @@
         Set_Pen_Color(ncollab);
         Write_Labels("", "", "Shielded potential of charges in a conducting sphere");
 
-    end; -- potential
+    end potential;
 
 
 begin -- main


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