diff options
author | Karl Berry <karl@freefriends.org> | 2006-01-12 23:43:37 +0000 |
---|---|---|
committer | Karl Berry <karl@freefriends.org> | 2006-01-12 23:43:37 +0000 |
commit | 9199479b7f615c58da260c7ded57b63aed5cf799 (patch) | |
tree | 2a9a4068b7a757edd5db10b94946b6c90404b4d6 /Master/texmf-dist/metafont/misc/ps2mfbas.mf | |
parent | 2828582f70c71954ec767bead50118e55e23ceae (diff) |
trunk/Master/texmf-dist/metafont
git-svn-id: svn://tug.org/texlive/trunk@604 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/texmf-dist/metafont/misc/ps2mfbas.mf')
-rw-r--r-- | Master/texmf-dist/metafont/misc/ps2mfbas.mf | 37 |
1 files changed, 37 insertions, 0 deletions
diff --git a/Master/texmf-dist/metafont/misc/ps2mfbas.mf b/Master/texmf-dist/metafont/misc/ps2mfbas.mf new file mode 100644 index 00000000000..a5b2519e563 --- /dev/null +++ b/Master/texmf-dist/metafont/misc/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! |