%\filename{cmrtextmacros.tex}
%\edited{last by stolfi on Sat Mar  7 05:06:34 1987}

% Macros that are applicable when using standard TeX fonts for ordinary text

\catcode`@=11 \endlinechar=-1

  % 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\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}\mi\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}}}

  % Special characters

    \def\dag{\mathhexbox279}
    \def\ddag{\mathhexbox27A}

    \def\sectionmark{\mathhexbox278} % was \S in plain.tex
    \def\paragmark{\mathhexbox27B}   % was \P in plain.tex

  % Big round and square black dots, for items and such:

    \def\bull{{$\bullet$}} % for items, etc
    \def\punch{\hbox{\vrule height 0.9ex depth -0.1ex width 0.8ex}}

  % 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}

  \message{done.}

\catcode`@=12 \endlinechar=`\^^M

% END

