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 "God of Wonders" }
18 % composer = \markup { \override #'(font-family . sans) \fontsize #1.3 "" }
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)
38 \override Staff.TimeSignature #'style = #'()
43 \once \override TextScript #'padding = #2.0
44 s1*0^\markup { \large \bold { Moderate pop } }
46 % s1*0^\markup { \large \bold { Moderate pop "(*** CAPO 3 ***)" } }
56 % \once \override Score.RehearsalMark #'self-alignment-X = #left
57 \mark \markup { \override #'(font-family . sans) { \box { A } } }
63 \mark \markup { \override #'(font-family . sans) { \box { B } } }
65 s1*8 \bar "||" % 13-20
67 \mark \markup { \override #'(font-family . sans) { \box { C } } }
74 \mark \markup { \override #'(font-family . sans) { \box { D } } }
76 s1*6 \bar "||" % 25-30
80 \once \override TextScript #'padding = #2.0
81 s1*0^\markup { \large \bold { Guitar Solo } }
82 \mark \markup { \override #'(font-family . sans) { \box { E } } }
90 \mark \markup { \override #'(font-family . sans) { \box { F } } }
95 \mark \markup { \override #'(font-family . sans) { \box { G } } }
97 s1*6 \bar "|." % 47-52
104 LeadVox = \relative c''
107 \override Score.SpacingSpanner #'average-spacing-wishes = ##f
118 r2 a8 fs16 a ~ a8 b16 a ~ | % 5
120 r4 r8 fs8 a16 fs8 a16 ~ a8 b ~ | % 7
122 r8. fs16 cs'8 b a fs a b16 a ~ | % 9
123 a8 fs ~ fs4 r2 | % 10
124 r4 cs'8 b a fs16 cs' ~ cs8 b ( | % 11
125 a8 ) a ~ a2 r4 | % 12
129 <cs \hn e,>8 <b \hn d,>16 <cs \hn e,> <cs \hn e,> <cs \hn e,>8 <b \hn d,>16 <cs \hn e,>8 <b \hn d,> <a \hn cs,> <e \hn cs> | % 13
130 <b' \hn e,>2 r4 <cs \hn a \hn e>16 <cs \hn a \hn e>8. | % 14
131 <cs \hn a \hn e>4. ( <a \hn fs \hn cs>16 ) <a \hn fs \hn cs> ~ <a \hn fs \hn cs>4 r | % 15
132 <cs \hn a \hn e>4. ( <a \hn fs \hn cs>16 ) <a \hn fs \hn cs> ~ <a \hn fs \hn cs>4 r8. <a \hn cs,>16 | % 16
133 <cs \hn e,>8 <b \hn d,>16 <cs \hn e,> ~ <cs \hn e,>8 <b \hn d,>16 <cs \hn e,>16 ~ <cs \hn e,>8 <b \hn d,> <a \hn e \hn cs> <e \hn cs \hn a'> | % 17
134 <b' \hn gs \hn e>2 r4 <cs \hn a \hn e>16 <cs \hn a \hn e>8. | % 14
135 <cs \hn a \hn e>4. ( <a \hn fs \hn cs>16 ) <a \hn fs \hn cs> ~ <a \hn fs \hn cs>4 r | % 15
136 <cs \hn a \hn e>4. ( <a \hn fs \hn cs>16 ) <a \hn fs \hn cs> ~ <a \hn fs \hn cs>4 r | % 16
138 a4 b a16 e8 fs16 ~ fs8 fs ~ | % 21
139 << { \voiceTwo fs2 r } \context Voice = vb { \voiceOne a4 b a16 e8 fs16 ~ fs8 fs ~ } >> | % 22
140 << { \voiceOne a4 b a16 e8 fs16 ~ fs8 fs ~ } \context Voice = vb { \voiceTwo fs2 r } >> | % 23
141 << { \voiceTwo fs2 r } \context Voice = vb { \voiceOne a4 b a16 e8 fs16 ~ fs8 fs ~ } >> | % 24
145 \context Voice = vb { fs8 } r \stemUp <a \hn e \hn cs>16 <b \hn fs \hn d>8 <b \hn fs \hn d>16 ~ <b \hn fs \hn d>8 \stemNeutral << { \voiceOne a r a16 a } \context Voice = vb { \voiceTwo <\hn a \hn e \hn cs>8 ~ <\hn a \hn e \hn cs>4 ~ } >> | % 25
146 << { \voiceOne e'4 cs b16 a8 b16 ~ b8 fs ~ } \context Voice = vb { \voiceTwo <\hn a \hn e \hn cs>1 } >> | % 26
147 fs8 r \stemUp <a \hn e \hn cs>16 <b \hn fs \hn d>8 <b \hn fs \hn d>16 ~ <b \hn fs \hn d>8 \stemNeutral << { \voiceOne a r a16 a } \context Voice = vb { \voiceTwo <\hn a \hn e \hn cs>8 ~ <\hn a \hn e \hn cs>4 ~ } >> | % 27
148 << { \voiceOne e'4 cs b16 a8 b16 ~ b8 fs ~ } \context Voice = vb { \voiceTwo <\hn a \hn e \hn cs>1 } >> \oneVoice | % 28
149 fs8 r <a \hn e \hn cs>16 <b \hn fs \hn d>8 <b \hn fs \hn d>16 ~ <b \hn fs \hn d>8 <a \hn e \hn cs> ~ <a \hn e \hn cs> <a \hn e \hn cs>16 <a \hn e \hn cs> | % 29
150 <e' \hn a, \hn d,>4 <cs \hn a \hn e> <b \hn fs \hn d>16 <a \hn fs \hn d>8 <e' \hn b \hn fs \hn d>16 ~ <e \hn b \hn fs \hn d>8 <cs \hn a \hn e \hn cs> ~ | % 30
154 <cs \hn a \hn e \hn cs>1 | % 31
165 <cs \hn e,>8 <b \hn d,>16 <cs \hn e,> <cs \hn e,> <cs \hn e,>8 <b \hn d,>16 <cs \hn e,>8 <b \hn d,> <a \hn cs,> <e \hn cs> | % 39
166 <b' \hn e,>2 r4 <cs \hn a \hn e>16 <cs \hn a \hn e>8. | % 40
167 <cs \hn a \hn e>4. ( <a \hn fs \hn cs>16 ) <a \hn fs \hn cs> ~ <a \hn fs \hn cs>4 r | % 41
168 <cs \hn a \hn e>4. ( <a \hn fs \hn cs>16 ) <a \hn fs \hn cs> ~ <a \hn fs \hn cs>4 r8. <a \hn cs,>16 | % 42
169 <cs \hn e,>8 <b \hn d,>16 <cs \hn e,> ~ <cs \hn e,>8 <b \hn d,>16 <cs \hn e,>16 ~ <cs \hn e,>8 <b \hn d,> <a \hn e \hn cs> <e \hn cs \hn a'> | % 43
170 <b' \hn gs \hn e>2 r4 <cs \hn a \hn e>16 <cs \hn a \hn e>8. | % 44
171 <cs \hn a \hn e>4. ( <a \hn fs \hn cs>16 ) <a \hn fs \hn cs> ~ <a \hn fs \hn cs>4 r | % 45
172 <cs \hn a \hn e>4. ( <a \hn fs \hn cs>16 ) <a \hn fs \hn cs> ~ <a \hn fs \hn cs>4 r | % 46
176 a4 b a16 e8 fs16 ~ fs8 fs ~ | % 47
177 << { \voiceTwo fs2 r } \context Voice = vc { \voiceOne a4 b a16 e8 fs16 ~ fs8 fs ~ } >> | % 48
178 << { \voiceOne a4 b a16 e8 fs16 ~ fs8 fs ~ } \context Voice = vc { \voiceTwo fs2 r } >> | % 49
179 << { \voiceTwo fs2 r } \context Voice = vc { \voiceOne a4 b a16 e8 fs16 ~ fs8 fs ~ } >> | % 50
180 << { \voiceOne a4 b } \context Voice = vc { \voiceTwo fs2 } >> \oneVoice a16 e8 fs16 ~ fs8 <a \hn fs> ~ | % 51
181 <a \hn fs>1-\fermata | % 52
184 LeadVoxText = \lyricmode
186 Lord of all _ cre -- a -- _ tion, _
187 of wa -- ter, earth, _ and _ sky, _
188 The hea -- vens are your ta -- ber -- na -- _ cle, _
189 glo -- ry to the Lord _ on _ high. _
191 God of won -- _ ders, be -- yond our gal -- ax -- y,
192 you are ho -- _ ly, _ ho -- _ ly, _
193 The un -- i -- verse _ de -- clares - your ma -- jes -- ty,
194 you are ho -- _ ly, _ ho -- _ ly, _
196 Lord of hea -- ven and _ earth, _
197 Lord of hea -- ven and _ earth, _
199 Hal -- le -- lu -- jah, _
200 to the Lord of hea -- ven and _ earth, _
201 Hal -- le -- lu -- jah, _
202 to the Lord of hea -- ven and _ earth, _
203 Hal -- le -- lu -- _ jah, _
204 to the Lord of hea -- ven and _ earth! _
206 God of won -- _ ders, be -- yond our gal -- ax -- y,
207 you are ho -- _ ly, _ ho -- _ ly, _
208 The un -- i -- verse _ de -- clares - your ma -- jes -- ty,
209 you are ho -- _ ly, _ ho -- _ ly, _
211 Lord of hea -- ven and _ earth, _
212 Lord of hea -- ven and _ earth, _
213 Lord of hea -- ven and _ earth, _
216 LeadVoxTextB = \lyricmode
218 Ear -- ly in _ the morn -- _ ing, _
219 I will cel -- e -- brate _ the light, _
220 When I stum -- ble in _ the dark -- _ ness, _
221 I will call your name _ by _ night. _
224 EchoText = \lyricmode
226 Lord of hea -- ven and _ earth, _
227 Lord of hea -- ven and _ earth, _
230 % This is this way because \oneVoice kills the lyric stream...
231 EchoTextB = \lyricmode
233 Lord of hea -- ven and _ earth, _
234 Lord of hea -- ven and _ earth, _
246 \repeat "percent" 2 {
247 <e e' a>4 <e e' a>8 <e e' a>16 <e e' a> ~ <e e' a> <fs e' a> <fs e' a>8 <fs e' a> <d e' a>16 <d e' a> | %
248 <d e' a>4 <d e' a>8 <d e' a>16 <d e' a> ~ <d e' a> <d e' a> <d e' a>8 <d e' a>16 <d e' a> <d e' a> <d e' a> | %
253 \override NoteHead #'style = #'slash
254 r4 bf16 bf bf bf bf r bf8 r bf | % 1
256 r4 bf16 bf bf bf bf r bf8 r bf | % 3
258 r4 bf16 bf bf bf bf r bf8 r bf | % 5
260 \override NoteHead #'style = #'default
266 c'4. b8 ~ b g e a ~ | % 64
278 %Bah, can't we set this globally?
283 e2:5.11 s16 fs4:m7 s16 d8:sus2 | % 1
285 e2:5.11 s16 fs4:m7 s16 d8:sus2 | % 3
290 e2:5.11 s16 fs4:m7 s16 d8:sus2 | % 5
292 e2:5.11 s16 fs4:m7 s16 d8:sus2 | % 7
294 e2:5.11 s16 fs4:m7 s16 d8:sus2 | % 9
296 e2:5.11 s16 fs4:m7 s16 d8:sus2 | % 11
310 d2:sus2 e:5.11 | % 21
311 d2:sus2 e:5.11 | % 22
312 d2:sus2 e:5.11 | % 23
333 d2:sus2 e:sus4 | % 38
348 d2:sus2 e:5.11 | % 47
349 d2:sus2 e:5.11 | % 48
350 d2:sus2 e:5.11 | % 49
351 d2:sus2 e:5.11 | % 50
352 d2:sus2 e:5.11 | % 51
361 % Use a RhythmicStaff on the chords instead of this?
362 % It almost works, but not quite. Doesn't collapse chords above to single notes...
366 \override Staff.TimeSignature #'style = #'()
367 \override NoteHead #'style = #'slash
371 c4 c ~ c16 c8. c8 c ~ | % 1
373 c4 c ~ c16 c8. c8 c ~ | % 3
378 c4 c ~ c16 c8. c8 c ~ | % 5
380 c4 c ~ c16 c8. c8 c ~ | % 7
382 c4 c ~ c16 c8. c8 c ~ | % 9
384 c4 c ~ c16 c8. c8 c ~ | % 11
452 s4_\fp s s \< s | % 7
472 s8 \< s2. s8 \! | % 51
474 s4_\markup { \italic { rit. } } s2. | % 61
476 s2 s4_\markup { \italic { rit. } } s | % 65
484 \Global % The "roadmap" that everything else depends on
488 \new Voice = "lead" \LeadVox
490 \new Lyrics \lyricsto "lead" \LeadVoxText
491 \new Lyrics \lyricsto "lead" \LeadVoxTextB
492 \new Lyrics \lyricsto "vb" \EchoText
493 \new Lyrics \lyricsto "vc" \EchoTextB
498 \new ChordNames \Chords
500 % \new ChordNames \transpose f d \Chords
501 \new RhythmicStaff << \Rhythm \Dynamics >>
504 \set Score.skipBars = ##t
505 \set Score.melismaBusyProperties = #'()
512 #(define fonts (make-pango-font-tree
518 % Don't spread staves vertically across last page (default: t)
519 % ragged-last-bottom = ##f
520 % Don't spread staves vertically across the page (default: f)
521 % ragged-bottom = ##t
522 % Allow partial line for last stave (default: f)
525 % To find out what's eating the space at the top...
526 % annotate-spacing = ##t
527 %let's try this: [It works! Huzzah!]
528 obsolete-page-top-space = 0 top-system-spacing #'basic-distance = #(/ obsolete-page-top-space staff-space)