Sound functions...

This commit is contained in:
Ognjen Milan Robovic 2024-03-24 06:25:45 -04:00
parent 30e767bf93
commit 33814ee16e

View File

@ -3777,26 +3777,37 @@ package Raylib is
Convention => C,
External_Name => "ResumeSound";
--~function bool IsSoundPlaying (Sound sound) 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 SetSoundVolume (Sound sound, float volume) 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 SetSoundPitch (Sound sound, float pitch) with
--~Import => True,
--~Convention => C,
--~External_Name => "";
--~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,