summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/metapost/base/plain.mp
diff options
context:
space:
mode:
Diffstat (limited to 'Master/texmf-dist/metapost/base/plain.mp')
-rw-r--r--Master/texmf-dist/metapost/base/plain.mp11
1 files changed, 7 insertions, 4 deletions
diff --git a/Master/texmf-dist/metapost/base/plain.mp b/Master/texmf-dist/metapost/base/plain.mp
index bc0db8a57c1..52774f6fc67 100644
--- a/Master/texmf-dist/metapost/base/plain.mp
+++ b/Master/texmf-dist/metapost/base/plain.mp
@@ -1,8 +1,11 @@
+% $Id: plain.mp,v 1.3 2005/04/28 06:45:21 taco Exp $
+% Public domain.
+
% This file gives the macros for plain MetaPost
% It contains all the features of plain METAFONT except those specific to
% font-making. (See The METAFONTbook by D.E. Knuth).
% There are also a number of macros for labeling figures, etc.
-string base_name, base_version; base_name="plain"; base_version="0.64";
+string base_name, base_version; base_name="plain"; base_version="0.99";
message "Preloading the plain mem file, version "&base_version;
@@ -473,10 +476,10 @@ enddef;
def label = draw thelabel enddef;
newinternal dotlabeldiam; dotlabeldiam:=3bp;
-vardef dotlabel@#(expr s,z) =
- label@#(s,z);
+vardef dotlabel@#(expr s,z) text t_ =
+ label@#(s,z) t_;
interim linecap:=rounded;
- draw z withpen pencircle scaled dotlabeldiam;
+ draw z withpen pencircle scaled dotlabeldiam t_;
enddef;
def makelabel = dotlabel enddef;