\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) 
 } 
\Draw  \ant   \LSeg\Q(3,4) 
\LSeg\R(1,2)    \Q/\R;  \Color(0,0,1) 
\Do(1,4){{ \I=\DoReg;  \MoveToLoc(\Val\I) 
   \Move(-1,0) \EntryExit(1,0,0,0) \Text(--\Val\I--) }} 
\Color(0,0,0) 
 
\Do(1,2){   \MoveToLoc(3) 
   \Scale(\Val\Q,\Val\Q) 
   \ant }        \EndDraw