diff options
Diffstat (limited to 'Master/texmf-dist/tex/context/base/mkiv/pack-cut.mkiv')
-rw-r--r-- | Master/texmf-dist/tex/context/base/mkiv/pack-cut.mkiv | 78 |
1 files changed, 38 insertions, 40 deletions
diff --git a/Master/texmf-dist/tex/context/base/mkiv/pack-cut.mkiv b/Master/texmf-dist/tex/context/base/mkiv/pack-cut.mkiv index 84c14d648e5..ffd0251d5ae 100644 --- a/Master/texmf-dist/tex/context/base/mkiv/pack-cut.mkiv +++ b/Master/texmf-dist/tex/context/base/mkiv/pack-cut.mkiv @@ -65,87 +65,85 @@ \def\cutmarkrulethickness{\onepoint} \unexpanded\def\horizontalcuts - {\hpack to \d_pack_cutmarks_width - {\dorecurse\horizontalcutmarks{\vrule\s!width\cutmarkrulethickness\s!height\cutmarklength\hfill}% + {\normalhbox to \d_pack_cutmarks_width + {\dorecurse\horizontalcutmarks{\vrule\s!width\cutmarkrulethickness\s!height\cutmarklength\normalhfill}% \unskip}} \unexpanded\def\verticalcuts - {\vpack to \dimexpr\d_pack_cutmarks_height+\d_pack_cutmarks_depth\relax + {\normalvbox to \dimexpr\d_pack_cutmarks_height+\d_pack_cutmarks_depth\relax {\hsize\cutmarklength - \dorecurse\verticalcutmarks{\vrule\s!height\cutmarkrulethickness\s!width\hsize\vfill}% + \dorecurse\verticalcutmarks{\vrule\s!height\cutmarkrulethickness\s!width\hsize\normalvfill}% \unskip}} \unexpanded\def\baselinecuts {\ifdim\d_pack_cutmarks_depth>\zeropoint - \vpack to \dimexpr\d_pack_cutmarks_height+\d_pack_cutmarks_depth\relax + \normalvbox to \dimexpr\d_pack_cutmarks_height+\d_pack_cutmarks_depth\relax {\hsize\dimexpr\cutmarklength/2\relax - \vskip\zeropoint\s!plus\d_pack_cutmarks_height + \normalvskip\zeropoint\s!plus\d_pack_cutmarks_height \vrule\s!height\cutmarkrulethickness\s!width\hsize - \vskip\zeropoint\s!plus\d_pack_cutmarks_depth}% + \normalvskip\zeropoint\s!plus\d_pack_cutmarks_depth}% \fi} \unexpanded\def\cutmarksymbols#1% - {\hpack to \d_pack_cutmarks_width - {\setbox\scratchbox\hbox to \cutmarklength - {\hss\infofont\cutmarksymbol\hss}% - \hss - \vpack to \cutmarklength + {\normalhbox to \d_pack_cutmarks_width + {\setbox\scratchbox\normalhbox to \cutmarklength + {\normalhss\infofont\cutmarksymbol\normalhss}% + \normalhss + \normalvbox to \cutmarklength {\scratchdimen\dimexpr\cutmarklength/2\relax \scratchskip \ifx\cutmarkhoffset\empty\cutmarkoffset\scratchdimen\else\cutmarkhoffset\fi - \vss - \hbox to \d_pack_cutmarks_width - {\llap{\copy\scratchbox\hskip\scratchskip}% - \hskip\scratchdimen\hss - \infofont#1% - \hss\hskip\scratchdimen - \rlap{\hskip\scratchskip\copy\scratchbox}}% - \vss}% - \hss}} + \normalvss + \hpack to \d_pack_cutmarks_width + {\llap{\copy\scratchbox\normalhskip\scratchskip}% + \normalhskip\scratchdimen\hss\infofont#1\hss\normalhskip\scratchdimen + \rlap{\normalhskip\scratchskip\copy\scratchbox}}% + \normalvss}% + \normalhss}} \unexpanded\def\makecutbox#1% {\bgroup \d_pack_cutmarks_height\ht#1% \d_pack_cutmarks_depth \dp#1% \d_pack_cutmarks_width \wd#1% - \setbox#1\hpack + \setbox#1\normalhbox {\dontcomplain \forgetall \boxmaxdepth\maxdimen \offinterlineskip \scratchdimen\dimexpr\cutmarklength/2\relax \hsize\d_pack_cutmarks_width - \setbox\scratchbox\vpack - {\setbox\scratchbox\hpack{\horizontalcuts}% + \setbox\scratchbox\normalvbox + {\setbox\scratchbox\normalhbox{\horizontalcuts}% \scratchskip\ifx\cutmarkvoffset\empty\cutmarkoffset\scratchdimen\else\cutmarkvoffset\fi - \tlap{\copy\scratchbox\vskip\scratchskip}% + \tlap{\copy\scratchbox\normalvskip\scratchskip}% \hpack to \d_pack_cutmarks_width {\scratchskip\ifx\cutmarkhoffset\empty\cutmarkoffset\scratchdimen\else\cutmarkhoffset\fi - \setbox\scratchbox\hpack{\verticalcuts}% - \llap{\copy\scratchbox\hskip\scratchskip}% + \setbox\scratchbox\normalhbox{\verticalcuts}% + \llap{\copy\scratchbox\normalhskip\scratchskip}% \ifdim\d_pack_cutmarks_depth=\zeropoint - \hfill + \normalhfill \else \bgroup - \setbox\scratchbox\hpack{\baselinecuts}% - \llap{\copy\scratchbox\hskip\scratchskip}% - \hfill - \rlap{\hskip\scratchskip\copy\scratchbox}% + \setbox\scratchbox\normalhbox{\baselinecuts}% + \llap{\copy\scratchbox\normalhskip\scratchskip}% + \normalhfill + \rlap{\normalhskip\scratchskip\copy\scratchbox}% \egroup \fi - \rlap{\hskip\scratchskip\copy\scratchbox}}% - \blap{\vskip\scratchskip\copy\scratchbox}}% + \rlap{\normalhskip\scratchskip\copy\scratchbox}}% + \blap{\normalvskip\scratchskip\copy\scratchbox}}% \ht\scratchbox\d_pack_cutmarks_height \dp\scratchbox\d_pack_cutmarks_depth \wd\scratchbox\zeropoint \startcolor[\defaulttextcolor]% \box\scratchbox \ifx\cutmarksymbol\relax \else - \setbox\scratchbox\vpack + \setbox\scratchbox\normalvbox {\scratchskip\ifx\cutmarkvoffset\empty\cutmarkoffset\scratchdimen\else\cutmarkvoffset\fi \vskip-\dimexpr\scratchskip+\cutmarklength\relax - \hpack{\cutmarksymbols\cutmarktoptext}% + \normalhbox{\cutmarksymbols\cutmarktoptext}% \vskip\dimexpr\scratchskip+\d_pack_cutmarks_height+\d_pack_cutmarks_depth+\scratchskip\relax - \hpack{\cutmarksymbols\cutmarkbottomtext}}% + \normalhbox{\cutmarksymbols\cutmarkbottomtext}}% \ht\scratchbox\d_pack_cutmarks_height \dp\scratchbox\d_pack_cutmarks_depth \wd\scratchbox\zeropoint @@ -158,8 +156,8 @@ \dp#1\d_pack_cutmarks_depth \egroup} -\unexpanded\def\cuthbox{\hpack\bgroup\dowithnextbox{\makecutbox\nextbox\flushnextbox\egroup}\hbox} -\unexpanded\def\cutvbox{\vpack\bgroup\dowithnextbox{\makecutbox\nextbox\flushnextbox\egroup}\vbox} -\unexpanded\def\cutvtop{\tpack\bgroup\dowithnextbox{\makecutbox\nextbox\flushnextbox\egroup}\vtop} +\unexpanded\def\cuthbox{\normalhbox\bgroup\dowithnextbox{\makecutbox\nextbox\flushnextbox\egroup}\normalhbox} +\unexpanded\def\cutvbox{\normalvbox\bgroup\dowithnextbox{\makecutbox\nextbox\flushnextbox\egroup}\normalvbox} +\unexpanded\def\cutvtop{\normalvtop\bgroup\dowithnextbox{\makecutbox\nextbox\flushnextbox\egroup}\normalvtop} \protect \endinput |