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

opengl.texture_set: Cosmetics.

Browse Source
This commit is contained in:
Rod Kay
2025-09-25 15:28:47 +10:00
parent 5a003202bf
commit 914c096e9f
3 changed files with 13 additions and 67 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@@ -71,36 +71,6 @@ is
--------
--- Item
--
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;
in_Set.is_Transparent := in_Set.is_Transparent
or Now .is_Transparent;
if Natural (Which) > in_Set.Count
then
in_Set.Count := Natural (Which);
end if;
end Texture_is;
function Texture (in_Set : in Item; Which : texture_ID := 1) return openGL.Texture.Object
is
begin
return in_Set.Textures (Which).Object;
end Texture;
-----------
--- Streams
--