physics.box2d.source.thin: Regenerate thin binding with swig.

3-mid/physics/implement/box2d/source/thin/box2d_c-binding.ads

@@ -29,34 +29,34 @@ package box2d_c.Binding is
    function  b2d_new_Circle (Radius : in c_math_c.Real) return box2d_c.Pointers.Shape_Pointer;
 
    function  b2d_new_Polygon (Vertices : in c_math_c.Vector_2.Pointer;
-vertex_Count : in interfaces.c.int) return box2d_c.Pointers.Shape_Pointer;
+                              vertex_Count : in interfaces.c.int) return box2d_c.Pointers.Shape_Pointer;
 
    function  b2d_new_Box (half_Extents : in c_math_c.Vector_3.Pointer) return box2d_c.Pointers.Shape_Pointer;
 
    function  b2d_new_Capsule (Radii : in c_math_c.Vector_2.Pointer;
-Height : in c_math_c.Real) return box2d_c.Pointers.Shape_Pointer;
+                              Height : in c_math_c.Real) return box2d_c.Pointers.Shape_Pointer;
 
    function  b2d_new_Cone (Radius : in c_math_c.Real;
-Height : in c_math_c.Real) return box2d_c.Pointers.Shape_Pointer;
+                           Height : in c_math_c.Real) return box2d_c.Pointers.Shape_Pointer;
 
    function  b2d_new_convex_Hull (Points : in c_math_c.Vector_3.Pointer;
-point_Count : in interfaces.c.int) return box2d_c.Pointers.Shape_Pointer;
+                                  point_Count : in interfaces.c.int) return box2d_c.Pointers.Shape_Pointer;
 
    function  b2d_new_Cylinder (half_Extents : in c_math_c.Vector_3.Pointer) return box2d_c.Pointers.Shape_Pointer;
 
    function  b2d_new_Heightfield (Width : in interfaces.c.int;
-Depth : in interfaces.c.int;
+                                  Depth : in interfaces.c.int;
-Heights : in c_math_c.Pointers.Real_Pointer;
+                                  Heights : in c_math_c.Pointers.Real_Pointer;
-min_Height : in c_math_c.Real;
+                                  min_Height : in c_math_c.Real;
-max_Height : in c_math_c.Real;
+                                  max_Height : in c_math_c.Real;
-Scale : in c_math_c.Vector_3.Pointer) return box2d_c.Pointers.Shape_Pointer;
+                                  Scale : in c_math_c.Vector_3.Pointer) return box2d_c.Pointers.Shape_Pointer;
 
    function  b2d_new_multiSphere (Positions : in c_math_c.Vector_3.Pointer;
-Radii : in c_math_c.Pointers.Real_Pointer;
+                                  Radii : in c_math_c.Pointers.Real_Pointer;
-sphere_Count : in interfaces.c.int) return box2d_c.Pointers.Shape_Pointer;
+                                  sphere_Count : in interfaces.c.int) return box2d_c.Pointers.Shape_Pointer;
 
    function  b2d_new_Plane (Normal : in c_math_c.Vector_3.Pointer;
-Offset : in c_math_c.Real) return box2d_c.Pointers.Shape_Pointer;
+                            Offset : in c_math_c.Real) return box2d_c.Pointers.Shape_Pointer;
 
    function  b2d_new_Sphere (Radius : in c_math_c.Real) return box2d_c.Pointers.Shape_Pointer;
 
