2 \include "pop-chords.ly"
5 % Good sizes are 16, 18, & 20
7 #(set-default-paper-size "letter")
8 #(set-global-staff-size staffSize)
9 #(ly:set-option (quote no-point-and-click))
11 %{ Some useful characters: ‘ ’ “ ” – — † ‡ • … %}
15 %Let's bump up the title size and switch to the chord font. :-)
17 title = \markup { \override #'(font-family . sans) \fontsize #3.5 "Breathe" }
18 composer = \markup { \override #'(font-family . sans) \fontsize #1.3 "M. Barnett" }
19 arranger = \markup { \override #'(font-family . sans) \fontsize #1.3 "arr. Ed Smart" }
20 tagline = $(string-append "Engraved by JLH and Lilypond " (lilypond-version))
21 % Let's try a chord dictionary
22 % subtitle = \markup { \center-align { "F#m" \fret-diagram-terse #"x;x;4;2;2;2;" } " " \center-align { "F#m/F" \fret-diagram-terse #"x;x;3;2;2;2;" } " " \center-align { "F#m/E" \fret-diagram-terse #"x;x;2;2;2;2;" } " " \center-align { "F#m/Eb" \fret-diagram-terse #"x;x;1;2;2;2;" } " " \center-align { "Em7" \fret-diagram-terse #"o;2;2;o;3;o;" } " " \center-align { "A13" \fret-diagram-terse #"x;o;2;o;2;2;" } }
25 % Useful tweak abbreviations (hn = harmony note)
27 hn = #(define-music-function (parser location arg) (ly:music?)
28 ;; Harmony Note: Set the tweaks property of the passed in note to use a smaller font
30 (set! (ly:music-property arg 'tweaks)
31 (acons 'font-size -3.0 (ly:music-property arg 'tweaks))) arg)
37 Global = \transpose a g
40 \override Staff.TimeSignature #'style = #'()
43 % \once \override TextScript #'padding = #2.0
44 s1*0^\markup { \italic \bold { 8th-note ballad } }
46 % s1*0^\markup { \hspace #0.0 \raise #2.0 \bigger \bold { "Moderate pop (*** CAPO 4 ***)" } }
56 \mark \markup { \override #'(font-family . sans) { \box { A } } }
71 \mark \markup { \override #'(font-family . sans) { \box { B } } }
80 \mark \markup { \override #'(font-family . sans) { \box { C } } }
95 \mark \markup { \override #'(font-family . sans) { \box { D } } }
100 \mark \markup { \override #'(font-family . sans) { \box { E } } }
104 s1*2 \bar "||" % 41-42
108 \mark \markup { \override #'(font-family . sans) { \box { F } } }
109 s1*7 \bar "|." % 43-49
116 LeadVox = \relative c'
118 % \set Staff.instrument = #"Lead vox"
120 \override Staff.TimeSignature #'style = #'()
122 % \override Score.SpacingSpanner #'average-spacing-wishes = ##f
123 \set tupletSpannerDuration = #(ly:make-moment 1 4)
134 r2 r8 cs16 e ~ e a8 a16 ~ | % 5
135 a16 d,8 d16 ~ d4 r2 | % 6
136 r2 r8 cs16 e ~ e a8 a16 ~ | % 7
137 a16 d,8 d16 ~ d4 r2 | % 8
138 r4 r8 a' b4 gs8 gs ~ | % 9
140 gs8 a ~ a2 cs,8 e ~ | % 11
144 e2-\repeatTie r4 r8 <a \hn e \hn cs \hn a> | % 13
148 <a \hn e \hn cs \hn a>2 ( <b \hn gs \hn e \hn gs,>4. <b \hn gs \hn e \hn gs,>16 a32 gs | % 14
149 <a \hn e \hn cs \hn fs>2 ) r8 <b \hn b,> \times 2/3 { <b \hn b,>8 <a \hn a,> <gs \hn gs,> ~ } | % 15
150 <gs \hn gs,>8 <a \hn a,> ~ <a \hn a,>4 r2 | % 16
151 r2 r4 r8 <a \hn e \hn cs \hn a> | % 17
152 <a \hn e \hn cs \hn a>2 ( <b \hn gs \hn e \hn gs,>4. <b \hn gs \hn e \hn gs,>16 a32 gs | % 18
153 <a \hn e \hn cs \hn fs>2 ) r8 <b \hn b,> \times 2/3 { <b \hn b,>8 <a \hn a,> <gs \hn gs,> ~ } | % 19
154 <gs \hn gs,>8 <a \hn a,> ~ <a \hn a,>4 r2 | % 20
159 r2 r8 <ds, \hn b>16 <fs \hn ds> ~ <fs \hn ds> <b \hn fs>8 <b \hn e,>16 ~ | % 22
160 <b \hn e,>16 <e, \hn b>8 <e \hn b>16 ~ <e \hn b>2 r4 | % 23
161 r2 r8 <ds \hn b>16 <fs \hn ds> ~ <fs \hn ds> <b \hn fs>8 <b \hn e,>16 ~ | % 24
162 <b \hn e,>16 <e, \hn b>8 <e \hn b>16 ~ <e \hn b>2 r4 | % 25
163 r4 r8 <b' \hn fs \hn ds \hn b> <cs \hn fs, \hn cs \hn as>4 <as \hn fs \hn cs \hn as>8 <as \hn ds, \hn as \hn gs> ~ | % 26
164 <as \hn ds, \hn as \hn gs>8 <b \hn ds, \hn b \hn gs> ~ <b \hn ds, \hn b \hn gs>4 r2 | % 27
165 as8 b ~ b2 ds,8 fs ~ | % 28
169 fs2-\repeatTie r4 r8 <b \hn fs \hn ds \hn b> | % 30
173 <b \hn fs \hn ds \hn b>2 ( <cs \hn as \hn fs \hn as,>4. ~ <cs \hn as \hn fs \hn as,>16 b32 as | % 31
174 <b \hn fs \hn ds \hn gs,>2 ) r8 <cs \hn cs,> \times 2/3 { <cs \hn cs,>8 <b \hn b,> <as \hn as,> ~ } | % 32
175 <as \hn as,>8 <b \hn b,> ~ <b \hn b,>4 r2 | % 33
176 r2 r4 r8 <b \hn fs \hn ds \hn b> | % 34
177 <b \hn fs \hn ds \hn b>2 ( <cs \hn as \hn fs \hn as,>4. ~ <cs \hn as \hn fs \hn as,>16 b32 as | % 35
178 <b \hn fs \hn ds \hn gs,>2 ) r8 <cs \hn cs,> \times 2/3 { <cs \hn cs,>8 <b \hn b,> <as \hn as,> ~ } | % 36
180 <as \hn as,>8 <b \hn b,> ~ <b \hn b,>4 r2 | % 37
181 r2 r8 <cs \hn cs,> \times 2/3 { <cs \hn cs,>8 <b \hn b,> <as \hn as,> ~ } | % 38
182 <as \hn as,>8 <b \hn b,> ~ <b \hn b,>4 r2 | % 39
183 r2 r8 <cs \hn cs,> \times 2/3 { <cs \hn cs,>8 <b \hn b,> <as \hn as,> ~ } | % 40
185 <as \hn as,>8 <b \hn b,> ~ <b \hn b,>4 r2 | % 41
190 r2 r8 ds,16 fs ~ fs b8 b16 ~ | % 43
191 b16 e,8 e16 ~ e2. | % 44
192 r2 r8 ds16 fs ~ fs b8 b16 ~ | % 45
193 b2. cs8. ( b16 ) | % 46
200 LeadVoxText = \lyricmode
202 This is _ the air _ I breathe, _
203 This is _ the air _ I breathe, _
204 Your ho -- ly pres -- _ cence, _
205 liv -- ing _ in me. _
210 I’m des -- p’rate for _ you, _
212 I’m lost with -- out _ you. _
214 This is _ the air _ I breathe, _
215 This is _ the air _ I breathe, _
216 Your ho -- ly pres -- _ cence, _
217 liv -- ing _ in me. _
222 I’m des -- p’rate for _ you, _
224 I’m lost with -- out _ you. _
226 I’m lost with -- out _ you. _
227 I’m lost with -- out _ you. _
229 This is _ the air _ I breathe. _
230 This is _ the air __ _ I __ _ breathe.
233 LeadVoxTextB = \lyricmode
235 This is _ my dai -- _ ly bread, _
236 This is _ my dai -- _ ly bread, _
237 Your ve -- ry word __ _ _ _
238 spo -- ken _ to me. _
247 This is _ my dai -- _ ly bread, _
248 This is _ my dai -- _ ly bread, _
249 Your ve -- ry word __ _ _ _
250 spo -- ken _ to me. _
258 % \override Score.SpacingSpanner #'average-spacing-wishes = ##f
259 \set tupletSpannerDuration = #(ly:make-moment 1 4)
264 <a b e>4 <a b e> <a b e> <a b e>
265 <a d e>4 <a d e> <a d e> <a d e>
266 <a b e>4 <a b e> <a b e> <a b e>
267 <a d e>4 <a d e> <a d e> <a d e>
313 b8:sus2 \parenthesize fs/b s2. | % 24
316 gs2:m7 fs:5.11 | % 27
319 fs2 fs4:sus4 fs | % 29
321 fs2 fs4:sus4 fs | % 30
328 fs2 fs4:sus4 fs | % 34
333 fs2 fs4:sus4 fs | % 38
335 fs2 fs4:sus4 fs | % 40
355 % Use a RhythmicStaff on the chords instead of this?
356 % It almost works, but not quite. Doesn't collapse chords above to single notes...
360 %% \set Voice.autoBeaming = ##f
361 %% \set Staff.instrument = #"Rhythm"
362 \override Staff.TimeSignature #'style = #'()
363 \override NoteHead #'style = #'slash
447 % s4_\markup { \italic { 1st X: Melody, 2nd X+: Solos } } s2. | % 5
449 % s4_\markup { \bold \italic { Double Chorus 2nd X } } s2. | % 39
451 % s4_\markup { \bold { Tutti } } s2. | % 47
454 % s4_\markup { \large \bold \italic { Solo } } s2 | % 40
467 s4_\markup { \bold \italic { rit. } } s2. | % 46
468 s4_\markup { \bold \italic { a tempo } } s2. | % 47
469 s2 s4_\markup { \bold \italic { rit. } } s | % 48
470 s4_\markup { \bold \italic { tutti } } s2. | % 49
477 \set Score.skipBars = ##t
478 \set Score.melismaBusyProperties = #'()
482 \new ChordNames \transpose a g \Chords
484 % \new ChordNames \transpose b g \Chords
485 \new RhythmicStaff << \Rhythm \Dynamics >>
490 \Global % The "roadmap" that everything else depends on
491 \new Voice = "lead" \transpose a g \LeadVox
492 \new Voice \transpose a g \Riffs
493 \new Lyrics \lyricsto "lead" \LeadVoxText
494 \new Lyrics \lyricsto "lead" \LeadVoxTextB
502 #(define fonts (make-pango-font-tree
508 % Spread staves vertically across last page (default: t)
509 ragged-last-bottom = ##f
510 % Don't spread staves vertically across the page (default: f)
511 % ragged-bottom = ##t
512 % Allow partial line for last stave (default: f)
515 % To find out what's eating the space at the top...
516 % annotate-spacing = ##t
517 %let's try this: [It works! Huzzah!]
518 obsolete-page-top-space = 0 top-system-spacing #'basic-distance = #(/ obsolete-page-top-space staff-space)