From aacdde41ef02392949aee16b2e428a8913d27efe Mon Sep 17 00:00:00 2001 From: Hans Hagen Date: Tue, 7 Aug 2007 01:37:00 +0200 Subject: stable 2007.08.07 01:37 --- metapost/context/base/mp-base.mp | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) (limited to 'metapost') diff --git a/metapost/context/base/mp-base.mp b/metapost/context/base/mp-base.mp index 87f3fd2f7..41eb7aa96 100644 --- a/metapost/context/base/mp-base.mp +++ b/metapost/context/base/mp-base.mp @@ -477,10 +477,11 @@ enddef; def label = draw thelabel enddef; newinternal dotlabeldiam; dotlabeldiam:=3bp; -vardef dotlabel@#(expr s,z) = +vardef dotlabel@#(expr s,z) text t_ = + label@#(s,z) t_; label@#(s,z); interim linecap:=rounded; - draw z withpen pencircle scaled dotlabeldiam; + draw z withpen pencircle scaled dotlabeldiam t_; enddef; def makelabel = dotlabel enddef; -- cgit v1.2.3