@@ -65,125 +65,126 @@ Offset : in c_math_c.Real) return box2d_c.Pointers.Shape_Pointer;
    function  b2d_Shape_user_Data (Self : in box2d_c.Pointers.Shape_Pointer) return swig.void_ptr;
 
    procedure b2d_Shape_user_Data_is (Self : in box2d_c.Pointers.Shape_Pointer;
-Now : in swig.void_ptr);
+                                     Now : in swig.void_ptr);
 
    procedure b2d_shape_Scale_is (Self : in box2d_c.Pointers.Shape_Pointer;
-Now : in c_math_c.Vector_2.Item);
+                                 Now : in c_math_c.Vector_2.Item);
 
    function  b2d_new_Object (Site : in c_math_c.Vector_2.Pointer;
-Mass : in c_math_c.Real;
+                             Mass : in c_math_c.Real;
-Friction : in c_math_c.Real;
+                             Friction : in c_math_c.Real;
-Restitution : in c_math_c.Real;
+                             Restitution : in c_math_c.Real;
-the_Shape : in box2d_c.Pointers.Shape_Pointer) return box2d_c.Pointers.Object_Pointer;
+                             the_Shape : in box2d_c.Pointers.Shape_Pointer) return box2d_c.Pointers.Object_Pointer;
 
    procedure b2d_free_Object (Self : in box2d_c.Pointers.Object_Pointer);
 
    procedure b2d_Object_Scale_is (Self : in box2d_c.Pointers.Object_Pointer;
-Now : in c_math_c.Vector_2.Pointer);
+                                  Now : in c_math_c.Vector_2.Pointer);
 
    function  b2d_Object_Shape (Self : in box2d_c.Pointers.Object_Pointer) return box2d_c.Pointers.Shape_Pointer;
 
    function  b2d_Object_user_Data (Self : in box2d_c.Pointers.Object_Pointer) return swig.void_ptr;
 
    procedure b2d_Object_user_Data_is (Self : in box2d_c.Pointers.Object_Pointer;
-Now : in swig.void_ptr);
+                                      Now : in swig.void_ptr);
 
    function  b2d_Object_Mass (Self : in box2d_c.Pointers.Object_Pointer) return c_math_c.Real;
 
    procedure b2d_Object_Friction_is (Self : in box2d_c.Pointers.Object_Pointer;
-Now : in c_math_c.Real);
+                                     Now : in c_math_c.Real);
 
    procedure b2d_Object_Restitution_is (Self : in box2d_c.Pointers.Object_Pointer;
-Now : in c_math_c.Real);
+                                        Now : in c_math_c.Real);
 
    function  b2d_Object_Site (Self : in box2d_c.Pointers.Object_Pointer) return c_math_c.Vector_3.Item;
 
    procedure b2d_Object_Site_is (Self : in box2d_c.Pointers.Object_Pointer;
-Now : in c_math_c.Vector_3.Pointer);
+                                 Now : in c_math_c.Vector_3.Pointer);
 
    function  b2d_Object_Spin (Self : in box2d_c.Pointers.Object_Pointer) return c_math_c.Matrix_3x3.Item;
 
    procedure b2d_Object_Spin_is (Self : in box2d_c.Pointers.Object_Pointer;
-Now : in c_math_c.Matrix_3x3.Pointer);
+                                 Now : in c_math_c.Matrix_3x3.Pointer);
 
    function  b2d_Object_xy_Spin (Self : in box2d_c.Pointers.Object_Pointer) return c_math_c.Real;
 
    procedure b2d_Object_xy_Spin_is (Self : in box2d_c.Pointers.Object_Pointer;
-Now : in c_math_c.Real);
+                                    Now : in c_math_c.Real);
 
    function  b2d_Object_Transform (Self : in box2d_c.Pointers.Object_Pointer) return c_math_c.Matrix_4x4.Item;
 
    procedure b2d_Object_Transform_is (Self : in box2d_c.Pointers.Object_Pointer;
-Now : in c_math_c.Matrix_4x4.Pointer);
+                                      Now : in c_math_c.Matrix_4x4.Pointer);
 
    function  b2d_Object_Speed (Self : in box2d_c.Pointers.Object_Pointer) return c_math_c.Vector_3.Item;
 
    procedure b2d_Object_Speed_is (Self : in box2d_c.Pointers.Object_Pointer;
-Now : in c_math_c.Vector_3.Pointer);
+                                  Now : in c_math_c.Vector_3.Pointer);
 
    function  b2d_Object_Gyre (Self : in box2d_c.Pointers.Object_Pointer) return c_math_c.Vector_3.Item;
 
    procedure b2d_Object_Gyre_is (Self : in box2d_c.Pointers.Object_Pointer;
-Now : in c_math_c.Vector_3.Pointer);
+                                 Now : in c_math_c.Vector_3.Pointer);
 
    procedure b2d_Object_apply_Force (Self : in box2d_c.Pointers.Object_Pointer;
-Force : in c_math_c.Vector_3.Pointer);
+                                     Force : in c_math_c.Vector_3.Pointer);
 
    procedure b2d_Object_apply_Torque (Self : in box2d_c.Pointers.Object_Pointer;
-Torque : in c_math_c.Vector_3.Pointer);
+                                      Torque : in c_math_c.Vector_3.Pointer);
 
    procedure b2d_Object_apply_Torque_impulse (Self : in box2d_c.Pointers.Object_Pointer;
-Torque : in c_math_c.Vector_3.Pointer);
+                                              Torque : in c_math_c.Vector_3.Pointer);
 
    procedure b2d_dump (Self : in box2d_c.Pointers.Object_Pointer);
 
    function  b2d_new_hinge_Joint_with_local_anchors (in_Space : in box2d_c.Pointers.Space_Pointer;
-Object_A : in box2d_c.Pointers.Object_Pointer;
+                                                     Object_A : in box2d_c.Pointers.Object_Pointer;
-Object_B : in box2d_c.Pointers.Object_Pointer;
+                                                     Object_B : in box2d_c.Pointers.Object_Pointer;
-Anchor_in_A : in c_math_c.Vector_3.Pointer;
+                                                     Anchor_in_A : in c_math_c.Vector_3.Pointer;
-Anchor_in_B : in c_math_c.Vector_3.Pointer;
+                                                     Anchor_in_B : in c_math_c.Vector_3.Pointer;
-low_Limit : in interfaces.c.c_float;
+                                                     low_Limit : in interfaces.c.c_float;
-high_Limit : in interfaces.c.c_float;
+                                                     high_Limit : in interfaces.c.c_float;
-collide_Connected : in swig.bool) return box2d_c.Pointers.Joint_Pointer;
+                                                     collide_Connected : in swig.bool) return box2d_c.Pointers.Joint_Pointer;
 
    function  b2d_new_hinge_Joint (in_Space : in box2d_c.Pointers.Space_Pointer;
-Object_A : in box2d_c.Pointers.Object_Pointer;
+                                  Object_A : in box2d_c.Pointers.Object_Pointer;
-Object_B : in box2d_c.Pointers.Object_Pointer;
+                                  Object_B : in box2d_c.Pointers.Object_Pointer;
-Frame_A : in c_math_c.Matrix_4x4.Pointer;
+                                  Frame_A : in c_math_c.Matrix_4x4.Pointer;
-Frame_B : in c_math_c.Matrix_4x4.Pointer;
+                                  Frame_B : in c_math_c.Matrix_4x4.Pointer;
-low_Limit : in interfaces.c.c_float;
+                                  low_Limit : in interfaces.c.c_float;
-high_Limit : in interfaces.c.c_float;
+                                  high_Limit : in interfaces.c.c_float;
-collide_Connected : in swig.bool) return box2d_c.Pointers.Joint_Pointer;
+                                  collide_Connected : in swig.bool) return box2d_c.Pointers.Joint_Pointer;
 
    procedure b2d_free_hinge_Joint (Self : in box2d_c.Pointers.Joint_Pointer);
 
