%D \module
%D   [       file=page-one,
%D        version=2000.10.20,
%D          title=\CONTEXT\ Page Macros,
%D       subtitle=Default Routine,
%D         author=Hans Hagen,
%D           date=\currentdate,
%D      copyright={PRAGMA ADE \& \CONTEXT\ Development Team}]
%C
%C This module is part of the \CONTEXT\ macro||package and is
%C therefore copyrighted by \PRAGMA. See mreadme.pdf for
%C details.

\writestatus{loading}{ConTeXt Page Macros / Default Routine}

%D This is just the good old \CONTEXT\ output routine, which has been there right
%D from the start.

% todo: flush page figures without header and footer

\unprotect

% OTRONE: basic single column

\newconstant \c_page_one_float_method

\protected\def\page_one_command_next_page
  {\page_otr_eject_page}

\protected\def\page_one_command_next_page_and_inserts
  {\page_otr_eject_page_and_flush_inserts}

\protected\def\page_one_command_set_hsize
  {\global\hsize\textwidth
   \columnwidth\textwidth} % bonus so that it's not zero

\protected\def\page_one_command_set_float_hsize
  {\global\hsize\textwidth}

%D It's complicated:

\newconditional\c_page_one_set_vsize_tmp

\installtextracker{otr.insertheights}
  {\c_page_one_set_vsize_tmp\conditionaltrue}
  {\c_page_one_set_vsize_tmp\conditionalfalse}

\def\page_one_command_set_vsize_tmp
  {\settotalinsertionheight
   \writestatus
     {set vsize one}
     {insert heights=\the\insertheights,
      total insertion height=\the\totalinsertionheight,
      delta=\todimension{\insertheights-\totalinsertionheight}}%
   \page_one_command_set_vsize_new}

\def\page_one_command_set_vsize_old
  {\settotalinsertionheight
   \pagegoal{\vsize-\totalinsertionheight}}

\def\page_one_command_set_vsize_new
  {\pagegoal{%
      \vsize
     -\d_page_floats_inserted_top
     -\d_page_floats_inserted_bottom
     -\insertheights
   }}

\def\snappedtextheight
  {\dimexpr
     \localcontrolled{\ifcase\layoutlines
       \getrawnoflines\textheight
     \else
       \noflines\layoutlines
     \fi}\noflines\openlineheight
   \relax}

\protected\def\page_one_command_set_vsize
  {\ifgridsnapping
     \global\vsize\snappedtextheight
   \orelse\ifgridlinesnapping
     \global\vsize\snappedtextheight
   \else
     \global\vsize\textheight
   \fi
   %
   \ifzeropt\textadaptive\else
     \global\d_page_adapts_delta\textadaptive
     \global\pageextragoal-\textadaptive
   \fi
   %
   \ifconditional\c_page_insert_only_check
     \ifcase\insertonlycount\else
       \global\advance\vsize-\pageinsertonlyfactor\lineheight
     % \global\advance\vsize-\pageinsertonlyfactor\openlineheight
     \fi
   \fi
   %
   \global\advanceby\vsize\d_page_adapts_delta
   % alternatively we could set it in builders.buildpage_filter
 % \ifdim\pagegoal<\maxdimen .. \fi
 % \writestatus{!!!!!!!!}{\the\vsize-> v:\the\pagevsize,g:\the\pagegoal,t:\the\pagetotal,i:\the\insertheights}%
   \ifconditional\c_page_one_set_vsize_tmp
     \page_one_command_set_vsize_tmp
   \orelse\ifzeropt\insertheights
     \page_one_command_set_vsize_old
   \else
     \page_one_command_set_vsize_new
   \fi}

% 1 = partial page, 2 = whole page, 3 = partial page

% We really need a setting! Todo, what key to use?

\pushoverloadmode
    \setnewconstant\kindofpagetextareas\plustwo                     % \plusone can become default some day
    \overloaded\mutable\let\kindofpagetextareas\kindofpagetextareas % for now mutable, can become a key/value
\popoverloadmode

\def\page_one_registered_text_area_a % two arguments: (un)vbox n
  {\ifconditional\c_page_areas_enabled
     \expandafter\page_one_registered_text_area_a_indeed
   \else
     \expandafter\firstofoneargument
   \fi}

\def\page_one_registered_text_area_b % one arguments: content
  {\ifconditional\c_page_areas_enabled
     \expandafter\page_one_registered_text_area_b_indeed
   \else
     \expandafter\firstofoneargument
   \fi}

