You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
37 lines
786 B
37 lines
786 B
% 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!
|
|
|