[Plplot-cvs] SF.net SVN: plplot: [8505] trunk/bindings/ada

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

Revision: 8505
          http://plplot.svn.sourceforge.net/plplot/?rev=8505&view=rev
Author:   jbauck
Date:     2008-07-04 15:54:49 -0700 (Fri, 04 Jul 2008)

Log Message:
-----------
Fixed the color problems in Ada examples x05.adb and xthick05.adb by removing cruft from the bindings placed there by space aliens.

Modified Paths:
--------------
    trunk/bindings/ada/plplot.adb.cmake
    trunk/bindings/ada/plplot_traditional.adb.cmake

Modified: trunk/bindings/ada/plplot.adb.cmake
===================================================================
--- trunk/bindings/ada/plplot.adb.cmake	2008-07-04 18:41:41 UTC (rev 8504)
+++ trunk/bindings/ada/plplot.adb.cmake	2008-07-04 22:54:49 UTC (rev 8505)
@@ -1713,10 +1713,8 @@
         Number_Of_Bins : Positive; -- equal-sized, between Data_Min and Data_Max
         Options : Integer) is -- Options are not defined in plplot.h.
     begin
-        Set_Pen_Color(White);
         plhist
            (Data'length, Data, Data_Min, Data_Max, Number_Of_Bins, Options);
-        Set_Pen_Color(White);
     end Histogram_Unbinned;
 
 

Modified: trunk/bindings/ada/plplot_traditional.adb.cmake
===================================================================
--- trunk/bindings/ada/plplot_traditional.adb.cmake	2008-07-04 18:41:41 UTC (rev 8504)
+++ trunk/bindings/ada/plplot_traditional.adb.cmake	2008-07-04 22:54:49 UTC (rev 8505)
@@ -1657,10 +1657,8 @@
         Number_Of_Bins : Positive; -- equal-sized, between Data_Min and Data_Max
         Options : Integer) is -- Options are not defined in plplot.h.
     begin
-        plcol0(White);
         PLplot_Thin.plhist
            (Data'length, Data, Data_Min, Data_Max, Number_Of_Bins, Options);
-        plcol0(White);
     end plhist;
 
 


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