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

Sound functions...
---

diff --git a/raylib.ads b/raylib.ads
index fce9017..f9847cb 100644
--- a/raylib.ads
+++ b/raylib.ads
@@ -3777,26 +3777,37 @@ package Raylib is
 		Convention    => C,
 		External_Name => "ResumeSound";
 
-	--~function bool IsSoundPlaying (Sound sound) with
-		--~Import        => True,
-		--~Convention    => C,
-		--~External_Name => "";
-
-	--~procedure SetSoundVolume (Sound sound, float volume) with
-		--~Import        => True,
-		--~Convention    => C,
-		--~External_Name => "";
+	function Is_Sound_Playing (
+		Data : Sound := No_Sound
+	) return Logical with
+		Import        => True,
+		Convention    => C,
+		External_Name => "IsSoundPlaying";
 
-	--~procedure SetSoundPitch (Sound sound, float pitch) with
-		--~Import        => True,
-		--~Convention    => C,
-		--~External_Name => "";
+	procedure Set_Sound_Volume (
+		Data   : Sound := No_Sound;
+		Volume : Float := 0.0
+	) with
+		Import        => True,
+		Convention    => C,
+		External_Name => "SetSoundVolume";
 
-	--~procedure SetSoundPan (Sound sound, float pan) with
-		--~Import        => True,
-		--~Convention    => C,
-		--~External_Name => "";
+	procedure Set_Sound_Pitch (
+		Data  : Sound := No_Sound;
+		Pitch : Float := 0.0
+	) with
+		Import        => True,
+		Convention    => C,
+		External_Name => "SetSoundPitch";
 
+	procedure Set_Sound_Pan (
+		Data : Sound := No_Sound;
+		Pan  : Float := 0.0
+	) with
+		Import        => True,
+		Convention    => C,
+		External_Name => "SetSoundPan";
+################################################################
 	--~function Wave WaveCopy (Wave wave) with
 		--~Import        => True,
 		--~Convention    => C,