Log In  


cloud chamber

charged particles in motion

(299 chars)

z=rnd::_::if(t()%9<.04)cls()p={}
for h=0,47do
i=h%12q=p[i]or{x=z(128),y=z(128),u=0,v=0,c=i\6*2-1}p[i]=q
pset(q.x,q.y,2)q.x+=q.u/8q.y+=q.v/8pset(q.x,q.y,2+q.c)for j=0,i do
s=p[j]a=s.x-q.x>>7b=s.y-q.y>>7r=q.c*s.c*(1+((a*a+b*b)^1.5<<10))q.u-=a/r
q.v-=b/r
s.u+=a/r
s.v+=b/r
end
end?"⁶1⁶!5f10█●ˇ="
goto _

2



[Please log in to post a comment]