% Palatino Roman (pplr)
\font\eightpr = pplr8r at 8 pt
\font\ninepr = pplr8r at 9pt
\font\tenpr = pplr8r at 10pt
\font\elvpr = pplr8r at 11 pt
\font\twvpr = pplr8r at 12 pt
\font\frtpr = pplr8r at 14 pt
\font\bigpr = pplr8r at 16 pt
\font\Bigpr = pplr8r at 18 pt
\font\BIgpr = pplr8r at 20 pt
\font\BIGpr = pplr8r at 25 pt
\font\BIGPr = pplr8r at 28 pt
% Palatino Bold (pplb)
\font\eightpbf = pplb8r at 8 pt
\font\ninepbf = pplb8r at 9pt
\font\tenpbf = pplb8r at 10pt
\font\elvpbf = pplb8r at 11 pt
\font\twvpbf = pplb8r at 12 pt
\font\frtpbf = pplb8r at 14 pt
\font\bigpbf = pplb8r at 16 pt
\font\Bigpbf = pplb8r at 18 pt
\font\BIgpbf = pplb8r at 20 pt
\font\BIGpbf = pplb8r at 25 pt
\font\BIGPbf = pplb8r at 28 pt
% Palatino Italic (pplri)
\font\eightpit = pplri8r at 8 pt
\font\ninepit = pplri8r at 9pt
\font\tenpit = pplri8r at 10pt
\font\elvpit = pplri8r at 11 pt
\font\twvpit = pplri8r at 12 pt
\font\frtpit = pplri8r at 14 pt
\font\bigpit = pplri8r at 16 pt
\font\Bigpit = pplri8r at 18 pt
\font\BIgpit = pplri8r at 20 pt
\font\BIGpit = pplri8r at 25 pt
\font\BIGPit = pplri8r at 28 pt
% Palatino Bold Italic (pplbi)
\font\eightpbi = pplbi8r at 8 pt
\font\ninepbi = pplbi8r at 9pt
\font\tenpbi = pplbi8r at 10pt
\font\elvpbi = pplbi8r at 11 pt
\font\twvpbi = pplbi8r at 12 pt
\font\frtpbi = pplbi8r at 14 pt
\font\bigpbi = pplbi8r at 16 pt
\font\Bigpbi = pplbi8r at 18 pt
\font\BIgpbi = pplbi8r at 20 pt
\font\BIGpbi = pplbi8r at 25 pt
\font\BIGPbi = pplbi8r at 28 pt
% Palatino Small Caps (pplrc)
\font\eightpsc = pplrc8r at 8 pt
\font\ninepsc = pplrc8r at 9pt
\font\tenpsc = pplrc8r at 10pt
\font\elvpsc = pplrc8r at 11 pt
\font\twvpsc = pplrc8r at 12 pt
\font\frtpsc = pplrc8r at 14 pt
\font\bigpsc = pplrc8r at 16 pt
\font\Bigpsc = pplrc8r at 18 pt
\font\BIgpsc = pplrc8r at 20 pt
\font\BIGpsc = pplrc8r at 25 pt
\font\BIGPsc = pplrc8r at 28 pt

\def\smalltype{%8
  \let\rm\eightpr
  \let\bf\eightpbf
  \let\it\eightpit
  \let\bi\eightpbi
  \let\sc\eightpsc
  \rm}
\def\Smalltype{%9
  \let\rm\ninepr
  \let\bf\ninepbf
  \let\it\ninepit
  \let\bi\ninepbi
  \let\sc\ninepsc
  \rm}
\def\normtype{%10
  \let\rm\tenpr
  \let\bf\tenpbf
  \let\it\tenpit
  \let\bi\tenpbi
  \let\sc\tenpsc
  \rm}
\def\slightlylargetype{%11
  \let\rm\elvpr
  \let\bf\elvpbf
  \let\it\elvpit
  \let\bi\elvpbi
  \let\sc\elvpsc
  \rm}
\def\medtype{%12
  \let\rm\twvpr
  \let\bf\twvpbf
  \let\it\twvpit
  \let\bi\twvpbi
  \let\sc\twvpsc
  \rm}
\def\largef{%14
  \let\rm\frtpr
  \let\bf\frtpbf
  \let\it\frtpit
  \let\bi\frtpbi
  \let\sc\frtpsc
  \rm}
\def\bigtype{%16
  \let\rm\bigpr
  \let\bf\bigpbf
  \let\it\bigpit
  \let\bi\bigpbi
  \let\sc\bigpsc
  \rm}
\def\Bigtype{%18
  \let\rm\Bigpr
  \let\bf\Bigpbf
  \let\it\Bigpit
  \let\bi\Bigpbi
  \let\sc\Bigpsc
  \rm}
\def\BIgtype{%20
  \let\rm\BIgpr
  \let\bf\BIgpbf
  \let\it\BIgpit
  \let\bi\BIgpbi
  \let\sc\BIgpsc
  \rm}
\def\BIGtype{%25
  \let\rm\BIGpr
  \let\bf\BIGpbf
  \let\it\BIGpit
  \let\bi\BIGpbi
  \let\sc\BIGpsc
  \rm}
\def\BIGType{%28
  \let\rm\BIGPr
  \let\bf\BIGPbf
  \let\it\BIGPit
  \let\bi\BIGPbi
  \let\sc\BIGPsc
  \rm}

\def\normf{\normtype}
\def\Bigf{\Bigtype}
\def\medf{\medtype}
\makeatletter
\def\xtuplet#1#2{\n@iv#1\advance\n@iv\m@ne {\sign@skip=\n@iv\noteskip
  \sign@skip=0.5\sign@skip \xdef\half@sign@skip{\the\sign@skip}}%
  \zcharnote{#2}{\kern\h@lf\qn@width\kern \half@sign@skip\lrlap{\txt}}}  % \txt 
\makeatother
\font\sevenit=pplri8r at 7pt
\def\txt{\sevenit3}
\font\fiveit=pplri8r at 5pt
\def\smalltxt{\fiveit3}
\def\TitlingFont{\Bigpsc}
 
\font\ppffsixteen=pplbi8r
\font\ppfftwenty=pplbi8r scaled \magstep1
\font\ppfftwentyfour=pplbi8r scaled \magstep2
\font\ppfftwentynine=pplbi8r scaled \magstep3
\font\tinyppff=pplbi8r at 6 pt
\font\smallppff=pplbi8r at 8 pt
\font\normppff=pplbi8r 
\font\medppff=pplbi8r at 12pt


\def\writebarno{\llap{\tenpbf\the\barno\barnoadd}}%
\def\raisebarno{6\internote}%
\def\fontbarno{\tenpit}

\makeatletter
\def\f@kern{\kern0.1ex}
\def\setname#1#2{\n@v#1\relax % select instrument
  \expandafter\edef\csname instrument\romannumeral\n@v\endcsname{\tenpr#2}}
\makeatother
