\Define\Arc(2){ \MoveToLoc(#1)
   \DSeg\RotateTo(#1,#2)
   \LSeg[0.5]\MoveF(#1,#2)
   \MarkLoc(o)   \DSeg\Q(o,#1)
   \R=\Q; \R+180; \LSeg\T(o,#1)
   \DoOvalArc(\Val\T,\Val\T)
             (\Val\Q,\Val\R)...
 \Draw \ant \Arc(1,2) \Arc(2,4)
 \Arc(4,3) \Arc(3,1) \EndDraw