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

Add initial prototype.

Browse Source
This commit is contained in:
Rod Kay
2022-07-31 17:34:54 +10:00
commit 54a53b2ac0
1421 changed files with 358874 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

146
4-high/gel/applet/demo/skinning/human/human_model_v1/human_model_v1.gpr Normal file
View File

@@ -0,0 +1,146 @@
with "gel";
project Human_Model_V1
is
for Object_Dir use "build";
for Exec_Dir use ".";
for Main use ("launch_human_model_v1.adb");
for Languages use ("Ada");
type Os_Type is
("Windows_NT", "Linux", "MacOSX");
Os : Os_Type := external ("OS");
type Restrictions is
("xgc", "ravenscar");
Restrictions : Restrictions := external ("restrictions");
type Platform is
("egl", "glx");
Opengl_Platform : Platform := external ("opengl_platform");
type Profile is
("safe", "lean", "desk");
Opengl_Profile : Profile := external ("opengl_profile");
package Compiler is
for Default_Switches ("ada") use ("-gnato", "-fstack-check", "-g", "-gnata");
end Compiler;
package Builder is
case Os is
when "Windows_NT" =>
when "Linux" =>
case Restrictions is
when "xgc" =>
case Opengl_Platform is
when "egl" =>
when "glx" =>
case Opengl_Profile is
when "safe" =>
when "lean" =>
for Default_Switches ("ada") use ("-j13", "-g", "-k");
when "desk" =>
for Default_Switches ("ada") use ("-j13", "-k", "-g");
end case;
end case;
when "ravenscar" =>
end case;
when "MacOSX" =>
end case;
end Builder;
package Binder is
case Os is
when "Windows_NT" =>
when "Linux" =>
case Restrictions is
when "xgc" =>
case Opengl_Platform is
when "egl" =>
when "glx" =>
case Opengl_Profile is
when "safe" =>
when "lean" =>
for Default_Switches ("ada") use ("-E");
when "desk" =>
for Default_Switches ("ada") use ("-E");
end case;
end case;
when "ravenscar" =>
end case;
when "MacOSX" =>
end case;
end Binder;
package Linker is
case Os is
when "Windows_NT" =>
when "Linux" =>
case Restrictions is
when "xgc" =>
case Opengl_Platform is
when "egl" =>
when "glx" =>
case Opengl_Profile is
when "safe" =>
when "lean" =>
for Default_Switches ("ada") use ("-g", "-lexpat", "-lGL", "-lX11", "-lm");
when "desk" =>
for Default_Switches ("ada") use ("-g", "-lGL", "-lX11", "-lm", "-lexpat");
end case;
end case;
when "ravenscar" =>
end case;
when "MacOSX" =>
end case;
end Linker;
end Human_Model_V1;

139
4-high/gel/applet/demo/skinning/human/human_model_v1/launch_human_model_v1.adb Normal file
View File

