diff options
Diffstat (limited to 'tex/context/base/core-fnt.mkiv')
-rw-r--r-- | tex/context/base/core-fnt.mkiv | 96 |
1 files changed, 1 insertions, 95 deletions
diff --git a/tex/context/base/core-fnt.mkiv b/tex/context/base/core-fnt.mkiv index 5f08cf75b..980f1a85c 100644 --- a/tex/context/base/core-fnt.mkiv +++ b/tex/context/base/core-fnt.mkiv @@ -60,7 +60,7 @@ %D %D \showsetup{stretched} -\def\stretched#1% +\unexpanded\def\stretched#1% {\ifvmode\hbox to \hsize\else\ifinner\else\hbox\fi\fi \bgroup\processtokens\relax\hss\relax{\hss\hss}{#1}\egroup} @@ -155,98 +155,4 @@ \fi}% \fi} -%D \macros -%D {low, high, lohi, hilo} -%D -%D Although \TEX\ is pretty well aware of super- and -%D subscripts, its mechanism is mainly tuned for math mode. -%D The next few commands take care of script texts both modes. -%D -%D \startbuffer -%D The higher\high{one goes} the lower\low{one drops}, or\lohi{yes}{no}? -%D \stopbuffer -%D -%D \typebuffer -%D -%D \getbuffer -%D -%D Note the different placement of \type {\lohi}, where we -%D need a bit more space. The implementation looks a bit -%D fuzzy, since some \type {\fontdimen}'s are involved to -%D determine the optimal placement. - -\def\highvfraction {0} -\def\lowvfraction {0} -\def\highlowvfraction{.1} -\def\highlowhfraction{.1} - -\def\dodohighlow - {\ifx\fontsize\empty - \ifmmode - \mr - \else - \tx - \fi - \else - \tx - \fi} - -\def\dohighlow#1#2#3#4#5#6% todo, named fontdimens tag - {\dontleavehmode - \bgroup - \scratchdimen\dimexpr#3ex+#4ex\relax - \kern\highlowhfraction ex - \setbox\scratchbox\hbox{#1\scratchdimen\hbox{\dodohighlow\dostarttagged#5\empty#6\dostoptagged}}% - \ht\scratchbox\strutheight - \dp\scratchbox\strutdepth - \box\scratchbox - \egroup} - -\unexpanded\def\high{\dohighlow\raise\mathsupnormal{.86}\highvfraction\t!sup} -\unexpanded\def\low {\dohighlow\lower\mathsubnormal{.48}\lowvfraction \t!sub} - -\unexpanded\def\lohi - {\dosingleempty\dolohi} - -\unexpanded\def\hilo - {\dosingleempty\dohilo} - -\def\dolohi[#1]#2#3% - {\dontleavehmode - \hbox - {\dostarttagged\t!subsup\empty - \setbox4\hbox{\dohighlow\lower\mathsubnormal{.48}\highlowvfraction\t!sub{#2}}% - \setbox6\hbox{\dohighlow\raise\mathsupnormal{.86}\highlowvfraction\t!sup{#3}}% - \doif{#1}{\v!left} - {\ifdim\wd4<\wd6 - \setbox4\hbox to \wd6{\hss\box4}% - \else - \setbox6\hbox to \wd4{\hss\box6}% - \fi}% - \ifdim\wd4<\wd6 - \wd4=\zeropoint\box4\box6 - \else - \wd6=\zeropoint\box6\box4 - \fi - \dostoptagged}} - -\def\dohilo[#1]#2#3% - {\dolohi[#1]{#3}{#2}} - -%D You can provide an optional keyword \type {left}, in which -%D case the super and subscripts will be aligned in a way that -%D permits placement at the left of a word (which means that -%D it will be right aligned). -%D -%D \startbuffer -%D \lohi{aha}{ah} test \lohi{aha}{ah} test -%D \lohi[left]{aha}{ah} test \lohi[left]{aha}{ah} test -%D \lohi{aha}{ah} test\lohi{aha}{ah} test -%D \lohi[left]{aha}{ah}test \lohi[left]{aha}{ah}test -%D \stopbuffer -%D -%D \typebuffer -%D -%D \getbuffer - \protect \endinput |