Shamusworld >> Repos - music/blob - shout-to-the-lord-shortened.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 = #20
   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         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))
  22 }
  23
  24 % Useful tweak abbreviations (hn = harmony note)
  25
  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
  28
  29   (set! (ly:music-property arg 'tweaks)
  30     (acons 'font-size -3.5 (ly:music-property arg 'tweaks))) arg)
  31
  32
  33 %
  34 % Song's structure
  35 %
  36 Global =
  37 {
  38 %       \key bf \major
  39         \key a \major % New key!
  40         \override Staff.TimeSignature #'style = #'()
  41         \time 4/4
  42
  43         % Intro
  44
  45         \once \override TextScript #'padding = #2.0
  46         s1*0^\markup { \large \bold { Moderately fast pop/Motown feel } }
  47 %Capo 3 version
  48 %       s1*0^\markup { \large \bold { Moderately fast pop "(*** CAPO 3 ***)" } }
  49         s1*8 |   % 1-8
  50
  51         \repeat volta 2
  52         {
  53                 % Verse
  54
  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" }
  57
  58                 s1*5 |   % 9-13
  59         }
  60         \alternative
  61         {
  62                 {
  63                         s1*3 |   % 14-16
  64                 }
  65                 {
  66                         s1*2 |   % 17-18
  67                 }
  68         }
  69
  70         s1 |   % 19
  71
  72         \repeat volta 2
  73         {
  74                 % Chorus
  75
  76                 \mark \markup { \override #'(font-family . sans) { \box { B } } }
  77
  78                 s1*8 \bar "||"   % 20-27
  79 %               s1*6 |   % 28-33
  80                 s1*5 |   % 28-32
  81         }
  82         \alternative
  83         {
  84                 {
  85                         s1*2 |   % 33-34
  86                         s1*0^\markup { \italic { D.S. (w/repeats) } }
  87                         s1*1 \bar "||"   % 35
  88 %                       \once \override Score.RehearsalMark #'self-alignment-X = #right
  89 %                       \mark \markup { \italic { D.S. (w/repeats) } }
  90                 }
  91                 {
  92                         s1 |   % 36
  93                 }
  94         }
  95
  96 %{
  97         s1*3 \bar "||"   % 37-39
  98 %       \key c \major
  99         \key bf \major % New key!
 100         s1*4 \bar "||"   % 40-43
 101
 102         \mark \markup { \override #'(font-family . sans) { \box { C } } }
 103
 104         s1*12 |   % 44-55
 105 %}
 106
 107         \repeat volta 2
 108         {
 109                 s1*4 |   % 56-59
 110         }
 111
 112         s1*2 \bar "||"   % 60-61
 113
 114         \once \override TextScript #'padding = #2.0
 115         s1^\markup { \large \bold { Slower } } |   % 62
 116
 117         s1*4 \bar "|."   % 63-66
 118 }
 119 %Need to cut out bars 37-55 [DONE!]
 120
 121 %
 122 % Lead vocal
 123 %
 124 LeadVox = \relative c'
 125 {
 126         \clef G
 127         \override Score.SpacingSpanner #'average-spacing-wishes = ##f
 128
 129         % Intro
 130
 131         s1 |   % 1
 132         s1 |   % 2
 133         s1 |   % 3
 134         s1 |   % 4
 135         s1 |   % 5
 136         s1 |   % 6
 137         R1 |   % 7
 138         R1 |   % 8
 139
 140         % Verse
 141
 142         r4 d ef f |   % 9
 143         r4 a, bf c |   % 10
 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
 147
 148         f4. ~ f16 f f8 ef d bf |   % 14
 149         c2 c |   % 15
 150         c2 r |   % 16
 151
 152         f2-\repeatTie bf8 bf g bf |   % 17
 153         c2 c |   % 18
 154
 155         c r |   % 19
 156
 157         % Chorus
 158
 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
 166         a2 ( c ) |   % 27
 167
 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
 174
 175         bf1 |   % 34
 176         R1 |   % 35
 177
 178         bf8-\repeatTie bf a g ~ g4 r |   % 36
 179
 180 %{
 181         R1 |   % 37
 182         bf8 bf a bf ~ bf4 r |   % 38
 183         R1 |   % 39
 184
 185         c8 c b c ~ c4 r |   % 40
 186         R1 |   % 41
 187         c8 c b c ~ c4 r |   % 42
 188         R1 |   % 43
 189
 190         c8 c b c ~ c c b c ~ |   % 44
 191         c8 c b a ~ a2 |   % 45
 192         c8 c b c ~ c c d e ~ |   % 46
 193         e8 d c d ~ d2 |   % 47
 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
 197         b2 ( d ) |   % 51
 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
 201         e8 d c d ~ d2 |   % 55
 202 %}
 203
 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
 208
 209         bf8 bf a bf ~ bf bf a bf ~ |   % 60
 210         bf8 bf a g ~ g4 a |   % 61
 211
 212         bf1 |   % 62
 213         s1 |   % 63
 214         s1 |   % 64
 215         s1 |   % 65
 216         s1 |   % 66
 217 }
 218
 219 LeadVoxText = \lyricmode
 220 {
 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.
 225
 226         _ ne -- ver cease to wor -- ship you.
 227
 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.
 235
 236         %       you.
 237         _ mise I have _
 238 %{
 239         Shout to the Lord, _
 240         Shout to the Lord, _
 241         Shout to the Lord, _
 242
 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. _
 249 %}
 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.
 253 }
 254
 255 LeadVoxTextB = \lyricmode
 256 {
 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,
 260 }
 261
 262
 263 %
 264 % Riffs
 265 %
 266 Riffs = \relative c''
 267 {
 268         \tiny
 269
 270         % Intro
 271
 272 %For new key...
 273 %\transpose g b {
 274         \override NoteHead #'style = #'slash
 275 %bf' because of transposition...
 276         r4 c16 c c c c r c8 r c |   % 1
 277         r4 r8 c r4 c |   % 2
 278         r4 c16 c c c c r c8 r c |   % 3
 279         r4 r8 c r4 c |   % 4
 280         r4 c16 c c c c r c8 r c |   % 5
 281         r4 r8 c r4 c |   % 6
 282         \override NoteHead #'style = #'default
 283 %}
 284
 285 %       s1*55 |   % 7-61
 286         s1*36 |   % 7-61
 287
 288         r4 e f g |   % 62
 289         r4 b, c d |   % 63
 290         c'4. b8 ~ b g e a ~ |   % 64
 291         a2 c8 b a4 |   % 65
 292         g1-\fermata |   % 66
 293 }
 294
 295
 296 %
 297 % Chord names
 298 %
 299 Chords = \chordmode
 300 {
 301 %Bah, can't we set this globally?
 302 %       \popChords
 303
 304         % Intro
 305
 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
 312         f2 ef/f |   % 7
 313         f1 |   % 8
 314
 315         % Verse
 316
 317         bf1 |   % 9
 318         f1 |   % 10
 319         g4.:m f2 ef8 |   % 11
 320         s1 |   % 12
 321         bf2/d ef |   % 13
 322
 323         bf2/f g:m7 |   % 14
 324         af2 ef4./g f8:sus4 |   % 15
 325         s4. f2 s8 |   % 16
 326
 327         bf2/f g:m7 |   % 17
 328         af2 ef4./g f8:sus4 |   % 18
 329
 330         s2 f |   % 19
 331
 332         % Chorus
 333
 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
 338         g4.:m f2 ef8 |   % 24
 339         s1 |   % 25
 340         f2 ef/f |   % 26
 341         f1 |   % 27
 342
 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
 348         s2 f4:sus4 f |   % 33
 349
 350         bf2. s8 f:sus4 |   % 34
 351         s1 |   % 35
 352
 353         s2 f4:sus4 f |   % 36
 354
 355 %{
 356         s4. f4.:sus4 f4 |   % 37
 357         bf2 s8 bf4/d ef8 |   % 38
 358         s4. f4.:sus4 f4 |   % 39
 359
 360         c2 s8 c4/e f8 |   % 40
 361         s4. g4.:sus4 g4 |   % 41
 362         c2 s8 c4/e f8 |   % 42
 363         s4. g4.:sus4 g4 |   % 43
 364
 365         c2 s8 c4/e f8 |   % 44
 366         s4. g4.:sus4 g4 |   % 45
 367         c2 s8 c4/e f8 |   % 46
 368         s4. g4.:sus4 g4 |   % 47
 369         a4.:m g2 f8 |   % 48
 370         s1 |   % 49
 371         g2 f/g |   % 50
 372         g1 |   % 51
 373         c2 s8 c4/e f8 |   % 52
 374         s4. g4.:sus4 g4 |   % 53
 375         c2 s8 c4/e f8 |   % 54
 376         s4. g4.:sus4 g4 |   % 55
 377 %}
 378
 379         g4.:m g2:m/f ef8 |   % 56
 380         s2 f4:sus4 f |   % 57
 381         g4.:m g2:m/f ef8 |   % 58
 382         s2 f4:sus4 f |   % 59
 383
 384         g4.:m g2:m/f ef8 |   % 60
 385         s2 f4:sus4 f |   % 61
 386
 387         bf1 |   % 62
 388         f1 |   % 63
 389         g4.:m f2 ef8 |   % 64
 390         s1 |   % 65
 391         bf1 |   % 66
 392 }
 393
 394
 395 %
 396 % Chord rhythms
 397 %
 398
 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...
 401
 402 Rhythm =
 403 {
 404         \override Staff.TimeSignature #'style = #'()
 405         \override NoteHead #'style = #'slash
 406         \teeny
 407
 408         % Intro
 409
 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
 418
 419         % Verse
 420
 421         c4 c c-> c |   % 9
 422         c4 c c-> c |   % 10
 423         c4. c8 ~ c4. c8 ~ |   % 11
 424         c4 c c c |   % 12
 425         c4 c c c |   % 13
 426
 427         c4 c c c |   % 14
 428         c4 c c c8 c ~ |   % 15
 429         c4 c c c |   % 16
 430
 431         c4 c c c |   % 17
 432         c4 c c c8 c ~ |   % 18
 433
 434         c8 c c c c c c c |   % 19
 435
 436         % Chorus
 437
 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
 443         c4 c c c |   % 25
 444         c8 c c c c c c c |   % 26
 445         c8 c c c c c c c |   % 27
 446
 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
 452         c4 c c c |   % 33
 453
 454         c4 c c c8 c ~ |   % 34
 455         c4 c c c |   % 35
 456
 457         c4-> r r8 c4-> c8-> |   % 36
 458
 459 %{
 460         r4 r8 c-> ~ c4 c |   % 37
 461         c4-> r r8 c4-> c8-> |   % 38
 462         r4 r8 c-> ~ c4 c |   % 39
 463
 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
 468
 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
 474         c4 c c c |   % 49
 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
 481 %}
 482
 483         c4.-> c8-> ~ c4. c8-> ~ |   % 56
 484         c4 c c c |   % 57
 485         c4.-> c8-> ~ c4. c8-> ~ |   % 58
 486         c4 c c c |   % 59
 487
 488         c4. c8 ~ c4. c8 ~ |   % 60
 489         c4 c c c |   % 61
 490
 491         c4 c c c |   % 62
 492         c4 c c c |   % 63
 493         c4. c8 ~ c4. c8 ~ |   % 64
 494         c1 |   % 65
 495         c1-\fermata |   % 66
 496 }
 497
 498
 499 Dynamics =
 500 {
 501         % Intro
 502
 503         s4_\f s2. |   % 1
 504         s1*5 |   % 2-6
 505         s4_\fp s s \< s |   % 7
 506         s1 |   % 8
 507
 508         % Verse
 509
 510         s4_\mf s2. |   % 9
 511         s1*8 |   % 10-17
 512         s2. s8 s_\fp |   % 18
 513         s4 \< s2. |   % 19
 514
 515         % Chorus
 516
 517         s4_\f s2. |   % 20
 518         s1*5 |   % 21-25
 519         s4_\fp s2. |   % 26
 520         s8 \< s2.. |   % 27
 521         s4_\f s2. |   % 28
 522 %       s1*21 |   % 29-49
 523         s1*2 |   % 29-49
 524
 525 %{
 526         s4_\fp s2. |   % 50
 527         s8 \< s2. s8 \! |   % 51
 528 %}
 529         s1*9 |   % 52-60
 530         s4_\markup { \italic { rit. } } s2. |   % 61
 531         s1*3 |   % 62-64
 532         s2 s4_\markup { \italic { rit. } } s |   % 65
 533 }
 534
 535
 536 \score
 537 {
 538         <<
 539                 \set Score.skipBars = ##t
 540                 \set Score.melismaBusyProperties = #'()
 541 %nowok          \transpose bf g
 542
 543 %               \new ChoirStaff
 544                 <<
 545                         \new ChordNames \transpose bf a \Chords
 546 %                       \new ChordNames \Chords
 547 %Capo 3 edition
 548 %                       \new ChordNames \transpose f d \Chords
 549                         \new RhythmicStaff << \Rhythm \Dynamics >>
 550                 >>
 551
 552                 \new Staff
 553                 <<
 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
 559                 >>
 560         >>
 561 }
 562 %{
 563         <<
 564                 \set Score.skipBars = ##t
 565                 \set Score.melismaBusyProperties = #'()
 566
 567 %               \new Staff
 568                 <<
 569                         \new ChordNames \Chords
 570 %Capo 4 edition
 571 %                       \new ChordNames \transpose b g \Chords
 572 %                       \new RhythmicStaff << \Rhythm \Dynamics >>
 573                 >>
 574
 575                 \new Staff
 576                 <<
 577                         \Global                                         % The "roadmap" that everything else depends on
 578                         \new Voice = "lead" \LeadVox
 579                         \new Voice \Riffs
 580                         \new Lyrics \lyricsto "lead" \LeadVoxText
 581                         \new Lyrics \lyricsto "lead" \LeadVoxTextB
 582 %                       \new Lyrics \lyricsto "lead" \LeadVoxTextC
 583 %                       \new Lyrics \lyricsto "lead" \LeadVoxTextD
 584                 >>
 585         >>
 586 %}
 587
 588 \paper
 589 {
 590         #(define fonts (make-pango-font-tree
 591                 "Times New Roman"
 592                 "DomCasual BT"
 593                 "Luxi Mono"
 594                 (/ staffSize 20)))
 595
 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)
 601 %       ragged-last = ##t
 602
 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)
 607 }