diff --git a/raylib.ads b/raylib.ads index 5be1436..70af8ac 100644 --- a/raylib.ads +++ b/raylib.ads @@ -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,