diff options
Diffstat (limited to 'Master/texmf-dist/tex/generic/musixtex/musixadd.tex')
| -rw-r--r-- | Master/texmf-dist/tex/generic/musixtex/musixadd.tex | 149 |
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 |