[NTG-context] Size of all subscripts

[Hans Hagen]

On 8/22/2022 4:59 PM, Fabrice Couvreur via ntg-context wrote:
> Hello
> How to reduce the size of all subscripts in math mode ?
> Thanks
> Fabrice
> 
> \usemodule[tikz]
>   \protected\def\vector#1{%
>       \starttikzpicture[baseline=(arg.base),>=stealth]
>       \node[inner xsep=0pt] (arg) {\m{#1}};
>       \draw[thick,->,shorten >=-1pt] (arg.north west) -- (arg.north east);
>      \stoptikzpicture%
>      }
> \starttext
>   \m{z_{\vector{U}}}
> \stoptext
\protected\def\vector#1{%
      \starttikzpicture[baseline=(arg.base),>=stealth]
      \node[inner xsep=0pt] (arg) {\m{#1}};
      \draw[thick,->,shorten >=-1pt] (arg.north west) -- (arg.north east);
     \stoptikzpicture
     }
\starttext

\m{x + z_{\vector{U}} + x}

\m{x + \mathord{\vector{U}}^^z + x}

\m{x + \overrightarrow{U}^^z + x}

\stoptext


-----------------------------------------------------------------
                                           Hans Hagen | PRAGMA ADE
               Ridderstraat 27 | 8061 GH Hasselt | The Netherlands
        tel: 038 477 53 69 | www.pragma-ade.nl | www.pragma-pod.nl
-----------------------------------------------------------------