diff options
author | Hans Hagen <pragma@wxs.nl> | 2019-12-31 11:51:31 +0100 |
---|---|---|
committer | Context Git Mirror Bot <phg@phi-gamma.net> | 2019-12-31 11:51:31 +0100 |
commit | 244d921e51a1cfdc57ebe313a2e561d579a78150 (patch) | |
tree | 323f203c4b691a434ae1b41a59c0acd5d73950be /tex/context/base/mkiv/pack-rul.mkxl | |
parent | 54732448eb933607bdcb11a457756741dc4e0b44 (diff) | |
download | context-244d921e51a1cfdc57ebe313a2e561d579a78150.tar.gz |
2019-12-31 11:38:00
Diffstat (limited to 'tex/context/base/mkiv/pack-rul.mkxl')
-rw-r--r-- | tex/context/base/mkiv/pack-rul.mkxl | 51 |
1 files changed, 39 insertions, 12 deletions
diff --git a/tex/context/base/mkiv/pack-rul.mkxl b/tex/context/base/mkiv/pack-rul.mkxl index 4304430d1..f0dc7de1b 100644 --- a/tex/context/base/mkiv/pack-rul.mkxl +++ b/tex/context/base/mkiv/pack-rul.mkxl @@ -469,21 +469,48 @@ {\def\pack_framed_define_overlay_indeed##1{\setvalue{\??overlay##1}{\executedefinedoverlay{##1}{#2}}}% \processcommalist[#1]\pack_framed_define_overlay_indeed} +% \unexpanded\def\executedefinedoverlay#1#2% we can share the definitions +% {\bgroup % redundant grouping +% \setbox\scratchbox\hbox\bgroup +% \ifzeropt\d_framed_target_dp +% \the\everyoverlay#2% saves wrapping (and lua call) +% \else +% \lower\d_framed_target_dp +% \hbox{\the\everyoverlay#2}% +% \fi +% \egroup +% \setlayoutcomponentattribute{\v!overlay:#1}% +% \setbox\scratchbox\hpack \layoutcomponentboxattribute +% {\kern -.5\dimexpr\wd\scratchbox-\d_framed_target_wd\relax % was \d_overlay_width +% \raise-.5\dimexpr\ht\scratchbox-\d_framed_target_ht\relax % not \d_overlay_height ! +% \box\scratchbox}% +% \wd\scratchbox\d_framed_target_wd +% \ht\scratchbox\d_framed_target_ht +% \dp\scratchbox\d_framed_target_dp +% \box\scratchbox +% \egroup} + +% 20191231: moved from cont-exp: +% +% % this is like the old: +% +% \unexpanded\def\executedefinedoverlay#1#2% we can share the definitions +% {\bgroup % redundant grouping +% \setlayoutcomponentattribute{\v!overlay:#1}% +% \setbox\scratchbox\hbox \layoutcomponentboxattribute{\the\everyoverlay#2}% +% \boxxoffset\scratchbox-.5\dimexpr\wd\scratchbox-\d_framed_target_wd\relax % was \d_overlay_width +% % \boxyoffset\scratchbox-.5\dimexpr\ht\scratchbox-\d_framed_target_ht+\d_framed_target_dp\relax % not \d_overlay_height ! +% \wd\scratchbox\d_framed_target_wd +% \ht\scratchbox\d_framed_target_ht +% \dp\scratchbox\d_framed_target_dp +% \box\scratchbox +% \egroup} + \unexpanded\def\executedefinedoverlay#1#2% we can share the definitions {\bgroup % redundant grouping - \setbox\scratchbox\hbox\bgroup - \ifzeropt\d_framed_target_dp - \the\everyoverlay#2% saves wrapping (and lua call) - \else - \lower\d_framed_target_dp - \hbox{\the\everyoverlay#2}% - \fi - \egroup \setlayoutcomponentattribute{\v!overlay:#1}% - \setbox\scratchbox\hpack \layoutcomponentboxattribute - {\kern -.5\dimexpr\wd\scratchbox-\d_framed_target_wd\relax % was \d_overlay_width - \raise-.5\dimexpr\ht\scratchbox-\d_framed_target_ht\relax % not \d_overlay_height ! - \box\scratchbox}% + \setbox\scratchbox\layoutcomponentboxattribute\hbox{\the\everyoverlay#2}% + \boxxoffset\scratchbox-.5\dimexpr\wd\scratchbox-\d_framed_target_wd\relax \wd\scratchbox\d_framed_target_wd \ht\scratchbox\d_framed_target_ht \dp\scratchbox\d_framed_target_dp |