Audio stream functions...

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,