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; 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 function get (Id : in openGL.Light.Id_t) return openGL.Light.item
is is
begin begin
@@ -1087,6 +1094,13 @@ is
end rid; 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 function Light (Self : in out Item; Id : in openGL.light.Id_t) return openGL.Light.item
is is
begin begin

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

@@ -46,8 +46,10 @@ is
procedure add (Self : in out Item; the_Light : in 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 fetch (Self : in out Item) return openGL.Light.items; 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;
type context_Setter is access procedure; type context_Setter is access procedure;
type context_Clearer is access procedure; type context_Clearer is access procedure;
@@ -272,7 +274,8 @@ private
procedure set (Light : in openGL.Light.item); procedure set (Light : in openGL.Light.item);
procedure rid (Light : in openGL.Light.item); procedure rid (Light : in openGL.Light.item);
function get (Id : in openGL.light.Id_t) return 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; function fetch return openGL.Light.items;
private private
the_Lights : id_Map_of_light; the_Lights : id_Map_of_light;