summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/metapost/base/mfplain.mp
diff options
context:
space:
mode:
Diffstat (limited to 'Master/texmf-dist/metapost/base/mfplain.mp')
-rw-r--r--Master/texmf-dist/metapost/base/mfplain.mp10
1 files changed, 7 insertions, 3 deletions
diff --git a/Master/texmf-dist/metapost/base/mfplain.mp b/Master/texmf-dist/metapost/base/mfplain.mp
index 3ef191f0c34..74e1867589d 100644
--- a/Master/texmf-dist/metapost/base/mfplain.mp
+++ b/Master/texmf-dist/metapost/base/mfplain.mp
@@ -1,6 +1,9 @@
+% $Id: mfplain.mp,v 1.9 2005/04/28 06:45:21 taco Exp $
+% Public domain.
+
% This is the plain MetaPost base that's look like what's described
% in The METAFONTbook.
-string base_name, base_version; base_name="mfplain"; base_version="0.62";
+string base_name, base_version; base_name="mfplain"; base_version="0.99";
message "Preloading the plain base, version "&base_version&": preliminaries,";
@@ -21,7 +24,7 @@ tracinglostchars:=1;
smoothing:=1; autorounding:=2; % These are ignored by MetaPost
turningcheck:=1; granularity:=1;
-def gobble primary g = enddef;
+def gobble primary g = enddef; def killtext text t = enddef;
primarydef g gobbled gg = enddef;
def hide(text t) = exitif numeric begingroup t;endgroup; enddef;
def ??? = hide(interim showstopping:=1; showdependencies) enddef;
@@ -438,7 +441,7 @@ defaultscale := 1;
labeloffset := 3;
vardef makelabel@#(expr s,z) = % puts string s near point z
- picture p;
+ save p; picture p;
if known z:
p = s infont defaultfont scaled (defaultscale/bp_per_pixel);
draw p shifted (z t_ + labeloffset/bp_per_pixel*laboff@# -
@@ -562,6 +565,7 @@ def shipit =
(identity shifted (xoffset,yoffset) scaled bp_per_pixel)
fi
enddef;
+def cull text t = enddef;
def cullit = enddef;
newinternal xoffset, yoffset;