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

Work on hinges.

Browse Source
This commit is contained in:
Rod Kay
2025-09-05 02:43:49 +10:00
parent 61d6e359ae
commit 7c3ba40482
22 changed files with 2106 additions and 2259 deletions
Download Patch File Download Diff File Expand all files Collapse all files

40
4-high/gel/source/joint/gel-joint.adb
View File

@@ -61,26 +61,28 @@ is
--- Hinges
--
function local_Anchor_on_A (Self : in Item) return Vector_3
is
begin
return Self.local_Anchor_on_A;
end local_Anchor_on_A;
function local_Anchor_on_B (Self : in Item) return Vector_3
is
begin
return Self.local_Anchor_on_B;
end local_Anchor_on_B;
-- function local_Anchor_on_A (Self : in Item'Class) return Vector_3
-- is
-- begin
-- return Self.Physics.local_Anchor_on_A;
-- -- return Self.local_Anchor_on_A;
-- end local_Anchor_on_A;
--
--
--
-- function local_Anchor_on_B (Self : in Item'Class) return Vector_3
-- is
-- begin
-- return Self.Physics.local_Anchor_on_B;
-- -- return Self.local_Anchor_on_B;
-- end local_Anchor_on_B;
procedure local_Anchor_on_A_is (Self : out Item; Now : in Vector_3)
is
begin
Self.local_Anchor_on_A := Now;
-- Self.local_Anchor_on_A := Now;
if Self.Sprite_A.World /= null
then
@@ -94,7 +96,7 @@ is
procedure local_Anchor_on_B_is (Self : out Item; Now : in Vector_3)
is
begin
Self.local_Anchor_on_B := Now;
-- Self.local_Anchor_on_B := Now;
if Self.Sprite_B.World /= null
then
@@ -120,4 +122,12 @@ is
end reaction_Torque;
function collide_Connected (Self : in Item'Class) return Boolean
is
begin
return Self.Physics.collide_Connected;
end collide_Connected;
end gel.Joint;