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