diff options
| author | Marius <mariausol@gmail.com> | 2014-01-17 13:20:16 +0200 |
|---|---|---|
| committer | Marius <mariausol@gmail.com> | 2014-01-17 13:20:16 +0200 |
| commit | 5fa6d0b793f3d42ca2490a067395d1aa7e631161 (patch) | |
| tree | f50a698e5d6fff6a39f2eeaed8f31437b0710b04 /metapost/context/base | |
| parent | 0f87db01e9ffd4387ad2dfe744371613d79e0273 (diff) | |
| download | context-5fa6d0b793f3d42ca2490a067395d1aa7e631161.tar.gz | |
beta 2014.01.17 12:19
Diffstat (limited to 'metapost/context/base')
| -rw-r--r-- | metapost/context/base/mp-base.mpiv | 19 |
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 ; |