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 "Here I Am To Worship" }
18 composer = \markup { \override #'(font-family . sans) \fontsize #1.3 "T. Hughes" }
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.0 (ly:music-property arg 'tweaks))) arg)
38 % \override Staff.TimeSignature #'style = #'()
43 % \once \override TextScript #'padding = #2.0
44 % s1*0^\markup { \large \italic { Piano only } }
52 \mark \markup { \override #'(font-family . sans) { \box { A } } }
57 % \mark \markup { \override #'(font-family . sans) { \box { B } } }
58 \once \override Score.RehearsalMark #'self-alignment-X = #left
59 \mark \markup { \override #'(font-family . sans) { \box { B } } \hspace #1.0 \raise #2.0 \musicglyph #"scripts.segno" }
65 \once \override Score.RehearsalMark #'self-alignment-X = #right
66 \once \override Score.RehearsalMark #'break-visibility = #begin-of-line-invisible
67 \mark \markup { \italic { to Coda } \hspace #1.0 \musicglyph #"scripts.coda" }
77 \mark \markup { \override #'(font-family . sans) { \box { C } } }
92 \once \override Score.RehearsalMark #'self-alignment-X = #right
93 \mark \markup { \italic { D.S. al Coda } }
95 % blank measure between last measure and coda
96 \stopStaff s1 \startStaff
97 \set Score.currentBarNumber = #31
101 \once \override Score.RehearsalMark #'self-alignment-X = #left
102 \mark \markup { { \musicglyph #"scripts.coda" } "Coda" }
105 \mark \markup { \override #'(font-family . sans) { \box { D } } }
106 s1*8 \bar "||" % 32-39
108 \mark \markup { \override #'(font-family . sans) { \box { E } } }
109 s1*8 \bar "|." % 40-47
117 LeadVox = \relative c''
120 \override Score.SpacingSpanner #'average-spacing-wishes = ##f
133 <gs \hn e \hn b>4 <gs \hn e \hn b>8 <a \hn e \hn b> <fs \hn e \hn b>4 <fs \hn ds \hn b>8 <gs \hn e \hn b> | % 6
134 <a \hn e \hn cs>4 <gs \hn e \hn cs>8 <fs \hn e \hn cs> <fs \hn cs \hn a> e <cs \hn a>4 | % 7
135 <gs' \hn e \hn b>4 <gs \hn e \hn b>8 <a \hn e \hn b> <fs \hn e \hn b>4 <fs \hn ds \hn b>8 <gs \hn e \hn b> ~ | % 8
136 <gs \hn e \hn b>8 <e \hn b \hn a> ~ <e \hn b \hn a>2 r4 | % 9
137 <gs \hn e \hn b>4 <gs \hn e \hn b>8 <a \hn e \hn b> <fs \hn e \hn b>4 <fs \hn ds \hn b>8 <gs \hn e \hn b> | % 10
138 <a \hn fs \hn cs>4 <a \hn fs \hn cs>8 <gs \hn e \hn cs> <fs \hn cs \hn a> e <e \hn cs \hn a>4 | % 11
139 <gs \hn e \hn b>4 <gs \hn e \hn b>8 <a \hn e \hn b> <fs \hn e \hn b>4 <fs \hn ds \hn b>8 <gs \hn e \hn cs> ~ | % 12
140 <gs \hn e \hn cs>8 <e \hn b \hn a> ~ <e \hn b \hn a>2 r4 | % 13
141 r4 r8. cs16 <a' \hn fs \hn cs>8 <gs \hn e \hn b> <gs \hn e \hn b> <fs \hn ds \hn b> | % 14
145 <gs \hn e \hn b>4 <gs \hn e \hn b> <a \hn fs \hn cs>8 <gs \hn e \hn b> <fs \hn ds \hn b> <e \hn b \hn gs> | % 15
146 <fs \hn ds \hn b>4 <fs \hn ds \hn b> <a \hn fs \hn cs>8 <gs \hn e \hn b> <gs \hn e \hn b> <fs \hn ds \hn a> | % 16
147 <gs \hn e \hn b>4 <gs \hn e \hn b> <gs \hn e \hn b>8 <b \hn gs \hn e>4 <e, \hn cs \hn a>8 ~ | % 17
148 <e \hn cs \hn a>4 r8 cs16 <a' \hn fs> <a \hn fs \hn cs>8 <gs \hn e \hn b> <gs \hn e \hn b> <fs \hn ds \hn b> | % 18
149 <gs \hn e \hn b>4 <gs \hn e \hn b> <a \hn fs \hn cs>8 <gs \hn e \hn b> <gs \hn e \hn b> <fs \hn cs \hn gs> | % 19
150 <fs \hn ds \hn b>4 <fs \hn ds \hn b> <a \hn fs \hn cs>8 <gs \hn e \hn b> <gs \hn e \hn b> <fs \hn ds \hn gs,> | % 20
151 <gs \hn e \hn b>4 <gs \hn e \hn b> <gs \hn e \hn b>8 <b \hn gs \hn e>4 <e, \hn cs \hn a>8 ~ | % 21
153 <e \hn cs \hn a>2 s | % 22
156 <e \hn cs \hn a>2-\repeatTie r8 b gs' fs ~ | % 24
160 fs4 <fs \hn ds \hn b>8 <gs \hn e \hn b> ~ <gs \hn e \hn b>4 <b \hn gs \hn e>8 <a \hn e \hn cs> ~ | % 25
161 <a \hn e \hn cs>8 <gs \hn e \hn b>4 <fs \hn e \hn b>8 ~ <fs \hn e \hn b>4 <gs \hn e \hn b>8 <fs \hn ds \hn b>8 ~ | % 26
162 <fs \hn ds \hn b>4 <fs \hn ds \hn b>8 <gs \hn e \hn cs> ~ <gs \hn e \hn cs>4 <b \hn fs \hn e>8 <a \hn e \hn cs> ~ | % 27
164 a8 gs4 fs8 ~ fs b, <gs' \hn e> <gs \hn ds \hn b> | % 28
166 <a \hn e \hn cs>8-\repeatTie <gs \hn e \hn cs>4 <fs \hn e \hn b>8 ~ <fs \hn e \hn b>2 ~ | % 29
168 <fs \hn e \hn b>4 r8. cs16 <a' \hn fs \hn cs>8 <gs \hn e \hn b> <gs \hn e \hn b> <fs \hn ds \hn b> | % 30
170 s1 % blank bar for coda
174 <e \hn cs>4.-\repeatTie ~ <e \hn cs>16 cs <a' \hn fs>8 <gs \hn e> <gs \hn e> <fs \hn ds> | % 31
176 <gs \hn e>4 <gs \hn e> <a \hn fs>8 <gs \hn e> <fs \hn ds> <e \hn b> | % 32
177 <fs \hn ds>4 <fs \hn ds> <a \hn fs>8 <gs \hn e> <gs \hn e> <fs \hn ds> | % 33
178 <gs \hn e>4 <gs \hn e> <gs \hn e>8 <b \hn gs>4 <e, \hn cs>8 ~ | % 34
179 <e \hn cs>4. cs16 <a' \hn fs> <a \hn fs>8 <fs \hn e> <gs \hn e> <fs \hn ds> | % 35
180 <gs \hn e>4 <gs \hn e> <a \hn fs>8 <gs \hn e> <gs \hn e> <fs \hn cs> | % 36
181 <fs \hn ds>4 <fs \hn ds> <a \hn fs>8 <gs \hn e> <gs \hn e> <fs \hn ds> | % 37
182 <gs \hn e>4 <gs \hn e> <gs \hn e>8 <b \hn gs>4 <e, \hn cs>8 ~ | % 38
183 <e \hn cs>2 r8 b gs' fs ~ | % 39
185 fs4 fs8 gs ~ gs4 b8 a ~ | % 40
186 a8 gs4 fs8 ~ fs4 e8 fs ~ | % 41
187 fs4 fs8 gs ~ gs4 b8 a ~ | % 42
188 a8 gs4 fs8 ~ fs8 e ~ e4 ~ | % 43
196 LeadVoxTextA = \lyricmode
198 Light of the world, you stepped down in -- to dark -- _ ness,
199 O -- pened my eyes, let me _ see, _
200 Beau -- ty that made this _ heart _ a -- dore _ you,
201 Hope of a life spent with _ you. _
203 So here I am to wor -- ship,
204 here I am to bow down,
205 here I am to say that you’re my God, _
206 And you’re al -- to -- geth -- er love -- ly,
207 al -- to -- geth -- er wor -- thy,
208 al -- to -- geth -- er won -- der -- ful to me. _ _
210 And I’ll ne -- _ ver know _
212 to see _ my sin _ u -- pon _ that cross _
219 _ _ So here I am to wor -- ship,
220 here I am to bow down,
221 here I am to say that you’re my God, _
222 and you’re al -- to -- geth -- er love -- ly,
223 al -- to -- geth -- er wor -- thy,
224 al -- to -- geth -- er won -- der -- ful to me, _
226 And I’ll ne -- _ ver know _
228 to see _ my sin _ u -- pon _ that cross _ _ _ _
232 LeadVoxTextB = \lyricmode
234 King of all days, oh so high -- ly ex -- al -- _ ted,
235 glo -- rious in hea -- ven a -- _ bove, _
236 Hum -- bly you came to the Earth you cre -- a -- _ ted,
237 all for love’s sake be -- came _ poor. _
241 Riffs = \relative c''
245 gs4 gs a8 gs fs e | % 1
246 fs4 fs a8 gs gs fs | % 2
247 gs4 gs gs8 b4 e,8 ~ | % 3
248 e16 a, b e ~ e b e gs ~ gs b, e b' ~ b8 b,16 e ~ | % 4
249 e16 a, b e ~ e b e gs ~ gs b, e b' ~ b8 b, | % 5
253 r16 a b e ~ e b e gs ~ gs b, e b' ~ b8 b,16 e ~ | % 22
254 e16 a, b e ~ e b e gs ~ gs b, e b' ~ b8 b, | % 23
258 s1 % blank bar for Coda
262 r16 a b e ~ e b e gs ~ gs b, e b' ~ b8 b,16 e ~ | % 44
263 e a, b e ~ e b e gs ~ gs b, e b' ~ b8 b,16 e ~ | % 45
264 e16 a, b e ~ e b e gs ~ gs b, e b' ~ b8 b, | % 46
265 <a b e>1-\fermata | % 47
352 % Use a RhythmicStaff on the chords instead of this?
353 % It almost works, but not quite. Doesn't collapse chords above to single notes...
357 \override NoteHead #'style = #'slash
408 % blank measure between last measure and coda
409 %hm. Shouldn't need /startStaff /stopStaff... !!! FIX !!!
410 \stopStaff s1 \startStaff
437 s4_\markup { \italic { Add bass, pad } } s2. | % 13
439 s4_\markup { \italic { Add perc, Ac. gtrs. } } s2. | % 21
441 s4_\markup { \italic { Piano only, like intro } } s2. | % 50
443 s4_\markup { \italic { Full band } } s2. | % 53
447 s4_\markup { \italic { add cymbal colors } } s2. | % 5
448 s2 s16 s \> s4 s16 s \! | % 5
452 s4_\markup { \italic { Unison 1st X } } s2. | % 6
457 s4_\markup { \italic { snare on D.S. } } s2. | % 15
462 s4_\markup { \italic { Unison 1st X } } s2. | % 25
464 s4.. s16_\markup { \italic { big fill } } \< s4. s8-\f | % 30
466 s1 % blank bar for coda
470 s2 s8 \< s4 s8 \! | % 31
473 s2 s8 \> s4 s8-\mp | % 39
475 s4_\markup { \italic { floating } } s2. | % 40
484 % \new Staff = leadStaff { \new Voice = "lead" \LeadVox }
485 \new Staff = leadStaff { << \new Voice = "lead" \LeadVox \new Voice = "riffs" \Riffs >> }
486 \new Lyrics \lyricsto "lead" \LeadVoxText
489 \new ChoirStaff = "Rhythm"
491 \new ChordNames = "chords" \Chords
492 \new RhythmicStaff = "chordRhythm" << \StaffC \Dynamics >>
495 \set Score.skipBars = ##t
496 \set Score.melismaBusyProperties = #'()
500 \set Score.skipBars = ##t
501 \set Score.melismaBusyProperties = #'()
505 \Global % The "roadmap" that everything else depends on
506 \new Voice = "lead" \LeadVox
508 \new Lyrics \lyricsto "lead" \LeadVoxTextA
509 \new Lyrics \lyricsto "lead" \LeadVoxTextB
514 \new ChordNames \Chords
515 \new RhythmicStaff << \Rhythm \Dynamics >>
523 #(define fonts (make-pango-font-tree
529 % Spread staves vertically across last page (default: t)
530 % ragged-last-bottom = ##f
531 % Don't spread staves vertically across the page (default: f)
532 % ragged-bottom = ##t
533 % Allow partial line for last stave (default: f)
536 % To find out what's eating the space at the top...
537 % annotate-spacing = ##t
538 %let's try this: [It works! Huzzah!][nope... :-/]
539 % obsolete-page-top-space = 0 top-system-spacing #'basic-distance = #(/ obsolete-page-top-space staff-space)