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

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

Revision: 9187
          http://plplot.svn.sourceforge.net/plplot/?rev=9187&view=rev
Author:   andrewross
Date:     2008-12-18 11:43:43 +0000 (Thu, 18 Dec 2008)

Log Message:
-----------
Update ada examples 1, 3, 9 and 13 consistent with C versions.

Modified Paths:
--------------
    trunk/examples/ada/x01a.adb.cmake
    trunk/examples/ada/x03a.adb.cmake
    trunk/examples/ada/x09a.adb.cmake
    trunk/examples/ada/x13a.adb.cmake

Modified: trunk/examples/ada/x01a.adb.cmake
===================================================================
--- trunk/examples/ada/x01a.adb.cmake	2008-12-18 09:54:53 UTC (rev 9186)
+++ trunk/examples/ada/x01a.adb.cmake	2008-12-18 11:43:43 UTC (rev 9187)
@@ -146,8 +146,6 @@
 begin   
     -- plplot initialization
     
-    -- Divide page into 2x2 plots unless user overrides
-    plssub(2, 2);
     
     -- Parse and process command line arguments
     plparseopts(PL_PARSE_FULL); 
@@ -156,7 +154,8 @@
     Put_Line("PLplot library version: " & plgver);
 
     -- Initialize plplot
-    plinit;
+    -- Divide page into 2x2 plots unless user overrides
+    plstar(2, 2);
 
     -- Set up the data
     -- Original case

Modified: trunk/examples/ada/x03a.adb.cmake
===================================================================
--- trunk/examples/ada/x03a.adb.cmake	2008-12-18 09:54:53 UTC (rev 9186)
+++ trunk/examples/ada/x03a.adb.cmake	2008-12-18 11:43:43 UTC (rev 9187)
@@ -56,6 +56,10 @@
     -- Parse and process command line arguments. 
     plparseopts(PL_PARSE_FULL);
 
+    -- Set orientation to landscape - note not all device drivers
+    -- support this, in particular most interactive drivers do not */
+    plsori(Portrait);
+
     -- Initialize plplot 
     plinit;
 

Modified: trunk/examples/ada/x09a.adb.cmake
===================================================================
--- trunk/examples/ada/x09a.adb.cmake	2008-12-18 09:54:53 UTC (rev 9186)
+++ trunk/examples/ada/x09a.adb.cmake	2008-12-18 11:43:43 UTC (rev 9187)
@@ -332,6 +332,7 @@
     -- which is where the type for the "pltr" subprograms is declared. Even if 
     -- I move that type declaration into the thick bindings, the problem remains.
 
+    pl_setcontlabelformat(4,3);
     pl_setcontlabelparam(0.006, 0.3, 0.1, True);
     plenv(-1.0, 1.0, -1.0, 1.0, 0, 0);
     plcol0(2);

Modified: trunk/examples/ada/x13a.adb.cmake
===================================================================
--- trunk/examples/ada/x13a.adb.cmake	2008-12-18 09:54:53 UTC (rev 9186)
+++ trunk/examples/ada/x13a.adb.cmake	2008-12-18 11:43:43 UTC (rev 9187)
@@ -53,7 +53,12 @@
     -- Initialize plplot
     plinit;
 
-    plenv(0.0, 10.0, 0.0, 10.0, 1, -2);
+    pladv(0);
+    -- Ensure window has aspect ratio of one so circle is
+    -- plotted as a circle.
+    plvasp(1.0);
+    plwind(0.0, 10.0, 0.0, 10.0);
+    -- plenv(0.0, 10.0, 0.0, 10.0, 1, -2);
     plcol0(2);
 
     -- n.b. all theta quantities scaled by 2 * pi / 500 to be integers to avoid


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