From: <jb...@us...> - 2008-09-03 09:42:23
|
Revision: 8746 http://plplot.svn.sourceforge.net/plplot/?rev=8746&view=rev Author: jbauck Date: 2008-09-03 09:42:31 +0000 (Wed, 03 Sep 2008) Log Message: ----------- Several small tweaks; add "fix this" in comments in some areas that could stand improvement. Add subtype for mapping facility. Modified Paths: -------------- trunk/bindings/ada/plplot.ads.cmake trunk/bindings/ada/plplot_thin.adb.cmake trunk/bindings/ada/plplot_thin.ads.cmake trunk/bindings/ada/plplot_traditional.ads.cmake trunk/examples/ada/x19a.adb.cmake trunk/examples/ada/xthick19a.adb.cmake Modified: trunk/bindings/ada/plplot.ads.cmake =================================================================== --- trunk/bindings/ada/plplot.ads.cmake 2008-09-02 08:49:20 UTC (rev 8745) +++ trunk/bindings/ada/plplot.ads.cmake 2008-09-03 09:42:31 UTC (rev 8746) @@ -67,6 +67,9 @@ -- Make Mask_Function_Pointer_Type available to the user so that s/he doesn't -- have to "with" PLplot_Thin. Note that it is also used herein. subtype Mask_Function_Pointer_Type is PLplot_Thin.Mask_Function_Pointer_Type; + + -- "Rename" callback for map functions plmap and plmeridians. + subtype Map_Form_Function_Pointer_Type is Plplot_Thin.Map_Form_Function_Pointer_Type; -------------------------------------------------------------------------------- -- Types and constants for thick binding -- @@ -218,6 +221,7 @@ -- definitions for the opt argument in plot3dc() and plsurf3d() -- DRAW_LINEX *must* be 1 and DRAW_LINEY *must* be 2, because of legacy code! + -- fix this Why is there no type declared for these? No_3D_Options : constant Integer := 0; -- None of the options Lines_Parallel_To_X : constant Integer := 1; -- draw lines parallel to the X axis Lines_Parallel_To_Y : constant Integer := 2; -- draw lines parallel to the Y axis @@ -281,6 +285,7 @@ -------------------------------------------------------------------------------- + -- fix this Why is there no style here? -- Flags for the opt argument in plhist -- Histogram_Default : constant Integer := 0; Histogram_Noscaling : constant Integer := 1; Modified: trunk/bindings/ada/plplot_thin.adb.cmake =================================================================== --- trunk/bindings/ada/plplot_thin.adb.cmake 2008-09-02 08:49:20 UTC (rev 8745) +++ trunk/bindings/ada/plplot_thin.adb.cmake 2008-09-03 09:42:31 UTC (rev 8746) @@ -52,7 +52,7 @@ -- discussed in "Ada as a Second Language," Second Edition, by Norman H. -- Cohen, Section 19.3, for portability. This should remove GNAT dependence. - -- Question: Will Unchecked_Access, a normal Ada feature, work instead? + -- Question: Will Unchecked_Access, a normal Ada feature, work instead? fix this function Matrix_To_Pointers(x : Real_Matrix) return Long_Float_Pointer_Array is Index_Of_First_Column : Integer := x'First(2); Modified: trunk/bindings/ada/plplot_thin.ads.cmake =================================================================== --- trunk/bindings/ada/plplot_thin.ads.cmake 2008-09-02 08:49:20 UTC (rev 8745) +++ trunk/bindings/ada/plplot_thin.ads.cmake 2008-09-03 09:42:31 UTC (rev 8746) @@ -1034,9 +1034,8 @@ -- definitions for the opt argument in plot3dc() and plsurf3d() - -- DRAW_LINEX *must* be 1 and DRAW_LINEY *must* be 2, because of legacy code! - + -- fix this Why is there no type declared for these? DRAW_LINEX : constant Integer := 1; -- draw lines parallel to the X axis DRAW_LINEY : constant Integer := 2; -- draw lines parallel to the Y axis DRAW_LINEXY : constant Integer := 3; -- draw lines parallel to both the X and Y axis Modified: trunk/bindings/ada/plplot_traditional.ads.cmake =================================================================== --- trunk/bindings/ada/plplot_traditional.ads.cmake 2008-09-02 08:49:20 UTC (rev 8745) +++ trunk/bindings/ada/plplot_traditional.ads.cmake 2008-09-03 09:42:31 UTC (rev 8746) @@ -68,8 +68,8 @@ -- have to "with" PLplot_Thin. Note that it is also used herein. subtype Mask_Function_Pointer_Type is PLplot_Thin.Mask_Function_Pointer_Type; --- -- "Rename" callback for map functions plmap and plmeridians. --- subtype Map_Form_Function_Pointer_Type is Plplot_Thin.Map_Form_Function_Pointer_Type; + -- "Rename" callback for map functions plmap and plmeridians. + subtype Map_Form_Function_Pointer_Type is Plplot_Thin.Map_Form_Function_Pointer_Type; -------------------------------------------------------------------------------- -- Types and constants for thick binding -- @@ -220,6 +220,7 @@ -- definitions for the opt argument in plot3dc() and plsurf3d() -- DRAW_LINEX *must* be 1 and DRAW_LINEY *must* be 2, because of legacy code! + -- fix this Why is there no type declared for these? No_3D_Options : constant Integer := 0; -- None of the options Lines_Parallel_To_X : constant Integer := 1; -- draw lines parallel to the X axis Lines_Parallel_To_Y : constant Integer := 2; -- draw lines parallel to the Y axis @@ -283,6 +284,7 @@ -------------------------------------------------------------------------------- + -- fix this Why is there no style here? -- Flags for the opt argument in plhist -- Histogram_Default : constant Integer := 0; Histogram_Noscaling : constant Integer := 1; Modified: trunk/examples/ada/x19a.adb.cmake =================================================================== --- trunk/examples/ada/x19a.adb.cmake 2008-09-02 08:49:20 UTC (rev 8745) +++ trunk/examples/ada/x19a.adb.cmake 2008-09-03 09:42:31 UTC (rev 8746) @@ -3,7 +3,7 @@ -- Illustrates backdrop plotting of world, US maps. -- Contributed by Wesley Ebisuzaki. --- Copyright (C) 2007 Jerry Bauck +-- Copyright (C) 2008 Jerry Bauck -- This file is part of PLplot. Modified: trunk/examples/ada/xthick19a.adb.cmake =================================================================== --- trunk/examples/ada/xthick19a.adb.cmake 2008-09-02 08:49:20 UTC (rev 8745) +++ trunk/examples/ada/xthick19a.adb.cmake 2008-09-03 09:42:31 UTC (rev 8746) @@ -3,7 +3,7 @@ -- Illustrates backdrop plotting of world, US maps. -- Contributed by Wesley Ebisuzaki. --- Copyright (C) 2007 Jerry Bauck +-- Copyright (C) 2008 Jerry Bauck -- This file is part of PLplot. This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site. |