|
|
@@ -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, |
|
|
|