opengl: Rename 'openGL.Geometry.texturing' to 'openGL.texturing'.

This commit is contained in:
Rod Kay
2023-05-16 17:17:28 +10:00
parent 65ac65b204
commit 640c3f4790
15 changed files with 312 additions and 73 deletions

View File

@@ -2,7 +2,8 @@ with
openGL.Primitive,
openGL.Buffer,
openGL.Program,
openGL.Texture;
openGL.Texture,
openGL.texturing;
limited
with
@@ -51,11 +52,11 @@ is
max_Textures : constant := 32;
type texture_Id is range 1 .. max_Textures;
-- 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;
@@ -102,7 +103,7 @@ is
private
use ada.Strings.unbounded;
type Textures is array (texture_Id) of openGL.Texture.Object;
type Textures is array (texturing.texture_Id) of openGL.Texture.Object;
type Item is abstract tagged limited