From 7d3f53a8898147b0cb36f76455f6a6003a6f4556 Mon Sep 17 00:00:00 2001 From: Marius Date: Fri, 24 Jan 2014 15:20:18 +0200 Subject: beta 2014.01.24 14:17 --- metapost/context/base/mp-base.mpiv | 11 ++++++++++- 1 file changed, 10 insertions(+), 1 deletion(-) (limited to 'metapost') diff --git a/metapost/context/base/mp-base.mpiv b/metapost/context/base/mp-base.mpiv index d5c7b8c21..638be4628 100644 --- a/metapost/context/base/mp-base.mpiv +++ b/metapost/context/base/mp-base.mpiv @@ -607,7 +607,16 @@ enddef ; % drawdot (10j,10); % endfor ; % -% so ... +% or: +% +%\startMPpage +% +% def drawdot expr z = +% addto currentpicture contour (makepath currentpen shifted z) _op_ +% enddef; +% +% drawdot origin shifted (0,-3cm) withpen pencircle scaled 2cm ; +% pickup pencircle scaled 2cm ; drawdot origin withcolor red ; def drawdot expr p = if pair p : -- cgit v1.2.3