summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/tex/plain/gustlib/map/tun.tex
diff options
context:
space:
mode:
Diffstat (limited to 'Master/texmf-dist/tex/plain/gustlib/map/tun.tex')
-rw-r--r--Master/texmf-dist/tex/plain/gustlib/map/tun.tex51
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}%