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 "Fall On Me" }
18 % composer = \markup { \override #'(font-family . sans) \fontsize #1.3 "" }
19 arranger = \markup { \override #'(font-family . sans) \fontsize #1.3 "arr. Ed Smart" }
20 tagline = $(string-append "Engraved by JLH and Lilypond " (lilypond-version))
23 % Useful tweak abbreviations (hn = harmony note)
25 hn = #(define-music-function (parser location arg) (ly:music?)
26 ;; Harmony Note: Set the tweaks property of the passed in note to use a smaller font
28 (set! (ly:music-property arg 'tweaks)
29 (acons 'font-size -3.5 (ly:music-property arg 'tweaks))) arg)
38 \override Staff.TimeSignature #'style = #'()
48 % \once \override TextScript #'padding = #2.0
49 % s1*0^\markup { \large \bold { Moderately fast pop } }
51 %% s1*0^\markup { \large \bold { Moderately fast pop "(*** CAPO 3 ***)" } }
52 % s1*13 \bar "||:" % 1-13
56 \mark \markup { \override #'(font-family . sans) { \box { A } } }
64 \mark \markup { \override #'(font-family . sans) { \box { B } } }
67 \once \override Score.RehearsalMark #'self-alignment-X = #left
68 \mark \markup { \musicglyph #"scripts.coda" \italic { to Coda } }
69 s1*2 \bar "||" % 41-42
73 \mark \markup { \override #'(font-family . sans) { \box { C } } }
80 % blank measure between last measure and coda
81 % \stopStaff s1 \bar "" \startStaff % That removed the spurious floating bar line from line break
82 \stopStaff s1 \startStaff % That removed the spurious floating bar line from line break
84 \set Score.currentBarNumber = #59
86 \once \override Score.RehearsalMark #'self-alignment-X = #left
87 \mark \markup { { \musicglyph #"scripts.coda" } "Coda" }
91 % \mark \markup { \override #'(font-family . sans) { \box { D } } }
103 LeadVox = \relative c'
106 \override Score.SpacingSpanner #'average-spacing-wishes = ##f
115 <a \hn cs,>8 <gs \hn b,> ~ <gs \hn b,>2 r4 | % 5
116 <fs \hn b,>4. ( <e \hn gs,>8 ) ~ <e \hn gs,>2 | % 6
117 r2 <a \hn cs,>4 << { \voiceOne gs8 ( fs ) } \new Voice = "v" { \voiceTwo \once \override NoteHead #'font-size = #-3.5 a,4 } >> \oneVoice | % 7
118 %disnowok r2 <a \hn cs,>4 << { \voiceOne gs8 ( fs ) } \new Voice = "v" { \voiceTwo \hn a,4 } >> \oneVoice | %
119 %Also, the << \\ >> notation doesn't track lyrics correctly... Grrrrrrrrrrrrrr
120 <fs' \hn b,>2. <e \hn gs,>8 <fs \hn a,> | % 8
121 <a \hn cs,>8 <gs \hn b,> ~ <gs \hn b,>2 r4 | % 9
122 <fs \hn b,>4. ( <e \hn gs,>8 ) ~ <e \hn gs,>2 | % 10
123 r2 <a \hn cs,>4 << { \voiceOne gs8 ( fs ) } \new Voice = "v" { \voiceTwo \once \override NoteHead #'font-size = #-3.5 a,4 } >> \oneVoice | % 11
124 <fs' \hn b,>2 r4 <fs \hn b,>8 <cs' \hn gs \hn e> ( | % 12
126 <b \hn fs \hn ds>8 ) <b \hn fs \hn ds> ~ <b \hn fs \hn ds>2. | % 13
127 r2 r4 <e, \hn b>8 <b' \hn gs \hn e> ( | % 14
128 <a \hn e \hn cs>8 ) <a \hn e \hn cs> ~ <a \hn e \hn cs>2. | % 15
129 r2 r4 <e \hn c>8 <a \hn fs \hn ds> ( | % 16
130 <gs \hn e \hn cs>8 ) <gs \hn e \hn cs> ~ <gs \hn e \hn cs>2. | % 17
138 r2 r4 <e \hn gs,>8 <fs \hn a,> | % 24
142 <a \hn cs,>8 <gs \hn b,> ~ <gs \hn b,>2 r4 | % 25
143 <fs \hn b,>4. ( <e \hn gs,>8 ) ~ <e \hn gs,>2 | % 26
144 r2 <a \hn cs,>4 << { \voiceOne gs8 ( fs ) } \new Voice = "v" { \voiceTwo \once \override NoteHead #'font-size = #-3.5 a,4 } >> \oneVoice | % 27
145 %disnowok r2 <a \hn cs,>4 << { \voiceOne gs8 ( fs ) } \new Voice = "v" { \voiceTwo \hn a,4 } >> \oneVoice | %
146 %Also, the << \\ >> notation doesn't track lyrics correctly... Grrrrrrrrrrrrrr
147 <fs' \hn b,>2. <e \hn gs,>8 <fs \hn a,> | % 28
148 <a \hn cs,>8 <gs \hn b,> ~ <gs \hn b,>2 r4 | % 29
149 <fs \hn b,>4. ( <e \hn gs,>8 ) ~ <e \hn gs,>2 | % 30
150 r2 <a \hn cs,>4 << { \voiceOne gs8 ( fs ) } \new Voice = "v" { \voiceTwo \once \override NoteHead #'font-size = #-3.5 a,4 } >> \oneVoice | % 31
151 <fs' \hn b,>2 r4 <fs \hn b,>8 <cs' \hn gs \hn e> ( | % 32
153 <b \hn fs \hn ds>8 ) <b \hn fs \hn ds> ~ <b \hn fs \hn ds>2. | % 33
154 r2 r4 <e, \hn b>8 <b' \hn gs \hn e> ( | % 34
155 <a \hn e \hn cs>8 ) <a \hn e \hn cs> ~ <a \hn e \hn cs>2. | % 35
156 r2 r4 <e \hn c>8 <a \hn fs \hn ds> ( | % 36
157 <gs \hn e \hn cs>8 ) <gs \hn e \hn cs> ~ <gs \hn e \hn cs>2. | % 37
167 r2 gs8. fs16 ~ fs e e8 ~ | % 43
169 r2 \times 2/3 { b'4 a gs } | % 45
170 a8 gs4 e8 ~ e2 | % 46
171 r4 e8 e a gs fs fs ~ | % 47
172 fs8 gs ~ gs4 r b,8 gs' ~ | % 48
176 r2 <gs \hn cs,>8. <fs \hn cs>16 ~ <fs \hn cs> <e \hn b> <e \hn b>8 ~ | % 51
178 r4 r8 <e \hn b>8 <b' \hn e,>4. <a \hn cs,>16 <gs \hn b,> | % 53
179 <a \hn cs,>8 <gs \hn b,> <e \hn a,>2. | % 54
180 r4 r8 <e \hn c>16 <e \hn c> <a \hn e>4. <gs \hn c,>16 <fs \hn c> | % 55
181 <fs \hn b,>8 <gs \hn b,> ~ <gs \hn b,>4 r b,8 <gs' \hn e \hn cs> ~ | % 56
182 <gs \hn e \hn cs>8 <fs \hn e \hn b> ~ ( <fs \hn e \hn b>2. | % 57
183 <fs \hn ds \hn b>2 ) r4 <e \hn gs,>8 <fs \hn a,> | % 58
197 LeadVoxText = \lyricmode
199 Ho -- ly Spi -- rit, _ fall, _ _
201 Ho -- ly Spi -- rit, _ fall, _ _
204 On my _ hands, _ on my _ feet, _
205 on my _ heart, _ ev’ -- ry part
208 Ho -- ly Spi -- rit, _ fall, _ _
210 Ho -- ly Spi -- rit, _ fall, _ _
213 On my _ hands, _ on my _ feet, _
214 on my _ heart, _ ev’ -- ry part
217 Spi -- rit _ of peace, _
218 sent by the Fa -- ther’s hand, _
219 Change my life with your pre -- _ sence, _
222 Pour o -- _ ver me, _
223 like rain on a thirs -- ty land,
224 Make a stream in the de -- sert _
241 r8 b e fs ~ fs e ~ e4 | % 1
242 r8 b e fs ~ fs e ~ e4 | % 2
243 r8 a, e' fs ~ fs e ~ e4 | % 3
244 r8 b e fs ~ fs4 s | % 4
262 d8 ef4 f8 ~ f4 bf-. | % 12
268 r8 df df df df ( c ) bf4 | % 83
280 %Bah, can't we set this globally?
307 fs2:m7 e:sus2/gs | % 19
332 fs2:m7 e:sus2/gs | % 39
375 % Use a RhythmicStaff on the chords instead of this?
376 % It almost works, but not quite. Doesn't collapse chords above to single notes...
380 \override Staff.TimeSignature #'style = #'()
381 \override NoteHead #'style = #'slash
460 %Hmm, Global didn't affect this...
461 \stopStaff s1 \startStaff
476 s4_\markup { \italic { Ac. gtr only } } s2. | % 1
480 s4_\markup { \italic { Band in } } s2. | % 5
488 \Global % The "roadmap" that everything else depends on
492 \context Staff << \new Voice = "lead" \LeadVox \new Voice \Riffs >>
493 \new Lyrics \lyricsto "lead" \LeadVoxText
498 \new ChordNames \Chords
500 % \new ChordNames \transpose f d \Chords
501 \new RhythmicStaff << \Rhythm \Dynamics >>
504 \set Score.skipBars = ##t
505 \set Score.melismaBusyProperties = #'()
512 #(define fonts (make-pango-font-tree
518 % Spread staves vertically across last page (default: t)
519 % ragged-last-bottom = ##f
520 % Don't spread staves vertically across the page (default: f)
521 % ragged-bottom = ##t
523 % To find out what's eating the space at the top...
524 % annotate-spacing = ##t
525 %let's try this: [It works! Huzzah!]
526 obsolete-page-top-space = 0 top-system-spacing #'basic-distance = #(/ obsolete-page-top-space staff-space)