diff --git a/raylib.ads b/raylib.ads index 69ae85f..7ec67f9 100644 --- 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