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;