m=math s=m.sin f=m.floor cb=circb
function TIC()t=time()//32
for y=0,136 do for x=0,240 do
pix(x,y,f(3*s(x)*y+t)>>3)
if y%5<3 then pix(x+(x>>2)*s(t/10),y,f(3*s(x)+y/5+t)>>3)end
end
for i=1,t//15 do cb(100+i*s(t/20),80+i*s(t/20),15+t/20,f(t%15))end
end end
256 bytes