function s(a)
return math.sin((3e4*a/t+d)*.017)
end
function TIC()
cls()
for i=0,32640 do
x,y=i%240,i//240
k,l=x-120,y-68
t,d=k^2+l^2,time()/4
if s(k)>s(l) then pix(x,y,14) end
end
end
