%% 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 <2017/02/10>}% \ifx\undefined\startpiece\errmessage{Input musixtex.tex before musixppff.tex}\fi \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