summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/metapost
diff options
context:
space:
mode:
authorTaco Hoekwater <taco@elvenkind.com>2014-03-14 14:39:58 +0000
committerTaco Hoekwater <taco@elvenkind.com>2014-03-14 14:39:58 +0000
commit97f7834d79c2ef1a3a7a3d0ed038881a2fb1f459 (patch)
tree5215c7d69d8ac7fef7f74f634b2af2a41f74adc9 /Master/texmf-dist/metapost
parent0ac6c0407b118d9edd7f87458d5ae4cd18f769bd (diff)
source files for metapost 1.900 (no autoreconf)
git-svn-id: svn://tug.org/texlive/trunk@33174 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/texmf-dist/metapost')
-rw-r--r--Master/texmf-dist/metapost/base/plain.mp12
1 files changed, 8 insertions, 4 deletions
diff --git a/Master/texmf-dist/metapost/base/plain.mp b/Master/texmf-dist/metapost/base/plain.mp
index d1a6212f303..244eb410c84 100644
--- a/Master/texmf-dist/metapost/base/plain.mp
+++ b/Master/texmf-dist/metapost/base/plain.mp
@@ -5,7 +5,7 @@
% 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="1.004";
+string base_name, base_version; base_name="plain"; base_version="1.005";
message "Preloading the plain mem file, version "&base_version;
@@ -356,9 +356,13 @@ enddef;
def filldraw expr c =
addto currentpicture contour c withpen currentpen
_op_ enddef;
-def drawdot expr z =
- addto currentpicture contour makepath currentpen shifted z
- _op_ enddef;
+def drawdot expr p =
+ if pair p :
+ addto currentpicture doublepath p withpen currentpen _op_
+ else :
+ errmessage("drawdot only accepts a pair expression")
+ fi
+enddef;
def unfill expr c = fill c withcolor background enddef;
def undraw expr p = draw p withcolor background enddef;