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))
14 title = \markup { \override #'(font-family . sans) \fontsize #3.5 "He Who Began A Good Work In You" }
15 composer = \markup { \override #'(font-family . sans) \fontsize #1.3 "Words & music by Andre Crouch" }
16 arranger = \markup { \override #'(font-family . sans) \fontsize #1.3 "arr. Ed Smart/Shamus Hammons" }
17 tagline = "Engraved by JLH and Lilypond 2.8.2"
25 LeadXvoxA = \relative c'
27 % \set Voice.autoBeaming = ##f
28 \set Staff.instrumentName = #"Lead vox"
32 \override Score.SpacingSpanner #'average-spacing-wishes = ##f
34 % \set Score.markFormatter = #format-mark-box-letters
38 R1^"Moderately, not too slow" | % 1
55 %\mark \markup { \override #'(font-family . sans) { \box { A } } }
56 \once \override Score.RehearsalMark #'self-alignment-X = #left
57 \mark \markup { \override #'(font-family . sans) { \box { A } } \hspace #1.0 \raise #2.0 \musicglyph #"scripts.segno" }
59 \stemUp a'4. gs8 ~ gs4 r8 e | % 7
60 fs [ gs ] a [ b ~ ] b gs4 e8 ~ | % 8
63 a4. gs8 ~ gs4 r8 e | % 11
64 fs [ gs ] a [ b ~ ] b gs4 \stemDown cs8 ~ | % 12
66 cs2 r8 b cs [ d ~ ] | % 14
67 d [ cs ] \stemUp b [ a ] a [ b ~ ] b4 | % 15
68 r2 r8 \stemDown b cs [ d ~ ] | % 16
69 d [ cs ] \stemUp b [ a ] \stemDown cs [ b ~ ] b4 | % 17
70 r2 r8 b cs [ d ~ ] | % 18
71 d [ cs ] \stemUp b [ a ~ ] a [ b ] \stemDown cs [ d ~ ] | % 19
72 %\mark \markup { \musicglyph #"scripts.coda" } | % 19
73 \once \override Score.RehearsalMark #'self-alignment-X = #right
74 \mark \markup { \italic { to Coda } \hspace #1.0 \musicglyph #"scripts.coda" }
76 d [ cs ] \stemUp b [ a ] a [ b ] gs [ a ~ ] \bar "||" % 20
83 r2. r8 cs,16 [ d ] \bar"||" % 24
87 \mark \markup { \override #'(font-family . sans) { \box { B } } }
89 e8 [ e ] e [ e ~ ] e [ d ] cs4 | % 25
90 e8 [ fs ] gs [ a ~ ] a [ gs ] e [ d ~ ] | % 26
91 d4 r r8 e fs [ b, ] ~ | % 27
92 b2 r4 r8 e16 [ fs ] | % 28
93 gs8 [ gs ] gs [ gs ~ ] gs [ fs ] e4 | % 29
94 gs8 [ gs ] gs [ gs ~ ] gs [ a ] b [ e, ~ ] | % 30
97 e8 [ e ] e [ e ~ ] e4 r8 cs16 [ d ] | % 33
98 e8 [ fs ] gs [ a ~ ] a [ gs ] e4 | % 34
99 fs8 [ fs ] fs [ fs ~ ] fs4 d8 [ e ] | % 35
100 fs [ gs ] a [ b ~ ] b [ a ] fs4 | % 36
101 gs8 [ gs ] gs [ gs ~ ] gs fs4 e8 | % 37
102 \times 2/3 { gs4 gs gs } \times 2/3 { gs a \stemDown b } | % 38
105 \once \override Score.RehearsalMark #'self-alignment-X = #right
110 % Coda (chorus again)
112 %\stopStaff s1 \startStaff
114 \set Score.currentBarNumber = #41
116 \once \override Score.RehearsalMark #'self-alignment-X = #left
117 \mark \markup { { \musicglyph #"scripts.coda" } "Coda" }
119 d8 \repeatTie [ cs ] \stemUp b [ a ] a [ b ] gs4 \bar "||" \mark \default % 43
121 \mark \markup { \override #'(font-family . sans) { \box { C } } }
123 \stemUp a4. gs8 ~ gs4 r8 e | % 42
124 fs [ gs ] a [ b ~ ] b gs4 e8 ~ | % 43
127 a4. gs8 ~ gs4 r8 e | % 46
128 fs [ gs ] a [ b ~ ] b gs4 \stemDown cs8 ~ | % 47
130 cs2 r8 b cs [ d ~ ] | % 49
131 d [ cs ] \stemUp b [ a ] a [ b ~ ] b4 | % 50
132 r2 r8 \stemDown b cs [ d ~ ] | % 51
133 d [ cs ] \stemUp b [ a ] \stemDown cs [ b ~ ] b4 | % 52
134 r2 r8 b cs [ d ~ ] | % 53
135 d [ cs ] \stemUp b [ a ~ ] a [ b ] \stemDown cs [ d ~ ] | % 54
136 % d [ cs ] \stemUp b [ a ] a [ b ] gs [ a ~ ] \bar "|:" % 55
137 d [ cs ] \stemUp b [ a ] a [ b ] gs4 | % 55
157 r1^\fermata \bar "|." % 61
160 LeadXvoxATextA = \lyricmode
162 He who _ be- gan a good work _ in you _
163 He who _ be- gan a good work _ in you _
164 _ Will be fai- _ thful to com- plete it _
165 Will be fai- _ thful to com- plete it _
166 He who start- _ ed the work _ will be fai-
167 _ thful to com- plete it in you _
169 If the trou- ble you're fac- _ ing is
170 slow- ly re- pla- _ cing your hope _ with des- pair _
171 And the pro- cess is long _ and you're
172 lo- sing your songs _ in the night _
173 You can be sure _ that the Lord has his hand _ on you
174 Safe and se- cure _ He will ne- ver a- band- _ on you
175 You are his trea- _ sure And
176 He finds His plea- sure in you
178 _ thful to com- plete it in
180 He who _ be- gan a good work _ in you _
181 He who _ be- gan a good work _ in you _
182 _ Will be fai- _ thful to com- plete it _
183 Will be fai- _ thful to com- plete it _
184 He who start- _ ed the work _ will be fai-
185 _ thful to com- plete it in you _
193 BgXvoxA = \relative c'
195 % \set Voice.autoBeaming = ##f
196 \set Staff.instrumentName = #"BG vox"
221 R1_\markup { \italic { 1st time unison, 2nd harmony } } | % 7
226 %But this does... FINALLY!
228 % lyrics follow voice above
230 r2 r4 r8 << { \voiceOne fs'8 ~ } \context Voice = "v" { \voiceTwo <b, gs> ~ } >> | % 12
231 << { \voiceOne fs'2 ~ fs4. f8 ~ } \context Voice = v { \voiceTwo <b, gs>1 ~ } >> | % 13
232 << { \voiceOne f'2 } \context Voice = v { \voiceTwo <b, gs>2 } >> \oneVoice r2 | % 14
235 % lyrics follow voice below
237 r2 r4 r8 << { \voiceOne <b' gs> ~ } \context Voice = "v" { \voiceTwo fs8 ~ } >> | % 12
238 << { \voiceOne <b gs>1 ~ } \context Voice = v { \voiceTwo fs2 ~ fs4. f8 ~ } >> | % 13
239 << { \voiceOne <b gs>2 } \context Voice = v { \voiceTwo f2 } >> \oneVoice r2 | % 14
242 <b a fs>4. <b gs e>8 ~ <b gs e>4 r | % 16
244 <b a fs>4. <b gs e>8 ~ <b gs e>4 r8 <a fs d> ~ | % 18
245 <a fs d>4. <a e cs>8 ~ <a e cs>4. <fs d b>8 ~ | % 19
246 <fs d b>4 <fs d b>8 <fs d b> <fs d b> <fs d a> <fs d a> <e cs a> ~ | % 20
266 a8 [ a ] a [ a ~ ] a4 r8 a16 [ a ] | % 33
267 a8 [ a ] b [ cs ~ ] cs [ a ] gs4 | % 34
275 % Coda (chorus again)
277 \stopStaff s1 \startStaff
278 \set Score.currentBarNumber = #41
315 r1^\fermata \bar "|." % 61
318 BgXvoxATextA = \lyricmode
320 %\set associatedVoice = foo
324 %\set associatedVoice = bg
325 ooo fai- thful _ ooo fai- thful _
326 Ah __ _ _ _ _ _ to com- plete it in you _
334 RhythmB = \relative c'
336 % \set Voice.autoBeaming = ##f
337 % \set Staff.instrumentName = #"Rhythm"
344 \stemDown a'8 [ b cs b ~ ] b [ e ~ ] e4 |
345 d8 [ e cs b ~ ] b2 | % 4
350 a8 [ b cs b ~ ] b [ e cs a ~ ] |
354 \stemDown a8 [ b cs b ~ ] b [ e cs a ~ ] |
379 \stemDown a8 [ b cs b ~ ] b [ e ~ ] e4 |
380 d8 [ e cs b ~ ] b2 | % 24
381 a8 [ b cs b ~ ] b [ e cs a ~ ] |
403 % Coda (chorus again)
405 \stopStaff s1 \startStaff
406 \set Score.currentBarNumber = #41
428 \stemDown a8 [ b cs b ~ ] b [ e ~ ] e4 |
429 d8 [ e cs b ~ ] b2 | % 4
434 a8 [ b cs b ~ ] b [ e cs a ~ ] |
438 \stemDown a8 [ b cs b ~ ] b [ e cs a ~ ] |
442 \stemUp a1^\fermata \bar "|."
452 %Bah, can't we set this globally?
453 %\set chordNameExceptions = #popChords
454 %\set chordRootNamer = #chord-name->pop-markup
461 d4. e4.:sus4 e4 | % 4
478 d4./fs e4./gs s8 cs8:m7 | % 10
482 d4./fs e2/gs cs8:sus4.7 | % 14
488 e4.:sus4 e s8 d8 | % 20
495 d4. e4.:sus4 e4 | % 24
515 b4.:m7 b:m7/a s4 | % 38
523 % Coda (chorus again)
528 d4./fs e4./gs s8 cs8:m7 | % 45
531 % On Ed's chart it's like so:
534 d4./fs e2/gs cs8:sus4.7 | % 49
540 e4.:sus4 e s8 d8 | % 55
549 d4. e4.:sus4 e4 | % 59
570 % Use a RhythmicStaff on the chords instead of this?
571 % It almost works, but not quite. Doesn't collapse chords to single notes...
575 % \set Voice.autoBeaming = ##f
576 % \set Staff.instrumentName = #"Rhythm"
579 \override NoteHead #'style = #'slash
583 \stemDown c'4. c8 ~ c4 c | %1
589 c4. c8 ~ c4. c8 ~ | % 3
593 c4. c8 ~ c4. c8 ~ | % 5
602 c4. c8-> c4 r8 c8 ~ | % 8
606 c4. c8 ~ c4. c8 ~ | % 12
607 c4 c c r8 c8 ~ | % 13
613 c4. c8 ~ c4 r8 c8 ~ | % 18
614 c4. c8 ~ c4. c8 ~ | % 19
621 c4. c8 ~ c4. c8 ~ | % 23
628 c4. c8 ~ c4 r8 c8 ~ | % 27
644 % Coda (chorus again)
646 \stopStaff s1 \startStaff
647 \set Score.currentBarNumber = #41
649 c4 c c c \bar "||" % 41
651 c4. c8-> c4 r8 c8 ~ | % 43
655 c4. c8 ~ c4. c8 ~ | % 47
656 c4 c c r8 c8 ~ | % 48
662 c4. c8 ~ c4 r8 c8 ~ | % 53
663 c4. c8 ~ c4. c8 ~ | % 54
670 \stemDown c4. c8 ~ c4 c | % 56
676 c4. c8 ~ c4. c8 ~ | % 58
680 c4._\markup { \italic { rit. } } c8 ~ c4. c8 ~ | % 60
684 c1 ^\fermata \bar "|." % 61
691 \new ChoirStaff = "Vox"
693 \new Staff = LeadVox { \new Voice = "lead" \LeadXvoxA }
694 \new Lyrics \lyricsto "lead" \LeadXvoxATextA
695 \new Staff = BgVox { \new Voice = "bg" \BgXvoxA }
696 \new Lyrics \lyricsto "bg" \BgXvoxATextA
699 \new ChoirStaff = "Rhythm"
701 \new Staff = "riff" \RhythmB
702 \new ChordNames = "chords" \Chords
703 \new RhythmicStaff = "chordRhythm" \StaffC
706 \set Score.skipBars = ##t
707 \set Score.melismaBusyProperties = #'()
710 % ragged-last-bottom = ##t
717 #(define fonts (make-pango-font-tree