diff options
| author | Hans Hagen <pragma@wxs.nl> | 2014-01-21 10:11:00 +0100 |
|---|---|---|
| committer | Hans Hagen <pragma@wxs.nl> | 2014-01-21 10:11:00 +0100 |
| commit | 2b42c7f229ff9dd02072ec7a70565417e1fccc53 (patch) | |
| tree | 055b7bd289e300daaf4321c0e7626710833d15e4 /metapost | |
| parent | a0dbccc8ba57c00966a7b5353035828f5dd59468 (diff) | |
| download | context-2b42c7f229ff9dd02072ec7a70565417e1fccc53.tar.gz | |
beta 2014.01.21 10:11
Diffstat (limited to 'metapost')
| -rw-r--r-- | metapost/context/base/mp-base.mpii | 14 | ||||
| -rw-r--r-- | metapost/context/base/mp-base.mpiv | 8 |
2 files changed, 18 insertions, 4 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; diff --git a/metapost/context/base/mp-base.mpiv b/metapost/context/base/mp-base.mpiv index 4d2e522a1..d5c7b8c21 100644 --- a/metapost/context/base/mp-base.mpiv +++ b/metapost/context/base/mp-base.mpiv @@ -609,7 +609,13 @@ enddef ; % % so ... -let drawdot = draw ; +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 ; |