% TRTextMacros.TeX --- Stolfi    April 6, 1984 11:43:16 pm PST

% Macros applicable when Xerox TimesRoman fonts are used for ordinary text 

% These definitions assume the current horizontal font (the one that is set up
%  by he macros \rm, \it, \bf, etc) is a Xerox TimesRoman text font.
% The macros assume however that the math fonts are standard TeX fonts,
%  in particular that \the\textfont\rmfam gives a standard TeX roman font. 

% TEXT ACCENTS

\message{text accents ...}

\def\tex{\the\textfont\fam} % gets TeX standard font

\def\d#1{{\linesep.25ex\lineseplimit\maxdimen
  \putbelow{#1\crcr\hidewidth.\hidewidth}}}

\def\b#1{{\linesep.25ex\lineseplimit\maxdimen
  \putbelow{#1\crcr\hidewidth
     \vbox to.2ex{\hbox{\char'257}\vss}\hidewidth}}} % bar under

\def\c#1{{\linesep0pt\lineseplimit\maxdimen
  \putbelow{#1\crcr\hidewidth
     \vbox to.2ex{\hbox{\the\textfont\rmfam
        \char'030}\vss}\hidewidth}}} % cedilla

\def\`#1{{\accent'252 #1}}
\def\'#1{{\accent'253 #1}}
\def\v#1{{\accent'350 #1}} \let\^^_=\v
\def\u#1{{\accent'256 #1}} \let\^^S=\u
\def\=#1{{\accent'257 #1}}
\def\^#1{{\accent'254 #1}} \let\^^D=\^

\def\.#1{{\edef\f@nt{\the\font}
   \the\textfont\rmfam\accent95\f@nt #1}}

\def\H#1{{\edef\f@nt{\the\font}
   \the\textfont\rmfam\accent"7D\f@nt #1}}
\def\~#1{{\accent'255 #1}}
\def\"#1{{\accent'250 #1}}
\def\t#1{{\edef\f@nt{\the\font}
   \the\textfont\ifam\accent"7F\f@nt #1}}

% NATIONAL CHARACTERS FOR TEXT

\message{national chars ...}

\chardef\cc='003  % cedilla-c
\def\CC{\c C}

\def\ss={{\tex\char"19}}
\def\ae{{\tex\char"1A}}
\def\oe{{\tex\char"1B}}
\def\o{{\tex\char"1C}}
\def\AE{{\tex\char"1D}}
\def\OE{{\tex\char"1E}}
\def\O{{\tex\char"1F}}
\def\i{\tex\char"10} % dotless letters
\def\j{\tex\char"11} % dotless letters
\chardef\AA='202
\chardef\aa='242
\def\l{{\tex\char32}l}
\def\L{\hmode\setbox0\hbox{L}\hbox to\wd0{\hss\tex\char32L}}

% SPECIAL CHARACTERS FOR TEXT

\message{special chars ...}

% special chars

\chardef\percent='045   % percent sign
\chardef\ampersand='046   % ampersand
\chardef\hash='043     % hash/pound/number mark
\chardef\dollar='044    % dollar sign
\chardef\sterling='261 % pound sterling sign
\chardef\atsign='100    % "at" sign (@)

\def\copyright{{\overlap{\hfil\raise.07ex\hbox{c}\hfil
  \crcr\mathhexbox20D}}}

% ASCII-style underline for program identifiers:

\def\_{\hmode \kern.06em \vbox{\hrule width.3em}}

% TeX logo...

\def\TeX{T\kern-.1667em\lower.5ex\hbox{E}\kern-.125emX}

% END

\message{done.}