> Date: Thu, 22 Jun 2000 16:11:36 +0200
> From: Christian Mondrup <[EMAIL PROTECTED]>
> I like the idea of "insert text" very much. However it should be
me too :-)
> separate from the D command because the \ppff font would not be what you
> want for performance indications like those quoted. For those you would
> most often use a "non-bold" italic or slanted font.
I use \medtype\it for \normalmusicsize and \normtype\it for
\smallmusicsize.
Concerning the original problem I do not use \zcharnote with some
letter as pitch because this is dependent on the clef. Instead I
use numbers e.g. \zcharnote{-5} or \zcharnote{13}. In reality I
have two macros \text and \Text. They are defined so that \text0
is immediately below the current staff and \Text0 is immediately
above the current staff. The bigger the first parameter the lower
or higher the text is positioned. For details see mymusic.tex which
is part of any of my sources on http://www.gmd.de/Misc/Music/scores/
Concerning hairpins one problem is that MusiXTeX only provides hairpins
up to a very limited length. In addition there is no automatic line
breaking as it is for e.g. slurs or "octlines". I do not use \icresc
\tcresc because there is only one such thing for all instruments (if
I understood the feature correctly). Instead I use the "symbols" with
the length parameter in combination with the text-macros mentioned above.
There I detected that the cresc- and decresc symbols are positioned a
little bit higher than normal text. So following is standard for me:
\text2{\pp}\text1{\cresc...}
Within PMX I use \elemskip as unit for length because this is stable
for different linebreakings. So I have typical macros:
\def\cresc#1#2{\text{#1}{\crescendo{#2\elemskip}}}
\def\crescs#1#2{\ifnum\nbinstruments>1\text{#1}{\crescendo{#2\elemskip}}\fi}
\def\crescp#1#2{\ifnum\nbinstruments=1\text{#1}{\crescendo{#2\elemskip}}\fi}
\def\crescsp#1#2#3{\ifnum\nbinstruments>1\text{#1}{\crescendo{#2\elemskip}}
\else\text{#1}{\crescendo{#3\elemskip}}\fi}
\def\Cresc#1#2{\Text{#1}{\crescendo{#2\elemskip}}}
...
defining a crescendo hairpin of lenght #2\elemskip which is #1\noteskip
below the staff; a crescendo only in the score; only in the part; in
score with length #2, in the part with length #3; above the staff ...
As time goes by I got a good feeling what length specification is
neccessary. Otherwise you need some iterations.
I hope it disturbs nobody if I append two hacks I use for all
composition "(mymusix.tex") and that ("irpmx.tex") I use for the
compositions by Heinz Irsen which can be found on my sheet music
archive. Within the years they have grown and demonstrate my limited
TeX-knowledge :-)
-- Werner
\ifx\undefined\nofs \else \endinput \fi
\immediate\write10{MyMusiX(c) \mxversion\space<\mxdate>}%
\tracingstats=1
\edef\catcodeat{\the\catcode`\@}\catcode`\@=11
\newcount\nick@i
\ifx\undefined\sevenrm
\iflongDCfontnames
\font\sevenrm=\fontid r0700
\font\sevenbf=\fontid bx0700
\font\sevenit=\fontid ti0700
\else\iflongECfontnames
\font\sevenrm=\fontid rm0700
\font\sevenbf=\fontid bx0700
\font\sevenit=\fontid ti0700
\else
\font\sevenrm=\fontid r7
\font\sevenbf=\fontid bx7
\font\sevenit=\fontid ti7
\fi
\fi
\fi
% Fingers�tze �ber (\FS) oder unter (\fS) dem System
% auch mit Tonh�henangabe \Fs, \fs
% ohne \kern aktueller Zeichensatz f�r Musikzeichen wie z.B. \upbow: \FSn \fSn \Fsn
\fsn
%
% Transposition etc. dringt nicht nach au�en, damit das Verhalten bei
% \yesfs und \nofs gleichbleibt; dasselbe gilt f�r durch \isfs und
% \isnotfs eingeschlossene Sequenzen. \isFS und \isnotFS hingegen lassen
% alles nach au�en heraus.
%
\newif\iffinger
\newdimen\fingerkern
% das m��te wohl auch einfacher gehen (? \uplap}
\def\vbox@u#1#2#3#4#5+{\setbox\toks@box\vbox to 3\internote{\baselineskip
3\internote\hbox{#1}\vss}%
\if #2\relax \else\setbox\toks@box\vbox to 6\internote{\baselineskip
3\internote\hbox{#2}\hbox{#1}\vss}\fi
\if #3\relax \else\setbox\toks@box\vbox to 9\internote{\baselineskip
3\internote\hbox{#3}\hbox{#2}\hbox{#1}\vss}\fi
\if #4\relax \else\setbox\toks@box\vbox to 12\internote{\baselineskip
3\internote\hbox{#4}\hbox{#3}\hbox{#2}\hbox{#1}\vss}\fi
\raise 2\internote\vbox{\unvbox\toks@box}%
}%
\def\vbox@l#1#2#3#4#5+{\nick@i4
\if #2\relax\else\nick@i7\fi
\if #3\relax\else\nick@i10\fi
\if #4\relax\else\nick@i13\fi
\setbox\toks@box\vbox{\baselineskip 3\internote\hbox{#4}\hbox{#3}\hbox{#2}\hbox{#1}}%
\lower \nick@i\internote\vbox{\unvbox\toks@box}%
}%
\def\Fu#1#2{\iffinger%
{\zcharnote{#2}%
{\fingerfont\kern 0.5\qn@width\kern \fingerkern%
\t@c{#1\relax\relax\relax}\expandafter\expandafter\expandafter{\expandafter\vbox@u\the\t@c+}%
}}\fi}%
\def\FU#1{\Fu{#1}7}
\def\Fl#1#2{\iffinger%
{\zcharnote{#2}%
{\fingerfont\kern 0.5\qn@width\kern \fingerkern%
\t@c{#1\relax\relax\relax}\expandafter\expandafter\expandafter{\expandafter\vbox@l\the\t@c+}%
}}\fi}%
\def\FL#1{\Fl{#1}1}
\def\isfs#1{\iffinger {#1}\fi}
\def\isFS#1{\iffinger #1\fi}
\def\isnotfs#1{\iffinger\else {#1}\fi}
\def\isnotFS#1{\iffinger\else #1\fi}
\def\computefingerfont{\let\fingerfont\undefinded
\ifnum\musicsize=\sixt@@n \let\fingerfont\sevenbf
% \else\ifnum\musicsize=\@xxiv \let\fingerfont\tenbf
% \else\ifnum\musicsize=\@xxix \let\fingerfont\twelvebf
% \else\ifnum\musicsize=\tw@nty \let\fingerfont\eightbf
\else\ifnum\musicsize=\@xxiv \def\fingerfont{\normtype\bf}%
\else\ifnum\musicsize=\@xxix \def\fingerfont{\medtype\bf}%
\else\ifnum\musicsize=\tw@nty \def\fingerfont{\smalltype\bf}%
\fi\fi\fi\fi
\setbox0\hbox{\fingerfont 1}\fingerkern-0.5\wd0%\advance\fingerkern0.5\qn@width
}%
% Fingers�tze AUS:
\def\nofs{%
\global\def\Fs##1##2{}\global\def\fs##1##2{}
\global\def\Fsn##1##2{}\global\def\fsn##1##2{}
%\global\def\isfs##1{}\global\def\isFS##1{}
%\global\def\isnotfs##1{{##1}}\global\def\isnotFS##1{##1}
\global\fingerfalse}
% Fingers�tze EIN:
\def\yesfs{
\global\def\Fs##1##2{{\advance\transpose by 2\zcharnote{##2}{\kern 0.75pt
\hbox{\smalltype\bf ##1}}}}
\global\def\FS##1{{\Fs{##1}9}}
\global\def\fs##1##2{{\advance\transpose by -4\zcharnote{##2}{\kern 0.75pt
\hbox{\smalltype\bf ##1}}}}
\global\def\fS##1{{\fs{##1}{-3}}}
\global\def\Fsn##1##2{{\advance\transpose by 2\zcharnote{##2}{##1}}}
\global\def\FSn##1{{\Fsn{##1}9}}
\global\def\fsn##1##2{{\advance\transpose by -4\zcharnote{##2}{##1}}}
\global\def\fSn##1{{\fsn{##1}{-3}}}
%\global\def\isfs##1{{##1}}\global\def\isFS##1{##1}
%\global\def\isnotfs##1{}\global\def\isnotFS##1{}
\global\fingertrue\computefingerfont}
\yesfs
% F�r Streicher: Aufstrich, Abstrich
%
% jetzt als \input musixstr
%
\def\AB{\hbox{\lower 1.5pt \hbox{\downbow}}}
\def\AUF{\hbox{\lower 1.5pt \hbox{\upbow}}}
\def\Ab{\vbox{\hbox{\kern -0.10\qn@width \downbow}\kern -0.8\internote}}
\def\Auf{\vbox{\hbox{\kern -0.10\qn@width \upbow}\kern -0.7\internote}}
\def\TR#1{\zcharnote{#1}{\it tr}}%
\def\hold#1{\raise \Internote \vbox{\hrule width #1\noteskip}}
% Texte relativ �ber oder unter dem Notensystem \Text{n}{...} \text{n}{...}
% (n = 0, 1, ...)
%\def\Text#1#2{\nick@i#1\advance\nick@i\@ight\raise\nick@i\internote\rlap{#2}}
%\def\text#1#2{\nick@i#1\advance\nick@i\thr@@\lower\nick@i\internote\rlap{#2}}
\def\Text#1#2{\raise 8\internote\hbox{\raise #1\internote\rlap{#2}}}
\def\text#1#2{\lower 3\internote\hbox{\lower #1\internote\rlap{#2}}}
\let\forte\f
\let\fforte\ff
\let\ffforte\fff
\let\fffforte\ffff
\let\piano\p
\let\ppiano\pp
\let\pppiano\ppp
\let\ppppiano\pppp
\let\mforte\mf
\let\mpiano\mp@
\def\sforzato{{\ppff s\p@kern\f@kern\forte}}%
% Platz f�r Vorzeichen innerhalb von \notes, wenn man \bigaccid verwenden
% m�chte; \bigaccid ... \notes\ibbu0d3\qb0{d}\ask\qb0{e^f}\tqh0g\enotes
%\def\ask{\off{0.35\noteskip}} % space for accidental during \notes
%\def\ask{\off{0.6\qn@width}}
%\def\ask{\off{0.5\elemskip}}
% und dies und anderes auch r�ckw�rts
%\def\asK{\off{-0.5\elemskip}}
\def\qsk{\off{1\qn@width}}\def\qsK{\off{-1\qn@width}}
\def\Qsk#1{\off{0.#1\qn@width}}\def\QsK#1{\off{-0.#1\qn@width}}
\def\sK{\off{-1\noteskip}}
\def\Sk#1{\off{0.#1\noteskip}}\def\SK#1{\off{-0.#1\noteskip}}
\def\Bsk#1{\off{-#1\noteskip}}
\def\ek{\off{1\elemskip}}\def\eK{\off{-1\elemskip}}
\def\Ek#1{\off{0.#1\elemskip}}\def\EK#1{\off{-0.#1\elemskip}}
\def\ask{\Ek5}\def\asK{\EK5}
%\def\hsK{\off{-1\hn@width}}
\let\hsK\qsK
% "dotted" slurs
%-\def\blur#1#2#3#4{\slur{#1}{#2}#3#4}
%-\def\blur#1#2#3#4{%
%- \if #3u\raise 1.5\Internote\hbox{\loffset{0.4}{\zcharnote{#1}{\fiverm (}}%
%- \off{#4\noteskip}\roffset{1.0}{\zcharnote{#2}{\fiverm
)}}\off{-#4\noteskip}}%
%- \else\raise -2.5\Internote\hbox{\loffset{0.4}{\zcharnote{#1}{\fiverm (}}%
%- \off{#4\noteskip}\roffset{1.0}{\zcharnote{#2}{\fiverm
)}}\off{-#4\noteskip}}%
%- \fi\slur{#1}{#2}#3{#4}}
%-
%-\def\ibluru#1#2{%
%- \raise 1.5\Internote\hbox{\loffset{0.4}{\zcharnote{#2}{\fiverm (}}}%
%- \isluru{#1}{#2}}
%-
%-\def\iblurd#1#2{%
%- \raise -2.5\Internote\hbox{\loffset{0.4}{\zcharnote{#2}{\fiverm (}}}%
%- \islurd{#1}{#2}}
%-
%-\def\tblur#1#2{\s@l@ctslur#1\relax \def\@sense{\the\s@s}%
%- \if u\@sense
%- \raise 1.5\Internote\hbox{\roffset{1.0}{\zcharnote{#2}{\fiverm )}}}%
%- \else\raise -2.5\Internote\hbox{\roffset{1.0}{\zcharnote{#2}{\fiverm )}}}%
%- \fi\tslur{#1}{#2}}
% raiseable pauses
\def\Hp#1{\raise #1\Interligne\hp}
\def\Qp#1{\raise #1\Interligne\qp}
\def\Ds#1{\raise #1\Interligne\ds}
\def\Qs#1{\raise #1\Interligne\qs}
% oct-line without ending
\def\octlineup{\n@v\@xxiii\C@ol}
\def\octlinedown{\n@v\@xxv\C@ol}
\def\C@ol#1#2{\y@v#2\noteskip\zcharnote{#1}{\hbox\@to\y@v{%
\octnumber\mxsps\xleaders\hbox{\char\n@v}\hfill\raise 3pt\hbox{\dots}}}}
% \octnumber\mxsps\xleaders\hbox{\char\n@v}\hfill\char\n@v}}}
% short chord stems & normal stems
\def\chordstems{\stemlength{3.5}}\def\normalstems{\stemlength{4.66}}
\def\barmessages{\let\no@b\empty}
\def\linemessages{\let\no@l\empty}
% Ak�
%\newcount\nick@i
\def\ttqb#1#2{\nick@i\transpose\tslur{#1}{#2}\transpose\nick@i\tqb{#1}{#2}}
\def\ttqh#1#2{\nick@i\transpose\tslur{#1}{#2}\transpose\nick@i\tqh{#1}{#2}}
\def\qap#1{\nick@i\transpose\pt{#1}\transpose\nick@i\qa{#1}}
\def\hap#1{\nick@i\transpose\pt{#1}\transpose\nick@i\ha{#1}}
% small and tiny chord notes and non-spacing notes in combination with normal notes
\def\szq#1{\off{\qn@width}\smallnotesize\off{-\qn@width}\zq{#1}\off{\qn@width}\normalnotesize\off{-\qn@width}}
\def\szqp#1{\off{\qn@width}\smallnotesize\off{-\qn@width}\zqp{#1}\off{\qn@width}\normalnotesize\off{-\qn@width}}
\def\szh#1{\off{\qn@width}\smallnotesize\off{-\qn@width}\zh{#1}\off{\qn@width}\normalnotesize\off{-\qn@width}}
%\def\szhp#1{\off{\qn@width}\smallnotesize\off{-\qn@width}\zhp{#1}\off{\qn@width}\normalnotesize\off{-\qn@width}}
\def\tzq#1{\off{\qn@width}\tinynotesize\off{-\qn@width}\zq{#1}\off{\qn@width}\normalnotesize\off{-\qn@width}}
\def\tzqp#1{\off{\qn@width}\tinynotesize\off{-\qn@width}\zqp{#1}\off{\qn@width}\normalnotesize\off{-\qn@width}}
\def\tzh#1{\off{\qn@width}\tinynotesize\off{-\qn@width}\zh{#1}\off{\qn@width}\normalnotesize\off{-\qn@width}}
%\def\tzhp#1{\off{\qn@width}\tinynotesize\off{-\qn@width}\zhp{#1}\off{\qn@width}\normalnotesize\off{-\qn@width}}
\def\tzcu#1{\off{\qn@width}\tinynotesize\off{-\qn@width}\zcu{#1}\off{\qn@width}\normalnotesize\off{-\qn@width}}
\def\tzqu#1{\off{\qn@width}\tinynotesize\off{-\qn@width}\zqu{#1}\off{\qn@width}\normalnotesize\off{-\qn@width}}
\def\tzqup#1{\off{\qn@width}\tinynotesize\off{-\qn@width}\zqup{#1}\off{\qn@width}\normalnotesize\off{-\qn@width}}
\def\Takt#1{\bar}\def\takt#1{\xbar}
\let\ni\nextinstrument
\def\myfootline#1{%
\def\crtextde{Nicht-kommerzielle Vervielf\"altigung erw\"unscht.}%
\def\crtexten{Non-commercial copying welcome.}%
\def\cryear{#1}\setfootline}
\def\draftfootline#1{%
\def\crtextde{Entwurf (\number\year\number\month\number\day\the\time) -- Bitte nicht
weitergeben.}%
\def\crtexten{Draft (\number\year\number\month\number\day\the\time) -- please don't
distribute.}%
\def\cryear{#1}\setfootline}
\def\snailaddr{Werner Icking, D-53721 Siegburg, Farnweg 28}
\def\mailaddr{[EMAIL PROTECTED]}
\def\httpURL{http://www.gmd.de/Misc/Music/}
\def\ftpURL{ftp://ftp.gmd.de/music/scores/}
\def\setfootline{\footline={\ifodd\pageno%
{\rlap{\sevenrm\copyright~\cryear, \snailaddr}%
\hfill\folio\hfill
\llap{\sevenrm\crtextde}}%
\else
{\rlap{\sevenrm\copyright~\cryear, \mailaddr}%
\hfill\folio\hfill
\llap{\sevenrm\crtexten}}%
\fi}}
\def\emptypage{\centerline{This page intentionally left quiet.}\vfill\eject}
\def\oddempty{\ifodd\pageno\emptypage\fi}
\def\evenempty{\ifodd\pageno\relax\else\emptypage\fi}
\def\Metron#1#2{{\tinynotesize\stemlength3#1= #2}}% \Metron{\zqu1~~}{78}
% \Metron{\zqup1~~~}{\zqu1~~}
\newdimen\curlen
\def\getcurlen{\getcurpos\curlen\y@v
\advance\curlen\sign@skip
\advance\curlen\clef@skip
% \advance\curlen\s@indent
}
%---- �nderungen in MusixTeX fuer \writezbar ------------------------------
\def\barnotrue{\let\z@sw\empty}
\def\barnofalse{\let\z@sw\@ne}
%\def\barnumbers{\let\lin@bar\empty \let\freqbarno\normalstaff }
%\def\systemnumbers{\let\freqbarno\maxdimen \let\lin@bar\@ne }
%\def\nobarnumbers{\let\freqbarno\maxdimen \let\lin@bar\empty }
%\barnumbers
%\def\xbar{\gluebrule\global\advance\barno\@ne \barvrule\addspace\afterruleskip}%
%\def\zleftrightrepeat{\T@bil \leftrightrepeatsymbol%
% \else\rightrepeatsymbol\z@LeftRp\fi}
%\def\z@LeftRp{\addspace{-\afterruleskip}\zstoppiec@%
% \contpiece\addspace{\h@lf\afterruleskip}%
% \kern-\afterruleskip\l@eftrepeat\kern\afterruleskip}
\def\zleftrightrepeat{\global\advance\barno-1 \def\barnoadd{\writezbarno}%
\leftrightrepeat \def\barnoadd{\ifx\z@sw\@ne \writezbarno\fi}}
\def\zrightrepeat{\global\advance\barno-1 \def\barnoadd{\writezbarno}%
\rightrepeat \def\barnoadd{\ifx\z@sw\@ne \writezbarno\fi}}
\def\zleftrepeat{\global\advance\barno-1 \def\barnoadd{\writezbarno}%
\leftrepeat \def\barnoadd{\ifx\z@sw\@ne \writezbarno\fi}}
\def\ende{\Endpiece}
%-----Nachbesserungen
\let\startnewline\alaligne
\let\zstartnewline\zalaligne
\let\barnofont\undefinded
\ifnum\musicsize=\sixt@@n \let\barnofont\sevenbf
\else\ifnum\musicsize=\tw@nty \def\barnofont{\smalltype\bf}%
\else\ifnum\musicsize=\@xxiv \def\barnofont{\normtype\bf}%
\else\ifnum\musicsize=\@xxix \def\barnofont{\medtype\bf}%
\fi\fi\fi\fi
\def\mywritebarno{\ifnum\barno>1 \relax
\ifdim\clef@skip=\z@\relax \y@=16pt \else\y@\clef@skip\relax \fi
\hbox to \y@{\hss\barnofont\the\barno\barnoadd\hss}\fi}
\newcount\linenumber
\def\linenumbers{%
\def\lineset##1##2##3##4##5{\ifx\no@l\empty \message{<##1>}\fi
\linenumber##1%
\maxbarsinlin@##2%
\@l@mskip##3%
\elemskip\@l@mskip%
\afterruleskip##4%
\beforeruleskip##5}%
\def\everystaff{\znotes\lcharnote3{\the\linenumber~~~~~}\en}%
}%
%\def\voltadot{.}%
%\def\writ@volta{%
% \ifx\v@sw\@ne
% \y@v\lin@pos \advance\y@v-\i@v
% \global\advance\cut@v\lthick \advance\y@v-\cut@v \global\advance\cut@v\lthick
% \y@\altplancher \advance\y@\systemheight
% \advance\y@\raisevolta
%% \advance\y@\f@ur\internote
% % compute the height of the "volta" box
% \setbox\writ@volta@box\rlap{\ifx\ov@sw\empty
% \vrule % \musixfont\sixt@@n
% \fi
% \rm~\vphantom{\^{\tx@V}\strut gq}\tx@V\voltadot}%
% \xdef\thevolta@boxheight{\the\ht\writ@volta@box}%
% \xdef\thevolta@boxdepth{\the\dp\writ@volta@box}%
% \raise\y@\llap{%
% \copy\writ@volta@box
% \ifx\ov@sw\empty \let\ov@sw\@ne \fi
% \raise\thevolta@boxheight
%% \hbox{\vrule\@height\z@\@depth\lthick\@width\y@v\clos@volta}\kern\cut@v}%
% \hbox{\vrule\@height\z@\@depth\lthick\@width\y@v
% \clos@volta}\kern\cut@v}%
% \let\clos@volta\empty \global\cut@v\z@ \let\v@sw\empty \let\pv@sw\empty
% \fi}
% old spacings
\def\oldnormal{\elemskip=4\Internote \scale{1.00}%
\def\tnotes{\vnotes0.7\elemskip}% tiny notes, grace notes
\def\notes{\vnotes1.0\elemskip}% double croches
\def\notesp{\vnotes1.2\elemskip}%
\def\Notes{\vnotes1.4\elemskip}% croches
\def\Notesp{\vnotes1.7\elemskip}%
\def\NOtes{\vnotes2.0\elemskip}% croches pointees
\def\NOtesp{\vnotes2.4\elemskip}%
\def\NOTes{\vnotes2.8\elemskip}% noires
\def\NOTesp{\vnotes3.4\elemskip}%
\def\NOTEs{\vnotes4.0\elemskip}%
\def\NOTEsp{\vnotes4.8\elemskip}%
\def\NOTES{\vnotes5.6\elemskip}%
\def\NOTESp{\vnotes6.8\elemskip}}
\def\normal{\elemskip\tw@\fontdimen\si@\musicnorfont \scale{1.00}%
\def\tnotes{\vnotes0.7\elemskip}% tiny notes, grace notes
\def\notes{\vnotes1.0\elemskip}% double croches
\def\notesp{\vnotes1.19\elemskip}%
\def\Notes{\vnotes1.415\elemskip}% croches
\def\Notesp{\vnotes1.68\elemskip}%
\def\NOtes{\vnotes2.0\elemskip}% croches pointees
\def\NOtesp{\vnotes2.38\elemskip}%
\def\NOTes{\vnotes2.83\elemskip}% noires
\def\NOTesp{\vnotes3.36\elemskip}%
\def\NOTEs{\vnotes4.0\elemskip}%
\def\NOTEsp{\vnotes4.76\elemskip}%
\def\NOTES{\vnotes5.66\elemskip}%
\def\NOTESp{\vnotes6.72\elemskip}}
\def\gomberg{
\def\tnotes{\vnotes1\h@lf\elemskip}% tiny notes, grace notes
\arithmeticskipscale
\def\NOTEsp{\vnotes6\h@lf\elemskip}% 1th point
\def\NOTES{\vnotes7\elemskip}%
\def\NOTESp{\vnotes7\h@lf\elemskip}}
%-----Nachbesserungen
%\parskip 0pt plus5\Interligne minus\Interligne
\musicparskip
\def\resetbreakslur#1{\n@i#1\advance\n@i\@ne \global\csname s@z\roman@n@i\maxdimen}
\catcode`\@=\catcodeat
\ifx\undefined\large
\iflongDCfontnames
\font\large=\fontid r1700 scaled \magstep1
\font\Large=\fontid r1700 scaled \magstep2
\font\LArge=\fontid r1700 scaled \magstep3
\font\LARge=\fontid r1700 scaled \magstep4
\font\LARGe=\fontid r1700 scaled \magstep5
\else\iflongECfontnames
\font\large=\fontid rm1700 scaled \magstep1
\font\Large=\fontid rm1700 scaled \magstep2
\font\LArge=\fontid rm1700 scaled \magstep3
\font\LARge=\fontid rm1700 scaled \magstep4
\font\LARGe=\fontid rm1700 scaled \magstep5
\else
\font\large=\fontid r17 scaled \magstep1
\font\Large=\fontid r17 scaled \magstep2
\font\LArge=\fontid r17 scaled \magstep3
\font\LARge=\fontid r17 scaled \magstep4
\font\LARGe=\fontid r17 scaled \magstep5
\fi
\fi
\fi
\input mypmx
%
\hoffset=-15.4mm\voffset=-15.4mm
%
\def\irfootline{%
\let\snailaddr\mailaddr
\def\mailaddr{Heinz Irsen}%
\let\crtextensav\crtexten
\let\crtexten\crtextde
\let\crtextde\crtextensav}%
\let\myfootlinesav\myfootline
\let\draftfootlinesav\draftfootline
\def\myfootline#1{\myfootlinesav{#1}\irfootline}
\def\draftfootline#1{\draftfootlinesav{#1}\irfootline}
\let\writebarno\mywritebarno
\def\mycomposer#1{\mbf Heinz Irsen, #1}
%
\ifx\undefined\sevenit
\iflongDCfontnames \font\sevenit=\fontid ti0700
\else\iflongECfontnames\font\sevenit=\fontid ti0700
\else \font\sevenit=\fontid ti7\fi\fi\fi
\def\xnum#1#2#3{\off{#1\elemskip}%
\ifx\musixfont\musicsixteen\zcharnote{#2}{\sevenit #3}%
\else\zcharnote{#2}{\eightit #3}\fi\off{-#1\elemskip}}
%
\def\z{}
\def\pitch#1{\zcharnote{#1}{~}}
\def\tnz{\tinynotesize}
\def\nnz{\normalnotesize}
%
\def\mit{\medtype\it}
\def\mbf{\medtype\bf}
\def\mrm{\medtype\rm}
\def\mit{\ifnum\musicsize=16\normtype\it\else\medtype\it\fi}
\def\mbf{\ifnum\musicsize=16\normtype\bf\else\medtype\bf\fi}
\def\mrm{\ifnum\musicsize=16\normtype\rm\else\medtype\rm\fi}
\def\Sit{\Smalltype\it}
\let\nnz\normalnotesize
\let\snz\smallnotesize
%
\makeatletter
\def\Forte#1{\text{#1}{\forte}}
\def\piuF#1{\text{#1}{\mit pi\`u$\,$\forte}}
\def\Fff#1{\text{#1}{\kernm.5\qn@width\fff\kern.5\qn@width}}
\def\Ff#1{\text{#1}{\kernm.5\qn@width\ff\kern.5\qn@width}}
\def\Fp#1{\text{#1}{\kernm.5\qn@width\fp\kern.5\qn@width}}
\def\Pf#1{\text{#1}{\kernm.5\qn@width\piano\forte\kern.5\qn@width}}
\def\Pffp#1{\text{#1}{\kernm.5\qn@width\ifnum\nbinstruments>1\piano\forte\else\fp\fi\kern.5\qn@width}}
\def\Sf#1{\text{#1}{\kernm.5\qn@width\sF\kern.5\qn@width}}
\def\Sfz#1{\text{#1}{\kernm.5\qn@width\it s\ppff\p@kern f\f@kern z\kern.5\qn@width}}
\def\Piano#1{\text{#1}{\piano}}
\def\PIano#1{\Text{#1}{\piano}}
\def\Pp#1{\text{#1}{\kernm.5\qn@width\pp\kern.5\qn@width}}
\def\PP#1{\Text{#1}{\kernm.5\qn@width\pp\kern.5\qn@width}}
\def\Mp#1{\text{#1}{\kernm.5\qn@width\mp\kern.5\qn@width}}
\def\MP#1{\Text{#1}{\kernm.5\qn@width\mp\kern.5\qn@width}}
\def\Mf#1{\text{#1}{\kernm.5\qn@width\mf\kern.5\qn@width}}
\def\MF#1{\Text{#1}{\kernm.5\qn@width\mf\kern.5\qn@width}}
\makeatother
\def\rH{\Sit\kern1.3pt r}
\def\lH{\Sit\kern1.3pt l}
\def\ped#1{\def\raiseped{-#1}\sPED}
\def\dep#1{\def\raiseped{-#1}\sDEP}
%
\def\tobar#1{\off{-\afterruleskip}#1\off{\afterruleskip}}
\makeatletter
\def\tobarmeter#1{\off{-\meterskip}\tobar{#1}\off{\meterskip}}
\def\tobarmeter#1{\off{-10pt}\tobar{#1}\off{10pt}}
\makeatother
%
\def\a#1{\text{#1}{\mit a}}
\def\Allegretto#1{\Text{#1}{\mbf Allegretto}}
\def\Apocorall#1{\Text{#1}{\mit a poco rall.}}
\def\arco#1{\text{#1}{\mrm arco}}
\def\Arco#1{\Text{#1}{\mrm
arco}}\def\rArco#1{\roff{\Arco{#1}}}\def\rrrArco#1{\roffset3{\Arco{#1}}}
\def\atempo#1{\text{#1}{\mit a tempo}}
\def\Atempo#1{\Text{#1}{\mit a
tempo}}\def\rAtempo#1{\roff{\Atempo{#1}}}\def\rrAtempo#1{\roffset2{\Atempo{#1}}}\def\rrrAtempo#1{\roffset3{\Atempo{#1}}}
\def\Ausdrucksvollhervorheben#1{\Text{#1}{\mit ausdrucksvoll
hervorheben}}\def\rAusdrucksvollhervorheben#1{\roff{\Ausdrucksvollhervorheben{#1}}}
\def\ausdrucksvollhervorheben#1{\text{#1}{\mit ausdrucksvoll hervorheben}}
\def\barsegno{\sk\off{\beforeruleskip}\loffset{.4}{{\smallnotesize\segno9}}\off{-\beforeruleskip}\bsk}
\def\barcoda{\sk\off{\beforeruleskip}\off{\afterruleskip}\roffset{.1}{\coda9}\off{-\afterruleskip}\off{-\beforeruleskip}\bsk}
\def\Beleben#1{\Text#1{\mit beleben \dots}}
\def\Bewegter#1{\Text{#1}{\mbf Bewegter}}
\def\Bewegterstraff#1{\off{-\afterruleskip}\Text{#1}{\mbf Bewegter
(straff)}\off{\afterruleskip}}
\def\Breiter#1{\Text#1{\mit Breiter}}
\def\Breiterwerden#1{\Text#1{\mit Breiter werden}}
\def\Breiterwerdend#1{\Text#1{\mit Breiter werden \dots}}
\def\Codaruhiger#1{\Text{#1}{\bigtype Coda -- \mbf ruhiger}}
\def\crestring#1{\text{#1}{\mit cresc. e string.}}
\def\cresceaccell#1{\text{#1}{\mit cresc. ~ e ~ accell.}}
\def\Dblslsh#1{\loffset{#1}{\Text{-1}{\doubleslash}}}
\def\DCalc#1{\Text{#1}{\mrm D.C. al \kern 14pt\coda{-1}\kern-14pt}}
\def\dim#1{\text{#1}{\mit dim.}}
\def\dimerit#1{\text{#1}{\mit dim. e rit.}}
\def\eaccell#1{\text{#1}{\mit e ~ accell.}}
\def\Einleitendots#1{\Text{#1}{\mit einleiten \dots~\dots}}
\def\Einwenigruhiger#1{\Text#1{\mbf Ein wenig ruhiger}}
\def\Etwasbewegter#1{\Text{#1}{\mbf Etwas
bewegter}}\def\rEtwasbewegter#1{\roff{\Etwasbewegter{#1}}}\def\rrEtwasbewegter#1{\roffset2{\Etwasbewegter{#1}}}
\def\Etwasdrangen#1{\off{-\afterruleskip}\Text#1{\mit Etwas
dr\"angen}\off{\afterruleskip}}
\def\Etwaslangsamer#1{\Text#1{\mbf Etwas
langsamer}}\def\rEtwaslangsamer#1{\roff{\Etwaslangsamer{#1}}}\def\rrEtwaslangsamer#1{\roffset2{\Etwaslangsamer{#1}}}
\def\Etwaslangsamerimmerbreiterwerden#1{\Text#1{\mit Etwas langsamer, immer breiter
werden \dots}}
\def\Etwasruhigergesanglich#1{\off{-\afterruleskip}\Text#1{\mbf Etwas ruhiger
(gesanglich)}\off{\afterruleskip}}
\def\Etwasschneller#1{\Text#1{\mbf Etwas
schneller}}\def\rEtwasschneller#1{\roff{\Etwasschneller{#1}}}\def\rrEtwasschneller#1{\roffset2{\Etwasschneller{#1}}}\def\rrrEtwasschneller#1{\roffset3{\Etwasschneller{#1}}}
\def\Etwasschnellerbnunlw#1{\off{-\afterruleskip}\Text#1{\mit Etwas schneller
beginnen, nach und nach langsamer werden.}\off{\afterruleskip}}
\def\etwasschnellerbnunlw#1{\text#1{\mit Etwas schneller beginnen, nach und nach
langsamer werden.}}
\def\etwasschnellerbnunlwv#1{\text#1{\mit\vbox{\hbox{Etwas schneller beginnen,
nach}\hbox{und nach langsamer werden.}}}}
\def\Etwaswenigerlebhaft#1{\Text#1{\mbf Etwas weniger lebhaft}}
\def\Fermata{\sk\loffset{.5}{\fermataup7}\bsk}
\def\fermata{\sk\loffset{.5}{\fermatadown0}\bsk}
\def\Fine#1{\sk\Text{#1}{\llap{\mit Fine.}}\bsk}
\def\GP#1{\off{.4\noteskip}\Text{#1}{\mbf\lrlap{GP}}\off{-.4\noteskip}}
\def\ImIZeitmass#1{\Text{#1}{\mbf Im I.
Zeitma{\ss}}}\def\rImIZeitmass#1{\roff{\ImIZeitmass{#1}}}\def\rrImIZeitmass#1{\roffset2{\ImIZeitmass{#1}}}\def\rrrImIZeitmass#1{\roffset3{\ImIZeitmass{#1}}}
\def\Immerbreiterwerden#1{\Text#1{\mit immer breiter werden \dots}}
\def\Lebhaft#1{\Text{#1}{\mbf Lebhaft}}
\def\Lebhaftstraff#1{\Text{#1}{\mbf Lebhaft, straff}}
\def\Langsam#1{\Text{#1}{\mbf
Langsam}}\def\rLangsam#1{\roff{\Langsam{#1}}}\def\rrLangsam#1{\roffset2{\Langsam{#1}}}
\def\Langsamer#1{\Text{#1}{\mbf Langsamer}}
\def\Langsamerausdrucksvoll#1{\Text{#1}{\mbf Langsamer,
ausdrucksvoll}}\def\rLangsamerausdrucksvoll#1{\roff{\Langsamerausdrucksvoll{#1}}}
\def\Langsamundausdrucksvoll#1{\Text{#1}{\mbf Langsam und ausdrucksvoll}}
\def\Langsamundausdrucksvolls#1{\Text{#1}{\mbf\vbox{\hbox{Langsam}\hbox{~und
ausdrucksvoll}}}}
\def\lrarco#1{\text{#1}{\lrlap{\mrm arco}}}
\def\lrarcokl#1{\text{#1}{\lrlap{\mrm (arco)}}}
\def\lrArco#1{\Text{#1}{\lrlap{\mrm arco}}}
\def\lrArcokl#1{\Text{#1}{\lrlap{\mrm (arco)}}}
\def\lrpizz#1{\text{#1}{\lrlap{\mrm pizz.}}}
\def\lrpizzkl#1{\text{#1}{\lrlap{\mrm (pizz.)}}}
\def\lrPizz#1{\Text{#1}{\lrlap{\mrm pizz.}}}
\def\lrRit#1{\Text{#1}{\lrlap{\mit rit.}}}
\def\lmeno#1{\text{#1}{\llap{\mit meno~}}}
\def\molto#1{\text{#1}{\mit molto}}
\def\nonrit#1{\text{#1}{\mit (non rit.)}}
\def\Nachundnlw#1{\Text#1{\mit nach und nach langsamer werden.}}
\def\Nachundnbdnsswv#1{\Text#1{\mit nach und nach beleben \dots{} doch nicht so
schnell wie
vorher.}}\def\rNachundnbdnsswv#1{\roff{\Nachundnbdnsswv{#1}}}\def\rrNachundnbdnsswv#1{\roffset2{\Nachundnbdnsswv{#1}}}
\def\Nachundn#1{\Text#1{\mit nach und nach}}\def\rNachundn#1{\roff{\Nachundn{#1}}}
\def\Nlvsk#1{\gdef\atnextline{\parindent0pt\vskip #1\Interligne}}
\def\Bdnsswv#1{\Text#1{\mit beleben \dots doch nicht so schnell wie vorher.}}
\def\pizz#1{\text{#1}{\mrm pizz.}}
\def\pizzkl#1{\text{#1}{\mrm (pizz.)}}
\def\Pizz#1{\Text{#1}{\mrm pizz.}}
\def\poco#1{\text{#1}{\mit poco}}
\def\Poco#1{\Text{#1}{\mit poco}}
\def\Pocoapocorall#1{\Text{#1}{\mit poco a poco rall.}}
\def\pocoapococresceaccel#1{\text{#1}{\mit poco a poco cresc. e accel.}}
\def\pocoa#1{\text{#1}{\mit poco a}}
\def\pococresceaccel#1{\text{#1}{\mit poco cresc. e accel.}}
\def\pocodimerit#1{\text{#1}{\mit poco dim. e rit.}}
\def\Pocorit#1{\Text{#1}{\mit poco rit.}}
\def\Pocorits#1{\Text{#1}{\mit\vbox{\hbox{poco}\hbox{rit.}}}}
\def\Rit#1{\Text{#1}{\mit rit.}}
\def\rit#1{\text{#1}{\mit rit.}}
\def\Ruhigsingend#1{\Text{#1}{\mbf Ruhig,
singend}}\def\rRuhigsingend#1{\roff{\Ruhigsingend{#1}}}\def\rrRuhigsingend#1{\roffset2{\Ruhigsingend{#1}}}\def\rrrRuhigsingend#1{\roffset3{\Ruhigsingend{#1}}}
\def\scherzoDC#1{\text{#1}{\mrm\vbox{\hbox{Scherzo}\hbox{D.C. al~
{\smallnotesize\segno{-1}}}\hbox{dann Coda}}}}
\def\ScherzoSehrlebhaft#1{\Text{#1}{\bigtype Scherzo -- \mbf Sehr lebhaft}}
\def\Scherzoziemlichschnell#1{\Text{#1}{\bigtype Scherzo \mbf -- ziemlich schnell}}
\def\Sehrlebhaft#1{\Text{#1}{\mbf Sehr lebhaft}}
\def\Sehrlebhaft#1{\Text{#1}{\mbf Sehr lebhaft}}
\def\Sehrschnell#1{\Text{#1}{\mbf Sehr
schnell}}\def\rSehrschnell#1{\roff{\Sehrschnell{#1}}}
\def\sul#1#2#3{\gdef\octnumber{\raise 0\Interligne\hbox{\Smalltype sul
#3}}{\Ioctfinup{#1}{#2}}}
\def\lus#1{\hroff{\Toctfin{#1}}}
\def\Sul#1#2{\Text{#1}{\mrm sul #2 \mxsps\char 23~\char 23~\char 23~}}
\def\SuL#1{\roffset{1.5}{\Text{#1}{\llap{\mxsps\char 23~\char 23~\char 23~\char 24}}}}
\def\TempoI#1{\Text{#1}{\mbf Tempo
I}}\def\rTempoI#1{\roff{\TempoI{#1}}}\def\rrTempoI#1{\roffset2{\TempoI{#1}}}\def\rrrTempoI#1{\roffset3{\TempoI{#1}}}
\def\TempoIScherzo#1{\Text{#1}{\mbf Tempo I (Scherzo)}}
\def\Triovielruhiger#1{\Text{#1}{\bigtype Trio -- \mbf (Viel ruhiger)}}
\def\Uebno#1#2{\off{-\afterruleskip}\Text#1{\lrlap{\boxit{\mbf
#2}}}\off{\afterruleskip}}\def\rUebno#1#2{\roff{\Uebno{#1}{#2}}}\def\rrUebno#1#2{\roffset2{\Uebno{#1}{#2}}}\def\rrrUebno#1#2{\roffset3{\Uebno{#1}{#2}}}
\def\Viellangsamer#1{\Text{#1}{\mbf Viel
langsamer}}\def\rViellangsamer#1{\roff{\Viellangsamer{#1}}}\def\rrViellangsamer#1{\roffset2{\Viellangsamer{#1}}}\def\rrrViellangsamer#1{\roffset3{\Viellangsamer{#1}}}
\def\Vielruhiger#1{\Text{#1}{\mbf Viel
ruhiger}}\def\rVielruhiger#1{\roff{\Vielruhiger{#1}}}\def\rrVielruhiger#1{\roffset2{\Vielruhiger{#1}}}\def\rrrVielruhiger#1{\roffset3{\Vielruhiger{#1}}}
\def\Vorangehen#1{\Text{#1}{\mit Vorangehen!}}
\def\Wiederruhig#1{\Text#1{\mbf Wieder ruhig}}
\def\Wiederruhigerwerden#1{\Text#1{\mit Wieder ruhiger werden}}
%
\def\Strich#1#2{\off{#1\elemskip}\zcharnote{#2}{\bf ,}\off{-#1\elemskip}}
\def\strich#1#2{\off{-#1\elemskip}\zcharnote{#2}{\bf ,}\off{#1\elemskip}}
%
\def\ek#1{\off{#1\elemskip}}
\def\eks#1{\ifnum\nbinstruments>1\off{#1\elemskip}\fi}
\def\ekp#1{\ifnum\nbinstruments=1\off{#1\elemskip}\fi}
\def\eksp#1#2{\ifnum\nbinstruments>1\off{#1\elemskip}\else\off{#2\elemskip}\fi}
\def\bek#1{\ek{-#1}}
\def\beks#1{\eks{-#1}}
\def\bekp#1{\ekp{-#1}}
\def\beksp#1#2{\eksp{-#1}{-#2}}
%
\def\cre#1{\text{#1}{\mit cresc.}}
\def\cresc#1#2{\text{#1}{\crescendo{#2\elemskip}}}
\def\crescs#1#2{\ifnum\nbinstruments>1\text{#1}{\crescendo{#2\elemskip}}\fi}
\def\crescp#1#2{\ifnum\nbinstruments=1\text{#1}{\crescendo{#2\elemskip}}\fi}
\def\crescsp#1#2#3{\ifnum\nbinstruments>1\text{#1}{\crescendo{#2\elemskip}}\else\text{#1}{\crescendo{#3\elemskip}}\fi}
\def\Cresc#1#2{\Text{#1}{\crescendo{#2\elemskip}}}
\def\decre#1#2{\text{#1}{\decrescendo{#2\elemskip}}}
\def\decres#1#2{\ifnum\nbinstruments>1\text{#1}{\decrescendo{#2\elemskip}}\fi}
\def\decrep#1#2{\ifnum\nbinstruments=1\text{#1}{\decrescendo{#2\elemskip}}\fi}
\def\decresp#1#2#3{\ifnum\nbinstruments>1\text{#1}{\decrescendo{#2\elemskip}}\else\text{#1}{\decrescendo{#3\elemskip}}\fi}
%
\def\Lsh#1{\z{\loff{\sh{#1}}}}
\def\Lfl#1{\z{\loff{\fl{#1}}}}
\def\Lna#1{\z{\loff{\na{#1}}}}
\def\Llsh#1{\z{\loff{\lsh{#1}}}}
\def\Llfl#1{\z{\loff{\lfl{#1}}}}
\def\Llna#1{\z{\loff{\lna{#1}}}}
\def\llfl#1{\z{\loffset{.3}{\fl{#1}}}}
\def\lllfl#1{\z{\loffset{.6}{\fl{#1}}}}
\def\llna#1{\z{\loffset{.3}{\na{#1}}}}
\def\rcna#1#2{\raise #1\internote\hbox{{\roffset{1.3}{\cna{#2}}}}}
%
\def\bhsk{\off{-.5\noteskip}}
%
\def\doubleslash{\char47\kern-.3em\char47}
\def\qlqq{,\kern-.08em,\kern.03em}
%
\let\alalignesav\alaligne
\let\arpeggiosav\arpeggio
\let\bigshsav\bigsh
\let\cclsav\ccl
\let\ccusav\ccu
\let\clsav\cl
\let\cusav\cu
\let\dssav\ds
\let\Endpiecesav\Endpiece
\let\grcusav\grcu
\let\hlsav\hl
\let\ibbusav\ibbu
\let\ibblsav\ibbl
\let\iblsav\ibl
\let\ibusav\ibu
\let\islurdsav\islurd
\let\islurusav\isluru
\let\lpzsav\lpz
\let\normalnotesizesav\normalnotesize
\let\pmxclefsav\pmxclef
\let\qbsav\qb
\let\qlpsav\qlp
\let\qlsav\ql
\let\qupsav\qup
\let\qusav\qu
\let\raisearpsav\raisearp
\let\segnosav\segno
\let\shlftsav\shlft
\let\shsav\sh
\let\tblsav\tbl
\let\tbusav\tbu
\let\tslursav\tslur
\let\unbktsav\unbkt
\let\upzsav\upz
\let\whsav\wh
\let\xbarsav\xbar
%
\makeatletter
\newcount\nick@ii
\newcount\slurno
\def\bbl#1#2{{\advance\transpose3\hloff{\ibbl0{#2}9}\hroff{\tbl0}}#1}
\def\bbu#1#2{{\advance\transpose-4\hloff{\ibbu0{#2}9}\hroff{\tbu0}}#1}
\def\Bbql{\def\ql##1{\let\ql\qlsav\bbl{\ql{##1}}{14}}}
\def\bbql{\def\ql##1{\let\ql\qlsav\bbl{\ql{##1}}{##1}}}
\def\bbqu{\def\qu##1{\let\qu\qusav\bbu{\qu{##1}}{##1}}}
\def\bbbl#1#2{{\advance\transpose3\hloff{\ibbbl0{#2}9}\hroff{\tbl0}}#1}
\def\bbbu#1#2{{\advance\transpose-4\hloff{\ibbbu0{#2}9}\hroff{\tbu0}}#1}
\def\bbbcl{\def\cl##1{\let\cl\clsav\bbbl{\stemlength{6.66}\cl{##1}}{##1}}}
\def\bbbcu{\def\cu##1{\let\cu\cusav\bbbu{\stemlength{6.66}\cu{##1}}{##1}}}
\def\bbbhl{\def\hl##1{\let\hl\hlsav\bbbl{\hl{##1}}{##1}}}
\def\bbbql{\def\ql##1{\let\ql\qlsav\bbbl{\stemlength{5.33}\ql{##1}}{##1}}}
\def\bbbqlp{\def\qlp##1{\let\qlp\qlpsav\bbbl{\stemlength{5.33}\qlp{##1}}{##1}}}
\def\bbbqup{\def\qup##1{\let\qup\qupsav\bbbu{\stemlength{5.33}\qup{##1}}{##1}}}
\def\bbblqb{\def\qb##1##2{\let\qb\qbsav\bbbl{\qb{##1}{##2}}{##2}}}
\def\bbbuqb{\def\qb##1##2{\let\qb\qbsav\bbbu{\qb{##1}{##2}}{##2}}}
\def\beamnofortbl{\def\tbl##1{\let\tbl\tblsav\global\nick@i##1}}
\def\breakLiftslur#1#2{%
\def\isluru##1##2{\restslur\isluru{##1}{##2}{\breakslur{##1}{#1}}\ifnum#2=0\else\gdef\atnextline{\Liftslur{##1}{#2}}\fi}%
\def\islurd##1##2{\restslur\islurd{##1}{##2}{\breakslur{##1}{#1}}\ifnum#2=0\else\gdef\atnextline{\Liftslur{##1}{#2}}\fi}}%
\def\bskibuskasibu{\def\ibu##1##2##3{\let\ibu\ibusav\bsk\ibu{##1}{##2}{##3}\sk}}
\def\ccqu#1{{\advance\transpose-3\hloff{\ibbu0{#1}9}\hroff{\tbu0}}\qu#1}
\def\ccquasqu{\def\qu##1{\let\qu\qusav\ccqu{##1}}}
\def\ccql#1{{\advance\transpose+2\hloff{\ibbl0{#1}9}\hroff{\tbl0}}\ql#1}
\def\ccqlasql{\def\ql##1{\let\ql\qlsav\ccql{##1}}}
\def\cccwh#1{{\advance\transpose-4\loff{\ibbbu0{#1}9}\roffset{.25}{\tbu0}}\wh#1}
\def\cccwhaswh{\def\wh##1{\let\wh\whsav\cccwh{##1}}}
\def\clasiblqb{\def\ibl##1##2##3{\let\ibl\iblsav\pitch{##2}}\def\qb##1##2{\let\qb\qbsav\cl{##2}}}
\def\clastblqb{\def\tbl##1{\let\tbl\tblsav}\def\qb##1##2{\let\qb\qbsav\cl{##2}}}
\def\clastbuqb{\def\tbu##1{\let\tbu\tbusav}\def\qb##1##2{\let\qb\qbsav\cl{##2}}}
\def\cuasibuqb{\def\ibu##1##2##3{\let\ibu\ibusav\pitch{##2}}\def\qb##1##2{\let\qb\qbsav\cu{##2}}}
\def\cuastblqb{\def\tbl##1{\let\tbl\tblsav}\def\qb##1##2{\let\qb\qbsav\cu{##2}}}
\def\cuastbuqb{\def\tbu##1{\let\tbu\tbusav}\def\qb##1##2{\let\qb\qbsav\cu{##2}}}
\def\dsasiblqb{\def\ibl##1##2##3{\let\ibl\iblsav\nick@i=##3\pitch{##2}}\def\qb##1##2{\let\qb\qbsav\pitch{##2}\ds}}
\def\dsasibuqb{\def\ibu##1##2##3{\let\ibu\ibusav\nick@i=##3\pitch{##2}}\def\qb##1##2{\let\qb\qbsav\pitch{##2}\ds}}
\def\dsastblqb{\def\tbl##1{\let\tbl\tblsav}\def\qb##1##2{\let\qb\qbsav\pitch{##2}\ds}}
\def\falsebarno{%
\def\xbar{\let\xbar\xbarsav\let\alaligne\alalignesav\xbar}%
\def\alaligne{\let\xbar\xbarsav\let\alaligne\alalignesav\stoppiece\barnofalse\contpiece}}
\def\getslurno{\def\isluru##1##2{\let\islurd\islurdsav\let\isluru\islurusav\global\slurno##1\isluru{##1}{##2}}\def\islurd##1##2{\let\islurd\islurdsav\let\isluru\islurusav\global\slurno##1\islurd{##1}{##2}}}
\def\grcuupz#1{\def\grcu##1{\let\grcu\grcusav{\upz{#1}}\grcu{##1}}}
\def\grcuzqasgrcu#1{\def\grcu##1{\let\grcu\grcusav{\zq{#1}}\grcu{##1}}}
\def\huasqu{\def\qu##1{\hu{##1}\let\qu\qusav}}
\def\ibblqbbfastbuqb{\def\tbu##1{\let\tbu\tbusav}\def\qb##1##2{\let\qb\qbsav{\ibbl{##1}{##2}{-2}}\qb{##1}{##2}\Ek1\tbl{##1}\qb{##1}{_b}}}
\def\ibbltbblqbasccl#1#2#3{\def\ccl##1{\let\ccl\cclsav{\ibbl{#1}{#2}{#3}}\roff{\tbbl{#1}}\qb{#1}{##1}}}
\def\ibblqbasccl#1#2#3{\def\ccl##1{\let\ccl\cclsav{\ibbl{#1}{#2}{#3}}\qb{#1}{##1}}}
\def\ibblqbtblasccl#1{\def\ccl##1{\let\ccl\cclsav{\ibbl{#1}{##1}0}\qb{#1}{##1}\tbl{#1}}}
\def\ibblroffsettblasibbl#1{\def\ibbl##1##2##3{\let\ibbl\ibblsav\ibbl{##1}{##2}{##3}\roffset{#1}{\tbl{##1}}}}
\def\ibbuqbaastblqb{\def\tbl##1{\let\tbl\tblsav}\def\qb##1##2{\let\qb\qbsav{\ibbu{##1}{##2}{-2}}\qb{##1}{##2}\EK3\tbu{##1}\qb{##1}a}}
\def\ibbuzero#1{\def\ibbu##1##2##3{\let\ibbu\ibbusav\global\nick@ii#1\ibbu{#1}{##2}0}\def\qb##1##2{\let\qb\qbsav\qb{#1}{##2}}}
\def\iblEk#1{\def\ibl##1##2##3{\let\ibl\iblsav\Ek{#1}\ibl{##1}{##2}{##3}}}
\def\iblqbascl#1{\def\cl##1{\let\cl\clsav{\ibl{#1}{##1}0}\qb{#1}{##1}}}
\def\iblsktblbskqbascl#1{\def\cl##1{\let\cl\clsav{\ibl{#1}{##1}0}\sk\tbl{#1}\bsk\qb{#1}{##1}}}
\def\Iblqbascl#1#2#3{\def\cl##1{\let\cl\clsav{\ibl{#1}{#2}{#3}}\qb{#1}{##1}}}
\def\iblqbasqb{\def\qb##1##2{\let\qb\qbsav{\ibl##1{##2}{\the\nick@i}}\qb##1{##2}}}
\def\Iblqbasqb#1{\def\qb##1##2{\let\qb\qbsav{\ibl##1{#1}{\the\nick@i}}\qb##1{##2}}}
\def\ibutbu{\def\tbu##1{\let\tbu\tbusav\ibu{##1}6{-9}\tbu{##1}}}
\def\ibuqbascu#1#2{\def\cu##1{{\let\cu\cusav\ibu{#1}{##1}{#2}}{\qb{#1}{##1}}}}
\def\ibuqbasibuqb#1#2{\def\ibu##1##2##3{\let\ibu\ibusav{\ibu#1{#2}5}\pitch{##2}}\def\qb##1##2{\let\qb\qbsav\qb{#1}{##2}}}
\def\ibuqbasqb{\def\qb##1##2{\let\qb\qbsav{\ibu##1{##2}{\the\nick@i}}\qb##1{##2}}}
\def\Ibuqbasqb#1{\def\qb##1##2{\let\qb\qbsav{\ibu##1{#1}{\the\nick@i}}\qb##1{##2}}}
\def\ibuqbasqbi#1{\def\qb##1##2{\let\qb\qbsav{\ibu##1{#1}{\the\nick@i}}\qb##1{##2}}}
\def\ibuqbastbuqb#1{\def\tbu##1{\let\tbu\tbusav}\def\qb##1##2{\let\qb\qbsav{\ibu{#1}{##2}0}\qb{#1}{##2}}}
\def\ibuqblofftbuascu#1{\def\cu##1{\let\cu\cusav\ibu{#1}{##1}0\qb{#1}{##1}\loff{\tbu{#1}}}}
\def\ibuqbsklofftbubskascu#1{\def\cu##1{\let\cu\cusav\ibu{#1}{##1}0\qb{#1}{##1}\sk\loff{\tbu{#1}\bsk}}}
\def\ibusklofftbubskqbascu#1{\def\cu##1{\let\cu\cusav{\ibu{#1}{##1}0}\sk\loff{\tbu{#1}}\bsk\qb{#1}{##1}}}
\def\Larpeggio#1{\def\arpeggio##1##2{\let\arpeggio\arpeggiosav\loffset{#1}{\arpeggio{##1}{##2}}}}
\def\loffsetibbltblasttbl#1#2#3{\def\tbl##1{\let\tbl\tblsav\loffset{#1}{{\ibl{##1}{#2}{#3}}}\tbl{##1}}}
\def\loffsetibltblqbascl#1#2{\def\cl##1{\let\cl\clsav\loffset{#1}{{\ibl{#2}{##1}0}}\tbl{#2}\qb{#2}{##1}}}
\def\loffsetibutbuqbascu#1#2{\def\cu##1{\let\cu\cusav\loffset{#1}{{\ibu{#2}{##1}0}}\tbu{#2}\qb{#2}{##1}}}
\def\loffsettwoibblasibbl{\def\ibbl##1##2##3{\let\ibbl\ibblsav\loffset2{\ibbl{##1}{##2}{##3}}}}
\def\loffsettwoibutbuqbascu#1{\def\cu##1{\let\cu\cusav\loffset2{\ibu{#1}{##1}0}\tbu{#1}\qb{#1}{##1}}}
\def\lpmxclef#1{\def\pmxclef##1##2{\global\let\pmxclef\pmxclefsav\loffset{#1}{\pmxclef{##1}{##2}}}}
\def\lpzstaslpz{\def\lpz##1{\lpzst{##1}\let\lpz\lpzsav}}
\def\Lraisearp#1{\def\raisearp##1##2{\let\raisearp\raisearpsav\loffset{#1}{\raisearp{##1}{##2}}}}
\def\noibl{\def\ibl##1##2##3{\pitch{##2}\let\ibl\iblsav}}
\def\noibbl{\def\ibbl##1##2##3{\pitch{##2}\let\ibbl\ibblsav}}
\def\nosh{\def\sh##1{\pitch{##1}\let\bigsh\bigshsav\let\sh\shsav}\def\bigsh##1{\pitch{##1}\let\bigsh\bigshsav\let\sh\shsav}}
\def\notbl{\def\tbl##1{\let\tbl\tblsav}}
\def\pitchasibbl{\def\ibbl##1##2##3{\let\ibbl\ibblsav\pitch{##2}}\def\qb##1##2{\let\qb\qbsav\qb{##1}{##2}}}
\def\pitchqbasibblqb#1{\def\ibbl##1##2##3{\let\ibbl\ibblsav\pitch{##2}}\def\qb##1##2{\let\qb\qbsav\qb{#1}{##2}}}
\def\pitchqbasiblqb#1{\def\ibl##1##2##3{\let\ibl\iblsav\pitch{##2}}\def\qb##1##2{\let\qb\qbsav\qb{#1}{##2}}}
\def\pzstaspz{\def\lpz##1{\lpzst{##1}\let\lpz\lpzsav\let\upz\upzsav}\def\upz##1{\upzst{##1}\let\lpz\lpzsav\let\upz\upzsav}}
\def\qbascl#1{\def\cl##1{\let\cl\clsav\qb{#1}{##1}}}
\def\qbasqb#1{\def\qb##1##2{\let\qb\qbsav\qb{#1}{##2}}}
\def\qbtbuasqb{\def\qb##1##2{\let\qb\qbsav\qb{##1}{##2}\tbu{##1}}}
\def\qbtblasqbtbl#1{\def\tbl##1{\let\tbl\tblsav\tbl{#1}}\def\qb##1##2{\let\qb\qbsav\qb{#1}{##2}}}
\def\qlasiblqb{\def\ibl##1##2##3{\let\ibl\iblsav\pitch{##2}}\def\qb##1##2{\let\qb\qbsav\ql{##2}}}
\def\qlasqb{\def\qb##1##2{\let\qb\qbsav\ql{##2}}}
\def\qlppasqlp{\def\qlp##1{\let\qlp\qlpsav\qlpp{##1}}}
\def\qpasds{\def\ds{\qp\let\ds\dssav}}
\def\qpasqb{\def\qb##1##2{\let\qb\qbsav\qp\pitch{##2}}}
\def\quasiblqb{\def\ibl##1##2##3{\let\ibl\iblsav\pitch{##2}}\def\qb##1##2{\let\qb\qbsav\qu{##2}}}
\def\quasibuqb{\def\ibu##1##2##3{\let\ibu\ibusav\pitch{##2}}\def\qb##1##2{\let\qb\qbsav\qu{##2}}}
\def\quasql{\def\ql##1{\let\ql\qlsav\qu{##1}}}
\def\quppasqup{\def\qup##1{\let\qup\qupsav\qupp{##1}}}
\def\restslur{\let\islurd\islurdsav\let\isluru\islurusav}
\def\shlftmore#1{\def\shlft##1##2{\let\shlft\shlftsav\off{-#1\elemskip}\shlft{##1}{##2}\off{#1\elemskip}}}
\def\skasiblqb{\def\ibl##1##2##3{\let\ibl\iblsav\pitch{##2}}\def\qb##1##2{\let\qb\qbsav\pitch{##2}\sk}}
\def\skasibuqb{\def\ibu##1##2##3{\let\ibu\ibusav\pitch{##2}}\def\qb##1##2{\let\qb\qbsav\pitch{##2}\sk}}
\def\skasqb{\def\qb##1##2{\let\qb\qbsav\pitch{##2}\sk}}
\def\skastblqb{\def\tbl##1{\let\tbl\tblsav}\def\qb##1##2{\let\qb\qbsav\pitch{##2}\sk}}
\def\skastbuqb{\def\tbu##1{\let\tbu\tbusav}\def\qb##1##2{\let\qb\qbsav\pitch{##2}\sk}}
\def\sklofftbubskastbu{\def\tbu##1{\let\tbu\tbusav\sk\loff{\tbu{##1}}\bsk}}
\def\smallnormal{\def\normalnotesize{\let\normalnotesize\normalnotesizesav\smallnotesize}}
\def\tbbuastbu{\def\tbu##1{\let\tbu\tbusav\tbbu{\the\nick@ii}}\def\qb##1##2{\let\qb\qbsav\qb{\the\nick@ii}{##2}}}
\def\tbbuqbasccu#1{\let\ccu\ccusav\def\ccu##1{\lower2\interbeam\hbox{\tbbu{#1}}\tbu{#1}\qb{#1}{##1}}}
\def\tblqbascl#1{\def\cl##1{\tbl{#1}\let\cl\clsav\qb{#1}{##1}}}
\def\tblqbascu{\def\cu##1{\let\cusav\cu\tbl{\the\nick@i}\qb{\the\nick@i}{##1}}}
\def\tblqbasqb{\def\qb##1##2{\tbl{##1}\let\qb\qbsav\qb{##1}{##2}}}
\def\tblqbastblqb#1{\def\tbl##1{\let\tbl\tblsav\tbl{#1}}\def\qb##1##2{\let\qb\qbsav\qb{#1}{##2}}}
\def\tbuqbascl{\def\cl##1{\let\cl\clsav\message{\the\nick@ii}\tbu{\the\nick@ii}\qb{\the\nick@ii}{##1}}}
\def\tbuqbascu#1{\def\cu##1{\tbu{#1}\let\cu\cusav\qb{#1}{##1}}}
\def\tbuqbasibuqb#1{\def\ibu##1##2##3{\let\ibu\ibusav\pitch{##2}}\def\qb##1##2{\let\qb\qbsav\tbu{#1}\qb{#1}{##2}}}
\def\tslurfastslur{\def\tslur##1##2{\let\tslur\tslursav\tslur{##1}{!f}\pitch{##2}}}
\def\unbktz{\def\unbkt##1##2##3{\let\unbkt\unbktsav\unbkt{##1}{##2}0}}
\def\upzstasupz{\def\upz##1{\let\upz\upzsav\upzst{##1}}}
\def\zastbu{\def\tbu##1{\let\tbu\tbusav}}
\def\zasibu{\def\ibu##1##2##3{\let\ibu\ibusav\pitch{##2}}}
\makeatother
