diff --git a/raylib.ads b/raylib.ads index 0658490..140b52e 100644 --- a/raylib.ads +++ b/raylib.ads @@ -3967,76 +3967,111 @@ package Raylib is Import => True, Convention => C, External_Name => "GetMusicTimePlayed"; ---~################################################################ - --~function AudioStream LoadAudioStream (unsigned int sampleRate, unsigned int sampleSize, unsigned int channels) with - --~Import => True, - --~Convention => C, - --~External_Name => ""; - --~function bool IsAudioStreamReady (AudioStream stream) with - --~Import => True, - --~Convention => C, - --~External_Name => ""; + function Load_Audio_Stream ( + Sample_Rate : Natural := 0; + Sample_Size : Natural := 0; + Channels : Natural := 0 + ) return Audio_Stream with + Import => True, + Convention => C, + External_Name => "LoadAudioStream"; - --~procedure UnloadAudioStream (AudioStream stream) with - --~Import => True, - --~Convention => C, - --~External_Name => ""; + function Is_Audio_Stream_Ready ( + Data : Audio_Stream := No_Audio_Stream + ) return Logical with + Import => True, + Convention => C, + External_Name => "IsAudioStreamReady"; - --~procedure UpdateAudioStream (AudioStream stream, const void *data, int frameCount) with - --~Import => True, - --~Convention => C, - --~External_Name => ""; + procedure Unload_Audio_Stream ( + Data : Audio_Stream := No_Audio_Stream + ) with + Import => True, + Convention => C, + External_Name => "UnloadAudioStream"; - --~function bool IsAudioStreamProcessed (AudioStream stream) with - --~Import => True, - --~Convention => C, - --~External_Name => ""; + procedure Update_Audio_Stream ( + Data : Audio_Stream := No_Audio_Stream; + Raw_Data : Pointer := null; + Frame_Count : Integer := 0 + ) with + Import => True, + Convention => C, + External_Name => "UpdateAudioStream"; - --~procedure PlayAudioStream (AudioStream stream) with - --~Import => True, - --~Convention => C, - --~External_Name => ""; + function Is_Audio_Stream_Processed ( + Data : Audio_Stream := No_Audio_Stream + ) return Logical with + Import => True, + Convention => C, + External_Name => "IsAudioStreamProcessed"; - --~procedure PauseAudioStream (AudioStream stream) with - --~Import => True, - --~Convention => C, - --~External_Name => ""; + procedure Play_Audio_Stream ( + Data : Audio_Stream := No_Audio_Stream + ) with + Import => True, + Convention => C, + External_Name => "PlayAudioStream"; - --~procedure ResumeAudioStream (AudioStream stream) with - --~Import => True, - --~Convention => C, - --~External_Name => ""; + procedure Pause_Audio_Stream ( + Data : Audio_Stream := No_Audio_Stream + ) with + Import => True, + Convention => C, + External_Name => "PauseAudioStream"; - --~function bool IsAudioStreamPlaying (AudioStream stream) with - --~Import => True, - --~Convention => C, - --~External_Name => ""; + procedure Resume_Audio_Stream ( + Data : Audio_Stream := No_Audio_Stream + ) with + Import => True, + Convention => C, + External_Name => "ResumeAudioStream"; - --~procedure StopAudioStream (AudioStream stream) with - --~Import => True, - --~Convention => C, - --~External_Name => ""; + function Is_Audio_Stream_Playing ( + Data : Audio_Stream := No_Audio_Stream + ) return Logical with + Import => True, + Convention => C, + External_Name => "IsAudioStreamPlaying"; - --~procedure SetAudioStreamVolume (AudioStream stream, float volume) with - --~Import => True, - --~Convention => C, - --~External_Name => ""; + procedure Stop_Audio_Stream ( + Data : Audio_Stream := No_Audio_Stream + ) with + Import => True, + Convention => C, + External_Name => "StopAudioStream"; - --~procedure SetAudioStreamPitch (AudioStream stream, float pitch) with - --~Import => True, - --~Convention => C, - --~External_Name => ""; + procedure Set_Audio_Stream_Volume ( + Data : Audio_Stream := No_Audio_Stream; + Volume : Float := 0.0 + ) with + Import => True, + Convention => C, + External_Name => "SetAudioStreamVolume"; - --~procedure SetAudioStreamPan (AudioStream stream, float pan) with - --~Import => True, - --~Convention => C, - --~External_Name => ""; + procedure Set_Audio_Stream_Pitch ( + Data : Audio_Stream := No_Audio_Stream; + Pitch : Float := 0.0 + ) with + Import => True, + Convention => C, + External_Name => "SetAudioStreamPitch"; - --~procedure SetAudioStreamBufferSizeDefault (int size) with - --~Import => True, - --~Convention => C, - --~External_Name => ""; + procedure Set_Audio_Stream_Pan ( + Data : Audio_Stream := No_Audio_Stream; + Pan : Float := 0.0 + ) with + Import => True, + Convention => C, + External_Name => "SetAudioStreamPan"; + + procedure Set_Audio_Stream_Buffer_Size_Default ( + Size : Integer := 0 + ) with + Import => True, + Convention => C, + External_Name => "SetAudioStreamBufferSizeDefault"; --~procedure SetAudioStreamCallback (AudioStream stream, AudioCallback callback) with --~Import => True,