From d11c1fc7bb0f863d2f94f70182a6ac3e2297ed70 Mon Sep 17 00:00:00 2001
From: xolatile <xolatile@proton.me>
Date: Sun, 24 Mar 2024 07:03:36 -0400
Subject: [PATCH] Music functions...

---
 raylib.ads | 170 ++++++++++++++++++++++++++++++++++++++-----------------------
 1 file changed, 105 insertions(+), 65 deletions(-)

diff --git a/raylib.ads b/raylib.ads
index 8379a53..0658490 100644
--- a/raylib.ads
+++ b/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
-		--~Import        => True,
-		--~Convention    => C,
-		--~External_Name => "";
+	function Load_Music_Stream (
+		File_Name : String := ""
+	) return Music with
+		Import        => True,
+		Convention    => C,
+		External_Name => "LoadMusicStream";
 
-	--~function Music LoadMusicStreamFromMemory (const char *fileType, const unsigned char *data, int dataSize) 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";
 
-	--~function bool IsMusicReady (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 UnloadMusicStream (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";
 
-	--~procedure PlayMusicStream (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";
 
-	--~function bool IsMusicStreamPlaying (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 UpdateMusicStream (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 StopMusicStream (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 PauseMusicStream (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 ResumeMusicStream (Music music) with
-		--~Import        => True,
-		--~Convention    => C,
-		--~External_Name => "";
+	procedure Resume_Music_Stream (
+		Data : Music := No_Music
+	) with
+		Import        => True,
+		Convention    => C,
+		External_Name => "ResumeMusicStream";
 
-	--~procedure SeekMusicStream (Music music, float position) 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 SetMusicVolume (Music music, float volume) 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 SetMusicPitch (Music music, float pitch) 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";
 
-	--~procedure SetMusicPan (Music music, float pan) 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 GetMusicTimeLength (Music music) with
-		--~Import        => True,
-		--~Convention    => C,
-		--~External_Name => "";
-
-	--~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,