New 3D functions...

This commit is contained in:
Ognjen Milan Robovic 2024-03-25 18:27:48 -04:00
parent 49ccc8d2ee
commit bd53eb070d

View File

@ -2068,10 +2068,13 @@ package Raylib is
--~Convention => C,
--~External_Name => "";
--~procedure UpdateCamera (Camera *camera, int mode) with
--~Import => True,
--~Convention => C,
--~External_Name => "";
procedure Update_Camera (
Data : access Camera_3D := null;
Mode : Camera_Mode := Camera_First_Person
) with
Import => True,
Convention => C,
External_Name => "UpdateCamera";
--~procedure UpdateCameraPro (Camera *camera, Vector3 movement, Vector3 rotation, float zoom) with
--~Import => True,
@ -3346,20 +3349,32 @@ package Raylib is
--~Convention => C,
--~External_Name => "";
--~procedure DrawCube (Vector3 position, float width, float height, float length, Color color) with
--~Import => True,
--~Convention => C,
--~External_Name => "";
procedure Draw_Cube (
Position : Vector_3D := (0.0, 0.0, 0.0);
Width : Float := 0.0;
Height : Float := 0.0;
Length : Float := 0.0;
Tint : Color := White
) with
Import => True,
Convention => C,
External_Name => "DrawCube";
--~procedure DrawCubeV (Vector3 position, Vector3 size, Color color) with
--~Import => True,
--~Convention => C,
--~External_Name => "";
--~procedure DrawCubeWires (Vector3 position, float width, float height, float length, Color color) with
--~Import => True,
--~Convention => C,
--~External_Name => "";
procedure Draw_Cube_Wires (
Position : Vector_3D := (0.0, 0.0, 0.0);
Width : Float := 0.0;
Height : Float := 0.0;
Length : Float := 0.0;
Tint : Color := Black
) with
Import => True,
Convention => C,
External_Name => "DrawCubeWires";
--~procedure DrawCubeWiresV (Vector3 position, Vector3 size, Color color) with
--~Import => True,
@ -3411,10 +3426,14 @@ package Raylib is
--~Convention => C,
--~External_Name => "";
--~procedure DrawPlane (Vector3 centerPos, Vector2 size, Color color) with
--~Import => True,
--~Convention => C,
--~External_Name => "";
procedure Draw_Plane (
Center : Vector_3D := (0.0, 0.0, 0.0);
Size : Vector_2D := (0.0, 0.0);
Tint : Color := White
) with
Import => True,
Convention => C,
External_Name => "DrawPlane";
--~procedure DrawRay (Ray ray, Color color) with
--~Import => True,