% % 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