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

5
4-high/gel/applet/demo/sprite/chains_2d/launch_chains_2d.adb
View File

@@ -26,6 +26,7 @@ is
space_Kind => physics.Box2D);
the_Ground : constant gel.Sprite.view := new_rectangle_Sprite (the_Applet.gui_World,
Name => "the_Ground",
Mass => 0.0,
Width => 100.0,
Height => 1.0,
@@ -43,8 +44,8 @@ begin
--
declare
ball_Count : constant := 39;
the_root_Ball : constant gel.Sprite.view := new_circle_Sprite (the_Applet.gui_World, Mass => 0.0);
the_Balls : constant gel.Sprite.views := [1 .. ball_Count => new_circle_Sprite (the_Applet.gui_World, Mass => 1.0)];
the_root_Ball : constant gel.Sprite.view := new_circle_Sprite (the_Applet.gui_World, Name => "the_root_Ball", Mass => 0.0);
the_Balls : constant gel.Sprite.views := [1 .. ball_Count => new_circle_Sprite (the_Applet.gui_World, Name => "the_Balls", Mass => 1.0)];
Parent : gel.Sprite.view := the_root_Ball;
new_Joint : gel.Joint .view;