Code: [Local Link Removed for Guests]
vga.pinout 4,5,6, 7,15,16, 17, 18, 8,3
vga.delete
vga.init 2, 2
vs1053.setup 38, 39, 40
vs1053.volume 5
vs1053.stream "https://radioitaliasmi.akamaized.net/hls/live/2093120/RISMI/stream01/streamPlaylist.m3u8"
'vs1053.stream "http://hirschmilch.de:7000/chillout.mp3"
vga.fill 0
RX=640:RY=480:CX=RX\2:CY=RY\2
r=(2*Pi)/25:x=0:v=0:t=0:SC=RY\4
Dim CV(15)
For i=0 To 15
Read CV(i)
Next i
Data &H0000, &H001F, &H0200, &H03E0
Data &H0400, &H07E0, &H07E0, &H7FFF
Data &HF800, &HFF1F, &HFC00, &HFF9F
Data &HFE00, &HFFDF, &HFFC0, &HFFFF
b = 0
Do
vga.writepage b
vga.fill 0
c=1
For i=50 To 80 Step 2
For j=50 To 100 Step 1
u=Sin(i+v)+Sin(r*i+x)
v=Cos(i+v)+Cos(r*i+x)
x=u+t
vga.Pixel CX+u*SC,CY+v*SC,CV(c)
Next j
Incr c: If c>15 Then c=1
Next i
Incr t,0.0025
vga.showpage b
b = 1-b
Loop