\def\page_one_registered_text_area_a_indeed % two arguments: (un)vbox n
  {\ifcase\kindofpagetextareas
     \expandafter\firstofoneargument
   \or % partial page (experimental)
     \expandafter\page_areas_register_direct
   \or % whole page   (default)
     \expandafter\firstofoneargument
   \else
     \expandafter\firstofoneargument
   \fi}

\def\page_one_registered_text_area_b_indeed % one arguments: content
  {\ifcase\kindofpagetextareas
     % \expandafter\firstofoneargument
   \or % partial page (experimental)
     % \expandafter\firstofoneargument
   \or % whole page   (default)
     \expandafter\page_areas_register_boxed
   \else
     % \expandafter\firstofoneargument
   \fi}

\newdimension\d_page_one_natural_depth
\newdimension\d_page_one_natural_height
\newdimension\d_page_one_natural_total

\newbox      \b_page_one_bottom_notes
\newbox      \b_page_one_contents

\let\page_one_command_package_show_state\relax

% \fakepagenotes ... needs checking
%
% we can also have bottom notes on top of bottom insertions

%D \starttyping
%D \setuplayout[height=middle] \showframe
%D
%D % \markpages[stretch][lines=2] % current page
%D
%D \starttext
%D     \brokenpenalty 10000 \clubpenalty 20000 \widowpenalty 20000
%D     \dorecurse{10}{\samplefile{tufte}\par} \page
%D     \startmarkpages[stretch][lines=2]
%D         \dorecurse{10}{\samplefile{tufte}\par} \page
%D     \stopmarkpages
%D     \dorecurse{10}{\samplefile{tufte}\par} \page
%D \stoptext
%D \stoptyping

%D This will be replaced by vz

\newinteger\c_page_one_stretch % we use marked pages which actually slow down a little

\def\page_one_check_stretch_contents
  {\ifdim{\textheight-\ht\b_page_one_contents}<\c_page_one_stretch\lineheight
     \setbox\b_page_one_contents\vpack\bgroup
       % no need to speed up low level
       \scale[\c!height=\textheight,\c!width=\textwidth]{\box\b_page_one_contents}%
     \egroup
   \fi}

\def\page_one_check_stretch_lines
  {\edef\m_lines{\markedpageparameter\v!stretch\v!lines}%
   \ifempty\m_lines\else\c_page_one_stretch\m_lines\fi}

\let\page_one_hook_for_checks\gobbleoneargument

