diff options
author | Context Git Mirror Bot <phg42.2a@gmail.com> | 2016-01-18 23:15:08 +0100 |
---|---|---|
committer | Context Git Mirror Bot <phg42.2a@gmail.com> | 2016-01-18 23:15:08 +0100 |
commit | 975f4f9f2d71d8021900955404f8b144ca6895f5 (patch) | |
tree | ce7dcd5288845a485bc8d457e6c705a87a020b10 /tex/context/base/mkiv/pack-rul.mkiv | |
parent | e200230205ec1297f8d3ade3d491585f85d87fff (diff) | |
download | context-975f4f9f2d71d8021900955404f8b144ca6895f5.tar.gz |
2016-01-18 22:24:00
Diffstat (limited to 'tex/context/base/mkiv/pack-rul.mkiv')
-rw-r--r-- | tex/context/base/mkiv/pack-rul.mkiv | 78 |
1 files changed, 37 insertions, 41 deletions
diff --git a/tex/context/base/mkiv/pack-rul.mkiv b/tex/context/base/mkiv/pack-rul.mkiv index 0d6ab20bd..5fa938bda 100644 --- a/tex/context/base/mkiv/pack-rul.mkiv +++ b/tex/context/base/mkiv/pack-rul.mkiv @@ -507,19 +507,19 @@ %D \macros %D {overlayfakebox} -\unexpanded\def\overlayfakebox - {\hpack - {\setbox\scratchbox\emptyhbox - \wd\scratchbox\d_overlay_width - \ht\scratchbox\d_overlay_height - \box\scratchbox}} - % \unexpanded\def\overlayfakebox -% {\hpack % redundant but needs testing -% {\novrule -% \s!width \d_overlay_width -% \s!height\d_overlay_height -% \s!depth \zeropoint}} +% {\hpack +% {\setbox\scratchbox\emptyhbox +% \wd\scratchbox\d_overlay_width +% \ht\scratchbox\d_overlay_height +% \box\scratchbox}} + +\unexpanded\def\overlayfakebox + {\hpack % redundant but needs testing + {\novrule + \s!width \d_overlay_width + \s!height\d_overlay_height + \s!depth \zeropoint}} %D For testing we provide: @@ -697,41 +697,17 @@ \box\b_framed_normal \box\b_framed_extra}} -\def\pack_framed_stroked_box_normal - {\setbox\scratchbox\emptyhbox - \wd\scratchbox\d_framed_target_wd - \ht\scratchbox\d_framed_target_ht - \dp\scratchbox\d_framed_target_dp - \setbox\scratchbox\vpack \bgroup - \csname \??framedtop\p_framed_frame\framedparameter\c!topframe \endcsname - \nointerlineskip % new (needed for fences) - \hbox \bgroup - \csname \??framedleft\p_framed_frame\framedparameter\c!leftframe \endcsname - \box\scratchbox - \csname \??framedright\p_framed_frame\framedparameter\c!rightframe \endcsname - \egroup - \nointerlineskip % new (needed for fences) - \csname \??framedbottom\p_framed_frame\framedparameter\c!bottomframe\endcsname - \egroup - \wd\scratchbox\d_framed_target_wd - \ht\scratchbox\d_framed_target_ht - \dp\scratchbox\d_framed_target_dp - \box\scratchbox} - % \def\pack_framed_stroked_box_normal -% {%\setbox\scratchbox\emptyhbox -% %\wd\scratchbox\d_framed_target_wd -% %\ht\scratchbox\d_framed_target_ht -% %\dp\scratchbox\d_framed_target_dp +% {\setbox\scratchbox\emptyhbox +% \wd\scratchbox\d_framed_target_wd +% \ht\scratchbox\d_framed_target_ht +% \dp\scratchbox\d_framed_target_dp % \setbox\scratchbox\vpack \bgroup % \csname \??framedtop\p_framed_frame\framedparameter\c!topframe \endcsname % \nointerlineskip % new (needed for fences) % \hbox \bgroup % \csname \??framedleft\p_framed_frame\framedparameter\c!leftframe \endcsname -% \novrule -% \s!width \d_framed_target_wd -% \s!height\d_framed_target_ht -% \s!depth \d_framed_target_dp +% \box\scratchbox % \csname \??framedright\p_framed_frame\framedparameter\c!rightframe \endcsname % \egroup % \nointerlineskip % new (needed for fences) @@ -742,6 +718,26 @@ % \dp\scratchbox\d_framed_target_dp % \box\scratchbox} +\def\pack_framed_stroked_box_normal + {\setbox\scratchbox\vpack \bgroup + \csname \??framedtop\p_framed_frame\framedparameter\c!topframe \endcsname + \nointerlineskip % new (needed for fences) + \hbox \bgroup + \csname \??framedleft\p_framed_frame\framedparameter\c!leftframe \endcsname + \novrule + \s!width \d_framed_target_wd + \s!height\d_framed_target_ht + \s!depth \d_framed_target_dp + \csname \??framedright\p_framed_frame\framedparameter\c!rightframe \endcsname + \egroup + \nointerlineskip % new (needed for fences) + \csname \??framedbottom\p_framed_frame\framedparameter\c!bottomframe\endcsname + \egroup + \wd\scratchbox\d_framed_target_wd + \ht\scratchbox\d_framed_target_ht + \dp\scratchbox\d_framed_target_dp + \box\scratchbox} + \def\pack_framed_t_rule{\hrule\s!height\d_framed_linewidth\kern-\d_framed_linewidth} \def\pack_framed_b_rule{\kern-\d_framed_linewidth\hrule\s!height\d_framed_linewidth} \def\pack_framed_r_rule{\kern-\d_framed_linewidth\vrule\s!width\d_framed_linewidth} |