From b06d612c3429dbd0b4f8b0198daff432c5e6a9a8 Mon Sep 17 00:00:00 2001
From: Rod Kay <rodakay5@gmail.com>
Date: Thu, 20 Apr 2023 10:14:22 +1000
Subject: [PATCH] gel: Cosmetics.

---
 4-high/gel/source/applet/gel-applet.adb | 7 +++++++
 4-high/gel/source/applet/gel-applet.ads | 3 ++-
 4-high/gel/source/gel.adb               | 1 +
 4-high/gel/source/gel.ads               | 9 +++++++--
 4 files changed, 17 insertions(+), 3 deletions(-)

diff --git a/4-high/gel/source/applet/gel-applet.adb b/4-high/gel/source/applet/gel-applet.adb
index 7cfa713..7a2ce2d 100644
--- a/4-high/gel/source/applet/gel-applet.adb
+++ b/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;
diff --git a/4-high/gel/source/applet/gel-applet.ads b/4-high/gel/source/applet/gel-applet.ads
index 9331794..21389dc 100644
--- a/4-high/gel/source/applet/gel-applet.ads
+++ b/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.
diff --git a/4-high/gel/source/gel.adb b/4-high/gel/source/gel.adb
index d63a4d0..4d9a493 100644
--- a/4-high/gel/source/gel.adb
+++ b/4-high/gel/source/gel.adb
@@ -27,4 +27,5 @@ is
       return "";
    end to_String;
 
+
 end GEL;
diff --git a/4-high/gel/source/gel.ads b/4-high/gel/source/gel.ads
index 9250751..a5594d0 100644
--- a/4-high/gel/source/gel.ads
+++ b/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_Cameras         : constant := 1000;
+   max_Worlds          : constant := 1_000;
+   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
    --