c=math.cos t=0H=136
function TIC()cls(0)t=t+.1
for i=0,50,2 do G=80+(50-i)*c(t/3)/2x=G+i*c(i/3)
y=10+i*2S=i/10 for j=-i,i,6 do
xH=j*5tri(G+j,y, G+j-5,y-3,G+j-5,y+3,7-j/(i-3))end circ(x-3,y-3,S,t+i)end
for i=0,240 do line(i,H,i,H-50+10*c(i/55),12)end
end