Music functions...

raylib.ads

@@ -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
+	function Load_Music_Stream (
-		--~Import        => True,
+		File_Name : String := ""
-		--~Convention    => C,
+	) return Music with
-		--~External_Name => "";
+		Import        => True,
+		Convention    => C,
+		External_Name => "LoadMusicStream";
 
-	--~function Music LoadMusicStreamFromMemory (const char *fileType, const unsigned char *data, int dataSize) with
+	function Load_Music_Stream_From_Memory (
-		--~Import        => True,
+		File_Type : String  := "";
-		--~Convention    => C,
+		Data      : Pointer := null;
-		--~External_Name => "";
+		Data_Size : Integer := 0
+	) return Music with
+		Import        => True,
+		Convention    => C,
+		External_Name => "LoadMusicStreamFromMemory";
 
-	--~function bool IsMusicReady (Music music) with
+	function Is_Music_Ready (
-		--~Import        => True,
+		Data : Music := No_Music
-		--~Convention    => C,
+	) return Logical with
-		--~External_Name => "";
+		Import        => True,
+		Convention    => C,
+		External_Name => "IsMusicReady";
 
-	--~procedure UnloadMusicStream (Music music) with
+	procedure Unload_Music_Stream (
-		--~Import        => True,
+		Data : Music := No_Music
-		--~Convention    => C,
+	) with
-		--~External_Name => "";
+		Import        => True,
+		Convention    => C,
+		External_Name => "UnloadMusicStream";
 
-	--~procedure PlayMusicStream (Music music) with
+	procedure Play_Music_Stream (
-		--~Import        => True,
+		Data : Music := No_Music
-		--~Convention    => C,
+	) with
-		--~External_Name => "";
+		Import        => True,
+		Convention    => C,
+		External_Name => "PlayMusicStream";
 
-	--~function bool IsMusicStreamPlaying (Music music) with
+	function Is_Music_Stream_Playing (
-		--~Import        => True,
+		Data : Music := No_Music
-		--~Convention    => C,
+	) return Logical with
-		--~External_Name => "";
+		Import        => True,
+		Convention    => C,
+		External_Name => "IsMusicStreamPlaying";
 
-	--~procedure UpdateMusicStream (Music music) with
+	procedure Update_Music_Stream (
-		--~Import        => True,
+		Data : Music := No_Music
-		--~Convention    => C,
+	) with
-		--~External_Name => "";
+		Import        => True,
+		Convention    => C,
+		External_Name => "UpdateMusicStream";
 
-	--~procedure StopMusicStream (Music music) with
+	procedure Stop_Music_Stream (
-		--~Import        => True,
+		Data : Music := No_Music
-		--~Convention    => C,
+	) with
-		--~External_Name => "";
+		Import        => True,
+		Convention    => C,
+		External_Name => "StopMusicStream";
 
-	--~procedure PauseMusicStream (Music music) with
+	procedure Pause_Music_Stream (
-		--~Import        => True,
+		Data : Music := No_Music
-		--~Convention    => C,
+	) with
-		--~External_Name => "";
+		Import        => True,
+		Convention    => C,
+		External_Name => "PauseMusicStream";
 
-	--~procedure ResumeMusicStream (Music music) with
+	procedure Resume_Music_Stream (
-		--~Import        => True,
+		Data : Music := No_Music
-		--~Convention    => C,
+	) with
-		--~External_Name => "";
+		Import        => True,
+		Convention    => C,
+		External_Name => "ResumeMusicStream";
 
-	--~procedure SeekMusicStream (Music music, float position) with
+	procedure Seek_Music_Stream (
-		--~Import        => True,
+		Data     : Music := No_Music;
-		--~Convention    => C,
+		Position : Float := 0.0
-		--~External_Name => "";
+	) with
+		Import        => True,
+		Convention    => C,
+		External_Name => "SeekMusicStream";
 
-	--~procedure SetMusicVolume (Music music, float volume) with
+	procedure Set_Music_Volume (
-		--~Import        => True,
+		Data   : Music := No_Music;
-		--~Convention    => C,
+		Volume : Float := 0.0
-		--~External_Name => "";
+	) with
+		Import        => True,
+		Convention    => C,
+		External_Name => "SetMusicVolume";
 
-	--~procedure SetMusicPitch (Music music, float pitch) with
+	procedure Set_Music_Pitch (
-		--~Import        => True,
+		Data  : Music := No_Music;
-		--~Convention    => C,
+		Pitch : Float := 0.0
-		--~External_Name => "";
+	) with
+		Import        => True,
+		Convention    => C,
+		External_Name => "SetMusicPitch";
 
-	--~procedure SetMusicPan (Music music, float pan) with
+	procedure Set_Music_Pan (
-		--~Import        => True,
+		Data : Music := No_Music;
-		--~Convention    => C,
+		Pan  : Float := 0.0
-		--~External_Name => "";
+	) with
+		Import        => True,
+		Convention    => C,
+		External_Name => "SetMusicPan";
 
-	--~function float GetMusicTimeLength (Music music) with
+	function Get_Music_Time_Length (
-		--~Import        => True,
+		Data : Music := No_Music
-		--~Convention    => C,
+	) return Float with
-		--~External_Name => "";
+		Import        => True,
-
+		Convention    => C,
-	--~function float GetMusicTimePlayed (Music music) with
+		External_Name => "GetMusicTimeLength";
-		--~Import        => True,
-		--~Convention    => C,
-		--~External_Name => "";
 
+	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,