-   function  b2d_new_space_hinge_Joint (Object_A : in box2d_c.Pointers.Object_Pointer;
+   function  b2d_new_space_hinge_Joint (in_Space : in box2d_c.Pointers.Space_Pointer;
-Frame_A : in c_math_c.Matrix_4x4.Pointer) return box2d_c.Pointers.Joint_Pointer;
+                                        Object_A : in box2d_c.Pointers.Object_Pointer;
+                                        Frame_A : in c_math_c.Matrix_4x4.Pointer) return box2d_c.Pointers.Joint_Pointer;
 
    function  b2d_new_DoF6_Joint (Object_A : in box2d_c.Pointers.Object_Pointer;
-Object_B : in box2d_c.Pointers.Object_Pointer;
+                                 Object_B : in box2d_c.Pointers.Object_Pointer;
-Frame_A : in c_math_c.Matrix_4x4.Pointer;
+                                 Frame_A : in c_math_c.Matrix_4x4.Pointer;
-Frame_B : in c_math_c.Matrix_4x4.Pointer) return box2d_c.Pointers.Joint_Pointer;
+                                 Frame_B : in c_math_c.Matrix_4x4.Pointer) return box2d_c.Pointers.Joint_Pointer;
 
    function  b2d_new_cone_twist_Joint (Object_A : in box2d_c.Pointers.Object_Pointer;
-Object_B : in box2d_c.Pointers.Object_Pointer;
+                                       Object_B : in box2d_c.Pointers.Object_Pointer;
-Frame_A : in c_math_c.Matrix_4x4.Pointer;
+                                       Frame_A : in c_math_c.Matrix_4x4.Pointer;
-Frame_B : in c_math_c.Matrix_4x4.Pointer) return box2d_c.Pointers.Joint_Pointer;
+                                       Frame_B : in c_math_c.Matrix_4x4.Pointer) return box2d_c.Pointers.Joint_Pointer;
 
    function  b2d_new_slider_Joint (Object_A : in box2d_c.Pointers.Object_Pointer;
-Object_B : in box2d_c.Pointers.Object_Pointer;
+                                   Object_B : in box2d_c.Pointers.Object_Pointer;
-Frame_A : in c_math_c.Matrix_4x4.Pointer;
+                                   Frame_A : in c_math_c.Matrix_4x4.Pointer;
-Frame_B : in c_math_c.Matrix_4x4.Pointer) return box2d_c.Pointers.Joint_Pointer;
+                                   Frame_B : in c_math_c.Matrix_4x4.Pointer) return box2d_c.Pointers.Joint_Pointer;
 
    function  b2d_new_ball_Joint (Object_A : in box2d_c.Pointers.Object_Pointer;
-Object_B : in box2d_c.Pointers.Object_Pointer;
+                                 Object_B : in box2d_c.Pointers.Object_Pointer;
-Pivot_in_A : in c_math_c.Vector_3.Pointer;
+                                 Pivot_in_A : in c_math_c.Vector_3.Pointer;
-Pivot_in_B : in c_math_c.Vector_3.Pointer) return box2d_c.Pointers.Joint_Pointer;
+                                 Pivot_in_B : in c_math_c.Vector_3.Pointer) return box2d_c.Pointers.Joint_Pointer;
 
    function  b2d_Joint_user_Data (Self : in box2d_c.Pointers.Joint_Pointer) return swig.void_ptr;
 
    procedure b2d_Joint_user_Data_is (Self : in box2d_c.Pointers.Joint_Pointer;
-Now : in swig.void_ptr);
+                                     Now : in swig.void_ptr);
 
    function  b2d_Joint_Object_A (Self : in box2d_c.Pointers.Joint_Pointer) return box2d_c.Pointers.Object_Pointer;
 
