opengl: Cosmetics.

3-mid/opengl/source/lean/geometry/opengl-geometry-colored_textured.ads

@@ -1,5 +1,5 @@
 with
-openGL.texture_Set;
+     openGL.texture_Set;
 
 
 private
@@ -9,7 +9,7 @@ with
 
 package openGL.Geometry.colored_textured
 --
---  Supports per-vertex site, color and texture.
+--  Supports 'per-vertex' site, color and texture.
 --
 is
    type Item is new openGL.Geometry.item with private;

3-mid/opengl/source/lean/geometry/opengl-geometry-lit_colored_textured.ads

@@ -8,7 +8,7 @@ with
 
 package openGL.Geometry.lit_colored_textured
 --
---  Supports per-vertex site color, texture and lighting.
+--  Supports 'per-vertex' site, color, texture and lighting.
 --
 is
    type Item is new openGL.Geometry.item with private;

3-mid/opengl/source/lean/geometry/opengl-geometry-lit_colored_textured_skinned.ads

@@ -11,7 +11,7 @@ with
 
 package openGL.Geometry.lit_colored_textured_skinned
 --
---  Supports per-vertex site color, texture, lighting and skinning.
+--  Supports 'per-vertex' site, color, texture, lighting and skinning.
 --
 is
    type Item is new openGL.Geometry.item with private;
@@ -27,15 +27,16 @@ is
 
    type Vertex is
       record
-         Site   : Vector_3;
-         Normal : Vector_3;
-         Color  : rgba_Color;
-         Coords : Coordinate_2D;
-         Shine  : Real;
+         Site         : Vector_3;
+         Normal       : Vector_3;
+         Color        : rgba_Color;
+         Coords       : Coordinate_2D;
+         Shine        : Real;
 
          bone_Ids     : Vector_4;
          bone_Weights : Vector_4;
       end record;
+
    pragma Convention (C, Vertex);
 
    type Vertex_array is array (long_Index_t range <>) of aliased Vertex;

3-mid/opengl/source/lean/geometry/opengl-geometry-lit_textured.ads

@@ -8,7 +8,7 @@ with
 
 package openGL.Geometry.lit_textured
 --
---  Supports per-vertex site texture and lighting.
+--  Supports 'per-vertex' site, texture and lighting.
 --
 is
    type Item is new openGL.Geometry.item with private;

3-mid/opengl/source/lean/geometry/opengl-geometry-lit_textured_skinned.ads

@@ -9,11 +9,12 @@ with
 
 package openGL.Geometry.lit_textured_skinned
 --
---  Supports per-vertex site, texture, lighting and skinning.
+--  Supports 'per-vertex' site, texture, lighting and skinning.
 --
 is
    type Item is new openGL.Geometry.item with private;
 
+
    function new_Geometry return access Geometry.lit_textured_skinned.item'Class;
 
    procedure define_Program;
@@ -25,14 +26,15 @@ is
 
    type Vertex is
       record
-         Site   : Vector_3;
-         Normal : Vector_3;
-         Coords : Coordinate_2D;
-         Shine  : Real;
+         Site         : Vector_3;
+         Normal       : Vector_3;
+         Coords       : Coordinate_2D;
+         Shine        : Real;
 
          bone_Ids     : Vector_4;
          bone_Weights : Vector_4;
       end record;
+
    pragma Convention (C, Vertex);
 
    type Vertex_array is array (long_Index_t range <>) of aliased Vertex;

3-mid/opengl/source/lean/geometry/opengl-geometry-textured.ads

@@ -9,12 +9,13 @@ with
 
 package openGL.Geometry.textured
 --
---  Supports per-vertex site and texture.
+--  Supports 'per-vertex' site and texture.
 --
 is
    type Item is new openGL.Geometry.item with private;
    type View is access all Item'Class;
 
+
    function new_Geometry return View;