diff options
Diffstat (limited to 'macros/musixtex/tex/musixppff.tex')
| -rw-r--r-- | macros/musixtex/tex/musixppff.tex | 169 |
1 files changed, 169 insertions, 0 deletions
diff --git a/macros/musixtex/tex/musixppff.tex b/macros/musixtex/tex/musixppff.tex new file mode 100644 index 0000000000..6d06e70b42 --- /dev/null +++ b/macros/musixtex/tex/musixppff.tex @@ -0,0 +1,169 @@ +%% 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 <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 + |