opengl: Fix simple warnings and cosmetics.

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

@@ -2,12 +2,9 @@ with
      openGL.Shader,
      openGL.Attribute,
      openGL.Buffer.general,
-     openGL.Texture,
-     openGL.Palette,
      openGL.Tasks,
      openGL.Errors,
 
-     GL.Binding,
      GL.lean,
      GL.Pointers,
 
@@ -49,7 +46,6 @@ is
    Attribute_5_Name_ptr : aliased constant C.strings.chars_ptr := C.strings.to_chars_ptr (Attribute_5_Name'Access);
    Attribute_6_Name_ptr : aliased constant C.strings.chars_ptr := C.strings.to_chars_ptr (Attribute_6_Name'Access);
 
-   white_Texture   : openGL.Texture.Object;
 
 
    ----------
@@ -83,8 +79,7 @@ is
 
    procedure define_Program
    is
-      use Palette,
-          Attribute.Forge,
+      use Attribute.Forge,
           GL.lean,
           GL.Pointers,
           System.storage_Elements;
@@ -98,8 +93,6 @@ is
       Attribute_5 : openGL.Attribute.view;
       Attribute_6 : openGL.Attribute.view;
 
-      white_Image : constant openGL.Image := [1 .. 2 => [1 .. 2 => +White]];
-
    begin
       Tasks.check;
 
@@ -112,8 +105,6 @@ is
 
       -- Define the shaders and program.
       --
-      white_Texture := openGL.Texture.Forge.to_Texture (white_Image);
-
       vertex_Shader  .define (Shader.Vertex,   "assets/opengl/shader/lit_textured_skinned.vert");
       --  fragment_Shader.define (Shader.Fragment, "assets/opengl/shader/lit_textured_skinned.frag");
       fragment_Shader.define (Shader.Fragment, (asset_Names' (1 => to_Asset ("assets/opengl/shader/version.header"),