Block[{r = 115, cc, rot, perim, plist}, cc = r + {0, 0} ; Do[RotorRouter[2 {r, r}, {{{0, 0} +  ... + os, 100/Sqrt[Pi]], Circle[{-1, 1} 231/2 + os + {0, 1}, 100/Sqrt[Pi]]} ; {}], {d, 0, 2r - 1, 3}]]

[Graphics: jumper.gif]


Created by Mathematica  (December 4, 2003)