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

build_all: Updates.

Browse Source
This commit is contained in:
Rod Kay
2024-06-22 20:32:47 +10:00
parent 0889c6c07c
commit d24de3e1f9
6 changed files with 33 additions and 30 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@@ -47,8 +47,8 @@ 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);
the_hinge_Box_1 : constant gel.Sprite.view := new_circle_Sprite (the_Applet.gui_World, Name => "the_hinge_Box_1", mass => 0.0);
the_hinge_Box_2 : constant gel.Sprite.view := new_circle_Sprite (the_Applet.gui_World, Name => "the_hinge_Box_2", mass => 1.0);
new_Joint : gel. Joint .view;
Frame_A : constant math.Matrix_4x4 := math.Identity_4x4;