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

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

Revision: 9218
          http://plplot.svn.sourceforge.net/plplot/?rev=9218&view=rev
Author:   jbauck
Date:     2008-12-23 08:18:39 +0000 (Tue, 23 Dec 2008)

Log Message:
-----------
Update xthick01a.adb, xthick03a.adb, xthick09a.adb, xthick13a.adb to match recent changes to x01a.adb, x03a.adb, x09a.adb, x13a.adb.

Modified Paths:
--------------
    trunk/examples/ada/x01a.adb.cmake
    trunk/examples/ada/x03a.adb.cmake
    trunk/examples/ada/x13a.adb.cmake
    trunk/examples/ada/xthick01a.adb.cmake
    trunk/examples/ada/xthick03a.adb.cmake
    trunk/examples/ada/xthick09a.adb.cmake
    trunk/examples/ada/xthick13a.adb.cmake

Modified: trunk/examples/ada/x01a.adb.cmake
===================================================================
--- trunk/examples/ada/x01a.adb.cmake	2008-12-22 23:37:25 UTC (rev 9217)
+++ trunk/examples/ada/x01a.adb.cmake	2008-12-23 08:18:39 UTC (rev 9218)
@@ -144,9 +144,6 @@
     end plot3;
 
 begin   
-    -- plplot initialization
-    
-    
     -- Parse and process command line arguments
     plparseopts(PL_PARSE_FULL); 
     

Modified: trunk/examples/ada/x03a.adb.cmake
===================================================================
--- trunk/examples/ada/x03a.adb.cmake	2008-12-22 23:37:25 UTC (rev 9217)
+++ trunk/examples/ada/x03a.adb.cmake	2008-12-23 08:18:39 UTC (rev 9218)
@@ -56,8 +56,8 @@
     -- 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 */
+    -- Set orientation to landscape. Note not all device drivers
+    -- support this, in particular most interactive drivers do not.
     plsori(Portrait);
 
     -- Initialize plplot 

Modified: trunk/examples/ada/x13a.adb.cmake
===================================================================
--- trunk/examples/ada/x13a.adb.cmake	2008-12-22 23:37:25 UTC (rev 9217)
+++ trunk/examples/ada/x13a.adb.cmake	2008-12-23 08:18:39 UTC (rev 9218)
@@ -54,8 +54,8 @@
     plinit;
 
     pladv(0);
-    -- Ensure window has aspect ratio of one so circle is
-    -- plotted as a circle.
+
+    -- 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);

Modified: trunk/examples/ada/xthick01a.adb.cmake
===================================================================
--- trunk/examples/ada/xthick01a.adb.cmake	2008-12-22 23:37:25 UTC (rev 9217)
+++ trunk/examples/ada/xthick01a.adb.cmake	2008-12-23 08:18:39 UTC (rev 9218)
@@ -144,11 +144,6 @@
     end plot3;
 
 begin   
-    -- plplot initialization
-    
-    -- Divide page into 2x2 plots unless user overrides
-    Set_Number_Of_Subpages(2, 2);
-    
     -- Parse and process command line arguments
     Parse_Command_Line_Arguments(Parse_Full); 
     
@@ -156,7 +151,8 @@
     Put_Line("PLplot library version: " & Get_Version_Number);
 
     -- Initialize plplot
-    Initialize_PLplot;
+    -- Divide page into 2x2 plots unless user overrides
+    Initialize_Query_Device(2, 2);
 
     -- Set up the data
     -- Original case

Modified: trunk/examples/ada/xthick03a.adb.cmake
===================================================================
--- trunk/examples/ada/xthick03a.adb.cmake	2008-12-22 23:37:25 UTC (rev 9217)
+++ trunk/examples/ada/xthick03a.adb.cmake	2008-12-23 08:18:39 UTC (rev 9218)
@@ -56,6 +56,10 @@
     -- Parse and process command line arguments. 
     Parse_Command_Line_Arguments(Parse_Full);
 
+    -- Set orientation to landscape. Note not all device drivers
+    -- support this, in particular most interactive drivers do not.
+    Set_Orientation(Portrait);
+
     -- Initialize plplot 
     Initialize_PLplot;
 

Modified: trunk/examples/ada/xthick09a.adb.cmake
===================================================================
--- trunk/examples/ada/xthick09a.adb.cmake	2008-12-22 23:37:25 UTC (rev 9217)
+++ trunk/examples/ada/xthick09a.adb.cmake	2008-12-23 08:18:39 UTC (rev 9218)
@@ -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.
 
+    Set_Contour_Label_Format(4,3);
     Set_Contour_Label_Parameters(0.006, 0.3, 0.1, True);
     Set_Environment(-1.0, 1.0, -1.0, 1.0, Not_Justified, Linear_Box_Plus);
     Set_Pen_Color(Yellow);

Modified: trunk/examples/ada/xthick13a.adb.cmake
===================================================================
--- trunk/examples/ada/xthick13a.adb.cmake	2008-12-22 23:37:25 UTC (rev 9217)
+++ trunk/examples/ada/xthick13a.adb.cmake	2008-12-23 08:18:39 UTC (rev 9218)
@@ -53,7 +53,12 @@
     -- Initialize plplot
     Initialize_PLplot;
 
-    Set_Environment(0.0, 10.0, 0.0, 10.0, Justified, No_Box);
+    Advance_To_Subpage(Next_Subpage);
+
+    -- Ensure window has aspect ratio of one so circle is plotted as a circle.
+    Set_Viewport_Aspect_Ratio(1.0);
+    Set_Viewport_World(0.0, 10.0, 0.0, 10.0);
+    -- Set_Environment(0.0, 10.0, 0.0, 10.0, Justified, No_Box);
     Set_Pen_Color(Yellow);
 
     -- 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.