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

opengl.renderer.lean: Add an 'add' procedure to allow manually managing light id's.

Browse Source
This commit is contained in:
Rod Kay
2024-03-10 14:25:05 +11:00
parent ccfaff517b
commit 66b60b5f8e
2 changed files with 8 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

7
3-mid/opengl/source/lean/renderer/opengl-renderer-lean.adb
View File

@@ -1066,6 +1066,13 @@ is
end new_Light; end new_Light;
procedure add (Self : in out Item; the_Light : in openGL.Light.item)
is
begin
Self.Lights.add (the_Light);
end add;
procedure set (Self : in out Item; the_Light : in openGL.Light.item) procedure set (Self : in out Item; the_Light : in openGL.Light.item)
is is
begin begin

1
3-mid/opengl/source/lean/renderer/opengl-renderer-lean.ads
View File

@@ -43,6 +43,7 @@ is
-- --
function new_Light (Self : in out Item) return Light.item; function new_Light (Self : in out Item) return Light.item;
procedure add (Self : in out Item; the_Light : in Light.item);
procedure set (Self : in out Item; the_Light : in Light.item); procedure set (Self : in out Item; the_Light : in Light.item);
procedure rid (Self : in out Item; the_Light : in Light.item); procedure rid (Self : in out Item; the_Light : in Light.item);
function Light (Self : in out Item; Id : in light.Id_t) return openGL.Light.item; function Light (Self : in out Item; Id : in light.Id_t) return openGL.Light.item;