|
|
@@ -784,6 +784,8 @@ package Raylib is |
|
|
|
Context_Data : Pointer := null; |
|
|
|
end record with Convention => C_Pass_By_Copy; |
|
|
|
|
|
|
|
No_Music : Music; |
|
|
|
|
|
|
|
type VR_Device_Info is record |
|
|
|
Horizontal_Resoultion : Integer := 0; |
|
|
|
Vertical_Resoultion : Integer := 0; |
|
|
@@ -3848,86 +3850,124 @@ package Raylib is |
|
|
|
Convention => C, |
|
|
|
External_Name => "UnloadWaveSamples"; |
|
|
|
|
|
|
|
--~function Music LoadMusicStream (const char *fileName) with |
|
|
|
--~Import => True, |
|
|
|
--~Convention => C, |
|
|
|
--~External_Name => ""; |
|
|
|
|
|
|
|
--~function Music LoadMusicStreamFromMemory (const char *fileType, const unsigned char *data, int dataSize) with |
|
|
|
--~Import => True, |
|
|
|
--~Convention => C, |
|
|
|
--~External_Name => ""; |
|
|
|
function Load_Music_Stream ( |
|
|
|
File_Name : String := "" |
|
|
|
) return Music with |
|
|
|
Import => True, |
|
|
|
Convention => C, |
|
|
|
External_Name => "LoadMusicStream"; |
|
|
|
|
|
|
|
--~function bool IsMusicReady (Music music) with |
|
|
|
--~Import => True, |
|
|
|
--~Convention => C, |
|
|
|
--~External_Name => ""; |
|
|
|
function Load_Music_Stream_From_Memory ( |
|
|
|
File_Type : String := ""; |
|
|
|
Data : Pointer := null; |
|
|
|
Data_Size : Integer := 0 |
|
|
|
) return Music with |
|
|
|
Import => True, |
|
|
|
Convention => C, |
|
|
|
External_Name => "LoadMusicStreamFromMemory"; |
|
|
|
|
|
|
|
--~procedure UnloadMusicStream (Music music) with |
|
|
|
--~Import => True, |
|
|
|
--~Convention => C, |
|
|
|
--~External_Name => ""; |
|
|
|
function Is_Music_Ready ( |
|
|
|
Data : Music := No_Music |
|
|
|
) return Logical with |
|
|
|
Import => True, |
|
|
|
Convention => C, |
|
|
|
External_Name => "IsMusicReady"; |
|
|
|
|
|
|
|
--~procedure PlayMusicStream (Music music) with |
|
|
|
--~Import => True, |
|
|
|
--~Convention => C, |
|
|
|
--~External_Name => ""; |
|
|
|
procedure Unload_Music_Stream ( |
|
|
|
Data : Music := No_Music |
|
|
|
) with |
|
|
|
Import => True, |
|
|
|
Convention => C, |
|
|
|
External_Name => "UnloadMusicStream"; |
|
|
|
|
|
|
|
--~function bool IsMusicStreamPlaying (Music music) with |
|
|
|
--~Import => True, |
|
|
|
--~Convention => C, |
|
|
|
--~External_Name => ""; |
|
|
|
procedure Play_Music_Stream ( |
|
|
|
Data : Music := No_Music |
|
|
|
) with |
|
|
|
Import => True, |
|
|
|
Convention => C, |
|
|
|
External_Name => "PlayMusicStream"; |
|
|
|
|
|
|
|
--~procedure UpdateMusicStream (Music music) with |
|
|
|
--~Import => True, |
|
|
|
--~Convention => C, |
|
|
|
--~External_Name => ""; |
|
|
|
function Is_Music_Stream_Playing ( |
|
|
|
Data : Music := No_Music |
|
|
|
) return Logical with |
|
|
|
Import => True, |
|
|
|
Convention => C, |
|
|
|
External_Name => "IsMusicStreamPlaying"; |
|
|
|
|
|
|
|
--~procedure StopMusicStream (Music music) with |
|
|
|
--~Import => True, |
|
|
|
--~Convention => C, |
|
|
|
--~External_Name => ""; |
|
|
|
procedure Update_Music_Stream ( |
|
|
|
Data : Music := No_Music |
|
|
|
) with |
|
|
|
Import => True, |
|
|
|
Convention => C, |
|
|
|
External_Name => "UpdateMusicStream"; |
|
|
|
|
|
|
|
--~procedure PauseMusicStream (Music music) with |
|
|
|
--~Import => True, |
|
|
|
--~Convention => C, |
|
|
|
--~External_Name => ""; |
|
|
|
procedure Stop_Music_Stream ( |
|
|
|
Data : Music := No_Music |
|
|
|
) with |
|
|
|
Import => True, |
|
|
|
Convention => C, |
|
|
|
External_Name => "StopMusicStream"; |
|
|
|
|
|
|
|
--~procedure ResumeMusicStream (Music music) with |
|
|
|
--~Import => True, |
|
|
|
--~Convention => C, |
|
|
|
--~External_Name => ""; |
|
|
|
procedure Pause_Music_Stream ( |
|
|
|
Data : Music := No_Music |
|
|
|
) with |
|
|
|
Import => True, |
|
|
|
Convention => C, |
|
|
|
External_Name => "PauseMusicStream"; |
|
|
|
|
|
|
|
--~procedure SeekMusicStream (Music music, float position) with |
|
|
|
--~Import => True, |
|
|
|
--~Convention => C, |
|
|
|
--~External_Name => ""; |
|
|
|
procedure Resume_Music_Stream ( |
|
|
|
Data : Music := No_Music |
|
|
|
) with |
|
|
|
Import => True, |
|
|
|
Convention => C, |
|
|
|
External_Name => "ResumeMusicStream"; |
|
|
|
|
|
|
|
--~procedure SetMusicVolume (Music music, float volume) with |
|
|
|
--~Import => True, |
|
|
|
--~Convention => C, |
|
|
|
--~External_Name => ""; |
|
|
|
procedure Seek_Music_Stream ( |
|
|
|
Data : Music := No_Music; |
|
|
|
Position : Float := 0.0 |
|
|
|
) with |
|
|
|
Import => True, |
|
|
|
Convention => C, |
|
|
|
External_Name => "SeekMusicStream"; |
|
|
|
|
|
|
|
--~procedure SetMusicPitch (Music music, float pitch) with |
|
|
|
--~Import => True, |
|
|
|
--~Convention => C, |
|
|
|
--~External_Name => ""; |
|
|
|
procedure Set_Music_Volume ( |
|
|
|
Data : Music := No_Music; |
|
|
|
Volume : Float := 0.0 |
|
|
|
) with |
|
|
|
Import => True, |
|
|
|
Convention => C, |
|
|
|
External_Name => "SetMusicVolume"; |
|
|
|
|
|
|
|
--~procedure SetMusicPan (Music music, float pan) with |
|
|
|
--~Import => True, |
|
|
|
--~Convention => C, |
|
|
|
--~External_Name => ""; |
|
|
|
procedure Set_Music_Pitch ( |
|
|
|
Data : Music := No_Music; |
|
|
|
Pitch : Float := 0.0 |
|
|
|
) with |
|
|
|
Import => True, |
|
|
|
Convention => C, |
|
|
|
External_Name => "SetMusicPitch"; |
|
|
|
|
|
|
|
--~function float GetMusicTimeLength (Music music) with |
|
|
|
--~Import => True, |
|
|
|
--~Convention => C, |
|
|
|
--~External_Name => ""; |
|
|
|
procedure Set_Music_Pan ( |
|
|
|
Data : Music := No_Music; |
|
|
|
Pan : Float := 0.0 |
|
|
|
) with |
|
|
|
Import => True, |
|
|
|
Convention => C, |
|
|
|
External_Name => "SetMusicPan"; |
|
|
|
|
|
|
|
--~function float GetMusicTimePlayed (Music music) with |
|
|
|
--~Import => True, |
|
|
|
--~Convention => C, |
|
|
|
--~External_Name => ""; |
|
|
|
function Get_Music_Time_Length ( |
|
|
|
Data : Music := No_Music |
|
|
|
) return Float with |
|
|
|
Import => True, |
|
|
|
Convention => C, |
|
|
|
External_Name => "GetMusicTimeLength"; |
|
|
|
|
|
|
|
function Get_Music_Time_Played ( |
|
|
|
Data : Music := No_Music |
|
|
|
) return Float with |
|
|
|
Import => True, |
|
|
|
Convention => C, |
|
|
|
External_Name => "GetMusicTimePlayed"; |
|
|
|
--~################################################################ |
|
|
|
--~function AudioStream LoadAudioStream (unsigned int sampleRate, unsigned int sampleSize, unsigned int channels) with |
|
|
|
--~Import => True, |
|
|
|
--~Convention => C, |
|
|
|