summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/metafont/misc/ps2mfbas.mf
diff options
context:
space:
mode:
authorKarl Berry <karl@freefriends.org>2006-01-12 23:43:37 +0000
committerKarl Berry <karl@freefriends.org>2006-01-12 23:43:37 +0000
commit9199479b7f615c58da260c7ded57b63aed5cf799 (patch)
tree2a9a4068b7a757edd5db10b94946b6c90404b4d6 /Master/texmf-dist/metafont/misc/ps2mfbas.mf
parent2828582f70c71954ec767bead50118e55e23ceae (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.mf37
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!