diff options
Diffstat (limited to 'Master/texmf-dist/tex/plain/gustlib/map/tun.tex')
-rw-r--r-- | Master/texmf-dist/tex/plain/gustlib/map/tun.tex | 51 |
1 files changed, 51 insertions, 0 deletions
diff --git a/Master/texmf-dist/tex/plain/gustlib/map/tun.tex b/Master/texmf-dist/tex/plain/gustlib/map/tun.tex new file mode 100644 index 00000000000..275135adb97 --- /dev/null +++ b/Master/texmf-dist/tex/plain/gustlib/map/tun.tex @@ -0,0 +1,51 @@ +% TUN.TEX + +% Marek Ry\'cko + +% Macro \tun +% Text UNderline + +% version 0.1, 9.10.94 +% version 0.3, 1.5.1996 +% -- english description + + +% uses SPLIT +% uses MAP + + +\newbox\boxA +\newdimen\dimenA +\newdimen\dimenB + + +\def\tun + %#1% + {\map + {\ifx\mapcur\space + \space + \else + \tunel\mapcur + \fi + }% + %{#1}% + } +\def\tunel + #1% what to underline + {{% + #1% + \setbox\boxA\hbox{#1}% + \dimenA-\tunsep + \dimenB-\dimenA \advance\dimenB\tunwd + \llap{\hbox to\wd\boxA{\hss + \vrule height\dimenA depth\dimenB width\tunfac\wd\boxA + \hss}}% + }} + +% default parameters: +% underline separator width + \def\tunsep {.25ex}% +% underline width + \def\tunwd {.09ex}% +% underline factor of letter width: + \def\tunfac {1}% |