Small changes...

diff --git a/raylib.ads b/raylib.ads
index 32a5bbd1fd58e1ab5753c2af6d0aca508017fb23..c586679f3f1486644432c449476c5495cfbeb87c 100644 (file)
--- a/raylib.ads
+++ b/raylib.ads
@@ -3495,20 +3495,34 @@ package Raylib is
                Convention    => C,
                External_Name => "DrawModel";
 
-       --~procedure DrawModelEx (Model model, Vector3 position, Vector3 rotationAxis, float rotationAngle, Vector3 scale, Color tint) with
-               --~Import        => True,
-               --~Convention    => C,
-               --~External_Name => "";
+       procedure Draw_Model_Ex (
+               Data     : Model     := No_Model;
+               Position : Vector_3D := (0.0, 0.0, 0.0);
+               Axis     : Vector_3D := (0.0, 0.0, 0.0);
+               Angle    : Float     := 0.0;
+               Scale    : Vector_3D := (1.0, 1.0, 1.0);
+               Tint     : Color     := White
+       ) with
+               Import        => True,
+               Convention    => C,
+               External_Name => "DrawModelEx";
 
        --~procedure DrawModelWires (Model model, Vector3 position, float scale, Color tint) with
                --~Import        => True,
                --~Convention    => C,
                --~External_Name => "";
 
-       --~procedure DrawModelWiresEx (Model model, Vector3 position, Vector3 rotationAxis, float rotationAngle, Vector3 scale, Color tint) with
-               --~Import        => True,
-               --~Convention    => C,
-               --~External_Name => "";
+       procedure Draw_Model_Wires_Ex (
+               Data     : Model     := No_Model;
+               Position : Vector_3D := (0.0, 0.0, 0.0);
+               Axis     : Vector_3D := (0.0, 0.0, 0.0);
+               Angle    : Float     := 0.0;
+               Scale    : Vector_3D := (1.0, 1.0, 1.0);
+               Tint     : Color     := White
+       ) with
+               Import        => True,
+               Convention    => C,
+               External_Name => "DrawModelWiresEx";
 
        --~procedure DrawBoundingBox (BoundingBox box, Color color) with
                --~Import        => True,