Sound functions...

diff --git a/raylib.ads b/raylib.ads
index fce901768c45fbc29cc391eef4291270939e70ad..f9847cb70e635a50435caa8e25881c307c8d0a40 100644 (file)
--- 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,