diff options
Diffstat (limited to 'obsolete/language/armtex/v1.0/ps2mfbas.mf')
-rw-r--r-- | obsolete/language/armtex/v1.0/ps2mfbas.mf | 37 |
1 files changed, 37 insertions, 0 deletions
diff --git a/obsolete/language/armtex/v1.0/ps2mfbas.mf b/obsolete/language/armtex/v1.0/ps2mfbas.mf new file mode 100644 index 0000000000..9fc2791e56 --- /dev/null +++ b/obsolete/language/armtex/v1.0/ps2mfbas.mf @@ -0,0 +1,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! |