-%% this file defines various macros to accomodate lilypond output
-%%
-%% let's not make par before endinput
-%
-% TeXbook ex 7.7
-\def\ifundefined#1{\expandafter\ifx\csname#1\endcsname\relax}
-%
-% skip if included already
-\def\SkipLilydefs{\endinput}
-\ifundefined{EndLilyPondOutput}
- \def\EndLilyPondOutput{\csname bye\endcsname}
- \def\SkipLilydefs{}
-\fi
-\SkipLilydefs
-%
-\ifundefined{mudelacopyright}
- \def\mudelacopyright{\copyright\ \number\year}
-\fi
-\ifundefined{LilyIdString}
- \def\LilyIdString{Lily was here}
-\fi
-
-%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
-% macros to shorten other definitions
-%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
-\def\musicdef#1#2{\def#1{\musicchar{#2}}}
-\def\musicchar#1{\musicfnt\char#1}
-\def\rationalmultiply#1*#2/#3{\multiply #1 by #2 \divide #1 by #3}
-
-
-\def\maccentraise#1#2{\dimen0=\noteheight
- \rationalmultiply\dimen0*#2%
- \raise\dimen0\hbox{#1}}
-\def\maccentdef#1#2#3{\def#1{\maccentraise{\musicchar{#2}}{#3}}}
-\def\vertcenter#1{\vbox to 0pt{\vss #1\vss}}
-
-\def\musicmathdef#1#2{\def#1{\musicmathchar{#2}}}
-\def\musicmathchar#1{\musicmathfont\char#1}
-
-\def\topalign#1{\vbox to 0pt{#1\vss}}
-\def\botalign#1{\vbox to 0pt{\vss #1}}
-
-\def\centeralign#1{\hbox to 0pt{\hss#1\hss}}
-\def\leftalign#1{\hbox to 0pt{#1\hss}}
-\def\rightalign#1{\hbox to 0pt{\hss#1}}
-
-
-%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
-%% set up dimensions
-\parindent=0pt
-\newdimen\smallspace
-\newdimen\interlinedist
-\newdimen\stemthickness
-\newcount\n
-\newdimen\staffheight
-\newdimen\notewidth
-\newdimen\noteheight
-\newdimen\staffrulethickness
-\newdimen\interstaffrule
-\newdimen\dist
-
-%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
-% set fonts and primary dimensions
-% ugh
-\def\musixtwentydefs{
- \twentyfonts
- \musixcalc
-}
-
- \def\cmrtwenty{
- \font\smalltextfont=cmr8
- \font\meterfont=cmbx15
- \font\textmusic=cmmi12
-% \font\musicmathfont=cmsy10 %%Not used?? /MB
- \ifundefined{documentclass}
- \font\normaltextfont=cmr10 %\textfont is a primitive
- \font\italicfont=cmti10 scaled \magstep1
- \font\boldfont=cmbx10
- \font\largefont=cmbx12
- \font\hugefont=cmbx15 scaled \magstep 2
- \else
- \def\settext##1{{\normalfont\normalsize ##1}}
- \def\setitalic##1{\textit{\normalsize ##1}}
- \def\setbold##1{\textbf{\normalsize ##1}}
- \def\setlarge##1{\textbf{\large ##1}}
- \def\sethuge##1{\textbf{\huge ##1}}
- \fi
- }
- \def\cmrsixteen{
- \font\smalltextfont=cmr6
- \font\meterfont=cmbx12
- \font\textmusic=cmmi10
- \ifundefined{documentclass}
- \font\normaltextfont=cmr8 %\textfont is a primitive
- \font\italicfont=cmti9
- \font\boldfont=cmbx8
- \font\largefont=cmbx10
- \font\hugefont=cmbx12 scaled \magstep 2
- \else
- \def\settext##1{{\normalfont\footnotesize ##1}}
- \def\setitalic##1{\textit{\small ##1}}
- \def\setbold##1{\textbf{\footnotesize ##1}}
- \def\setlarge##1{\textbf{\normalsize ##1}}
- \def\sethuge##1{\textbf{\huge ##1}}
- \fi
- }
- \def\cmrthirteen{
- \font\smalltextfont=cmr6
- \font\meterfont=cmbx9
- \font\textmusic=cmmi9
- \ifundefined{documentclass}
- \font\normaltextfont=cmr7
- \font\italicfont=cmti7
- \font\boldfont=cmbx7
- \font\largefont=cmbx9
- \font\hugefont=cmbx12
- \else
- \def\settext##1{{\normalfont\scriptsize ##1}}
- \def\setitalic##1{\textit{\scriptsize ##1}}
- \def\setbold##1{\textbf{\scriptsize ##1}}
- \def\setlarge##1{\textbf{\small ##1}}
- \def\sethuge##1{\textbf{\huge ##1}}
- \fi
- }
- \def\cmreleven{
- \font\smalltextfont=cmr5
- \font\meterfont=cmbx8
- \font\textmusic=cmmi8
- \ifundefined{documentclass}
- \font\normaltextfont=cmr6
- \font\italicfont=cmti6
- \font\boldfont=cmbx6
- \font\largefont=cmbx8
- \font\hugefont=cmbx10
- \else
- \def\settext##1{{\normalfont\tiny ##1}}
- \def\setitalic##1{\textit{\tiny ##1}}
- \def\setbold##1{\textbf{\tiny ##1}}
- \def\setlarge##1{\textbf{\footnotesize ##1}}
- \def\sethuge##1{\textbf{\huge ##1}}
- \fi
- }
-\def\musixsixteendefs{
- \sixteenfonts
- \musixcalc
-}
-\def\musixtwentysixdefs{
- \twentysixfonts
- \musixcalc
-}
-\def\musixthirteendefs{
- \thirteenfonts
- \musixcalc
-}
-\def\musixelevendefs{
- \elevenfonts
- \musixcalc
-}
-
-\def\textsharp{\raise.4ex\hbox{\textmusic\char"5D}}
-\def\textnatural{\raise.4ex\hbox{\textmusic\char"5C}}
-\def\textflat{\raise.2ex\hbox{\textmusic\char"5B}}
-
-