From e4c575ea1e6cb242b3b8441eb4febc0e469412f2 Mon Sep 17 00:00:00 2001 From: Hans Hagen Date: Mon, 10 Mar 2008 23:20:00 +0100 Subject: stable 2008.03.10 23:20 --- metapost/context/base/mp-tool.mp | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) (limited to 'metapost') diff --git a/metapost/context/base/mp-tool.mp b/metapost/context/base/mp-tool.mp index a98f73922..567ff16fd 100644 --- a/metapost/context/base/mp-tool.mp +++ b/metapost/context/base/mp-tool.mp @@ -2220,9 +2220,10 @@ enddef ; % handy for myself def addbackground text t = - begingroup ; save p ; picture p ; + begingroup ; save p, b ; picture p ; path b ; + b := boundingbox currentpicture ; p := currentpicture ; currentpicture := nullpicture ; - fill boundingbox p t ; addto currentpicture also p ; + fill b t ; setbounds currentpicture to b ; addto currentpicture also p ; endgroup ; enddef ; -- cgit v1.2.3