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

227
4-high/gel/applet/demo/sprite/mixed_joints_2d/launch_mixed_joints_2d.adb Normal file
View File

@@ -0,0 +1,227 @@
with
gel.Window.setup,
gel.Applet.gui_world,
gel.Forge,
gel.Sprite,
gel.Joint,
opengl.Palette,
Physics,
ada.Text_IO,
ada.Exceptions;
pragma unreferenced (gel.Window.setup);
procedure launch_mixed_Joints_2d
--
-- Drops a variety of shapes a plane terrain.
--
--
is
package Math renames gel.Math;
use openGL,
opengl.Palette,
ada.Text_IO;
the_Applet : constant gel.Applet.gui_World.view := gel.Forge.new_gui_Applet ("Mixed 2D Joints",
1920, 1200,
space_Kind => Physics.Box2D);
Counter : Natural := 0;
begin
the_Applet.gui_World .Gravity_is ([0.0, -10.0, 0.0]);
the_Applet.gui_Camera.Site_is ([0.0, 4.0, 30.0]); -- Position the camera.
the_Applet.Renderer .Background_is (Grey);
the_Applet.enable_simple_Dolly (1); -- Enable user camera control via keyboard.
-- Add joints.
--
declare
use gel.Forge,
Math;
begin
-- Hinge
--
declare
the_hinge_Box_1 : constant gel.Sprite.view := new_circle_Sprite (the_Applet.gui_World, mass => 0.0);
the_hinge_Box_2 : constant gel.Sprite.view := new_circle_Sprite (the_Applet.gui_World, mass => 1.0);
new_Joint : gel. Joint .view;
Frame_A : constant math.Matrix_4x4 := math.Identity_4x4;
Frame_B : constant math.Matrix_4x4 := math.Identity_4x4;
begin
the_hinge_Box_1.Site_is ([ 0.0, 0.0, 0.0]);
the_hinge_Box_2.Site_is ([-10.0, 0.0, 0.0]);
the_hinge_Box_1.attach_via_Hinge (the_Child => the_hinge_Box_2,
Frame_in_parent => Frame_A,
Frame_in_child => Frame_B,
Limits => (0.0, to_Radians (355.0)),
collide_Connected => False,
new_joint => new_Joint);
-- the_hinge_Joint := gel.hinge_Joint .view (new_Joint);
the_Applet.gui_World.add (the_hinge_Box_1, and_children => True);
end;
-- -- DoF6
-- --
-- declare
-- use gel.any_Joint,
-- math.Vectors;
--
-- the_dof6_Box_1 : constant gel.Sprite.local.view := new_box_Sprite (the_Applet.gui_World, mass => 0.0);
-- the_dof6_Box_2 : constant gel.Sprite.local.view := new_box_Sprite (the_Applet.gui_World);
-- the_DoF6_Joint : gel.any_Joint .view := new gel.any_Joint.item;
--
-- Frame_A : math.Matrix_4x4 := math.Identity_4x4;
-- Frame_B : math.Matrix_4x4 := math.Identity_4x4;
-- begin
-- set_Translation (Frame_B, ( 2.0, 2.0, 0.0));
--
-- the_dof6_Joint.define (the_Applet.gui_World.Physics,
-- the_dof6_Box_1, the_dof6_Box_2,
-- Frame_A, Frame_B);
--
-- the_dof6_Box_1.Site_is ((-20.0, 0.0, 0.0));
-- the_dof6_Box_2.Site_is ((-20.0 - 2.0, 0.0, 2.0));
--
-- the_Applet.gui_World.add (the_dof6_Box_1);
-- the_Applet.gui_World.add (the_dof6_Box_2);
-- the_Applet.gui_World.add (the_dof6_Joint.all'Access);
-- end;
--
-- -- Ball
-- --
-- declare
-- use gel.any_Joint,
-- math.Vectors;
--
-- the_ball_Box_1 : constant gel.Sprite.local.view := new_box_Sprite (the_Applet.gui_World, mass => 0.0);
-- the_ball_Box_2 : constant gel.Sprite.local.view := new_box_Sprite (the_Applet.gui_World);
-- the_ball_Joint : gel.ball_Joint .view := new gel.ball_Joint.item;
--
-- Pivot_in_A : math.Vector_3 := (0.0, -1.0, 0.0);
-- Pivot_in_B : math.Vector_3 := (0.0, 1.0, 0.0);
-- begin
-- the_ball_Joint.define (the_Applet.gui_World.Physics,
-- the_ball_Box_1, the_ball_Box_2,
-- Pivot_in_A, Pivot_in_B);
--
-- the_ball_Box_1.Site_is ((-10.0, 0.0, 0.0));
-- the_ball_Box_2.Site_is ((-10.0 - 2.0, 0.0, 2.0));
--
-- the_Applet.gui_World.add (the_ball_Box_1);
-- the_Applet.gui_World.add (the_ball_Box_2);
-- the_Applet.gui_World.add (the_ball_Joint.all'Access);
-- end;
--
-- -- Slider
-- --
-- declare
-- use gel.any_Joint,
-- math.Vectors;
--
-- the_slider_Box_1 : constant gel.Sprite.local.view := new_box_Sprite (the_Applet.gui_World, mass => 0.0);
-- the_slider_Box_2 : constant gel.Sprite.local.view := new_box_Sprite (the_Applet.gui_World);
-- the_slider_Joint : gel.slider_Joint.view := new gel.slider_Joint.item;
--
-- Frame_A : math.Matrix_4x4 := math.Identity_4x4;
-- Frame_B : math.Matrix_4x4 := math.Identity_4x4;
--
-- y_Rot : math.Matrix_3x3 := y_Rotation_from (to_Radians (45.0));
-- x_Rot : math.Matrix_3x3 := x_Rotation_from (to_Radians (45.0));
-- begin
-- set_Translation (Frame_A, ( -4.0, 4.0, -4.0));
-- set_Translation (Frame_B, ( 4.0, 0.0, 0.0));
-- -- set_Rotation (Frame_A, x_Rot);
-- -- set_Rotation (Frame_B, x_Rot);
--
-- the_slider_Joint.define (the_Applet.gui_World.Physics,
-- the_slider_Box_1, the_slider_Box_2,
-- Frame_A, Frame_B);
--
-- the_slider_Box_1.Site_is ((-10.0, 10.0, 0.0));
-- the_slider_Box_2.Site_is ((-10.0 - 2.0, 15.0, 0.0));
--
-- the_Applet.gui_World.add (the_slider_Box_1);
-- the_Applet.gui_World.add (the_slider_Box_2);
-- the_Applet.gui_World.add (the_slider_Joint.all'Access);
-- end;
--
-- -- cone Twist
-- --
-- declare
-- use gel.any_Joint,
-- math.Vectors;
--
-- the_cone_twist_Box_1 : constant gel.Sprite.local.view := new_box_Sprite (the_Applet.gui_World, mass => 0.0);
-- the_cone_twist_Box_2 : constant gel.Sprite.local.view := new_box_Sprite (the_Applet.gui_World);
-- the_cone_twist_Joint : gel.cone_twist_Joint.view := new gel.cone_twist_Joint.item;
--
-- Frame_A : math.Matrix_4x4 := math.Identity_4x4;
-- Frame_B : math.Matrix_4x4 := math.Identity_4x4;
--
-- y_Rot : math.Matrix_3x3 := y_Rotation_from (to_Radians (45.0));
-- x_Rot : math.Matrix_3x3 := x_Rotation_from (to_Radians (45.0));
-- begin
-- -- set_Translation (Frame_A, ( -4.0, 4.0, -4.0));
-- set_Translation (Frame_B, ( 4.0, 0.0, 0.0));
-- -- set_Rotation (Frame_A, x_Rot);
-- -- set_Rotation (Frame_B, x_Rot);
--
-- the_cone_twist_Joint.define (the_Applet.gui_World.Physics,
-- the_cone_twist_Box_1, the_cone_twist_Box_2,
-- Frame_A, Frame_B);
--
-- the_cone_twist_Box_1.Site_is ((10.0, 10.0, 0.0));
-- the_cone_twist_Box_2.Site_is ((10.0 + 2.0, 10.0, 0.0));
--
-- the_Applet.gui_World.add (the_cone_twist_Box_1);
-- the_Applet.gui_World.add (the_cone_twist_Box_2);
-- the_Applet.gui_World.add (the_cone_twist_Joint.all'Access);
-- end;
declare
Added : Boolean := True;
begin
while the_Applet.is_open
loop
Counter := Counter + 1;
-- if false -- Counter mod (1*60) = 0
-- then
-- if Added then
-- the_Applet.gui_World.rid (the_hinge_Joint.all'Access);
-- -- the_Applet.gui_World.rid (the_hinge_Box_1);
-- -- the_Applet.gui_World.rid (the_hinge_Box_2);
-- Added := False;
-- else
-- -- the_Applet.gui_World.add (the_hinge_Box_1);
-- -- the_Applet.gui_World.add (the_hinge_Box_2);
-- the_Applet.gui_World.add (the_hinge_Joint.all'Access);
-- Added := True;
-- end if;
-- end if;
the_Applet.freshen; -- Handle any new events and update the screen.
end loop;
the_Applet.destroy;
end;
end;
exception
when E : others =>
new_Line;
put_Line ("Unhandled exception in main thread !");
put_Line (Ada.Exceptions.Exception_Information (E));
new_Line;
end launch_mixed_Joints_2d;

17
4-high/gel/applet/demo/sprite/mixed_joints_2d/mixed_joints_2d.gpr Normal file
View File

@@ -0,0 +1,17 @@
with
"gel",
"lace_shared";
project mixed_Joints_2D
is
for Object_Dir use "build";
for Exec_Dir use ".";
for Main use ("launch_mixed_joints_2d.adb");
for Languages use ("Ada");
package Ide renames Lace_shared.Ide;
package Builder renames Lace_shared.Builder;
package Compiler renames Lace_shared.Compiler;
package Binder renames Lace_shared.Binder;
end mixed_Joints_2D;