Ported all rectangle functions...

diff --git a/raylib.ads b/raylib.ads
index f89edd36371ba3a1dbadaf4c299eca222040de89..fce901768c45fbc29cc391eef4291270939e70ad 100644 (file)
--- a/raylib.ads
+++ b/raylib.ads
@@ -2188,55 +2188,108 @@ package Raylib is
                Convention    => C,
                External_Name => "DrawRectangle";
 
-       --~procedure DrawRectangleV (Vector2 position, Vector2 size, Color color) with
-               --~Import        => True,
-               --~Convention    => C,
-               --~External_Name => "";
+       procedure Draw_Rectangle_V (
+               Position : Vector_2D := (0.0, 0.0);
+               Size     : Vector_2D := (0.0, 0.0);
+               Tint     : Color     := Black
+       ) with
+               Import        => True,
+               Convention    => C,
+               External_Name => "DrawRectangleV";
 
-       --~procedure DrawRectangleRec (Rectangle rec, Color color) with
-               --~Import        => True,
-               --~Convention    => C,
-               --~External_Name => "";
+       procedure Draw_Rectangle_Rec (
+               Data : Rectangle := No_Rectangle;
+               Tint : Color     := Black
+       ) with
+               Import        => True,
+               Convention    => C,
+               External_Name => "DrawRectangleRec";
 
-       --~procedure DrawRectanglePro (Rectangle rec, Vector2 origin, float rotation, Color color) with
-               --~Import        => True,
-               --~Convention    => C,
-               --~External_Name => "";
+       procedure Draw_Rectangle_Pro (
+               Data     : Rectangle := No_Rectangle;
+               Origin   : Vector_2D := (0.0, 0.0);
+               Rotation : Float     := 0.0;
+               Tint     : Color     := Black
+       ) with
+               Import        => True,
+               Convention    => C,
+               External_Name => "DrawRectanglePro";
 
-       --~procedure DrawRectangleGradientV (int posX, int posY, int width, int height, Color color1, Color color2) with
-               --~Import        => True,
-               --~Convention    => C,
-               --~External_Name => "";
+       procedure Draw_Rectangle_Gradient_V (
+               X       : Integer := 0;
+               Y       : Integer := 0;
+               Width   : Integer := 0;
+               Height  : Integer := 0;
+               Color_1 : Color   := Black;
+               Color_2 : Color   := White
+       ) with
+               Import        => True,
+               Convention    => C,
+               External_Name => "DrawRectangleGradientV";
 
-       --~procedure DrawRectangleGradientH (int posX, int posY, int width, int height, Color color1, Color color2) with
-               --~Import        => True,
-               --~Convention    => C,
-               --~External_Name => "";
+       procedure Draw_Rectangle_Gradient_H (
+               X       : Integer := 0;
+               Y       : Integer := 0;
+               Width   : Integer := 0;
+               Height  : Integer := 0;
+               Color_1 : Color   := Black;
+               Color_2 : Color   := White
+       ) with
+               Import        => True,
+               Convention    => C,
+               External_Name => "DrawRectangleGradientH";
 
-       --~procedure DrawRectangleGradientEx (Rectangle rec, Color col1, Color col2, Color col3, Color col4) with
-               --~Import        => True,
-               --~Convention    => C,
-               --~External_Name => "";
+       procedure Draw_Rectangle_Gradient_Ex (
+               Data    : Rectangle := No_Rectangle;
+               Color_1 : Color     := Red;
+               Color_2 : Color     := Green;
+               Color_3 : Color     := Blue;
+               Color_4 : Color     := Black
+       ) with
+               Import        => True,
+               Convention    => C,
+               External_Name => "DrawRectangleGradientEx";
 
-       --~procedure DrawRectangleLines (int posX, int posY, int width, int height, Color color) with
-               --~Import        => True,
-               --~Convention    => C,
-               --~External_Name => "";
+       procedure Draw_Rectangle_Lines (
+               X      : Integer := 0;
+               Y      : Integer := 0;
+               Width  : Integer := 0;
+               Height : Integer := 0;
+               Tint   : Color   := Black
+       ) with
+               Import        => True,
+               Convention    => C,
+               External_Name => "DrawRectangleLines";
 
-       --~procedure DrawRectangleLinesEx (Rectangle rec, float lineThick, Color color) with
-               --~Import        => True,
-               --~Convention    => C,
-               --~External_Name => "";
+       procedure Draw_Rectangle_Lines_Ex (
+               Data      : Rectangle := No_Rectangle;
+               Thickness : Float     := 1.0;
+               Tint      : Color     := Black
+       ) with
+               Import        => True,
+               Convention    => C,
+               External_Name => "DrawRectangleLinesEx";
 
-       --~procedure DrawRectangleRounded (Rectangle rec, float roundness, int segments, Color color) with
-               --~Import        => True,
-               --~Convention    => C,
-               --~External_Name => "";
+       procedure Draw_Rectangle_Rounded (
+               Data      : Rectangle := No_Rectangle;
+               Roundness : Float     := 1.0;
+               Segments  : Integer   := 1;
+               Tint      : Color     := Black
+       ) with
+               Import        => True,
+               Convention    => C,
+               External_Name => "DrawRectangleRounded";
 
-       --~procedure DrawRectangleRoundedLines (Rectangle rec, float roundness, int segments, float lineThick, Color color) with
-               --~Import        => True,
-               --~Convention    => C,
-               --~External_Name => "";
+       procedure Draw_Rectangle_Rounded_Lines (
+               Data      : Rectangle := No_Rectangle;
+               Roundness : Float     := 1.0;
+               Segments  : Integer   := 1;
+               Thickness : Float     := 1.0;
+               Tint      : Color     := Black
+       ) with
+               Import        => True,
+               Convention    => C,
+               External_Name => "DrawRectangleRoundedLines";
 
        --~procedure DrawTriangle (Vector2 v1, Vector2 v2, Vector2 v3, Color color) with
                --~Import        => True,