alexthescott.bad heat wave

-- bad heat wave
-- alexthescott
-- 22/6/19

pal({7,15,143,142,14,8,136,137,9,10,135,138,11,139,12,140},1)
r,c=rnd,cos
q=128t=r()v=r()
::♥::
for i=0,512 do
x=r(q)
y=r(q)-1
d=2+c(v*y/q+t+c(y/q+t))*c(x/q+t)+(((x-64)^2+(y-64)^2)^0.5)/7
?"\18",x,y,d
end
t+=0.0005
flip()
goto ♥