Sorry your browser is not supported!

dim dot#(1000,2) : dim dot_2#(1000,2)
for i=0 to 999
dot#(i,0)=int(rnd(360)) : dot#(i,1)=int(rnd(360)) : dot_2#(i,0)=int(rnd(360)) : dot_2#(i,1)=int(rnd(360))
next i
sync on : sync rate 0
do : time = time + 1
if time > 100 then circly(2) : circly(1) else circly(1)
BLUR BITMAP 0,1 : flip bitmap 0 : sync
loop
function circly(which)
a#=wrapvalue(a#+1)
for i=0 to 999
 if which = 1 then ink rgb(get_sin(a#),get_sin(a#),get_sin(a#)),0 : dot 320+(cos(wrapvalue(dot#(i,0)+a#))*abs(sin(dot#(i,1)))*200),240+(cos(dot#(i,1))*40)
 if which = 2 then ink rgb(0,0,((sin(dot_2#(i,0)+a#+235)+1)*100)+55),0 : dot 320+(cos(wrapvalue(dot_2#(i,0)+a#))*abs(sin(dot_2#(i,1)))*90),240+(cos(dot_2#(i,1))*40)
 next i
endfunction
function get_sin(a#)
return_val = ((sin(dot#(i,0)+a#+235)+1)*100)+55
endfunction return_val