Test, unstable...

1 files changed, 18 insertions, 25 deletions

diff --git a/raylib.ads b/raylib.ads
index afe8390..6bb4a4d 100644
--- a/raylib.ads
+++ b/raylib.ads
@@ -668,21 +668,12 @@ package Raylib is
 
 	No_Image : Image;
 
-	--~type Texture is record
-		--~Id      : Natural      := 0;
-		--~Width   : Integer      := 0;
-		--~Height  : Integer      := 0;
-		--~Mipmaps : Integer      := 1;
-		--~Format  : Pixel_Format := Pixel_Format_None;
-	--~end record with Convention => C_Pass_By_Copy;
-
 	type Texture is record
-		Id      : Natural;
-		Width   : Integer;
-		Height  : Integer;
-		Mipmaps : Integer;
-		--~Format  : Pixel_Format;
-		Format  : Integer;
+		Id      : Natural      := 0;
+		Width   : Integer      := 0;
+		Height  : Integer      := 0;
+		Mipmaps : Integer      := 1;
+		Format  : Pixel_Format := Pixel_Format_None;
 	end record with Convention => C_Pass_By_Copy;
 
 	No_Texture : Texture;
@@ -824,12 +815,12 @@ package Raylib is
 		Distance : Float     := 0.0;
 		Point    : Vector_3D := (0.0, 0.0, 0.0);
 		Normal   : Vector_3D := (0.0, 0.0, 0.0);
-	end record;
+	end record with Convention => C_Pass_By_Copy;
 
 	type Bounding_Box is record
 		Min : Vector_3D := (0.0, 0.0, 0.0);
 		Max : Vector_3D := (0.0, 0.0, 0.0);
-	end record;
+	end record with Convention => C_Pass_By_Copy;
 
 	type Wave is record
 		Frame_Count : Natural := 0;
@@ -837,7 +828,7 @@ package Raylib is
 		Sample_Size : Natural := 0;
 		Channels    : Natural := 0;
 		Data        : Pointer := null;
-	end record;
+	end record with Convention => C_Pass_By_Copy;
 
 	type Audio_Stream is record
 		Buffer      : Pointer := null;
@@ -845,14 +836,14 @@ package Raylib is
 		Sample_Rate : Natural := 0;
 		Sample_Size : Natural := 0;
 		Channels    : Natural := 0;
-	end record;
+	end record with Convention => C_Pass_By_Copy;
 
 	No_Audio_Stream : Audio_Stream;
 
 	type Sound is record
 		Stream      : Audio_Stream := No_Audio_Stream;
 		Frame_Count : Natural      := 0;
-	end record;
+	end record with Convention => C_Pass_By_Copy;
 
 	type Music is record
 		Stream       : Audio_Stream := No_Audio_Stream;
@@ -860,7 +851,7 @@ package Raylib is
 		Looping      : Logical      := False;
 		Context_Type : Integer      := 0;
 		Context_Data : Pointer      := null;
-	end record;
+	end record with Convention => C_Pass_By_Copy;
 
 	type VR_Device_Info is record
 		Horizontal_Resoultion        : Integer       := 0;
@@ -873,7 +864,7 @@ package Raylib is
 		Interpupillary_Distance      : Float         := 0.0;
 		Lens_Distortion_Values       : Float_Array_4 := (0.0, 0.0, 0.0, 0.0);
 		Chroma_Abberation_Correction : Float_Array_4 := (0.0, 0.0, 0.0, 0.0);
-	end record;
+	end record with Convention => C_Pass_By_Copy;
 
 	No_VR_Device_Info : VR_Device_Info;
 
@@ -889,7 +880,7 @@ package Raylib is
 		Right_Screen_Center : Float_Array_2     := (0.0, 0.0);
 		Scale               : Float_Array_2     := (0.0, 0.0);
 		Scale_In            : Float_Array_2     := (0.0, 0.0);
-	end record;
+	end record with Convention => C_Pass_By_Copy;
 
 	No_VR_Stereo_Config : VR_Stereo_Config;
 
@@ -897,7 +888,7 @@ package Raylib is
 		Capacity : Natural := 0;
 		Count    : Natural := 0;
 		Paths    : Pointer := null;
-	end record;
+	end record with Convention => C_Pass_By_Copy;
 
 	type Integer_Array_4 is array (0 .. 3) of Integer;
 
@@ -905,13 +896,13 @@ package Raylib is
 		Frame      : Natural         := 0;
 		Kind       : Natural         := 0;
 		Parameters : Integer_Array_4 := (0, 0, 0, 0);
-	end record;
+	end record with Convention => C_Pass_By_Copy;
 
 	type Automation_Event_List is record
 		Capacity :        Natural          := 0;
 		Count    :        Natural          := 0;
 		Events   : access Automation_Event := null;
-	end record;
+	end record with Convention => C_Pass_By_Copy;
 
 ------------------------------------------------------------------------
 
@@ -2871,6 +2862,8 @@ package Raylib is
 		Convention    => C,
 		External_Name => "DrawTexturePro";
 
+	--~RLAPI void DrawTexturePro(Texture2D texture, Rectangle source, Rectangle dest, Vector2 origin, float rotation, Color tint);
+
 	--~procedure DrawTextureNPatch (Texture2D texture, NPatchInfo nPatchInfo, Rectangle dest, Vector2 origin, float rotation, Color tint) with
 		--~Import        => True,
 		--~Convention    => C,