gel: Cosmetics.

4-high/gel/source/applet/gel-applet.adb

@@ -235,6 +235,7 @@ is
 
 
 
+
    procedure add_new_World (Self : in out Item;   Name       : in String;
                                                   space_Kind : in physics.space_Kind)
    is
@@ -266,6 +267,7 @@ is
 
 
 
+
    function is_Open (Self : in Item) return Boolean
    is
    begin
@@ -389,6 +391,9 @@ is
    end last_Keypress;
 
 
+
+
+
    --------------
    --- Operations
    --
@@ -413,6 +418,8 @@ is
 
 
 
+
+
    procedure freshen (Self : in out Item)
    is
       use type gel.Dolly.view;

4-high/gel/source/applet/gel-applet.ads

@@ -9,7 +9,7 @@ with
      gel.Window,
 
      openGL.Renderer.lean,
-     opengl.Font,
+     openGL.Font,
 
      lace.Event,
      lace.Response,
@@ -19,6 +19,7 @@ with
 
      ada.Containers.Vectors;
 
+
 package gel.Applet
 --
 --  Provides an application model, configured with a single window.

4-high/gel/source/gel.adb

@@ -27,4 +27,5 @@ is
       return "";
    end to_String;
 
+
 end GEL;

4-high/gel/source/gel.ads

@@ -1,11 +1,13 @@
 with
      openGL,
      Physics,
+
      float_Math.Geometry.D2,
      float_Math.Geometry.D3,
      float_Math.Algebra.linear.D2,
      float_Math.Algebra.linear.D3;
 
+
 package GEL
 --
 --  A game engine library.
@@ -15,6 +17,7 @@ is
 
    Error : exception;
 
+
    --------
    --- Math
    --
@@ -28,16 +31,18 @@ is
    package linear_Algebra_3D renames linear_Algebra.D3;
 
 
+
    ---------------
    --- Constraints
    --
-   max_Worlds          : constant := 1000;
+   max_Worlds          : constant := 1_000;
-   max_Cameras         : constant := 1000;
+   max_Cameras         : constant := 1_000;
    max_graphics_Models : constant := 2**32 - 1;
 --     max_physics_Models  : constant := 2**32 - 1;
    max_Sprites         : constant := 2**32 - 1;
 
 
+
    -------
    --- Ids
    --