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

opengl.light: Add a forge.

Browse Source
This commit is contained in:
Rod Kay
2024-03-10 14:23:13 +11:00
parent 96a0b9ad56
commit ccfaff517b
2 changed files with 56 additions and 13 deletions
Download Patch File Download Diff File Expand all files Collapse all files

31
3-mid/opengl/source/lean/light/opengl-light.adb
View File

@@ -1,6 +1,37 @@
package body openGL.Light
is
package body Forge
is
function to_Light (Id : in Id_t := null_Id;
Kind : in Kind_t := Direct;
is_On : in Boolean := True;
Site : in openGL.Site := [0.0, 0.0, 1.0];
Strength : in Intensity := 1.0;
Color : in openGL.Color := (1.0, 1.0, 1.0);
Attenuation : in Real := 0.0;
ambient_Coefficient : in Real := 0.0;
cone_Angle : in Degrees := 90.0;
cone_Direction : in Vector_3 := [0.0, 0.0, -1.0]) return Item
is
begin
return (Id => Id,
Kind => Kind,
On => is_On,
Site => Site,
Color => Color,
Strength => Strength,
Attenuation => Attenuation,
ambient_Coefficient => ambient_Coefficient,
cone_Angle => cone_Angle,
cone_Direction => cone_Direction);
end to_Light;
end Forge;
function Id (Self : in Item) return light.Id_t
is
begin