-- 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 _