summaryrefslogtreecommitdiff
path: root/metapost
diff options
context:
space:
mode:
authorMarius <mariausol@gmail.com>2014-01-17 13:20:16 +0200
committerMarius <mariausol@gmail.com>2014-01-17 13:20:16 +0200
commit5fa6d0b793f3d42ca2490a067395d1aa7e631161 (patch)
treef50a698e5d6fff6a39f2eeaed8f31437b0710b04 /metapost
parent0f87db01e9ffd4387ad2dfe744371613d79e0273 (diff)
downloadcontext-5fa6d0b793f3d42ca2490a067395d1aa7e631161.tar.gz
beta 2014.01.17 12:19
Diffstat (limited to 'metapost')
-rw-r--r--metapost/context/base/mp-base.mpiv19
1 files changed, 16 insertions, 3 deletions
diff --git a/metapost/context/base/mp-base.mpiv b/metapost/context/base/mp-base.mpiv
index 2887cc462..4d2e522a1 100644
--- a/metapost/context/base/mp-base.mpiv
+++ b/metapost/context/base/mp-base.mpiv
@@ -594,9 +594,22 @@ 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 ;
+%
+% testcase DEK:
+%
+% for j=1 upto 9 :
+% pickup pencircle xscaled .4 yscaled .2 ;
+% drawdot (10j,0) withpen pencircle xscaled .5j yscaled .25j rotated 45 ;
+% pickup pencircle xscaled .5j yscaled .25j rotated 45 ;
+% drawdot (10j,10);
+% endfor ;
+%
+% so ...
+
+let drawdot = draw ;
def unfill expr c = fill c withcolor background enddef ;
def undraw expr p = draw p withcolor background enddef ;