% musixplt.tex : Palatino font definitions for MusiXTeX
%
% usage: 
%
%    \input musixtex
%    \input musixplt
%    ...
%
%   MusiXplt.tex is free software; you can redistribute it and/or modify
%   it under the terms of the GNU General Public License as published by
%   the Free Software Foundation; either version 2, or (at your option)
%   any later version.
%
%   MusiXppl.tex is distributed in the hope that it will be useful,
%   but WITHOUT ANY WARRANTY; without even the implied warranty of
%   MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
%   GNU General Public License for more details.
%
%   You should have received a copy of the GNU General Public License
%   along with MusiXTeX; see the file COPYING.  If not, write to
%   the Free Software Foundation, Inc., 59 Temple Place - Suite 330,
%   Boston, MA 02111-1307, USA.
%
%   Copyright 2015  Bob Tennent rdt@cs.queensu.ca
%
\immediate\write16{MusiXplt\space<2015/02/11>}
%
% 7pt roman, bold, italic, bold italic, slanted and small-cap
\font\sevenrm=pplr8r at 7pt
\font\sevenbf=pplb8r at 7pt
\font\sevenit=pplri8r at 7pt
\font\sevenbi=pplbi8r at 7pt
\font\sevensc=pplrc8r at 7pt
\font\sevensl=pplro8r at 7pt
%
% 8pt roman, bold, italic, bold italic, slanted and small-cap
\font\eightrm=pplr8r at 8pt
\font\eightbf=pplb8r at 8pt
\font\eightit=pplri8r at 8pt
\font\eightbi=pplbi8r at 8pt
\font\eightsc=pplrc8r at 8pt
\font\eightsl=pplro8r at 8pt
%
% 9pt
\font\ninerm=pplr8r at 9pt
\font\ninebf=pplb8r at 9pt
\font\nineit=pplri8r at 9pt
\font\ninebi=pplbi8r at 9pt
\font\ninesc=pplrc8r at 9pt
\font\ninesl=pplro8r at 9pt
%
% 10pt
\font\tenrm=pplr8r at 10pt
\font\tenbf=pplb8r at 10pt
\font\tenit=pplri8r at 10pt
\font\tenbi=pplbi8r at 10pt
\font\tensc=pplrc8r at 10pt
\font\tensl=pplro8r at 10pt
%
% 11pt
\font\elevenrm=pplr8r at 11pt
\font\elevenbf=pplb8r at 11pt
\font\elevenit=pplri8r at 11pt
\font\elevenbi=pplbi8r at 11pt
\font\elevensc=pplrc8r at 11pt
\font\elevensl=pplro8r at 11pt
%
% 12pt
\font\twelverm=pplr8r at 12pt
\font\twelvebf=pplb8r at 12pt
\font\twelveit=pplri8r at 12pt
\font\twelvebi=pplbi8r at 12pt
\font\twelvesc=pplrc8r at 12pt
\font\twelvesl=pplro8r at 12pt
%
% 14pt
\font\frtrm=pplr8r at 14pt
\font\frtbf=pplb8r at 14pt
\font\frtit=pplri8r at 14pt
\font\frtbi=pplbi8r at 14pt
\font\frtsc=pplrc8r at 14pt
\font\frtsl=pplro8r at 14pt
%
% 17pt
\font\svtrm=pplr8r at 17pt
\font\svtbf=pplb8r at 17pt
\font\svtit=pplri8r at 17pt
\font\svtbi=pplbi8r at 17pt
\font\svtsc=pplrc8r at 17pt
\font\svtsl=pplro8r at 17pt
%
% 20pt
\font\twtyrm=pplr8r at 20pt
\font\twtybf=pplb8r at 20pt
\font\twtyit=pplri8r at 20pt
\font\twtybi=pplbi8r at 20pt
\font\twtysc=pplrc8r at 20pt
\font\twtysl=pplro8r at 20pt
%
% 25pt
\font\twfvrm=pplr8r at 25pt
\font\twfvbf=pplb8r at 25pt
\font\twfvit=pplri8r at 25pt
\font\twfvbi=pplbi8r at 25pt
\font\twfvsc=pplrc8r at 25pt
\font\twfvsl=pplro8r at 25pt
%
% Large fonts for titles
% (If you prefer bold, use ..bf instead of ..sc)
% (If you prefer roman, use ..rm instead of ..sc)
\let\bigfont=\frtsc
\let\Bigfont=\svtsc
\let\BIgfont=\twtysc
\let\BIGfont=\twfvsc
%
%
\font\ppffsixteen=pplbi8r at 10pt
\font\ppfftwenty=pplbi8r at 12pt
\font\ppfftwentyfour=pplbi8r at 14pt
\font\ppfftwentynine=pplbi8r at 17pt
\font\tinyppff=pplbi8r at 8pt
\font\smallppff=pplbi8r at 10pt
\font\normppff=pplbi8r at 12pt
\font\medppff=pplbi8r at 14pt
%
\def\smalltype{%
  \let\rm\eightrm
  \let\bf\eightbf
  \let\it\eightit
  \let\bi\eightbi
  \let\sc\eightsc
  \let\sl\eightsl
  \rm}
\def\Smalltype{%
  \let\rm\ninerm
  \let\bf\ninebf
  \let\it\nineit
  \let\bi\ninebi
  \let\sc\ninesc
  \let\sl\ninesl
  \rm}
\def\normtype{%
  \let\rm\tenrm
  \let\bf\tenbf
  \let\it\tenit
  \let\bi\tenbi
  \let\sc\tensc
  \let\sl\tensl
  \rm}
