Added streaming example.

examples/music/license.txt

@@ -0,0 +1,4 @@
+Energysound_-_Black_Car__Epic_Trap_Music : CC-by / CC-nd / CC-nc : https://www.jamendo.com/track/1889974/black-car-epic-trap-music
+Energysound_-_War__Epic_Battle_Trailer : CC-by / CC-nd / CC-nc : https://www.jamendo.com/track/1889381/war-epic-battle-trailer
+Energysound_-_Sport_Electro : CC-by / CC-nd / CC-nc : https://www.jamendo.com/track/1889820/sport-electro
+Nargo_-_Ambient_Space_Background : CC-by / CC-nd / CC-nc : https://www.jamendo.com/track/1703244/ambient-space-background

examples/streaming.bmx

@@ -0,0 +1,111 @@
+SuperStrict
+
+Framework SDL.SDLRenderMax2d
+
+'
+' Choose SDL or MiniAudio backend
+'Import Audio.AudioSDL
+Import Audio.AudioMiniAudio
+
+Graphics 800,600,0
+
+Global sounds:String[] = ["music/Nargo_-_Ambient_Space_Background.ogg", ..
+			"music/Energysound_-_Black_Car__Epic_Trap_Music_.mp3", ..
+			"music/Energysound_-_War__Epic_Battle_Trailer_.mp3", ..
+			"music/Energysound_-_Sport_Electro.mp3"]
+
+Global id:Int
+Global sound:TSound = LoadSound(sounds[id], SOUND_STREAM)
+
+Local driver:TSoloudAudioDriver = TSoloudAudioDriver(GetAudioDriver())
+Local so:TSoLoud = driver._soloud
+
+so.setVisualizationEnable(True)
+
+Global channel:TChannel = PlaySound(sound)
+
+While not keydown(KEY_ESCAPE)
+	Cls
+
+	If KeyHit(KEY_SPACE) Then
+		NextTrack()
+	End If
+
+
+	Local StaticArray wavData:Float[256]
+	Local StaticArray fftData:Float[256]
+	Local buf:Float Ptr = so.getWave()
+	MemCopy(wavData, buf, 246 * 4)
+	buf = so.calcFFT()
+	MemCopy(fftData, buf, 256 * 4)
+	
+	SetColor(255, 255, 255)
+
+	For Local i:int = 0 Until 256
+		Local d:Float = wavData[i]
+		Local height:Float = d * 128
+		If d > 0 Then
+			DrawRect( 30 + i * 3, 200 - height, 3, height )
+		Else
+			DrawRect( 30 + i * 3, 200, 3, Abs(height) )
+		End If
+	Next
+
+	SetColor(248, 58, 10)
+	For Local i:int = 0 Until 246
+		Local d:Float = fftData[i]
+		Local height:Float = Min(200, d * 2)
+
+		DrawRect( 30 + i * 3, 200 - height, 2, height )
+	Next
+
+	SetColor(255, 255, 255)
+
+	Local y:Int = 350
+	DrawRect(20, y, 760, 20)
+
+	SetColor(0, 0, 0)
+	DrawRect(21, y + 1, 758, 18)
+
+	Local length:Int = TSoloudChannel(channel).Length()
+	Local pos:Int = TSoloudChannel(channel).Position()
+	Local pps:Float = 758.0 / length
+
+	If length - pos < 200 Then
+		NextTrack()
+	End If
+
+	SetColor(27, 179, 27)
+
+	DrawRect(21, y + 1, pps * pos, 18)
+
+	SetColor(255, 255, 255)
+	DrawText(TimeToTime(pos), 20, y + 25)
+	DrawText(TimeToTime(length - pos), 747, y + 25)
+
+	Flip
+
+Wend
+
+Function NextTrack()
+	channel.Stop()
+
+	id :+ 1
+	If id = sounds.Length Then
+		id = 0
+	End If
+
+	sound = LoadSound(sounds[id], SOUND_STREAM)
+	channel = PlaySound(sound)
+End Function
+
+Function TimeToTime:String(time:Int)
+	Local t:Int = time / 1000
+	Local mins:String = t / 60
+	Local secs:String = t Mod 60
+	Local pad:String
+	If secs.Length < 2 Then
+		pad = "0"
+	End If
+	Return mins + ":" + pad + secs
+End Function