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

opengl.renderer.lean: Add function to check if a light already exists.

Browse Source
This commit is contained in:
Rod Kay
2024-08-20 12:51:57 +10:00
parent e63740494b
commit e8180cd883
2 changed files with 20 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@@ -1029,6 +1029,13 @@ is
end rid;
function Exists (Id : in openGL.light.Id_t) return Boolean
is
begin
return the_Lights.Contains (Id);
end Exists;
function get (Id : in openGL.Light.Id_t) return openGL.Light.item
is
begin
@@ -1087,6 +1094,13 @@ is
end rid;
function Exists (Self : in out Item; Id : in openGL.light.Id_t) return Boolean
is
begin
return Self.Lights.Exists (Id);
end;
function Light (Self : in out Item; Id : in openGL.light.Id_t) return openGL.Light.item
is
begin

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

@@ -46,6 +46,8 @@ is
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 Exists (Self : in out Item; Id : in light.Id_t) return Boolean;
function Light (Self : in out Item; Id : in light.Id_t) return openGL.Light.item;
function fetch (Self : in out Item) return openGL.Light.items;
@@ -272,6 +274,7 @@ private
procedure set (Light : in openGL.Light.item);
procedure rid (Light : in openGL.Light.item);
function Exists (Id : in openGL.light.Id_t) return Boolean;
function get (Id : in openGL.light.Id_t) return openGL.Light.item;
function fetch return openGL.Light.items;
private