Sound functions...

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,