//
// Program: SCALLOPS
// Author:  Terry Anderson
//
Int z[8]={9,2,13,4,5,12,1,10}
dxc=xpixels()/2-320; dyc=ypixels()/2-240
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+dxc, b+yy+dyc)
         line color (z[c+1]); line to (a-yy+dxc, b+xx+dyc)
         line color (z[c+2]); line to (a-xx+dxc, b-yy+dyc)
         line color (z[c+5]); line to (a+yy+dxc, b-xx+dyc)
         line color (z[c+6]); line to (a+xx+dxc, b+yy+dyc)
      Loop
   Loop
Loop