From 42dfe23e4991fe44dc2b3b61ee0a753fcfe4f74f Mon Sep 17 00:00:00 2001 From: Marius Date: Tue, 21 Jan 2014 11:20:15 +0200 Subject: beta 2014.01.21 10:11 --- metapost/context/base/mp-base.mpiv | 8 +++++++- 1 file changed, 7 insertions(+), 1 deletion(-) (limited to 'metapost/context/base/mp-base.mpiv') 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 ; -- cgit v1.2.3