[Plplot-cvs] SF.net SVN: plplot:[11643] trunk

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

Revision: 11643
          http://plplot.svn.sourceforge.net/plplot/?rev=11643&view=rev
Author:   jbauck
Date:     2011-03-18 07:23:05 +0000 (Fri, 18 Mar 2011)

Log Message:
-----------
Ada: Update Example 18 for plstring3.

Modified Paths:
--------------
    trunk/bindings/ada/plplot.adb
    trunk/examples/ada/x18a.adb
    trunk/examples/ada/xthick18a.adb

Modified: trunk/bindings/ada/plplot.adb
===================================================================
--- trunk/bindings/ada/plplot.adb	2011-03-18 06:22:15 UTC (rev 11642)
+++ trunk/bindings/ada/plplot.adb	2011-03-18 07:23:05 UTC (rev 11643)
@@ -83,7 +83,6 @@
     -- Can be used directly or as part of a "simple" plotter 
     -- such as those that follow or which are made by the user.
     -- fixme Add capability for labels, legends.
-    -- fixme Add capability for labels, legends.
     procedure Multiplot_Pairs
        (x1            : Real_Vector     := Dont_Plot_This;
         y1            : Real_Vector     := Dont_Plot_This;

Modified: trunk/examples/ada/x18a.adb
===================================================================
--- trunk/examples/ada/x18a.adb	2011-03-18 06:22:15 UTC (rev 11642)
+++ trunk/examples/ada/x18a.adb	2011-03-18 07:23:05 UTC (rev 11643)
@@ -2,7 +2,7 @@
 
 --  3-d line and point plot demo.  Adapted from x08c.c.
 
--- Copyright (C) 2008 Jerry Bauck
+-- Copyright (C) 2008 - 2011 Jerry Bauck
 
 -- This file is part of PLplot.
 
@@ -36,8 +36,6 @@
     PLplot_Auxiliary,
     PLplot_Traditional;
 
-
-
 procedure x18a is
     ----------------------------------------------------------------------------
     -- Does a series of 3-d plots for a given data set, with different
@@ -113,7 +111,6 @@
         plmtex("t", 1.0, 0.5, 0.5, "unit radius sphere" );
     end test_poly;
 
-
 begin
     -- Parse and process command line arguments 
     plparseopts(PL_PARSE_FULL);
@@ -150,7 +147,8 @@
         if opt(k) then
             plline3(x, y, z);
         else
-            plpoin3(x, y, z, 1);
+            -- U+22C5 DOT OPERATOR.
+            plstring3(x, y, z, "⋅");
         end if;
 
         plcol0(3);

Modified: trunk/examples/ada/xthick18a.adb
===================================================================
--- trunk/examples/ada/xthick18a.adb	2011-03-18 06:22:15 UTC (rev 11642)
+++ trunk/examples/ada/xthick18a.adb	2011-03-18 07:23:05 UTC (rev 11643)
@@ -2,7 +2,7 @@
 
 --  3-d line and point plot demo.  Adapted from x08c.c.
 
--- Copyright (C) 2008 Jerry Bauck
+-- Copyright (C) 2008 - 2011 Jerry Bauck
 
 -- This file is part of PLplot.
 
@@ -36,8 +36,6 @@
     PLplot_Auxiliary,
     PLplot;
 
-
-
 procedure xthick18a is
     ----------------------------------------------------------------------------
     -- Does a series of 3-d plots for a given data set, with different
@@ -113,7 +111,6 @@
         Write_Text_Viewport("t", 1.0, 0.5, 0.5, "unit radius sphere" );
     end test_poly;
 
-
 begin
     -- Parse and process command line arguments 
     Parse_Command_Line_Arguments(Parse_Full);
@@ -150,7 +147,7 @@
         if opt(k) then
             Draw_Curve_3D(x, y, z);
         else
-            Draw_Points_3D(x, y, z, 1);
+            Draw_String_3D(x, y, z, "⋅");
         end if;
 
         Set_Pen_Color(Green);


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