diff options
author | Hans Hagen <pragma@wxs.nl> | 2009-08-12 23:13:00 +0200 |
---|---|---|
committer | Hans Hagen <pragma@wxs.nl> | 2009-08-12 23:13:00 +0200 |
commit | e8f0a87bf330d7a4bbffca3f3c7b600e06a7a016 (patch) | |
tree | 91c5758e330763d2e16fbecd77fcd2d7ef6ebae2 /metapost | |
parent | 8def9a965dd090ee803cc6c12e186bb48ae4dcf7 (diff) | |
download | context-e8f0a87bf330d7a4bbffca3f3c7b600e06a7a016.tar.gz |
beta 2009.08.12 23:13
Diffstat (limited to 'metapost')
-rw-r--r-- | metapost/context/base/mp-text.mp | 9 |
1 files changed, 5 insertions, 4 deletions
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, |