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

2024-03-10 14:25:05 +11:00
parent ccfaff517b
commit 66b60b5f8e
2 changed files with 8 additions and 0 deletions
--- a/3-mid/opengl/source/lean/renderer/opengl-renderer-lean.adb
+++ b/3-mid/opengl/source/lean/renderer/opengl-renderer-lean.adb
@@ -1066,6 +1066,13 @@ is
   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)
   is
   begin