Added texture wrap and target functions...

diff --git a/raylib.ads b/raylib.ads
index 140b52e3bb90e4279928ec2d332b1ad0b5f7dcfd..5be1436fd8c29beeb7289c4869eee4a4278f0108 100644 (file)
--- 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;