@@ -194,48 +195,48 @@ Now : in swig.void_ptr);
    function  b2d_Joint_Frame_B (Self : in box2d_c.Pointers.Joint_Pointer) return c_math_c.Matrix_4x4.Item;
 
    procedure b2d_Joint_Frame_A_is (Self : in box2d_c.Pointers.Joint_Pointer;
-Now : in c_math_c.Matrix_4x4.Pointer);
+                                   Now : in c_math_c.Matrix_4x4.Pointer);
 
    procedure b2d_Joint_Frame_B_is (Self : in box2d_c.Pointers.Joint_Pointer;
-Now : in c_math_c.Matrix_4x4.Pointer);
+                                   Now : in c_math_c.Matrix_4x4.Pointer);
 
    procedure b2d_Joint_set_local_Anchor (Self : in box2d_c.Pointers.Joint_Pointer;
-is_Anchor_A : in swig.bool;
+                                         is_Anchor_A : in swig.bool;
-local_Anchor : in c_math_c.Vector_3.Pointer);
+                                         local_Anchor : in c_math_c.Vector_3.Pointer);
 
    function  b2d_Joint_is_Limited (Self : in box2d_c.Pointers.Joint_Pointer;
-DoF : in interfaces.c.int) return swig.bool;
+                                   DoF : in interfaces.c.int) return swig.bool;
 
    function  b2d_Joint_Extent (Self : in box2d_c.Pointers.Joint_Pointer;
-DoF : in interfaces.c.int) return swig.bool;
+                               DoF : in interfaces.c.int) return swig.bool;
 
    procedure b2d_Joint_Velocity_is (Self : in box2d_c.Pointers.Joint_Pointer;
-DoF : in interfaces.c.int;
+                                    DoF : in interfaces.c.int;
-Now : in c_math_c.Real);
+                                    Now : in c_math_c.Real);
 
    function  b2d_Joint_reaction_Force (Self : in box2d_c.Pointers.Joint_Pointer) return c_math_c.Vector_3.Item;
 
    function  b2d_Joint_reaction_Torque (Self : in box2d_c.Pointers.Joint_Pointer) return c_math_c.Real;
 
    procedure b2d_Joint_hinge_Limits_are (Self : in box2d_c.Pointers.Joint_Pointer;
-Low : in c_math_c.Real;
+                                         Low : in c_math_c.Real;
-High : in c_math_c.Real);
+                                         High : in c_math_c.Real);
 
    function  b2d_new_Space  return box2d_c.Pointers.Space_Pointer;
 
    procedure b2d_free_Space (Self : in box2d_c.Pointers.Space_Pointer);
 
    procedure b2d_Space_add_Object (Self : in box2d_c.Pointers.Space_Pointer;
-the_Object : in box2d_c.Pointers.Object_Pointer);
+                                   the_Object : in box2d_c.Pointers.Object_Pointer);
 
    procedure b2d_Space_rid_Object (Self : in box2d_c.Pointers.Space_Pointer;
-the_Object : in box2d_c.Pointers.Object_Pointer);
+                                   the_Object : in box2d_c.Pointers.Object_Pointer);
 
    procedure b2d_Space_add_Joint (Self : in box2d_c.Pointers.Space_Pointer;
-the_Joint : in box2d_c.Pointers.Joint_Pointer);
+                                  the_Joint : in box2d_c.Pointers.Joint_Pointer);
 
    procedure b2d_Space_rid_Joint (Self : in box2d_c.Pointers.Space_Pointer;
-the_Joint : in box2d_c.Pointers.Joint_Pointer);
+                                  the_Joint : in box2d_c.Pointers.Joint_Pointer);
 
    function  b2d_b2Joint_user_Data (the_Joint : in box2d_c.Pointers.b2Joint_Pointer) return swig.void_ptr;
 
