You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
|
|
% 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}%
|
|
|
|
