2 %% include file for LilyPond
4 %% this file defines various macros to accomodate lilypond output
7 \def\ifundefined#1{\expandafter\ifx\csname#1\endcsname\relax}
9 % skip if included already
10 \def\SkipLilydefs{\endinput}
11 \ifundefined{EndLilyPondOutput}
12 \def\EndLilyPondOutput{\csname bye\endcsname}
16 % should use \endinput
18 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
19 % macros to shorten other definitions
20 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
21 \def\mdef#1#2{\def#1{\mchar{#2}}}
22 \def\mchar#1{\musicfnt\char#1}
23 \def\rationalmultiply#1*#2/#3{\multiply #1 by #2 \divide #1 by #3}
24 \def\maccentraise#1#2{\dimen0=\noteheight
25 \rationalmultiply\dimen0*#2%
26 \raise\dimen0\hbox{#1}}
27 \def\maccentdef#1#2#3{\def#1{\maccentraise{\mchar{#2}}{#3}}}
28 \def\vertcenter#1{\vbox to 0pt{\vss #1\vss}}
30 \def\mathdef#1#2{\def#1{\mathchar{#2}}}
31 \def\mathchar#1{\mathfont\char#1}
33 \def\topalign#1{\vbox to 0pt{#1\vss}}
34 \def\botalign#1{\vbox to 0pt{\vss #1}}
36 \def\centeralign#1{\hbox to 0pt{\hss#1\hss}}
37 \def\leftalign#1{\hbox to 0pt{#1\hss}}
38 \def\rightalign#1{\hbox to 0pt{\hss#1}}
41 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
45 \newdimen\interlinedist
50 \newdimen\notewidthhalf
51 \newdimen\notewidthdouble
52 \newdimen\notewidthquart
53 \newdimen\staffrulethickness
54 \newdimen\interstaffrule
57 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
58 % set fonts and primary dimensions
61 \font\meterfont=cmbx12
62 \font\slurufont=xslu20
63 \font\slurdfont=xsld20
64 \font\slurhfont=xslz20
65 \font\hslurufont=xslhu20
66 \font\hslurdfont=xslhd20
67 \font\hslurhfont=xslhz20
68 \font\musicfnt=musix20
69 \font\musicdraw=musixsps
70 \font\italicfont=cmti10
71 \font\dynfont=cmbxti10 scaled \magstep1
76 \staffrulethickness=0.4pt
81 \def\musixsixteendefs{
83 \font\meterfont=cmbx12
84 \font\italicfont=cmti8
85 \font\slurufont=xslu16
86 \font\slurdfont=xsld16
87 \font\slurhfont=xslz20 % sigh
88 \font\hslurufont=xslhu16
89 \font\hslurdfont=xslhd16
90 \font\hslurhfont=xslhz20
91 \font\musicfnt=musix16
92 \font\dynfont=cmbxti12
93 \font\musicdraw=musixsps
96 \staffrulethickness=0.4pt
102 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
103 % do derivative calcs
106 \interlinedist=\fontdimen5\musicfnt
107 \smallspace=.3\interlinedist
108 \interstaffrule=\balkhoog
109 \divide\interstaffrule by 4
110 \notewidthhalf=\notewidth
111 \notewidthquart=\notewidth
112 \notewidthdouble=\notewidth
113 \rationalmultiply \notewidthhalf*1/2
114 \rationalmultiply\notewidthquart*1/4
115 \multiply \notewidthdouble by 2
117 \rationalmultiply\balkhalf*1/2
120 % dynamics take extra kerning
122 \def\kdynf{\dynfont f\kern-.1ex}
123 \def\kdynm{\dynfont m\kern-.15ex}
124 \def\kdynp{\dynfont p\kern-.15ex}
127 \def\dynp{\dynfont p}
128 \def\dynpp{\dynp\kdynp}
129 \def\dynppp{\dynpp\kdynp}
130 \def\dynmp{\dynfont m\kdynp}
131 \def\dynmf{\dynfont m\kdynf}
132 \def\dynf{\dynfont f}
133 \def\dynff{\dynf\kdynf}
134 \def\dynfff{\dynff\kdynf}
137 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
138 % provide interface to musixtex fonts
139 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
140 \mdef\quartball{'007}
142 \mdef\wholeball{'011}
144 \mdef\wholerest{'075}
147 \mdef\sixteenthrest{64}
148 \mdef\thirtysecondrest{65}
149 \mdef\sixtyfourthrest{66}
150 \mdef\hundredtwentyeighthrest{67}
160 \mdef\mussepline{155}
165 \mdef\cviolinclef{72}
169 \mdef\deighthflag{45}
170 \mdef\dsixteenthflag{46}
171 \mdef\dthirtysecondflag{47}
172 \mdef\dsixtyfourthflag{48}
173 \mdef\dhundredtwentyeighthflag{49}
176 \mdef\ueighthflag{40}
177 \mdef\usixteenthflag{41}
178 \mdef\uthirtysecondflag{42}
179 \mdef\usixtyfourthflag{43}
180 \mdef\uhundredtwentyeighthflag{44}
182 \maccentdef\repeatcolon{55}{2/1}
183 \def\eighthflag{\topalign{\ueighthflag}}
184 \def\sixteenthflag{\topalign{\usixteenthflag}}
185 \def\thirtysecondflag{\topalign{\uthirtysecondflag}}
186 \def\sixtyfourthflag{\topalign{\usixtyfourthflag}}
187 \def\hundredtwentyeighthflag{\topalign{\uhundredtwentyeighthflag}}
189 \def\cquartrest{\vertcenter\quartrest}
190 \def\ceighthrest{\vertcenter\eighthrest}
191 \def\csixteenthrest{\vertcenter\sixteenthrest}
192 \def\cthirtysecondrest{\vertcenter\thirtysecondrest}
193 \def\csixtyfourthrest{\vertcenter\sixtyfourthrest}
194 \def\chundredtwentyeighthrest{\vertcenter\hundredtwentyeighthrest}
196 \def\lsingledot{\kern-\notewidth\singledot}
197 \def\ldoubledot{\kern-\notewidth\doubledot}
198 \def\ltripledot{\kern-\notewidth\tripledot}
200 \maccentdef\sforzato{30}{-3/2}
201 \maccentdef\marcato{20}{-1/1}
202 \maccentdef\imarcato{21}{1/1}
203 \maccentdef\staccato{24}{-1/3}
204 \maccentdef\istaccato{25}{1/3}
205 \maccentdef\staccatissimo{28}{-5/5}
206 \maccentdef\istaccatissimo{29}{2/5}
207 \maccentdef\portato{18}{-6/5}
208 \maccentdef\iportato{19}{3/5}
209 \maccentdef\tenuto{26}{-1/1}
210 \maccentdef\itenuto{27}{1/1}
211 \maccentdef\fermata{80}{-1/1}
212 \maccentdef\ifermata{81}{1/1}
219 \mathdef\cup{91} % \cup
220 \mathdef\wedge{94} % \wedge
221 \mathdef\striepke{0} % heu?
223 %% custom characters --- this should go: add to (meta!) font
224 \def\myheel{\kern-.5ex\vbox{\cup}\kern-.5ex}
225 \def\mytoe{\kern-.5ex\vbox{\wedge}\kern-.5ex}
226 \def\mystriepke{\kern-1.1ex\vbox{\hbox{\kern-.05em\striepke}}\kern-1.1ex}
228 \def\heel{\vbox{\myheel}}
229 \def\toe{\vbox{\mytoe}}
230 \def\backorfront{\mystriepke}
232 \def\bheel{\vbox{\myheel\mystriepke}}
233 \def\btoe{\vbox{\mytoe\mystriepke}}
234 \def\fheel{\vbox{\mystriepke\myheel}}
235 \def\ftoe{\vbox{\mystriepke\mytoe}}
236 \def\heeltoe{\vbox{\myheel\mytoe}}
237 \def\toeheel{\vbox{\mytoe\myheel}}
242 \def\thinbar{\vrule height\balkhoog width0.8pt} % TODO parametric.
243 \def\thickbar{\vrule height\balkhoog width 2\smallspace}
244 \def\maatstreep{\thinbar}
246 %? what-s wrong with rightalign?
247 \def\finishbar{\rightalign{\thinbar\kern\smallspace\thickbar}}
249 \def\repeatstopbar{\hss\rightalign{\repeatcolon\hskip2\smallspace\thinbar\hskip\smallspace\thickbar}}
250 \def\repeatstartbar{\hbox{\thickbar\kern\smallspace\thinbar\kern2\smallspace\repeatcolon}}
251 \def\repeatstopstart{\hbox{\repeatcolon\kern2\smallspace\thinbar\kern\smallspace\thickbar\kern\smallspace\thickbar\kern\smallspace\thinbar\kern2\smallspace\repeatcolon}}
252 \def\doublebar{\hbox{\thinbar\hskip\smallspace\thinbar}}
255 \def\repeatbar{\repeatstopbar}
256 \def\startrepeat{\repeatstartbar}
257 \def\repeatbarstartrepeat{\repeatstopstart}
259 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
261 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
263 \def\slurcharh#1{{\slurhfont\char#1}}
264 \def\slurcharu#1{{\slurufont\char#1}}
265 \def\slurchard#1{{\slurdfont\char#1}}
266 \def\hslurcharh#1{{\hslurhfont\char#1}}
267 \def\hslurcharu#1{{\hslurufont\char#1}}
268 \def\hslurchard#1{{\hslurdfont\char#1}}
270 \def\generalmeter#1#2{\botalign{\vbox to\balkhalf{\vss \meterfont#1}%
272 \vbox to \balkhalf{\vss\meterfont #2}}}
274 % stacked horizontal lines
276 \vbox{\kern-\interstaffrule
277 \n=0\nointerlineskip%
278 \loop\ifnum\n<#1\advance\n by1%
281 \vbox to 0pt{\hrule height \staffrulethickness width#2%
282 \vss}\nointerlineskip
287 % Ugh. Need to redo this. Wish we had PS.
289 \def\toplines#1{ % why space needed here?
290 \topalign{\hbox{\kern-\notewidth\lines{#1}{\notewidthdouble}}}}
292 \def\botlines#1{ % idem ditto
293 \botalign{\hbox{\kern-\notewidth\lines{#1}{\notewidthdouble}}}}
296 % a staffsymbol with #1 lines, width #2
298 \def\linestafsym#1#2{\leftalign{\botalign{\lines{#1}{#2}}}}
300 \def\stem#1#2{\vrule height#2 depth-#1}
302 \def\placebox#1#2#3{%
303 \botalign{\hbox{\raise #1\leftalign{\kern #2{}#3}}}%
307 \def\beamslope#1#2{{\count0=#2\advance\count0 by#1\musicfnt\char\count0}}
308 \def\rulesym#1#2{\vrule height #1 width #2}
309 \def\crescendosym#1{\count0=84\advance\count0 by #1\musicdraw\char\count0}
310 \def\decrescendosym#1{\count0=116\advance\count0 by #1\musicdraw\char\count0}
311 \def\settext#1{\textfont #1}
312 \def\setitalic#1{\italicfont #1}
313 \def\setdynamic#1{\dynfont #1}
315 % the interline symbol. Redefine to remove it.
316 \def\defaultlineseparator{\vbox{\mussepline\vskip -5pt\mussepline}}
317 \def\lineseparator{\defaultlineseparator}
319 \par\vskip 10pt plus 30pt minus 10pt\par
320 \hskip -5pt\lineseparator
321 \par\vskip 10pt plus 30pt minus 10pt\par
325 % redefine if not happy with interline spacing
327 \def\interstaffline{%
330 \def\interscoreline{\beauty}
332 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
333 % big fat marks, if errors are detected.
334 \def\columnerrormark{\placebox{-5pt}{0pt}{\bf C!}}
335 \def\scorelineerrormark{\placebox{0pt}{-10pt}{\bf L!}}