Image loading functions...

diff --git a/raylib.ads b/raylib.ads
index 7ec67f978ce99dee7d5f0926761cb757288d87ae..ead6a71749de81df7247e7e2619eb8e752d35354 100644 (file)
--- a/raylib.ads
+++ b/raylib.ads
@@ -2848,56 +2848,63 @@ package Raylib is
       Import        => True,
       Convention    => C,
       External_Name => "GetCollisionRec";
---~################################################################
-   --~function Image LoadImage (
-      --~const char *fileName
-   --~) with
-      --~Import        => True,
-      --~Convention    => C,
-      --~External_Name => "";
 
-   --~function Image LoadImageRaw (
-      --~const char *fileName, int width, int height, int format, int headerSize
-   --~) with
-      --~Import        => True,
-      --~Convention    => C,
-      --~External_Name => "";
+   function Load_Image (
+      File_Name : String := ""
+   ) return Image with
+      Import        => True,
+      Convention    => C,
+      External_Name => "LoadImage";
 
-   --~function Image LoadImageSvg (
-      --~const char *fileNameOrString, int width, int height
-   --~) with
-      --~Import        => True,
-      --~Convention    => C,
-      --~External_Name => "";
+   function Load_Image_Raw (
+      File_Name   : String  := "";
+      Width       : Natural := 0;
+      Height      : Natural := 0;
+      Format      : Integer := 0;
+      Header_Size : Integer := 0
+   ) return Image with
+      Import        => True,
+      Convention    => C,
+      External_Name => "LoadImageRaw";
 
-   --~function Image LoadImageAnim (
-      --~const char *fileName, int *frames
-   --~) with
-      --~Import        => True,
-      --~Convention    => C,
-      --~External_Name => "";
+   function Load_Image_Svg (
+      File_Name : String := "";
+      Width     : Natural := 0;
+      Height    : Natural := 0
+   ) return Image with
+      Import        => True,
+      Convention    => C,
+      External_Name => "LoadImageSvg";
 
-   --~function Image LoadImageFromMemory (
-      --~const char *fileType, const unsigned char *fileData, int dataSize
-   --~) with
-      --~Import        => True,
-      --~Convention    => C,
-      --~External_Name => "";
+   function Load_Image_Anim (
+      File_Name :        String  := "";
+      Frames    : access Integer := null
+   ) return Image with
+      Import        => True,
+      Convention    => C,
+      External_Name => "LoadImageAnim";
 
-   --~function Image LoadImageFromTexture (
-      --~Texture2D texture
-   --~) with
-      --~Import        => True,
-      --~Convention    => C,
-      --~External_Name => "";
+   function Load_Image_From_Memory (
+      File_Type : String  := "";
+      File_Data : Pointer := null;
+      Data_Size : Natural := 0
+   ) return Image with
+      Import        => True,
+      Convention    => C,
+      External_Name => "LoadImageFromMemory";
 
-   --~function Image LoadImageFromScreen (
-      --~void
-   --~) with
-      --~Import        => True,
-      --~Convention    => C,
-      --~External_Name => "";
+   function Load_Image_From_Texture (
+      Data : Texture := No_Texture
+   ) return Image with
+      Import        => True,
+      Convention    => C,
+      External_Name => "LoadImageFromTexture";
 
+   function Load_Image_From_Screen return Image with
+      Import        => True,
+      Convention    => C,
+      External_Name => "LoadImageFromScreen";
+--~################################################################
    --~function bool IsImageReady (
       --~Image image
    --~) with