@@ -0,0 +1,139 @@
with
gel.Window.setup,
gel.Applet.gui_world,
gel.Camera,
gel.Sprite,
gel.Human_v1,
gel.Forge,
gel.human_Types,
gel.human_Types_v1,
physics.Model,
openGL.Model.box.lit_colored_textured,
openGL.Model.any,
openGL.Model.sphere.lit_colored_textured,
opengl.Palette,
opengl.IO,
float_Math.algebra.linear.d3,
ada.Calendar,
ada.Strings.fixed,
ada.Text_IO,
ada.Exceptions;
procedure launch_human_Model_v1
--
-- Drops an gel human model onto a simple box terrain.
--
--
is
use gel.Applet, openGL.Model.box, gel.Human_v1, gel.human_Types,
openGL, opengl.Palette,
float_Math, float_Math.algebra.linear.d3,
ada.Calendar, ada.Strings, ada.Strings.fixed, ada.Text_IO, ada.Exceptions;
use type math.Real, opengl.Real;
the_Applet : constant gel.Applet.gui_World.view := gel.Forge.new_gui_Applet ("human Model", 1920, 1200);
the_Ground : constant gel.Sprite.view := gel.Forge.new_box_Sprite (the_Applet.gui_World,
mass => 0.0,
size => (50.0, 1.0, 50.0));
-- the_human_graphics_Model : aliased gel.graphics_Model.open_gl.view
-- := gel.graphics_Model.open_gl.forge.new_Model (scale => (1.0, 1.0, 1.0),
-- -- model => gel.to_Asset ("assets/gel/model/gel-human.dae"),
-- model => gel.to_Asset ("assets/gel/collada/mh-human-dae.dae"),
-- -- model => gel.to_Asset ("assets/gel/collada/alfieri.dae"),
-- texture => gel.null_Asset, -- gel.to_Asset ("assets/collada/gel-human-texture.tga"),
-- Texture_is_lucid => False);
-- the_human_physics_Model : constant gel.physics_Model.view
-- := gel.physics_Model.Forge.new_physics_Model (shape_Info => (kind => gel.physics_Model.Cube,
-- half_extents => 0.5 * (4.0, 1.0, 2.0)),
-- mass => 1.0);
-- -- the_human_physics_Model : constant gel.physics_Model.view
-- -- := gel.physics_Model.Forge.new_physics_Model (shape_Info => (kind => gel.physics_Model.a_Sphere,
-- -- sphere_radius => 0.2),
-- -- mass => 0.5);
my_Human : aliased gel.Human_v1.item;
use gel.Human_v1;
next_render_Time : ada.calendar.Time;
begin
gel.Human_v1.Mode_is (Skin);
gel.Human_v1.Mode_is (Bones);
-- gel.Human_v1.Mode_is (Skin_and_Bones);
the_Applet.gui_World.Gravity_is ((0.0, -0.0, 0.0));
-- the_Applet.gui_World.Gravity_is ((0.0, -9.8, 0.0));
-- the_Applet.gui_World.Gravity_is ((0.0, -0.5, 0.0));
-- -- the_Applet.gui_Camera.Site_is ((0.0, 1.0, 5.0)); -- Position the camera
-- the_Applet.gui_Camera.Site_is ((0.0, -9.0, 5.0)); -- Position the camera
the_Applet.gui_Camera.Site_is ((0.0, -0.0, 5.0)); -- Position the camera
the_Applet.enable_simple_Dolly (1); -- Enable user camera control via keyboards
the_Applet.Dolly.Speed_is (0.1);
the_Applet.enable_Mouse (detect_Motion => False); -- Enable mouse events.
-- gel.Human_v1.use_Model ("assets/mh-blender-no_bones.dae");
-- gel.Human_v1.use_Model ("assets/mh-blender-2.dae");
-- gel.Human_v1.use_Model ("assets/mh-blender-2-y_up.dae");
-- gel.Human_v1.use_Model ("assets/human-default.dae");
gel.Human_v1.use_Model ("assets/human-default-animated-01_01.dae");
-- gel.Human_v1.use_Model ("assets/human-new.dae");
-- gel.Human_v1.use_Model ("assets/human-default-1.dae");
-- gel.Human.use_Model ("assets/gel/collada/alfieri.dae");
my_Human.define (the_Applet.gui_World,
null, -- the_human_graphics_Model,
null, -- the_human_physics_Model,
mass => 1.0,
is_Kinematic => False);
-- my_Human.base_Sprite.rotate (to_spin => x_Rotation_from (to_Radians (0.0)));
-- my_Human.base_Sprite.move ((0.0, 2.0, 0.0));
the_Applet.gui_World.add (my_Human.base_Sprite, and_Children => True); -- Add the human
-- my_Human.base_Sprite.move ((0.0, 0.0, 0.0)); --
-- my_Human.skin_Sprite.rotate (to_spin => (x_Rotation_from (to_Radians (0.0))));
-- my_Human.skin_Sprite.move ((0.0, 2.0, 0.0));
the_Applet.gui_World.add (my_Human.skin_Sprite); -- Add human skin.
the_Applet.gui_World.add (the_Ground); -- Add the ground
the_Ground.Site_is ((0.0, -10.0, 0.0)); --
my_Human.motion_Mode_is (gel.Human_v1.Animation);
-- my_Human.enable_Graphics;
-- my_Human.attach_program_Parameters_to_model_Faces;
next_render_Time := ada.Calendar.clock;
while the_Applet.is_open
loop
-- my_Human.base_Sprite.apply_Force ((0.0, 100.0, 0.0));
-- my_Human.Sprite (for_Bone => gel.human_Types_v1.upper_Arm_R).apply_Force ((0.0, 10000.0, 0.0));
-- gel.Human_v1.Sprite (my_Human, for_Bone => gel.human_Types_v1.upper_Arm_R).apply_Force ((0.0, 100.0, 0.0));
the_Applet.gui_World.evolve; -- (by => 1.0/60.0); -- Evolve the world.
my_Human .evolve (the_Applet.gui_World.Age);
the_Applet.freshen; -- Handle any new events and update the screen.
next_render_Time := next_render_Time + 1.0/60.0;
delay until next_render_Time;
end loop;
-- opengl.IO.stop_Capture;
the_Applet.destroy;
-- exception
-- when E : others =>
-- put_Line (Exception_Information (E));
end launch_human_Model_v1;