% AMRTextMacros.TeX --- Stolfi    April 6, 1984 10:02:08 pm PST

% Macros that are applicable when using standard TeX fonts 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 STANDARD TeX text font
%  (like AMR roman or text italic). 

% TEXT ACCENTS

\message{text accents ...}

\def\tex{\the\textfont\rmfam} % gets TeX roman as current text font 

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

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

\def\c#1{{\linesep0pt\lineseplimit\maxdimen
  \putbelow{#1\crcr\hidewidth\char'030\hidewidth}}}

\def\`#1{{\accent18 #1}}
\def\'#1{{\accent19 #1}}
\def\v#1{{\accent20 #1}} \let\^^_=\v
\def\u#1{{\accent21 #1}} \let\^^S=\u
\def\=#1{{\accent22 #1}}
\def\^#1{{\accent94 #1}} \let\^^D=\^
\def\.#1{{\accent95 #1}}
\def\H#1{{\accent"7D #1}}
\def\~#1{{\accent"7E #1}}
\def\"#1{{\accent"7F #1}}
\def\t#1{{\edef\next{\the\font}\mit\accent"7F\next#1}}

% NATIONAL CHARACTERS FOR TEXT

\message{national chars ...}

\def\cc{\c c}  % cedilla-c
\def\CC{\c C}

\chardef\ss="19
\chardef\ae="1A
\chardef\oe="1B
\chardef\o="1C
\chardef\AE="1D
\chardef\OE="1E
\chardef\O="1F
\chardef\i="10 \chardef\j="11 % dotless letters
\def\AA{\hmode\setbox0\hbox{h}
  \dimen@\ht0\advance\dimen@-1ex
  \rlap{\raise.67\dimen@\hbox{\char'27}}A}
\def\aa{\accent23a}
\def\l{\char32l}
\def\L{\hmode\setbox0\hbox{L}\hbox to\wd0{\hss\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\money='044    % dollar in \rm or \tt, sterling in \it (CROCK!)
\def\dollar{{\rm\char'044}} % dollar sign (CROCK!)
\def\sterling{{\it\char'044}} % pound sterling sign (CROCK!)
\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.}