diff options
Diffstat (limited to 'tex/context/base/supp-fun.tex')
| -rw-r--r-- | tex/context/base/supp-fun.tex | 35 |
1 files changed, 33 insertions, 2 deletions
diff --git a/tex/context/base/supp-fun.tex b/tex/context/base/supp-fun.tex index 6f324be6b..547ad1365 100644 --- a/tex/context/base/supp-fun.tex +++ b/tex/context/base/supp-fun.tex @@ -646,8 +646,6 @@ \egroup \expandafter\font\expandafter#2\fontname\font\relax} - - %D Afterwards, we have access to the calculated size by: \let\TheNormalizedFontSize\!!zeropoint @@ -777,5 +775,38 @@ \writestatus{\strippedcsname\FittingText}{height: \the\!!heighta}% \unvbox\scratchbox \egroup} + +%D New: + +% \font width gap font spec text + +\def\NormalizeFontWidthSpread#1#2#3#4#5#6% + {\global\setfalse\NFSpread + \scratchdimen#3% + \scratchdimen-.5\scratchdimen + \advance\scratchdimen#2\relax + \NormalizeFontWidth + #1% + {\def\+{\global\settrue\NFSpread\gobbleuntil\relax}% + \def\\{\gobbleuntil\relax}% newline + \stelspatieringin + #6\relax}% + {\scratchdimen}% + {#4}% + \ifconditional\NFSpread + % de gap valt in de binding + \else + \definefont[\strippedcsname#1][#4 #5]% + \fi} + +\def\SpreadGapText#1#2% +% {{\def\+{\blackrule[\c!breedte=#1]}#2}} + {{\def\+{\kern#1}#2}} + +\def\GapText#1#2#3#4#5% width distance font spec title + {\bgroup + \NormalizeFontWidthSpread\DummyFont{#1}{#2}{#3}{#4}{#5}% + \DummyFont\stelspatieringin\SpreadGapText{#2}{#5}\endgraf + \egroup} \protect \endinput |