From e8f0a87bf330d7a4bbffca3f3c7b600e06a7a016 Mon Sep 17 00:00:00 2001 From: Hans Hagen Date: Wed, 12 Aug 2009 23:13:00 +0200 Subject: beta 2009.08.12 23:13 --- metapost/context/base/mp-text.mp | 9 +++++---- 1 file changed, 5 insertions(+), 4 deletions(-) (limited to 'metapost') diff --git a/metapost/context/base/mp-text.mp b/metapost/context/base/mp-text.mp index a76458144..efba39d7d 100644 --- a/metapost/context/base/mp-text.mp +++ b/metapost/context/base/mp-text.mp @@ -110,12 +110,13 @@ pair laboff.raw ; laboff.raw = (0,0) ; % (infinity,infinity) ; vardef thelabel@#(expr s, z) = save p ; picture p ; p = s if not picture s : infont defaultfont scaled defaultscale fi ; - if laboff@#<>laboff.origin : +% wrong, see myway textext +% if laboff@#<>laboff.origin : (p shifted (z + labeloffset*laboff@# - (labxf@#*lrcorner p + labyf@#*ulcorner p + (1-labxf@#-labyf@#)*llcorner p))) - else : - (p shifted z) - fi +% else : +% (p shifted z) +% fi enddef; def build_parshape (expr p, offset_or_path, dx, dy, -- cgit v1.2.3