From 5c89a05bf1585542f88e39f1e13103c525c12d51 Mon Sep 17 00:00:00 2001
From: xolatile <xolatile@proton.me>
Date: Tue, 23 Apr 2024 05:33:45 -0400
Subject: [PATCH] Image generating functions...

---
 raylib.ads | 137 +++++++++++++++++++++++++++++++++++++------------------------
 1 file changed, 83 insertions(+), 54 deletions(-)

diff --git a/raylib.ads b/raylib.ads
index 508f6ba..12259d9 100644
--- 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