

up
(300 chars)
r,c,π±,π ΎοΈ,β½,♥,β,β =rnd,cos,camera,128,-64,32,.25,{}for i=1,99do β [i]={x=r(π ΎοΈ),y=r(π ΎοΈ),z=r(3)}end::_::cls()β§=t()π±()for v in all(β )do pset(v.x,v.y,7)v.y+=v.z if(v.y>π ΎοΈ)v.y=0v.x=r(π ΎοΈ)end π±(β½,β½)for y=β½,-β½ do a=β§/5+y/10^3n=a%β+.125for i=-1,0 do rect(c(n)*♥,y,c(n+β*sgn(i))*♥+.5,y,(a*4-i)%7+8)end end flip()goto _ |
[Please log in to post a comment]