\Draw  \ant \MoveToLoc(1)
   \CSeg[0.5]\Move(1,2)
   \MarkLoc(a)
   \DSeg\RotateTo(1,2)
   \Rotate(-90)  \MoveF(10)
   \MarkLoc(A) ...
   \MoveToLL(a,A)(b,B)
   \MarkLoc(o)
   \LSeg\DrawCircle(o,1) ...
 \EndDraw