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

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

Revision: 8703
          http://plplot.svn.sourceforge.net/plplot/?rev=8703&view=rev
Author:   jbauck
Date:     2008-08-23 05:09:22 +0000 (Sat, 23 Aug 2008)

Log Message:
-----------
Changed the initial time in Ada examples x29a.adb and xthick29a.adb. They should now once again agree with the C example at the Postscript level, although I can't test this as x29c.c generates dates from 1970 instead of 2005 on my machine which runs OS X.

Modified Paths:
--------------
    trunk/examples/ada/x29a.adb.cmake
    trunk/examples/ada/xthick29a.adb.cmake

Modified: trunk/examples/ada/x29a.adb.cmake
===================================================================
--- trunk/examples/ada/x29a.adb.cmake	2008-08-23 04:30:07 UTC (rev 8702)
+++ trunk/examples/ada/x29a.adb.cmake	2008-08-23 05:09:22 UTC (rev 8703)
@@ -134,8 +134,7 @@
     begin
         -- Find the number of seconds since January 1, 1970 to December 1, 2005.
         -- Should be 1_133_395_200.0.
-        -- NOTE: The beginning time is now set to Jan 01, 1970 to match C output.
-        xmin := Long_Float(Time_Of(1970, 1,  1, 0.0) - Time_Of(1970, 1,  1, 0.0));
+        xmin := Long_Float(Time_Of(2005, 12, 1, 0.0) - Time_Of(1970, 1,  1, 0.0));
         
         xmax := xmin + Long_Float(x'length) * 60.0 * 60.0 * 24.0;
         ymin := 0.0;

Modified: trunk/examples/ada/xthick29a.adb.cmake
===================================================================
--- trunk/examples/ada/xthick29a.adb.cmake	2008-08-23 04:30:07 UTC (rev 8702)
+++ trunk/examples/ada/xthick29a.adb.cmake	2008-08-23 05:09:22 UTC (rev 8703)
@@ -121,8 +121,7 @@
     begin
         -- Find the number of seconds since January 1, 1970 to December 1, 2005.
         -- Should be 1_133_395_200.0.
-        -- NOTE: The beginning time is now set to Jan 01, 1970 to match C output.
-        xmin := Long_Float(Time_Of(1970, 1,  1, 0.0) - Time_Of(1970, 1,  1, 0.0));
+        xmin := Long_Float(Time_Of(2005, 12, 1, 0.0) - Time_Of(1970, 1,  1, 0.0));
         
         xmax := xmin + Long_Float(x'length) * 60.0 * 60.0 * 24.0;
         ymin := 0.0;


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