p={} for j=0,23 do for i=1,24 do p[i+j*24]={x=j*4+22,y=i*4+18,v=i/12,q=j/12} end end ::_:: cls(7) for k,v in all(p) do if(k.v<3)k.v+=.04else k.v=-3 if(k.q<3)k.q+=.04else k.q=-3 k.x+=sin(k.q)k.y+=sin(k.v)pset(k.x,k.y,0)end rect(p[1].x,p[1].y,p[#p].x,p[#p].y,0) flip()goto _