summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/tex/generic/musixtex/musixadd.tex
diff options
context:
space:
mode:
Diffstat (limited to 'Master/texmf-dist/tex/generic/musixtex/musixadd.tex')
-rw-r--r--Master/texmf-dist/tex/generic/musixtex/musixadd.tex149
1 files changed, 149 insertions, 0 deletions
diff --git a/Master/texmf-dist/tex/generic/musixtex/musixadd.tex b/Master/texmf-dist/tex/generic/musixtex/musixadd.tex
new file mode 100644
index 00000000000..a899905acac
--- /dev/null
+++ b/Master/texmf-dist/tex/generic/musixtex/musixadd.tex
@@ -0,0 +1,149 @@
+%
+% This file is part of MusiXTeX
+%
+% MusiXTeX is free software; you can redistribute it and/or modify
+% it under the terms of the GNU General Public License as published by
+% the Free Software Foundation; either version 2, or (at your option)
+% any later version.
+%
+% MusiXTeX is distributed in the hope that it will be useful,
+% but WITHOUT ANY WARRANTY; without even the implied warranty of
+% MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
+% GNU General Public License for more details.
+%
+% You should have received a copy of the GNU General Public License
+% along with MusiXTeX; see the file COPYING. If not, write to
+% the Free Software Foundation, Inc., 59 Temple Place - Suite 330,
+% Boston, MA 02111-1307, USA.
+%
+\ifx\staffspacingix\undefined\else\endinput\fi
+
+\immediate\write10{MusiXADDitional instruments T.99\space<24 March 2000>}%
+
+\edef\catcodeat{\the\catcode`\@}\catcode`\@=11
+
+\let\@wloG\wlog
+\def\wlog#1{}
+
+\let\maxinstruments\nin@
+
+\let\interinstrumentvii\interinstrument
+\let\interinstrumentviii\interinstrument
+\let\interinstrumentix\interinstrument
+
+\let\T@Rvii\z@
+\let\T@Rviii\z@
+\let\T@Rix\z@
+
+\let\staffspacingvii\@ne
+\let\staffspacingviii\@ne
+\let\staffspacingix\@ne
+
+\newskip\k@ivii
+\newskip\k@iviii
+\newskip\k@iix
+
+\newskip\i@nvii
+\newskip\i@nviii
+\newskip\i@nix
+
+\newskip\b@xvii \newskip\b@zvii
+\newskip\b@xviii\newskip\b@zviii
+\newskip\b@xix \newskip\b@zix
+
+\newskip\c@xvii \newskip\c@zvii
+\newskip\c@xviii\newskip\c@zviii
+\newskip\c@xix \newskip\c@zix
+
+\newskip\d@xvii \newskip\d@zvii
+\newskip\d@xviii\newskip\d@zviii
+\newskip\d@xix \newskip\d@zix
+
+\newskip\e@xvii \newskip\e@zvii
+\newskip\e@xviii\newskip\e@zviii
+\newskip\e@xix \newskip\e@zix
+
+\newcount\b@pvii \newcount\b@nvii
+\newcount\b@pviii\newcount\b@nviii
+\newcount\b@pix \newcount\b@nix
+
+\newcount\n@pvii \n@pvii\@ne
+\newcount\n@pviii\n@pviii\@ne
+\newcount\n@pix \n@pix\@ne
+
+\newskip\s@xvii
+\newskip\s@xviii
+\newskip\s@xix
+\newskip\s@Yvii
+\newskip\s@Yviii
+\newskip\s@Yix
+\newskip\s@avii
+\newskip\s@aviii
+\newskip\s@aix
+\newtoks\s@svii \s@svii={x}
+\newtoks\s@sviii\s@sviii={x}
+\newtoks\s@six \s@six={x}
+\newcount\s@yvii
+\newcount\s@yviii
+\newcount\s@yix
+\newcount\s@Nvii
+\newcount\s@Nviii
+\newcount\s@Nix
+\newcount\s@zvii \s@zvii\maxdimen
+\newcount\s@zviii\s@zviii\maxdimen
+\newcount\s@zix \s@zix\maxdimen
+\newtoks\s@dvii
+\newtoks\s@dviii
+\newtoks\s@dix
+
+\newcount\a@svii \newcount\o@svii
+\newcount\a@sviii\newcount\o@sviii
+\newcount\a@six \newcount\o@six
+
+\newtoks\a@cvii \a@cvii={{\z@}{\z@}{\z@}{\z@}}
+\newtoks\a@cviii \a@cviii={{\z@}{\z@}{\z@}{\z@}}
+\newtoks\a@cix \a@cix={{\z@}{\z@}{\z@}{\z@}}
+
+\newtoks\o@cvii
+\newtoks\o@cviii
+\newtoks\o@cix
+
+\newtoks\m@tvii
+\newtoks\m@tviii
+\newtoks\m@tix
+
+\def\resetlayout{\let\interfacteur\nin@
+ \stafftopmarg\thr@@\Interligne \staffbotmarg\thr@@\Interligne
+ \let\n@li\fiv@ \let\n@lii\fiv@ \let\n@liii\fiv@
+ \let\n@liv\fiv@ \let\n@lv\fiv@ \let\n@lvi\fiv@
+ \let\n@lvii\fiv@ \let\n@lviii\fiv@ \let\n@lix\fiv@
+ \resetclefsymbols}
+
+\def\resetclefsymbols{%
+ \let\bassc@si\z@ \let\bassc@sii\z@ \let\bassc@siii\z@ \let\bassc@siv\z@
+ \let\bassc@sv\z@ \let\bassc@svi\z@ \let\bassc@svii\z@ \let\bassc@sviii\z@ \let\bassc@six\z@
+ \let\altoc@si\z@ \let\altoc@sii\z@ \let\altoc@siii\z@ \let\altoc@siv\z@
+ \let\altoc@sv\z@ \let\altoc@svi\z@ \let\altoc@svii\z@ \let\altoc@sviii\z@ \let\altoc@six\z@
+ \let\treblec@si\z@ \let\treblec@sii\z@ \let\treblec@siii\z@ \let\treblec@siv\z@
+ \let\treblec@sv\z@ \let\treblec@svi\z@ \let\treblec@svii\z@ \let\treblec@sviii\z@ \let\treblec@six\z@
+}
+
+% allow one morz gourp of instruments.
+
+\let\maxgroups\f@ur % maximum three groups of instruments or choirs
+
+\newskip\g@biv
+\newskip\g@hiv
+
+\let\lowersonginstrumiv\maxdimen
+\let\uppersonginstrumiv\z@
+
+
+\let\nbinstruments\maxinstruments
+\normalnotesize\resetlayout
+\let\nbinstruments\@ne
+
+\let\wlog\@wloG
+
+\catcode`\@=\catcodeat
+\endinput