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

opengl.texture_set: Add default to 'Which' parameter in 'Texture_is' and 'Texture' subprograms.

Browse Source
This commit is contained in:
Rod Kay
2025-09-19 11:29:27 +10:00
parent 049793a64c
commit e950ad5383
1 changed files with 23 additions and 23 deletions
Download Patch File Download Diff File Expand all files Collapse all files

46
3-mid/opengl/source/lean/opengl-texture_set.adb
View File

@@ -88,7 +88,7 @@ is
--- Item --- Item
-- --
procedure Texture_is (in_Set : in out Item; Which : texture_ID; Now : in openGL.Texture.Object) procedure Texture_is (in_Set : in out Item; Which : texture_ID := 1; Now : in openGL.Texture.Object)
is is
begin begin
in_Set.Textures (Which).Object := Now; in_Set.Textures (Which).Object := Now;
@@ -105,7 +105,7 @@ is
function Texture (in_Set : in Item; Which : texture_ID) return openGL.Texture.Object function Texture (in_Set : in Item; Which : texture_ID := 1) return openGL.Texture.Object
is is
begin begin
return in_Set.Textures (Which).Object; return in_Set.Textures (Which).Object;
@@ -114,27 +114,27 @@ is
function Texture (in_Set : in Item) return openGL.Texture.Object -- function Texture (in_Set : in Item) return openGL.Texture.Object
is -- is
begin -- begin
return in_Set.Textures (1).Object; -- return in_Set.Textures (1).Object;
end Texture; -- end Texture;
--
--
--
--
procedure Texture_is (in_Set : in out Item; Now : in openGL.Texture.Object) -- procedure Texture_is (in_Set : in out Item; Now : in openGL.Texture.Object)
is -- is
begin -- begin
in_Set.Textures (1).Object := Now; -- in_Set.Textures (1).Object := Now;
in_Set.is_Transparent := in_Set.is_Transparent -- in_Set.is_Transparent := in_Set.is_Transparent
or Now .is_Transparent; -- or Now .is_Transparent;
--
if in_Set.Count = 0 -- if in_Set.Count = 0
then -- then
in_Set.Count := 1; -- in_Set.Count := 1;
end if; -- end if;
end Texture_is; -- end Texture_is;