From 30e767bf936ceec47a2d940b831d9192db6859d9 Mon Sep 17 00:00:00 2001
From: xolatile <xolatile@proton.me>
Date: Wed, 20 Mar 2024 08:12:55 -0400
Subject: [PATCH] Ported all rectangle functions...

---
 raylib.ads | 133 ++++++++++++++++++++++++++++++++++++++++++-------------------
 1 file changed, 93 insertions(+), 40 deletions(-)

diff --git a/raylib.ads b/raylib.ads
index f89edd3..fce9017 100644
--- 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,