diff options
author | Marius <mariausol@gmail.com> | 2014-01-21 11:20:15 +0200 |
---|---|---|
committer | Marius <mariausol@gmail.com> | 2014-01-21 11:20:15 +0200 |
commit | 42dfe23e4991fe44dc2b3b61ee0a753fcfe4f74f (patch) | |
tree | c8a1e13af71de1b997432494bfdf89bff512df7e /metapost/context/base/mp-base.mpii | |
parent | 7004566a3f05be822d9633027e5ff7d64768c99f (diff) | |
download | context-42dfe23e4991fe44dc2b3b61ee0a753fcfe4f74f.tar.gz |
beta 2014.01.21 10:11
Diffstat (limited to 'metapost/context/base/mp-base.mpii')
-rw-r--r-- | metapost/context/base/mp-base.mpii | 14 |
1 files changed, 11 insertions, 3 deletions
diff --git a/metapost/context/base/mp-base.mpii b/metapost/context/base/mp-base.mpii index 0f8104447..95cacb288 100644 --- a/metapost/context/base/mp-base.mpii +++ b/metapost/context/base/mp-base.mpii @@ -360,9 +360,17 @@ 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 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; |