Work on hinges.

2025-09-05 02:43:49 +10:00
parent 61d6e359ae
commit 7c3ba40482
22 changed files with 2106 additions and 2259 deletions
--- a/3-mid/physics/interface/source/private/box2d/box2d_physics-space.adb
+++ b/3-mid/physics/interface/source/private/box2d/box2d_physics-space.adb
@@ -269,7 +269,6 @@ is
   function new_hinge_Joint (Self : access Item;   Object_A : in physics.Object.view;
                                                   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 (Self.C, Object_A, Frame_A);
   begin
      return the_Joint;