diff options
author | Karl Berry <karl@freefriends.org> | 2015-02-28 22:49:36 +0000 |
---|---|---|
committer | Karl Berry <karl@freefriends.org> | 2015-02-28 22:49:36 +0000 |
commit | ae750b9d9f9b660a211c98ee92e45a5ec9f42dea (patch) | |
tree | 21a2f38bae7bb139c78e4634c9fd7562cef14a0e /Master/texmf-dist/tex/generic/musixtex/musixadf.tex | |
parent | 3b4f0a07480eef603c2582c56ceef707e9849ce6 (diff) |
musixtex (28feb15)
git-svn-id: svn://tug.org/texlive/trunk@36401 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/texmf-dist/tex/generic/musixtex/musixadf.tex')
-rw-r--r-- | Master/texmf-dist/tex/generic/musixtex/musixadf.tex | 138 |
1 files changed, 138 insertions, 0 deletions
diff --git a/Master/texmf-dist/tex/generic/musixtex/musixadf.tex b/Master/texmf-dist/tex/generic/musixtex/musixadf.tex new file mode 100644 index 00000000000..33c93ddca85 --- /dev/null +++ b/Master/texmf-dist/tex/generic/musixtex/musixadf.tex @@ -0,0 +1,138 @@ +% +% musixadf.tex - some additional accents for MusiXTeX +% +%% Author: +%% Hiroaki MORIMOTO <CQX05646\atmark nifty.com> +%% Tokyo, Japan +%% URL: http://homepage1.nifty.com/kuuku/pub/musixtex/index-e.html +% +\immediate\write16{MusiXTeX Additional Accents <2015-02-15> )}% +% +\edef\catcodeat{\the\catcode`\@}\catcode`\@=11 +% +\font\musixadfeleven=xadf11 +\font\musixadfthirteen=xadf13 +\font\musixadfsixteen=xadf16 +\font\musixadftwenty=xadf20 +\font\musixadftwentyfour=xadf24 +\font\musixadftwentynine=xadf29 +% +\let\comput@fonts@org=\comput@fonts\relax +\def\comput@fonts{% + \comput@fonts@org + \ifnum\musicsize=\sixt@@n + \let\musixadfLargefont\musixadftwentyfour + \let\musixadflargefont\musixadftwenty + \let\musixadfnorfont\musixadfsixteen + \let\musixadfsmallfont\musixadfthirteen + \let\musixadftinyfont\musixadfeleven + \else\ifnum\musicsize=\@xxiv + \let\musixadfLargefont\musixadftwentynine + \let\musixadflargefont\musixadftwentynine + \let\musixadfnorfont\musixadftwentyfour + \let\musixadfsmallfont\musixadftwenty + \let\musixadftinyfont\musixadfsixteen + \else\ifnum\musicsize=\@xxix + \let\musixadfLargefont\musixadftwentynine + \let\musixadflargefont\musixadftwentynine + \let\musixadfnorfont\musixadftwentynine + \let\musixadfsmallfont\musixadftwentyfour + \let\musixadftinyfont\musixadftwenty + \else + \musicsize\tw@nty + \let\musixadfLargefont\musixadftwentynine + \let\musixadflargefont\musixadftwentyfour + \let\musixadfnorfont\musixadftwenty + \let\musixadfsmallfont\musixadfsixteen + \let\musixadftinyfont\musixadfthirteen + \fi\fi\fi +}% +% +\let\set@Largenotesize@org=\set@Largenotesize\relax +\let\set@largenotesize@org=\set@largenotesize\relax +\let\set@normalnotesize@org=\set@normalnotesize\relax +\let\set@smallnotesize@org=\set@smallnotesize\relax +\let\set@tinynotesize@org=\set@tinynotesize\relax +% +\def\set@Largenotesize{% + \set@Largenotesize@org\let\musixadfont\musixadfLargefont}% +\def\set@largenotesize{% + \set@largenotesize@org\let\musixadfont\musixadflargefont}% +\def\set@normalnotesize{% + \set@normalnotesize@org\let\musixadfont\musixadfnorfont}% +\def\set@smallnotesize{% + \set@smallnotesize@org\let\musixadfont\musixadfsmallfont}% +\def\set@tinynotesize{% + \set@tinynotesize@org\let\musixadfont\musixadftinyfont}% +% +\def\musixadfchar{\musixadfont\char}% +% +\def\uacc@Char@adf#1{\check@staff + \inhgetn@i#1\relax \relax + \ifnum\n@i<\@ight \ifodd\n@i \else\advance\n@i\@ne \fi \fi + \zchar\n@i\C@ChaR@adf + \fi}% +% +\def\lacc@Char@adf#1{\check@staff + \inhgetn@i#1\relax \relax + \ifnum\n@i>\@ne \ifodd\n@i \else\advance\n@i\m@ne \fi \fi + \zchar\n@i\C@ChaR@adf + \fi}% +\def\C@ChaR@adf{\musixadfont\char\n@iv}% +% +\def\@Char@adf#1{\zcharnote{#1}\C@ChaR@adf}% +% +% coda sign with serif +% +% ___ +% | +% /~|~\ +% |-+--+--+-| +% \_|_/ +% | +% ~~~ +% +%\def\scoda{\musixadfchar85\relax}% +\def\adfC@coda#1{\llap{\@Char@adf{#1}\kern\afterruleskip}}% +\def\scoda{\n@iv85\adfC@coda}% +\def\replacecoda{\let\coda=\scoda}% +% +% +% +% upright segno +% +%\def\upsegno{\musixadfchar86\relax}% +\def\upsegno{\n@iv86\@Char@adf}% +\def\replacesegno{\let\segno=\upsegno}% +% +% +% little swell ...something like <> +% +% lower +\def\llsw{\n@iv31\lacc@Char@adf} +% upper +\def\ulsw{\n@iv30\uacc@Char@adf}% +% +% +% a little larger sforzato +% +\def\uSfz{\n@iv\tw@nty \uacc@Char@adf} +\def\lSfz{\n@iv21\lacc@Char@adf} +\def\dSfz{\lSfz} +\def\replacesforzato{% + \let\usfz=\uSfz\relax + \let\lsfz=\lSfz\relax +}% +% +% +% v-breath +% +\def\zuBreath{\check@staff\raise\@ight\internote\rlap{\n@iv33\C@ChaR@adf}\fi}% +\def\cuBreath{\check@staff\adv@box{\raise\@ight\internote + \hbox\@to\noteskip{\hss\n@iv33\C@ChaR@adf\hss}}\fi}% +\def\zlBreath{\check@staff\raise0\internote\rlap{\n@iv34\C@ChaR@adf}\fi}% +\def\clBreath{\check@staff\adv@box{\raise0\internote + \hbox\@to\noteskip{\hss\n@iv34\C@ChaR@adf\hss}}\fi}% +% +\catcode`\@=\catcodeat +\endinput |