From bd53eb070d2d4c649fa8382ec2698cc42e6be7da Mon Sep 17 00:00:00 2001
From: xolatile <xolatile@proton.me>
Date: Mon, 25 Mar 2024 18:27:48 -0400
Subject: [PATCH] New 3D functions...

---
 raylib.ads | 51 +++++++++++++++++++++++++++++++++++----------------
 1 file changed, 35 insertions(+), 16 deletions(-)

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,