\protected\def\page_one_command_package_contents#1#2% \box<n> \unvbox<n> % this one will be redone (checked)
  {\bgroup
   \strc_notes_check_if_bottom_present
   \d_page_one_natural_depth\dp#2\relax
   % we need to set the height as otherwise the shrink will not kick in so the following
   % no longer applies:
   %
   % \setbox\b_page_one_contents\vbox \ifconditional\c_notes_bottom_present to \textheight \fi
   %
   \page_layouts_check_stretch#2%
   %
  %\ifconditional\c_notes_bottom_present\else
  %   \doifmarkedpage\v!stretch\page_one_check_stretch_lines
  %\fi
   \ifconditional\c_notes_bottom_present
      \setbox\b_page_one_bottom_notes\vpack\bgroup
        \placebottomnotes
        \vkern % \vskip
          \ifgridlinesnapping
            -% indeed
          \orelse\ifgridsnapping
            -% indeed
          \fi
          \d_strc_notes_bottom_depth
      \egroup
   \fi
   \setbox\b_page_one_contents\vbox \ifcase\c_page_one_stretch to \textheight\fi \bgroup% probably no pack
     \page_otr_command_flush_top_insertions
     % this is messy ... we will provide a more tight area (no big deal as we can
     % do that at the lua end)
   % \parfillskip\zeroskip
     \page_one_registered_text_area_a#1#2% \unvbox <box>
     % \unskip's are new per 2019-06-18, otherwise weird bottom floats%
     \ifgridlinesnapping
       % gridlinesnapping: to be decided
       \unskip
       \vkern{\openstrutdepth-\d_page_one_natural_depth}%
       \prevdepth\openstrutdepth
       \page_otr_command_flush_bottom_insertions
       \vfil
     \orelse\ifgridsnapping
       \unskip
       \vkern{\openstrutdepth-\d_page_one_natural_depth}%
       \prevdepth\openstrutdepth
       \page_otr_command_flush_bottom_insertions
       \vfil
     \orelse\ifcase\bottomraggednessmode
       % ragged (default)
       \unskip
       \vkern{\openstrutdepth-\d_page_one_natural_depth}%
       \prevdepth\openstrutdepth
       % these have whitespace before but we can have some more options
       % like a \vfill or so
       \page_otr_command_flush_bottom_insertions
       \vfil
     \or
       % align (normal)
       \page_otr_command_flush_bottom_insertions
     \or
       % baseline
       \unskip % new per 2019-06-18, otherwise weird bottom floats
       \vkern{\maxdepth-\d_page_one_natural_depth}%
     % \srule depth {\maxdepth-\d_page_one_natural_depth}%
       \page_otr_command_flush_bottom_insertions
     \or
       % depth
       \vkern-\d_page_one_natural_depth
       \unskip % new per 2019-06-18, otherwise weird bottom floats
       \page_otr_command_flush_bottom_insertions
     \fi
   % \fakepagenotes
     \vkern\htdp\b_page_one_bottom_notes
   \egroup
   \page_one_hook_for_checks\b_page_one_contents % todo
   \page_one_command_package_show_state
   \ifconditional\c_notes_bottom_present
     % todo: use new height calculator: \snappedtextheight
     \ifgridlinesnapping
       % gridlinesnapping: to be decided
       \ifcase\layoutlines
         \getrawnoflines\textheight
       \else
         \noflines\layoutlines
       \fi
       \scratchoffset{\numexpr\noflines-\plusone\relax\lineheight+\topskip}%
     \orelse\ifgridsnapping
       \ifcase\layoutlines
         \getrawnoflines\textheight
       \else
         \noflines\layoutlines
       \fi
       \scratchoffset{\numexpr\noflines-\plusone\relax\lineheight+\topskip}%
     \else
       \scratchoffset\ht\b_page_one_contents
     \fi
     % the scratchoffset doesn't include the depth
     \setbox\b_page_one_bottom_notes\hpack\bgroup
       \lower\scratchoffset\vpack\bgroup
          \box\b_page_one_bottom_notes
        \egroup
     \egroup
     \smashbox\b_page_one_bottom_notes
     \ht\b_page_one_contents\zeropoint
     \page_one_registered_text_area_b
       {\vpack to \textheight \bgroup
           \box\b_page_one_contents
           \box\b_page_one_bottom_notes
        \egroup}%
   \else
     \ifcase\c_page_scale_lines
       % nothing to do: vz not enabled
     \orelse\ifdim\d_page_box_stretch_delta>\zeropoint
       \page_scale_text_box_register_box\b_page_one_contents
       \page_scale_text_box\b_page_one_contents
     \else
       \page_scale_text_box_register_page
       \page_scale_text_box\b_page_one_contents
     \fi
   % \ifcase\c_page_one_stretch\else
   %    \page_one_check_stretch_contents
   % \fi
     \ht\b_page_one_contents\textheight
     \page_one_registered_text_area_b
       {\box\b_page_one_contents}%
   \fi
   \egroup}
\protected\def\page_one_command_side_float_output
  {\page_otr_construct_and_shipout\unvbox\normalpagebox\plusone} % three arguments, we need to be in the output group

\protected\def\page_one_command_routine
  {\page_sides_output_routine}

%D Insertions

\newconditional\c_page_one_top_of_insert
\newconditional\c_page_one_correct_top_insert  \c_page_one_correct_top_insert\conditionaltrue % false moves up (tight)
\newgluespec   \s_page_one_between_top_insert

\def\page_one_prepare_top_float
  {\ifzeropt\d_page_floats_inserted_top
     \c_page_one_top_of_insert\conditionaltrue
   \else
     \c_page_one_top_of_insert\conditionalfalse
   \fi
   \s_page_one_between_top_insert\ifdim\d_strc_floats_top>\d_strc_floats_bottom\d_strc_floats_top\else\d_strc_floats_bottom\fi\relax
   \global\advanceby\d_page_floats_inserted_top{\ht\floatbox+\dp\floatbox+\s_page_one_between_top_insert}}

\def\page_one_insert_top_float % maybe remember last beforeskip
  {\floatingpenalty\zerocount
   \insert\namedinsertionnumber\s!topfloat\bgroup
     \forgetall
     \ifconditional\c_page_one_top_of_insert
       \ifconditional\c_page_one_correct_top_insert
         \topskipcorrection % [xx] new: see icare topbleed
         \kern-\lineskip
         \par
         \prevdepth\maxdimen
       \fi
     \fi
\page_inserts_detach\floatbox % experiment
     \page_otr_command_flush_float_box
\page_inserts_attach          % experiment
     \vskip\s_page_one_between_top_insert
   \egroup}

