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 "Better Is One Day" }
18 composer = \markup { \override #'(font-family . sans) \fontsize #1.3 "Matt Redman" }
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)
49 \mark \markup { \override #'(font-family . sans) { \box { A } } }
51 s1*16 \bar "||" % 5-20
56 % \mark \markup { \override #'(font-family . sans) { \box { B } } }
57 \once \override Score.RehearsalMark #'self-alignment-X = #left
58 \mark \markup { \override #'(font-family . sans) { \box { B } } \hspace #1.0 \raise #2.0 \musicglyph #"scripts.segno" }
63 \once \override Score.RehearsalMark #'self-alignment-X = #right
64 \mark \markup { \italic { to Coda } \musicglyph #"scripts.coda" }
78 \mark \markup { \override #'(font-family . sans) { \box { C } } }
80 s1*10 \bar "||" % 32-41
82 \mark \markup { \override #'(font-family . sans) { \box { D } } }
84 s1^\markup { \italic { Repeat figure thru to D.S. } } | % 42
88 \once \override Score.RehearsalMark #'self-alignment-X = #right
89 \mark \markup { \hspace #0.0 \raise #1.0 \italic { D.S. al Coda } }
93 % blank measure between last measure and coda
94 % \stopStaff s1 \bar "" \startStaff % That removed the spurious floating bar line from line break
95 \stopStaff s1 \startStaff % That removed the spurious floating bar line from line break
97 \set Score.currentBarNumber = #54
99 \once \override Score.RehearsalMark #'self-alignment-X = #left
100 \mark \markup { { \musicglyph #"scripts.coda" } "Coda" }
108 \mark \markup { \override #'(font-family . sans) { \box { E } } }
124 \mark \markup { \override #'(font-family . sans) { \box { F } } }
126 s1*7 \bar "|." % 60-66
133 LeadVox = \relative c'
136 \override Score.SpacingSpanner #'average-spacing-wishes = ##f
147 r4 r8 e e4 cs8 cs ~ | % 7
148 cs8 b ~ b4 r r8 e8 | % 8
155 r4 r8 e e4 gs8 gs ~ | % 15
156 gs8 fs ~ fs4 r r8 e | % 16
159 gs8 ( fs ) ~ fs2. | % 19
160 r2 r4 <gs \hn e>16 <b \hn gs> <b \hn gs>8 | % 20
164 <b \hn gs>8 <b \hn gs> <b \hn gs> <b \hn gs> <e, \hn cs>4 <gs \hn e>16 <b \hn gs> <b \hn gs>8 | % 21
165 <b \hn gs>8 <b \hn gs> <b \hn gs> <b \hn gs> <cs \hn fs,>4 <cs \hn e,>16 <b \hn gs> <b \hn gs>8 | % 22
166 <b \hn gs>8 <b \hn gs> <b \hn gs> <b \hn gs> <e, \hn cs>8. e16 a8 gs | % 23
167 gs8 fs ~ fs2 <gs \hn e>16 <b \hn gs> <b \hn gs>8 | % 24
168 <b \hn gs>8 <b \hn gs> <b \hn gs> <b \hn gs> <e, \hn cs>4 <gs \hn e>16 <b \hn gs> <b \hn gs>8 | % 25
169 <b \hn gs>8 <b \hn gs> <b \hn gs> <b \hn gs> <cs \hn fs,>4 <cs \hn e,>16 <b \hn gs> <b \hn gs>8 | % 26
170 <b \hn gs>8 <b \hn gs> <b \hn gs> <b \hn gs> <e, \hn cs>8. e16 <a \hn fs>8 <gs \hn e> | % 27
172 <gs \hn e>8 <fs \hn ds> ~ <fs \hn ds>4 ~ <fs \hn ds>8. e16 fs8. e16 | % 28
176 <gs \hn e>8 <fs \hn ds> ~ <fs \hn ds>2. | % 31
180 r8 gs gs gs gs gs b4 | % 32
181 r8 gs gs gs b cs gs16 ( fs ) ~ fs8 | % 33
182 r8 gs gs gs gs gs gs fs | % 34
183 fs16 ( e ) ~ e8 ~ e2 r4 | % 35
184 r8 gs gs gs gs gs b4 | % 36
185 r8 gs gs gs b cs gs16 ( fs ) ~ fs8 | % 37
186 r8 gs gs gs gs fs e4 | % 38
187 r8 <gs \hn e>8 <gs \hn e> <gs \hn e> <b \hn gs>4 <cs \hn a>8 <cs \hn a> ~ | % 39
188 <cs \hn a>2. <e \hn a,>8 <e \hn a,> ~ | % 40
196 r2 r4 gs,16 b b8 | % 45
197 << { \voiceOne cs4. b8 ~ b2 ~ } \new Voice = "v2" { \voiceTwo r2 r4 gs16 b b8 } >> | % 46
198 % << { \voiceOne b2. } \context Voice = "v2" { \voiceTwo cs4. b8 ~ b4 } >> gs16 b b8 | % 47
199 %bleh, unnecessary crap but doesn't work otherwise (lyrics go missing)
200 << { b2. gs16 b b8 } \context Voice = "v2" { \voiceTwo cs4. b8 ~ b4 s } >> | % 47
201 << { \stemDown cs4. b8 ~ \stemNeutral b8. gs16 a8. gs16 } \context Voice = "v2" { \voiceTwo s1 } >> | % 48
202 << { gs8 fs ~ fs2 gs16 b b8 } \context Voice = "v2" { \voiceTwo s1 } >> | % 49
204 << { \voiceOne cs4. b8 ~ b2 ~ } \context Voice = "v2" { \voiceTwo r2 r4 gs16 b b8 } >> | % 50
205 << { \voiceOne b2. } \context Voice = "v2" { \voiceTwo cs4. b8 ~ b4 } >> \oneVoice gs16 b b8 | % 51
206 cs4. b8 ~ b8. gs16 a8. gs16 | % 52
207 gs8 fs ~ fs2 <gs \hn e>16 <b \hn gs> <b \hn gs>8 | % 53
211 s1 | % blank measure for coda
213 <gs \hn e>8 <fs \hn ds> ~ <fs \hn ds>2 <gs \hn e>16 <b \hn gs> <b \hn gs>8 | % 54
215 <b \hn gs>8 <b \hn gs> <b \hn gs> <b \hn gs> <e, \hn cs>4 <gs \hn e>16 <b \hn gs> <b \hn gs>8 | % 55
216 <b \hn gs>8 <b \hn gs> <b \hn gs> <b \hn gs> <cs \hn fs,>4 <cs \hn e,>16 <b \hn gs> <b \hn gs>8 | % 56
217 <b \hn gs>8 <b \hn gs> <b \hn gs> <b \hn gs> <e, \hn cs>8. e16 <a \hn fs>8 <gs \hn e> | % 57
219 <gs \hn e>8 <fs \hn ds> ~ <fs \hn ds>2 <gs \hn e>16 <b \hn gs> <b \hn gs>8 | % 58
221 <gs \hn e>8 <fs \hn ds> ~ <fs \hn ds>4 ~ <fs \hn ds>8. e16 fs8. gs16 | % 59
226 r2 r8 r16 e fs8. gs16 | % 61
228 r2 r8 r16 e fs8. gs16 | % 63
230 r2 r8 r16 e fs8. gs16 | % 65
231 fs8 e ~ e2.-\fermata | % 66
234 LeadVoxText = \lyricmode
236 How love -- ly is your dwell -- ing place,
237 O lord Al -- migh -- _ ty. _
238 For my soul longs and e -- ven faints for you.
239 For here my heart is sat -- is -- fied
240 with -- in your pres -- _ ence. _
241 I sing be -- neath the sha -- dow of your wings. _ _
243 Bet -- ter is one day in your courts,
244 bet -- ter is one day in your house,
245 Bet -- ter is one day in your courts
246 than thou -- sands else -- where, _
247 Bet -- ter is one day in your courts,
248 bet -- ter is one day in your house,
249 Bet -- ter is one day in your courts
250 than thou -- sands else -- where, _ _
251 than thou -- sands else -- where. _
256 My heart and flesh cry out
257 for you, the liv -- ing God, _ _
258 Your spi -- rit's wa -- ter to my soul. _ _ _
259 I've tast -- ed and I've seen;
260 Come once a -- gain to me, _ _
261 I will draw near to you,
262 I will draw near to you, _
265 Bet -- ter is one day, __ _ _
266 Bet -- ter is one day _
267 than thou -- sands else -- where, _
268 Bet -- ter is one day, __ _ _
269 Bet -- ter is one day _
270 than thou -- sands else -- where, _
275 Bet -- ter is one day in your courts,
276 bet -- ter is one day in your house,
277 Bet -- ter is one day in your courts
278 than thou -- sands else -- where, _
283 than thou -- sands else -- where. _
284 Than thou -- sands else -- where. _
285 Than thou -- sands else -- where. _
286 Than thou -- sands else -- where. _
289 LeadVoxTextB = \lyricmode
291 _ thing I ask and I would seek,
292 to see your beau -- _ ty, _
293 to find you in the place your glo -- ry dwells.
294 One thing I sak and I would seek,
295 to see your beau -- _ ty, _
296 to find you in the place your glo -- ry dwells. _ _
299 LeadVoxEcho = \lyricmode
301 Bet -- ter is one day _
302 Bet -- ter is one day
309 Riffs = \relative c''
316 e8 b ds b cs b ds b | % 42
317 e8 b ds b cs b ds b | % 43
318 e8 b ds b cs b ds b | % 44
357 a2.:sus2 a4/cs | % 23
358 b2:sus4 b4 e/gs | % 24
361 a2.:sus2 a4/cs | % 27
372 a2.:sus2 b4:sus4 | % 33
374 a2.:sus2 b4:sus4 | % 35
376 a2.:sus2 b4:sus4 | % 37
388 a2.:sus2 a4/cs | % 48
391 b2.:sus4 e4/gs | % 51
393 b2.:sus4 e4/gs | % 53
397 % blank measure between last measure and coda
400 b2:sus4 b4 e/gs | % 54
404 a2.:sus2 a4/cs | % 57
406 b2:sus4 b4 e/gs | % 58
426 % Use a RhythmicStaff on the chords instead of this?
427 % It almost works, but not quite. Doesn't collapse chords above to single notes...
431 \numericTimeSignature
432 \override NoteHead #'style = #'slash
505 % blank measure between last measure and coda
506 %hm. Shouldn't need /startStaff /stopStaff... !!! FIX !!!
507 \stopStaff s1 \startStaff
533 %Hmm, this is throwin off the layout...
553 \Global % The "roadmap" that everything else depends on
557 \new Voice = "lead" \LeadVox
559 \new Lyrics \lyricsto "lead" \LeadVoxText
560 \new Lyrics \lyricsto "lead" \LeadVoxTextB
561 \new Lyrics \lyricsto "v2" \LeadVoxEcho
566 \new ChordNames \Chords
568 % \new ChordNames \transpose f d \Chords
569 \new RhythmicStaff << \Rhythm \Dynamics >>
572 \set Score.skipBars = ##t
573 \set Score.melismaBusyProperties = #'()
580 #(define fonts (make-pango-font-tree
586 % Don't spread staves vertically across last page (default: t)
587 % ragged-last-bottom = ##f
588 % Don't spread staves vertically across the page (default: f)
589 % ragged-bottom = ##t
590 % Allow partial line for last stave (default: f)
593 % To find out what's eating the space at the top...
594 % annotate-spacing = ##t