From 49ccc8d2ee60e9898187ec0d5d2b2dcea9e63ce5 Mon Sep 17 00:00:00 2001
From: xolatile <xolatile@proton.me>
Date: Sun, 24 Mar 2024 07:22:01 -0400
Subject: [PATCH] Added texture wrap and target functions...

---
 raylib.ads | 114 +++++++++++++++++++++++++++++++++++++++----------------------
 1 file changed, 74 insertions(+), 40 deletions(-)

diff --git a/raylib.ads b/raylib.ads
index 140b52e..5be1436 100644
--- a/raylib.ads
+++ b/raylib.ads
@@ -2847,40 +2847,59 @@ package Raylib is
 		Convention    => C,
 		External_Name => "UnloadTexture";
 
-	--~function bool IsRenderTextureReady (RenderTexture2D target) with
-		--~Import        => True,
-		--~Convention    => C,
-		--~External_Name => "";
+	function Is_Render_Texture_Ready (
+		Target : Render_Texture := No_Render_Texture
+	) return Logical with
+		Import        => True,
+		Convention    => C,
+		External_Name => "IsRenderTextureReady";
 
-	--~procedure UnloadRenderTexture (RenderTexture2D target) with
-		--~Import        => True,
-		--~Convention    => C,
-		--~External_Name => "";
+	procedure Unload_Render_Texture (
+		Target : Render_Texture := No_Render_Texture
+	) with
+		Import        => True,
+		Convention    => C,
+		External_Name => "UnloadRenderTexture";
 
-	--~procedure UpdateTexture (Texture2D texture, const void *pixels) with
-		--~Import        => True,
-		--~Convention    => C,
-		--~External_Name => "";
+	procedure Update_Texture (
+		Data   : Texture := No_Texture;
+		Pixels : Pointer := null
+	) with
+		Import        => True,
+		Convention    => C,
+		External_Name => "UpdateTexture";
 
-	--~procedure UpdateTextureRec (Texture2D texture, Rectangle rec, const void *pixels) with
-		--~Import        => True,
-		--~Convention    => C,
-		--~External_Name => "";
+	procedure Update_Texture_Rec (
+		Data   : Texture   := No_Texture;
+		Source : Rectangle := No_Rectangle;
+		Pixels : Pointer   := null
+	) with
+		Import        => True,
+		Convention    => C,
+		External_Name => "UpdateTextureRec";
 
-	--~procedure GenTextureMipmaps (Texture2D *texture) with
-		--~Import        => True,
-		--~Convention    => C,
-		--~External_Name => "";
+	procedure Gen_Texture_Mipmaps (
+		Data : Texture := No_Texture
+	) with
+		Import        => True,
+		Convention    => C,
+		External_Name => "GenTextureMipmaps";
 
-	--~procedure SetTextureFilter (Texture2D texture, int filter) with
-		--~Import        => True,
-		--~Convention    => C,
-		--~External_Name => "";
+	procedure Set_Texture_Filter (
+		Data   : Texture        := No_Texture;
+		Filter : Texture_Filter := Texture_Filter_Point
+	) with
+		Import        => True,
+		Convention    => C,
+		External_Name => "SetTextureFilter";
 
-	--~procedure SetTextureWrap (Texture2D texture, int wrap) with
-		--~Import        => True,
-		--~Convention    => C,
-		--~External_Name => "";
+	procedure Set_Texture_Wrap (
+		Data : Texture      := No_Texture;
+		Wrap : Texture_Wrap := Texture_Wrap_Repeat
+	) with
+		Import        => True,
+		Convention    => C,
+		External_Name => "SetTextureWrap";
 
 	procedure Draw_Texture (
 		Data : Texture := No_Texture;
@@ -2892,20 +2911,35 @@ package Raylib is
 		Convention    => C,
 		External_Name => "DrawTexture";
 
-	--~procedure DrawTextureV (Texture2D texture, Vector2 position, Color tint) with
-		--~Import        => True,
-		--~Convention    => C,
-		--~External_Name => "";
+	procedure Draw_Texture_V (
+		Data     : Texture   := No_Texture;
+		Position : Vector_2D := (0.0, 0.0);
+		Tint     : Color     := White
+	) with
+		Import        => True,
+		Convention    => C,
+		External_Name => "DrawTextureV";
 
-	--~procedure DrawTextureEx (Texture2D texture, Vector2 position, float rotation, float scale, Color tint) with
-		--~Import        => True,
-		--~Convention    => C,
-		--~External_Name => "";
+	procedure Draw_Texture_Ex (
+		Data     : Texture   := No_Texture;
+		Position : Vector_2D := (0.0, 0.0);
+		Rotation : Float     := 0.0;
+		Scale    : Float     := 0.0;
+		Tint     : Color     := White
+	) with
+		Import        => True,
+		Convention    => C,
+		External_Name => "DrawTextureEx";
 
-	--~procedure DrawTextureRec (Texture2D texture, Rectangle source, Vector2 position, Color tint) with
-		--~Import        => True,
-		--~Convention    => C,
-		--~External_Name => "";
+	procedure Draw_Texture_Rec (
+		Data     : Texture   := No_Texture;
+		Source   : Rectangle := No_Rectangle;
+		Position : Vector_2D := (0.0, 0.0);
+		Tint     : Color     := White
+	) with
+		Import        => True,
+		Convention    => C,
+		External_Name => "DrawTextureRec";
 
 	procedure Draw_Texture_Pro (
 		Data        : Texture   := No_Texture;