From 66b60b5f8e058c3d1e9bbc8cbc48105fc69b511c Mon Sep 17 00:00:00 2001 From: Rod Kay Date: Sun, 10 Mar 2024 14:25:05 +1100 Subject: [PATCH] opengl.renderer.lean: Add an 'add' procedure to allow manually managing light id's. --- 3-mid/opengl/source/lean/renderer/opengl-renderer-lean.adb | 7 +++++++ 3-mid/opengl/source/lean/renderer/opengl-renderer-lean.ads | 1 + 2 files changed, 8 insertions(+) diff --git a/3-mid/opengl/source/lean/renderer/opengl-renderer-lean.adb b/3-mid/opengl/source/lean/renderer/opengl-renderer-lean.adb index e9d5246..02f1b2f 100644 --- 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 diff --git a/3-mid/opengl/source/lean/renderer/opengl-renderer-lean.ads b/3-mid/opengl/source/lean/renderer/opengl-renderer-lean.ads index f98a214..6a9f11f 100644 --- a/3-mid/opengl/source/lean/renderer/opengl-renderer-lean.ads +++ b/3-mid/opengl/source/lean/renderer/opengl-renderer-lean.ads @@ -43,6 +43,7 @@ is -- 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 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;