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