diff options
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 |