All collision functions...

diff --git a/raylib.ads b/raylib.ads
index 69ae85f80cb313115ccdcc1d98527f54662e7799..7ec67f978ce99dee7d5f0926761cb757288d87ae 100644 (file)
--- a/raylib.ads
+++ b/raylib.ads
@@ -2704,7 +2704,7 @@ package Raylib is
       Import        => True,
       Convention    => C,
       External_Name => "DrawSplineSegmentBezierCubic";
---~################################################################
+
    function Get_Spline_Point_Linear (
       From : Vector_2D := (others => 0.0);
       To   : Vector_2D := (others => 0.0);
@@ -2757,76 +2757,98 @@ package Raylib is
       Convention    => C,
       External_Name => "GetSplinePointBezierCubic";
 
-   --~function bool CheckCollisionRecs (
-      --~Rectangle rec1, Rectangle rec2
-   --~) with
-      --~Import        => True,
-      --~Convention    => C,
-      --~External_Name => "";
-
-   --~function bool CheckCollisionCircles (
-      --~Vector2 center1, float radius1, Vector2 center2, float radius2
-   --~) with
-      --~Import        => True,
-      --~Convention    => C,
-      --~External_Name => "";
+   function Check_Collision_Recs (
+      Bound_1 : Rectangle := No_Rectangle;
+      Bound_2 : Rectangle := No_Rectangle
+   ) return Logical with
+      Import        => True,
+      Convention    => C,
+      External_Name => "CheckCollisionRecs";
 
-   --~function bool CheckCollisionCircleRec (
-      --~Vector2 center, float radius, Rectangle rec
-   --~) with
-      --~Import        => True,
-      --~Convention    => C,
-      --~External_Name => "";
+   function Check_Collision_Circles (
+      Center_1 : Vector_2D := (others => 0.0);
+      Radius_1 : Float     := 0.0;
+      Center_2 : Vector_2D := (others => 0.0);
+      Radius_2 : Float     := 0.0
+   ) return Logical with
+      Import        => True,
+      Convention    => C,
+      External_Name => "CheckCollisionCircles";
 
-   --~function bool CheckCollisionPointRec (
-      --~Vector2 point, Rectangle rec
-   --~) with
-      --~Import        => True,
-      --~Convention    => C,
-      --~External_Name => "";
+   function Check_Collision_Circle_Rec (
+      Center : Vector_2D := (others => 0.0);
+      Radius : Float     := 0.0;
+      Bound  : Rectangle := No_Rectangle
+   ) return Logical with
+      Import        => True,
+      Convention    => C,
+      External_Name => "CheckCollisionCircleRec";
 
-   --~function bool CheckCollisionPointCircle (
-      --~Vector2 point, Vector2 center, float radius
-   --~) with
-      --~Import        => True,
-      --~Convention    => C,
-      --~External_Name => "";
+   function Check_Collision_Point_Rec (
+      Point : Vector_2D := (others => 0.0);
+      Bound : Rectangle := No_Rectangle
+   ) return Logical with
+      Import        => True,
+      Convention    => C,
+      External_Name => "CheckCollisionPointRec";
 
-   --~function bool CheckCollisionPointTriangle (
-      --~Vector2 point, Vector2 p1, Vector2 p2, Vector2 p3
-   --~) with
-      --~Import        => True,
-      --~Convention    => C,
-      --~External_Name => "";
+   function Check_Collision_Point_Circle (
+      Point  : Vector_2D := (others => 0.0);
+      Center : Vector_2D := (others => 0.0);
+      Radius : Float     := 0.0
+   ) return Logical with
+      Import        => True,
+      Convention    => C,
+      External_Name => "CheckCollisionPointCircle";
 
-   --~function bool CheckCollisionPointPoly (
-      --~Vector2 point, Vector2 *points, int pointCount
-   --~) with
-      --~Import        => True,
-      --~Convention    => C,
-      --~External_Name => "";
+   function Check_Collision_Point_Triangle (
+      Point      : Vector_2D := (others => 0.0);
+      Triangle_A : Vector_2D := (others => 0.0);
+      Triangle_B : Vector_2D := (others => 0.0);
+      Triangle_C : Vector_2D := (others => 0.0)
+   ) return Logical with
+      Import        => True,
+      Convention    => C,
+      External_Name => "CheckCollisionPointTriangle";
 
-   --~function bool CheckCollisionLines (
-      --~Vector2 startPos1, Vector2 endPos1, Vector2 startPos2, Vector2 endPos2, Vector2 *collisionPoint
-   --~) with
-      --~Import        => True,
-      --~Convention    => C,
-      --~External_Name => "";
+   function Check_Collision_Point_Poly (
+      Point       :        Vector_2D := (others => 0.0);
+      Points      : access Vector_2D := null;
+      Point_Count :        Natural   := 0
+   ) return Logical with
+      Import        => True,
+      Convention    => C,
+      External_Name => "CheckCollisionPointPoly";
 
-   --~function bool CheckCollisionPointLine (
-      --~Vector2 point, Vector2 p1, Vector2 p2, int threshold
-   --~) with
-      --~Import        => True,
-      --~Convention    => C,
-      --~External_Name => "";
+   function Check_Collision_Lines (
+      From_1        :        Vector_2D := (others => 0.0);
+      To_1          :        Vector_2D := (others => 0.0);
+      From_2        :        Vector_2D := (others => 0.0);
+      To_2          :        Vector_2D := (others => 0.0);
+      Intersections : access Vector_2D := null
+   ) return Logical with
+      Import        => True,
+      Convention    => C,
+      External_Name => "CheckCollisionLines";
 
-   --~function Rectangle GetCollisionRec (
-      --~Rectangle rec1, Rectangle rec2
-   --~) with
-      --~Import        => True,
-      --~Convention    => C,
-      --~External_Name => "";
+   function Check_Collision_Point_Line (
+      Point     : Vector_2D := (others => 0.0);
+      From      : Vector_2D := (others => 0.0);
+      To        : Vector_2D := (others => 0.0);
+      Threshold : Natural   := 0
+   ) return Logical with
+      Import        => True,
+      Convention    => C,
+      External_Name => "CheckCollisionPointLine";
 
+   function Get_Collision_Rec (
+      Bound_1 : Rectangle := No_Rectangle;
+      Bound_2 : Rectangle := No_Rectangle
+   ) return Rectangle with
+      Import        => True,
+      Convention    => C,
+      External_Name => "GetCollisionRec";
+--~################################################################
    --~function Image LoadImage (
       --~const char *fileName
    --~) with