Who knew it would be so lovely
' Aurel's Black Hole.bas SmallBASIC 0.12.2 [B+=MGA] 2016-04-21
'translated from
'black hole for toy521
'float w,h,a,r,ps,i,px,py,again
'float rr,gg,bb,rx,ry,fcolor,p
def rand(n)=(rnd*n)\1
w=700/2
h=700/2
'wcolor 0,0,0
a=1
r= 1
while again < 100
'wcolor 0,0,0
cls
i=10+rand(100)
a=i+r
while i < 30000
'print 50,10,again
at 50,10:? again
ps=1000/(i/a)
rr= rand(254)
gg= rand(254)
bb= rand(254)
fcolor =rgb(rr,gg,bb)
rx=sin(i*r)*ps+w
ry=cos(i*r)*ps+h
pset ry,rx,fcolor
pset rx,ry,fcolor
i=i+3.14+again
a=a+0.1
wend
a=a-again+r
if a < 30 then
a=a+0.01
r=r+1
end if
r= 360
if r < -360 then
r=r-0.01
end if
again=again+1
'print 10,10,again
at 10,10:? again
pause 'need to slow this sucker down
wend