@@ -246,22 +247,22 @@ the_Joint : in box2d_c.Pointers.Joint_Pointer);
    function  b2d_Space_joint_Element (Cursor : in box2d_c.joint_Cursor.Pointer) return box2d_c.Pointers.b2Joint_Pointer;
 
    procedure b2d_Space_Gravity_is (Self : in box2d_c.Pointers.Space_Pointer;
-Now : in c_math_c.Vector_3.Pointer);
+                                   Now : in c_math_c.Vector_3.Pointer);
 
    procedure b2d_Space_evolve (Self : in box2d_c.Pointers.Space_Pointer;
-By : in interfaces.c.c_float);
+                               By : in interfaces.c.c_float);
 
    function  b2d_Space_cast_Ray (Self : in box2d_c.Pointers.Space_Pointer;
-From : in c_math_c.Vector_3.Pointer;
+                                 From : in c_math_c.Vector_3.Pointer;
-To : in c_math_c.Vector_3.Pointer) return box2d_c.b2d_ray_Collision.Item;
+                                 To : in c_math_c.Vector_3.Pointer) return box2d_c.b2d_ray_Collision.Item;
 
    function  b2d_Space_cast_Point (Self : in box2d_c.Pointers.Space_Pointer;
-Point : in c_math_c.Vector_3.Pointer) return box2d_c.b2d_point_Collision.Item;
+                                   Point : in c_math_c.Vector_3.Pointer) return box2d_c.b2d_point_Collision.Item;
 
    function  b2d_space_contact_Count (Self : in box2d_c.Pointers.Space_Pointer) return interfaces.c.int;
 
    function  b2d_space_Contact (Self : in box2d_c.Pointers.Space_Pointer;
-contact_Id : in interfaces.c.int) return box2d_c.b2d_Contact.Item;
+                                contact_Id : in interfaces.c.int) return box2d_c.b2d_Contact.Item;
 
 
 

