\Draw \Define\ant{ 
   \MarkLoc(1) 
   { \Line(6,26)  \Line(35,38) \Line(0,14) \MarkGLoc(4) } 
   { \Move(52, 0) \MarkGLoc(2) \Line(-6,26) \Line(-35,38) 
     \Line( 0,14) \MarkGLoc(3) } 
   { \Move( 0,26)  \Line( 6,14)  \Line( 40, 9) \Line( 6,20) } 
   { \Move(52,26) \Line(-6,14) \Line(-40, 9) \Line(-6,20) } 
   \Move(26,29)    \PaintOval(12,23) \Move(0,26) 
   \PaintOval(6,9) \Move(0,12)       \PaintOval(3,3) 
} 
 
 
   \Object\Ant{ \ant } 
   \Ant   \MarkLoc(o) 
   \MoveToExit(-1,-1) 
   \MarkLoc(sw) 
   \CSeg[2]\DrawRect(sw,o) \Color(0,0,1) 
\ArrowHeads(1) 
\MoveToExit(-1,0)  \Line(-15,0) 
\MoveToExit(0,-1)  \Line(0,-15) 
\MoveToExit(1,0)  {\FcNode(a) \Move(25,0) \Node(b)(--X--)  \Edge(a,b) } 
\MoveToExit(0,1)  {\FcNode(a) \Move(0,25) \Node(b)(--Y--)  \Edge(a,b) } 
\MoveToExit(1,1) \EntryExit(-1,-1,0,0) 
\Text(--(1,1)--) 
\Color(0,0,0) 
 
\EndDraw