Shamusworld >> Repos - music/blob - shout-to-the-lord.ly

   1 \version "2.16.0"
   2 \include "pop-chords.ly"
   3 \include "english.ly"
   4
   5 % Good sizes are 16, 18, & 20
   6 staffSize = #16
   7 #(set-default-paper-size "letter")
   8 #(set-global-staff-size staffSize)
   9 #(ly:set-option (quote no-point-and-click))
  10
  11 %{ Some useful characters: ‘ ’ “ ” – — † ‡ • … %}
  12
  13 \header
  14 {
  15 %Let's bump up the title size and switch to the chord font. :-)
  16
  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))
  21 }
  22
  23 % Useful tweak abbreviations (hn = harmony note)
  24
  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
  27
  28   (set! (ly:music-property arg 'tweaks)
  29     (acons 'font-size -3.5 (ly:music-property arg 'tweaks))) arg)
  30
  31
  32 %
  33 % Song's structure
  34 %
  35 Global =
  36 {
  37 %       \key bf \major
  38         \key g \major % New key!
  39         \override Staff.TimeSignature #'style = #'()
  40         \time 4/4
  41
  42         % Intro
  43
  44         \once \override TextScript #'padding = #2.0
  45         s1*0^\markup { \large \bold { Moderately fast pop/Motown feel } }
  46 %Capo 3 version
  47 %       s1*0^\markup { \large \bold { Moderately fast pop "(*** CAPO 3 ***)" } }
  48         s1*8 |   % 1-8
  49
  50         \repeat volta 2
  51         {
  52                 % Verse
  53
  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" }
  56
  57                 s1*5 |   % 9-13
  58         }
  59         \alternative
  60         {
  61                 {
  62                         s1*3 |   % 14-16
  63                 }
  64                 {
  65                         s1*2 |   % 17-18
  66                 }
  67         }
  68
  69         s1 |   % 19
  70
  71         \repeat volta 2
  72         {
  73                 % Chorus
  74
  75                 \mark \markup { \override #'(font-family . sans) { \box { B } } }
  76
  77                 s1*8 \bar "||"   % 20-27
  78                 s1*6 |   % 28-33
  79         }
  80         \alternative
  81         {
  82                 {
  83                         s1*2 \bar "||"   % 34-35
  84                         \once \override Score.RehearsalMark #'self-alignment-X = #right
  85                         \mark \markup { \italic { D.S. (w/repeats) } }
  86                 }
  87                 {
  88                         s1 |   % 36
  89                 }
  90         }
  91
  92         s1*3 \bar "||"   % 37-39
  93 %       \key c \major
  94         \key a \major % New key!
  95         s1*4 \bar "||"   % 40-43
  96
  97         \mark \markup { \override #'(font-family . sans) { \box { C } } }
  98
  99         s1*12 |   % 44-55
 100
 101         \repeat volta 2
 102         {
 103                 s1*4 |   % 56-59
 104         }
 105
 106         s1*2 \bar "||"   % 60-61
 107
 108         \once \override TextScript #'padding = #2.0
 109         s1^\markup { \large \bold { Slower } } |   % 62
 110
 111         s1*4 \bar "|."   % 63-66
 112 }
 113
 114
 115 %
 116 % Lead vocal
 117 %
 118 LeadVox = \relative c'
 119 {
 120         \clef G
 121         \override Score.SpacingSpanner #'average-spacing-wishes = ##f
 122
 123         % Intro
 124
 125         s1 |   % 1
 126         s1 |   % 2
 127         s1 |   % 3
 128         s1 |   % 4
 129         s1 |   % 5
 130         s1 |   % 6
 131         R1 |   % 7
 132         R1 |   % 8
 133
 134         % Verse
 135
 136         r4 d ef f |   % 9
 137         r4 a, bf c |   % 10
 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
 141
 142         f4. ~ f16 f f8 ef d bf |   % 14
 143         c2 c |   % 15
 144         c2 r |   % 16
 145
 146         f2-\repeatTie bf8 bf g bf |   % 17
 147         c2 c |   % 18
 148
 149         c r |   % 19
 150
 151         % Chorus
 152
 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
 160         a2 ( c ) |   % 27
 161
 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
 168
 169         bf1 |   % 34
 170         R1 |   % 35
 171
 172         bf1 |   % 36
 173
 174         R1 |   % 37
 175         bf8 bf a bf ~ bf4 r |   % 38
 176         R1 |   % 39
 177
 178         c8 c b c ~ c4 r |   % 40
 179         R1 |   % 41
 180         c8 c b c ~ c4 r |   % 42
 181         R1 |   % 43
 182
 183         c8 c b c ~ c c b c ~ |   % 44
 184         c8 c b a ~ a2 |   % 45
 185         c8 c b c ~ c c d e ~ |   % 46
 186         e8 d c d ~ d2 |   % 47
 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
 190         b2 ( d ) |   % 51
 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
 194         e8 d c d ~ d2 |   % 55
 195
 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
 200
 201         c8 c b c ~ c c b c ~ |   % 60
 202         c8 c b a ~ a4 b |   % 61
 203
 204         c1 |   % 62
 205         s1 |   % 63
 206         s1 |   % 64
 207         s1 |   % 65
 208         s1 |   % 66
 209 }
 210
 211 LeadVoxText = \lyricmode
 212 {
 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.
 217
 218         _ ne -- ver cease to wor -- ship you.
 219
 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.
 227
 228         you.
 229
 230         Shout to the Lord, _
 231         Shout to the Lord, _
 232         Shout to the Lord, _
 233
 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.
 243 }
 244
 245 LeadVoxTextB = \lyricmode
 246 {
 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,
 250 }
 251
 252
 253 %
 254 % Riffs
 255 %
 256 Riffs = \relative c''
 257 {
 258         \tiny
 259
 260         % Intro
 261
 262 %For new key...
 263 \transpose g b {
 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
 273 }
 274
 275         s1*55 |   % 7-61
 276
 277         r4 e f g |   % 62
 278         r4 b, c d |   % 63
 279         c'4. b8 ~ b g e a ~ |   % 64
 280         a2 c8 b a4 |   % 65
 281         g1-\fermata |   % 66
 282 }
 283
 284
 285 %
 286 % Chord names
 287 %
 288 Chords = \chordmode
 289 {
 290 %Bah, can't we set this globally?
 291 %       \popChords
 292
 293         % Intro
 294
 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
 301         f2 ef/f |   % 7
 302         f1 |   % 8
 303
 304         % Verse
 305
 306         bf1 |   % 9
 307         f1 |   % 10
 308         g4.:m f2 ef8 |   % 11
 309         s1 |   % 12
 310         bf2/d ef |   % 13
 311
 312         bf2/f g:m7 |   % 14
 313         af2 ef4./g f8:sus4 |   % 15
 314         s4. f2 s8 |   % 16
 315
 316         bf2/f g:m7 |   % 17
 317         af2 ef4./g f8:sus4 |   % 18
 318
 319         s2 f |   % 19
 320
 321         % Chorus
 322
 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
 327         g4.:m f2 ef8 |   % 24
 328         s1 |   % 25
 329         f2 ef/f |   % 26
 330         f1 |   % 27
 331
 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
 337         s2 f4:sus4 f |   % 33
 338
 339         bf2. s8 f:sus4 |   % 34
 340         s1 |   % 35
 341
 342         bf2 s8 bf4/d ef8 |   % 36
 343
 344         s4. f4.:sus4 f4 |   % 37
 345         bf2 s8 bf4/d ef8 |   % 38
 346         s4. f4.:sus4 f4 |   % 39
 347
 348         c2 s8 c4/e f8 |   % 40
 349         s4. g4.:sus4 g4 |   % 41
 350         c2 s8 c4/e f8 |   % 42
 351         s4. g4.:sus4 g4 |   % 43
 352
 353         c2 s8 c4/e f8 |   % 44
 354         s4. g4.:sus4 g4 |   % 45
 355         c2 s8 c4/e f8 |   % 46
 356         s4. g4.:sus4 g4 |   % 47
 357         a4.:m g2 f8 |   % 48
 358         s1 |   % 49
 359         g2 f/g |   % 50
 360         g1 |   % 51
 361         c2 s8 c4/e f8 |   % 52
 362         s4. g4.:sus4 g4 |   % 53
 363         c2 s8 c4/e f8 |   % 54
 364         s4. g4.:sus4 g4 |   % 55
 365
 366         a4.:m a2:m/g f8 |   % 56
 367         s2 g4:sus4 g |   % 57
 368         a4.:m a2:m/g f8 |   % 58
 369         s2 g4:sus4 g |   % 59
 370
 371         a4.:m a2:m/g f8 |   % 60
 372         s2 g4:sus4 g |   % 61
 373
 374         c1 |   % 62
 375         g1 |   % 63
 376         a4.:m g2 f8 |   % 64
 377         s1 |   % 65
 378         c1 |   % 66
 379 }
 380
 381
 382 %
 383 % Chord rhythms
 384 %
 385
 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...
 388
 389 Rhythm =
 390 {
 391         \override Staff.TimeSignature #'style = #'()
 392         \override NoteHead #'style = #'slash
 393
 394         % Intro
 395
 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
 404
 405         % Verse
 406
 407         c4 c c-> c |   % 9
 408         c4 c c-> c |   % 10
 409         c4. c8 ~ c4. c8 ~ |   % 11
 410         c4 c c c |   % 12
 411         c4 c c c |   % 13
 412
 413         c4 c c c |   % 14
 414         c4 c c c8 c ~ |   % 15
 415         c4 c c c |   % 16
 416
 417         c4 c c c |   % 17
 418         c4 c c c8 c ~ |   % 18
 419
 420         c8 c c c c c c c |   % 19
 421
 422         % Chorus
 423
 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
 429         c4 c c c |   % 25
 430         c8 c c c c c c c |   % 26
 431         c8 c c c c c c c |   % 27
 432
 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
 438         c4 c c c |   % 33
 439
 440         c4 c c c8 c ~ |   % 34
 441         c4 c c c |   % 35
 442
 443         c4-> r r8 c4-> c8-> |   % 36
 444
 445         r4 r8 c-> ~ c4 c |   % 37
 446         c4-> r r8 c4-> c8-> |   % 38
 447         r4 r8 c-> ~ c4 c |   % 39
 448
 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
 453
 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
 459         c4 c c c |   % 49
 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
 466
 467         c4.-> c8-> ~ c4. c8-> ~ |   % 56
 468         c4 c c c |   % 57
 469         c4.-> c8-> ~ c4. c8-> ~ |   % 58
 470         c4 c c c |   % 59
 471
 472         c4. c8 ~ c4. c8 ~ |   % 60
 473         c4 c c c |   % 61
 474
 475         c4 c c c |   % 62
 476         c4 c c c |   % 63
 477         c4. c8 ~ c4. c8 ~ |   % 64
 478         c1 |   % 65
 479         c1-\fermata |   % 66
 480 }
 481
 482
 483 Dynamics =
 484 {
 485         % Intro
 486
 487         s4_\f s2. |   % 1
 488         s1*5 |   % 2-6
 489         s4_\fp s s \< s |   % 7
 490         s1 |   % 8
 491
 492         % Verse
 493
 494         s4_\mf s2. |   % 9
 495         s1*8 |   % 10-17
 496         s2. s8 s_\fp |   % 18
 497         s4 \< s2. |   % 19
 498
 499         % Chorus
 500
 501         s4_\f s2. |   % 20
 502         s1*5 |   % 21-25
 503         s4_\fp s2. |   % 26
 504         s8 \< s2.. |   % 27
 505         s4_\f s2. |   % 28
 506         s1*21 |   % 29-49
 507
 508         s4_\fp s2. |   % 50
 509         s8 \< s2. s8 \! |   % 51
 510         s1*9 |   % 52-60
 511         s4_\markup { \italic { rit. } } s2. |   % 61
 512         s1*3 |   % 62-64
 513         s2 s4_\markup { \italic { rit. } } s |   % 65
 514 }
 515
 516
 517 \score
 518 {
 519         <<
 520                 \Global                                         % The "roadmap" that everything else depends on
 521 %nowok          \transpose bf g
 522
 523                 \context Staff
 524                 <<
 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
 529                 >>
 530
 531                 \new ChoirStaff
 532                 <<
 533                         \new ChordNames \transpose bf a \Chords
 534 %Capo 3 edition
 535 %                       \new ChordNames \transpose f d \Chords
 536                         \new RhythmicStaff << \Rhythm \Dynamics >>
 537                 >>
 538
 539                 \set Score.skipBars = ##t
 540                 \set Score.melismaBusyProperties = #'()
 541         >>
 542 }
 543
 544
 545 \paper
 546 {
 547         #(define fonts (make-pango-font-tree
 548                 "Times New Roman"
 549                 "DomCasual BT"
 550                 "Luxi Mono"
 551                 (/ staffSize 20)))
 552
 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)
 558         ragged-last = ##t
 559
 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)
 564 }