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

opengl: Cosmetics.

Browse Source
This commit is contained in:
Rod Kay
2023-11-10 18:38:10 +11:00
parent 7630a775b5
commit 3bb82e5a39
2 changed files with 2 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
3-mid/opengl/source/lean/geometry/opengl-geometry-texturing.adb
View File

@@ -187,7 +187,7 @@ is
procedure enable_Textures (Self : in out Item) procedure enable_Textures (Self : in out Item)
is is
begin begin
ada.Text_IO.put_Line (Self.Model'Image); -- ada.Text_IO.put_Line (Self.Model'Image);
texturing.enable (for_Model => Self.Model.all'Access, texturing.enable (for_Model => Self.Model.all'Access,
Uniforms => texture_Uniforms, Uniforms => texture_Uniforms,

2
3-mid/opengl/source/lean/model/opengl-model-hexagon-lit_textured.ads
View File

@@ -14,7 +14,7 @@ is
type Face is type Face is
record record
Fades : texture_Set.fade_Levels (texture_Set.texture_Id) := [others => 0.0]; Fades : texture_Set.fade_Levels (texture_Set.texture_Id) := [others => 0.0];
Textures : openGL.asset_Names (1 .. Positive (texture_Set.texture_Id'Last)) := [others => null_Asset]; -- The textures to be applied to the hex. Textures : openGL.asset_Names (1 .. Positive (texture_Set.texture_Id'Last)) := [others => null_Asset]; -- The textures to be applied to the hex.
texture_Count : Natural := 0; texture_Count : Natural := 0;
end record; end record;