\Draw \Define\ant{ 
   { \Line(6,26)  \Line(35,38) \Line(0,14) } 
   { \Move(52, 0) \Line(-6,26) \Line(-35,38)  \Line( 0,14) } 
   { \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) 
} 
 
\Scale(5,1.25) 
\BarClipOn 
\Define\DrawBar(2){{ 
  \Q=1; \Q/52; \R=1; \R/78; 
  \Scale(\Val\Q,\Val\R) 
  \Scale(#1,#2) \ant }} 
\BarChart(10 & 50 & 30 & 75) 
\MoveToLoc(NE)\Q=5; \Q/75; 
\CSeg[\Val\Q]\Move(SE,NE) 
\MarkLoc(NE) 
\Axis(SW,NE)(W-3, 
  0 & 20 & 40 & 60 & 80 ) 
\Axis(SW,NE)(S-3,&&&&) \EndDraw