Image generating functions...

diff --git a/raylib.ads b/raylib.ads
index 508f6ba37adce87ce3d56746dff7b9606b8f8f9a..12259d94dd12de3749023cfa709c4c76cfc9c2d9 100644 (file)
--- a/raylib.ads
+++ b/raylib.ads
@@ -2944,68 +2944,97 @@ package Raylib is
       Convention    => C,
       External_Name => "ExportImageAsCode";
 
-   --~function Image GenImageColor (
-      --~int width, int height, Color color
-   --~) with
-      --~Import        => True,
-      --~Convention    => C,
-      --~External_Name => "";
+   function Gen_Image_Color (
+      Width  : Natural := 0;
+      Height : Natural := 0;
+      Tint   : Color   := White
+   ) return Image with
+      Import        => True,
+      Convention    => C,
+      External_Name => "GenImageColor";
 
-   --~function Image GenImageGradientLinear (
-      --~int width, int height, int direction, Color start, Color end
-   --~) with
-      --~Import        => True,
-      --~Convention    => C,
-      --~External_Name => "";
+   function Gen_Image_Gradient_Linear (
+      Width     : Natural := 0;
+      Height    : Natural := 0;
+      Direction : Integer := 0;
+      From      : Color   := White;
+      To        : Color   := Black
+   ) return Image with
+      Import        => True,
+      Convention    => C,
+      External_Name => "GenImageGradientLinear";
 
-   --~function Image GenImageGradientRadial (
-      --~int width, int height, float density, Color inner, Color outer
-   --~) with
-      --~Import        => True,
-      --~Convention    => C,
-      --~External_Name => "";
+   function Gen_Image_Gradient_Radial (
+      Width   : Natural := 0;
+      Height  : Natural := 0;
+      Density : Float   := 0.0;
+      Inner   : Color   := White;
+      Outer   : Color   := Black
+   ) return Image with
+      Import        => True,
+      Convention    => C,
+      External_Name => "GenImageGradientRadial";
 
-   --~function Image GenImageGradientSquare (
-      --~int width, int height, float density, Color inner, Color outer
-   --~) with
-      --~Import        => True,
-      --~Convention    => C,
-      --~External_Name => "";
+   function Gen_Image_Gradient_Square (
+      Width   : Natural := 0;
+      Height  : Natural := 0;
+      Density : Float   := 0.0;
+      Inner   : Color   := White;
+      Outer   : Color   := Black
+   ) return Image with
+      Import        => True,
+      Convention    => C,
+      External_Name => "GenImageGradientSquare";
 
-   --~function Image GenImageChecked (
-      --~int width, int height, int checksX, int checksY, Color col1, Color col2
-   --~) with
-      --~Import        => True,
-      --~Convention    => C,
-      --~External_Name => "";
+   function Gen_Image_Checked (
+      Width   : Natural := 0;
+      Height  : Natural := 0;
+      X       : Natural := 0;
+      Y       : Natural := 0;
+      Color_1 : Color   := White;
+      Color_2 : Color   := Black
+   ) return Image with
+      Import        => True,
+      Convention    => C,
+      External_Name => "GenImageChecked";
 
-   --~function Image GenImageWhiteNoise (
-      --~int width, int height, float factor
-   --~) with
-      --~Import        => True,
-      --~Convention    => C,
-      --~External_Name => "";
+   function Gen_Image_White_Noise (
+      Width  : Natural := 0;
+      Height : Natural := 0;
+      Factor : Float   := 0.0
+   ) return Image with
+      Import        => True,
+      Convention    => C,
+      External_Name => "GenImageWhiteNoise";
 
-   --~function Image GenImagePerlinNoise (
-      --~int width, int height, int offsetX, int offsetY, float scale
-   --~) with
-      --~Import        => True,
-      --~Convention    => C,
-      --~External_Name => "";
+   function Gen_Image_Perlin_Noise (
+      Width  : Natural := 0;
+      Height : Natural := 0;
+      X      : Natural := 0;
+      Y      : Natural := 0;
+      Scale  : Float   := 0.0
+   ) return Image with
+      Import        => True,
+      Convention    => C,
+      External_Name => "GenImagePerlinNoise";
 
-   --~function Image GenImageCellular (
-      --~int width, int height, int tileSize
-   --~) with
-      --~Import        => True,
-      --~Convention    => C,
-      --~External_Name => "";
+   function Gen_Image_Cellular (
+      Width  : Natural := 0;
+      Height : Natural := 0;
+      Size   : Natural := 0
+   ) return Image with
+      Import        => True,
+      Convention    => C,
+      External_Name => "GenImageCellular";
 
-   --~function Image GenImageText (
-      --~int width, int height, const char *text
-   --~) with
-      --~Import        => True,
-      --~Convention    => C,
-      --~External_Name => "";
+   function Gen_Image_Text (
+      Width  : Natural := 0;
+      Height : Natural := 0;
+      Text   : String  := ""
+   ) return Image with
+      Import        => True,
+      Convention    => C,
+      External_Name => "GenImageText";
 
    --~function Image ImageCopy (
       --~Image image