/usr/share/texlive/texmf-dist/metapost/support/charlib/sq is in texlive-metapost 2013.20140215-1.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
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;
|