TIC=load 'm=math p=m.pow t=time()/200 for i=0,33120 do x=i%240 y=i//240 cx=x-120 cy=y-68 pix(x,y,(m.sin(0.5*m.sqrt(p(cx,2)+p(cy,2))+m.atan(cy,cx)+t))>0.2 and 1 or 0)end'
function BDR(l) poke(0x3ff9,m.sin(l)*t%2) poke(0x3FC3,m.abs(t*24+1024-l*1.5)) end