\mutable\let\totaltopinserted\!!zeropoint
\mutable\let\totalbotinserted\!!zeropoint

\protected\def\page_one_command_set_top_insertions
  {\bgroup
   % a bit strange place but okay
   \page_one_command_set_always_insertions_top
   \page_one_command_set_always_insertions_bottom
   %
   \ifconditional\c_page_floats_some_waiting
     \noffloatinserts\zerocount
     \let\totaltopinserted\!!zeropoint
     \page_one_command_set_top_insertions_indeed
     \ifnum\rootfloatparameter\c!nbottom=\zerocount % \ifnum\c_page_floats_n_of_bottom=\zerocount
       \ifnum\rootfloatparameter\c!nlines>\zerocount
         \ifdim\totaltopinserted>\zeropoint\relax
           \ifdim{\lineheight*(\rootfloatparameter\c!nlines)+\totaltopinserted}>\textheight
             \showmessage\m!floatblocks8{\rootfloatparameter\c!nlines}%
             \page_otr_fill_and_eject_page % was tripple: vfilll
           \fi
         \fi
       \fi
     \fi
   \fi
   \egroup}

\def\page_one_command_set_top_insertions_indeed
  {\ifnum\noffloatinserts<\c_page_floats_n_of_top
     \page_floats_get
     \page_one_prepare_top_float
     \ifdim\d_page_floats_inserted_top<\textheight\relax
       \xdef\totaltopinserted{\the\d_page_floats_inserted_top}%
       \page_one_insert_top_float
       \ifconditional\c_page_floats_some_waiting
         \advanceby\noffloatinserts \plusone
       \else
         \noffloatinserts\c_page_floats_n_of_top\relax
       \fi
       \page_floats_report_flushed
     \else
       \page_floats_resave\s!text
       \noffloatinserts\c_page_floats_n_of_top\relax
     \fi
   \else
     \ifconditional\c_page_floats_some_waiting
       \showmessage\m!floatblocks6{\the\c_page_floats_n_of_top}%
     \fi
     \let\page_one_command_set_top_insertions_indeed\relax
   \fi
   \page_one_command_set_top_insertions_indeed}

\protected\def\page_one_command_set_bottom_insertions
  {\bgroup
   \ifconditional\c_page_floats_some_waiting
     \noffloatinserts\zerocount
     \page_one_command_set_bottom_insertions_indeed
   \fi
   \egroup}

\def\page_one_command_set_bottom_insertions_indeed
  {\ifnum\noffloatinserts<\c_page_floats_n_of_bottom\relax
     \page_floats_get
     \global\advanceby\d_page_floats_inserted_bottom{\ht\floatbox+\dp\floatbox+\d_strc_floats_top}%
     \ifdim\d_page_floats_inserted_bottom<\pagegoal\relax
       \floatingpenalty\zerocount
       \insert\namedinsertionnumber\s!bottomfloat\bgroup
         \forgetall
         \blank[\rootfloatparameter\c!spacebefore]%
         \page_otr_command_flush_float_box
       \egroup
       \ifconditional\c_page_floats_some_waiting
         \advanceby\noffloatinserts \plusone
       \else
         \noffloatinserts\c_page_floats_n_of_bottom
       \fi
       \page_floats_report_flushed
     \else
       \page_floats_resave\s!text
       \noffloatinserts\c_page_floats_n_of_bottom\relax
     \fi
     \global\c_page_floats_not_permitted\conditionaltrue % vgl topfloats s!
   \else
     \ifconditional\c_page_floats_some_waiting
       \showmessage\m!floatblocks7{\the\c_page_floats_n_of_bottom}%
     \fi
     \let\page_one_command_set_bottom_insertions_indeed\relax
   \fi
   \page_one_command_set_bottom_insertions_indeed}

% \protected\def\page_one_command_flush_top_insertions
%   {\ifzeropt\insertheight\namedinsertionnumber\s!topfloat\else
%      \page_one_command_flush_top_insertions_indeed % less tracing
%    \fi
%    \global\d_page_floats_inserted_top\zeropoint}

