beta 2011.10.05 23:32

1 files changed, 13 insertions, 0 deletions

diff --git a/tex/context/base/mlib-pps.mkiv b/tex/context/base/mlib-pps.mkiv
index 25ebab6fa..b2afbc0da 100644
--- a/tex/context/base/mlib-pps.mkiv
+++ b/tex/context/base/mlib-pps.mkiv
@@ -45,6 +45,19 @@
   {\ctxlua{metapost.gettext(\number\MPtextbox,#1)}%
    \vbox to \zeropoint{\vss\hbox to \zeropoint{\scale[\c!sx=#2,\c!sy=#3]{\raise\dp\MPtextbox\box\MPtextbox}\forcecolorhack\hss}}}
 
+% horrible:
+
+\def\MPLIBgettextscaledcm#1#2#3#4#5#6#7#8#9% 2-7: sx,rx,ry,sy,tx,ty
+  {\ctxlua{metapost.gettext(\number\MPtextbox,#1)}%
+   \setbox\scratchbox\hbox
+     {\hskip\dimexpr#6bp\raise#7bp\hbox
+        {\pdfsave
+         \pdfsetmatrix{#2 #3 #4 #5}%
+         \vbox to \zeropoint{\vss\hbox to \zeropoint{\scale[\c!sx=#8,\c!sy=#9]{\raise\dp\MPtextbox\box\MPtextbox}\forcecolorhack\hss}}%
+         \pdfrestore}}%
+   \smashbox\scratchbox
+   \box\scratchbox}
+
 \def\MPLIBgraphictext#1%
   {\startTEXpage[\c!scale=10000]#1\stopTEXpage}