nichkara/lace
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

openGL.Geometry: Rid unused 'Textures' array type.

Browse Source
This commit is contained in:
Rod Kay
2023-05-31 09:31:12 +10:00
parent 6850241aa9
commit 715e9edb80
1 changed files with 1 additions and 10 deletions
Download Patch File Download Diff File Expand all files Collapse all files

11
3-mid/opengl/source/lean/geometry/opengl-geometry.ads
View File

@@ -50,13 +50,6 @@ is
procedure Label_is (Self : in out Item'Class; Now : in String); procedure Label_is (Self : in out Item'Class; Now : in String);
function Label (Self : in Item'Class) return 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; procedure Texture_is (Self : in out Item; Now : in openGL.Texture.Object) is null;
function Texture (Self : in Item) return openGL.Texture.Object; function Texture (Self : in Item) return openGL.Texture.Object;
@@ -70,6 +63,7 @@ is
function Program (Self : in Item) return Program.view; function Program (Self : in Item) return Program.view;
procedure add (Self : in out Item'Class; the_Primitive : in Primitive.view); procedure add (Self : in out Item'Class; the_Primitive : in Primitive.view);
function Primitives (Self : in Item'Class) return Primitive.views; function Primitives (Self : in Item'Class) return Primitive.views;
procedure free_Primitives (Self : in out Item); procedure free_Primitives (Self : in out Item);
@@ -103,9 +97,6 @@ is
private private
use ada.Strings.unbounded; use ada.Strings.unbounded;
type Textures is array (texture_Set.texture_Id) of openGL.Texture.Object;
type Item is abstract tagged limited type Item is abstract tagged limited
record record
Model : Model_view; Model : Model_view;