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

opengl.model.texturing: Rid 'limited with' of 'openGL.Model'.

Browse Source
This commit is contained in:
Rod Kay
2024-04-24 12:40:42 +10:00
parent 6c0f5d9394
commit 081fcd860e
2 changed files with 7 additions and 7 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
3-mid/opengl/source/lean/model/opengl-model-texturing.adb
View File

@@ -1,10 +1,10 @@
with with
openGL.Model, -- openGL.Model,
GL.lean, GL.lean,
GL.Binding, GL.Binding,
ada.Strings.fixed; ada.Strings.fixed;
with ada.Text_IO; -- with ada.Text_IO;
package body openGL.Model.texturing package body openGL.Model.texturing
@@ -14,7 +14,7 @@ is
type texture_Units is array (texture_Set.texture_Id) of GLenum; type texture_Units is array (texture_Set.texture_Id) of GLenum;
all_texture_Units : constant texture_Units := (GL_TEXTURE0, all_texture_Units : constant texture_Units := [GL_TEXTURE0,
GL_TEXTURE1, GL_TEXTURE1,
GL_TEXTURE2, GL_TEXTURE2,
GL_TEXTURE3, GL_TEXTURE3,
@@ -45,7 +45,7 @@ is
GL_TEXTURE28, GL_TEXTURE28,
GL_TEXTURE29, GL_TEXTURE29,
GL_TEXTURE30, GL_TEXTURE30,
GL_TEXTURE31); GL_TEXTURE31];

6
3-mid/opengl/source/lean/model/opengl-model-texturing.ads
View File

@@ -3,9 +3,9 @@ with
openGL.texture_Set, openGL.texture_Set,
openGL.Program; openGL.Program;
limited -- limited
with -- with
openGL.Model; -- openGL.Model;
private private