/usr/share/texmf-texlive/metafont/misc/ps2mfbas.mf is in texlive-base 2009-15.
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 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 | % ps2mfbase.mf
def nonzerowinding =
cull currentpicture dropping (0,0);
enddef;
extra_endchar := extra_endchar & "nonzerowinding;";
%
smoothing := 0; autorounding := 0;
turningcheck := 0;
define_pixels (FX, FY);
%
picture chp [];
pair p[];
%
def seac (expr achar, bchar, adx, ady) =
currentpicture := chp [bchar] + chp [achar] shifted (adx * FX, ady * FY);
enddef;
def endseacchar =
endgroup
enddef;
%
def FuF (expr p_path) =
path this_path;
this_path = (p_path -- cycle);
% fill (this_path xscaled FX yscaled FY);
fill (this_path);
enddef;
%
vardef lbl@#(text t) =
if proofing > 1:
forsuffixes $$=b,:
forsuffixes $=t:
makelabel@# (str$.$$, z$.$$);
endfor
endfor
fi
enddef;
% That's all, Folks!
|