Mini Shell
Mini Shell
| Direktori : /data/old/usr/share/texlive/texmf-dist/metapost/support/charlib/ |
| Current File : //data/old/usr/share/texlive/texmf-dist/metapost/support/charlib/sq |
% $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;