\def\medtype{%
  \let\rm\twelverm
  \let\bf\twelvebf
  \let\it\twelveit
  \let\bi\twelvebi
  \let\sc\twelvesc
  \let\sl\twelvesl
  \rm}
\def\bigtype{%
  \let\rm\bigfont
  \let\bf\bigfont
  \let\it\bigfont
  \let\bi\bigfont
  \let\sc\bigfont
  \let\sl\bigfont
  \sc}
\def\Bigtype{%
  \let\rm\Bigfont
  \let\bf\Bigfont
  \let\it\Bigfont
  \let\bi\Bigfont
  \let\sc\Bigfont
  \let\sl\Bigfont
  \sc}
\def\BIgtype{%
  \let\rm\BIgfont
  \let\bf\BIgfont
  \let\it\BIgfont
  \let\bi\Bigfont
  \let\sc\Bigfont
  \let\sl\Bigfont
  \sc}
\def\BIGtype{%
  \let\rm\BIGfont
  \let\bf\BIGfont
  \let\it\BIGfont
  \let\bi\BIGfont
  \let\sc\BIGfont
  \let\sl\BIGfont
  \sc}
%
\def\txtfont{\eightit}
\def\txt{\txtfont3}
\def\tuplettxt{\txtfont3}

\edef\catcodeat{\the\catcode`\@}\catcode`\@=11
\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{\txtfont#1}}}  

\def\comput@fonts{%   meterfonts should be bf, not sc
  \ifnum\musicsize=\sixt@@n
    \let\musicLargefont\musictwentyfour
    \let\musiclargefont\musictwenty
    \let\musicnorfont\musicsixteen
    \let\musicsmallfont\musicthirteen
    \let\musictinyfont\musiceleven
    \let\xgregLargefont\xgregtwentyfour
    \let\xgreglargefont\xgregtwenty
    \let\xgregnorfont\xgregsixteen
    \let\xgregsmallfont\xgregthirteen
    \let\xgregtinyfont\xgregeleven
    \let\slurd\slurdsixteen \let\sluru\slurusixteen
    \let\hslurd\hslurdsixteen \let\hsluru\hslurusixteen
    \let\meternorfont\tenbf \let\metersmallfont\eightbf
    \let\meterbigfont\twelvebf \let\meterlargefont\frtbf
    \let\meterLargefont\svtbf
  \else\ifnum\musicsize=\@xxiv
    \let\musicLargefont\musictwentynine
    \let\musiclargefont\musictwentynine
    \let\musicnorfont\musictwentyfour
    \let\musicsmallfont\musictwenty
    \let\musictinyfont\musicsixteen
    \let\xgregLargefont\xgregtwentynine
    \let\xgreglargefont\xgregtwentynine
    \let\xgregnorfont\xgregtwentyfour
    \let\xgregsmallfont\xgregtwenty
    \let\xgregtinyfont\xgregsixteen
    \let\sluru\slurutwenty \let\slurd\slurdtwenty
    \let\hsluru\hslurutwenty \let\hslurd\hslurdtwenty
    \let\meternorfont\frtbf \let\metersmallfont\twelvebf
    \let\meterbigfont\svtbf \let\meterlargefont\twtybf
    \let\meterLargefont\twfvbf
  \else\ifnum\musicsize=\@xxix
    \let\musicLargefont\musictwentynine
    \let\musiclargefont\musictwentynine
    \let\musicnorfont\musictwentynine
    \let\musicsmallfont\musictwentyfour
    \let\musictinyfont\musictwenty
    \let\xgregLargefont\xgregtwentynine
    \let\xgreglargefont\xgregtwentynine
    \let\xgregnorfont\xgregtwentynine
    \let\xgregsmallfont\xgregtwentyfour
    \let\xgregtinyfont\xgregtwenty
    \let\sluru\slurutwenty \let\slurd\slurdtwenty
    \let\hsluru\hslurutwenty \let\hslurd\hslurdtwenty
    \let\slurud\slurutwentyd \let\slurdd\slurdtwentyd %    +ickd
    \let\hslurud\hslurutwentyd \let\hslurdd\hslurdtwentyd %+ickd
    \let\meternorfont\svtbf \let\metersmallfont\frtbf
    \let\meterbigfont\twtybf \let\meterlargefont\twfvbf
    \let\meterLargefont\twfvbf
  \else
    \ifnum\musicsize=\tw@nty
    \else\ifnum\musicsize=\z@
         \else\errmessage{\noexpand\musicsize=\the\musicsize\space not supported,
           set to default of 20}%
         \fi
    \fi\musicsize\tw@nty
    \let\musicLargefont\musictwentynine
    \let\musiclargefont\musictwentyfour
    \let\musicnorfont\musictwenty
    \let\musicsmallfont\musicsixteen
    \let\musictinyfont\musicthirteen
    \let\xgreglargefont\xgregtwentyfour
    \let\xgregLargefont\xgregtwentynine
    \let\xgregnorfont\xgregtwenty
    \let\xgregsmallfont\xgregsixteen
    \let\xgregtinyfont\xgregthirteen
    \let\sluru\slurutwenty \let\slurd\slurdtwenty
    \let\hsluru\hslurutwenty \let\hslurd\hslurdtwenty
    \let\meternorfont\twelvebf \let\metersmallfont\tenbf
    \let\meterbigfont\frtbf \let\meterlargefont\svtbf
    \let\meterLargefont\twtybf
  \fi\fi\fi
}%
\catcode`\@=\catcodeat


\normtype
\endinput
