diff options
| author | Hans Hagen <pragma@wxs.nl> | 2011-10-17 10:36:00 +0200 |
|---|---|---|
| committer | Hans Hagen <pragma@wxs.nl> | 2011-10-17 10:36:00 +0200 |
| commit | 3c50b29fa3fe5ec86e20e0812485067fa5b7eeb2 (patch) | |
| tree | b1248601d2eeb941fafd55492c70a5c5908f0814 /metapost/context/base/mp-mlib.mpiv | |
| parent | 6d7cbf123ae37267f91f51c5e65ff36870bf5e73 (diff) | |
| download | context-3c50b29fa3fe5ec86e20e0812485067fa5b7eeb2.tar.gz | |
beta 2011.10.17 10:36
Diffstat (limited to 'metapost/context/base/mp-mlib.mpiv')
| -rw-r--r-- | metapost/context/base/mp-mlib.mpiv | 10 |
1 files changed, 9 insertions, 1 deletions
diff --git a/metapost/context/base/mp-mlib.mpiv b/metapost/context/base/mp-mlib.mpiv index fe27bee47..b0b360cee 100644 --- a/metapost/context/base/mp-mlib.mpiv +++ b/metapost/context/base/mp-mlib.mpiv @@ -246,7 +246,7 @@ vardef thetextext@#(expr p,z) = fi enddef ; -vardef textext@#(expr p) = +vardef textext@#(expr p) = % no draw hers thetextext@#(p,origin) enddef ; @@ -262,6 +262,14 @@ def label = % takes two arguments, contrary to textext that takes one draw thelabel enddef ; +vardef anchored@#(expr p, z) = % beware: no "+ mfun_laboff@#" here (never!) + p + if (mfun_labtype@# >= 10) : + shifted (0,ypart center p) + fi + shifted (z + (mfun_labxf@#*lrcorner p + mfun_labyf@#*ulcorner p + (1-mfun_labxf@#-mfun_labyf@#)*llcorner p)) +enddef ; + let normalinfont = infont ; primarydef str infont name = % nasty hack |