alexthescott.bad wave

-- bad wave
-- alexthescott
-- 22/6/5

?"\^!5f10β–ˆπŸ±2β˜‰μ›ƒπŸ…ΎοΈβ—†"
l={}f=0z=128r=rnd::_::
for i=0,2824 do x,y=r(z),r(z)pset(x,y,max(0,pget(x,y)-1))end
if(f%64==0)add(l,{-16})
for e in all(l)do for x=1,127do
y=e[1]+cos(e[1]/z+x/z+f/z)*(1+e[1]/16)pset(x,y,6)end
e[1]+=.25if(e[1]>136)del(l,e)end
f+=1f%=2048flip()goto _