Int z[8]={9,2,13,4,5,12,1,10}
Do y=0,6
   Do x=0,8
      a=81*x-4; b=81*y-3
      c=2*cycle(x+y,2)-1; r=56.57
      Do t=0, 3.14, 0.075
         xx=r*cos(t*c+0.7854)
         yy=r*sin(t*c+0.7854)
         r=0.91*r
         move to (a+xx, b+yy)
         line color (z[c+1]); line to (a-yy, b+xx)
         line color (z[c+2]); line to (a-xx, b-yy)
         line color (z[c+5]); line to (a+yy, b-xx)
         line color (z[c+6]); line to (a+xx, b+yy)
      Loop
   Loop
Loop