Image generating functions...

3 недель назад · 5c89a05bf1
--- 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