aUCBLogo Demos and Tests / toothedwheel

to toothedwheel [radiusi 100][tooths 96][phi 0]
   local [x0 y0 dphi]
   x0=xCor
   y0=yCor
   radiusa=radiusi/(1-3/tooths)
   dphi=360/(2*tooths)
   PolyStart
   setXY x0 y0
   setxy x0+radiusa*sin phi  y0+radiusa*cos phi
   phi=phi+dphi
   repeat tooths
   [   setxy x0+radiusi*sin phi y0+radiusi*cos phi
      phi=phi+dphi
      setxy x0+radiusa*sin phi  y0+radiusa*cos phi
      phi=phi+dphi
   ]
   PolyEnd
   setxy x0 y0
end