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 title = \markup { \override #'(font-family . sans) \fontsize #3.5 "Fall On Me" }
16 % composer = \markup { \override #'(font-family . sans) \fontsize #1.3 "" }
17 arranger = \markup { \override #'(font-family . sans) \fontsize #1.3 "arr. Ed Smart" }
18 tagline = $(string-append "Engraved by JLH and Lilypond " (lilypond-version))
21 % Useful tweak abbreviations (hn = harmony note)
23 hn = #(define-music-function (parser location arg) (ly:music?)
24 ;; Harmony Note: Set the tweaks property of the passed in note to use a smaller font
26 (set! (ly:music-property arg 'tweaks)
27 (acons 'font-size -3.5 (ly:music-property arg 'tweaks))) arg)
46 % \once \override TextScript #'padding = #2.0
47 % s1*0^\markup { \large \bold { Moderately fast pop } }
49 %% s1*0^\markup { \large \bold { Moderately fast pop "(*** CAPO 3 ***)" } }
50 % s1*13 \bar "||:" % 1-13
54 \mark \markup { \override #'(font-family . sans) { \box { A } } }
62 \mark \markup { \override #'(font-family . sans) { \box { B } } }
65 \once \override Score.RehearsalMark #'self-alignment-X = #left
66 \mark \markup { \musicglyph #"scripts.coda" \italic { to Coda } }
67 s1*2 \bar "||" % 41-42
71 \mark \markup { \override #'(font-family . sans) { \box { C } } }
78 % blank measure between last measure and coda
79 \stopStaff s1 \bar "" \startStaff % That removed the spurious floating bar line from line break
80 % \stopStaff s1 \startStaff % This is needed only because the above has to be enabled IFF the coda starts on a new line...:-P
82 \set Score.currentBarNumber = #59
84 \once \override Score.RehearsalMark #'self-alignment-X = #left
85 \mark \markup { { \musicglyph #"scripts.coda" } "Coda" }
89 % \mark \markup { \override #'(font-family . sans) { \box { D } } }
101 LeadVox = \relative c'
112 <a \hn cs,>8 <gs \hn b,> ~ <gs \hn b,>2 r4 | % 5
113 <fs \hn b,>4. ( <e \hn gs,>8 ) ~ <e \hn gs,>2 | % 6
114 r2 <a \hn cs,>4 << { \voiceOne gs8 ( fs ) } \new Voice = "v" { \voiceTwo \once \override NoteHead #'font-size = #-3.5 a,4 } >> \oneVoice | % 7
115 %disnowok r2 <a \hn cs,>4 << { \voiceOne gs8 ( fs ) } \new Voice = "v" { \voiceTwo \hn a,4 } >> \oneVoice | %
116 %Also, the << \\ >> notation doesn't track lyrics correctly... Grrrrrrrrrrrrrr
117 <fs' \hn b,>2. <e \hn gs,>8 <fs \hn a,> | % 8
118 <a \hn cs,>8 <gs \hn b,> ~ <gs \hn b,>2 r4 | % 9
119 <fs \hn b,>4. ( <e \hn gs,>8 ) ~ <e \hn gs,>2 | % 10
120 r2 <a \hn cs,>4 << { \voiceOne gs8 ( fs ) } \new Voice = "v" { \voiceTwo \once \override NoteHead #'font-size = #-3.5 a,4 } >> \oneVoice | % 11
121 <fs' \hn b,>2 r4 <fs \hn b,>8 <cs' \hn gs \hn e> ( | % 12
123 <b \hn fs \hn ds>8 ) <b \hn fs \hn ds> ~ <b \hn fs \hn ds>2. | % 13
124 r2 r4 <e, \hn b>8 <b' \hn gs \hn e> ( | % 14
125 <a \hn e \hn cs>8 ) <a \hn e \hn cs> ~ <a \hn e \hn cs>2. | % 15
126 r2 r4 <e \hn c>8 <a \hn fs \hn ds> ( | % 16
127 <gs \hn e \hn cs>8 ) <gs \hn e \hn cs> ~ <gs \hn e \hn cs>2. | % 17
135 r2 r4 <e \hn gs,>8 <fs \hn a,> | % 24
139 <a \hn cs,>8 <gs \hn b,> ~ <gs \hn b,>2 r4 | % 25
140 <fs \hn b,>4. ( <e \hn gs,>8 ) ~ <e \hn gs,>2 | % 26
141 r2 <a \hn cs,>4 << { \voiceOne gs8 ( fs ) } \new Voice = "v" { \voiceTwo \once \override NoteHead #'font-size = #-3.5 a,4 } >> \oneVoice | % 27
142 %disnowok r2 <a \hn cs,>4 << { \voiceOne gs8 ( fs ) } \new Voice = "v" { \voiceTwo \hn a,4 } >> \oneVoice | %
143 %Also, the << \\ >> notation doesn't track lyrics correctly... Grrrrrrrrrrrrrr
144 <fs' \hn b,>2. <e \hn gs,>8 <fs \hn a,> | % 28
145 <a \hn cs,>8 <gs \hn b,> ~ <gs \hn b,>2 r4 | % 29
146 <fs \hn b,>4. ( <e \hn gs,>8 ) ~ <e \hn gs,>2 | % 30
147 r2 <a \hn cs,>4 << { \voiceOne gs8 ( fs ) } \new Voice = "v" { \voiceTwo \once \override NoteHead #'font-size = #-3.5 a,4 } >> \oneVoice | % 31
148 <fs' \hn b,>2 r4 <fs \hn b,>8 <cs' \hn gs \hn e> ( | % 32
150 <b \hn fs \hn ds>8 ) <b \hn fs \hn ds> ~ <b \hn fs \hn ds>2. | % 33
151 r2 r4 <e, \hn b>8 <b' \hn gs \hn e> ( | % 34
152 <a \hn e \hn cs>8 ) <a \hn e \hn cs> ~ <a \hn e \hn cs>2. | % 35
153 r2 r4 <e \hn c>8 <a \hn fs \hn ds> ( | % 36
154 <gs \hn e \hn cs>8 ) <gs \hn e \hn cs> ~ <gs \hn e \hn cs>2. | % 37
164 r2 gs8. fs16 ~ fs e e8 ~ | % 43
166 r2 \times 2/3 { b'4 a gs } | % 45
167 a8 gs4 e8 ~ e2 | % 46
168 r4 e8 e a gs fs fs ~ | % 47
169 fs8 gs ~ gs4 r b,8 gs' ~ | % 48
173 r2 <gs \hn cs,>8. <fs \hn cs>16 ~ <fs \hn cs> <e \hn b> <e \hn b>8 ~ | % 51
175 r4 r8 <e \hn b>8 <b' \hn e,>4. <a \hn cs,>16 <gs \hn b,> | % 53
176 <a \hn cs,>8 <gs \hn b,> <e \hn a,>2. | % 54
177 r4 r8 <e \hn c>16 <e \hn c> <a \hn e>4. <gs \hn c,>16 <fs \hn c> | % 55
178 <fs \hn b,>8 <gs \hn b,> ~ <gs \hn b,>4 r b,8 <gs' \hn e \hn cs> ~ | % 56
179 <gs \hn e \hn cs>8 <fs \hn e \hn b> ~ ( <fs \hn e \hn b>2. | % 57
180 <fs \hn ds \hn b>2 ) r4 <e \hn gs,>8 <fs \hn a,> | % 58
194 LeadVoxText = \lyricmode
196 Ho -- ly Spi -- rit, _ fall, _ _
198 Ho -- ly Spi -- rit, _ fall, _ _
201 On my _ hands, _ on my _ feet, _
202 on my _ heart, _ ev’ -- ry part
205 Ho -- ly Spi -- rit, _ fall, _ _
207 Ho -- ly Spi -- rit, _ fall, _ _
210 On my _ hands, _ on my _ feet, _
211 on my _ heart, _ ev’ -- ry part
214 Spi -- rit _ of peace, _
215 sent by the Fa -- ther’s hand, _
216 Change my life with your pre -- _ sence, _
219 Pour o -- _ ver me, _
220 like rain on a thirs -- ty land,
221 Make a stream in the de -- sert _
238 r8 b e fs ~ fs e ~ e4 | % 1
239 r8 b e fs ~ fs e ~ e4 | % 2
240 r8 a, e' fs ~ fs e ~ e4 | % 3
241 r8 b e fs ~ fs4 s | % 4
275 fs2:m7 e:sus2/gs | % 19
300 fs2:m7 e:sus2/gs | % 39
343 % Use a RhythmicStaff on the chords instead of this?
344 % It almost works, but not quite. Doesn't collapse chords above to single notes...
348 \numericTimeSignature
349 \override NoteHead #'style = #'slash
429 %Hmm, Global didn't affect this...
430 \stopStaff s1 \startStaff
445 s4_\markup { \italic { Ac. gtr only } } s2. | % 1
449 s4_\markup { \italic { Band in } } s2. | % 5
457 \Global % The "roadmap" that everything else depends on
461 \new Voice = "lead" \LeadVox
463 \new Lyrics \lyricsto "lead" \LeadVoxText
468 \new ChordNames \Chords
470 % \new ChordNames \transpose f d \Chords
471 \new RhythmicStaff << \Rhythm \Dynamics >>
474 \set Score.skipBars = ##t
475 \set Score.melismaBusyProperties = #'()
482 #(define fonts (make-pango-font-tree
488 % Don't 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