summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/tex/generic/musixtex/musixmad.tex
diff options
context:
space:
mode:
Diffstat (limited to 'Master/texmf-dist/tex/generic/musixtex/musixmad.tex')
-rw-r--r--Master/texmf-dist/tex/generic/musixtex/musixmad.tex149
1 files changed, 149 insertions, 0 deletions
diff --git a/Master/texmf-dist/tex/generic/musixtex/musixmad.tex b/Master/texmf-dist/tex/generic/musixtex/musixmad.tex
new file mode 100644
index 00000000000..850597a269d
--- /dev/null
+++ b/Master/texmf-dist/tex/generic/musixtex/musixmad.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\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