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 "Shout To The Lord" }
18 composer = \markup { \override #'(font-family . sans) \fontsize #1.3 "Darlene Zschech" }
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 \key g \major % New key!
39 \override Staff.TimeSignature #'style = #'()
44 \once \override TextScript #'padding = #2.0
45 s1*0^\markup { \large \bold { Moderately fast pop/Motown feel } }
47 % s1*0^\markup { \large \bold { Moderately fast pop "(*** CAPO 3 ***)" } }
54 \once \override Score.RehearsalMark #'self-alignment-X = #left
55 \mark \markup { \override #'(font-family . sans) { \box { A } } \hspace #1.0 \raise #2.0 \musicglyph #"scripts.segno" }
75 \mark \markup { \override #'(font-family . sans) { \box { B } } }
77 s1*8 \bar "||" % 20-27
83 s1*2 \bar "||" % 34-35
84 \once \override Score.RehearsalMark #'self-alignment-X = #right
85 \mark \markup { \italic { D.S. (w/repeats) } }
92 s1*3 \bar "||" % 37-39
94 \key a \major % New key!
95 s1*4 \bar "||" % 40-43
97 \mark \markup { \override #'(font-family . sans) { \box { C } } }
106 s1*2 \bar "||" % 60-61
108 \once \override TextScript #'padding = #2.0
109 s1^\markup { \large \bold { Slower } } | % 62
111 s1*4 \bar "|." % 63-66
118 LeadVox = \relative c'
121 \override Score.SpacingSpanner #'average-spacing-wishes = ##f
138 bf'8 bf bf a ~ a f ( d ) g ~ | % 11
139 g2 bf8 a g f ~ | % 12
140 f2 bf8 a g f ~ | % 13
142 f4. ~ f16 f f8 ef d bf | % 14
146 f2-\repeatTie bf8 bf g bf | % 17
153 bf8 bf a bf ~ bf bf a bf ~ | % 20
154 bf8 bf a g ~ g2 | % 21
155 bf8 bf a bf ~ bf bf c d ~ | % 22
156 d8 c bf c ~ c2 | % 23
157 bf8 bf a bf ~ bf bf a bf ~ | % 24
158 bf4 a8 g ~ g4 g8 g | % 25
159 a16 ( g f8 ) ~ f4 g g | % 26
162 bf8 bf a bf ~ bf bf a bf ~ | % 28
163 bf8 bf a g ~ g4. a8 | % 29
164 bf8 bf a bf ~ bf bf c d ~ | % 30
165 d8 c bf c ~ c2 | % 31
166 bf8 bf a bf ~ bf bf a bf ~ | % 32
167 bf8 bf a g ~ g4 a | % 33
175 bf8 bf a bf ~ bf4 r | % 38
178 c8 c b c ~ c4 r | % 40
180 c8 c b c ~ c4 r | % 42
183 c8 c b c ~ c c b c ~ | % 44
185 c8 c b c ~ c c d e ~ | % 46
187 c8 c b c ~ c c b c ~ | % 48
188 c4 b8 a ~ a4 a8 a | % 49
189 b16 ( a g8 ) ~ g4 a a | % 50
191 c8 c b c ~ c c b c ~ | % 52
192 c8 c b a ~ a4. b8 | % 53
193 c8 c b c ~ c c d e ~ | % 54
196 c8 c b c ~ c c b c ~ | % 56
197 c8 c b a ~ a4 r | % 57
198 c8 c b c ~ c c b c ~ | % 58
199 c8 c b a ~ a4 r | % 59
201 c8 c b c ~ c c b c ~ | % 60
202 c8 c b a ~ a4 b | % 61
211 LeadVoxText = \lyricmode
213 My Je -- sus, my sa -- vior,
214 Lord there is none _ like _ you; _
215 All of my days _ I want to praise _ _
216 the won -- ders of your migh -- ty love.
218 _ ne -- ver cease to wor -- ship you.
220 Shout to the Lord, _ all the earth, _ let us sing; _
221 Po -- wer and ma -- _ je -- sty, praise _ to the King. _
222 Moun -- tains bow down _ and the seas _ will roar _
223 at the sound __ _ _ _ of your name. __ _
224 I sing for joy _ at the work _ of your hands, _
225 for -- e -- ver I’ll love _ you, for -- e -- _ ver I’ll stand. _
226 No -- thing com -- pares _ to the pro -- _ mise I have _ in you.
234 Shout to the Lord, _ all the earth, _ let us sing; _
235 Po -- wer and ma -- _ je -- sty, praise _ to the King. _
236 Moun -- tains bow down _ and the seas _ will roar _
237 at the sound __ _ _ _ of your name. __ _
238 I sing for joy _ at the work _ of your hands, _
239 for -- e -- ver I’ll love _ you, for -- e -- _ ver I’ll stand. _
240 No -- thing com -- pares _ to the pro -- _ mise I have _
241 No -- thing com -- pares _ to the pro -- _ mise I have _
242 No -- thing com -- pares _ to the pro -- _ mise I have _ in you.
245 LeadVoxTextB = \lyricmode
247 My com -- fort, my shel -- ter,
248 To -- wer of ref -- _ uge and strength; _
249 Let ev -- r’y breath, _ all that I am,
256 Riffs = \relative c''
264 \override NoteHead #'style = #'slash
265 %bf' because of transposition...
266 r4 bf'16 bf' bf' bf' bf' r bf'8 r bf' | % 1
267 r4 r8 bf' r4 bf' | % 2
268 r4 bf'16 bf' bf' bf' bf' r bf'8 r bf' | % 3
269 r4 r8 bf' r4 bf' | % 4
270 r4 bf'16 bf' bf' bf' bf' r bf'8 r bf' | % 5
271 r4 r8 bf' r4 bf' | % 6
272 \override NoteHead #'style = #'default
279 c'4. b8 ~ b g e a ~ | % 64
290 %Bah, can't we set this globally?
295 bf2 s8 bf4/d ef8 | % 1
296 s4. f4.:sus4 f4 | % 2
297 bf2 s8 bf4/d ef8 | % 3
298 s4. f4.:sus4 f4 | % 4
299 bf2 s8 bf4/d ef8 | % 5
300 s4. f4.:sus4 f4 | % 6
313 af2 ef4./g f8:sus4 | % 15
317 af2 ef4./g f8:sus4 | % 18
323 bf2 s8 bf4/d ef8 | % 20
324 s4. f4.:sus4 f4 | % 21
325 bf2 s8 bf4/d ef8 | % 22
326 s4. f4.:sus4 f4 | % 23
332 bf2 s8 bf4/d ef8 | % 28
333 s4. f4.:sus4 f4 | % 29
334 bf2 s8 bf4/d ef8 | % 30
335 s4. f4.:sus4 f4 | % 31
336 g4.:m g2:m/f ef8 | % 32
339 bf2. s8 f:sus4 | % 34
342 bf2 s8 bf4/d ef8 | % 36
344 s4. f4.:sus4 f4 | % 37
345 bf2 s8 bf4/d ef8 | % 38
346 s4. f4.:sus4 f4 | % 39
349 s4. g4.:sus4 g4 | % 41
351 s4. g4.:sus4 g4 | % 43
354 s4. g4.:sus4 g4 | % 45
356 s4. g4.:sus4 g4 | % 47
362 s4. g4.:sus4 g4 | % 53
364 s4. g4.:sus4 g4 | % 55
366 a4.:m a2:m/g f8 | % 56
368 a4.:m a2:m/g f8 | % 58
371 a4.:m a2:m/g f8 | % 60
386 % Use a RhythmicStaff on the chords instead of this?
387 % It almost works, but not quite. Doesn't collapse chords above to single notes...
391 \override Staff.TimeSignature #'style = #'()
392 \override NoteHead #'style = #'slash
396 c4-> r r8 c4-> c8-> | % 1
397 r4 r8 c-> ~ c4 c | % 2
398 c4-> r r8 c4-> c8-> | % 3
399 r4 r8 c-> ~ c4 c | % 4
400 c4-> r r8 c4-> c8-> | % 5
401 r4 r8 c-> ~ c4 c | % 6
402 c8 c c c c c c c | % 7
403 c8 c c c c c c c | % 8
409 c4. c8 ~ c4. c8 ~ | % 11
420 c8 c c c c c c c | % 19
424 c4-> r r8 c4-> c8-> | % 20
425 r4 r8 c-> ~ c4 c | % 21
426 c4-> r r8 c4-> c8-> | % 22
427 r4 r8 c-> ~ c4 c | % 23
428 c4. c8 ~ c4. c8 ~ | % 24
430 c8 c c c c c c c | % 26
431 c8 c c c c c c c | % 27
433 c4-> r r8 c4-> c8-> | % 28
434 r4 r8 c-> ~ c4 c | % 29
435 c4-> r r8 c4-> c8-> | % 30
436 r4 r8 c-> ~ c4 c | % 31
437 c4. c8 ~ c4. c8 ~ | % 32
443 c4-> r r8 c4-> c8-> | % 36
445 r4 r8 c-> ~ c4 c | % 37
446 c4-> r r8 c4-> c8-> | % 38
447 r4 r8 c-> ~ c4 c | % 39
449 c4-> r r8 c4-> c8-> | % 40
450 r4 r8 c-> ~ c4 c | % 41
451 c4-> r r8 c4-> c8-> | % 42
452 r4 r8 c-> ~ c4 c | % 43
454 c4-> r r8 c4-> c8-> | % 44
455 r4 r8 c-> ~ c4 c | % 45
456 c4-> r r8 c4-> c8-> | % 46
457 r4 r8 c-> ~ c4 c | % 47
458 c4. c8 ~ c4. c8 ~ | % 48
460 c8 c c c c c c c | % 50
461 c8 c c c c c c c | % 51
462 c4-> r r8 c4-> c8-> | % 52
463 r4 r8 c-> ~ c4 c | % 53
464 c4-> r r8 c4-> c8-> | % 54
465 r4 r8 c-> ~ c4 c | % 55
467 c4.-> c8-> ~ c4. c8-> ~ | % 56
469 c4.-> c8-> ~ c4. c8-> ~ | % 58
472 c4. c8 ~ c4. c8 ~ | % 60
477 c4. c8 ~ c4. c8 ~ | % 64
489 s4_\fp s s \< s | % 7
509 s8 \< s2. s8 \! | % 51
511 s4_\markup { \italic { rit. } } s2. | % 61
513 s2 s4_\markup { \italic { rit. } } s | % 65
520 \Global % The "roadmap" that everything else depends on
521 %nowok \transpose bf g
525 \new Voice = "lead" \transpose bf g \LeadVox
526 \new Voice \transpose bf a \Riffs
527 \new Lyrics \lyricsto "lead" \LeadVoxText
528 \new Lyrics \lyricsto "lead" \LeadVoxTextB
533 \new ChordNames \transpose bf a \Chords
535 % \new ChordNames \transpose f d \Chords
536 \new RhythmicStaff << \Rhythm \Dynamics >>
539 \set Score.skipBars = ##t
540 \set Score.melismaBusyProperties = #'()
547 #(define fonts (make-pango-font-tree
553 % Don't spread staves vertically across last page (default: t)
554 % ragged-last-bottom = ##f
555 % Don't spread staves vertically across the page (default: f)
556 % ragged-bottom = ##t
557 % Allow partial line for last stave (default: f)
560 % To find out what's eating the space at the top...
561 % annotate-spacing = ##t
562 %let's try this: [It works! Huzzah!]
563 obsolete-page-top-space = 0 top-system-spacing #'basic-distance = #(/ obsolete-page-top-space staff-space)