From 33814ee16e0f171a2301f063eab6c32f07563325 Mon Sep 17 00:00:00 2001 From: xolatile Date: Sun, 24 Mar 2024 06:25:45 -0400 Subject: [PATCH] Sound functions... --- raylib.ads | 45 ++++++++++++++++++++++++++++----------------- 1 file changed, 28 insertions(+), 17 deletions(-) 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, -- 2.39.5