diff --git a/raylib.ads b/raylib.ads index 1821964..6340303 100644 --- 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,