%% musippff.tex   This is an extension library for Musix\Tex which
%% replaces the macros used for dynamic marks to use a mini-font xppff10 
%% 
%%   Author:
%%   Hiroaki MORIMOTO <CQX05646\atmark nifty.com>
%%     Tokyo, Japan
%%     URL: http://homepage1.nifty.com/kuuku/pub/musixtex/index-e.html
%%
%% usage: 
%%    \input musixtex
%%    \input musixppff
%%    ...
%%
%% 
\immediate\write16{MusiXppff \noexpand\ppff font replacement <2015/07/25>}%

\font\xppfftwelve=xppff10 at 8pt
\font\xppffsixteen=xppff10
\font\xppfftwenty=xppff10 scaled \magstep1
\font\xppfftwentyfour=xppff10 scaled \magstep2
\font\xppfftwentynine=xppff10 scaled \magstep3
\font\tinyxppff=xppff10 at 8pt
\font\smallxppff=xppff10
\font\normxppff=xppff10 scaled \magstep1
\font\medxppff=xppff10 scaled \magstep2

\edef\catcodeat{\the\catcode`\@}\catcode`\@=11

\def\xppff{%
\ifdim\internote<\p@seven6\Internote \tinyxppff
\else\ifdim\internote<.95\Internote \smallxppff
\else\ifdim\internote<1.19\Internote \normxppff
\else\medxppff\fi\fi\fi}


\def\f{{\xppff f}}%
\def\ff{{\xppff ff}}%
\def\fp{{\xppff fp}}%
\def\sF{{\xppff sf}}%
\def\fff{{\xppff fff}}%
\def\ffff{{\xppff ffff}}%
\def\mf{{\xppff mf}}%
\def\p{{\xppff p}}%
\def\pp{{\xppff pp}}%
\def\ppp{{\xppff ppp}}%
\def\pppp{{\xppff pppp}}%
\def\sfz{{\xppff sfz}}%
\def\sfzp{{\xppff sfzp}}%
\def\mp@{{\xppff mp}}%
\let\mezzopiano\mp@

%
\def\tinydyn{\let\ppff\tinyppff\let\xppff\tinyxppff}%
\def\smalldyn{\let\ppff\smallppff\let\xppff\smallxppff}%
\def\normdyn{\let\ppff\normppff\let\xppff\normxppff}%
\def\meddyn{\let\ppff\medppff\let\xppff\medxppff}%

\def\comput@fonts{%    
  \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  % version 1.16  RDT
    \let\meterbigfont\twelvebf \let\meterlargefont\frtbf
    \let\meterLargefont\svtbf
    \let\tinyppff\ppfftwelve   % version 1.17  RDT
    \let\smallppff\ppfftwelve
    \let\normppff\ppffsixteen
    \let\medppff\ppfftwenty
    \let\tinyxppff\xppfftwelve   % version 1.17  RDT
    \let\smallxppff\xppfftwelve
    \let\normxppff\xppffsixteen
    \let\medxppff\xppfftwenty
  \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 % version 1.18  RDT
    \let\meterbigfont\svtbf \let\meterlargefont\twtybf
    \let\meterlargefont\twfvbf
    \let\tinyppff\ppffsixteen  
    \let\smallppff\ppfftwenty
    \let\normppff\ppfftwentyfour
    \let\medppff\ppfftwentynine
    \let\tinyxppff\xppffsixteen  
    \let\smallxppff\xppfftwenty
    \let\normxppff\xppfftwentyfour
    \let\medxppff\xppfftwentynine
  \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     % version 1.18  RDT
    \let\meterbigfont\twtybf \let\meterlargefont\twfvbf
    \let\meterLargefont\twfvbf
    \let\tinyppff\ppfftwenty   
    \let\smallppff\ppfftwentyfour
    \let\normppff\ppfftwentynine
    \let\medppff\ppfftwentynine
    \let\tinyxppff\xppfftwenty   
    \let\smallxppff\xppfftwentyfour
    \let\normxppff\xppfftwentynine
    \let\medxppff\xppfftwentynine
\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   % version 1.18  RDT
    \let\meterbigfont\frtbf \let\meterlargefont\svtbf
    \let\meterLargefont\twtybf
    \let\tinyppff\ppfftwelve  
    \let\smallppff\ppffsixteen
    \let\normppff\ppfftwenty
    \let\medppff\ppfftwentyfour
    \let\tinyxppff\xppfftwelve  
    \let\smallxppff\xppffsixteen
    \let\normxppff\xppfftwenty
    \let\medxppff\xppfftwentyfour
\fi\fi\fi}%

\catcode`\@=\catcodeat

\endinput

