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