\protected\def\page_one_command_flush_top_insertions
  {\ifzeropt\insertheight\namedinsertionnumber\s!topfloat\else
     \page_one_command_flush_top_insertions_indeed % less tracing
     \ifcase\bottomraggednessmode\or\else
       % will be an option because of stretch size effect when we limit
       \ifzerodim\d_page_box_stretch_delta
         \vskip\zeropoint\s!plus\openstrutdepth\s!minus\openstrutdepth\relax
       \fi
     \fi
   \fi
   \global\d_page_floats_inserted_top\zeropoint}

\def\page_one_command_flush_top_insertions_indeed
  {\ifgridlinesnapping
     % gridlinesnapping: to be decided
     \insertbox\namedinsertionnumber\s!topfloat
     \vkern-\topskip
     \vkern\strutheight % [xx] new: see icare topbleed
   \orelse\ifgridsnapping
     \insertbox\namedinsertionnumber\s!topfloat
     \vkern-\topskip
     \vkern\strutheight % [xx] new: see icare topbleed
   \else
     \ifcase\c_page_floats_insertions_topskip_mode
       % 0: default, do nothing
     \or
       % 1: no topskip (crossed fingers)
       \vskip-\topskip % skip !
       \vkern\strutheight
     \fi
     \insertunbox\namedinsertionnumber\s!topfloat
   \fi}

\protected\def\page_one_command_flush_bottom_insertions
  {\ifzeropt\insertheight\namedinsertionnumber\s!bottomfloat\else
     \page_one_command_flush_bottom_insertions_indeed
   \fi
   \global\d_page_floats_inserted_bottom\zeropoint
   \global\c_page_floats_not_permitted\conditionalfalse}

\def\page_one_command_flush_bottom_insertions_indeed
  {\ifgridlinesnapping
     % gridlinesnapping: to be decided
     \snaptogridline\hbox{\insertbox\namedinsertionnumber\s!bottomfloat}%
   \orelse\ifgridsnapping
   % \rootfloatparameter\c!bottombefore
     \snaptogrid\hbox{\insertbox\namedinsertionnumber\s!bottomfloat}%
   % \rootfloatparameter\c!bottomafter
   \else
     \rootfloatparameter\c!bottombefore
     \insertunbox\namedinsertionnumber\s!bottomfloat
     \rootfloatparameter\c!bottomafter
   \fi}

\protected\def\page_one_command_flush_floats
  {\global\c_page_floats_flushing\conditionaltrue
   \ifconditional\c_page_floats_some_waiting
     \par
     % if kept, then option and definitely off in gridmode ! ! ! !
     % \ifvmode \prevdepth\maxdimen \fi % prevents whitespace; problematic in icare tests
     \page_one_command_flush_floats_indeed
   \fi
   \global\savednoffloats\zerocount
   \global\c_page_floats_some_waiting\conditionalfalse
   \global\c_page_floats_flushing\conditionalfalse}

\protected\def\page_one_command_flush_float_box
  {\ifconditional\c_page_floats_center_box \ifdim\wd\floatbox<\hsize
     \global\setbox\floatbox\hpack to \hsize{\hss\box\floatbox\hss}%
   \fi \fi
   \ifgridlinesnapping
     \expandafter\snaptogridline
   \orelse\ifgridsnapping
     \expandafter\snaptogrid
   \fi
   \hpack{\box\floatbox}} % was copy

\def\page_one_command_floats_get_compressed
  {\c_page_floats_center_box\conditionalfalse % not needed as we do call directly
   %% no longer (interferes with footnotes):
   %%
   %% \page_one_command_set_vsize % test 2011.06.24.001
   %%
   \global\setbox\floatbox\hbox to \hsize
     {\hfil
      \dorecurse\nofcollectedfloats
        {\ifcase\columndirection % nog document wide
           \page_floats_flush\s!text\plusone
         \else
           \page_floats_flush\s!text{\tointeger{\nofcollectedfloats-\recurselevel+1}}%
         \fi
         \hpack to \ifdim\naturalfloatwd>\makeupwidth\makeupwidth\else\naturalfloatwd\fi
           {\hss\box\floatbox\hss}%
         \ifnum\recurselevel<\nofcollectedfloats
           \hfil
         \fi}%
      \hfil}}

\def\page_one_command_flush_floats_indeed
  {\ifconditional\c_page_floats_some_waiting
     \ifconditional\c_page_floats_pack_flushed
       \page_floats_collect\s!text\hsize\d_page_floats_compress_distance
       \ifcase\nofcollectedfloats
         \page_floats_get
       \or
         \page_floats_get
       \else
         \page_one_command_floats_get_compressed
       \fi
     \else
       \page_floats_get
     \fi
     % there is a chance that due to rounding errors, the float
     % fits on a page where it was first rejected, in which case
     % the prevdepth is -maxdimen and we cannot obey the grid
     \doplacefloatbox
     \expandafter\page_one_command_flush_floats_indeed
   \fi}