3-mid/physics/implement/box2d/source/thin/box2d_c-pointers.ads

@@ -1,13 +1,14 @@
 -- This file is generated by SWIG. Please do not modify by hand.
 --
-with interfaces.C.Pointers,
+with Interfaces.C;
-     System;
+
+use  Interfaces.C;
+with interfaces.C.Pointers;
+with System;
 
 
 
-package box2d_c.Pointers
+package box2d_c.Pointers is
-is
-   use System;
 
 
 
@@ -16,9 +17,9 @@ is
    package C_Shape_Pointers is new interfaces.c.Pointers (Index              => interfaces.c.size_t,
                                                           Element            => box2d_c.Shape,
                                                           element_Array      => box2d_c.Shape_Array,
-                                                          default_Terminator => null_Address);
+                                                          default_Terminator => System.null_Address);
 
-subtype Shape_Pointer is C_Shape_Pointers.Pointer;
+   subtype Shape_Pointer is C_Shape_Pointers.Pointer;
 
    -- Shape_Pointer_Array
    --
@@ -31,9 +32,9 @@ subtype Shape_Pointer is C_Shape_Pointers.Pointer;
    package C_Object_Pointers is new interfaces.c.Pointers (Index              => interfaces.c.size_t,
                                                            Element            => box2d_c.Object,
                                                            element_Array      => box2d_c.Object_Array,
-                                                           default_Terminator => null_Address);
+                                                           default_Terminator => System.null_Address);
 
-subtype Object_Pointer is C_Object_Pointers.Pointer;
+   subtype Object_Pointer is C_Object_Pointers.Pointer;
 
    -- Object_Pointer_Array
    --
@@ -46,9 +47,9 @@ subtype Object_Pointer is C_Object_Pointers.Pointer;
    package C_Joint_Pointers is new interfaces.c.Pointers (Index              => interfaces.c.size_t,
                                                           Element            => box2d_c.Joint,
                                                           element_Array      => box2d_c.Joint_Array,
-                                                          default_Terminator => null_Address);
+                                                          default_Terminator => System.null_Address);
 
-subtype Joint_Pointer is C_Joint_Pointers.Pointer;
+   subtype Joint_Pointer is C_Joint_Pointers.Pointer;
 
    -- Joint_Pointer_Array
    --
@@ -61,9 +62,9 @@ subtype Joint_Pointer is C_Joint_Pointers.Pointer;
    package C_Space_Pointers is new interfaces.c.Pointers (Index              => interfaces.c.size_t,
                                                           Element            => box2d_c.Space,
                                                           element_Array      => box2d_c.Space_Array,
-                                                          default_Terminator => null_Address);
+                                                          default_Terminator => System.null_Address);
 
