summaryrefslogtreecommitdiff
path: root/tex/context/base/mkiv/pack-rul.mkiv
diff options
context:
space:
mode:
authorContext Git Mirror Bot <phg42.2a@gmail.com>2016-01-12 23:15:08 +0100
committerContext Git Mirror Bot <phg42.2a@gmail.com>2016-01-12 23:15:08 +0100
commitd8ce86dda9acef1bc636ad145aaaa2ae13b0f08a (patch)
tree9583e5048d56797983669f0cb178a618b3203d41 /tex/context/base/mkiv/pack-rul.mkiv
parent8d8d528d2ad52599f11250cfc567fea4f37f2a8b (diff)
downloadcontext-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.mkiv61
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}