\protected\def\page_one_command_flush_margin_blocks
  {\ifconditional\c_page_margin_blocks_present % \ifvoid\b_page_margin_blocks \else
     \ifzeropt\pagetotal
        \null % \fixedspace
     \fi
     \page_otr_command_next_page % \page
     \ifvoid\b_page_margin_blocks
       \global\c_page_margin_blocks_present\conditionalfalse
     \else
       \doubleexpandafter\page_one_command_flush_margin_blocks
     \fi
   \fi}

\protected\def\page_one_command_check_if_float_fits
  {\ifconditional\c_page_floats_not_permitted
     \global\c_page_floats_room\conditionalfalse
   \else
     % new per 31/5/2004, should be an option, only one column mode
     \begingroup
     \scratchdimen{\pagetotal+\lineheight}%
     \ifdim\scratchdimen>\pagegoal
       \goodbreak % hack ?
     \fi
     % should be an option
     \endgroup
     \scratchdimenone{%
        \pagetotal
       +\floatheight
       +\d_strc_floats_top
       +\d_strc_floats_overflow
       -\pageshrink
     }%
     \scratchdimentwo\pagegoal
     \relax % needed
     \ifcase\c_page_one_float_method
       % method 0 : raw
     \or
       % method 1 : safe
       % too fuzzy as it can change and for a high page it's a lot : \scratchdimentwo .99\pagegoal
       \advanceby\scratchdimentwo -\strutdp
     \or
       % method 2 : tight
       \advanceby\scratchdimenone -\onepoint
     \fi
     \relax % really needed ! ! ! !
     \ifdim\scratchdimenone>\scratchdimentwo
       \global\c_page_floats_room\conditionalfalse
     \else
       \global\c_page_floats_room\conditionaltrue
     \fi
   \fi}

\protected\def\page_one_command_flush_saved_floats
  {\global\d_page_floats_inserted_top\zeropoint
   \global\d_page_floats_inserted_bottom\zeropoint
   \ifconditional\c_page_floats_flushing \else
     \page_one_command_set_top_insertions
     \page_one_command_set_bottom_insertions
     \ifconditional\c_page_floats_some_waiting
       \ifcstok{\rootfloatparameter\c!cache}\v!no
         \page_one_command_flush_floats % could be _otr_
       \fi
     \orelse\ifconditional\c_page_margin_blocks_present
       \page_one_command_flush_floats
     \fi
   \fi}

\def\page_one_place_float_here_indeed
  {\ifgridlinesnapping
     % gridlinesnapping: to be decided
   \orelse\ifgridsnapping
     % otherwise real bad outcome
   \else
    \forcestrutdepth
   \fi
   \doplacefloatbox
   \page_floats_report_total
   \dohandlenextfloatindent}

\def\page_one_place_float_force
  {\showmessage\m!floatblocks9\empty
   \page_one_place_float_here_indeed}

\def\page_one_place_float_side_indeed#1%
  {\setbox\floatbox\vpack{\box\floatbox}% ? can go
   \wd\floatbox\floatwidth
   #1{\box\floatbox}%
   \ifinset\v!tall\floatlocationmethod
     \page_sides_flush_floats_after_par
   \fi}

\def\page_one_place_float_left
  {\page_one_place_float_side_indeed
   \page_sides_process_float_left
   \presetindentation}

\def\page_one_place_float_right
  {\page_one_place_float_side_indeed
   \page_sides_process_float_right}

\def\page_one_place_float_margin
  {\page_margin_blocks_process_float
   \nonoindentation} % new, due to popular request

\def\page_one_place_float_leftmargin
  {\page_one_place_float_side_indeed
   \page_sides_process_float_leftmargin
   \nonoindentation} % new, due to popular request

\def\page_one_place_float_rightmargin
  {\page_one_place_float_side_indeed
   \page_sides_process_float_rightmargin
   \nonoindentation} % new, due to popular request

\def\page_one_place_float_leftedge
  {\page_one_place_float_side_indeed
   \page_sides_process_float_leftedge}

\def\page_one_place_float_rightedge
  {\page_one_place_float_side_indeed
   \page_sides_process_float_rightedge}

