From 715e9edb80d0131e5badd736cf7319321b1ad592 Mon Sep 17 00:00:00 2001 From: Rod Kay Date: Wed, 31 May 2023 09:31:12 +1000 Subject: [PATCH] openGL.Geometry: Rid unused 'Textures' array type. --- 3-mid/opengl/source/lean/geometry/opengl-geometry.ads | 11 +---------- 1 file changed, 1 insertion(+), 10 deletions(-) diff --git a/3-mid/opengl/source/lean/geometry/opengl-geometry.ads b/3-mid/opengl/source/lean/geometry/opengl-geometry.ads index f980ef4..241cb91 100644 --- a/3-mid/opengl/source/lean/geometry/opengl-geometry.ads +++ b/3-mid/opengl/source/lean/geometry/opengl-geometry.ads @@ -50,13 +50,6 @@ is procedure Label_is (Self : in out Item'Class; Now : in String); function Label (Self : in Item'Class) return String; - - - -- max_Textures : constant := 32; - -- - -- type texture_Id is range 1 .. max_Textures; - -- - -- procedure Texture_is (Self : in out Item; Now : in openGL.Texture.Object) is null; function Texture (Self : in Item) return openGL.Texture.Object; @@ -70,6 +63,7 @@ is function Program (Self : in Item) return Program.view; procedure add (Self : in out Item'Class; the_Primitive : in Primitive.view); + function Primitives (Self : in Item'Class) return Primitive.views; procedure free_Primitives (Self : in out Item); @@ -103,9 +97,6 @@ is private use ada.Strings.unbounded; - type Textures is array (texture_Set.texture_Id) of openGL.Texture.Object; - - type Item is abstract tagged limited record Model : Model_view;