diff --git a/raylib.ads b/raylib.ads index c7b9602..69ae85f 100644 --- a/raylib.ads +++ b/raylib.ads @@ -2598,110 +2598,164 @@ package Raylib is Convention => C, External_Name => "DrawPolyLinesEx"; - --~procedure DrawSplineLinear ( - --~Vector2 *points, int pointCount, float thick, Color color - --~) with - --~Import => True, - --~Convention => C, - --~External_Name => ""; - - --~procedure DrawSplineBasis ( - --~Vector2 *points, int pointCount, float thick, Color color - --~) with - --~Import => True, - --~Convention => C, - --~External_Name => ""; + procedure Draw_Spline_Linear ( + Points : access Vector_2D := null; + Point_Count : Natural := 0; + Thickness : Float := 0.0; + Tint : Color := White + ) with + Import => True, + Convention => C, + External_Name => "DrawSplineLinear"; - --~procedure DrawSplineCatmullRom ( - --~Vector2 *points, int pointCount, float thick, Color color - --~) with - --~Import => True, - --~Convention => C, - --~External_Name => ""; + procedure Draw_Spline_Basis ( + Points : access Vector_2D := null; + Point_Count : Natural := 0; + Thickness : Float := 0.0; + Tint : Color := White + ) with + Import => True, + Convention => C, + External_Name => "DrawSplineBasis"; - --~procedure DrawSplineBezierQuadratic ( - --~Vector2 *points, int pointCount, float thick, Color color - --~) with - --~Import => True, - --~Convention => C, - --~External_Name => ""; + procedure Draw_Spline_Catmull_Rom ( + Points : access Vector_2D := null; + Point_Count : Natural := 0; + Thickness : Float := 0.0; + Tint : Color := White + ) with + Import => True, + Convention => C, + External_Name => "DrawSplineCatmullRom"; - --~procedure DrawSplineBezierCubic ( - --~Vector2 *points, int pointCount, float thick, Color color - --~) with - --~Import => True, - --~Convention => C, - --~External_Name => ""; + procedure Draw_Spline_Bezier_Quadratic ( + Points : access Vector_2D := null; + Point_Count : Natural := 0; + Thickness : Float := 0.0; + Tint : Color := White + ) with + Import => True, + Convention => C, + External_Name => "DrawSplineBezierQuadratic"; - --~procedure DrawSplineSegmentLinear ( - --~Vector2 p1, Vector2 p2, float thick, Color color - --~) with - --~Import => True, - --~Convention => C, - --~External_Name => ""; + procedure Draw_Spline_Bezier_Cubic ( + Points : access Vector_2D := null; + Point_Count : Natural := 0; + Thickness : Float := 0.0; + Tint : Color := White + ) with + Import => True, + Convention => C, + External_Name => "DrawSplineBezierCubic"; - --~procedure DrawSplineSegmentBasis ( - --~Vector2 p1, Vector2 p2, Vector2 p3, Vector2 p4, float thick, Color color - --~) with - --~Import => True, - --~Convention => C, - --~External_Name => ""; + procedure Draw_Spline_Segment_Linear ( + From : Vector_2D := (others => 0.0); + To : Vector_2D := (others => 0.0); + Thickness : Float := 0.0; + Tint : Color := White + ) with + Import => True, + Convention => C, + External_Name => "DrawSplineSegmentLinear"; - --~procedure DrawSplineSegmentCatmullRom ( - --~Vector2 p1, Vector2 p2, Vector2 p3, Vector2 p4, float thick, Color color - --~) with - --~Import => True, - --~Convention => C, - --~External_Name => ""; + procedure Draw_Spline_Segment_Basis ( + Point_1 : Vector_2D := (others => 0.0); + Point_2 : Vector_2D := (others => 0.0); + Point_3 : Vector_2D := (others => 0.0); + Point_4 : Vector_2D := (others => 0.0); + Thickness : Float := 0.0; + Tint : Color := White + ) with + Import => True, + Convention => C, + External_Name => "DrawSplineSegmentBasis"; - --~procedure DrawSplineSegmentBezierQuadratic ( - --~Vector2 p1, Vector2 c2, Vector2 p3, float thick, Color color - --~) with - --~Import => True, - --~Convention => C, - --~External_Name => ""; + procedure Draw_Spline_Segment_Catmull_Rom ( + Point_1 : Vector_2D := (others => 0.0); + Point_2 : Vector_2D := (others => 0.0); + Point_3 : Vector_2D := (others => 0.0); + Point_4 : Vector_2D := (others => 0.0); + Thickness : Float := 0.0; + Tint : Color := White + ) with + Import => True, + Convention => C, + External_Name => "DrawSplineSegmentCatmullRom"; - --~procedure DrawSplineSegmentBezierCubic ( - --~Vector2 p1, Vector2 c2, Vector2 c3, Vector2 p4, float thick, Color color - --~) with - --~Import => True, - --~Convention => C, - --~External_Name => ""; + procedure Draw_Spline_Segment_Bezier_Quadratic ( + Point_1 : Vector_2D := (others => 0.0); + Point_2 : Vector_2D := (others => 0.0); + Point_3 : Vector_2D := (others => 0.0); + Thickness : Float := 0.0; + Tint : Color := White + ) with + Import => True, + Convention => C, + External_Name => "DrawSplineSegmentBezierQuadratic"; - --~function Vector2 GetSplinePointLinear ( - --~Vector2 startPos, Vector2 endPos, float t - --~) with - --~Import => True, - --~Convention => C, - --~External_Name => ""; + procedure Draw_Spline_Segment_Bezier_Cubic ( + Point_1 : Vector_2D := (others => 0.0); + Point_2 : Vector_2D := (others => 0.0); + Point_3 : Vector_2D := (others => 0.0); + Point_4 : Vector_2D := (others => 0.0); + Thickness : Float := 0.0; + Tint : Color := White + ) with + Import => True, + Convention => C, + External_Name => "DrawSplineSegmentBezierCubic"; +--~################################################################ + function Get_Spline_Point_Linear ( + From : Vector_2D := (others => 0.0); + To : Vector_2D := (others => 0.0); + Off : Float := 0.0 + ) return Vector_2D with + Import => True, + Convention => C, + External_Name => "GetSplinePointLinear"; - --~function Vector2 GetSplinePointBasis ( - --~Vector2 p1, Vector2 p2, Vector2 p3, Vector2 p4, float t - --~) with - --~Import => True, - --~Convention => C, - --~External_Name => ""; + function Get_Spline_Point_Basis ( + Point_1 : Vector_2D := (others => 0.0); + Point_2 : Vector_2D := (others => 0.0); + Point_3 : Vector_2D := (others => 0.0); + Point_4 : Vector_2D := (others => 0.0); + Off : Float := 0.0 + ) return Vector_2D with + Import => True, + Convention => C, + External_Name => "GetSplinePointBasis"; - --~function Vector2 GetSplinePointCatmullRom ( - --~Vector2 p1, Vector2 p2, Vector2 p3, Vector2 p4, float t - --~) with - --~Import => True, - --~Convention => C, - --~External_Name => ""; + function Get_Spline_Point_Catmull_Rom ( + Point_1 : Vector_2D := (others => 0.0); + Point_2 : Vector_2D := (others => 0.0); + Point_3 : Vector_2D := (others => 0.0); + Point_4 : Vector_2D := (others => 0.0); + Off : Float := 0.0 + ) return Vector_2D with + Import => True, + Convention => C, + External_Name => "GetSplinePointCatmullRom"; - --~function Vector2 GetSplinePointBezierQuad ( - --~Vector2 p1, Vector2 c2, Vector2 p3, float t - --~) with - --~Import => True, - --~Convention => C, - --~External_Name => ""; + function Get_Spline_Point_Bezier_Quad ( + Point_1 : Vector_2D := (others => 0.0); + Point_2 : Vector_2D := (others => 0.0); + Point_3 : Vector_2D := (others => 0.0); + Off : Float := 0.0 + ) return Vector_2D with + Import => True, + Convention => C, + External_Name => "GetSplinePointBezierQuad"; - --~function Vector2 GetSplinePointBezierCubic ( - --~Vector2 p1, Vector2 c2, Vector2 c3, Vector2 p4, float t - --~) with - --~Import => True, - --~Convention => C, - --~External_Name => ""; + function Get_Spline_Point_Bezier_Cubic ( + Point_1 : Vector_2D := (others => 0.0); + Point_2 : Vector_2D := (others => 0.0); + Point_3 : Vector_2D := (others => 0.0); + Point_4 : Vector_2D := (others => 0.0); + Off : Float := 0.0 + ) return Vector_2D with + Import => True, + Convention => C, + External_Name => "GetSplinePointBezierCubic"; --~function bool CheckCollisionRecs ( --~Rectangle rec1, Rectangle rec2