xolatile/raylib-ada
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Finished all non-variadic Raylib 5.1 functions...

Browse Source
This commit is contained in:
Ognjen Milan Robovic 2024-04-23 06:12:48 -04:00
parent 5c89a05bf1
commit ed04c22a0e
1 changed files with 403 additions and 306 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

709
raylib.ads
View File

@ -3036,362 +3036,459 @@ package Raylib is
Convention => C, Convention => C,
External_Name => "GenImageText"; External_Name => "GenImageText";
--~function Image ImageCopy ( function Image_Copy (
--~Image image Data : Image := No_Image
--~) with ) return Image with
--~Import => True, Import => True,
--~Convention => C, Convention => C,
--~External_Name => ""; External_Name => "ImageCopy";
--~function Image ImageFromImage ( function Image_From_Image (
--~Image image, Rectangle rec Data : Image := No_Image;
--~) with Crop : Rectangle := No_Rectangle
--~Import => True, ) return Image with
--~Convention => C, Import => True,
--~External_Name => ""; Convention => C,
External_Name => "ImageFromImage";
--~function Image ImageText ( function Image_Text (
--~const char *text, int fontSize, Color color Text : String := "";
--~) with Font_Size : Natural := 0;
--~Import => True, Tint : Color := Black
--~Convention => C, ) return Image with
--~External_Name => ""; Import => True,
Convention => C,
External_Name => "ImageText";
--~function Image ImageTextEx ( function Image_Text_Ex (
--~Font font, const char *text, float fontSize, float spacing, Color tint Data : Font := No_Font;
--~) with Text : String := "";
--~Import => True, Font_Size : Natural := 0;
--~Convention => C, Spacing : Float := 0.0;
--~External_Name => ""; Tint : Color := Black
) return Image with
Import => True,
Convention => C,
External_Name => "ImageTextEx";
--~procedure ImageFormat ( procedure Image_Format (
--~Image *image, int newFormat Data : access Image := null;
--~) with Format : Integer := 0
--~Import => True, ) with
--~Convention => C, Import => True,
--~External_Name => ""; Convention => C,
External_Name => "ImageFormat";
--~procedure ImageToPOT ( procedure Image_To_POT (
--~Image *image, Color fill Data : access Image := null;
--~) with Fill : Color := White
--~Import => True, ) with
--~Convention => C, Import => True,
--~External_Name => ""; Convention => C,
External_Name => "ImageToPOT";
--~procedure ImageCrop ( procedure Image_Crop (
--~Image *image, Rectangle crop Data : access Image := null;
--~) with Crop : Rectangle := No_Rectangle
--~Import => True, ) with
--~Convention => C, Import => True,
--~External_Name => ""; Convention => C,
External_Name => "ImageCrop";
--~procedure ImageAlphaCrop ( procedure Image_Alpha_Crop (
--~Image *image, float threshold Data : access Image := null;
--~) with Threshold : Float := 0.0
--~Import => True, ) with
--~Convention => C, Import => True,
--~External_Name => ""; Convention => C,
External_Name => "ImageAlphaCrop";
--~procedure ImageAlphaClear ( procedure Image_Alpha_Clear (
--~Image *image, Color color, float threshold Data : access Image := null;
--~) with Tint : Color := White;
--~Import => True, Threshold : Float := 0.0
--~Convention => C, ) with
--~External_Name => ""; Import => True,
Convention => C,
External_Name => "ImageAlphaClear";
--~procedure ImageAlphaMask ( procedure Image_Alpha_Mask (
--~Image *image, Image alphaMask Data : access Image := null;
--~) with Mask : Image := No_Image
--~Import => True, ) with
--~Convention => C, Import => True,
--~External_Name => ""; Convention => C,
External_Name => "ImageAlphaMask";
--~procedure ImageAlphaPremultiply ( procedure Image_Alpha_Premultiply (
--~Image *image Data : access Image := null
--~) with ) with
--~Import => True, Import => True,
--~Convention => C, Convention => C,
--~External_Name => ""; External_Name => "ImageAlphaPremultiply";
--~procedure ImageBlurGaussian ( procedure Image_Blur_Gaussian (
--~Image *image, int blurSize Data : access Image := null;
--~) with Blur : Integer := 0
--~Import => True, ) with
--~Convention => C, Import => True,
--~External_Name => ""; Convention => C,
External_Name => "ImageBlurGaussian";
--~procedure ImageKernelConvolution ( procedure Image_Kernel_Convolution (
--~Image *image, float* kernel, int kernelSize Data : access Image := null;
--~) with Kernel : access Float := null;
--~Import => True, Kernel_Size : Integer := 0
--~Convention => C, ) with
--~External_Name => ""; Import => True,
Convention => C,
External_Name => "ImageKernelConvolution";
--~procedure ImageResize ( procedure Image_Resize (
--~Image *image, int newWidth, int newHeight Data : access Image := null;
--~) with Width : Natural := 0;
--~Import => True, Height : Natural := 0
--~Convention => C, ) with
--~External_Name => ""; Import => True,
Convention => C,
External_Name => "ImageResize";
--~procedure ImageResizeNN ( procedure Image_Resize_NN (
--~Image *image, int newWidth,int newHeight Data : access Image := null;
--~) with Width : Natural := 0;
--~Import => True, Height : Natural := 0
--~Convention => C, ) with
--~External_Name => ""; Import => True,
Convention => C,
External_Name => "ImageResizeNN";
--~procedure ImageResizeCanvas ( procedure Image_Resize_Canvas (
--~Image *image, int newWidth, int newHeight, int offsetX, int offsetY, Color fill Data : access Image := null;
--~) with Width : Natural := 0;
--~Import => True, Height : Natural := 0;
--~Convention => C, X : Integer := 0;
--~External_Name => ""; Y : Integer := 0;
Fill : Color := White
) with
Import => True,
Convention => C,
External_Name => "ImageResizeCanvas";
--~procedure ImageMipmaps ( procedure Image_Mipmaps (
--~Image *image Data : access Image := null
--~) with ) with
--~Import => True, Import => True,
--~Convention => C, Convention => C,
--~External_Name => ""; External_Name => "ImageMipmaps";
--~procedure ImageDither ( procedure Image_Dither (
--~Image *image, int rBpp, int gBpp, int bBpp, int aBpp Data : access Image := null;
--~) with R : Integer := 0;
--~Import => True, G : Integer := 0;
--~Convention => C, B : Integer := 0;
--~External_Name => ""; A : Integer := 0
) with
Import => True,
Convention => C,
External_Name => "ImageDither";
--~procedure ImageFlipVertical ( procedure Image_Flip_Vertical (
--~Image *image Data : access Image := null
--~) with ) with
--~Import => True, Import => True,
--~Convention => C, Convention => C,
--~External_Name => ""; External_Name => "ImageFlipVertical";
--~procedure ImageFlipHorizontal ( procedure Image_Flip_Horizontal (
--~Image *image Data : access Image := null
--~) with ) with
--~Import => True, Import => True,
--~Convention => C, Convention => C,
--~External_Name => ""; External_Name => "ImageFlipHorizontal";
--~procedure ImageRotate ( procedure Image_Rotate (
--~Image *image, int degrees Data : access Image := null;
--~) with Degrees : Integer := 0
--~Import => True, ) with
--~Convention => C, Import => True,
--~External_Name => ""; Convention => C,
External_Name => "ImageRotate";
--~procedure ImageRotateCW ( procedure Image_Rotate_CW (
--~Image *image Data : access Image := null
--~) with ) with
--~Import => True, Import => True,
--~Convention => C, Convention => C,
--~External_Name => ""; External_Name => "ImageRotateCW";
--~procedure ImageRotateCCW ( procedure Image_Rotate_CCW (
--~Image *image Data : access Image := null
--~) with ) with
--~Import => True, Import => True,
--~Convention => C, Convention => C,
--~External_Name => ""; External_Name => "ImageRotateCCW";
--~procedure ImageColorTint ( procedure Image_Color_Tint (
--~Image *image, Color color Data : access Image := null;
--~) with Tint : Color := White
--~Import => True, ) with
--~Convention => C, Import => True,
--~External_Name => ""; Convention => C,
External_Name => "ImageColorTint";
--~procedure ImageColorInvert ( procedure Image_Color_Invert (
--~Image *image Data : access Image := null
--~) with ) with
--~Import => True, Import => True,
--~Convention => C, Convention => C,
--~External_Name => ""; External_Name => "ImageColorInvert";
--~procedure ImageColorGrayscale ( procedure Image_Color_Grayscale (
--~Image *image Data : access Image := null
--~) with ) with
--~Import => True, Import => True,
--~Convention => C, Convention => C,
--~External_Name => ""; External_Name => "ImageColorGrayscale";
--~procedure ImageColorContrast ( procedure Image_Color_Contrast (
--~Image *image, float contrast Data : access Image := null;
--~) with Contrast : Float := 0.0
--~Import => True, ) with
--~Convention => C, Import => True,
--~External_Name => ""; Convention => C,
External_Name => "ImageColorContrast";
--~procedure ImageColorBrightness ( procedure Image_Color_Brightness (
--~Image *image, int brightness Data : access Image := null;
--~) with Brightness : Integer := 0
--~Import => True, ) with
--~Convention => C, Import => True,
--~External_Name => ""; Convention => C,
External_Name => "ImageColorBrightness";
--~procedure ImageColorReplace ( procedure Image_Color_Replace (
--~Image *image, Color color, Color replace Data : access Image := null;
--~) with Color_1 : Color := White;
--~Import => True, Color_2 : Color := Black
--~Convention => C, ) with
--~External_Name => ""; Import => True,
Convention => C,
External_Name => "ImageColorReplace";
--~function Color *LoadImageColors ( function Load_Image_Colors (
--~Image image Data : Image := No_Image
--~) with ) return access Color with
--~Import => True, Import => True,
--~Convention => C, Convention => C,
--~External_Name => ""; External_Name => "LoadImageColors";
--~function Color *LoadImagePalette ( function Load_Image_Palette (
--~Image image, int maxPaletteSize, int *colorCount Data : Image := No_Image;
--~) with Palette_Size : Natural := 0;
--~Import => True, Color_Count : access Integer := null
--~Convention => C, ) return access Color with
--~External_Name => ""; Import => True,
Convention => C,
External_Name => "LoadImagePalette";
--~procedure UnloadImageColors ( procedure Unload_Image_Colors (
--~Color *colors Colors : access Color := null
--~) with ) with
--~Import => True, Import => True,
--~Convention => C, Convention => C,
--~External_Name => ""; External_Name => "UnloadImageColors";
--~procedure UnloadImagePalette ( procedure Unload_Image_Palette (
--~Color *colors Colors : access Color := null
--~) with ) with
--~Import => True, Import => True,
--~Convention => C, Convention => C,
--~External_Name => ""; External_Name => "UnloadImagePalette";
--~function Rectangle GetImageAlphaBorder ( function Get_Image_Alpha_Border (
--~Image image, float threshold Data : Image := No_Image;
--~) with Threshold : Float := 0.0
--~Import => True, ) return Rectangle with
--~Convention => C, Import => True,
--~External_Name => ""; Convention => C,
External_Name => "GetImageAlphaBorder";
--~function Color GetImageColor ( function Get_Image_Color (
--~Image image, int x, int y Data : Image := No_Image;
--~) with X : Integer := 0;
--~Import => True, Y : Integer := 0
--~Convention => C, ) return Color with
--~External_Name => ""; Import => True,
Convention => C,
External_Name => "GetImageColor";
--~procedure ImageClearBackground ( procedure Image_Clear_Background (
--~Image *dst, Color color Destination : access Image := null;
--~) with Tint : Color := White
--~Import => True, ) with
--~Convention => C, Import => True,
--~External_Name => ""; Convention => C,
External_Name => "ImageClearBackground";
--~procedure ImageDrawPixel ( procedure Image_Draw_Pixel (
--~Image *dst, int posX, int posY, Color color Destination : access Image := null;
--~) with X : Integer := 0;
--~Import => True, Y : Integer := 0;
--~Convention => C, Tint : Color := White
--~External_Name => ""; ) with
Import => True,
Convention => C,
External_Name => "ImageDrawPixel";
--~procedure ImageDrawPixelV ( procedure Image_Draw_Pixel_V (
--~Image *dst, Vector2 position, Color color Destination : access Image := null;
--~) with Position : Vector_2D := (others => 0.0);
--~Import => True, Tint : Color := White
--~Convention => C, ) with
--~External_Name => ""; Import => True,
Convention => C,
External_Name => "ImageDrawPixelV";
--~procedure ImageDrawLine ( procedure Image_Draw_Line (
--~Image *dst, int startPosX, int startPosY, int endPosX, int endPosY, Color color Destination : access Image := null;
--~) with From_X : Integer := 0;
--~Import => True, From_Y : Integer := 0;
--~Convention => C, To_X : Integer := 0;
--~External_Name => ""; To_Y : Integer := 0;
Tint : Color := White
) with
Import => True,
Convention => C,
External_Name => "ImageDrawLine";
--~procedure ImageDrawLineV ( procedure Image_Draw_Line_V (
--~Image *dst, Vector2 start, Vector2 end, Color color Destination : access Image := null;
--~) with From : Vector_2D := (others => 0.0);
--~Import => True, To : Vector_2D := (others => 0.0);
--~Convention => C, Tint : Color := White
--~External_Name => ""; ) with
Import => True,
Convention => C,
External_Name => "ImageDrawLineV";
--~procedure ImageDrawCircle ( procedure Image_Draw_Circle (
--~Image *dst, int centerX, int centerY, int radius, Color color Destination : access Image := null;
--~) with Center_X : Integer := 0;
--~Import => True, Center_Y : Integer := 0;
--~Convention => C, Radius : Integer := 0;
--~External_Name => ""; Tint : Color := White
) with
Import => True,
Convention => C,
External_Name => "ImageDrawCircle";
--~procedure ImageDrawCircleV ( procedure Image_Draw_Circle_V (
--~Image *dst, Vector2 center, int radius, Color color Destination : access Image := null;
--~) with Center : Vector_2D := (others => 0.0);
--~Import => True, Radius : Integer := 0;
--~Convention => C, Tint : Color := White
--~External_Name => ""; ) with
Import => True,
Convention => C,
External_Name => "ImageDrawCircleV";
--~procedure ImageDrawCircleLines ( procedure Image_Draw_Circle_Lines (
--~Image *dst, int centerX, int centerY, int radius, Color color Destination : access Image := null;
--~) with Center_X : Integer := 0;
--~Import => True, Center_Y : Integer := 0;
--~Convention => C, Radius : Integer := 0;
--~External_Name => ""; Tint : Color := White
) with
Import => True,
Convention => C,
External_Name => "ImageDrawCircleLines";
--~procedure ImageDrawCircleLinesV ( procedure Image_Draw_Circle_Lines_V (
--~Image *dst, Vector2 center, int radius, Color color Destination : access Image := null;
--~) with Center : Vector_2D := (others => 0.0);
--~Import => True, Radius : Integer := 0;
--~Convention => C, Tint : Color := White
--~External_Name => ""; ) with
Import => True,
Convention => C,
External_Name => "ImageDrawCircleLinesV";
--~procedure ImageDrawRectangle ( procedure Image_Draw_Rectangle (
--~Image *dst, int posX, int posY, int width, int height, Color color Destination : access Image := null;
--~) with X : Integer := 0;
--~Import => True, Y : Integer := 0;
--~Convention => C, Width : Integer := 0;
--~External_Name => ""; Height : Integer := 0;
Tint : Color := White
) with
Import => True,
Convention => C,
External_Name => "ImageDrawRectangle";
--~procedure ImageDrawRectangleV ( procedure Image_Draw_Rectangle_V (
--~Image *dst, Vector2 position, Vector2 size, Color color Destination : access Image := null;
--~) with Position : Vector_2D := (others => 0.0);
--~Import => True, Size : Vector_2D := (others => 0.0);
--~Convention => C, Tint : Color := White
--~External_Name => ""; ) with
Import => True,
Convention => C,
External_Name => "ImageDrawRectangleV";
--~procedure ImageDrawRectangleRec ( procedure Image_Draw_Rectangle_Rec (
--~Image *dst, Rectangle rec, Color color Destination : access Image := null;
--~) with Data : Rectangle := No_Rectangle;
--~Import => True, Tint : Color := White
--~Convention => C, ) with
--~External_Name => ""; Import => True,
Convention => C,
External_Name => "ImageDrawRectangleRec";
--~procedure ImageDrawRectangleLines ( procedure Image_Draw_Rectangle_Lines (
--~Image *dst, Rectangle rec, int thick, Color color Destination : access Image := null;
--~) with Data : Rectangle := No_Rectangle;
--~Import => True, Thick : Integer := 0;
--~Convention => C, Tint : Color := White
--~External_Name => ""; ) with
Import => True,
Convention => C,
External_Name => "ImageDrawRectangleLines";
--~procedure ImageDraw ( procedure Image_Draw (
--~Image *dst, Image src, Rectangle srcRec, Rectangle dstRec, Color tint Destination : access Image := null;
--~) with Source : Image := No_Image;
--~Import => True, From : Rectangle := No_Rectangle;
--~Convention => C, To : Rectangle := No_Rectangle;
--~External_Name => ""; Tint : Color := White
) with
Import => True,
Convention => C,
External_Name => "ImageDraw";
--~procedure ImageDrawText ( procedure Image_Draw_Text (
--~Image *dst, const char *text, int posX, int posY, int fontSize, Color color Destination : access Image := null;
--~) with Text : String := "";
--~Import => True, X : Integer := 0;
--~Convention => C, Y : Integer := 0;
--~External_Name => ""; Font_Size : Integer := 0;
Tint : Color := White
) with
Import => True,
Convention => C,
External_Name => "ImageDrawText";
--~procedure ImageDrawTextEx ( procedure Image_Draw_Text_Ex (
--~Image *dst, Font font, const char *text, Vector2 position, float fontSize, float spacing, Color tint Destination : access Image := null;
--~) with Data : Font := No_Font;
--~Import => True, Text : String := "";
--~Convention => C, Position : Vector_2D := (others => 0.0);
--~External_Name => ""; Font_Size : Float := 0.0;
Spacing : Float := 0.0;
Tint : Color := White
) with
Import => True,
Convention => C,
External_Name => "ImageDrawTextEx";
function Load_Texture ( function Load_Texture (
File_Path : String := "" File_Path : String := ""