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]




