summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/metapost/support/charlib/sq
blob: 491c8c97c66ca59aa692fe555d45bffc8e7459ff (plain)
1
2
3
4
5
6
7
8
9
10
11
% $Id: sq,v 1.2 2004/09/19 21:47:11 karl Exp $
% Public domain.
vardef C.sq(expr n) =
 save p,q;
 picture p; p=nullpicture;
 path q; q=(0,0)--(1,0)--(1,1)--(0,1)--cycle;
 addto p
  if n="Times-Bold": contour q
  else: doublepath q withpen pencircle scaled.0667 fi;
 p scaled (fontsize n/2)
enddef;