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 subtitle = \markup { \override #'(font-family . sans) \fontsize #1.3 "Abbreviated Version" }
19 composer = \markup { \override #'(font-family . sans) \fontsize #1.3 "Darlene Zschech" }
20 arranger = \markup { \override #'(font-family . sans) \fontsize #1.3 "Arr. Ed Smart" }
21 tagline = $(string-append "Engraved by JLH and Lilypond " (lilypond-version))
24 % Useful tweak abbreviations (hn = harmony note)
26 hn = #(define-music-function (parser location arg) (ly:music?)
27 ;; Harmony Note: Set the tweaks property of the passed in note to use a smaller font
29 (set! (ly:music-property arg 'tweaks)
30 (acons 'font-size -3.5 (ly:music-property arg 'tweaks))) arg)
39 \key a \major % New key!
40 \override Staff.TimeSignature #'style = #'()
45 \once \override TextScript #'padding = #2.0
46 s1*0^\markup { \large \bold { Moderately fast pop/Motown feel } }
48 % s1*0^\markup { \large \bold { Moderately fast pop "(*** CAPO 3 ***)" } }
55 \once \override Score.RehearsalMark #'self-alignment-X = #left
56 \mark \markup { \override #'(font-family . sans) { \box { A } } \hspace #1.0 \raise #2.0 \musicglyph #"scripts.segno" }
76 \mark \markup { \override #'(font-family . sans) { \box { B } } }
78 s1*8 \bar "||" % 20-27
86 s1*0^\markup { \italic { D.S. (w/repeats) } }
88 % \once \override Score.RehearsalMark #'self-alignment-X = #right
89 % \mark \markup { \italic { D.S. (w/repeats) } }
97 s1*3 \bar "||" % 37-39
99 \key bf \major % New key!
100 s1*4 \bar "||" % 40-43
102 \mark \markup { \override #'(font-family . sans) { \box { C } } }
112 s1*2 \bar "||" % 60-61
114 \once \override TextScript #'padding = #2.0
115 s1^\markup { \large \bold { Slower } } | % 62
117 s1*4 \bar "|." % 63-66
119 %Need to cut out bars 37-55 [DONE!]
124 LeadVox = \relative c'
127 \override Score.SpacingSpanner #'average-spacing-wishes = ##f
144 bf'8 bf bf a ~ a f ( d ) g ~ | % 11
145 g2 bf8 a g f ~ | % 12
146 f2 bf8 a g f ~ | % 13
148 f4. ~ f16 f f8 ef d bf | % 14
152 f2-\repeatTie bf8 bf g bf | % 17
159 bf8 bf a bf ~ bf bf a bf ~ | % 20
160 bf8 bf a g ~ g2 | % 21
161 bf8 bf a bf ~ bf bf c d ~ | % 22
162 d8 c bf c ~ c2 | % 23
163 bf8 bf a bf ~ bf bf a bf ~ | % 24
164 bf4 a8 g ~ g4 g8 g | % 25
165 a16 ( g f8 ) ~ f4 g g | % 26
168 bf8 bf a bf ~ bf bf a bf ~ | % 28
169 bf8 bf a g ~ g4. a8 | % 29
170 bf8 bf a bf ~ bf bf c d ~ | % 30
171 d8 c bf c ~ c2 | % 31
172 bf8 bf a bf ~ bf bf a bf ~ | % 32
173 bf8 bf a g ~ g4 a | % 33
178 bf8-\repeatTie bf a g ~ g4 r | % 36
182 bf8 bf a bf ~ bf4 r | % 38
185 c8 c b c ~ c4 r | % 40
187 c8 c b c ~ c4 r | % 42
190 c8 c b c ~ c c b c ~ | % 44
192 c8 c b c ~ c c d e ~ | % 46
194 c8 c b c ~ c c b c ~ | % 48
195 c4 b8 a ~ a4 a8 a | % 49
196 b16 ( a g8 ) ~ g4 a a | % 50
198 c8 c b c ~ c c b c ~ | % 52
199 c8 c b a ~ a4. b8 | % 53
200 c8 c b c ~ c c d e ~ | % 54
204 bf8 bf a bf ~ bf bf a bf ~ | % 56
205 bf8 bf a g ~ g4 r | % 57
206 bf8 bf a bf ~ bf bf a bf ~ | % 58
207 bf8 bf a g ~ g4 r | % 59
209 bf8 bf a bf ~ bf bf a bf ~ | % 60
210 bf8 bf a g ~ g4 a | % 61
219 LeadVoxText = \lyricmode
221 My Je -- sus, my sa -- vior,
222 Lord there is none _ like _ you; _
223 All of my days _ I want to praise _ _
224 the won -- ders of your migh -- ty love.
226 _ ne -- ver cease to wor -- ship you.
228 Shout to the Lord, _ all the earth, _ let us sing; _
229 Po -- wer and ma -- _ je -- sty, praise _ to the King. _
230 Moun -- tains bow down _ and the seas _ will roar _
231 at the sound __ _ _ _ of your name. __ _
232 I sing for joy _ at the work _ of your hands, _
233 for -- e -- ver I’ll love _ you, for -- e -- _ ver I’ll stand. _
234 No -- thing com -- pares _ to the pro -- _ mise I have _ in you.
243 Shout to the Lord, _ all the earth, _ let us sing; _
244 Po -- wer and ma -- _ je -- sty, praise _ to the King. _
245 Moun -- tains bow down _ and the seas _ will roar _
246 at the sound __ _ _ _ of your name. __ _
247 I sing for joy _ at the work _ of your hands, _
248 for -- e -- ver I’ll love _ you, for -- e -- _ ver I’ll stand. _
250 No -- thing com -- pares _ to the pro -- _ mise I have _
251 No -- thing com -- pares _ to the pro -- _ mise I have _
252 No -- thing com -- pares _ to the pro -- _ mise I have _ in you.
255 LeadVoxTextB = \lyricmode
257 My com -- fort, my shel -- ter,
258 To -- wer of ref -- _ uge and strength; _
259 Let ev -- r’y breath, _ all that I am,
266 Riffs = \relative c''
274 \override NoteHead #'style = #'slash
275 %bf' because of transposition...
276 r4 c16 c c c c r c8 r c | % 1
278 r4 c16 c c c c r c8 r c | % 3
280 r4 c16 c c c c r c8 r c | % 5
282 \override NoteHead #'style = #'default
290 c'4. b8 ~ b g e a ~ | % 64
301 %Bah, can't we set this globally?
306 bf2 s8 bf4/d ef8 | % 1
307 s4. f4.:sus4 f4 | % 2
308 bf2 s8 bf4/d ef8 | % 3
309 s4. f4.:sus4 f4 | % 4
310 bf2 s8 bf4/d ef8 | % 5
311 s4. f4.:sus4 f4 | % 6
324 af2 ef4./g f8:sus4 | % 15
328 af2 ef4./g f8:sus4 | % 18
334 bf2 s8 bf4/d ef8 | % 20
335 s4. f4.:sus4 f4 | % 21
336 bf2 s8 bf4/d ef8 | % 22
337 s4. f4.:sus4 f4 | % 23
343 bf2 s8 bf4/d ef8 | % 28
344 s4. f4.:sus4 f4 | % 29
345 bf2 s8 bf4/d ef8 | % 30
346 s4. f4.:sus4 f4 | % 31
347 g4.:m g2:m/f ef8 | % 32
350 bf2. s8 f:sus4 | % 34
356 s4. f4.:sus4 f4 | % 37
357 bf2 s8 bf4/d ef8 | % 38
358 s4. f4.:sus4 f4 | % 39
361 s4. g4.:sus4 g4 | % 41
363 s4. g4.:sus4 g4 | % 43
366 s4. g4.:sus4 g4 | % 45
368 s4. g4.:sus4 g4 | % 47
374 s4. g4.:sus4 g4 | % 53
376 s4. g4.:sus4 g4 | % 55
379 g4.:m g2:m/f ef8 | % 56
381 g4.:m g2:m/f ef8 | % 58
384 g4.:m g2:m/f ef8 | % 60
399 % Use a RhythmicStaff on the chords instead of this?
400 % It almost works, but not quite. Doesn't collapse chords above to single notes...
404 \override Staff.TimeSignature #'style = #'()
405 \override NoteHead #'style = #'slash
410 c4-> r r8 c4-> c8-> | % 1
411 r4 r8 c-> ~ c4 c | % 2
412 c4-> r r8 c4-> c8-> | % 3
413 r4 r8 c-> ~ c4 c | % 4
414 c4-> r r8 c4-> c8-> | % 5
415 r4 r8 c-> ~ c4 c | % 6
416 c8 c c c c c c c | % 7
417 c8 c c c c c c c | % 8
423 c4. c8 ~ c4. c8 ~ | % 11
434 c8 c c c c c c c | % 19
438 c4-> r r8 c4-> c8-> | % 20
439 r4 r8 c-> ~ c4 c | % 21
440 c4-> r r8 c4-> c8-> | % 22
441 r4 r8 c-> ~ c4 c | % 23
442 c4. c8 ~ c4. c8 ~ | % 24
444 c8 c c c c c c c | % 26
445 c8 c c c c c c c | % 27
447 c4-> r r8 c4-> c8-> | % 28
448 r4 r8 c-> ~ c4 c | % 29
449 c4-> r r8 c4-> c8-> | % 30
450 r4 r8 c-> ~ c4 c | % 31
451 c4. c8 ~ c4. c8 ~ | % 32
457 c4-> r r8 c4-> c8-> | % 36
460 r4 r8 c-> ~ c4 c | % 37
461 c4-> r r8 c4-> c8-> | % 38
462 r4 r8 c-> ~ c4 c | % 39
464 c4-> r r8 c4-> c8-> | % 40
465 r4 r8 c-> ~ c4 c | % 41
466 c4-> r r8 c4-> c8-> | % 42
467 r4 r8 c-> ~ c4 c | % 43
469 c4-> r r8 c4-> c8-> | % 44
470 r4 r8 c-> ~ c4 c | % 45
471 c4-> r r8 c4-> c8-> | % 46
472 r4 r8 c-> ~ c4 c | % 47
473 c4. c8 ~ c4. c8 ~ | % 48
475 c8 c c c c c c c | % 50
476 c8 c c c c c c c | % 51
477 c4-> r r8 c4-> c8-> | % 52
478 r4 r8 c-> ~ c4 c | % 53
479 c4-> r r8 c4-> c8-> | % 54
480 r4 r8 c-> ~ c4 c | % 55
483 c4.-> c8-> ~ c4. c8-> ~ | % 56
485 c4.-> c8-> ~ c4. c8-> ~ | % 58
488 c4. c8 ~ c4. c8 ~ | % 60
493 c4. c8 ~ c4. c8 ~ | % 64
505 s4_\fp s s \< s | % 7
527 s8 \< s2. s8 \! | % 51
530 s4_\markup { \italic { rit. } } s2. | % 61
532 s2 s4_\markup { \italic { rit. } } s | % 65
539 \set Score.skipBars = ##t
540 \set Score.melismaBusyProperties = #'()
541 %nowok \transpose bf g
545 \new ChordNames \transpose bf a \Chords
546 % \new ChordNames \Chords
548 % \new ChordNames \transpose f d \Chords
549 \new RhythmicStaff << \Rhythm \Dynamics >>
554 \Global % The "roadmap" that everything else depends on
555 \new Voice = "lead" \transpose bf a \LeadVox
556 \new Voice \transpose bf a \Riffs
557 \new Lyrics \lyricsto "lead" \LeadVoxText
558 \new Lyrics \lyricsto "lead" \LeadVoxTextB
564 \set Score.skipBars = ##t
565 \set Score.melismaBusyProperties = #'()
569 \new ChordNames \Chords
571 % \new ChordNames \transpose b g \Chords
572 % \new RhythmicStaff << \Rhythm \Dynamics >>
577 \Global % The "roadmap" that everything else depends on
578 \new Voice = "lead" \LeadVox
580 \new Lyrics \lyricsto "lead" \LeadVoxText
581 \new Lyrics \lyricsto "lead" \LeadVoxTextB
582 % \new Lyrics \lyricsto "lead" \LeadVoxTextC
583 % \new Lyrics \lyricsto "lead" \LeadVoxTextD
590 #(define fonts (make-pango-font-tree
596 % Don't spread staves vertically across last page (default: t)
597 % ragged-last-bottom = ##f
598 % Don't spread staves vertically across the page (default: f)
599 % ragged-bottom = ##t
600 % Allow partial line for last stave (default: f)
603 % To find out what's eating the space at the top...
604 % annotate-spacing = ##t
605 %let's try this: [It works! Huzzah!]
606 obsolete-page-top-space = 0 top-system-spacing #'basic-distance = #(/ obsolete-page-top-space staff-space)