From e92fac1b64f7969cadd8ae60f336c43624250d42 Mon Sep 17 00:00:00 2001 From: Hans Hagen Date: Mon, 5 Aug 2019 11:51:52 +0200 Subject: 2019-08-05 10:42:00 --- tex/context/base/mkiv/supp-box.mkxl | 490 ++++++++++++------------------------ 1 file changed, 160 insertions(+), 330 deletions(-) (limited to 'tex/context/base/mkiv/supp-box.mkxl') diff --git a/tex/context/base/mkiv/supp-box.mkxl b/tex/context/base/mkiv/supp-box.mkxl index a77327b3e..42f17f03d 100644 --- a/tex/context/base/mkiv/supp-box.mkxl +++ b/tex/context/base/mkiv/supp-box.mkxl @@ -29,37 +29,6 @@ \newdimen\givenheight \newdimen\givendepth -% handy to have -% -% \hbox to \hsize -% {\en -% \switchnaarkorps[5pt]% -% \emergencystretch2em -% \dimen0=\baselineskip -% \baselineskip=\dimen0 plus 1pt -% \hsize=.2\hsize -% \vsize=2\hsize -% \ruledvbox to \vsize{\input tufte \par}\hss -% \ruledvbox to \vsize{\input tufte \par\kern-\prevdepth}\hss -% \ruledvbox to \vsize{\input tufte \par\kern0pt}\hss -% \ruledvbox to \vsize{\input tufte \par\vfill}\hss -% \ruledvbox to \vsize{\input tufte \par\kern-\prevdepth\vfill}} -% -% \hbox to \hsize -% {\en -% \switchnaarkorps[5pt]% -% \emergencystretch2em -% \dimen0=\baselineskip -% \baselineskip=\dimen0 plus 1pt -% \hsize=.18\hsize -% \vsize=2.5\hsize -% \setbox0=\vbox{\input tufte\relax}% -% \ruledvbox to \vsize{\unvcopy0}\hss -% \ruledvbox to \vsize{\unvcopy0\kern-\dp0}\hss -% \ruledvbox to \vsize{\unvcopy0\kern0pt}\hss -% \ruledvbox to \vsize{\unvcopy0\vfill}\hss -% \ruledvbox to \vsize{\unvcopy0\kern-\dp0\vfill}} - %D \macros %D {dontcomplain} %D @@ -230,17 +199,6 @@ %D catcode safer. It is needed by the math module (although the \type {\leavevmode} %D is not added here). -% \unexpanded\def\smash -% {\begingroup -% \futurelet\nexttoken\syst_boxes_smash} -% -% \def\syst_boxes_smash -% {\ifx\nexttoken[% -% \expandafter\syst_boxes_smash_yes -% \else -% \expandafter\syst_boxes_smash_nop -% \fi} - \unexpanded\def\smash {\begingroup \futureexpandis[\syst_boxes_smash_yes\syst_boxes_smash_nop} @@ -295,9 +253,6 @@ \def\syst_boxes_lower_nextbox_dp {\setbox\nextbox\hpack{\lower\dp\nextbox\box\nextbox}} -% \def\syst_boxes_lower_nextbox_dp -% {\boxymove\nextbox-\dp\nextbox} - %D \starttabulate[|l|l|] %D \NC w \NC \ruledhbox{\smash [w]{This is some great smashing, isn't it?}} \NC \NR %D \NC h \NC \ruledhbox{\smash [h]{This is some great smashing, isn't it?}} \NC \NR @@ -416,10 +371,6 @@ %D The next alternative is slightly more clever, since it accepts \type {{12}} as %D well as \type {12} as box number. -% \unexpanded\def\getboxheight#1\of#2\box#3% -% {\def\next{#1\dimexpr\ht\c_boxes_register+\dp\c_boxes_register\relax}% -% \afterassignment\next\c_boxes_register=#3} - \unexpanded\def\getboxheight#1\of#2\box#3% {\def\next{#1\htdp\c_boxes_register}% \afterassignment\next\c_boxes_register=#3} @@ -552,7 +503,7 @@ %D \determinenoflines{\definedfont[Sans at 40pt]test\\test} %D \stoptyping -\def\dodeterminenoflines % can be mkiv'd +\def\syst_boxes_determine_noflines % can be mkiv'd {\beginofshapebox \unvbox\nextbox \endofshapebox @@ -565,7 +516,7 @@ \forgetall \let\crlf\endgraf \let\\\endgraf - \dowithnextboxcs\dodeterminenoflines\vbox} + \dowithnextboxcs\syst_boxes_determine_noflines\vbox} %D \macros %D {doiftextelse, doiftext} @@ -692,10 +643,10 @@ %D The next couple of shortcuts saves us memory as well as \type {{}}'s in passing %D parameters. -\def\nextboxht {\ht\nextbox} -\def\nextboxwd {\wd\nextbox} -\def\nextboxdp {\dp\nextbox} -\def\nextboxhtdp {\htdp\nextbox} +\def\nextboxht {\ht\nextbox} +\def\nextboxwd {\wd\nextbox} +\def\nextboxdp {\dp\nextbox} +\def\nextboxhtdp{\htdp\nextbox} \unexpanded\def\flushnextbox{\box\nextbox} @@ -1172,7 +1123,7 @@ \def\dodoboundtext#1% {\setbox\scratchboxone\hbox{#1}% \advance\scratchdimen -\wd\scratchboxone - \ifdim\scratchdimen>\zeropoint\relax#1\fi}% + \ifdim\scratchdimen>\zeropoint\relax#1\fi} \def\doboundtext#1#2#3% still used? {\hbox @@ -1203,109 +1154,121 @@ \ifdefined\fakecompoundhyphen\else \let\fakecompoundhyphen\relax \fi \ifdefined\veryraggedright \else \def\veryraggedright{\raggedright} \fi -\unexpanded\def\limitatetext - {\bgroup % evt \setstrut - \forgetall % otherwise indentation and so - \let\limitatetext\firstofthreearguments - \fakecompoundhyphen % dangerous ! ! ! ! ! ! ! ! ! - \dowithnextboxcs\syst_boxes_limitate_text\hbox} - -\def\syst_boxes_limitate_text#1% #2 - {\doifelsenothing{#1}\syst_boxes_limitate_text_nop\syst_boxes_limitate_text_yes{#1}} % {#2} - -\def\syst_boxes_limitate_text_nop#1#2% - {\unhbox\nextbox - \egroup} - -\def\syst_boxes_limitate_text_yes#1#2% - {\nopenalties - \scratchdimen#1\relax - \ifdim\scratchdimen<\zeropoint\relax % we'll take the last line - \donefalse - \scratchdimen-\scratchdimen - \else - \donetrue - \fi - \ifdim\wd\nextbox>\scratchdimen - \setbox\scratchbox\hbox{\ifdone\space#2\else#2\space\fi}% - \advance\scratchdimen -\wd\scratchbox - \setbox\scratchboxone\box\nextbox - \setbox\nextbox\vbox - {\hsize\scratchdimen - \hfuzz\maxdimen - \veryraggedright - \strut - \ifdone \else - \parfillskip\zeropoint - \rightskip\zeropoint - \hskip\zeropoint \s!plus 1\s!fill % \hsize - \fi - \unhcopy\scratchboxone}% - \ifdim\ht\nextbox>\strutht - \setbox\nextbox\vbox % if omitted: missing brace reported - {\splittopskip\openstrutheight - \ifdone - \setbox\nextbox\vsplit\nextbox to \strutht - \else - \doloop - {\setbox\scratchboxone\vsplit\nextbox to \strutht - \ifdim\ht\nextbox>\strutht \else \exitloop \fi}% - \fi - \unvbox\nextbox - \setbox\nextbox\lastbox - \global\setbox1\hpack - {\ifdone - \unhbox\nextbox\unskip\kern\zeropoint\box\scratchbox - \else - \box\scratchbox\unhbox\nextbox - \fi - \unskip}}% - \unhbox1 - \else - \unhbox0% - \fi - \else - \unhbox\nextbox - \fi - \egroup} - -%D We can also limit a text with more control: -%D -%D \startbuffer -%D \limitatetext {\input tufte } {2cm,5mm} {\unknown} -%D \limitatetext {ton en hans} {2cm,5mm} {\unknown} -%D \limitatetext {ton en hans zijn eikels} {2cm,5mm} {\unknown} -%D \limitatetext {ton} {2cm,5mm} {\unknown} -%D \stopbuffer -%D -%D \typebuffer \getbuffer -%D -%D We build this feature on top of the previous macro. - -% we could move the text argument to the end - -\let\normallimitatetext\limitatetext - -\def\speciallimitatetext#1#2#3#4% text left right placeholder - {%\dontleavehmode - \bgroup - \let\speciallimitatetext\firstoffourarguments - \setbox\scratchboxone\hbox - {\nohyphens - \normallimitatetext{#1}{+#2}{}#4% - \normallimitatetext{#1}{-#3}{}}% - \setbox\scratchboxtwo\hbox - {#1}% - \ifdim\wd\scratchboxtwo<\wd\scratchboxone #1\else\unhbox\scratchboxone\fi - \egroup} +% \unexpanded\def\limitatetext +% {\bgroup % evt \setstrut +% \forgetall % otherwise indentation and so +% \let\limitatetext\firstofthreearguments +% \fakecompoundhyphen % dangerous ! ! ! ! ! ! ! ! ! +% \dowithnextboxcs\syst_boxes_limitate_text\hbox} +% +% \def\syst_boxes_limitate_text#1% #2 +% {\doifelsenothing{#1}\syst_boxes_limitate_text_nop\syst_boxes_limitate_text_yes{#1}} % {#2} +% +% \def\syst_boxes_limitate_text_nop#1#2% +% {\unhbox\nextbox +% \egroup} +% +% \def\syst_boxes_limitate_text_yes#1#2% +% {\nopenalties +% \scratchdimen#1\relax +% \ifdim\scratchdimen<\zeropoint\relax % we'll take the last line +% \donefalse +% \scratchdimen-\scratchdimen +% \else +% \donetrue +% \fi +% \ifdim\wd\nextbox>\scratchdimen +% \setbox\scratchbox\hbox{\ifdone\space#2\else#2\space\fi}% +% \advance\scratchdimen -\wd\scratchbox +% \setbox\scratchboxone\box\nextbox +% \setbox\nextbox\vbox +% {\hsize\scratchdimen +% \hfuzz\maxdimen +% \veryraggedright +% \strut +% \ifdone \else +% \parfillskip\zeropoint +% \rightskip\zeropoint +% \hskip\zeropoint \s!plus 1\s!fill % \hsize +% \fi +% \unhcopy\scratchboxone}% +% \ifdim\ht\nextbox>\strutht +% \setbox\nextbox\vbox % if omitted: missing brace reported +% {\splittopskip\openstrutheight +% \ifdone +% \setbox\nextbox\vsplit\nextbox to \strutht +% \else +% \doloop +% {\setbox\scratchboxone\vsplit\nextbox to \strutht +% \ifdim\ht\nextbox>\strutht \else \exitloop \fi}% +% \fi +% \unvbox\nextbox +% \setbox\nextbox\lastbox +% \global\setbox1\hpack +% {\ifdone +% \unhbox\nextbox\unskip\kern\zeropoint\box\scratchbox +% \else +% \box\scratchbox\unhbox\nextbox +% \fi +% \unskip}}% +% \unhbox1 +% \else +% \unhbox0% +% \fi +% \else +% \unhbox\nextbox +% \fi +% \egroup} +% +% %D We can also limit a text with more control: +% %D +% %D \startbuffer +% %D \limitatetext {\input tufte } {2cm,5mm} {\unknown} +% %D \limitatetext {ton en hans} {2cm,5mm} {\unknown} +% %D \limitatetext {ton en hans zijn eikels} {2cm,5mm} {\unknown} +% %D \limitatetext {ton} {2cm,5mm} {\unknown} +% %D \stopbuffer +% %D +% %D \typebuffer \getbuffer +% %D +% %D We build this feature on top of the previous macro. +% +% % we could move the text argument to the end +% +% \let\normallimitatetext\limitatetext +% +% \def\speciallimitatetext#1#2#3#4% text left right placeholder +% {%\dontleavehmode +% \bgroup +% \let\speciallimitatetext\firstoffourarguments +% \setbox\scratchboxone\hbox +% {\nohyphens +% \normallimitatetext{#1}{+#2}{}#4% +% \normallimitatetext{#1}{-#3}{}}% +% \setbox\scratchboxtwo\hbox +% {#1}% +% \ifdim\wd\scratchboxtwo<\wd\scratchboxone #1\else\unhbox\scratchboxone\fi +% \egroup} +% +% \unexpanded\def\limitatetext#1#2#3% \expanded added 2003/01/16 +% {\splitatcomma{#2}\leftlimit\rightlimit +% \ifx\rightlimit\empty +% \normallimitatetext {#1}\leftlimit {#3}% +% \else +% \speciallimitatetext{#1}\leftlimit\rightlimit{#3}% +% \fi} \unexpanded\def\limitatetext#1#2#3% \expanded added 2003/01/16 {\splitatcomma{#2}\leftlimit\rightlimit - \ifx\rightlimit\empty - \normallimitatetext {#1}\leftlimit {#3}% - \else - \speciallimitatetext{#1}\leftlimit\rightlimit{#3}% - \fi} + \limitated + left \leftlimit + \ifx\rightlimit\empty\else + right \rightlimit + \fi + strip true + sentinel {#3} + text {#1} + \relax} %D Undocumented bonus (see wiki): %D @@ -1485,16 +1448,6 @@ {\vpack\bgroup \dowithnextboxcs\syst_boxes_sbox_finish\vbox} -% \unexpanded\def\syst_boxes_sbox_finish -% {\setbox\nextbox\hpack -% {\strut -% \dp\nextbox\zeropoint -% \lower\strutdp\box\nextbox}% -% \dp\nextbox\strutdp -% \ht\nextbox\strutht -% \box\nextbox -% \egroup} - \unexpanded\def\syst_boxes_sbox_finish {\boxyoffset\nextbox-\strutdp \dp\nextbox\strutdp @@ -1503,19 +1456,10 @@ \egroup} %D A variant on this: - -% \unexpanded\def\inlinedbox -% {\bgroup -% \dowithnextbox -% {\setbox\nextbox\hpack -% {\lower -% \dimexpr(\htdp\nextbox-\lineheight)/\plustwo+\strutdp\relax -% \box\nextbox}% -% \ht\nextbox\strutht -% \dp\nextbox\strutdp -% \box\nextbox -% \egroup}% -% \hbox} +%D +%D \starttyping +%D xx \ruledhbox{\inlinedbox{\tfd test}} xx +%D \stoptyping \unexpanded\def\inlinedbox {\bgroup @@ -1601,37 +1545,6 @@ %D The dimensions of the surrounding box are kept intact. This commands handles %D positive and negative dimensions (which is why we need two boxes with rules). -% \unexpanded\def\centeredbox#1#% height +/-dimen width +/-dimen -% {\bgroup -% \setbox\scratchboxone\vpack to \vsize -% \bgroup -% \dontcomplain -% \forgetall -% \setbox\scratchboxone\hpack{\vrule\s!width \zeropoint#1}% -% \setbox\scratchboxtwo\vpack{\hrule\s!height\zeropoint#1}% -% \advance\vsize \ht\scratchboxtwo -% \advance\hsize \wd\scratchboxone -% \vpack to \vsize -% \bgroup -% \vskip-\ht\scratchboxtwo -% \vss -% \hpack to \hsize -% \bgroup -% \dowithnextbox -% {\hskip-\wd\scratchboxone -% \hss -% \box\nextbox -% \hss -% \egroup -% \vss -% \egroup -% \egroup -% \wd\scratchboxone\hsize -% \ht\scratchboxone\vsize -% \box\scratchboxone -% \egroup} -% \hbox} - \unexpanded\def\centeredbox#1#% height +/-dimen width +/-dimen {\bgroup \dontcomplain @@ -1830,7 +1743,36 @@ \newdimen\hboxestohboxslack %D Create line and fake height of paragraph by messign with heights: a nice hack by -%D DEK himself. See older files for that code. +%D DEK himself. + +%\unexpanded\def\setvboxtohbox +% {\bgroup +% \ifdim\baselineskip<16pt \relax +% \scratchdimen\baselineskip +% \multiply\scratchdimen 1024 +% \else +% \message{cropping \baselineskip to 16pt}% +% \scratchdimen\maxdimen +% \fi +% \divide\scratchdimen \hsize +% \multiply\scratchdimen 64 +% \xdef\vboxtohboxfactor{\withoutpt\the\scratchdimen}% +% \egroup} +% +% \unexpanded\def\startvboxtohbox +% {\bgroup +% \setvboxtohbox +% \setbox\scratchbox\hbox\bgroup} +% +% \unexpanded\def\stopvboxtohbox +% {\ifcase\vboxtohboxslack\else\hskip\zeropoint\!!minus\vboxtohboxslack\fi +% \egroup +% \dp\scratchbox\zeropoint +% \ht\scratchbox\vboxtohboxfactor\wd\scratchbox +% \box\scratchbox +% \egroup} + +% More modern: % \definesystemattribute[vboxtohboxseparator][public] @@ -2174,26 +2116,6 @@ \unexpanded\def\tbox{\hpack\bgroup\dowithnextboxcs\syst_boxes_tbox_finish\hbox} \unexpanded\def\bbox{\hpack\bgroup\dowithnextboxcs\syst_boxes_bbox_finish\hbox} -% \def\syst_boxes_tbox_finish -% {\scratchdepth\dimexpr\ht\nextbox+\dp\nextbox-\ht\strutbox\relax -% \ht\nextbox\ht\strutbox -% \dp\nextbox\scratchdepth -% \setbox\nextbox\hpack{\lower\dp\nextbox\box\nextbox}% -% \ht\nextbox\ht\strutbox -% \dp\nextbox\scratchdepth -% \box\nextbox -% \egroup} - -% \def\syst_boxes_bbox_finish -% {\scratchheight\dimexpr\ht\nextbox+\dp\nextbox-\dp\strutbox\relax -% \dp\nextbox\dp\strutbox -% \ht\nextbox\scratchheight -% \setbox\nextbox\hpack{\lower\dp\nextbox\box\nextbox}% -% \dp\nextbox\dp\strutbox -% \ht\nextbox\scratchheight -% \box\nextbox -% \egroup} - \def\syst_boxes_tbox_finish {\scratchheight\ht\strutbox \scratchdepth\dimexpr\htdp\nextbox-\scratchheight\relax @@ -2268,11 +2190,11 @@ \unexpanded\def\limitatelines#1#2% size sentinel {\dowithnextbox - {\dimen0=#1\hsize - \ifdim\wd\nextbox>\dimen0 + {\scratchdimen#1\hsize + \ifdim\wd\nextbox>\scratchdimen \setbox\nextbox\hbox - {\advance\dimen0 -.1\hsize - \limitatetext{\unhbox\nextbox}{\dimen0}{\nobreak#2}}% + {\advance\scratchdimen -.1\hsize + \limitatetext{\unhbox\nextbox}{\scratchdimen}{\nobreak#2}}% \fi \unhbox\nextbox} \hbox} @@ -2281,14 +2203,14 @@ {\dowithnextbox {\bgroup \par - \dimen0\ht\nextbox + \scratchdimen\ht\nextbox \ht\nextbox\strutht \dp\nextbox\strutdp \hpack{\box\nextbox} \prevdepth\strutdp \doloop - {\advance\dimen0 -\lineheight - \ifdim\dimen0<\zeropoint + {\advance\scratchdimen -\lineheight + \ifdim\scratchdimen<\zeropoint \exitloop \else \nobreak @@ -2344,13 +2266,6 @@ \let\bottomleftbox \leftbottombox \let\bottomrightbox\rightbottombox -% \def\syst_boxes_rightbox_finish -% {\global\boxhdisplacement\boxoffset -% \global\boxvdisplacement.5\ht\nextbox -% \global\advance\boxvdisplacement-.5\dp\nextbox -% \boxcursor\kern\boxhdisplacement\lower\boxvdisplacement\box\nextbox -% \egroup} - \def\syst_boxes_rightbox_finish {\global\boxhdisplacement\boxoffset \global\boxvdisplacement.5\dimexpr\ht\nextbox-\dp\nextbox\relax @@ -2360,14 +2275,6 @@ \box\nextbox \egroup} -% \def\syst_boxes_leftbox_finish -% {\global\boxhdisplacement-\wd\nextbox -% \global\advance\boxhdisplacement-\boxoffset -% \global\boxvdisplacement.5\ht\nextbox -% \global\advance\boxvdisplacement-.5\dp\nextbox -% \boxcursor\kern\boxhdisplacement\lower\boxvdisplacement\box\nextbox -% \egroup} - \def\syst_boxes_leftbox_finish {\global\boxhdisplacement\dimexpr-\wd\nextbox-\boxoffset\relax \global\boxvdisplacement.5\dimexpr\ht\nextbox-\dp\nextbox\relax @@ -2377,13 +2284,6 @@ \box\nextbox \egroup} -% \def\syst_boxes_topbox_finish -% {\global\boxhdisplacement-.5\wd\nextbox -% \global\boxvdisplacement-\dp\nextbox -% \global\advance\boxvdisplacement-\boxoffset -% \boxcursor\kern\boxhdisplacement\raise-\boxvdisplacement\box\nextbox -% \egroup} - \def\syst_boxes_topbox_finish {\global\boxhdisplacement-.5\wd\nextbox \global\boxvdisplacement\dimexpr-\dp\nextbox-\boxoffset\relax @@ -2393,13 +2293,6 @@ \box\nextbox \egroup} -% \def\syst_boxes_bottombox_finish -% {\global\boxhdisplacement-.5\wd\nextbox -% \global\boxvdisplacement\ht\nextbox -% \global\advance\boxvdisplacement\boxoffset -% \boxcursor\kern\boxhdisplacement\lower\boxvdisplacement\box\nextbox -% \egroup} - \def\syst_boxes_bottombox_finish {\global\boxhdisplacement-.5\wd\nextbox \global\boxvdisplacement\dimexpr\ht\nextbox+\boxoffset\relax @@ -2409,14 +2302,6 @@ \box\nextbox \egroup} -% \def\syst_boxes_lefttopbox_finish -% {\global\boxhdisplacement-\wd\nextbox -% \global\advance\boxhdisplacement-\boxoffset -% \global\boxvdisplacement-\dp\nextbox -% \global\advance\boxvdisplacement-\boxoffset -% \boxcursor\kern\boxhdisplacement\raise-\boxvdisplacement\box\nextbox -% \egroup} - \def\syst_boxes_lefttopbox_finish {\global\boxhdisplacement\dimexpr-\wd\nextbox-\boxoffset\relax \global\boxvdisplacement\dimexpr-\dp\nextbox-\boxoffset\relax @@ -2426,13 +2311,6 @@ \box\nextbox \egroup} -% \def\syst_boxes_righttopbox_finish -% {\global\boxhdisplacement\boxoffset -% \global\boxvdisplacement-\dp\nextbox -% \global\advance\boxvdisplacement-\boxoffset -% \boxcursor\kern\boxhdisplacement\raise-\boxvdisplacement\box\nextbox -% \egroup} - \def\syst_boxes_righttopbox_finish {\global\boxhdisplacement\boxoffset \global\boxvdisplacement\dimexpr-\dp\nextbox-\boxoffset\relax @@ -2442,14 +2320,6 @@ \box\nextbox \egroup} -% \def\syst_boxes_leftbottombox_finish -% {\global\boxhdisplacement-\wd\nextbox -% \global\advance\boxhdisplacement-\boxoffset -% \global\boxvdisplacement\ht\nextbox -% \global\advance\boxvdisplacement\boxoffset -% \boxcursor\kern\boxhdisplacement\lower\boxvdisplacement\box\nextbox -% \egroup} - \def\syst_boxes_leftbottombox_finish {\global\boxhdisplacement\dimexpr-\wd\nextbox-\boxoffset\relax \global\boxvdisplacement\dimexpr\ht\nextbox+\boxoffset\relax @@ -2459,13 +2329,6 @@ \box\nextbox \egroup} -% \def\syst_boxes_rightbottombox_finish -% {\global\boxhdisplacement\boxoffset -% \global\boxvdisplacement\ht\nextbox -% \global\advance\boxvdisplacement\boxoffset -% \boxcursor\kern\boxhdisplacement\lower\boxvdisplacement\box\nextbox -% \egroup} - \def\syst_boxes_rightbottombox_finish {\global\boxhdisplacement\boxoffset \global\boxvdisplacement\dimexpr\ht\nextbox+\boxoffset\relax @@ -2480,13 +2343,6 @@ \unexpanded\def\baselineleftbox {\hpack\bgroup\dowithnextboxcs\syst_boxes_baselineleftbox_finish \placedbox} \unexpanded\def\baselinerightbox {\hpack\bgroup\dowithnextboxcs\syst_boxes_baselinerightbox_finish \placedbox} -% \def\syst_boxes_middlebox_finish -% {\global\boxhdisplacement-.5\wd\nextbox -% \global\boxvdisplacement.5\ht\nextbox -% \global\advance\boxvdisplacement-.5\dp\nextbox -% \boxcursor\kern\boxhdisplacement\lower\boxvdisplacement\box\nextbox -% \egroup} - \def\syst_boxes_middlebox_finish {\global\boxhdisplacement-.5\wd\nextbox \global\boxvdisplacement.5\dimexpr\ht\nextbox-\dp\nextbox\relax @@ -2496,13 +2352,6 @@ \box\nextbox \egroup} -% \def\syst_boxes_baselinemiddlebox_finish -% {\global\boxhdisplacement-.5\wd\nextbox -% \global\advance\boxhdisplacement-\boxoffset -% \global\boxvdisplacement-\boxoffset -% \boxcursor\kern\boxhdisplacement\raise-\boxvdisplacement\box\nextbox -% \egroup} - \def\syst_boxes_baselinemiddlebox_finish {\global\boxhdisplacement\dimexpr-.5\wd\nextbox-\boxoffset\relax \global\boxvdisplacement-\boxoffset @@ -2512,13 +2361,6 @@ \box\nextbox \egroup} -% \def\syst_boxes_baselineleftbox_finish -% {\global\boxhdisplacement-\wd\nextbox -% \global\advance\boxhdisplacement-\boxoffset -% \global\boxvdisplacement-\boxoffset -% \boxcursor\kern\boxhdisplacement\raise-\boxvdisplacement\box\nextbox -% \egroup} - \def\syst_boxes_baselineleftbox_finish {\global\boxhdisplacement\dimexpr-\wd\nextbox-\boxoffset\relax \global\boxvdisplacement-\boxoffset @@ -2528,12 +2370,6 @@ \box\nextbox \egroup} -% \def\syst_boxes_baselinerightbox_finish -% {\global\boxhdisplacement\boxoffset -% \global\boxvdisplacement-\boxoffset -% \boxcursor\kern\boxhdisplacement\raise-\boxvdisplacement\box\nextbox -% \egroup} - \def\syst_boxes_baselinerightbox_finish {\global\boxhdisplacement\boxoffset \global\boxvdisplacement-\boxoffset @@ -2944,12 +2780,6 @@ %D A bit dirty: -% \unexpanded\def\nodestostring#1% \cs {content} -% {\dowithnextbox{\edef#1{\syst_boxes_nodestostring}}\hbox} -% -% \def\syst_boxes_nodestostring -% {\clf_boxtostring\nextbox} - \unexpanded\def\nodestostring#1#2% more tolerant for #2=\cs {\begingroup \setbox\nextbox\hbox{#2}% -- cgit v1.2.3