\def\page_one_place_float_inmargin
  {\page_one_place_float_side_indeed
   \page_sides_process_float_cutspace}

\def\page_one_place_float_backspace
  {\page_one_place_float_side_indeed
   \page_sides_process_float_backspace}

\def\page_one_place_float_cutspace
  {\page_one_place_float_side_indeed
   \page_sides_process_float_cutspace}

\def\page_one_place_float_page       {\page_floats_save_page_float     \s!page     \floatlocationmethod}
\def\page_one_place_float_leftpage   {\page_floats_save_page_float     \s!leftpage \floatlocationmethod}
\def\page_one_place_float_rightpage  {\page_floats_save_page_float     \s!rightpage\floatlocationmethod}
\def\page_one_place_float_somewhere  {\page_floats_save_somewhere_float\s!somewhere\floatlocationmethod}

\def\page_one_place_float_here
  {\page_one_place_float_otherwise_here}

\def\page_one_place_float_auto
  {\page_one_place_float_otherwise
   \nonoindentation} % new, due to popular request

\def\page_one_place_float_top
  {\page_one_place_float_otherwise
   \nonoindentation}

\def\page_one_place_float_bottom
  {\page_one_place_float_otherwise
   \nonoindentation} % new, due to popular request

\def\page_one_place_float_otherwise
  {\ifinset\v!here\floatlocationmethod
     \page_one_place_float_otherwise_here
   \else
     \page_one_place_float_otherwise_else
   \fi}

\def\page_one_place_float_otherwise_here
  {\ifinset\v!always\floatlocationmethod
     \page[\v!preference]%
     \page_otr_command_check_if_float_fits
     \ifconditional\c_page_floats_room
       \page_one_place_float_here_indeed
     \else
       \showmessage\m!floatblocks9\empty
       \page_floats_resave\s!text
     \fi
   \orelse\ifconditional\c_page_floats_some_waiting
     \page_floats_save\s!text
     \nonoindentation
   \else
     \page[\v!preference]%
     \page_otr_command_check_if_float_fits
     \ifconditional\c_page_floats_room
       \page_one_place_float_here_indeed
     \else
       \page_floats_save\s!text
       \nonoindentation
     \fi
   \fi}

% Some new always top/bottom trickery.
%
% Musical timestamp: 2023/3/2, listening to / watching Camille Bigeault on YT
% (ANATMAN, Room 8, and others), a bit late discovery, creative drumming! Gavin
% Harrison level creativity.

\def\page_one_place_float_otherwise_else
   {\ifinset\v!always\floatlocationmethod
      \page_otr_command_check_if_float_fits
      \ifconditional\c_page_floats_room
        \page_one_place_float_auto_top_bottom
      \else
        \showmessage\m!floatblocks9\empty
        \ifinset\v!top\floatlocationmethod
          \page_floats_save\s!top
        \orelse\ifinset\v!bottom\floatlocationmethod
          \page_floats_save\s!bottom
        \else
          \page_floats_resave\s!text
        \fi
      \fi
    \else
      \page_otr_command_check_if_float_fits
      \ifconditional\c_page_floats_room
        \page_one_place_float_auto_top_bottom
      \else
        \page_floats_save\s!text
        \nonoindentation
      \fi
    \fi}

\protected\def\page_one_command_set_always_insertions_bottom_indeed
  {\page_floats_flush\s!bottom\plusone
   \floatingpenalty\zerocount
   \insert\namedinsertionnumber\s!bottomfloat\bgroup
     \forgetall
     \blank[\rootfloatparameter\c!spacebefore]%
     \page_otr_command_flush_float_box
   \egroup}

\protected\def\page_one_command_set_always_insertions_bottom % will become an otr command
  {\ifzero\nofstackedfloatsincategory\s!bottom\else
     \page_one_command_set_always_insertions_bottom_indeed
     \expandafter\page_one_command_set_always_insertions_bottom
   \fi}

\protected\def\page_one_command_set_always_insertions_top_indeed
  {\page_floats_flush\s!top\plusone
   \floatingpenalty\zerocount
   \insert\namedinsertionnumber\s!bottomfloat\bgroup
     \forgetall
     \blank[\rootfloatparameter\c!spacebefore]%
     \page_otr_command_flush_float_box
   \egroup}

\protected\def\page_one_command_set_always_insertions_top % will become an otr command
  {\ifzero\nofstackedfloatsincategory\s!top\else
     \page_one_command_set_always_insertions_top_indeed
     \expandafter\page_one_command_set_always_insertions_top
   \fi}

