\def\palatino{\palatinotext\palatinomath}

\def\palatinotext{

\font\twelverm=pplr8t at 12pt
\font\elevenrm=pplr8t at 10.95pt
\font\tenrm=pplr8t at 10pt
\font\ninerm=pplr8t at 9pt
\font\eightrm=pplr8t
\font\sevenrm=pplr8t at 7pt
\font\sixrm=pplr8t at 6pt
\font\fiverm=pplr8t at 5pt

\font\twelvebf=pplb8t at 12pt
\font\elevenbf=pplb8t at 10.95pt
\font\tenbf=pplb8t at 10pt
\font\ninebf=pplb8t at 9pt
\font\sevenbf=pplb8t at 7pt
\font\fivebf=pplb8t at 5pt

\font\twelvesl=pplro8t at 12pt
\font\tensl=pplro8t at 10pt

\font\twelveit=pplri8t at 12pt
\font\elevenit=pplri8t at 10.95pt
\font\tenit=pplri8t at 10pt
\font\nineit=pplri8t at 9pt
\font\eightit=pplri8t
\font\sevenit=pplri8t at 7pt
}
\def\palatinomath{

\font\twelvemr=pplr7t at 12pt
\font\elevenmr=pplr7t at 10.95pt
\font\tenmr=pplr7t at 11pt
\font\ninemr=pplr7t at 10pt
\font\eightmr=pplr7t at 9pt
\font\sevenmr=pplr7t at 8pt
\font\sixmr=pplr7t at 7pt
\font\fivemr=pplr7t at 5pt

\font\twelvei=zplmr7m at 12pt
\font\eleveni=zplmr7m at 10.95pt
\font\teni=zplmr7m at 10pt
\font\ninei=zplmr7m at 9pt
\font\eighti=zplmr7m at 8pt
\font\seveni=zplmr7m at 7pt
\font\sixi=zplmr7m at 6pt
\font\fivei=zplmr7m at 5pt

\font\twelvesy=zplmr7y at 12pt
\font\elevensy=zplmr7y at 10.95pt
\font\tensy=zplmr7y at 10pt
\font\ninesy=zplmr7y at 9pt
\font\eightsy=zplmr7y at 8pt
\font\sevensy=zplmr7y at 7pt
\font\sixsy=zplmr7y at 6pt
\font\fivesy=zplmr7y at 5pt

\font\twelveex=zplmr7v at12pt
\font\elevenex=zplmr7v at 10.95pt
\font\tenex=zplmr7v at 10pt
\font\nineex=zplmr7v at 9pt
\font\eightex=zplmr7v at 8pt
\let\sevenex\eightex
\let\sixex\eightex
\let\fiveex\eightex

\skewchar\twelvei='177 \skewchar\eleveni='177 \skewchar\teni='177 \skewchar\ninei='177
\skewchar\eighti='177  \skewchar\seveni='177  \skewchar\sixi='177 \skewchar\fivei='177
\skewchar\twelvesy='60 \skewchar\elevensy='60 \skewchar\tensy='60 \skewchar\ninesy='60
\skewchar\eightsy='60  \skewchar\sevensy='60  \skewchar\sixsy='60 \skewchar\fivesy='60
}
\palatino

.