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

Apply gel hinge joint limits when appropriate.

Browse Source
This commit is contained in:
Rod Kay
2025-08-04 14:34:12 +10:00
parent 59d478511e
commit 61d6e359ae
7 changed files with 77 additions and 60 deletions
Download Patch File Download Diff File Expand all files Collapse all files

24
3-mid/physics/implement/box2d/source/c/box2d-joint.cpp
View File

@@ -35,10 +35,8 @@ extern "C"
/// Forge
//
Joint *
b2d_new_hinge_Joint_with_local_anchors
(Space* in_Space,
b2d_new_hinge_Joint_with_local_anchors (Space *in_Space,
Object *Object_A,
Object *Object_B,
Vector_3 *Anchor_in_A,
@@ -99,10 +97,26 @@ b2d_new_hinge_Joint (Space* in_Space,
Joint*
b2d_new_space_hinge_Joint (Object* Object_A,
b2d_new_space_hinge_Joint (Space* in_Space,
Object* Object_A,
Matrix_4x4* Frame_A)
{
return 0;
b2RevoluteJointDef* Self = new b2RevoluteJointDef();
b2World* World = (b2World*) in_Space;
b2BodyDef groundDef;
b2Body* Ground = World->CreateBody (&groundDef);
Vector_2 ground_Site = Vector_2 (0.0, 0.0);
// Object* Object_B = b2d_new_Object (&ground_Site,
// 0.0,
// 0.0,
// 0.0,
// b2d_new_Circle (0.1));
Self->bodyA = (b2Body*) Object_A;
Self->bodyB = Ground; // (b2Body*) Object_B;
return (Joint*) dynamic_cast <b2JointDef*> (Self);
}

8
3-mid/physics/implement/box2d/source/c/box2d-joint.h
View File

@@ -16,8 +16,7 @@ extern "C"
/// Forge
//
Joint* b2d_new_hinge_Joint_with_local_anchors
(Space* in_Space,
Joint *b2d_new_hinge_Joint_with_local_anchors (Space *in_Space,
Object *Object_A,
Object *Object_B,
Vector_3 *Anchor_in_A,
@@ -37,7 +36,8 @@ extern "C"
void b2d_free_hinge_Joint (Joint* Self);
Joint* b2d_new_space_hinge_Joint (Object* Object_A,
Joint* b2d_new_space_hinge_Joint (Space* in_Space,
Object* Object_A,
Matrix_4x4* Frame_A);
@@ -67,7 +67,7 @@ extern "C"
//
void* b2d_Joint_user_Data (Joint* Self);
void b2d_Joint_user_Data_is (Joint* Self, void* Now);
// void b2d_Joint_user_Data_is (Joint* Self, void* Now);
Object* b2d_Joint_Object_A (Joint* Self);
Object* b2d_Joint_Object_B (Joint* Self);

7
3-mid/physics/interface/source/private/box2d/box2d_physics-joint.adb
View File

@@ -765,7 +765,9 @@ is
end new_hinge_Joint;
function new_hinge_Joint (Object_A : in physics.Object.view;
function new_hinge_Joint (in_Space : in box2d_c.Pointers.Space_Pointer;
Object_A : in physics.Object.view;
Frame_A : in Matrix_4x4) return physics.Joint.hinge.view
is
use type box2d_physics.Object.view;
@@ -775,7 +777,8 @@ is
c_Object_A : constant box2d_C.Pointers.Object_Pointer := box2d_physics.Object.view (Object_A).C;
c_Frame_A : aliased c_math_c.Matrix_4x4.item := +Frame_A;
begin
Self.C := b2d_new_space_hinge_Joint (c_Object_A,
Self.C := b2d_new_space_hinge_Joint (in_Space,
c_Object_A,
c_Frame_A'unchecked_Access);
return Self;
end new_hinge_Joint;

3
3-mid/physics/interface/source/private/box2d/box2d_physics-joint.ads
View File

@@ -51,7 +51,8 @@ is
low_Limit, high_Limit : in math.Real;
collide_Conected : in Boolean) return physics.Joint.hinge.view;
function new_hinge_Joint (Object_A : in physics.Object.view;
function new_hinge_Joint (in_Space : in box2d_c.Pointers.Space_Pointer;
Object_A : in physics.Object.view;
Frame_A : in Matrix_4x4) return physics.Joint.hinge.view;

2
3-mid/physics/interface/source/private/box2d/box2d_physics-space.adb
View File

@@ -270,7 +270,7 @@ is
Frame_A : in Matrix_4x4) return physics.Joint.hinge.view
is
pragma unreferenced (Self);
the_Joint : constant physics.Joint.hinge.view := box2d_physics.Joint.new_hinge_Joint (Object_A, Frame_A);
the_Joint : constant physics.Joint.hinge.view := box2d_physics.Joint.new_hinge_Joint (Self.C, Object_A, Frame_A);
begin
return the_Joint;
end new_hinge_Joint;

1
4-high/gel/source/gel-sprite.adb
View File

@@ -973,7 +973,6 @@ is
pivot_Anchor => pivot_Anchor);
the_Joint.Limits_are (low_Limit, high_Limit);
Self.attach (the_Child, the_Joint.all'Access);
new_Joint := the_Joint.all'Access;