%% 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 %% 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/02/23>}% \font\xppffsixteen=xppff10 \font\xppfftwenty=xppff10 scaled \magstep1 \font\xppfftwentyfour=xppff10 scaled \magstep2 \font\xppfftwentynine=xppff10 scaled \magstep3 \font\smallxppff=xppff10 \font\normxppff=xppff10 scaled \magstep1 \font\medxppff=xppff10 scaled \magstep2 \edef\catcodeat{\the\catcode`\@}\catcode`\@=11 \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\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 % T116 RDT \let\meterbigfont\twelvebf \let\meterlargefont\frtbf \let\meterLargefont\svtbf \let\ppff\ppffsixteen \let\xppff\xppffsixteen \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 % T116 RDT \let\meterbigfont\svtbf \let\meterlargefont\twtybf \let\meterlargefont\twfvbf \let\ppff\ppfftwentyfour \let\xppff\xppfftwentyfour \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 % T116 RDT \let\meterbigfont\twtybf \let\meterlargefont\twfvbf \let\meterLargefont\twfvbf \let\ppff\ppfftwentynine \let\xppff\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 % T116 RDT \let\meterbigfont\frtbf \let\meterlargefont\svtbf \let\meterLargefont\twtybf \let\ppff\ppfftwenty \let\xppff\xppfftwenty \fi\fi\fi }% % \def\smalldyn{\let\ppff\smallppff\let\xppff\smallxppff\let\p@@f\ppff}% \def\normdyn{\let\ppff\normppff\let\xppff\normxppff\let\p@@f\ppff}% \def\meddyn{\let\ppff\medppff\let\xppff\medxppff\let\p@@f\ppff}% \catcode`\@=\catcodeat \endinput