Menu
▾
▴
[Plplot-cvs] SF.net SVN: plplot:[8762] trunk
|
From: <jb...@us...> - 2008-09-10 06:54:44
|
Revision: 8762
http://plplot.svn.sourceforge.net/plplot/?rev=8762&view=rev
Author: jbauck
Date: 2008-09-10 06:54:55 +0000 (Wed, 10 Sep 2008)
Log Message:
-----------
Miscellaneous small changes to Ada stuff.
Modified Paths:
--------------
trunk/bindings/ada/plplot.adb.cmake
trunk/bindings/ada/plplot.ads.cmake
trunk/bindings/ada/plplot_traditional.adb.cmake
trunk/bindings/ada/plplot_traditional.ads.cmake
trunk/examples/ada/x21a.adb.cmake
trunk/examples/ada/xthick21a.adb.cmake
Modified: trunk/bindings/ada/plplot.adb.cmake
===================================================================
--- trunk/bindings/ada/plplot.adb.cmake 2008-09-09 13:50:14 UTC (rev 8761)
+++ trunk/bindings/ada/plplot.adb.cmake 2008-09-10 06:54:55 UTC (rev 8762)
@@ -54,22 +54,22 @@
-- When asked to draw white lines on black background, do it.
-- This is the default.
- procedure Draw_White_On_Black is
+ procedure Draw_On_Black is
begin
Set_One_Color_Map_0(Black, 0, 0 , 0);
Set_One_Color_Map_0(White, 255, 255, 255);
- end Draw_White_On_Black;
+ end Draw_On_Black;
-- When asked to draw black lines on white background, reverse black and white.
-- This might look better on anti-aliased displays.
-- fix this Darken some colors which have low contrast on white background, e.g. Yellow.
-- fix this Make a version that draws on white and converts _all_ colors to black for publications.
- procedure Draw_Black_On_White is
+ procedure Draw_On_White is
begin
Set_One_Color_Map_0(Black, 255, 255, 255);
Set_One_Color_Map_0(White, 0, 0, 0);
- end Draw_Black_On_White;
+ end Draw_On_White;
-- Set default pen width. Docs don't say, so I'll make it 1.
Modified: trunk/bindings/ada/plplot.ads.cmake
===================================================================
--- trunk/bindings/ada/plplot.ads.cmake 2008-09-09 13:50:14 UTC (rev 8761)
+++ trunk/bindings/ada/plplot.ads.cmake 2008-09-10 06:54:55 UTC (rev 8762)
@@ -322,12 +322,12 @@
-- When asked to draw white lines on black background, do it.
-- This is the default.
- procedure Draw_White_On_Black;
+ procedure Draw_On_Black;
-- When asked to draw black lines on white background, reverse black and white.
-- This might look better on anti-aliased displays.
- procedure Draw_Black_On_White;
+ procedure Draw_On_White;
-- Plotter for up to five x-y pairs and settable axis style, plot
@@ -719,7 +719,6 @@
-- Draws a contour plot from data in f(nx,ny). Is just a front-end to plfcont,
-- with a particular choice for f2eval and f2eval_data.
-
-- plcont
procedure Contour_Plot
(z : Real_Matrix;
Modified: trunk/bindings/ada/plplot_traditional.adb.cmake
===================================================================
--- trunk/bindings/ada/plplot_traditional.adb.cmake 2008-09-09 13:50:14 UTC (rev 8761)
+++ trunk/bindings/ada/plplot_traditional.adb.cmake 2008-09-10 06:54:55 UTC (rev 8762)
@@ -53,22 +53,22 @@
-- When asked to draw white lines on black background, do it.
-- This is the default.
- procedure Draw_White_On_Black is
+ procedure Draw_On_Black is
begin
plscol0(Black, 0, 0 , 0);
plscol0(White, 255, 255, 255);
- end Draw_White_On_Black;
+ end Draw_On_Black;
-- When asked to draw black lines on white background, reverse black and white.
-- This might look better on anti-aliased displays.
-- fix this Darken some colors which have low contrast on white background, e.g. Yellow.
-- fix this Make a version that draws on white and converts _all_ colors to black for publications.
- procedure Draw_Black_On_White is
+ procedure Draw_On_White is
begin
plscol0(Black, 255, 255, 255);
plscol0(White, 0, 0, 0);
- end Draw_Black_On_White;
+ end Draw_On_White;
-- Set default pen width. Docs don't say, so I'll make it 1.
Modified: trunk/bindings/ada/plplot_traditional.ads.cmake
===================================================================
--- trunk/bindings/ada/plplot_traditional.ads.cmake 2008-09-09 13:50:14 UTC (rev 8761)
+++ trunk/bindings/ada/plplot_traditional.ads.cmake 2008-09-10 06:54:55 UTC (rev 8762)
@@ -321,12 +321,12 @@
-- When asked to draw white lines on black background, do it.
-- This is the default.
- procedure Draw_White_On_Black;
+ procedure Draw_On_Black;
-- When asked to draw black lines on white background, reverse black and white.
-- This might look better on anti-aliased displays.
- procedure Draw_Black_On_White;
+ procedure Draw_On_White;
-- Plotter for up to five x-y pairs and settable axis style, plot
@@ -704,7 +704,6 @@
-- Draws a contour plot from data in f(nx,ny). Is just a front-end to plfcont,
-- with a particular choice for f2eval and f2eval_data.
-
-- plcont
procedure plcont
(z : Real_Matrix;
Modified: trunk/examples/ada/x21a.adb.cmake
===================================================================
--- trunk/examples/ada/x21a.adb.cmake 2008-09-09 13:50:14 UTC (rev 8761)
+++ trunk/examples/ada/x21a.adb.cmake 2008-09-10 06:54:55 UTC (rev 8762)
@@ -20,14 +20,10 @@
-- along with PLplot; if not, write to the Free Software
-- Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA
--- Ada note: This example relies on a random number generator go make up some
--- data so there is no possibility of getting exact agreement at the Postscript
--- level with the C example as has been the standard in other examples.
--- Therefore, a couple of shortcuts have been used such as not actually using
--- the times reported by the calls to a clock which are then (in the C example)
--- used to create some labels (the time differences are all 0 ms anyway).
--- Also, there is some sort of edge effect anomlies in the Cubic Spline
--- Approximation plots.
+-- Ada note: This example originally used Ada's random number generator, but in
+-- order to make Postscript results that are identical to the C version, a
+-- PLplot-specific random number generator was substituted. The original Ada
+-- generator lines are left in as comments for reference.
with
Ada.Numerics,
@@ -36,7 +32,6 @@
Ada.Strings,
Ada.Strings.Fixed,
Ada.Calendar,
- GNAT.Calendar.Time_IO,
System,
PLplot_Traditional,
PLplot_Auxiliary;
Modified: trunk/examples/ada/xthick21a.adb.cmake
===================================================================
--- trunk/examples/ada/xthick21a.adb.cmake 2008-09-09 13:50:14 UTC (rev 8761)
+++ trunk/examples/ada/xthick21a.adb.cmake 2008-09-10 06:54:55 UTC (rev 8762)
@@ -20,14 +20,10 @@
-- along with PLplot; if not, write to the Free Software
-- Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA
--- Ada note: This example relies on a random number generator go make up some
--- data so there is no possibility of getting exact agreement at the Postscript
--- level with the C example as has been the standard in other examples.
--- Therefore, a couple of shortcuts have been used such as not actually using
--- the times reported by the calls to a clock which are then (in the C example)
--- used to create some labels (the time differences are all 0 ms anyway).
--- Also, there is some sort of edge effect anomlies in the Cubic Spline
--- Approximation plots.
+-- Ada note: This example originally used Ada's random number generator, but in
+-- order to make Postscript results that are identical to the C version, a
+-- PLplot-specific random number generator was substituted. The original Ada
+-- generator lines are left in as comments for reference.
with
Ada.Numerics,
@@ -36,7 +32,6 @@
Ada.Strings,
Ada.Strings.Fixed,
Ada.Calendar,
- GNAT.Calendar.Time_IO,
System,
PLplot,
PLplot_Auxiliary;
This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.
|
