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))
13 %Let's bump up the title size and switch to the chord font. :-)
15 title = \markup { \override #'(font-family . sans) \fontsize #3.5 "He Leadeth Me" }
16 % composer = \markup { \override #'(font-family . sans) \fontsize #1.3 "Fernando Ortega" }
17 arranger = \markup { \override #'(font-family . sans) \fontsize #1.3 "arr. Ed Smart" }
18 tagline = "Engraved by JLH and Lilypond 2.8.2"
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.0 (ly:music-property arg 'tweaks))) arg)
34 LeadVox = \relative c''
36 % \set Voice.autoBeaming = ##f
37 % \set Staff.instrumentName = #"Lead vox"
40 \override Staff.TimeSignature #'style = #'()
42 \override Score.SpacingSpanner #'average-spacing-wishes = ##f
53 \voiceTwo r2 r4 g \oneVoice | % 8
59 \mark \markup { \override #'(font-family . sans) { \box { A } } }
63 g4. e8 e4 d8 ( c ) | % 11
66 a4 f c' b8 ( a ) | % 14
67 g4 e e8 ( d ) c ( d ) | % 15
68 e4. d8 c4 <g' \hn f \hn b,> \bar "||" % 16
72 \mark \markup { \override #'(font-family . sans) { \box { B } } }
74 <g \hn e \hn c>4 <c \hn g \hn e> <b \hn g \hn d> <d \hn b \hn g> | % 17
75 <c \hn a \hn f>4 <b \hn g \hn e>8 ( <a \hn f \hn d> ) <g \hn e \hn c>4 <a \hn f \hn c> | % 18
76 <g \hn e \hn c>4 <e \hn c \hn g> <e \hn c \hn a>8 ( <d \hn b> ) <c \hn a> ( <d \hn b \hn g> ) | % 19
77 <e \hn c \hn fs,>4 <e \hn c \hn fs,> <d \hn c \hn g> <g \hn f! \hn d> | % 20
78 <g \hn e \hn c>4 <c \hn g \hn e> <b \hn g \hn d> <d \hn g, \hn b,> | % 21
79 <c \hn a \hn f>4 <b \hn g \hn e>8 ( <a \hn f \hn d> ) <g \hn e \hn c>4 <a \hn f \hn c> | % 22
80 <g \hn e \hn c>4 <e \hn c \hn g> << { \voiceOne <e \hn c>8 ( <d \hn b> ) c ( d ) } \context Voice = "v2" { \voiceTwo \tiny a4 a8 b \normalsize } \oneVoice >> | % 23
81 \time 2/4 <e \hn c>4 <d \hn b> \time 4/4 | % 24
82 \voiceTwo c1 \oneVoice | % 25
89 \voiceTwo r2 r4 g' \oneVoice | % 28
99 \voiceTwo r2 r4 <a \hn d,> \oneVoice \bar "||" % 33
105 \mark \markup { \override #'(font-family . sans) { \box { C } } }
107 <fs \hn a,>4. <e \hn g,>8 <d \hn fs,>4 <a' \hn d,> | % 34
108 <b \hn d,>4 <g \hn b,> <g \hn b,> <b \hn d,> | % 35
109 <a \hn d,>4. <fs \hn a,>8 <fs \hn a,>4 <e \hn g,>8 ( <d \hn fs,> ) | % 36
110 <fs \hn a,>4 <fs \hn a,> <e \hn a,> <a \hn e \hn cs> | % 37
111 <fs \hn d \hn a>4. <e \hn d \hn g,>8 <d \hn a \hn fs>4 <a' \hn fs \hn d> | % 38
112 <b \hn g \hn d>4 <g \hn d \hn b> <d' \hn f, \hn b,> <cs \hn f, \hn cs>8 ( <b \hn d,> ) | % 39
113 <a \hn fs \hn d>4 <fs \hn d \hn a> << { \voiceOne <fs \hn d>8 ( <e \hn cs> ) d ( e ) } \context Voice = "v2" { \voiceTwo \tiny b4 b8 cs \normalsize } \oneVoice >> | % 40
114 <fs \hn d \hn a>4. <e \hn cs \hn g>8 <d \hn fs,>4 <a' \hn g \hn cs,> \bar "||" % 41
118 \mark \markup { \override #'(font-family . sans) { \box { D } } }
120 <a \hn fs \hn d>4 <d \hn a \hn fs> <cs \hn a \hn e> <e \hn cs \hn a> | % 42
121 <d \hn b \hn g>4 <cs \hn a \hn fs>8 ( <b \hn g \hn e> ) <a \hn fs \hn d>4 <b \hn g \hn d> | % 43
122 <a \hn fs \hn d>4 <fs \hn d \hn a> <fs \hn d \hn b>8 ( <e \hn cs> ) <d \hn b> ( <e \hn cs \hn a> ) | % 44
123 <fs \hn d \hn gs,>4 <fs \hn d \hn gs,> <e \hn d \hn a> <a \hn g! \hn cs,> | % 45
124 <a \hn fs \hn d>4 <d \hn a \hn fs> <cs \hn a \hn e> <e \hn a, \hn cs,> | % 46
125 <d \hn g, \hn b,>4 <cs \hn fs, \hn a,>8 ( <b \hn e, \hn g,> ) <a \hn d, \hn fs,>4 <b \hn g \hn d> | % 47
126 <a \hn fs \hn d>4 <fs \hn d \hn a> << { \voiceOne <fs \hn d>8 ( <e \hn cs> ) d ( <e \hn cs> ) } \context Voice = "v2" { \voiceTwo \tiny b4 b8 a \normalsize } \oneVoice >> | % 48
127 <fs' \hn d \hn a>2 <e \hn cs \hn a> \bar "||" % 49
131 \mark \markup { \override #'(font-family . sans) { \box { E } } }
133 \voiceTwo d1 \oneVoice | % 50
144 LeadVoxText = \lyricmode
146 He lead- eth me, O bless- ed thought,
147 O words with heav'n- ly _ com- fort fraught;
148 What- e'er I do, where- e'er I be,
149 still _ 'tis God's hand _ that _ lead- eth me.
151 He lead- eth me, he lead- eth _ me,
152 by his own hand _ he _ lead- eth me,
153 His faith- ful fol- l'wer I would _ be,
154 for by his hand _ he _ lead- eth me.
158 And when my task on earth is done,
159 when by thy grace the _ vic- try's won;
160 E'en death's cold wave I will not flee,
161 still _ God through Jor- _ dan _ lead- eth me.
163 He lead- eth me, he lead- eth _ me,
164 by his own hand _ he _ lead- eth me,
165 His faith- ful fol- l'wer I would _ be,
166 for by his hand _ he _ lead- eth me.
169 LeadVoxTextB = \lyricmode
173 I would clasp thy hand in mine,
174 nor e- ver mur- mur _ nor re- pine;
175 Con- tent what- e- ver lot I see,
176 since _ 'tis my God _ that _ lead- eth me.
180 Riffs = \relative c''
184 \override Staff.TimeSignature #'style = #'()
186 \override Score.SpacingSpanner #'average-spacing-wishes = ##f
191 r8 g16 d' ~ d c8 g16 ~ g8 g16 d' ~ d c8. ~ | % 1
192 c8 g16 d' ~ d c8 b16 ~ b8. c16 ~ c16 d8. ~ | % 2
193 d8 g,16 d' ~ d c8 g16 ~ g8 g16 d' ~ d c8. ~ | % 3
194 c8 g16 d' ~ d c8 b16 ~ b8. c16 ~ c16 d8. ~ | % 4
195 d8 g,16 d' ~ d c8 g16 ~ g8 g16 d' ~ d c8. ~ | % 5
196 c8 g16 d' ~ d c8 b16 ~ b8. c16 ~ c16 d8. ~ | % 6
197 d8 g,16 d' ~ d c8 g16 ~ g8 g16 d' ~ d c8. | % 7
198 \voiceOne <g' d c g>1 \oneVoice | % 8
222 \time 2/4 s2 \time 4/4 | % 24
223 \voiceOne r8 g,16 d' ~ d c8 g16 ~ g8 g16 d' ~ d c8. ~ \oneVoice | % 25
224 c8 g16 d' ~ d c8 b16 ~ b8. c16 ~ c16 d8. ~ | % 26
229 d8 g,16 d' ~ d c8 g16 ~ g8 g16 d' ~ d c8. | % 27
230 \voiceOne <g' d c g>1 \oneVoice | % 28
233 d8 \repeatTie g,16 d' ~ d c8 g16 ~ g8 g16 d' ~ d c8. | % 29
237 c8 bf16 f ~ f2. | % 30
238 c'8 bf16 f ~ f4 ~ f8. af16 ~ af bf8. | % 31
240 \voiceOne d2 e \oneVoice | % 33
266 \voiceOne r8 a,16 e' ~ e d8 a16 ~ a8 a16 e' ~ e d8. ~ \oneVoice | % 50
267 d8 a16 e' ~ e d8 cs16 ~ cs8. d16 ~ d16 e8. ~ | % 51
268 e8 a,16 e' ~ e d8 a16 ~ a8 a16 e' ~ e d8. ~ | % 52
269 d8 a16 e' ~ e d8 cs16 ~ cs8. d16 ~ d16 e8. ~ | % 53
270 e8 a,16 e' ~ e d8 a16 ~ a8 a16 e' ~ e d8. ~ | % 54
271 d8 a16 e' ~ e d8 cs16 ~ cs8. d16 ~ d16 e8. ~ | % 55
272 e8 a,16 e' ~ e d8 a16 ~ a8 a16 e' ~ e d8. ~ | % 56
273 d8 a16 e' ~ e d8 cs16 ~ cs8. d16 ~ d16 cs8. ~ | % 57
274 <d a fs d>1^\fermata | % 59
285 %Bah, can't we set this globally?
290 c2:sus2/a c:sus2/f | % 1
292 c2:sus2/a c:sus2/f | % 3
294 c2:sus2/a c:sus2/f | % 5
296 c2:sus2/e c:sus2/f | % 7
306 c2/f g4:sus4 g | % 12
310 c4/g g c g:sus4.7 \bar "||" % 16
315 f4 e8:m7 d:m7 c4 f | % 18
317 d2:9 g4:sus4.7 g:7 | % 20
319 f4 e8:m7 d:m7 c4 f | % 22
321 \time 2/4 c4/f g \time 4/4 | % 24
322 c2:sus2/a c:sus2/f | % 25
328 c2:sus2/e c:sus2/f | % 27
332 c2:sus2/e c:sus2/ef | % 29
339 g2/a a4 a:sus4.7 \bar "||" % 33
347 d4. e8:m7 d2/fs | % 38
350 d4/a a d d:sus4.7 \bar "||" % 41
355 g4 fs8:m7 e:m7 d4 g | % 43
357 e2:9 a4:sus4.7 a:7 | % 45
359 g4 fs8:m7 e:m7 d4 g | % 47
361 d2/g a \bar "||" % 49
367 d2:sus2/b g:6.9 | % 52
371 d2:sus2/fs g:6.9 | % 56
381 % Use a RhythmicStaff on the chords instead of this?
382 % It almost works, but not quite. Doesn't collapse chords above to single notes...
386 % \set Voice.autoBeaming = ##f
387 % \set Staff.instrumentName = #"Rhythm"
388 \override Staff.TimeSignature #'style = #'()
390 \override NoteHead #'style = #'slash
414 c4 c c c-> \bar "||" % 16
425 \time 2/4 c4 c \time 4/4 | % 24
443 c4 c c c \bar "||" % 33
454 c4 c c c-> \bar "||" % 41
477 c1^\fermata \bar "|." % 58
488 s4 \< s s \! s | % 28
490 s4 \< s s \! s | % 33
492 s2 s2_\markup { \italic { rit. } } | % 57
500 % \new Staff = leadStaff { \new Voice = "lead" \LeadVox }
501 \new Staff = leadStaff { << \new Voice = "lead" \LeadVox \new Voice = "riffs" \Riffs >> }
502 \new Lyrics \lyricsto "lead" \LeadVoxText
503 \new Lyrics \lyricsto "lead" \LeadVoxTextB
506 \new ChoirStaff = "Rhythm"
508 \new ChordNames = "chords" \Chords
509 \new RhythmicStaff = "chordRhythm" << \StaffC \Dynamics >>
512 \set Score.skipBars = ##t
513 \set Score.melismaBusyProperties = #'()
518 % \context { \Staff \RemoveEmptyStaves }
519 % ragged-last-bottom = ##t
527 #(define fonts (make-pango-font-tree
533 % top-margin = -0.25 \in