diff options
Diffstat (limited to 'Master/texmf-dist/metapost/base/mfplain.mp')
-rw-r--r-- | Master/texmf-dist/metapost/base/mfplain.mp | 10 |
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; |