New 3D functions...

diff --git a/raylib.ads b/raylib.ads
index 5be1436fd8c29beeb7289c4869eee4a4278f0108..70af8ac5d623fc46fd8732298a217d1f19eec155 100644 (file)
--- 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,