% $Id: bx,v 1.2 2004/09/19 21:47:11 karl Exp $
% Public domain.
vardef C.bx(expr n) =
 save p; picture p;
 p=nullpicture;
 addto p contour ((0,0)--(1,0)--(1,1)--(0,1)--cycle)
  scaled (fontsize n/2);
 p enddef;
