\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(2,2) 
 
\Define\DrawBar(2){{ 
   \DrawRect(#1,#2) 
   \Q=1; \Q/52;  \R=1; \R/78; 
   \Scale(\Val\Q,\Val\R) 
   \Scale(#1,#2) 
\ant}} 
\BarChartSpec(HT,0,10)(0) 
\BarChart( 10,Anthropology  & 
  50,Antic & 30,Anthony  & 75,Ant) 
\MoveToLoc(NE)  \CSeg[0.333]\Move(NW,NE) 
\MarkLoc(NE) 
\MoveToLoc(SW) \Move(0,-1) 
\MarkLoc(SW) 
\Axis(SW,NE)(S1, 0 & 25 & 
  50 & 75 & 100)    \EndDraw