-subtype Space_Pointer is C_Space_Pointers.Pointer;
+   subtype Space_Pointer is C_Space_Pointers.Pointer;
 
    -- Space_Pointer_Array
    --
@@ -76,9 +77,9 @@ subtype Space_Pointer is C_Space_Pointers.Pointer;
    package C_b2Joint_Pointers is new interfaces.c.Pointers (Index              => interfaces.c.size_t,
                                                             Element            => box2d_c.b2Joint,
                                                             element_Array      => box2d_c.b2Joint_Array,
-                                                            default_Terminator => null_Address);
+                                                            default_Terminator => System.null_Address);
 
-subtype b2Joint_Pointer is C_b2Joint_Pointers.Pointer;
+   subtype b2Joint_Pointer is C_b2Joint_Pointers.Pointer;
 
    -- b2Joint_Pointer_Array
    --
@@ -86,11 +87,4 @@ subtype b2Joint_Pointer is C_b2Joint_Pointers.Pointer;
 
 
 
-
-
-
-
-
-
-
 end box2d_c.Pointers;

3-mid/physics/implement/box2d/source/thin/box2d_c_wrap.cxx

@@ -1329,18 +1329,24 @@ DllExport void * SWIGSTDCALL Ada_b2d_new_space_hinge_Joint (
   ,
 
   void * a_arg2
+  ,
+
+  void * a_arg3
   )
 {
   void * jresult ;
-  Object *arg1 = (Object *) 0 ;
+  Space *arg1 = (Space *) 0 ;
-  Matrix_4x4 *arg2 = (Matrix_4x4 *) 0 ;
+  Object *arg2 = (Object *) 0 ;
+  Matrix_4x4 *arg3 = (Matrix_4x4 *) 0 ;
   Joint *result = 0 ;
 
-  arg1 = (Object *)a_arg1; 
+  arg1 = (Space *)a_arg1;
 
-  arg2 = (Matrix_4x4 *)a_arg2; 
+  arg2 = (Object *)a_arg2;
 
-  result = (Joint *)b2d_new_space_hinge_Joint(arg1,arg2);
+  arg3 = (Matrix_4x4 *)a_arg3;
+
+  result = (Joint *)b2d_new_space_hinge_Joint(arg1,arg2,arg3);
   jresult = (void *) result;
 
 
@@ -1527,26 +1533,26 @@ DllExport void* SWIGSTDCALL Ada_b2d_Joint_user_Data (
 }
 
 
-/* RAK
-DllExport void SWIGSTDCALL Ada_b2d_Joint_user_Data_is (
-  void * a_arg1
-  ,
 
-  void* a_arg2
+// DllExport void SWIGSTDCALL Ada_b2d_Joint_user_Data_is (
-  )
+//   void * a_arg1
-{
+//   ,
-  Joint *arg1 = (Joint *) 0 ;
+//
-  void *arg2 = (void *) 0 ;
+//   void* a_arg2
+//   )
+// {
+//   Joint *arg1 = (Joint *) 0 ;
+//   void *arg2 = (void *) 0 ;
+//
+//   arg1 = (Joint *)a_arg1;
+//
+//   arg2 = (void *)a_arg2;
+//
+//   b2d_Joint_user_Data_is(arg1,arg2);
+//
+//
+// }
 
-  arg1 = (Joint *)a_arg1; 
-  
-  arg2 = (void *)a_arg2; 
-  
-  b2d_Joint_user_Data_is(arg1,arg2);
-  
-  
-}
-*/
 
 
 DllExport void * SWIGSTDCALL Ada_b2d_Joint_Object_A (

4-high/gel/source/joint/gel-hinge_joint.adb

@@ -225,6 +225,8 @@ is
       Self.Softness          := Softness;
       Self.bias_Factor       := bias_Factor;
       Self.relaxation_Factor := relaxation_Factor;
+
+      Self.apply_Limits;
    end Limits_are;