t=0 function
TIC()t=t-1 for i=0,3e4 do
d=0 x=i%240y=i//240repeat
d=d+1h=(d*(x-d)~(y*d))//256&(t-d)until h&8>0
pix(x,y,h)end end