diff options
author | Hans Hagen <pragma@wxs.nl> | 2012-05-05 10:42:00 +0200 |
---|---|---|
committer | Hans Hagen <pragma@wxs.nl> | 2012-05-05 10:42:00 +0200 |
commit | 3e0a49fa480ce962beb49ca9f4741ee97bebc176 (patch) | |
tree | 75eb0bd1970bc4f7e5087ccadc48824f0617a451 /tex/context/base/mlib-pps.mkiv | |
parent | 31cd3d0f156a0a5f8981e18ac8a2f2e3d93341c4 (diff) | |
download | context-3e0a49fa480ce962beb49ca9f4741ee97bebc176.tar.gz |
beta 2012.05.05 10:42
Diffstat (limited to 'tex/context/base/mlib-pps.mkiv')
-rw-r--r-- | tex/context/base/mlib-pps.mkiv | 28 |
1 files changed, 28 insertions, 0 deletions
diff --git a/tex/context/base/mlib-pps.mkiv b/tex/context/base/mlib-pps.mkiv index b233f7b08..950d1be57 100644 --- a/tex/context/base/mlib-pps.mkiv +++ b/tex/context/base/mlib-pps.mkiv @@ -106,4 +106,32 @@ \def\MPLIBresettexts {\ctxlua{metapost.resettextexts()}} +%D Experiment + +\let\MPLIBstartgroup\gobblefivearguments +\let\MPLIBstopgroup \relax + +%D Also experimental: + +\def\doMPLIBstopgroup#1#2#3#4#5#6% some day this might happen elsewhere + {\egroup + \wd\scratchbox \dimexpr#5\onebasepoint-#3\onebasepoint\relax + \ht\scratchbox #6\onebasepoint + \dp\scratchbox-#4\onebasepoint + \pdfxform + attr {/Group << /S /Transparency /I \ifnum#1=1 true \else false \fi /K \ifnum#1=1 true \else false \fi >>} + resources {\pdfbackendcurrentresources} + \scratchbox + \setbox\scratchbox\hbox\bgroup\pdfrefxform\pdflastxform\egroup + \wd\scratchbox\zeropoint + \ht\scratchbox\zeropoint + \dp\scratchbox\zeropoint + \box\scratchbox + \endgroup} + +\def\MPLIBstartgroup#1#2#3#4#5#6% isolated 0/1, knockout 0/1 llx lly urx ury + {\begingroup + \setbox\scratchbox\hbox\bgroup + \def\MPLIBstopgroup{\doMPLIBstopgroup{#1}{#2}{#3}{#4}{#5}{#6}}} + \protect \endinput |