Various functions...

diff --git a/raylib.ads b/raylib.ads
index 1821964a6f6e0baf79c1ffb4db593134b56fe58c..63403033fe8ec33b7c97ede77b7db8004d43f71f 100644 (file)
--- a/raylib.ads
+++ b/raylib.ads
@@ -2988,25 +2988,35 @@ package Raylib is
       Convention    => C,
       External_Name => "LoadTexture";
 
-   --~function Texture2D LoadTextureFromImage (Image image) with
-      --~Import        => True,
-      --~Convention    => C,
-      --~External_Name => "";
+   function Load_Texture_From_Image (
+      Data : Image := No_Image
+   ) return Texture with
+      Import        => True,
+      Convention    => C,
+      External_Name => "LoadTextureFromImage";
 
-   --~function TextureCubemap LoadTextureCubemap (Image image, int layout) with
-      --~Import        => True,
-      --~Convention    => C,
-      --~External_Name => "";
+   function Load_Texture_Cubemap (
+      Data   : Image   := No_Image;
+      Layout : Integer := 0
+   ) return Texture with
+      Import        => True,
+      Convention    => C,
+      External_Name => "LoadTextureCubemap";
 
-   --~function RenderTexture2D LoadRenderTexture (int width, int height) with
-      --~Import        => True,
-      --~Convention    => C,
-      --~External_Name => "";
+   function Load_Render_Texture (
+      Width  : Natural := 0;
+      Height : Natural := 0
+   ) return Render_Texture with
+      Import        => True,
+      Convention    => C,
+      External_Name => "LoadRenderTexture";
 
