::★::cls()
for r=4,128,4 do for i=0,7/4,1/4do
q=(t()*(1+r/32)/8)%1
v0=mid((q-i)*4,1) v1=mid((q-i)*4+2,1)
a=i-1/8 x=64+cos(a)*r*0.71 y=64+sin(a)*r*0.71
a+=3/8u=cos(a)v=sin(a)
if(v1>v0)line(x+u*v0*r,y+v*v0*r,x+u*v1*r,y+v*v1*r,8+(r/4)%8)
end end flip() goto ★