pmx (9oct12)

git-svn-id: svn://tug.org/texlive/trunk@28297 c570f23f-e606-0410-a88d-b1316a301751

1 files changed, 0 insertions, 767 deletions

diff --git a/Master/texmf-dist/tex/generic/pmx/pmx.tex b/Master/texmf-dist/tex/generic/pmx/pmx.tex
deleted file mode 100644
index 5d7083a455e..00000000000
--- a/Master/texmf-dist/tex/generic/pmx/pmx.tex
+++ /dev/null
@@ -1,767 +0,0 @@
-%%%%%%%%%%%%%%%%%%%%%%%
-%%                   %%
-%% pmx.tex           %%
-%%                   %%
-%%%%%%%%%%%%%%%%%%%%%%%
-\def\pmxversion{2.614}\def\pmxdate{17 July 11}
-
-% 2.614 Comment out definitions of some dotted rests, since either in 
-%         musixtex.tex or not needed.
-% Modified for two figured bass lines 081115
-% 2.502 (Olivier Vogel) change all the commands of the form
-%   \font\...=\fontid sy1000 to \font\...=cmsy10
-% 2.408 comment out extra definition of \mdot
-%        tweak \hpausep, replace \liftPAuse, add \liftPAusep
-% 2.406  redefine \starteq to put down strut for first system inside \znotes
-% 2.354a add \zcharnote{##2}{~} to \tieforsl
-% 2.354
-%   Macros \tieforisu, etc, to replace slurs with ties, for use with musixps
-% 2.353
-%   Define \pmxversion
-%   Insert Dirk's 2nd set of (LaTeX-aware) redefinitions for \centerline etc.
-%   Add 5th option for \endset to \newmovement, for Rz.
-% 12/24/01 add \setzalaligne
-% 12/23/01 Remove \parskip re-definition.
-% 12/16/01 Define \psforts (postscript slur endings to replace \midslur)
-% 10/20/01 added defn's of \bigcna, etc
-% 10/20/01 define \resetsize, redefine \gaft, \grace, and \shlft so resizing
-%   is conditional on current staff line spacing. 
-% 11 September Redefine liftpausc to include ledger line.
-% 26 Aug 01 Add \pcaesura, \pbreath
-% 10/21/00  Added PMXbarnotrue/false and stopped PMX zapping writezbarno
-% 15 October added vertical equalization macros
-% 4 July added \PAusep, \brevep, dynamic mark placement \pmxdyn, \sfz
-% 1 July inserted stuff for hairpins 
-% 31 May 99 Redefined \smno
-%
-\ifx\pmxnewclefs\undefined\else\endinput\fi
-\immediate\write10%
-{PMX, a Preprocessor for MusiXTeX, Version\space\pmxversion a\space<\pmxdate>}%
-%
-\edef\catcodeat{\the\catcode`\@}\catcode`\@=11
-%
-%  The next 4 lines are for Don's home use only
-%
-\font\specfnt=cmssqi8%
-\def\mtr#1{\zcharnote{#1}%
-{\specfnt\kern 1.5\internote\raise 0.3\internote\hbox to 0pt{/\hss}%
-\kern -0.7\internote\raise 1.0\internote\hbox to 0pt{/\hss}}}
-%
-\newif\ifolder%
-%
-%  Older fonts had clefs at different heights.  If you have the older 
-%  version you should uncomment the following line
-%\oldertrue%
-%
-%  The next 3 lines should be in musixmad.  They were omitted in 
-%  some early versions!
-%
-%\newcount\s@Nx
-%\newcount\s@Nxi
-%\newcount\s@Nxii
-%
-%  Special clef change stuff
-%
-\newcount\reflect
-\def\pmxnewclefs{\m@loop\s@l@ctclefs\o@c\a@c\repeat}%
-\newtoks\pmxclefsym
-\def\pmxclef#1#2{\ifnum#1=0\def\pmxclefsym{\smalltrebleclef}\else\ifnum#1<5%
-\def\pmxclefsym{\smallaltoclef}\else\ifnum#1=7\def\pmxclefsym{\smalltrebleclef}%
-\else\def\pmxclefsym{\smallbassclef}\fi\fi\fi%
-% Adjust height here for older clef default heights.
-\reflect#2\ifolder\ifnum#1=0\advance\reflect-2\else\ifnum#1<5\advance\reflect-4%
-\else\advance\reflect-6\fi\fi\fi%
-\lcharnote{0}{\raise\reflect\internote\hbox{\pmxclefsym}}}%
-%
-%  Grace note stuff, incl. macro to reset size after going tiny.
-%  This may assume that \musicsize is 20pt but some staves may have
-%    \setsize#1\smallvalue 
-%
-\def\resetsize{\ifdim\internote<.95\Internote%
-\let\musictinyfont\musicthirteen\smallnotesize\else\normalnotesize\fi}%
-\def\settiny{\ifdim\internote<.95\Internote\let\musictinyfont\musiceleven\fi%
-\tinynotesize}%
-\def\grace#1#2#3{\off{-#1pt}\settiny\stdstemfalse#2\zcu{#3}%
-\resetsize\off{#1pt}}%
-\def\shlft#1#2{\off{-#1pt}\settiny\stdstemfalse#2\resetsize\off{#1pt}}%
-\def\gaft#1#2{\bsk\roffset{#1}{{\settiny\stdstemfalse#2\resetsize}}\sk}%
-%
-%  The following keep octaviation out of brackets.
-%  10/20/01: Are these used anywhere???
-%
-%\def\Gshl#1{\off{-#1pt}\tinynotesize}%
-%\def\Gshr#1{\normalnotesize\off{#1pt}}%
-\def\segnoo#1#2{\zcharnote{#2}{\kern#1pt\musicsmallfont\char"56}}
-%
-% Some ornaments...
-%
-% Font for x-trill symbol.  Could make this more general.
-%
-\def\xtr#1{\zcharnote{#1}{\xtrfont\char"02}}
-%
-% Plus-trill
-%
-\def\ptr#1{\ptrx{#1}{1.8}{.35}}
-\def\ptrx#1#2#3{\zcharnote{#1}{\raise.9\internote\hbox{%
-\pcil\h@lf\qn@width\kern\pcil%
-\razclef#2\internote\pcil#3\internote\kern-\h@lf\razclef\vrule height \h@lf\pcil 
-depth \h@lf\pcil width \razclef\kern-\h@lf\razclef\kern-\h@lf\pcil\kern-.1pt
-\vrule height \h@lf\razclef depth \h@lf\razclef width \pcil}}%
-}%
-%
-%  Put in a number for an xtuplet.
-%
-\def\xnum#1#2#3{\off{#1\elemskip}\zcharnote{#2}{\smalltype\it #3}%
-\off{-#1\elemskip}}
-%
-%  accidental skips
-%
-\def\ast#1{\off{#1\elemskip}}
-%
-%  Check for and read a .mod file; open the .ask file
-%
-\newread\pmxmod
-\def\readmod#1{\openin\pmxmod #1.mod\relax
-\ifeof\pmxmod\else\input #1.mod\fi\closein\pmxmod} 
-%
-%  Macros for optional small notes, usually w/ down stems.  Offset to center
-%  them below a large note.  I used these in Matteis.
-%
-%\def\smno#1{\roffset{.17}{\tinynotesize#1\normalnotesize}}%
-%
-%  Redefined, due to some mysterious problem with \roffset
-%
-\def\smno#1{\off{.17\qn@width}\tinynotesize#1\normalnotesize\off{-.17\qn@width}}%
-\def\pmno#1{\roffset{.08}{\smallnotesize#1\normalnotesize}}%
-\def\smq#1{\smno{\zql{#1}}}\def\smc#1{\smno{\zcl{#1}}}%
-\def\smh#1{\smno{\zhl{#1}}}%
-%
-%  Single-digit meter symbol 
-%
-\newbox\workbox%
-\def\meterN#1{\setbox\workbox=\vbox{\hbox{\ \meterfont #1}}%
-\vbox to 8\internote{\offinterlineskip\vss\hbox to \wd\workbox{\hss
-\meterfont #1\hss}\vss }}%
-%
-%  Meter symbol '3' with vertical slash
-%
-\def\meterIIIS{\kern\internote\raise\Interligne\hbox{\meterfont 3}%
-\kern -2.0\internote
-\vrule height 7\internote depth -\internote width0.3\internote
-\kern 1.7\internote}%
-%
-% Fractional meter with a slash
-%
-\def\meterfracS#1#2{%
-\kern\internote\raise2\Interligne\rlap{\meterfont #1}%\lower2\Interligne%
-\hbox{\meterfont #2}%
-\kern -1.85\internote
-\vrule height 8\internote width0.3\internote
-\kern 1.55\internote}%
-%
-%  *Symbols* for use in figures
-%
-\def\sharpfig{\musixchar92}
-\def\flatfig{\musixchar90}
-\def\natfig{\musixchar94}
-\def\fsmsh{\llap{\musixchar92}}
-\def\fsmfl{\llap{\musixchar90}}
-\def\fsmna{\llap{\musixchar94}}
-%
-%  Macros for editorial accidentals
-%
-\def\qedit#1{\roffset{.2}{\zcharnote{#1}{\normtype\rm?}}}
-\def\qsharp#1{%
-\loffset{.2}{\zcharnote{#1}{\sharpfig\lower1.3\internote\hbox{\normtype\rm?}}}}
-\def\qflat#1{%
-\loffset{.2}{\zcharnote{#1}{\flatfig\lower.8\internote\hbox{\normtype\rm?}}}}
-\def\qnat#1{%
-\loffset{.2}{\zcharnote{#1}{\natfig\lower1.2\internote\hbox{\normtype\rm?}}}}
-\def\esharp#1{\roffset{.3}{\zcharnote{#1}{\sharpfig}}}
-\def\eflat#1{\roffset{.3}{\zcharnote{#1}{\flatfig}}}
-\def\enat#1{\roffset{.3}{\zcharnote{#1}{\natfig}}}
-%
-%  Cautionary big accidentals
-%
-\def\bigcna{\cna} \def\bigcfl{\cfl} \def\bigcsh{\csh}
-%
-%  Some fonts...for some reason my system can't do cmbx12 scaled \magstep4
-%  9/17/97 Must redo the following 3 lines to permit EC/DC fonts
-%
-%\font\BIGfont=cmbx10 scaled\magstep4\font\Bigfont=cmbx10 scaled\magstep2
-%\font\tempo=\fontid bx12% 
-%\font\dyn=\fontid bx10% 
-\iflongDCfontnames
-\font\xtrfont=cmsy10
-\font\tempo=\fontid bx1200 
-\font\dyn=\fontid bx1000 
-\else\iflongECfontnames
-\font\xtrfont=cmsy10
-\font\tempo=\fontid bx1200 
-\font\dyn=\fontid bx1000 
-\else
-%\font\xtrfont=cmsy10
-%\font\BIGfont=cmbx10 scaled\magstep4
-%\font\Bigfont=cmbx10 scaled\magstep2
-\font\xtrfont=cmsy10
-\font\BIGfont=\fontid bx10 scaled\magstep4
-\font\Bigfont=\fontid bx10 scaled\magstep2
-\font\tempo=\fontid bx12% 
-\font\dyn=\fontid bx10% 
-\fi\fi
-%
-%  Continuation figure
-%
-\def\Cont#1#2{\advance\figdrop by #1\lower\figdrop\internote%
-\hbox to \z@{\kern -0.3\noteskip%
-\vbox{\hrule height 1.4\lthick width #2\noteskip}\hss}%
-\advance\figdrop by -#1}%
-\def\Cott#1#2{\advance\figdtwo by #1\lower\figdtwo\internote%
-\hbox to \z@{\kern -0.3\noteskip%
-\vbox{\hrule height 1.4\lthick width #2\noteskip}\hss}%
-\advance\figdtwo by -#1}%
-
-%
-%  Tiny C clef on line #1:  Will need to mod with new fonts 11-4-96
-%
-\newdimen\razclef\newdimen\symwid%
-\newdimen\pcil %\ifnum\musicsize=20\pcil4pt\else\pcil3.25pt\fi%
-\def\preclef#1#2{%
-\ifnum#2=20\pcil4pt\else\pcil3.25pt\fi%
-\symwid3.692\pcil%
-\hbox{\vbox{\hrule height \lthick width \symwid}%
-\kern-\symwid\raise\pcil\vbox{\hrule height \lthick width \symwid}%
-\kern-\symwid\raise2\pcil\vbox{\hrule height \lthick width \symwid}%
-\kern-\symwid\raise3\pcil\vbox{\hrule height \lthick width \symwid}%
-\kern-\symwid\raise4\pcil\vbox{\hrule height \lthick width \symwid}%
-\razclef-2.43\pcil\advance\razclef#1\pcil%
-\kern-\symwid\raise\razclef\hbox to \symwid{\hss\smallaltoclef\hss}%
-}}%
-\def\namewpc#1#2#3#4#5{\raise#4pt\hbox to \parindent{\raise#5pt\hbox{#1}%
-\hfill\preclef{#2}{#3}}}
-%
-%  Stuff for figure placements
-%
-%  9/17/97 redo font names
-%
-%\font\figfont=cmr10
-\def\figfont{\normtype\rm}%
-%
-\newcount\figdrop
-\newcount\figdtwo
-%\figdrop=6
-\newcount\sysno
-\global\sysno=0\relax%
-\def\Figu#1#2{\off{.9pt}\advance\figdrop by #1\lower\figdrop\internote%
-\hbox to \z@{\figfont#2\hss}\off{-.9pt}\advance\figdrop by -#1}%
-%
-%  Special Figure macro for 2-bass parts
-%
-%\def\Figt#1#2{\zcharnote{#1}{\kern.9pt\figfont#2}}%
-\def\Figt#1#2{\off{.9pt}\advance\figdtwo by #1\lower\figdtwo\internote%
-\hbox to \z@{\figfont#2\hss}\off{-.9pt}\advance\figdtwo by -#1}%
-%
-%  Bar numbering
-%
-\systemnumbers%
-\def\raisebarno{3.5\internote}%
-\def\shiftbarno{3.5\internote}%
-\newdimen\rbnbl\newdimen\sbnbl\newdimen\xrbn\newdimen\xsbn%
-\newdimen\rbndim\newdimen\sbndim%
-\global\rbndim\raisebarno\global\sbndim\shiftbarno%
-\global\def\raisebarno{\rbndim}\global\def\shiftbarno{\sbndim}%
-\global\rbnbl\rbndim\global\sbnbl\sbndim\global\xrbn0pt\global\xsbn0pt%
-%
-%  The following 2 macros are messy, but they retain \raisebarno as a macro and
-%  retain original definition in musixtex for the end-of-line utility.
-% 
-\def\bnrs#1#2{%
-%
-% If here, baseline values will not change.  On exit, \rbndim will
-% be the temporary value, \xrbn will be the increment (must save to check later;
-% if <>0 then baseline hasn't changed!), and \rbnbl is still the baseline value.
-%
- \global\xrbn#1\internote\global\advance\rbndim\xrbn%
- \global\xsbn#2\internote\global\advance\sbndim\xsbn%
-}%
-\def\writebarno{%
-  \ifnum\barno>1%
-    \boxit{\smalltype\bf\the\barno\barnoadd}%
-    \ifdim\raisebarno=\rbnbl%
-      \empty%
-    \else%
-      \ifdim\xrbn=0pt%
-        \global\rbnbl\raisebarno%
-        \global\def\raisebarno{\rbndim}%
-      \else%
-        \global\xrbn0pt%
-      \fi%
-      \global\rbndim\rbnbl%
-    \fi%
-    \ifdim\shiftbarno=\sbnbl%
-      \empty%
-    \else%
-      \ifdim\xsbn=0pt%
-        \global\sbnbl\shiftbarno%
-        \global\def\shiftbarno{\sbndim}%
-      \else%
-        \global\xsbn0pt%
-      \fi%
-      \global\sbndim\sbnbl%
-    \fi%
-  \fi%
-}%
-%
-%  Make small accidentals the default
-%
-\smallaccid%
-%
-%  Put in a new time signature
-%
-\def\newtimes#1%
-{\ifnum#1=0%
-  \n@wbar\writ@newclefs\advance\barsinlin@\@ne%
-  \wbarno@x\Writ@newsigns%
-  \advance\n@skip0.3\afterruleskip\widthtyp@\@ne\t@rmskip%
-  \Writ@meters\addspace\afterruleskip%
-\else\ifnum#1=1%
-  \alaligne 
-\else
-%
-% Start new page
-%
-  \wbarno@x%
-%
-% -0.7 gave too much space before meter.  
-%
-%  \advance\n@skip-0.7\afterruleskip\widthtyp@\@ne\t@rmskip%
-  \advance\n@skip-\afterruleskip\widthtyp@\@ne\t@rmskip%
-  \Writ@meters\addspace\afterruleskip%
-\fi\fi}%
-%
-%  changecontext with no line break
-%
-\def\xchangecontext{\n@wbar\writ@newclefs
-  \wbarno@x\Writ@newsigns\Writ@meters\addspace\afterruleskip}%
-%
-%  changecontext with forced line break and no barline
-%
-\def\zachangecontext{\advance\n@skip\beforeruleskip \widthtyp@\@ne \t@rmskip
-  \zn@wbar \writ@newclefs \advance\barsinlin@\@ne 
-  \Writ@newsigns\z@suspend\contpiece }
-%
-%  Dotted rests.
-%
-%\def\hsp{\pt7\hs} 
-%\def\hspp{\ppt7\hs} 
-%\def\qsp{\pt5\qs}\def\dsp{\pt5\ds}\def\qpp{\pt5\qp}
-%\def\qspp{\ppt5\qs}\def\dspp{\ppt5\ds}\def\qppp{\ppt5\qp}
-%\def\pausep{\off{.33\qn@width}\pt5\off{-.33\qn@width}\pause}
-%\def\pausep{\wholeshift{\pt5}\pause}
-\def\hpausepp{\wholeshift{\ppt5}\hpause}
-\def\pausepp{\wholeshift{\ppt5}\pause}
-%
-%  Redefine headline to lower pagenumber.  The original defn:
-%  \def\makeheadline{\vbox to\z@{\vskip-22.5\p@
-%  \line{\vbox to8.5\p@{}\the\headline}\vss}\nointerlineskip}
-%
-\def\makeheadline{\vbox to\z@{\vskip-8\p@
-  \line{\vbox to8.5\p@{}\the\headline}\vss}\nointerlineskip}
-%
-% Dot at arbitrary height above a top line of staff
-%
-%\def\mdot#1{\zcharnote8{\kern-5.3pt\raise{#1}\internote\hbox{\musixchar0}}}
-%
-% Titles
-%
-%\def\titles#1#2#3#4#5#6#7{\kern-\lin@pos%
-%\kern-3.2\Interligne\kern-\parindent\kern-\afterruleskip%
-%\kern-\sign@skip%
-%\vbox{\vskip#1\Interligne
-%\ifx\relax#2\relax\else\leftline{\Bigtype #2}\fi\vskip#3\Interligne%
-%\ifx\relax#4\relax\else\centerline{\BIGtype #4}\fi\vskip#5\Interligne%
-%\ifx\relax#6\relax\else\rightline{\Bigtype #6}\fi\vskip#7\Interligne}}%
-%
-% New def'n per Dirk Laurie to allow multiple lines.
-%
-\ifx\documentclass\undefined
-\def\centerlines#1{{\def\\{\hss\egroup\medskip\par\line\bgroup\hss}%
-  \line\bgroup\hss#1\hss\egroup}}
-\def\leftlines#1{{\def\\{\hss\egroup\smallskip\par\line\bgroup}%
-  \line\bgroup#1\hss\egroup}}
-\def\rightlines#1{{\def\\{\egroup\smallskip\par\line\bgroup\hss}%
-  \line\bgroup\hss#1\egroup}}
-\else
-\def\centerlines#1{{\centering#1\\}}
-\def\leftlines#1{{\raggedright#1\\}}
-\def\rightlines#1{{\raggedleft#1\\}}
-\fi
-%\def\centerline#1{{\def\\{\hss\egroup\medskip\par\line\bgroup\hss}%
-%  \line\bgroup\hss#1\hss\egroup}}
-%\def\leftline#1{{\def\\{\hss\egroup\smallskip\par\line\bgroup}%
-%  \line\bgroup#1\hss\egroup}}
-%\def\rightline#1{{\def\\{\egroup\smallskip\par\line\bgroup\hss}%
-%  \line\bgroup\hss#1\egroup}}
-\def\titles#1#2#3#4#5#6#7{\kern-\lin@pos%
-\kern-3.2\Interligne\kern-\parindent\kern-\afterruleskip%
-\kern-\sign@skip%
-\vbox{\vskip#1\Interligne
-\ifx\relax#2\relax\else{\Bigtype\leftlines{#2}}\fi\vskip#3\Interligne%
-\ifx\relax#4\relax\else{\BIGtype\centerlines{#4}}\fi\vskip#5\Interligne%
-\ifx\relax#6\relax\else{\Bigtype\rightlines{#6}}\fi\vskip#7\Interligne}}%
-%
-% Slashes on stems
-%
-\def\usoff#1{%
-% Set \pcil to (stem length)-9\Internote
-  \ifnum#1>10
-    \pcil-3.8\Internote
-  \else
-    \pcil#1\Internote
-    \ifnum#1>3
-      \pcil-.38\pcil\advance\pcil-.5\Internote
-      \ifnum#1>7
-        \advance\pcil.38\Internote
-      \fi
-    \else
-      \ifnum#1<-2
-        \pcil-\pcil\advance\pcil-5\Internote
-      \else
-        \pcil-2\Internote
-      \fi
-    \fi
-  \fi
-  \advance\pcil#1\Internote
-}%
-%
-\def\us#1{\usoff{#1}%
-  \raise\pcil\hbox{\loffset{.5}{\ibu009}\roffset{.5}{\tbu0}}}%
-\def\ls#1{\reflect-#1\advance\reflect8 %
-\usoff{\reflect}\advance\pcil-7\Internote%
-  \lower\pcil\hbox{\loffset{.5}{\ibl009}\roffset{.5}{\tbl0}}}%
-%
-%  Thinner slashes, better coding
-%
-\newdimen\pmxtop\def\aslash#1#2#3{%
-%
-% #1 = note level relative to bottom line.  #2 = 0/1 for down/up stem
-% #3 = 0/1 for down/up slash,  For downstem, reflect, do as up, then unreflect.
-%
-\ifcase#3\def\slchar{\char248}\or\def\slchar{\char184}\fi%
-\ifcase#2\pmxtop-#1\internote\advance\pmxtop8\internote\or\pmxtop#1\internote%
-\fi\advance\pmxtop4.66\interbeam\ifdim\pmxtop>11\internote\uptop{11}\uptop{12}%
-\uptop{13}\uptop{14}\uptop{15}\uptop{16}\fi%
-\ifdim\pmxtop<4\internote\pmxtop4\internote\fi%
-%
-% \pmxtop now top of stem for upstem.  Unreflect if downstem
-%
-\ifcase#2\pmxtop-\pmxtop\advance\pmxtop8\internote\ifcase#3%
-\advance\pmxtop2.5\internote\or\advance\pmxtop.9\internote\fi%
-\ccharnote0{\raise\pmxtop\hbox{\musictinyfont\slchar}}%
-\or\ifcase#3\advance\pmxtop-.9\internote\or\advance\pmxtop-2.5\internote\fi%
-\roff{\ccharnote0{\raise\pmxtop\hbox{\musictinyfont\slchar}}}\fi}%
-\def\uptop#1{\ifdim\pmxtop>#1\internote\advance\pmxtop-.25\interbeam\fi}%
-%
-% Signature change at end of line
-%
-\def\sigatend#1#2{\setdoublebar\xbar\hardspace{-#2pt}\generalsignature{#1}%
-\zchangecontext\hardspace{-#2pt}\advance\barno-1\let\barrul@\empty}%
-%
-%  Macros for beams
-%
-\def\rbbu#1{\roff{\tbbu{#1}}}
-\def\rbbbu#1{\roff{\tbbbu{#1}}}
-\def\rbbbbu#1{\roff{\tbbbbu{#1}}}
-\def\rbbl#1{\roff{\tbbl{#1}}}
-\def\rbbbl#1{\roff{\tbbbl{#1}}}
-\def\rbbbbl#1{\roff{\tbbbbl{#1}}}
-%
-%  Stuff for second voice per staff
-%
-\def\nextvoice{%
-\@ndstaff\reflect\noport@@\advance\noport@@-1\beginstaff\noport@@\reflect}%
-%
-%  Macros for moving slur starts and stops
-%
-\def\isu#1#2#3{\roffset{#3}{\isluru{#1}{#2}}}%
-\def\isd#1#2#3{\roffset{#3}{\islurd{#1}{#2}}}%
-\def\ts#1#2#3{\roffset{#3}{\tslur{#1}{#2}}}%
-%
-%  Macro to replace old \tslur with special postscript slur endings 
-%
-\def\psforts#1{\let\tst\tslur\def\tslur##1##2{%
-\ifnum#1=0\tst{##1}{##2}\else%
-\ifnum#1=1\tfslur{##1}{##2}\else%
-\ifnum#1<4\tst{##1}{##2}\else%
-\ifnum#1=4\thslur{##1}{##2}\else%
-\ifnum#1=5\tHslur{##1}{##2}\else%
-\tHHslur{##1}{##2}\fi\fi\fi\fi\fi\let\tslur\tst}}%
-%
-%  Macros to replace slurs with ties
-%
-\def\tieforisu{\let\ist\isluru%
-\def\isluru##1##2{\itieu{##1}{##2}\let\isluru\ist}}%
-\def\tieforisd{\let\ist\islurd%
-\def\islurd##1##2{\itied{##1}{##2}\let\islurd\ist}}%
-\def\tieforts{\let\ist\tslur%
-\def\tslur##1##2{\ttie{##1}\zcharnote{##2}{~}\let\tslur\ist}}%
-%
-%  Replacement trill macros, to avoid overfull boxes on 1st pass
-%
-\let\savtr\trille\let\savTr\Trille%
-\def\trille#1#2{\ifeof\inmux\else\savtr{#1}{#2}\fi}%
-\def\Trille#1#2{\ifeof\inmux\else\savTr{#1}{#2}\fi}%
-%
-% Mordent as \rpar.  If dotted, must move dot to right.
-%
-\def\lpn#1{\loffset{.3}{\lpar{#1}}}%   '(' 
-\def\rpn#1{\roffset{.3}{\rpar{#1}}}%   Beam or not, no dot [ ')' only ]
-\def\clm#1#2{\mdot{#1}{#2}\cl{#2}}%          Non-beam, dot [ '.' + ')' + note ]
-\def\cum#1#2{\mdot{#1}{#2}\cu{#2}}%
-\def\qlm#1#2{\mdot{#1}{#2}\ql{#2}}%                 
-\def\qum#1#2{\mdot{#1}{#2}\qu{#2}}%
-\def\hlm#1#2{\mdot{#1}{#2}\hl{#2}}%                 
-\def\hum#1#2{\mdot{#1}{#2}\hu{#2}}%
-\def\qbm#1#2#3{\mdot{#2}{#3}\qb{#1}{#3}}%    Beamed & dotted
-\def\mdot#1#2{\roffset{.32}{\pt{#1}}\roffset{.24}{\rpar{#2}}}%
-\def\lpnu#1{\smallnotesize\loffset{.3}{\zcharnote{#1}%
-{\raise1pt\hbox{\musixchar3}}}\normalnotesize}% 
-\def\lpnd#1{\smallnotesize\loffset{.3}{\zcharnote{#1}%
-{\lower1pt\hbox{\musixchar3}}}\normalnotesize}% 
-\def\rpnu#1{\smallnotesize\roffset{.6}{\zcharnote{#1}%
-{\raise1pt\hbox{\musixchar4}}}\normalnotesize}%
-\def\rpnd#1{\smallnotesize\roffset{.6}{\zcharnote{#1}%
-{\lower1pt\hbox{\musixchar4}}}\normalnotesize}%
-%
-% For use with mid-bar signature changes, to permit using \ast machinery
-%
-\def\rdoff{\let\toff\off\let\off\addspace}%
-%
-% For raising arpeggios by .5/internote
-%
-\def\raisearp#1#2{\zcharnote{#1}{%
-  \raise.5\internote\hbox{%
-  \uplap{\leaders\hbox{\musixchar70}\vskip#2\Interligne}}}}
-%
-% New Movement Macro
-%
-\def\newmovement#1#2{\let\holdstop\stoppiece\let\holdcont\contpiece%
-\ifcase#2\def\endset{\setdoubleBAR}\or\def\endset{\setdoublebar}\or%
-%\def\endset{\setrightrepeat}\or\def\endset{\empty}\fi%
-\def\endset{\setrightrepeat}\or\def\endset{\empty}%
- \or\def\endset{\empty}\fi%
- \def\stoppiece{\endset%
-%
-%+++
-\ifnum#2=4\zstoppiece\else%
-%+++
-%
-\holdstop%
-%
-%+++
-\fi%
-%+++
-%
-\vskip#1\internote%
-\let\stoppiece\holdstop}%
- \def\contpiece{\startpiece\addspace\afterruleskip\let\contpiece\holdcont}%
-}%
-%
-%  Redefinitions for moving dots vertically by x\interligne and
-%  horizontally by y headwidths.  Should work for all kinds of dotted notes.
-%  Usage: \def\C@Point#1#2{\PMXpt{.0}{-.2}} (x and y hardwired by PMX)
-% 
-\global\let\C@Psave\C@Point%
-\def\PMXpt#1#2#3{\ifodd\n@i\else\raise\internote\fi%
-\hbox{\raise#1\internote\hbox{\kern#2\qn@width\musixchar#3\kernm#2\qn@width}}%
-\global\let\C@Point\C@Psave}%
-%
-%  Shifted, pointed chord notes (Missing in musixtex.tex ???) 
-%
-\def\lhp#1{\loff{\zhp{#1}}}
-\def\rhp#1{\roff{\zhp{#1}}}
-\def\lqp#1{\loff{\zqp{#1}}}
-\def\rqp#1{\roff{\zqp{#1}}}
-\def\rhpp#1{\roff{\zhpp{#1}}}
-\def\lhpp#1{\loff{\zhpp{#1}}}
-\def\rqpp#1{\roff{\zqpp{#1}}}
-\def\lqpp#1{\loff{\zqpp{#1}}}
-%
-%  Redefine to include \sk !!!
-%
-\def\liftpause#1{\C@ps\@l@v@n\si@{#1}\sk}
-%\def\liftPAuse#1{\C@ps{58}0{#1}\sk}
-% 1/19/03 Replaced old def'n; added \liftPAusep
-\def\liftPAuse#1{\reflect#1\multiply\reflect2%
-\zcharnote{0}{\raise\reflect\internote\hbox{\kern.4\qn@width\musixchar58}}\sk}%
-\def\liftPAusep#1{\reflect#1\multiply\reflect2%
-\zcharnote{0}{\raise\reflect\internote\hbox{\kern.4\qn@width\musixchar58%
-\kern-\qn@width\pt4}}\sk}%
-\def\lifthpause#1{\C@ps\t@n\f@ur{#1}\sk}%
-\def\liftpausep#1{\reflect#1\advance\reflect2%
-\wholeshift{\raise\reflect\Interligne\hbox{\pt0}}\liftpause{#1}}%
-\def\liftpausepp#1{\reflect#1\advance\reflect2%
-\wholeshift{\raise\reflect\Interligne\hbox{\ppt0}}\liftpause{#1}}%
-\def\lifthpausep#1{\reflect#1\advance\reflect2%
-\wholeshift{\raise\reflect\Interligne\hbox{\pt0}}\lifthpause{#1}}%
-\def\lifthpausepp#1{\reflect#1\advance\reflect2%
-\wholeshift{\raise\reflect\Interligne\hbox{\ppt0}}\lifthpause{#1}}%
-%
-%  Text up to bar line.  Use before last note, assume 1 noteskip to bar.
-% 
-\def\bartext#1#2{\sk\loffset{.3}{\zcharnote{#1}{\llap{#2}}}\bsk}
-%
-%  Macro used before movement break to change # of instruments.
-% 
-\def\newnoi#1{\let\atnb\atnextbar\def\atnextbar{\atnb\def\nbinstruments{#1}}}%
-%
-%  Set up top page numbers with optional centered heading
-%
-% #2=0 if odds on rt, else 1.  #1 = initial page no. #3=name
-\def\toppageno#1#2#3{\pageno#1%
-\headline{\reflect#2\advance\reflect\pageno%
-\ifodd\reflect\rhead{#3}\else\lhead{#3}\fi}%
-\def\rhead##1{\tempo\ifnum\pageno>1\hfil{##1}\fi\hfil\llap\folio}%
-\def\lhead##1{\tempo\rlap\folio\hfil{##1}\hfil}}%
-%
-% Temporary date and file name. To use it:
-%
-% (1) Define a script to create a file tempdate.dat. The file will 
-%     contain a single line of text to be centered at the bottom of
-%     each page.  I use a 4DOS alias (makedate) that inserts current date
-%     filename, and filedate as follows:
-%
-%  echo \smalltype\rm Printed %_date from file %1.pmx %@filedate[c:\pmx\%1.pmx],
-%  %@filetime[c:\pmx\%1.pmx] >tempdate.dat
-%
-% (2) Include a call to makedate in the batch file you use to run pmx+tex.
-%     Be sure tempdate.dat is written to a directory accessible to TeX.
-%
-% (3) Include in-line tex \\tempdate\ at the top of the pmx file.
-%
-\def\tempdate{\def\makefootline{\baselineskip2pt\line{\the\footline}}
-\footline{\hss\input tempdate.dat\hss}}
-%
-\def\pnotes#1{\vnotes#1\elemskip}%
-%
-% Hairpins and other dynamic stuff
-%
-\newdimen\hpi\newdimen\hpii\newdimen\hpiii\newdimen\hpiv%
-\newdimen\hpv\newdimen\hpvi\newdimen\hpvii\newdimen\hpviii%
-\newdimen\hpix\newdimen\hpx\newdimen\hpxi\newdimen\hpxii\newdimen\hptmp%
-%
-\def\hpstrt#1#2{\getcurpos\advance\y@v#2\qn@width\advance\y@v\txt@ff%
-\global\csname hp\romannumeral#1\endcsname=\y@v}%
-%
-\def\hpendall#1#2#3#4{\getcurpos%
-\advance\y@v-\csname hp\romannumeral#1\endcsname%
-\zcharnote{#2}{\kernm\y@v\advance\y@v\txt@ff\advance\y@v#3\qn@width#4{\y@v}}}%
-%
-\def\hpcend#1#2#3{\hpendall{#1}{#2}{#3}\crescendo}%
-\def\hpdend#1#2#3{\hpendall{#1}{#2}{#3}\decrescendo}%
-%
-\def\pmxdyn#1#2#3{\ccharnote{#1}{\kern#2\qn@width#3}}
-\def\txtdyn#1#2#3{\zcharnote{#1}{\kern#2\qn@width#3}}
-%
-\def\sfz{{\ppff s\f@kern\f@kern f\f@kern z}}%
-%
-% Dotted breve and rest
-%
-\def\brevep{\def\w@h{\musixchar32\roffset\qu@rt{\C@Point\z@\raise}}%
-  \y@v\wn@width \g@w}
-\def\PAusep{\loffset{.5}{\pt5}\PAuse}%
-%
-% Vertical equalization macros
-%
-%\newskip\pssav\pssav\parskip%
-%
-%  Remove this from here in 2.352, since it caused some incompatibilities.
-%   (Let PMX write it into *.tex when needed).
-%
-%\parskip 0pt plus 12\Interligne minus 99\Interligne%
-\def\upamt{27}\def\dnamt{-20}%
-%\def\upstrut{\znotes\nextinstrument\nextinstrument\zcharnote{\upamt}{X}\en}%
-%
-%  Let PMX write the def'n of \upstrut since I couldn't get the loop to work
-%
-\def\dnstrut{\znotes\zcharnote{\dnamt}{~}\en}%
-%
-%  Call the following inline type1 anywhere in first line of equalization.
-%
-\def\starteq{\gdef\everystaff{\upstrut\dnstrut}\dnstrut}%
-%
-%  And put this as type 1 in the next-to-last line of equalization!
-%
-%\def\endeq{\gdef\everystaff{\upstrut\global\parskip\pssav%
-\def\endeq{\gdef\everystaff{\upstrut%
-\gdef\everystaff{\empty}}}%
-%
-\gdef\spread#1{\global\let\cont\contpiece%
-\gdef\contpiece{\vskip#1\internote\cont\global\let\contpiece\cont}}%
-%
-% The following avoid zapping \writezbarno in several special situations
-%
-\def\PMXbarnotrue{\let\z@sw\empty}%
-\def\PMXbarnofalse{\let\z@sw\@ne}%
-%
-% Centered rests
-%
-\def\pausc{\lrlap{\pause\off{\qn@width}}}%
-\def\PAusc{\lrlap{\PAuse\off{\txt@ff}}}%
-%\def\liftpausc#1{\raise#1\Interligne\pausc}%
-\def\liftpausc#1{\raise#1\Interligne\lrlap{\
-\raise6\internote\hbox{\musixchar11}\off{1.2\qn@width}}}%
-\def\liftPAusc#1{\raise#1\Interligne\PAusc}%
-%
-% CenterBar and mbrest modified 2/01 to account for simick mods in
-%   musixtex 1.01
-%
-\def\CenterBar#1#2#3{%
-\y@ii\lin@pos\advance\y@ii-\lastbarpos%
-\ifx\volta@startcor\undefined \else\advance\y@ii\cut@v\fi%
-\advance\y@ii-#2pt\advance\y@ii-#3pt\kern-#3pt%
-\kern-\h@lf\y@ii\lrlap{#1}\kern\h@lf\y@ii\kern#3pt}%
-\def\mbrest#1#2#3{%
-\CenterBar{%
-\ifnum #1<10\raise 9\internote\lrlap{\meterfont #1}\fi%
-\ifcase #1%
-\relax%
-%\or\lrlap{\pause\off{\qn@width}}%
-\or\pausc%
-%\or\lrlap{\PAuse\off{\txt@ff}}%
-\or\PAusc%
-\or\lrlap{\PAuse\qsk\pause\off{\qn@width}}%
-\or\lrlap{\PAUSe\off{0.5\txt@ff}}%
-\or\lrlap{\PAUSe\qsk\pause\off{\qn@width}}%
-\or\lrlap{\PAUSe\qsk\PAuse\off{\txt@ff}}%
-\or\lrlap{\PAUSe\qsk\PAuse\qsk\pause\off{\txt@ff}\off{\qn@width}}%
-\or\lrlap{\PAUSe\qsk\PAUSe\off{\txt@ff}}%
-\or\lrlap{\PAUSe\qsk\PAUSe\qsk\pause\off{\txt@ff}\off{\qn@width}}%
-\else\def\vertpart{\hbox{\vrule width.6pt height1.5\internote depth1.5\internote}}%
-\raise\f@ur\internote\hbox{%
-\vertpart\hbox{%
-\advance\y@ii-\cut@v\advance\y@ii-\volta@startcor\advance\y@ii-\volta@endcor%
-\vrule width0.7\y@ii height.5\internote depth.5\internote%
-\kern-0.35\y@ii\raise5\internote\lrlap{\meterfont #1}\kern0.35\y@ii}%
-\vertpart}%
-\fi}{#2}{#3}}%
-%
-\def\pcaesura#1#2{\raise#1\internote\hbox{%
-\rlap{\kern.5\noteskip\kern#2\qn@width\musixchar79}}}%
-\def\pbreath#1#2{\zcharnote6{\raise#1\internote\hbox{%
-\rlap{\kern.5\noteskip\kern#2\qn@width\BIGfont'}}}}%
-%
-% Macro to set up for blank bar line
-%
-%\def\setzalaligne{\let\alat\alaligne%
-%  \def\alaligne{\zalaligne\let\alaligne\alat}}%
-\def\setzalaligne{\let\zalat\stoppiece%
-  \def\stoppiece{\zstoppiece\let\stoppiece\zalat}}%
-%
-% Slanted line arpeggio or coule ornament
-%
-\def\arpg#1#2{%
-\roffset{#2}{\zcharnote0{\raise#1\internote\hbox{\varline0{6pt}{20}}}}}%
-\def\arpgu#1{\arpg{#1}{.8}}%
-%
-\catcode`\@=\catcodeat