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 Knows My Name" }
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)
34 LeadVox = \relative c'
36 % \set Voice.autoBeaming = ##f
37 % \set Staff.instrument = #"Lead vox"
40 \override Staff.TimeSignature #'style = #'()
42 \override Score.SpacingSpanner #'average-spacing-wishes = ##f
56 \mark \markup { \override #'(font-family . sans) { \box { A } } }
58 r4 e8 fs ~ fs4 a8 gs ( ~ | % 5
59 gs4 e8 ) cs ~ cs4 r | % 6
60 r4 gs'8 a ( ~ a gs ) fs fs ~ | % 7
62 r4 e8 fs ~ fs4 gs8 a | % 9
63 gs4 ( e8 ) cs ~ cs4. e8 | % 10
64 gs4 gs8 fs ~ fs4 e8 e ~ | % 11
69 \mark \markup { \override #'(font-family . sans) { \box { B } } \hspace #1.0 \raise #2.0 \musicglyph #"scripts.segno" }
71 r4 <cs' \hn a \hn e>8 <b \hn gs \hn e> ~ <b \hn gs \hn e>4 <gs \hn e \hn b>8 <fs \hn ds \hn b> ( ~ | % 13
72 <fs \hn ds \hn b>4. <e \hn b \hn gs>8 ) ~ <e \hn b \hn gs>2 | % 14
73 r4 <cs' \hn a \hn e>8 <b \hn gs \hn e> ~ <b \hn gs \hn e>4 <gs \hn e \hn b>8 <fs \hn ds \hn b> ~ | % 15
74 <fs \hn ds \hn b>4 <e \hn cs \hn a>8 <gs \hn e \hn b> ~ <gs \hn e \hn b>2 | % 16
75 r4 <cs \hn a \hn e>8 <b \hn gs \hn e> ~ <b \hn gs \hn e>4 <gs \hn e \hn b>8 <fs \hn ds \hn b> ~ | % 17
76 <fs \hn ds \hn b>4 <e \hn cs \hn a>8 <e \hn cs \hn gs> ~ <e \hn cs \hn gs>4 r8 <e \hn b \hn gs> | % 18
77 \once \override Score.RehearsalMark #'self-alignment-X = #right
78 \mark \markup { \italic { to Coda } \hspace #1.0 \musicglyph #"scripts.coda" }
79 <e \hn cs \hn a>4 <gs \hn e \hn cs>8 <fs \hn ds \hn b>8 ~ <fs \hn ds \hn b>4 <e \hn cs \hn a>8 <e \hn b \hn gs> ~ | % 19
84 <e \hn b \hn gs>2 r | % 20
87 <e \hn b \hn gs>2 \repeatTie r \bar "||" % 21
89 \once \override Score.RehearsalMark #'self-alignment-X = #right
90 \mark \markup { \italic { D.S. al Coda } }
96 \stopStaff s1 \bar "" \startStaff % That removed the spurious floating bar line from line break
97 %\stopStaff s1 \startStaff
98 \set Score.currentBarNumber = #22
103 \once \override Score.RehearsalMark #'self-alignment-X = #left
104 \mark \markup { { \musicglyph #"scripts.coda" } "Coda" }
106 <e \hn cs \hn a>4 <gs \hn e \hn cs>8 <fs \hn ds \hn b>8 ~ <fs \hn ds \hn b>4 <e \hn cs \hn a>8 <e \hn b \hn gs> ~ | % 22
107 <e \hn b \hn gs>2 r4 r8 <e \hn b> | % 23
108 <e \hn cs \hn a>4 <gs \hn e \hn cs>8 <fs \hn ds \hn b>8 ~ <fs \hn ds \hn b>4 <e \hn cs \hn a>8 <gs \hn e \hn cs> ~ | % 24
109 <gs \hn e \hn cs>2. r8 e | % 25
110 e4 gs8 fs ~ fs4 e | % 26
111 \voiceTwo e1 \oneVoice | % 27
117 LeadVoxText = \lyricmode
119 I have _ a mak -- _ _ er, _
120 he formed __ _ _ my heart. _
121 Be -- fore _ e -- ven time be -- gan _
122 my life was in _ his hand. _
124 He knows _ my name, __ _ _ _
125 He knows _ my ev -- _ ’ry thought, _
126 He sees _ each tear _ that falls _
127 and hears me when _ I call. _
131 hears me when _ I call. _
132 and hears me when _ I call. _
133 He hears me when _ I call.
136 LeadVoxTextB = \lyricmode
138 I have _ a Fa -- _ _ ther, _
139 he calls _ me his own. _
140 He’ll ne -- _ ver _ leave _ me _
141 no mat -- ter where _ I go. _
145 Riffs = \relative c''
149 \override Staff.TimeSignature #'style = #'()
151 \override Score.SpacingSpanner #'average-spacing-wishes = ##f
156 \partial 8*1 cs16 ds | % 0
157 e4 gs8 fs ~ fs4 e8 gs ~ | % 1
158 gs2. r8 cs,,16 ds | % 2
159 e4 gs8 fs ~ fs4 e8 e ~ | % 3
161 s1*23 | % 5-26 (+ hidden measure)
162 \voiceOne r4 e'8 fs ~ fs4 a8 gs ~ \oneVoice | % 27
163 gs4 e8 cs ~ cs4 r8 cs16 ds | % 28
164 e4 gs8 fs ~ fs4 e | % 29
176 %Bah, can't we set this globally?
181 \partial 8*1 s8 | % 0
183 r4. cs2:m7/b s8 | % 2
184 fs4.:m7 b a8/b e | % 3
191 e4. fs2:m11 e8/gs | % 5
193 e4./b a2:sus2/cs b8:sus4 | % 7
195 e4. fs2:m11 e8/gs | % 9
197 e4./b b a8/b e | % 11
198 s2 fs4:m7 e/gs | % 12
216 s2 fs4:m7 e/gs | % 21
224 fs4.:m7 b2 cs8:m7 | % 22
226 fs4.:m7 b2 cs8:m7 | % 24
228 fs4.:m7 b a4/b | % 26
229 e4. fs2:m11 e8/gs | % 27
240 % Use a RhythmicStaff on the chords instead of this?
241 % It almost works, but not quite. Doesn't collapse chords above to single notes...
245 % \set Voice.autoBeaming = ##f
246 % \set Staff.instrument = #"Rhythm"
247 \override Staff.TimeSignature #'style = #'()
249 \override NoteHead #'style = #'slash
253 \partial 8*1 s8 | % 0
254 c4. c8 ~ c4. c8 ~ | % 1
256 c4. c8 ~ c4 c8 c ~ | % 3
263 c4. c8 ~ c4. c8 ~ | % 5
265 c4. c8 ~ c4. c8 ~ | % 7
267 c4. c8 ~ c4. c8 ~ | % 9
269 c4. c8 ~ c4 c8 c ~ | % 11
270 c2 c4 c \bar "||" % 12
274 c4. c8 ~ c4. c8 ~ | % 13
276 c4. c8 ~ c4. c8 ~ | % 15
278 c4. c8 ~ c4. c8 ~ | % 17
280 c4. c8 ~ c4. c8 ~ | % 19
288 c4 \repeatTie c c c | % 21
294 \stopStaff s1 \bar "" \startStaff % That removed the spurious floating bar line from line break
295 %\stopStaff s1 \startStaff
296 \set Score.currentBarNumber = #22
298 c4. c8 ~ c4. c8 ~ | % 22
300 c4. c8 ~ c4. c8 ~ | % 24
303 c4. c8 ~ c4. c8 ~ | % 27
306 c1-\fermata \bar "|." % 30
313 s4_\markup { \italic { snare pat. } } s2 | % 1
314 s4_\markup { \italic { simile } } s2 | % 2
316 s4_\markup { \italic { spacy } } s2 | % 22
320 s4_\markup { \italic { Last time } } s2 | % 51
329 % \new Staff = leadStaff { \new Voice = "lead" \LeadVox }
330 \new Staff = leadStaff { << \new Voice = "lead" \LeadVox \new Voice = "riffs" \Riffs >> }
331 \new Lyrics \lyricsto "lead" \LeadVoxText
332 \new Lyrics \lyricsto "lead" \LeadVoxTextB
335 \new ChoirStaff = "Rhythm"
337 \new ChordNames = "chords" \Chords
338 \new RhythmicStaff = "chordRhythm" << \StaffC \Dynamics >>
341 \set Score.skipBars = ##t
342 \set Score.melismaBusyProperties = #'()
347 % \context { \Staff \RemoveEmptyStaves }
348 % ragged-last-bottom = ##t
356 #(define fonts (make-pango-font-tree
362 % top-margin = -0.25 \in