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 _ |
[Please log in to post a comment]