q=68s=120t=25 function
TIC()t=t-1 for y=-q,q do
poke(16299+y,y*(math.cos(t/9)+1)*2)for
x=-s,s do
d=9repeat
d=d+1
h=(d*(x-d)~(y*d))//256+4&(t-d)until h&8>0
pix(x+s,y+q,h-7+((x~y)&1))end end end