summaryrefslogtreecommitdiff
path: root/tex/context/base/mkxl/page-ffl.mkxl
diff options
context:
space:
mode:
authorHans Hagen <pragma@wxs.nl>2021-06-09 21:01:42 +0200
committerContext Git Mirror Bot <phg@phi-gamma.net>2021-06-09 21:01:42 +0200
commitc558f97f6e47f6d2604fdea3bcd808794a6e41a7 (patch)
treeaa6369aa586b5c8b938c21e91e2149dd432af545 /tex/context/base/mkxl/page-ffl.mkxl
parent3d8b4fe968e7b195ef57a952108b3632ecbf10b4 (diff)
downloadcontext-c558f97f6e47f6d2604fdea3bcd808794a6e41a7.tar.gz
2021-06-09 20:33:00
Diffstat (limited to 'tex/context/base/mkxl/page-ffl.mkxl')
-rw-r--r--tex/context/base/mkxl/page-ffl.mkxl20
1 files changed, 14 insertions, 6 deletions
diff --git a/tex/context/base/mkxl/page-ffl.mkxl b/tex/context/base/mkxl/page-ffl.mkxl
index 9aeaeef60..77018004f 100644
--- a/tex/context/base/mkxl/page-ffl.mkxl
+++ b/tex/context/base/mkxl/page-ffl.mkxl
@@ -229,17 +229,25 @@
% todo
\else
\begingroup
- \setbox\scratchbox\vsplit#1 upto \textheight
+ \setbox\scratchboxone\hpack\bgroup
+ \edef\currentfacingfloat{\currentfacingfloat:#2}%
+ \inheritedfacingfloatframed{\strut}%
+ \egroup
+ \scratchdimenone\dimexpr\textheight-\htdp\scratchboxone+\lineheight\relax
+ \dontcomplain
+ \splittopskip\zeropoint
+ \setbox\scratchbox\vsplit#1 upto \scratchdimenone
\setsplitlisthtdp\scratchbox\strutht\strutdp
\setbox\scratchbox\hpack\bgroup
\edef\currentfacingfloat{\currentfacingfloat:#2}%
\inheritedfacingfloatframed{\box\scratchbox}%
\egroup
- \ifdim\ht\scratchbox<\dimexpr\textheight-\scratchdimen\relax
- \setbox\scratchbox\vbox{\box\scratchbox\directvspacing\p_spaceinbetween}%
- \else
- \setbox\scratchbox\vbox to \textheight{\box\scratchbox\vss}%
- \fi
+ \setbox\scratchbox\vbox
+ \ifdim\ht\scratchbox<\dimexpr\textheight-\scratchdimen\relax
+ {\box\scratchbox\directvspacing\p_spaceinbetween}%
+ \else
+ to \textheight{\box\scratchbox\vss}%
+ \fi
\global\advance\c_strc_floats_facing_saved\plusone
\putboxincache{\currentfacingfloat}{\number\c_strc_floats_facing_saved}\scratchbox
\endgroup