Author Topic: Aurel's Black Hole  (Read 1988 times)

B+

  • Guest
Aurel's Black Hole
« on: April 21, 2016, 04:43:54 PM »
Who knew it would be so lovely  ;D

Code: [Select]
' 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