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

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

Revision: 12019
          http://plplot.svn.sourceforge.net/plplot/?rev=12019&view=rev
Author:   jbauck
Date:     2011-11-01 03:53:01 +0000 (Tue, 01 Nov 2011)
Log Message:
-----------
Added Ada examples 00.

Added Paths:
-----------
    trunk/examples/ada/x00_easy_a.adb
    trunk/examples/ada/x00a.adb
    trunk/examples/ada/x00thicka.adb

Added: trunk/examples/ada/x00_easy_a.adb
===================================================================
--- trunk/examples/ada/x00_easy_a.adb	                        (rev 0)
+++ trunk/examples/ada/x00_easy_a.adb	2011-11-01 03:53:01 UTC (rev 12019)
@@ -0,0 +1,58 @@
+-- $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
+
+
+-- This program uses Ada-specific extensions to PLplot to create similar
+-- results as x00a.adb and xthick00a.adb but with less effort.
+
+with
+    PLplot_Auxiliary,
+    PLplot;
+use
+    PLplot_Auxiliary,
+    PLplot;
+
+procedure x00_easy_a is
+    N : Integer := 100;
+    x, y : Real_Vector(0 .. N);
+    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;
+
+    -- -- Initialize plplot.
+     Initialize_PLplot;
+
+    -- Make the plot.
+    Simple_Plot(x, y, 
+        X_Label => "x", 
+        Y_Label => "y=100 x#u2#d", 
+        Title_Label => "Simple PLplot demo of a 2D line plot");
+
+    -- Close PLplot library.
+    End_PLplot;
+end x00_easy_a;
\ No newline at end of file


Property changes on: trunk/examples/ada/x00_easy_a.adb
___________________________________________________________________
Added: svn:keywords
   + Revision Author Date Id
Added: svn:eol-style
   + native

Added: trunk/examples/ada/x00a.adb
===================================================================
--- trunk/examples/ada/x00a.adb	                        (rev 0)
+++ trunk/examples/ada/x00a.adb	2011-11-01 03:53:01 UTC (rev 12019)
@@ -0,0 +1,64 @@
+-- $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 x00thicka.adb for a version of this program that uses easy-to-read names.
+
+with
+    PLplot_Auxiliary,
+    PLplot_Traditional;
+use
+    PLplot_Auxiliary,
+    PLplot_Traditional;
+
+procedure x00a is
+    N : Integer := 100;
+    x, y : Real_Vector(0 .. N);
+    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.
+    plparseopts(PL_PARSE_FULL); 
+
+    -- Initialize plplot.
+    plinit;
+
+    -- Create a labelled box to hold the plot.
+    plenv(x_Min, x_Max, y_Min, y_Max, 0, 0);
+    pllab("x", "y=100 x#u2#d", "Simple PLplot demo of a 2D line plot");
+
+    -- Plot the data that was prepared above.
+    plline(x, y);
+
+    -- Close PLplot library.
+    plend;
+end x00a;
\ No newline at end of file


Property changes on: trunk/examples/ada/x00a.adb
___________________________________________________________________
Added: svn:keywords
   + Revision Author Date Id
Added: svn:eol-style
   + native

Added: trunk/examples/ada/x00thicka.adb
===================================================================
--- trunk/examples/ada/x00thicka.adb	                        (rev 0)
+++ trunk/examples/ada/x00thicka.adb	2011-11-01 03:53:01 UTC (rev 12019)
@@ -0,0 +1,69 @@
+-- $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
+    N : Integer := 100;
+    x, y : Real_Vector(0 .. N);
+    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(PL_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


Property changes on: trunk/examples/ada/x00thicka.adb
___________________________________________________________________
Added: svn:keywords
   + Revision Author Date Id
Added: svn:eol-style
   + native

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