% 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.} Κ–"stolfitex" style˜JšΟcœ-˜?šL˜LJš¨˜¨—š˜šœ˜Jšœ5˜5JšœZ˜ZJšœ˜Jšœ₯˜₯JšœΖ˜ΖJšœJ˜JJšœΛ˜Λ——š˜šœ˜Jšœιœœw˜˜——š˜Jšœ˜š˜Jš œœœœœœœ˜ψJšœP˜P—š1˜1Jšœ2˜2—š˜Jšœ8˜8——˜J˜—J˜—…— Ί Ϊ