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

gel.demos: Update code to use new openGL updates.

Browse Source
This commit is contained in:
Rod Kay
2025-09-14 10:11:21 +10:00
parent d357ce109b
commit 5afee0e2e4
41 changed files with 677 additions and 347 deletions
Download Patch File Download Diff File Expand all files Collapse all files

28
4-high/gel/applet/demo/skinning/rig/box_rig-1_bone/launch_box_rig_1_bone_demo.adb
View File

@@ -6,7 +6,9 @@ with
gel.Forge,
openGL.Model.any,
openGL.Light.directional,
openGL.texture_Set,
openGL.Light,
-- openGL.Light.directional,
ada.Calendar;
@@ -28,12 +30,13 @@ is
--- Variables
--
the_Applet : constant gel.Applet.gui_World.view := gel.Forge.new_gui_Applet ("Rig Demo", 1536, 864);
the_rig_Model : constant openGL.Model.any.view := openGL.Model.any.new_Model (-- Model => openGL.to_Asset ("./box_1_bone.dae"),
the_rig_Model : constant openGL.Model.any.view := openGL.Model.any.new_Model (Model => openGL.to_Asset ("./box_1_bone.dae"),
-- Model => openGL.to_Asset ("./box_1_bone-animated.dae"),
-- Model => openGL.to_Asset ("./box_2_bone.dae"),
-- Model => openGL.to_Asset ("./box_3_bone.dae"),
Model => openGL.to_Asset ("./human-default-animated-01_01.dae"),
-- Model => openGL.to_Asset ("./human-default-animated-01_01.dae"),
Texture => openGL.null_Asset,
texture_Details => openGL.texture_Set.to_Details ([1 => openGL.to_Asset ("assets/gel/Face1.bmp")]),
Texture_is_lucid => False);
the_Rig : gel.Rig.item;
next_render_Time : ada.calendar.Time;
@@ -50,15 +53,20 @@ begin
-- Set the lights position and ambient color.
--
declare
Light : openGL.Light.directional.item := the_Applet.Renderer.Light (Id => 1);
-- Light : openGL.Light.directional.item := the_Applet.Renderer.Light (Id => 1);
Light : openGL.Light.item := the_Applet.Renderer.new_Light;
begin
Light.ambient_Color_is ((255.0 / 255.0,
153.0 / 255.0,
102.0 / 255.0,
1.0));
Light.Site_is ((1000.0, 000.0, 1000.0));
-- Light.ambient_Color_is ((255.0 / 255.0,
-- 153.0 / 255.0,
-- 102.0 / 255.0,
-- 1.0));
Light.Color_is ((255.0 / 255.0,
153.0 / 255.0,
102.0 / 255.0));
Light.Site_is ([1000.0, 000.0, 1000.0]);
the_Applet.Renderer.Light_is (Id => 1, Now => Light);
-- the_Applet.Renderer.Light_is (Id => 1, Now => Light);
the_Applet.Renderer.set (the_Light => Light);
end;