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

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

Revision: 12021
          http://plplot.svn.sourceforge.net/plplot/?rev=12021&view=rev
Author:   jbauck
Date:     2011-11-01 08:35:52 +0000 (Tue, 01 Nov 2011)
Log Message:
-----------
Small tweaks. Finish unbotching file name.

Modified Paths:
--------------
    trunk/bindings/ada/plplot.ads
    trunk/bindings/ada/plplot_traditional.ads
    trunk/examples/ada/x00_easy_a.adb
    trunk/examples/ada/x00a.adb

Added Paths:
-----------
    trunk/examples/ada/xthick00a.adb

Modified: trunk/bindings/ada/plplot.ads
===================================================================
--- trunk/bindings/ada/plplot.ads	2011-11-01 08:22:29 UTC (rev 12020)
+++ trunk/bindings/ada/plplot.ads	2011-11-01 08:35:52 UTC (rev 12021)
@@ -381,7 +381,7 @@
 --------------------------------------------------------------------------------
 -- Constants copied from PLplot_Thin.ads so that it doesn't have to be seen.  --
 -- These are replicated herein with other names. Either name may be used,     --
--- e.g., Parse_Full is the same as PL_PARSE_FULL.    --
+-- e.g., Parse_Full is the same as PL_PARSE_FULL.                             --
 --------------------------------------------------------------------------------
 
     -- Modes for parsing command line arguments (redux).

Modified: trunk/bindings/ada/plplot_traditional.ads
===================================================================
--- trunk/bindings/ada/plplot_traditional.ads	2011-11-01 08:22:29 UTC (rev 12020)
+++ trunk/bindings/ada/plplot_traditional.ads	2011-11-01 08:35:52 UTC (rev 12021)
@@ -379,7 +379,7 @@
 --------------------------------------------------------------------------------
 -- Constants copied from PLplot_Thin.ads so that it doesn't have to be seen.  --
 -- These are replicated herein with other names. Either name may be used,     --
--- e.g., Parse_Full is the same as PL_PARSE_FULL.    --
+-- e.g., Parse_Full is the same as PL_PARSE_FULL.                             --
 --------------------------------------------------------------------------------
 
     -- Modes for parsing command line arguments (redux).

Modified: trunk/examples/ada/x00_easy_a.adb
===================================================================
--- trunk/examples/ada/x00_easy_a.adb	2011-11-01 08:22:29 UTC (rev 12020)
+++ trunk/examples/ada/x00_easy_a.adb	2011-11-01 08:35:52 UTC (rev 12021)
@@ -32,8 +32,7 @@
     PLplot;
 
 procedure x00_easy_a is
-    N : Integer := 100;
-    x, y : Real_Vector(0 .. N);
+    x, y : Real_Vector(0 .. 100);
     x_Min, y_Min : Long_Float := 0.0;
     x_Max : Long_Float := 1.0;
     y_Max : Long_Float := 100.0;

Modified: trunk/examples/ada/x00a.adb
===================================================================
--- trunk/examples/ada/x00a.adb	2011-11-01 08:22:29 UTC (rev 12020)
+++ trunk/examples/ada/x00a.adb	2011-11-01 08:35:52 UTC (rev 12021)
@@ -34,8 +34,7 @@
     PLplot_Traditional;
 
 procedure x00a is
-    N : Integer := 100;
-    x, y : Real_Vector(0 .. N);
+    x, y : Real_Vector(0 .. 100);
     x_Min, y_Min : Long_Float := 0.0;
     x_Max : Long_Float := 1.0;
     y_Max : Long_Float := 100.0;

Copied: trunk/examples/ada/xthick00a.adb (from rev 12019, trunk/examples/ada/x00thicka.adb)
===================================================================
--- trunk/examples/ada/xthick00a.adb	                        (rev 0)
+++ trunk/examples/ada/xthick00a.adb	2011-11-01 08:35:52 UTC (rev 12021)
@@ -0,0 +1,68 @@
+-- $Id$
+--
+-- Simple demo of a 2D line plot.
+--
+-- Copyright (C) 2011  Jerry Bauck
+--
+-- This file is part of PLplot.
+--
+-- PLplot is free software; you can redistribute it and/or modify
+-- it under the terms of the GNU Library General Public License as published
+-- by the Free Software Foundation; either version 2 of the License, or
+-- (at your option) any later version.
+--
+-- PLplot is distributed in the hope that it will be useful,
+-- but WITHOUT ANY WARRANTY; without even the implied warranty of
+-- MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+-- GNU Library General Public License for more details.
+--
+-- You should have received a copy of the GNU Library General Public License
+-- along with PLplot; if not, write to the Free Software
+-- Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA
+
+
+-- See x00_easy_a.adb for an easier way to generate similar results using
+-- Ada-specific extensions to PLplot.
+
+-- See x00a.adb for a version of this program that uses traditional plplot names.
+
+with
+    PLplot_Auxiliary,
+    PLplot;
+use
+    PLplot_Auxiliary,
+    PLplot;
+
+procedure x00thicka is
+    x, y : Real_Vector(0 .. 100);
+    x_Min, y_Min : Long_Float := 0.0;
+    x_Max : Long_Float := 1.0;
+    y_Max : Long_Float := 100.0;
+begin
+    -- Prepare data to be plotted.
+    for i in x'range loop
+        x(i) := Long_Float(i) / Long_Float(x'length - 1);
+        y(i) := y_Max * x(i)**2;
+    end loop;
+
+    -- Parse and process command line arguments.
+    Parse_Command_Line_Arguments(Parse_Full); 
+
+    -- Initialize plplot.
+    Initialize_PLplot;
+
+    -- Create a labelled box to hold the plot.
+    Set_Environment(x_Min, x_Max, y_Min, y_Max, 
+        Justification => Not_Justified, 
+        Axis_Style    => Linear_Box_Plus);
+    Write_Labels
+       (X_Label     => "x", 
+        Y_Label     => "y=100 x#u2#d",
+        Title_Label => "Simple PLplot demo of a 2D line plot");
+
+    -- Plot the data that was prepared above.
+    Draw_Curve(x, y);
+
+    -- Close PLplot library.
+    End_PLplot;
+end x00thicka;
\ No newline at end of file

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