Image exporting functions...

1 files changed, 35 insertions, 31 deletions

diff --git a/raylib.ads b/raylib.ads
index ead6a71..508f6ba 100644
--- a/raylib.ads
+++ b/raylib.ads
@@ -2904,41 +2904,45 @@ package Raylib is
       Import        => True,
       Convention    => C,
       External_Name => "LoadImageFromScreen";
---~################################################################
-   --~function bool IsImageReady (
-      --~Image image
-   --~) with
-      --~Import        => True,
-      --~Convention    => C,
-      --~External_Name => "";
 
-   --~procedure UnloadImage (
-      --~Image image
-   --~) with
-      --~Import        => True,
-      --~Convention    => C,
-      --~External_Name => "";
+   function Is_Image_Ready (
+      Data : Image := No_Image
+   ) return Logical with
+      Import        => True,
+      Convention    => C,
+      External_Name => "IsImageReady";
 
-   --~function bool ExportImage (
-      --~Image image, const char *fileName
-   --~) with
-      --~Import        => True,
-      --~Convention    => C,
-      --~External_Name => "";
+   procedure Unload_Image (
+      Data : Image := No_Image
+   ) with
+      Import        => True,
+      Convention    => C,
+      External_Name => "UnloadImage";
 
-   --~function unsigned char *ExportImageToMemory (
-      --~Image image, const char *fileType, int *fileSize
-   --~) with
-      --~Import        => True,
-      --~Convention    => C,
-      --~External_Name => "";
+   function Export_Image (
+      Data      : Image  := No_Image;
+      File_Name : String := ""
+   ) return Logical with
+      Import        => True,
+      Convention    => C,
+      External_Name => "ExportImage";
 
-   --~function bool ExportImageAsCode (
-      --~Image image, const char *fileName
-   --~) with
-      --~Import        => True,
-      --~Convention    => C,
-      --~External_Name => "";
+   function Export_Image_To_Memory (
+      Data      :        Image   := No_Image;
+      File_Type :        String  := "";
+      File_Size : access Integer := null
+   ) return Pointer with
+      Import        => True,
+      Convention    => C,
+      External_Name => "ExportImageToMemory";
+
+   function Export_Image_As_Code (
+      Data      : Image  := No_Image;
+      File_Name : String := ""
+   ) return Logical with
+      Import        => True,
+      Convention    => C,
+      External_Name => "ExportImageAsCode";
 
    --~function Image GenImageColor (
       --~int width, int height, Color color