diff options
author | Context Git Mirror Bot <phg42.2a@gmail.com> | 2016-01-12 23:15:08 +0100 |
---|---|---|
committer | Context Git Mirror Bot <phg42.2a@gmail.com> | 2016-01-12 23:15:08 +0100 |
commit | d8ce86dda9acef1bc636ad145aaaa2ae13b0f08a (patch) | |
tree | 9583e5048d56797983669f0cb178a618b3203d41 /tex/context/base/mkiv/pack-rul.mkiv | |
parent | 8d8d528d2ad52599f11250cfc567fea4f37f2a8b (diff) | |
download | context-d8ce86dda9acef1bc636ad145aaaa2ae13b0f08a.tar.gz |
2016-01-12 22:44:00
Diffstat (limited to 'tex/context/base/mkiv/pack-rul.mkiv')
-rw-r--r-- | tex/context/base/mkiv/pack-rul.mkiv | 61 |
1 files changed, 41 insertions, 20 deletions
diff --git a/tex/context/base/mkiv/pack-rul.mkiv b/tex/context/base/mkiv/pack-rul.mkiv index 4484d7587..9737fb288 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: @@ -698,19 +698,16 @@ \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\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) @@ -721,6 +718,30 @@ \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\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} |