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
43 s1*0^\markup { \italic \bold { 8th-note ballad } }
45 % s1*0^\markup { \hspace #0.0 \raise #2.0 \bigger \bold { "Moderate pop (*** CAPO 4 ***)" } }
55 \mark \markup { \override #'(font-family . sans) { \box { A } } }
70 \mark \markup { \override #'(font-family . sans) { \box { B } } }
79 \mark \markup { \override #'(font-family . sans) { \box { C } } }
94 \mark \markup { \override #'(font-family . sans) { \box { D } } }
99 \mark \markup { \override #'(font-family . sans) { \box { E } } }
103 s1*2 \bar "||" % 41-42
107 \mark \markup { \override #'(font-family . sans) { \box { F } } }
108 s1*7 \bar "|." % 43-49
115 LeadVox = \relative c'
118 \set tupletSpannerDuration = #(ly:make-moment 1 4)
129 r2 r8 cs16 e ~ e a8 a16 ~ | % 5
130 a16 d,8 d16 ~ d4 r2 | % 6
131 r2 r8 cs16 e ~ e a8 a16 ~ | % 7
132 a16 d,8 d16 ~ d4 r2 | % 8
133 r4 r8 a' b4 gs8 gs ~ | % 9
135 gs8 a ~ a2 cs,8 e ~ | % 11
139 e2-\repeatTie r4 r8 <a \hn e \hn cs \hn a> | % 13
143 <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
144 <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
145 <gs \hn gs,>8 <a \hn a,> ~ <a \hn a,>4 r2 | % 16
146 r2 r4 r8 <a \hn e \hn cs \hn a> | % 17
147 <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
148 <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
149 <gs \hn gs,>8 <a \hn a,> ~ <a \hn a,>4 r2 | % 20
154 r2 r8 <ds, \hn b>16 <fs \hn ds> ~ <fs \hn ds> <b \hn fs>8 <b \hn e,>16 ~ | % 22
155 <b \hn e,>16 <e, \hn b>8 <e \hn b>16 ~ <e \hn b>2 r4 | % 23
156 r2 r8 <ds \hn b>16 <fs \hn ds> ~ <fs \hn ds> <b \hn fs>8 <b \hn e,>16 ~ | % 24
157 <b \hn e,>16 <e, \hn b>8 <e \hn b>16 ~ <e \hn b>2 r4 | % 25
158 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
159 <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
160 as8 b ~ b2 ds,8 fs ~ | % 28
164 fs2-\repeatTie r4 r8 <b \hn fs \hn ds \hn b> | % 30
168 <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
169 <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
170 <as \hn as,>8 <b \hn b,> ~ <b \hn b,>4 r2 | % 33
171 r2 r4 r8 <b \hn fs \hn ds \hn b> | % 34
172 <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
173 <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
175 <as \hn as,>8 <b \hn b,> ~ <b \hn b,>4 r2 | % 37
176 r2 r8 <cs \hn cs,> \times 2/3 { <cs \hn cs,>8 <b \hn b,> <as \hn as,> ~ } | % 38
177 <as \hn as,>8 <b \hn b,> ~ <b \hn b,>4 r2 | % 39
178 r2 r8 <cs \hn cs,> \times 2/3 { <cs \hn cs,>8 <b \hn b,> <as \hn as,> ~ } | % 40
180 <as \hn as,>8 <b \hn b,> ~ <b \hn b,>4 r2 | % 41
185 r2 r8 ds,16 fs ~ fs b8 b16 ~ | % 43
186 b16 e,8 e16 ~ e2. | % 44
187 r2 r8 ds16 fs ~ fs b8 b16 ~ | % 45
188 b2. cs8. ( b16 ) | % 46
195 LeadVoxText = \lyricmode
197 This is _ the air _ I breathe, _
198 This is _ the air _ I breathe, _
199 Your ho -- ly pres -- _ cence, _
200 liv -- ing _ in me. _
205 I’m des -- p’rate for _ you, _
207 I’m lost with -- out _ you. _
209 This is _ the air _ I breathe, _
210 This is _ the air _ I breathe, _
211 Your ho -- ly pres -- _ cence, _
212 liv -- ing _ in me. _
217 I’m des -- p’rate for _ you, _
219 I’m lost with -- out _ you. _
221 I’m lost with -- out _ you. _
222 I’m lost with -- out _ you. _
224 This is _ the air _ I breathe. _
225 This is _ the air __ _ I __ _ breathe.
228 LeadVoxTextB = \lyricmode
230 This is _ my dai -- _ ly bread, _
231 This is _ my dai -- _ ly bread, _
232 Your ve -- ry word __ _ _ _
233 spo -- ken _ to me. _
242 This is _ my dai -- _ ly bread, _
243 This is _ my dai -- _ ly bread, _
244 Your ve -- ry word __ _ _ _
245 spo -- ken _ to me. _
251 \set tupletSpannerDuration = #(ly:make-moment 1 4)
256 <a b e>4 <a b e> <a b e> <a b e>
257 <a d e>4 <a d e> <a d e> <a d e>
258 <a b e>4 <a b e> <a b e> <a b e>
259 <a d e>4 <a d e> <a d e> <a d e>
305 b8:sus2 \parenthesize fs/b s2. | % 24
308 gs2:m7 fs:3.5.11 | % 27
311 fs2 fs4:sus4 fs | % 29
313 fs2 fs4:sus4 fs | % 30
320 fs2 fs4:sus4 fs | % 34
325 fs2 fs4:sus4 fs | % 38
327 fs2 fs4:sus4 fs | % 40
347 % Use a RhythmicStaff on the chords instead of this?
348 % It almost works, but not quite. Doesn't collapse chords above to single notes...
352 \override Staff.TimeSignature #'style = #'()
353 \override NoteHead #'style = #'slash
354 %Not small enough... (?)
447 s4_\markup { \bold \italic { rit. } } s2. | % 46
448 s4_\markup { \bold \italic { a tempo } } s2. | % 47
449 s2 s4_\markup { \bold \italic { rit. } } s | % 48
450 s4_\markup { \bold \italic { tutti } } s2. | % 49
457 \set Score.skipBars = ##t
458 \set Score.melismaBusyProperties = #'()
462 \Global % The "roadmap" that everything else depends on
463 \new Voice = "lead" \transpose a g \LeadVox
464 \new Voice \transpose a g \Riffs
465 \new Lyrics \lyricsto "lead" \LeadVoxText
466 \new Lyrics \lyricsto "lead" \LeadVoxTextB
471 \new ChordNames \transpose a g \Chords
473 % \new ChordNames \transpose b g \Chords
474 \new RhythmicStaff << \Rhythm \Dynamics >>
482 #(define fonts (make-pango-font-tree
488 % Spread staves vertically across last page (default: t)
489 % ragged-last-bottom = ##f
490 % Don't spread staves vertically across the page (default: f)
491 % ragged-bottom = ##t
492 % Allow partial line for last stave (default: f)
495 % To find out what's eating the space at the top...
496 % annotate-spacing = ##t