%
%   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\staffspacingxii\undefined\else\endinput\fi

\edef\catcodeat{\the\catcode`\@}\catcode`\@=11

\ifnum\maxinstruments<\nin@ \input musixadd \fi

\immediate\write10{MusiXMore ADditional instruments T.99\space<24 March 2000>}%

%\ifx\undefined\documentstyle \else
%  \errmessage{MusiXMAD+LaTeX will need too many dimension registers, it's
%better to stop with 'x'}\fi

\let\@wloG\wlog
\def\wlog#1{}

\let\maxinstruments\tw@lv@

\let\interinstrumentx\interinstrument
\let\interinstrumentxi\interinstrument
\let\interinstrumentxii\interinstrument

\let\T@Rx\z@
\let\T@Rxi\z@
\let\T@Rxii\z@

\let\staffspacingx\@ne
\let\staffspacingxi\@ne
\let\staffspacingxii\@ne

\newskip\k@ix
\newskip\k@ixi
\newskip\k@ixii

\newskip\i@nx
\newskip\i@nxi
\newskip\i@nxii

\newskip\b@xx  \newskip\b@zx
\newskip\b@xxi \newskip\b@zxi
\newskip\b@xxii\newskip\b@zxii

\newskip\c@xx  \newskip\c@zx
\newskip\c@xxi \newskip\c@zxi
\newskip\c@xxii\newskip\c@zxii

\newskip\d@xx  \newskip\d@zx
\newskip\d@xxi \newskip\d@zxi
\newskip\d@xxii\newskip\d@zxii

\newskip\e@xx  \newskip\e@zx
\newskip\e@xxi \newskip\e@zxi
\newskip\e@xxii\newskip\e@zxii

\newcount\b@px  \newcount\b@nx
\newcount\b@pxi \newcount\b@nxi
\newcount\b@pxii\newcount\b@nxii

\newcount\n@px  \n@px\@ne
\newcount\n@pxi \n@pxi\@ne
\newcount\n@pxii\n@pxii\@ne

\newskip\s@xx
\newskip\s@xxi
\newskip\s@xxii
\newskip\s@Yx
\newskip\s@Yxi
\newskip\s@Yxii
\newskip\s@ax
\newskip\s@axi
\newskip\s@axii
\newtoks\s@sx  \s@sx={x}
\newtoks\s@sxi \s@sxi={x}
\newtoks\s@sxii\s@sxii={x}
\newcount\s@yx
\newcount\s@yxi
\newcount\s@yxii
\newcount\s@Nx
\newcount\s@Nxi
\newcount\s@Nxii
\newcount\s@zx  \s@zx\maxdimen
\newcount\s@zxi \s@zxi\maxdimen
\newcount\s@zxii\s@zxii\maxdimen
\newtoks\s@dx
\newtoks\s@dxi
\newtoks\s@dxii

\newcount\a@sx  \newcount\o@sx
\newcount\a@sxi \newcount\o@sxi
\newcount\a@sxii\newcount\o@sxii

\newtoks\a@cx   \a@cx={{\z@}{\z@}{\z@}{\z@}}
\newtoks\a@cxi  \a@cxi={{\z@}{\z@}{\z@}{\z@}}
\newtoks\a@cxii \a@cxii={{\z@}{\z@}{\z@}{\z@}}

\newtoks\o@cx
\newtoks\o@cxi
\newtoks\o@cxii

\newtoks\m@tx
\newtoks\m@txi
\newtoks\m@txii

\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@
  \let\n@lx\fiv@ \let\n@lxi\fiv@ \let\n@lxii\fiv@
  \resetclefsymbols}

\def\resetclefsymbols{%
  \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@
  \let\treblec@sx\z@ \let\treblec@sxi\z@ \let\treblec@sxii\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\altoc@sx\z@ \let\altoc@sxi\z@ \let\altoc@sxii\z@
  \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\bassc@sx\z@ \let\bassc@sxi\z@ \let\bassc@sxii\z@
}

\let\nbinstruments\maxinstruments
\normalnotesize\resetlayout
\let\nbinstruments\@ne

\let\wlog\@wloG

\catcode`\@=\catcodeat
\endinput
