summaryrefslogtreecommitdiff
path: root/obsolete/language/armtex/v1.0/ps2mfbas.mf
diff options
context:
space:
mode:
Diffstat (limited to 'obsolete/language/armtex/v1.0/ps2mfbas.mf')
-rw-r--r--obsolete/language/armtex/v1.0/ps2mfbas.mf37
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!