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

71
3-mid/physics/implement/box2d/source/thin/box2d_c-b2d_contact.ads
View File

@@ -2,84 +2,59 @@
--
with c_math_c.Vector_3;
with Interfaces.C;
use Interfaces.C;
with interfaces.C.Pointers;
use Interfaces.C;
with Interfaces.C.Pointers;
package box2d_c.b2d_Contact is
-- Item
--
type Item is
record
Object_A : access box2d_c.Object;
Object_B : access box2d_c.Object;
Site : aliased c_math_c.Vector_3.Item;
end record;
type Item is record
Object_A : access box2d_c.Object;
Object_B : access box2d_c.Object;
Site : aliased c_math_c.Vector_3.Item;
end record;
-- Item_Array
--
type Item_Array is array (interfaces.C.Size_t range <>) of aliased box2d_c.b2d_Contact.Item;
type Item_Array is
array (Interfaces.C.size_t range <>) of aliased box2d_c.b2d_Contact.Item;
-- Pointer
--
package C_Pointers is new interfaces.c.Pointers (Index => interfaces.c.size_t,
Element => box2d_c.b2d_Contact.Item,
element_Array => box2d_c.b2d_Contact.Item_Array,
default_Terminator => (others => <>));
package C_Pointers is new Interfaces.C.Pointers
(Index => Interfaces.C.size_t, Element => box2d_c.b2d_Contact.Item,
Element_Array => box2d_c.b2d_Contact.Item_Array,
Default_Terminator => (others => <>));
subtype Pointer is C_Pointers.Pointer;
subtype Pointer is C_Pointers.Pointer;
-- Pointer_Array
--
type Pointer_Array is array (interfaces.C.Size_t range <>) of aliased box2d_c.b2d_Contact.Pointer;
type Pointer_Array is
array
(Interfaces.C.size_t range <>) of aliased box2d_c.b2d_Contact.Pointer;
-- Pointer_Pointer
--
package C_Pointer_Pointers is new interfaces.c.Pointers (Index => interfaces.c.size_t,
Element => box2d_c.b2d_Contact.Pointer,
element_Array => box2d_c.b2d_Contact.Pointer_Array,
default_Terminator => null);
package C_Pointer_Pointers is new Interfaces.C.Pointers
(Index => Interfaces.C.size_t, Element => box2d_c.b2d_Contact.Pointer,
Element_Array => box2d_c.b2d_Contact.Pointer_Array,
Default_Terminator => null);
subtype Pointer_Pointer is C_Pointer_Pointers.Pointer;
subtype Pointer_Pointer is C_Pointer_Pointers.Pointer;
function construct return box2d_c.b2d_Contact.Item;
function construct return box2d_c.b2d_Contact.Item;
procedure destruct_0 (Self : in box2d_c.b2d_Contact.Item);
procedure destruct (Self : in box2d_c.b2d_Contact.Item);
private
pragma Import (CPP, construct, "ada_new_b2d_Contact_b2d_Contact");
pragma Import (CPP, destruct_0, "_ZN11b2d_ContactD1Ev");
pragma Import (CPP, destruct, "_ZN11b2d_ContactD1Ev");
end box2d_c.b2d_Contact;