169 lines
5.7 KiB
TeX
169 lines
5.7 KiB
TeX
%% 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
|
|
|