Shape functions and few utility functions...
This commit is contained in:
parent
345ff1de07
commit
027dd77c92
251
raylib.ads
251
raylib.ads
@ -2093,25 +2093,40 @@ package Raylib is
|
||||
Convention => C,
|
||||
External_Name => "UpdateCamera";
|
||||
|
||||
--~procedure UpdateCameraPro (Camera *camera, Vector3 movement, Vector3 rotation, float zoom) with
|
||||
--~Import => True,
|
||||
--~Convention => C,
|
||||
--~External_Name => "";
|
||||
procedure Update_Camera_Pro (
|
||||
Data : access Camera_3D := null;
|
||||
Movement : Vector_3D := (0.0, 0.0, 0.0);
|
||||
Rotation : Vector_3D := (0.0, 0.0, 0.0);
|
||||
Zoom : Float := 0.0
|
||||
) with
|
||||
Import => True,
|
||||
Convention => C,
|
||||
External_Name => "UpdateCameraPro";
|
||||
|
||||
--~procedure SetShapesTexture (Texture2D texture, Rectangle source) with
|
||||
--~Import => True,
|
||||
--~Convention => C,
|
||||
--~External_Name => "";
|
||||
procedure Set_Shapes_Texture (
|
||||
Data : Texture := No_Texture;
|
||||
Source : Rectangle := No_Rectangle
|
||||
) with
|
||||
Import => True,
|
||||
Convention => C,
|
||||
External_Name => "SetShapesTexture";
|
||||
|
||||
--~procedure DrawPixel (int posX, int posY, Color color) with
|
||||
--~Import => True,
|
||||
--~Convention => C,
|
||||
--~External_Name => "";
|
||||
procedure Draw_Pixel (
|
||||
X : Integer := 0;
|
||||
Y : Integer := 0;
|
||||
Tint : Color := White
|
||||
) with
|
||||
Import => True,
|
||||
Convention => C,
|
||||
External_Name => "DrawPixel";
|
||||
|
||||
--~procedure DrawPixelV (Vector2 position, Color color) with
|
||||
--~Import => True,
|
||||
--~Convention => C,
|
||||
--~External_Name => "";
|
||||
procedure Draw_Pixel_V (
|
||||
Position : Vector_2D := (0.0, 0.0);
|
||||
Tint : Color := White
|
||||
) with
|
||||
Import => True,
|
||||
Convention => C,
|
||||
External_Name => "DrawPixelV";
|
||||
|
||||
procedure Draw_Line (
|
||||
X0 : Integer := 0;
|
||||
@ -2124,80 +2139,164 @@ package Raylib is
|
||||
Convention => C,
|
||||
External_Name => "DrawLine";
|
||||
|
||||
--~procedure DrawLineV (Vector2 startPos, Vector2 endPos, Color color) with
|
||||
--~Import => True,
|
||||
--~Convention => C,
|
||||
--~External_Name => "";
|
||||
procedure Draw_Line_V (
|
||||
From : Vector_2D := (0.0, 0.0);
|
||||
To : Vector_2D := (0.0, 0.0);
|
||||
Tint : Color := Black
|
||||
) with
|
||||
Import => True,
|
||||
Convention => C,
|
||||
External_Name => "DrawLineV";
|
||||
|
||||
--~procedure DrawLineEx (Vector2 startPos, Vector2 endPos, float thick, Color color) with
|
||||
--~Import => True,
|
||||
--~Convention => C,
|
||||
--~External_Name => "";
|
||||
procedure Draw_Line_Ex (
|
||||
From : Vector_2D := (0.0, 0.0);
|
||||
To : Vector_2D := (0.0, 0.0);
|
||||
Thick : Float := 0.0;
|
||||
Tint : Color := Black
|
||||
) with
|
||||
Import => True,
|
||||
Convention => C,
|
||||
External_Name => "DrawLineEx";
|
||||
|
||||
--~procedure DrawLineStrip (Vector2 *points, int pointCount, Color color) with
|
||||
--~Import => True,
|
||||
--~Convention => C,
|
||||
--~External_Name => "";
|
||||
procedure Draw_Line_Strip (
|
||||
Points : access Vector_2D := null;
|
||||
Point_Count : Natural := 0;
|
||||
Tint : Color := Black
|
||||
) with
|
||||
Import => True,
|
||||
Convention => C,
|
||||
External_Name => "DrawLineStrip";
|
||||
|
||||
--~procedure DrawLineBezier (Vector2 startPos, Vector2 endPos, float thick, Color color) with
|
||||
--~Import => True,
|
||||
--~Convention => C,
|
||||
--~External_Name => "";
|
||||
procedure Draw_Line_Bezier (
|
||||
From : Vector_2D := (0.0, 0.0);
|
||||
To : Vector_2D := (0.0, 0.0);
|
||||
Thick : Float := 0.0;
|
||||
Tint : Color := Black
|
||||
) with
|
||||
Import => True,
|
||||
Convention => C,
|
||||
External_Name => "DrawLineBezier";
|
||||
|
||||
--~procedure DrawCircle (int centerX, int centerY, float radius, Color color) with
|
||||
--~Import => True,
|
||||
--~Convention => C,
|
||||
--~External_Name => "";
|
||||
procedure Draw_Circle (
|
||||
X : Integer := 0;
|
||||
Y : Integer := 0;
|
||||
Radius : Float := 0.0;
|
||||
Tint : Color := Black
|
||||
) with
|
||||
Import => True,
|
||||
Convention => C,
|
||||
External_Name => "DrawCircle";
|
||||
|
||||
--~procedure DrawCircleSector (Vector2 center, float radius, float startAngle, float endAngle, int segments, Color color) with
|
||||
--~Import => True,
|
||||
--~Convention => C,
|
||||
--~External_Name => "";
|
||||
procedure Draw_Circle_Sector (
|
||||
Center : Vector_2D := (0.0, 0.0);
|
||||
Radius : Float := 0.0;
|
||||
From : Float := 0.0;
|
||||
To : Float := 0.0;
|
||||
Segments : Integer := 0;
|
||||
Tint : Color := Black
|
||||
) with
|
||||
Import => True,
|
||||
Convention => C,
|
||||
External_Name => "DrawCircleSector";
|
||||
|
||||
--~procedure DrawCircleSectorLines (Vector2 center, float radius, float startAngle, float endAngle, int segments, Color color) with
|
||||
--~Import => True,
|
||||
--~Convention => C,
|
||||
--~External_Name => "";
|
||||
procedure Draw_Circle_Sector_Lines (
|
||||
Center : Vector_2D := (0.0, 0.0);
|
||||
Radius : Float := 0.0;
|
||||
From : Float := 0.0;
|
||||
To : Float := 0.0;
|
||||
Segments : Integer := 0;
|
||||
Tint : Color := Black
|
||||
) with
|
||||
Import => True,
|
||||
Convention => C,
|
||||
External_Name => "DrawCircleSectorLines";
|
||||
|
||||
--~procedure DrawCircleGradient (int centerX, int centerY, float radius, Color color1, Color color2) with
|
||||
--~Import => True,
|
||||
--~Convention => C,
|
||||
--~External_Name => "";
|
||||
procedure Draw_Circle_Gradient (
|
||||
X : Integer := 0;
|
||||
Y : Integer := 0;
|
||||
Radius : Float := 0.0;
|
||||
Tint_1 : Color := Black;
|
||||
Tint_2 : Color := White
|
||||
) with
|
||||
Import => True,
|
||||
Convention => C,
|
||||
External_Name => "DrawCircleGradient";
|
||||
|
||||
--~procedure DrawCircleV (Vector2 center, float radius, Color color) with
|
||||
--~Import => True,
|
||||
--~Convention => C,
|
||||
--~External_Name => "";
|
||||
procedure Draw_Circle_V (
|
||||
Center : Vector_2D := (0.0, 0.0);
|
||||
Radius : Float := 0.0;
|
||||
Tint : Color := Black
|
||||
) with
|
||||
Import => True,
|
||||
Convention => C,
|
||||
External_Name => "DrawCircleV";
|
||||
|
||||
--~procedure DrawCircleLines (int centerX, int centerY, float radius, Color color) with
|
||||
--~Import => True,
|
||||
--~Convention => C,
|
||||
--~External_Name => "";
|
||||
procedure Draw_Circle_Lines (
|
||||
X : Integer := 0;
|
||||
Y : Integer := 0;
|
||||
Radius : Float := 0.0;
|
||||
Tint : Color := Black
|
||||
) with
|
||||
Import => True,
|
||||
Convention => C,
|
||||
External_Name => "DrawCircleLines";
|
||||
|
||||
--~procedure DrawCircleLinesV (Vector2 center, float radius, Color color) with
|
||||
--~Import => True,
|
||||
--~Convention => C,
|
||||
--~External_Name => "";
|
||||
procedure Draw_Circle_Lines_V (
|
||||
Center : Vector_2D := (0.0, 0.0);
|
||||
Radius : Float := 0.0;
|
||||
Tint : Color := Black
|
||||
) with
|
||||
Import => True,
|
||||
Convention => C,
|
||||
External_Name => "DrawCircleLinesV";
|
||||
|
||||
--~procedure DrawEllipse (int centerX, int centerY, float radiusH, float radiusV, Color color) with
|
||||
--~Import => True,
|
||||
--~Convention => C,
|
||||
--~External_Name => "";
|
||||
procedure Draw_Ellipse (
|
||||
X : Integer := 0;
|
||||
Y : Integer := 0;
|
||||
Horizontal : Float := 0.0;
|
||||
Vertical : Float := 0.0;
|
||||
Tint : Color := Black
|
||||
) with
|
||||
Import => True,
|
||||
Convention => C,
|
||||
External_Name => "DrawEllipse";
|
||||
|
||||
--~procedure DrawEllipseLines (int centerX, int centerY, float radiusH, float radiusV, Color color) with
|
||||
--~Import => True,
|
||||
--~Convention => C,
|
||||
--~External_Name => "";
|
||||
procedure Draw_Ellipse_Lines (
|
||||
X : Integer := 0;
|
||||
Y : Integer := 0;
|
||||
Horizontal : Float := 0.0;
|
||||
Vertical : Float := 0.0;
|
||||
Tint : Color := Black
|
||||
) with
|
||||
Import => True,
|
||||
Convention => C,
|
||||
External_Name => "DrawEllipseLines";
|
||||
|
||||
--~procedure DrawRing (Vector2 center, float innerRadius, float outerRadius, float startAngle, float endAngle, int segments, Color color) with
|
||||
--~Import => True,
|
||||
--~Convention => C,
|
||||
--~External_Name => "";
|
||||
procedure Draw_Ring (
|
||||
Center : Vector_2D := (0.0, 0.0);
|
||||
Inner_Radius : Float := 0.0;
|
||||
Outer_Radius : Float := 0.0;
|
||||
From : Float := 0.0;
|
||||
To : Float := 0.0;
|
||||
Segments : Integer := 0;
|
||||
Tint : Color := Black
|
||||
) with
|
||||
Import => True,
|
||||
Convention => C,
|
||||
External_Name => "DrawRing";
|
||||
|
||||
--~procedure DrawRingLines (Vector2 center, float innerRadius, float outerRadius, float startAngle, float endAngle, int segments, Color color) with
|
||||
--~Import => True,
|
||||
--~Convention => C,
|
||||
--~External_Name => "";
|
||||
procedure Draw_Ring_Lines (
|
||||
Center : Vector_2D := (0.0, 0.0);
|
||||
Inner_Radius : Float := 0.0;
|
||||
Outer_Radius : Float := 0.0;
|
||||
From : Float := 0.0;
|
||||
To : Float := 0.0;
|
||||
Segments : Integer := 0;
|
||||
Tint : Color := Black
|
||||
) with
|
||||
Import => True,
|
||||
Convention => C,
|
||||
External_Name => "DrawRingLines";
|
||||
|
||||
procedure Draw_Rectangle (
|
||||
X : Integer := 0;
|
||||
|
||||
@ -31,7 +31,7 @@ begin
|
||||
--
|
||||
Clear_Background (Sky_Blue);
|
||||
Draw_Texture (Dragdown, 100, 100, White);
|
||||
Draw_Text_Pro (Get_Font_Default, Text, (90.0, 90.0), (9.0, 9.0), 0.0, 32.0, 4.0, Red);
|
||||
Draw_Text (Text, 90, 90);
|
||||
Draw_FPS (X, Y);
|
||||
Draw_Line (0, 0, 300, 300, Black);
|
||||
Draw_Rectangle (120, 120, 30, 60, Blue);
|
||||
|
||||
Loading…
Reference in New Issue
Block a user