diff options
Diffstat (limited to 'Master/texmf-dist/tex/generic/musixtex/musixtex.tex')
-rw-r--r-- | Master/texmf-dist/tex/generic/musixtex/musixtex.tex | 467 |
1 files changed, 316 insertions, 151 deletions
diff --git a/Master/texmf-dist/tex/generic/musixtex/musixtex.tex b/Master/texmf-dist/tex/generic/musixtex/musixtex.tex index 44377fda165..20013df4b23 100644 --- a/Master/texmf-dist/tex/generic/musixtex/musixtex.tex +++ b/Master/texmf-dist/tex/generic/musixtex/musixtex.tex @@ -25,15 +25,34 @@ \def\mufl@x{0.83}% \def\mxmajorvernumber{1} -\def\mxminorvernumber{20} +\def\mxminorvernumber{22} \def\mxvernumber{\mxmajorvernumber\mxminorvernumber}% make it possible to compare with \ifnum \def\mxversuffix{}% \edef\mxversion{\mxmajorvernumber.\mxminorvernumber\mxversuffix} -\def\mxdate{2015-12-13} +\def\mxdate{2016-02-24} \immediate\write16{MusiXTeX(c) \mxversion\space<\mxdate>}% \everyjob{\immediate\write16{MusiXTeX(c) \mxversion\space<\mxdate>}}% +% version 1.22 + +% bi and sc font definitions added; sl and tt definitions for musixsty moved +% explicit font choices for \txtfont replaced by generic commands \smalltype\it etc. +% \pdlud \halfwidthbigwedge and \raise-height font-dependent +% \cbreath and \zbreath use \BIGtype rather than \BIGfont + + +% version 1.21 + +% RDT adjusted the offsets and/or vertical positions for some tremolos +% RDT moved \lastbarpos\lin@pos after calls to \Writ@meters +% to correct \centerbar positioning +% RDT copied the definition of \Hpause from musixlit.tex +% RDT introduced \Changeclefs, \cHpause and \centerHpause +% RDT replaced \smalltype\it by \txtfont in octave clef commands +% RDT moved definitions of \txtfont into \comput@fonts +% RDT added support for piano-pedal bracket notation + % version 1.20 % RDT re-defined tremolo commands to allow for numerical pitches; @@ -41,8 +60,10 @@ % version 1.19: -% RDT corrected typos in the definition of \comput@fonts affecting ppff fonts for \Largemusicsize +% RDT corrected typos in the definition of \comput@fonts +% affecting ppff fonts for \Largemusicsize % RDT introduced definitions for tremolo commands \trml, \trmu, etc. +% RDT turned off lyrics for \metron and \metronequiv notes % version 1.18: @@ -560,168 +581,173 @@ \def\fontid{cm} % deprecated but used in pmx.tex %% -% Seven point fonts: roman, bold, and italic. +% Seven point fonts %% -%\ifx\undefined\sevenrm % version 1.17 RDT unconditional font definitions - \font\sevenrm=cmr7 - \font\sevenbf=cmbx7 - \font\sevenit=cmti7 -%\fi +\font\sevenrm=cmr7 +\font\sevenbf=cmbx7 +\font\sevenit=cmti7 +\font\sevenbi=cmbxti10 at 7pt % version 1.22 RDT +\font\sevensc=cmcsc10 at 7pt %% -% Eight point fonts: roman, bold, and italic; tt and sl needed for musixsty +% Eight point fonts %% -%\ifx\undefined\eightrm - \font\eightrm=cmr8 - \font\eightbf=cmbx8 - \font\eightit=cmti8 - \font\eighttt=cmtt8 - \font\eightsl=cmsl8 -%\fi +\font\eightrm=cmr8 +\font\eightbf=cmbx8 +\font\eightit=cmti8 +\font\eightbi=cmbxti10 at 8pt % version 1.22 RDT +\font\eightsc=cmcsc10 at 8pt %% % Nine point fonts %% -%\ifx\undefined\ninerm - \font\ninerm=cmr9 - \font\ninebf=cmbx9 - \font\nineit=cmti9 - \font\ninett=cmtt9 - \font\ninesl=cmsl9 -%\fi +\font\ninerm=cmr9 +\font\ninebf=cmbx9 +\font\nineit=cmti9 +\font\ninebi=cmbxti10 at 9pt % version 1.22 RDT +\font\ninesc=cmcsc10 at 9pt %% % Ten point fonts %% -%\ifx\undefined\tenrm - \font\tenrm=cmr10 - \font\tenbf=cmbx10 - \font\tenit=cmti10 - \font\tentt=cmtt10 - \font\tensl=cmsl10 -%\fi - +\font\tenrm=cmr10 +\font\tenbf=cmbx10 +\font\tenit=cmti10 +\font\tenbi=cmbxti10 % version 1.22 RDT +\font\tensc=cmcsc10 %% % Eleven point fonts %% -%\ifx\undefined\elevenrm - \font\elevenrm=cmr9 scaled \magstephalf - \font\elevenbf=cmbx9 scaled \magstephalf - \font\elevenit=cmti9 scaled \magstephalf - \font\eleventt=cmtt9 scaled \magstephalf - \font\elevensl=cmsl9 scaled \magstephalf -%\fi +\font\elevenrm=cmr9 scaled \magstephalf +\font\elevenbf=cmbx9 scaled \magstephalf +\font\elevenit=cmti9 scaled \magstephalf +\font\elevenbi=cmbxti10 at 11pt % version 1.22 RDT +\font\elevensc=cmcsc10 at 11pt %% % Twelve point fonts %% -%\ifx\undefined\twelverm - \font\twelverm=cmr12 - \font\twelvebf=cmbx12 - \font\twelveit=cmti12 - \font\twelvett=cmtt12 - \font\twelvesl=cmsl12 -%\fi - -% 14pt: roman, bold, italic and small caps; tt and sl needed for musixsty -%\ifx\undefined\frtrm - \font\frtrm=cmr12 scaled \magstep1 - \font\frtbf=cmbx12 scaled \magstep1 - \font\frtit=cmti12 scaled \magstep1 - \font\frtsc=cmcsc10 scaled \magstep2 - \font\frttt=cmtt12 scaled \magstep1 - \font\frtsl=cmsl12 scaled \magstep1 -%\fi +\font\twelverm=cmr12 +\font\twelvebf=cmbx12 +\font\twelveit=cmti12 +\font\twelvebi=cmbxti10 scaled \magstep1 % version 1.22 RDT +\font\twelvesc=cmcsc10 scaled \magstep1 + +% 14pt fonts +\font\frtrm=cmr12 scaled \magstep1 +\font\frtbf=cmbx12 scaled \magstep1 +\font\frtit=cmti12 scaled \magstep1 +\font\frtsc=cmcsc10 scaled \magstep2 +\font\frtbi=cmbxti10 scaled \magstep2 % version 1.22 RDT % % 17pt -%\ifx\undefined\svtrm - \font\svtrm=cmr12 scaled \magstep2 - \font\svtbf=cmbx12 scaled \magstep2 - \font\svtit=cmti12 scaled \magstep2 - \font\svtsc=cmcsc10 scaled \magstep3 - \font\svttt=cmtt12 scaled \magstep2 -%\fi +\font\svtrm=cmr12 scaled \magstep2 +\font\svtbf=cmbx12 scaled \magstep2 +\font\svtit=cmti12 scaled \magstep2 +\font\svtsc=cmcsc10 scaled \magstep3 +\font\svtbi=cmbxti10 scaled \magstep3 % % 20pt -%\ifx\undefined\twtyrm - \font\twtyrm=cmr12 scaled \magstep3 - \font\twtybf=cmbx12 scaled \magstep3 - \font\twtyit=cmti12 scaled \magstep3 - \font\twtysc=cmcsc10 scaled \magstep4 - \font\twtytt=cmtt12 scaled \magstep3 - \font\twtysl=cmsl12 scaled \magstep3 -%\fi +\font\twtyrm=cmr12 scaled \magstep3 +\font\twtybf=cmbx12 scaled \magstep3 +\font\twtyit=cmti12 scaled \magstep3 +\font\twtysc=cmcsc10 scaled \magstep4 +\font\twtybi=cmbxti10 scaled \magstep4 % version 1.22 RDT % % 25pt -%\ifx\undefined\twfvrm - \font\twfvrm=cmr12 scaled \magstep4 - \font\twfvbf=cmbx12 scaled \magstep4 - \font\twfvit=cmti12 scaled \magstep4 - \font\twfvsc=cmcsc10 scaled \magstep5 - \font\twfvtt=cmtt12 scaled \magstep4 - \font\twfvsl=cmsl12 scaled \magstep4 -%\fi -% -% Large fonts for titles -% (If you prefer Roman, use ..rm instead of ..bf) -% (If you prefer small-caps, use ..sc instead of ..bf) -\let\bigfont=\frtbf -\let\Bigfont=\svtbf -\let\BIgfont=\twtybf -\let\BIGfont=\twfvbf +\font\twfvrm=cmr12 scaled \magstep4 +\font\twfvbf=cmbx12 scaled \magstep4 +\font\twfvit=cmti12 scaled \magstep4 +\font\twfvsc=cmcsc10 scaled \magstep5 +\font\twfvbi=cmbxti10 scaled \magstep5 % version 1.22 RDT % %% %% -% Define six font families. +% Define five font families %% - +\def\tinytype{% + \let\rm\sevenrm + \let\bf\sevenbf + \let\it\sevenit + \let\bi\sevenbi + \let\sc\sevensc + \rm} \def\smalltype{% \let\rm\eightrm \let\bf\eightbf \let\it\eightit + \let\bi\eightbi + \let\sc\eightsc \rm} \def\Smalltype{% \let\rm\ninerm \let\bf\ninebf \let\it\nineit + \let\bi\ninebi + \let\sc\ninesc \rm} \def\normtype{% \let\rm\tenrm \let\bf\tenbf \let\it\tenit + \let\bi\tenbi + \let\sc\tensc \rm} \def\medtype{% \let\rm\twelverm \let\bf\twelvebf \let\it\twelveit + \let\bi\twelvebi + \let\sc\twelvesc \rm} -\def\bigtype{% - \let\rm\bigfont - \let\bf\bigfont - \let\it\bigfont +% +% four font families at big/Big/BIg/BIG sizes +% default is \bf here and in musixec, but \sc in musixplt, \rm in musixtmr +% +\def\bigfont{% + \let\rm\frtrm + \let\bf\frtbf + \let\it\frtit + \let\sc\frtsc + \let\bi\frtbi \bf} -\def\Bigtype{% - \let\rm\Bigfont - \let\bf\Bigfont - \let\it\Bigfont +\def\Bigfont{% + \let\rm\svtrm + \let\bf\svtbf + \let\it\svtit + \let\sc\svtsc + \let\bi\svtbi \bf} -\def\BIgtype{% - \let\rm\BIgfont - \let\bf\BIgfont - \let\it\BIgfont +\def\BIgfont{% + \let\rm\twtyrm + \let\bf\twtybf + \let\it\twtyit + \let\sc\twtysc + \let\bi\twtybi \bf} -\def\BIGtype{% - \let\rm\BIGfont - \let\bf\BIGfont - \let\it\BIGfont +\def\BIGfont{% + \let\rm\twfvrm + \let\bf\twfvbf + \let\it\twfvit + \let\sc\twfvsc + \let\bi\twfvbi \bf} -% %% +% large fonts for titles +% (If you prefer Roman, use \rm) +% (If you prefer small-caps, use \sc) +% +\def\bigtype{\bigfont\bf} % default for "big" fonts is \bf +\def\Bigtype{\Bigfont\bf} +\def\BIgtype{\BIgfont\bf} +\def\BIGtype{\BIGfont\bf} +% +% % Bold italic fonts for dynamic markings. %% @@ -736,10 +762,11 @@ \else\ifdim\internote<1.19\Internote\normppff% \else\medppff\fi\fi\fi}% -\def\tinydyn{\let\ppff\tinyppff} % version 1.17 RDT -\def\smalldyn{\let\ppff\smallppff} -\def\normdyn{\let\ppff\normppff} -\def\meddyn{\let\ppff\medppff} + +\def\tinydyn{\let\ppff\ppfftwelve} % version 1.18 RDT +\def\smalldyn{\let\ppff\ppffsixteen} +\def\normdyn{\let\ppff\ppfftwenty} +\def\meddyn{\let\ppff\ppfftwentyfour} \font\musiceleven=musix11 @@ -749,6 +776,31 @@ \font\musictwentyfour=musix24 \font\musictwentynine=musix29 + +% +% tt fonts needed by musixsty % version 1.22 RDT +% +\font\eighttt=cmtt8 +\font\ninett=cmtt9 +\font\tentt=cmtt10 +\font\twelvett=cmtt12 +\font\frttt=cmtt12 scaled \magstep1 +\font\svttt=cmtt12 scaled \magstep2 +\font\twtytt=cmtt12 scaled \magstep3 +\font\twfvtt=cmtt12 scaled \magstep4 +% +% +% sl fonts needed by musixsty % version 1.22 RDT +% +\font\eightsl=cmsl8 +\font\ninesl=cmsl9 +\font\tensl=cmsl10 +\font\twelvesl=cmsl12 +\font\frtsl=cmsl12 scaled \magstep1 +\font\svtsl=cmsl12 scaled \magstep2 +\font\twtysl=cmsl12 scaled \magstep3 +\font\twfvsl=cmsl12 scaled \magstep4 + % piano brackets, slides, guitar chords, lines, (de)crescendi, circles \font\mxsps=musixspx @@ -1355,6 +1407,9 @@ % terminate slur #1 reference number #2 end note % the various types only influence the horizontal offset, if you want to % terminate a \ibslur with a \tslur it becomes a little bit tricky +%% +%% RDT: the "trick", whatever it is, doesn't seem to be working !!!!! +%% e.g. \Notes\ibsluru1g\qa g\ha l\sk\zq g\zq i\tslur1k\qu k\en \def\tslur{\t@slur\h@lf} \def\tsslur{\t@slur{-\p@ne}} @@ -1582,6 +1637,10 @@ \let\smallppff\ppfftwelve \let\normppff\ppffsixteen \let\medppff\ppfftwenty + \def\txtfont{\ifdim\internote<.95\Internote \tinytype\it % version 1.22 RDT + \else\ifdim\internote<1.19\Internote \smalltype\it + \else\ifdim\internote<1.43\Internote \Smalltype\it + \else\normtype\it\fi\fi\fi}% \else\ifnum\musicsize=\@xxiv \let\musicLargefont\musictwentynine \let\musiclargefont\musictwentynine @@ -1602,6 +1661,10 @@ \let\smallppff\ppfftwenty \let\normppff\ppfftwentyfour \let\medppff\ppfftwentynine + \def\txtfont{\ifdim\internote<.95\Internote \smalltype\it % version 1.22 RDT + \else\ifdim\internote<1.19\Internote \Smalltype\it + \else\ifdim\internote<1.43\Internote \normtype\it + \else\medtype\it\fi\fi\fi}% \else\ifnum\musicsize=\@xxix \let\musicLargefont\musictwentynine \let\musiclargefont\musictwentynine @@ -1624,6 +1687,10 @@ \let\smallppff\ppfftwentyfour \let\normppff\ppfftwentynine \let\medppff\ppfftwentynine + \def\txtfont{\ifdim\internote<.95\Internote \normtype\it % version 1.22 RDT + \else\ifdim\internote<1.19\Internote \medtype\it + \else\ifdim\internote<1.43\Internote \bigfont\it + \else\Bigfont\it\fi\fi\fi}% \else \ifnum\musicsize=\tw@nty \else\ifnum\musicsize=\z@ @@ -1650,6 +1717,10 @@ \let\smallppff\ppffsixteen \let\normppff\ppfftwenty \let\medppff\ppfftwentyfour + \def\txtfont{\ifdim\internote<.95\Internote \smalltype\it + \else\ifdim\internote<1.19\Internote \Smalltype\it + \else\ifdim\internote<1.43\Internote \normtype\it + \else\medtype\it\fi\fi\fi}% \fi\fi\fi}% \def\comput@specifics{\comput@fonts\comput@sizes} @@ -1976,11 +2047,12 @@ \noexpand\startpiece }% \fi \barsinpi@c@\z@ \piece@begina \leavevmode \piece@beginb - \piece@beginc \fil@begin \Writ@meters + \piece@beginc \fil@begin \Writ@meters\lastbarpos\lin@pos %%% 1.21: added \lastbarno setting \let\volta@set\empty % tells the kind of volta setting at next bar \let\volta@cut\empty % flag to tell that a volta has been cut at line end \let\volta@type\empty % the current volta setting (same defs as \volta@set) \let\endvolta@set\empty % tells the kind of volta closing at next bar + \let\pdl@cut\empty % flag to signal a pedal rule has been cut at the end of a line % 1.21 RDT } \let\everystaff\empty @@ -1994,7 +2066,7 @@ \comp@internote \leavevmode \barsinlin@\z@ } \def\contpiece{\noindent \piece@conta \writ@staffs \piece@beginc - \Writ@meters \wbarno@x \addspace\afterruleskip + \Writ@meters \wbarno@x\lastbarpos\lin@pos\addspace\afterruleskip %%% 1.21: added \lastbarno setting } % like contpiece but with indentation (parindent) and instrument names @@ -2002,7 +2074,8 @@ \let\fil@indent\empty \def\Contpiece{\piece@conta \piece@beginb \fil@indent \piece@beginc - \Writ@meters} + \Writ@meters\lastbarpos\lin@pos} %%% 1.21: added \lastbarno setting + %%% end score @@ -2011,6 +2084,12 @@ \def\z@suspend{% \z@suspend@autoflag % used in musixcpt only +% cut pedal rule 1.21 RDT + \ifdim\pdl@pos=\z@\else% + \noport@@\z@ + \znotes\selectinstrument{\pdl@instr}\selectstaff{\pdl@staff}\pdlc@\en% + \global\def\pdl@cut{\@one}% + \fi % cutvolta \write@volta@hrule \ifx\volta@type\tw@\let\volta@set\tw@ \let\volta@type\empty @@ -2073,7 +2152,8 @@ \let\T@bil\iftrue \let\everyst@ff\everystaff \let\fil@spc\empty \let\fil@termskip\empty \let\fil@signs\empty \let\fil@barno\empty \let\leftrepeat\leftrepeat@II \let\leftrightrepeat\leftrightrepeat@II - \piece@beginc\Writ@meters\addspace\afterruleskip} + \piece@beginc\Writ@meters\lastbarpos\lin@pos\let\pdl@cut\empty\addspace\afterruleskip} + %%% 1.21: added \lastbarno and \pdl@cut settings % enable left and right extracts (e.g. for footnotes) @@ -2126,7 +2206,7 @@ \def\writethebarno{\fontbarno\the\barno\kernm\qn@width} \def\fontbarno{\it} -\def\wbarno@x{\lastbarpos\lin@pos +\def\wbarno@x{%%%% version 1.21: RDT moved \lastbarpos\lin@pos after calls to \Writ@meters \ifx\volta@set\empty \n@iii\barno \divide\n@iii\freqbarno\relax \ifnum\n@iii=\lastbarno @@ -2142,6 +2222,10 @@ \fi \write@volta \fi + \ifx\pdl@cut\empty % 1.21 RDT + \else% pedal rule was cut at the end of the previous line + \global\pdl@pos\lin@pos\let\pdl@cut\empty % reset \ped@pos + \fi \b@rrul@ %+simick \n@iii\barno \divide\n@iii\freqbarno\relax \lastbarno\n@iii } @@ -2303,7 +2387,8 @@ \let\Writ@newsigns\empty \def\updat@context{\writ@newclefs - \T@bil \wbarno@x\Writ@newsigns\Writ@meters\addspace\afterruleskip + \T@bil \wbarno@x\Writ@newsigns\Writ@meters\lastbarpos\lin@pos\addspace\afterruleskip +%%% 1.21: added \lastbarno setting \else\Writ@newsigns\z@suspend\contpiece \fi} \def\changecontext{\showallbarrules\n@wbar\updat@context} @@ -2345,7 +2430,7 @@ % \write@volta@hrule %-simick }% -\def\@bar{\n@wbar\wbarno@x\addspace\afterruleskip} +\def\@bar{\n@wbar\wbarno@x\lastbarpos\lin@pos\addspace\afterruleskip} \def\zn@wbar{\t@rmskip\advance\barsinpi@c@\@ne \let\z@sw\@ne} @@ -2673,25 +2758,31 @@ \def\smallbassclef{\keychar74} \def\smallaltoclef{\keychar76} -\def\trebleoct{\trebleclef\raise 9\internote\hbox\@to\z@{\smalltype\it\kern -1.8\Interligne 8\hss}} -\def\bassoct{\bassclef\raise 2\internote\hbox\@to\z@{\smalltype\it\kern -2.3\Interligne 8\hss}} -\def\treblelowoct{\trebleclef\raise -7\internote\hbox\@to\z@{\smalltype\it\kern -2.3\Interligne 8\hss}} -\def\basslowoct{\bassclef\raise -6\internote\hbox\@to\z@{\smalltype\it\kern -2.5\Interligne 8\hss}} +%% version 1.21: replaced \smalltype\it by \txtfont (size-dependent) +%% and adjusted the kerns RDT +%% + +\def\trebleoct{\trebleclef\raise 9\internote\hbox\@to\z@{\txtfont\kern -3.6\internote 8\hss}} +\def\bassoct{\bassclef\raise 2\internote\hbox\@to\z@{\txtfont\kern -4.6\internote 8\hss}} +\def\treblelowoct{\trebleclef\raise -7.5\internote\hbox\@to\z@{\txtfont\kern -4.6\internote 8\hss}} +\def\basslowoct{\bassclef\raise -6\internote\hbox\@to\z@{\txtfont\kern -5.0\internote 8\hss}} % [version 1.15] reqest from Hermann Hinsch -\def\smalltrebleoct{\smalltrebleclef\raise 7.2\internote\hbox\@to\z@{\smalltype\it\kern -1.8\Interligne 8\hss}} -\def\smalltreblelowoct{\smalltrebleclef\raise-6.8\internote\hbox\@to\z@{\smalltype\it\kern -2.1\Interligne 8\hss}} -\def\smallbassoct{\smallbassclef\raise 2\internote\hbox\@to\z@{\smalltype\it\kern -2.0\Interligne 8\hss}} -\def\smallbasslowoct{\smallbassclef\raise-6.2\internote\hbox\@to\z@{\smalltype\it\kern -2.2\Interligne 8\hss}} +\def\smalltrebleoct{\smalltrebleclef\raise 7.2\internote\hbox\@to\z@{\txtfont\kern -3.6\internote 8\hss}} +\def\smalltreblelowoct{\smalltrebleclef\raise-6.8\internote\hbox\@to\z@{\txtfont\kern -4.2\internote 8\hss}} +\def\smallbassoct{\smallbassclef\raise 2\internote\hbox\@to\z@{\txtfont\kern -4.0\internote 8\hss}} +\def\smallbasslowoct{\smallbassclef\raise-6.5\internote\hbox\@to\z@{\txtfont\kern -4.4\internote 8\hss}} % [version 1.15] reqest from Hermann Hinsch: end \newskip\clef@skip \def\changeclefs{\t@rmskip\writ@newclefs} - \def\zchangeclefs{\t@rmskip\zwrit@newclefs} +%%% version 1.21: new command to call and reset \atnextbar before outputting new clefs RDT +\def\Changeclefs{\t@rmskip\atnextbar\let\atnextbar\empty\writ@newclefs} + % since the characters are shifted by default(Metafont) they looked % a little bit strange when you mix several staffstaffsizes (flushleft) % I've introduced a hack(kern kernm), that they are (nearly) centered @@ -3787,10 +3878,17 @@ \def\cPAuse{\hbox{\ccn{0}{\musixchar58}}} \def\cPAUSe{\hbox{\ccn{0}{\musixchar59}}} +\def\cHpause#1{% 1.21 RDT +\y@ii\lin@pos \advance\y@ii-\lastbarpos% +\def\v@rtpart{\hbox{\vrule width.6pt height1.5\internote depth1.5\internote}}% +\def\h@rizpart{\hbox{\vrule width0.35\y@ii height.5\internote depth.5\internote}}% +\raise4\internote\hbox{\v@rtpart\h@rizpart\ccn5{\meterfont{#1}}\h@rizpart\v@rtpart}}% + \def\centerpause{\centerbar{\cpause}} \def\centerhpause{\centerbar{\chpause}} \def\centerPAuse{\centerbar{\cPAuse}} \def\centerPAUSe{\centerbar{\cPAUSe}} +\def\centerHpause#1{\centerbar{\cHpause{#1}}} \def\C@ps#1#2#3{\n@viii#3\multiply\n@viii\tw@ \advance\n@viii#2\raise\n@viii\internote \hbox{\musixchar#1}} @@ -3849,6 +3947,11 @@ \def\hspp{\adv@restbox{\check@staff\ppt5\musixchar65\fi}} \def\qqspp{\adv@restbox{\check@staff\ppt5\musixchar66\fi}} +% copied from musixlit.tex: version 1.21 RDT + +\def\Hpause#1#2{\zcharnote{#1}{\def\s@r{% +\vrule\@width.6\p@\@height1\h@lf\internote\@depth1\h@lf\internote}\s@r% +\vrule\@width#2\noteskip\@height\h@lf\internote\@depth\h@lf\internote\s@r}} %%% accidentals @@ -4095,13 +4198,76 @@ \def\raiseped{-5} \def\sPed{\musixchar34} -\def\sPED{\zchar\raiseped\sPed} +\def\sPED{% +\zchar\raiseped\sPed% +\getcurpos\advance\y@v1.6ex\global\pdl@pos\y@v% +\xdef\pdl@instr{\the\noinstrum@nt}\xdef\pdl@staff{\the\noport@@}% save current instrument and staff +} + \def\Ped{\musixchar35} -\def\PED{\zchar\raiseped\Ped} +\def\PED{% +\zchar\raiseped\Ped% +\getcurpos\advance\y@v2.8ex\global\pdl@pos\y@v% +\xdef\pdl@instr{\the\noinstrum@nt}\xdef\pdl@staff{\the\noport@@}% save current instrument and staff +} \def\Dep{\musixchar33} -\def\DEP{\zchar\raiseped\Dep} +\def\DEP{% +\zchar\raiseped\Dep% +\global\pdl@pos\z@% +} \def\sDep{\musixchar104} -\def\sDEP{\zchar\raiseped\sDep} +\def\sDEP{% +\zchar\raiseped\sDep% +\global\pdl@pos\z@% +} + +%%% pedal brackets version 1.21 RDT +%% +%% \pdld pedal down +%% \pdlu pedal up +%% \pdlud pedal up and immediately down + +\newdimen\pdl@pos % cursor position for pedal down +\global\pdl@pos\z@ + +\def\pdld{\hbox{\hroff{% +\raise\raiseped\internote\hbox{\vrule height2ex depth0.5pt width0.5pt}% +\getcurpos\global\pdl@pos\y@v% +% save current instrument and staff +\xdef\pdl@instr{\the\noinstrum@nt}\xdef\pdl@staff{\the\noport@@}% +}}}% + +\def\pdlu{\hbox{\hroff{\getcurpos\advance\y@v-\pdl@pos%% compute length of horizontal rule +\kern-\y@v% +\raise\raiseped\internote\hbox{% +\vrule height-0.5pt depth1pt width\y@v% +\vrule height2ex depth0.5pt width0.5pt %% pedal up +}}}% +\global\pdl@pos\z@}% + +\newbox\bigwedgebox % 1.22 RDT +\def\pdlud{\hbox{\hroff{\getcurpos\advance\y@v-\pdl@pos%% compute length of horizontal rule +\kern-\y@v% +\thinmuskip=2mu% +\setbox\bigwedgebox=\hbox{$\!\bigwedge\!$}% +\def\halfwidthbigwedge{0.5\wd\bigwedgebox}% +\advance\y@v-\halfwidthbigwedge% +\raise\raiseped\internote% +\hbox{% +\vrule height-0.5pt depth1pt width\y@v% draw horizontal rule +\kern\halfwidthbigwedge% +\raise0.33ex\lrlap{$\bigwedge$}% pedal up and down +}% +\getcurpos\advance\y@v\halfwidthbigwedge\global\pdl@pos\y@v% +}}}% + +%% cut pedal rule at line end +%% +% compute length of horizontal rule +\def\pdlc@{\getcurpos\advance\y@v-\pdl@pos% +\kern-\y@v\raise\raiseped\internote\hbox{% +\vrule height-0.5pt depth1pt width\y@v %% draw horizontal rule +}}% %%% fermata @@ -4219,21 +4385,26 @@ %%% tremolos version 1.19 RDT %%% based on code by Werner Icking and Andre van Ryckeghem %%% version 1.20 RDT re-defined using \raise, suggested by JPC +%%% version 1.21 +%%% RDT changed beam numbers to 5, suggested by JPC +%%% RDT adjusted the vertical positions for 16th and 32nd tremolos -\def\trml#1{\raise2\internote\hbox{\loffset{0.5}{\ibl0{#1}9}\roffset{0.5}{\tbl0}}}% -\def\trmu#1{\raise-3\internote\hbox{\loffset{0.5}{\ibu0{#1}9}\roffset{0.5}{\tbu0}}}% -\def\trrml#1{\raise2\internote\hbox{\loffset{0.5}{\ibbl0{#1}9}\roffset{0.5}{\tbl0}}}% -\def\trrmu#1{\raise-3\internote\hbox{\loffset{0.5}{\ibbu0{#1}9}\roffset{0.5}{\tbu0}}}% -\def\trrrml#1{\raise2\internote\hbox{\loffset{0.5}{\ibbbl0{#1}9}\roffset{0.5}{\tbl0}}}% -\def\trrrmu#1{\raise-3\internote\hbox{\loffset{0.5}{\ibbbu0{#1}9}\roffset{0.5}{\tbu0}}}% +\def\trml#1{\raise2\internote\hbox{\loffset{0.5}{\ibl5{#1}9}\roffset{0.5}{\tbl5}}}% +\def\trmu#1{\raise-3\internote\hbox{\loffset{0.5}{\ibu5{#1}9}\roffset{0.5}{\tbu5}}}% +\def\trrml#1{\raise3\internote\hbox{\loffset{0.5}{\ibbl5{#1}9}\roffset{0.5}{\tbl5}}}% +\def\trrmu#1{\raise-4\internote\hbox{\loffset{0.5}{\ibbu5{#1}9}\roffset{0.5}{\tbu5}}}% +\def\trrrml#1{\raise3\internote\hbox{\loffset{0.5}{\ibbbl5{#1}9}\roffset{0.5}{\tbl5}}}% +\def\trrrmu#1{\raise-4\internote\hbox{\loffset{0.5}{\ibbbu5{#1}9}\roffset{0.5}{\tbu5}}}% % whole notes are wider than quarter/half notes: -\def\Trml#1{\raise2\internote\hbox{\loffset0{\ibl0{#1}9}\roffset{1.125}{\tbl0}}}% -\def\Trmu#1{\raise-3\internote\hbox{\loffset{1.125}{\ibu0{#1}9}\roffset0{\tbu0}}}% -\def\Trrml#1{\raise2\internote\hbox{\loffset0{\ibbl0{#1}9}\roffset{1.125}{\tbl0}}}% -\def\Trrmu#1{\raise-3\internote\hbox{\loffset{1.125}{\ibbu0{#1}9}\roffset0{\tbu0}}}% -\def\Trrrml#1{\raise2\internote\hbox{\loffset0{\ibbbl0{#1}9}\roffset{1.125}{\tbl0}}}% -\def\Trrrmu#1{\raise-3\internote\hbox{\loffset{1.125}{\ibbbu0{#1}9}\roffset0{\tbu0}}}% +% version 1.21 RDT adjusted the offsets and vertical positions + +\def\Trml#1{\raise3\internote\hbox{\ibl5{#1}9\roffset{1.25}{\tbl5}}}% +\def\Trmu#1{\raise-4\internote\hbox{\loffset{1.1}{\ibu5{#1}9}\roffset{0.15}{\tbu5}}}% +\def\Trrml#1{\raise3\internote\hbox{\ibbl5{#1}9\roffset{1.25}{\tbl5}}}% +\def\Trrmu#1{\raise-4\internote\hbox{\loffset{1.1}{\ibbu5{#1}9}\roffset{0.15}{\tbu5}}}% +\def\Trrrml#1{\raise3\internote\hbox{\ibbbl5{#1}9\roffset{1.25}{\tbl5}}}% +\def\Trrrmu#1{\raise-4\internote\hbox{\loffset{1.1}{\ibbbu5{#1}9}\roffset{0.15}{\tbu5}}}% %%% octave lines @@ -4341,14 +4512,8 @@ \let\lyricson\relax \let\lyricsoff\relax \def\metron#1#2{{\lyricsoff\stemlength\f@ur\noteskip\t@n\p@ #1 1\ = #2\lyricson}} -\def\metronequiv#1#2{{\stemlength\f@ur\noteskip\t@n\p@ #1 1\ = #2 1}} - +\def\metronequiv#1#2{{\lyricsoff\stemlength\f@ur\noteskip\t@n\p@ #1 1\ = #2 1\lyricson}} -\def\txtfont{% % version 1.17 RDT -\ifdim\internote<.95\Internote \sevenit -\else\ifdim\internote<1.19\Internote \eightit -\else\ifdim\internote<1.43\Internote \tenit -\else\twelveit\fi\fi\fi} \def\txt{3} \def\xtuplet#1#2{\n@iv#1\advance\n@iv\m@ne {\sign@skip=\n@iv\noteskip @@ -4492,9 +4657,9 @@ %\check -\def\zbreath{\check@staff\raise\si@\internote\rlap{\BIGfont'}\fi} +\def\zbreath{\check@staff\raise\si@\internote\rlap{\BIGtype'}\fi} \def\cbreath{\check@staff\adv@box{\raise\si@\internote - \hbox\@to\noteskip{\hss\BIGfont'\hss}}\fi} + \hbox\@to\noteskip{\hss\BIGtype'\hss}}\fi} % The following macros can be used to surround a note by parentheses % \l[r]par p produces a left[right] parenthesis at pitch p (Ian Collier) |