From: xolatile <xolatile@proton.me>
Date: Sun, 24 Mar 2024 10:33:30 +0000 (-0400)
Subject: Wave functions...
X-Git-Url: https://git.xolatile.top/?a=commitdiff_plain;h=2c821a60be743abfebfcb62e2bdcf91d97094bb2;p=xolatile-raylib-ada.git

Wave functions...
---

diff --git a/raylib.ads b/raylib.ads
index f9847cb..8379a53 100644
--- a/raylib.ads
+++ b/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,