\mutable\def\floatautofactor{.5}

\def\page_one_place_float_auto_top_bottom
  {\ifx\floatmethod\v!auto
     \ifdim\pagetotal<\floatautofactor\pagegoal % when empty page, maxdimen
       \page_one_place_float_top_indeed
     \else
       \page_one_place_float_bottom_indeed
     \fi
   \else
     \ifx\floatmethod\v!top
       \page_one_place_float_top_indeed
     \orelse\ifx\floatmethod\v!bottom
       \page_one_place_float_bottom_indeed
     \else
       \page_one_place_float_here_indeed
     \fi
   \fi}

\def\page_one_place_float_top_indeed % maybe remember last beforeskip
  {\page_one_prepare_top_float
   \page_one_insert_top_float
   \page_floats_report_total}

\def\page_one_place_float_bottom_indeed
  {\global\advanceby\d_page_floats_inserted_bottom{\ht\floatbox+\dp\floatbox+\d_strc_floats_top}%
   \floatingpenalty\zerocount
   \insert\namedinsertionnumber\s!bottomfloat\bgroup
     \forgetall
     \blank[\rootfloatparameter\c!spacebefore]%
     \page_otr_command_flush_float_box
   \egroup
   \page_floats_report_total}

\def\page_one_place_float_face % links, rechts, midden, hoog, midden, laag
  {%\checkwaitingfloats{#1}%
   \startopposite
   \page_otr_command_flush_float_box
   \stopopposite
  }%\page_floats_report_total}

\protected\def\page_one_command_flush_side_floats
  {\page_sides_flush_floats}

\protected\def\page_one_command_synchronize_side_floats
  {\page_sides_synchronize_floats}

\protected\def\page_one_command_test_page
  {\testpage}

\protected\def\page_one_command_flush_all_floats
  {\ifconditional\c_page_floats_some_waiting
     \begingroup
     \c_page_floats_n_of_top\plusthousand
     \c_page_floats_n_of_bottom\zerocount
     % this is needed in case a float that has been stored
     % ends up at the current page; this border case occurs when
     % the calculated room is 'eps' smaller that the room available
     % when just flushing; so now we have (maybe optional):
     \pagebaselinecorrection % hm, needs checking, not needed when no floats
     % alas, this is tricky but needed (first surfaced in prikkels)
     \page_otr_command_flush_floats
     \endgroup
   \fi}

\defineoutputroutine
  [\s!singlecolumn]
  [\s!page_otr_command_routine                =\page_one_command_routine,
   \s!page_otr_command_package_contents       =\page_one_command_package_contents,
   \s!page_otr_command_set_vsize              =\page_one_command_set_vsize,
   \s!page_otr_command_set_hsize              =\page_one_command_set_hsize,
 % \s!page_otr_command_synchronize_hsize      =\page_one_command_synchronize_hsize,
   \s!page_otr_command_next_page              =\page_one_command_next_page,
   \s!page_otr_command_next_page_and_inserts  =\page_one_command_next_page_and_inserts,
   \s!page_otr_command_set_top_insertions     =\page_one_command_set_top_insertions,
   \s!page_otr_command_set_bottom_insertions  =\page_one_command_set_bottom_insertions,
   \s!page_otr_command_flush_top_insertions   =\page_one_command_flush_top_insertions,
   \s!page_otr_command_flush_bottom_insertions=\page_one_command_flush_bottom_insertions,
   \s!page_otr_command_check_if_float_fits    =\page_one_command_check_if_float_fits,
 % \s!page_otr_command_set_float_hsize        =\page_one_command_set_float_hsize,
   \s!page_otr_command_flush_float_box        =\page_one_command_flush_float_box,
   \s!page_otr_command_side_float_output      =\page_one_command_side_float_output,
   \s!page_otr_command_synchronize_side_floats=\page_one_command_synchronize_side_floats,
   \s!page_otr_command_flush_floats           =\page_one_command_flush_floats,
   \s!page_otr_command_flush_side_floats      =\page_one_command_flush_side_floats,
   \s!page_otr_command_flush_saved_floats     =\page_one_command_flush_saved_floats,
   \s!page_otr_command_flush_all_floats       =\page_one_command_flush_all_floats,
   \s!page_otr_command_flush_margin_blocks    =\page_one_command_flush_margin_blocks,
   \s!page_otr_command_test_column            =\page_one_command_test_page,
]

% \setupoutputroutine
%   [\s!singlecolumn]

\protect \endinput