Wave functions...

raylib.ads

@@ -3807,31 +3807,46 @@ package Raylib is
 		Import        => True,
 		Convention    => C,
 		External_Name => "SetSoundPan";
-################################################################
-	--~function Wave WaveCopy (Wave wave) with
-		--~Import        => True,
-		--~Convention    => C,
-		--~External_Name => "";
 
-	--~procedure WaveCrop (Wave *wave, int initSample, int finalSample) with
-		--~Import        => True,
-		--~Convention    => C,
-		--~External_Name => "";
+	function Wave_Copy (
+		Data : Wave := No_Wave
+	) return Wave with
+		Import        => True,
+		Convention    => C,
+		External_Name => "WaveCopy";
 
-	--~procedure WaveFormat (Wave *wave, int sampleRate, int sampleSize, int channels) with
-		--~Import        => True,
-		--~Convention    => C,
-		--~External_Name => "";
+	procedure Wave_Crop (
+		Data         : access Wave    := null;
+		First_Sample :        Integer := 0;
+		Final_Sample :        Integer := 0
+	) with
+		Import        => True,
+		Convention    => C,
+		External_Name => "WaveCrop";
 
-	--~function float *LoadWaveSamples (Wave wave) with
-		--~Import        => True,
-		--~Convention    => C,
-		--~External_Name => "";
+	procedure Wave_Format (
+		Data        : access Wave    := null;
+		Sample_Rate :        Integer := 0;
+		Sample_Size :        Integer := 0;
+		Channels    :        Integer := 0
+	) with
+		Import        => True,
+		Convention    => C,
+		External_Name => "WaveFormat";
 
-	--~procedure UnloadWaveSamples (float *samples) with
-		--~Import        => True,
-		--~Convention    => C,
-		--~External_Name => "";
+	function Load_Wave_Samples (
+		Data : Wave := No_Wave
+	) return access Float with
+		Import        => True,
+		Convention    => C,
+		External_Name => "LoadWaveSamples";
+
+	procedure Unload_Wave_Samples (
+		Samples : access Float := null
+	) with
+		Import        => True,
+		Convention    => C,
+		External_Name => "UnloadWaveSamples";
 
 	--~function Music LoadMusicStream (const char *fileName) with
 		--~Import        => True,