-   --~function bool IsTextureReady (Texture2D texture) with
-      --~Import        => True,
-      --~Convention    => C,
-      --~External_Name => "";
+   function Is_Texture_Ready (
+      Data : Texture := No_Texture
+   ) return Logical with
+      Import        => True,
+      Convention    => C,
+      External_Name => "IsTextureReady";
 
    procedure Unload_Texture (
       Data : Texture := No_Texture
@@ -3121,85 +3131,136 @@ package Raylib is
       Convention    => C,
       External_Name => "DrawTexturePro";
 
-   --~procedure DrawTextureNPatch (Texture2D texture, NPatchInfo nPatchInfo, Rectangle dest, Vector2 origin, float rotation, Color tint) with
-      --~Import        => True,
-      --~Convention    => C,
-      --~External_Name => "";
+   procedure Draw_Texture_NPatch (
+      Data        : Texture     := No_Texture;
+      -- ERROR NPatch_Info : NPatch_Info := No_NPatch_Info;
+      Destination : Rectangle   := No_Rectangle;
+      Origin      : Vector_2D   := (others => 0.0);
+      Rotation    : Float       := 0.0;
+      Tint        : Color       := White
+   ) with
+      Import        => True,
+      Convention    => C,
+      External_Name => "DrawTextureNPatch";
 
-   --~function Color Fade (Color color, float alpha) with
-      --~Import        => True,
-      --~Convention    => C,
-      --~External_Name => "";
+   function Fade (
+      Data  : Color := White;
+      Alpha : Float := 0.0
+   ) return Color with
+      Import        => True,
+      Convention    => C,
+      External_Name => "Fade";
 
-   --~function int ColorToInt (Color color) with
-      --~Import        => True,
-      --~Convention    => C,
-      --~External_Name => "";
+   function Color_To_Integer (
+      Data : Color := White
+   ) return Integer with
+      Import        => True,
+      Convention    => C,
+      External_Name => "ColorToInt";
 
-   --~function Vector4 ColorNormalize (Color color) with
-      --~Import        => True,
-      --~Convention    => C,
-      --~External_Name => "";
+   function Color_Normalize (
+      Data : Color := White
+   ) return Vector_4D with
+      Import        => True,
+      Convention    => C,
+      External_Name => "ColorNormalize";
 
-   --~function Color ColorFromNormalized (Vector4 normalized) with
-      --~Import        => True,
-      --~Convention    => C,
-      --~External_Name => "";
+   function Color_From_Normalized (
+      Normalized : Vector_4D := (others => 0.0)
+   ) return Color with
+      Import        => True,
+      Convention    => C,
+      External_Name => "ColorFromNormalized";
 
-   --~function Vector3 ColorToHSV (Color color) with
-      --~Import        => True,
-      --~Convention    => C,
-      --~External_Name => "";
+   function Color_To_HSV (
+      Data : Color := White
+   ) return Vector_3D with
+      Import        => True,
+      Convention    => C,
+      External_Name => "ColorToHSV";
 
-   --~function Color ColorFromHSV (float hue, float saturation, float value) with
-      --~Import        => True,
-      --~Convention    => C,
-      --~External_Name => "";
+   function Color_From_HSV (
+      Hue        : Float := 0.0;
+      Saturation : Float := 0.0;
+      Value      : Float := 0.0
+   ) return Color with
+      Import        => True,
+      Convention    => C,
+      External_Name => "ColorFromHSV";
 
-   --~function Color ColorTint (Color color, Color tint) with
-      --~Import        => True,
-      --~Convention    => C,
-      --~External_Name => "";
+   function Color_Tint (
+      Data : Color := White;
+      Tint : Color := Black
+   ) return Color with
+      Import        => True,
+      Convention    => C,
+      External_Name => "ColorTint";
 
-   --~function Color ColorBrightness (Color color, float factor) with
-      --~Import        => True,
-      --~Convention    => C,
-      --~External_Name => "";
+   function Color_Brightness (
+      Data   : Color := White;
+      Factor : Float := 0.0
+   ) return Color with
+      Import        => True,
+      Convention    => C,
+      External_Name => "ColorBrightness";
 
-   --~function Color ColorContrast (Color color, float contrast) with
-      --~Import        => True,
-      --~Convention    => C,
-      --~External_Name => "";
+   function Color_Contrast (
+      Data     : Color := White;
+      Contrast : Float := 0.0
+   ) return Color with
+      Import        => True,
+      Convention    => C,
+      External_Name => "ColorContrast";
 
-   --~function Color ColorAlpha (Color color, float alpha) with
-      --~Import        => True,
-      --~Convention    => C,
-      --~External_Name => "";
+   function Color_Alpha (
+      Data  : Color := White;
+      Alpha : Float := 0.0
+   ) return Color with
+      Import        => True,
+      Convention    => C,
+      External_Name => "ColorAlpha";
 
-   --~function Color ColorAlphaBlend (Color dst, Color src, Color tint) with
-      --~Import        => True,
-      --~Convention    => C,
-      --~External_Name => "";
+   function Color_Alpha_Blend (
+      Destination : Color := White;
+      Source      : Color := Black;
+      Tint        : Color := Ray_White
+   ) return Color with
+      Import        => True,
+      Convention    => C,
+      External_Name => "ColorAlphaBlend";
 
-   --~function Color GetColor (unsigned int hexValue) with
-      --~Import        => True,
-      --~Convention    => C,
-      --~External_Name => "";
+   function Get_Color (
+      Value : Natural := 0
+   ) return Color with
+      Import        => True,
+      Convention    => C,
+      External_Name => "GetColor";
 
-   --~function Color GetPixelColor (void *srcPtr, int format) with
-      --~Import        => True,
-      --~Convention    => C,
-      --~External_Name => "";
+   function Get_Pixel_Color (
+      Source : Pointer := null;
+      Format : Integer := 0
+   ) return Color with
+      Import        => True,
+      Convention    => C,
+      External_Name => "GetPixelColor";
 
-   --~procedure SetPixelColor (void *dstPtr, Color color, int format) with
-      --~Import        => True,
-      --~Convention    => C,
-      --~External_Name => "";
+   procedure Set_Pixel_Color (
+      Destination : Pointer := null;
+      Data        : Color   := White;
+      Format      : Integer := 0
+   ) with
+      Import        => True,
+      Convention    => C,
+      External_Name => "SetPixelColor";
 
-   --~function int GetPixelDataSize (int width, int height, int format) with
-      --~Import        => True,
-      --~Convention    => C,
-      --~External_Name => "";
+   function Get_Pixel_Data_Size (
+      Width  : Natural := 0;
+      Height : Natural := 0;
+      Format : Integer := 0
+   ) return Integer with
+      Import        => True,
+      Convention    => C,
+      External_Name => "GetPixelDataSize";
 
    function Get_Font_Default return Font with
       Import        => True,