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

Ported all rectangle functions...

Browse Source
This commit is contained in:
Ognjen Milan Robovic 2024-03-20 08:12:55 -04:00
parent 2312c3662b
commit 30e767bf93
1 changed files with 93 additions and 40 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

133
raylib.ads
View File

@ -2188,55 +2188,108 @@ package Raylib is
Convention => C,
External_Name => "DrawRectangle";
--~procedure DrawRectangleV (Vector2 position, Vector2 size, Color color) with
--~Import => True,
--~Convention => C,
--~External_Name => "";
procedure Draw_Rectangle_V (
Position : Vector_2D := (0.0, 0.0);
Size : Vector_2D := (0.0, 0.0);
Tint : Color := Black
) with
Import => True,
Convention => C,
External_Name => "DrawRectangleV";
--~procedure DrawRectangleRec (Rectangle rec, Color color) with
--~Import => True,
--~Convention => C,
--~External_Name => "";
procedure Draw_Rectangle_Rec (
Data : Rectangle := No_Rectangle;
Tint : Color := Black
) with
Import => True,
Convention => C,
External_Name => "DrawRectangleRec";
--~procedure DrawRectanglePro (Rectangle rec, Vector2 origin, float rotation, Color color) with
--~Import => True,
--~Convention => C,
--~External_Name => "";
procedure Draw_Rectangle_Pro (
Data : Rectangle := No_Rectangle;
Origin : Vector_2D := (0.0, 0.0);
Rotation : Float := 0.0;
Tint : Color := Black
) with
Import => True,
Convention => C,
External_Name => "DrawRectanglePro";
--~procedure DrawRectangleGradientV (int posX, int posY, int width, int height, Color color1, Color color2) with
--~Import => True,
--~Convention => C,
--~External_Name => "";
procedure Draw_Rectangle_Gradient_V (
X : Integer := 0;
Y : Integer := 0;
Width : Integer := 0;
Height : Integer := 0;
Color_1 : Color := Black;
Color_2 : Color := White
) with
Import => True,
Convention => C,
External_Name => "DrawRectangleGradientV";
--~procedure DrawRectangleGradientH (int posX, int posY, int width, int height, Color color1, Color color2) with
--~Import => True,
--~Convention => C,
--~External_Name => "";
procedure Draw_Rectangle_Gradient_H (
X : Integer := 0;
Y : Integer := 0;
Width : Integer := 0;
Height : Integer := 0;
Color_1 : Color := Black;
Color_2 : Color := White
) with
Import => True,
Convention => C,
External_Name => "DrawRectangleGradientH";
--~procedure DrawRectangleGradientEx (Rectangle rec, Color col1, Color col2, Color col3, Color col4) with
--~Import => True,
--~Convention => C,
--~External_Name => "";
procedure Draw_Rectangle_Gradient_Ex (
Data : Rectangle := No_Rectangle;
Color_1 : Color := Red;
Color_2 : Color := Green;
Color_3 : Color := Blue;
Color_4 : Color := Black
) with
Import => True,
Convention => C,
External_Name => "DrawRectangleGradientEx";
--~procedure DrawRectangleLines (int posX, int posY, int width, int height, Color color) with
--~Import => True,
--~Convention => C,
--~External_Name => "";
procedure Draw_Rectangle_Lines (
X : Integer := 0;
Y : Integer := 0;
Width : Integer := 0;
Height : Integer := 0;
Tint : Color := Black
) with
Import => True,
Convention => C,
External_Name => "DrawRectangleLines";
--~procedure DrawRectangleLinesEx (Rectangle rec, float lineThick, Color color) with
--~Import => True,
--~Convention => C,
--~External_Name => "";
procedure Draw_Rectangle_Lines_Ex (
Data : Rectangle := No_Rectangle;
Thickness : Float := 1.0;
Tint : Color := Black
) with
Import => True,
Convention => C,
External_Name => "DrawRectangleLinesEx";
--~procedure DrawRectangleRounded (Rectangle rec, float roundness, int segments, Color color) with
--~Import => True,
--~Convention => C,
--~External_Name => "";
procedure Draw_Rectangle_Rounded (
Data : Rectangle := No_Rectangle;
Roundness : Float := 1.0;
Segments : Integer := 1;
Tint : Color := Black
) with
Import => True,
Convention => C,
External_Name => "DrawRectangleRounded";
--~procedure DrawRectangleRoundedLines (Rectangle rec, float roundness, int segments, float lineThick, Color color) with
--~Import => True,
--~Convention => C,
--~External_Name => "";
procedure Draw_Rectangle_Rounded_Lines (
Data : Rectangle := No_Rectangle;
Roundness : Float := 1.0;
Segments : Integer := 1;
Thickness : Float := 1.0;
Tint : Color := Black
) with
Import => True,
Convention => C,
External_Name => "DrawRectangleRoundedLines";
--~procedure DrawTriangle (Vector2 v1, Vector2 v2, Vector2 v3, Color color) with
--~Import => True,