summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/tex/csplain/fonts/cpalatin.tex
blob: 8fe9b45ce3f778ffc7d57233b73748c49c3d7c44 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
% The file cpalatin.tex (C) Petr Olsak, 1996, 1999, 2012
% Use "\input cpalatin" to set the Palatino fonts family in text mode

\message{FONT: Palatino -
   \string\rm, \string\it, \string\bf, \string\bi, \string\tt.}

\ifx\font\unicoded \message{WARNING: This font family is unavailable in UNICODE.}
                   \endinput\fi

\ifx\sizespec\undefined \def\sizespec{}\fi
\ifx\font\corkencoded
      \def\tmp{8t \sizespec}\def\tmpa{8t \sizespec}
\else \def\tmp{8z \sizespec}\def\tmpa{8u \sizespec}
\fi

\font\tenrm=pplr\tmp
\font\tenbf=pplb\tmp
\font\tenit=pplri\tmp
\font\tenbi=pplbi\tmp
\font\tentt=pcrr\tmpa
\let\tensl=\tenit

\tenrm

\ifx\font\corkencoded \else \input chars-8z \fi

\ifx\mathpreloaded X\else \input tx-math \fi                     

\let\setsimplemath=\relax % this command is obsolete

% The \TeX logo corrected by Ivo Jancik for Palatino fonts family
\def\palTeX{T\kern-.1667em\lower.3333ex\hbox{E}\kern-.125emX}
\ifx\origTeX\undefined \let\origTeX=\TeX \fi
\let\TeX=\palTeX

% end of cpalatin.tex