Shamusworld >> Repos - music/blob - bless-the-lord-o-my-soul.ly

   1 \version "2.19.48"
   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 "Bless The Lord, O My Soul" }
  18         subtitle = \markup { \override #'(font-family . sans) \fontsize #1.3 "(10,000 Reasons)" }
  19         composer = \markup { \override #'(font-family . sans) \fontsize #1.3 "Matt Redman" }
  20         arranger = \markup { \override #'(font-family . sans) \fontsize #1.3 "arr. S. Hammons" }
  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         % Original is in G
  39         \key c \major
  40         \numericTimeSignature
  41         \time 4/4
  42
  43         % Intro
  44
  45         s1*4 |   % 1-4
  46
  47         \repeat volta 2
  48         {
  49                 % Chorus
  50
  51                 \mark \markup { \override #'(font-family . sans) { \box { A } } }
  52
  53                 s1*9 \bar "||"   % 5-13
  54 %bleh
  55 %\break
  56                 % Verse
  57
  58 %               \mark \markup { \override #'(font-family . sans) { \box { B } } }
  59                 \once \override Score.RehearsalMark #'self-alignment-X = #left
  60                 \mark \markup { \override #'(font-family . sans) { \box { B } } \hspace #1.0 \raise #2.0 \musicglyph #"scripts.segno" }
  61
  62                 s1*6 |   % 14-19
  63                 s1*3 |   % 20-22
  64
  65                 \once \override Score.RehearsalMark #'self-alignment-X = #right
  66                 \mark \markup { \italic { to Coda } \musicglyph #"scripts.coda" }
  67         }
  68         \alternative
  69         {
  70                 {
  71                         s1 |   % 23
  72                 }
  73                 {
  74                         s1 |   % 24
  75                 }
  76         }
  77
  78         % Chorus
  79
  80         \mark \markup { \override #'(font-family . sans) { \box { C } } }
  81
  82         s1*8 \bar "||"   % 25-32
  83
  84         % Instrumental
  85
  86         \mark \markup { \override #'(font-family . sans) { \box { D } } }
  87
  88 %{      s1^\markup { \italic { Repeat figure thru to D.S. } } |   % 42
  89         s1*8 |   % 34-41 %}
  90         s1*8 \bar "||"   % 33-40
  91
  92         \once \override Score.RehearsalMark #'self-alignment-X = #right
  93         \mark \markup { \hspace #0.0 \raise #1.0 \italic { D.S. al Coda } }
  94
  95         % Coda
  96
  97         % blank measure between last measure and coda
  98 %       \stopStaff s1 \bar "" \startStaff   % That removed the spurious floating bar line from line break
  99         \stopStaff s1 \startStaff   % That removed the spurious floating bar line from line break (DID IT???)
 100 %       \break % Meh
 101         \set Score.currentBarNumber = #41
 102
 103         \once \override Score.RehearsalMark #'self-alignment-X = #left
 104         \mark \markup { { \musicglyph #"scripts.coda" } "Coda" }
 105
 106         s1 \bar "||"   % 41
 107
 108         % Chorus
 109
 110         \mark \markup { \override #'(font-family . sans) { \box { E } } }
 111
 112         s1*8 \bar "||"   % 42-49
 113
 114         % Outro
 115
 116         \mark \markup { \override #'(font-family . sans) { \box { F } } }
 117         s1 |   % 50
 118
 119         \repeat volta 2
 120         {
 121                 \set Staff.ottavation = #"Vox tacet on repeat"
 122                 \set Voice.middleCPosition = #7
 123                 s1 |   % 51
 124                 s1 |   % 52
 125                 s2 \unset Staff.ottavation \unset Voice.middleCPosition s |   % 53
 126                 s1*6 |   % 54-59
 127         }
 128         \alternative
 129         {
 130                 {
 131                         s1*2 |   % 60-61
 132                 }
 133                 {
 134                         s1 |   % 62
 135                 }
 136         }
 137
 138         s1 \bar "|."   % 63
 139
 140 %{
 141
 142 %       \once \override TextScript #'padding = #2.0
 143 %       s1*0^\markup { \large \bold { Moderately fast pop } }
 144 %%Capo 3 version
 145 %%      s1*0^\markup { \large \bold { Moderately fast pop "(*** CAPO 3 ***)" } }
 146 %       s1*13 \bar "||:"   % 1-13
 147
 148 %}
 149 }
 150
 151
 152 %
 153 % Lead vocal
 154 %
 155 LeadVox = \relative c'
 156 {
 157         \clef G
 158         \override Score.SpacingSpanner #'average-spacing-wishes = ##f
 159
 160         % Intro
 161
 162         s1 |   % 1
 163         s1 |   % 2
 164         s1 |   % 3
 165         r2 r4 e8 g |   % 4
 166
 167         % Chorus
 168
 169         a4 a8 g e4 r |   % 5
 170         d8 ( e d ) c a4 r |   % 6
 171         a8 c g' e ~ e4 c8 d ~ |   % 7
 172         d2 r4 e8 g |   % 8
 173
 174         a4 a8 g e4 r |   % 9
 175         a4 b e, r8 r16 d |   % 10
 176         c8 d e d ~ d4 c8 c ~ |   % 11
 177         c2 r |   % 12
 178         r2 r4 r8 g |   % 13
 179
 180         % Verse
 181
 182         c4 c c a8 g |   % 14
 183         b4 c c a |   % 15
 184         r8 c c c c r c d ~ |   % 16
 185         d4 e8 e r4 r8 c |   % 17
 186         << { \voiceTwo f8 f f ( e ) } \new Voice = "v2" { \voiceOne \tiny f4 f } >> << { \voiceOne \tiny e8 [ d ] \normalsize } \new Voice = "v2" { \voiceTwo e r } >> \oneVoice c c |   % 18
 187         << { \voiceTwo d8 c d e d ( c ) a4 } \new Voice = "v2" { \voiceOne \tiny d4 e e d } >> \oneVoice |   % 19
 188         r2 r8 c c c |   % 20
 189         c8 c c d e4 d |   % 21
 190         c2 r |   % 22
 191
 192         r2 r4 e8 g |   % 23
 193
 194         r2 r4 e8 g |   % 24
 195
 196         % Chorus
 197
 198         a4 a8 g e4 r |   % 25
 199         d8 ( e d ) c a4 r |   % 26
 200         a8 c g' e ~ e4 c8 d ~ |   % 27
 201         d2 r4 e8 g |   % 28
 202
 203         a4 a8 g e4 r |   % 29
 204         a4 b e, r8 r16 d |   % 30
 205         c8 d e d ~ d4 c8 c ~ |   % 31
 206         c2 r |   % 32
 207
 208         % Chorus
 209
 210         R1*7 |   % 33-39
 211         r2 r4 r8 g |   % 40
 212
 213         % Coda
 214
 215         s1 | % blank measure for coda
 216
 217         r2 r4 e'8 g |   % 41
 218
 219         % Chorus
 220
 221         a4 a8 g e4 r |   % 42
 222         d8 ( e d ) c a4 r |   % 43
 223         a8 c g' e ~ e4 c8 d ~ |   % 44
 224         d2 r4 e8 g |   % 45
 225
 226         a4 a8 g e4 r |   % 46
 227         a4 b e, r8 r16 d |   % 47
 228         c8 d e d ~ d4 c8 c ~ |   % 48
 229         c2 r4 e8 g |   % 49
 230
 231         % Outro
 232
 233         a4 a8 g e4 r |   % 50
 234         d8 ( e d ) c a4 r |   % 51
 235         a8 c g' e ~ e4 c8 d ~ |   % 52
 236         d2 r4 e8 g |   % 53
 237
 238         a4 a8 g e4 r |   % 54
 239         a4 b e, r8 r16 d |   % 55
 240         c8 d e d ~ d4 c8 c ~ |   % 56
 241         c2 r4 r8 r16 d |   % 57
 242
 243         c8 d e d ~ d4 e8 e ~ |   % 58
 244         e2 r4 r8 r16 d |   % 59
 245
 246         c8 d e d ~ d4 c8 c ~ |   % 60
 247         c2 r |   % 61
 248
 249         c8 d e d ~ d4 c8 c ~ |   % 62
 250
 251         c1-\fermata |   % 63
 252 }
 253
 254 LeadVoxText = \lyricmode
 255 {
 256         Bless the Lord, o my soul, o __ _ _ my soul,
 257         wor -- ship his ho -- _ ly name, _
 258         Sing like ne -- ver be -- fore, o my soul,
 259         I'll wor -- ship your ho -- _ ly name. _
 260
 261         <<
 262         { The sun comes up it's a new day daw -- ning,
 263         it's time to sing your song _ a -- gain,
 264         What -- e -- ver may _ pass _ and what -- e -- ver lies be -- fore _ me,
 265         let me go sing -- ing when the eve -- ning comes. }
 266
 267         \new Lyrics = "verse2" \with { alignBelowContext = #"verse1" }
 268         { \set associatedVoice = "Lead"
 269         You're rich in love and you're slow to an -- ger,
 270         your name is great and your heart is kind,
 271         for all _ your  _ good -- ness I will keep _ on _ sing -- _ ing,
 272         ten thou -- sand rea -- sons for my heart to find.
 273         }
 274
 275         \new Lyrics = "verse3"  \with { alignBelowContext = #"verse2" }
 276         { \set associatedVoice = "Lead"
 277         _ on that day when my strength is fail -- ing,
 278         the end draws near and my time has come,
 279         _ still _ my _ soul will sing your praise _ un -- _ end -- _ ing,
 280         ten thou -- sand years and then for -- e -- ver -- more.
 281         }
 282         >>
 283
 284         Bless the
 285
 286         Bless the Lord, o my soul, o __ _ _ my soul,
 287         wor -- ship his ho -- _ ly name, _
 288         Sing like ne -- ver be -- fore, o my soul,
 289         I'll wor -- ship your ho -- _ ly name. _
 290
 291         And
 292
 293         Bless the Lord, o my soul, o __ _ _ my soul,
 294         wor -- ship his ho -- _ ly name, _
 295         Sing like ne -- ver be -- fore, o my soul,
 296         I'll wor -- ship your ho -- _ ly name. _
 297
 298         Bless the Lord, o my soul, o __ _ _ my soul,
 299         wor -- ship his ho -- _ ly name, _
 300         Sing like ne -- ver be -- fore, o my soul,
 301         I'll wor -- ship your ho -- _ ly name. _
 302         I'll wor -- ship your ho -- _ ly name. _
 303
 304         I'll wor -- ship your ho -- _ ly name. _
 305
 306         wor -- ship your ho -- _ ly name. _
 307 }
 308
 309 LeadVoxEcho = \lyricmode
 310 {
 311         Bet -- ter is one day _
 312         Bet -- ter is one day
 313 }
 314
 315
 316 %
 317 % Riffs
 318 %
 319 Riffs = \relative c'
 320 {
 321         % Intro
 322
 323         \teeny
 324 %{      c4 d b2 |   % 1
 325         a8 b a g e2 |   % 2
 326         g4 d' b g |   % 3
 327         a1 |   % 4
 328 %}
 329         f4 g e2 |   % 1
 330         d8 e d c a2 |   % 2
 331         c4 g' e c |   % 3
 332         d1 |   % 4
 333
 334         s1*36 |   % 5-40
 335         s1 % Blank bar for Coda
 336         s1*20 |   % 41-60
 337
 338         a'4 a8 g e2 |   % 61
 339 }
 340
 341
 342 %
 343 % Chord names
 344 %
 345 Chords = \chordmode
 346 {
 347         % Intro
 348
 349 %{      c2 g |   % 1
 350         d2/fs e:m |   % 2
 351         c2 g |   % 3
 352         d2:sus4 d |   % 4
 353 %}
 354         f2 c |   % 1
 355         g2/b a:m |   % 2
 356         f2 c |   % 3
 357         g2:sus4 g |   % 4
 358
 359         % Chorus
 360
 361         f2 c |   % 5
 362         g2/b a:m |   % 6
 363         f2 c |   % 7
 364         g2:sus4 g |   % 8
 365
 366         f2 a:m |   % 9
 367         f4 g a2:m |   % 10
 368         f2 g |   % 11
 369         f2 c |   % 12
 370         f2 c |   % 13
 371
 372         % Verse
 373
 374         f2 c |   % 14
 375         g2 a:m |   % 15
 376         f2 c |   % 16
 377         g2 a:m |   % 17
 378         f2 c |   % 18
 379         g2 a:m |   % 19
 380         s2 f |   % 20
 381         c2 g4:sus4 g |   % 21
 382         c1 |   % 22
 383
 384         s1 |   % 23
 385
 386         c1 |   % 24
 387
 388         % Chorus
 389
 390         f2 c |   % 25
 391         g2/b a:m |   % 26
 392         f2 c |   % 27
 393         g2:sus4 g |   % 28
 394
 395         f2 a:m |   % 29
 396         f4 g a2:m |   % 30
 397         f2 g |   % 31
 398         c1 |   % 32
 399
 400         % Instrumental
 401
 402         f2 c |   % 33
 403         g2/b a:m |   % 34
 404         f2 c |   % 35
 405         g2:sus4 g |   % 36
 406
 407         f2 a:m |   % 37
 408         f4 g a2:m |   % 38
 409         f2 g |   % 39
 410         c1 |   % 40
 411
 412         % Coda
 413
 414         s1 % blank measure for coda
 415
 416         c1 |   % 41
 417
 418         f2 c |   % 42
 419         g2/b a:m |   % 43
 420         f2 c |   % 44
 421         g2:sus4 g |   % 45
 422
 423         f2 a:m |   % 46
 424         f4 g a2:m |   % 47
 425         f2 g |   % 48
 426         c1 |   % 49
 427
 428         % Outro
 429
 430         f2 c |   % 50
 431         g2/b a:m |   % 51
 432         f2 c |   % 52
 433         g2:sus4 g |   % 53
 434
 435         f2 a:m |   % 54
 436         f4 g a2:m |   % 55
 437         f2 g |   % 56
 438         a1:m |   % 57
 439
 440         f2 g |   % 58
 441         a1:m |   % 59
 442
 443         f2 g |   % 60
 444         f2 c |   % 61
 445
 446         f2 g |   % 62
 447
 448         c1 |   % 63
 449 }
 450
 451
 452 %
 453 % Chord rhythms
 454 %
 455
 456 % Use a RhythmicStaff on the chords instead of this?
 457 % It almost works, but not quite. Doesn't collapse chords above to single notes...
 458
 459 Rhythm =
 460 {
 461         \numericTimeSignature
 462         \override NoteHead #'style = #'slash
 463
 464         % Intro
 465
 466         c2 c |   % 1
 467         c2 c |   % 2
 468         c2 c |   % 3
 469         c2 c |   % 4
 470
 471         % Chorus
 472
 473         c4 c c c |   % 5
 474         c4 c c c |   % 6
 475         c4 c c c |   % 7
 476         c4 c c c |   % 8
 477
 478         c4 c c c |   % 9
 479         c4 c c c |   % 10
 480         c4 c c c |   % 11
 481         c4 c c c |   % 12
 482         c4 c c c |   % 13
 483
 484         % Verse
 485
 486         c4 c c c |   % 14
 487         c4 c c c |   % 15
 488         c4 c c c |   % 16
 489         c4 c c c |   % 17
 490         c4 c c c |   % 18
 491         c4 c c c-> |   % 19
 492         c4-> c-> c c |   % 20
 493         c4 c c c |   % 21
 494         c4 c c c |   % 22
 495
 496         c4 c c c |   % 23
 497
 498         c4 c c c |   % 24
 499
 500         % Chorus
 501
 502         c4 c c c |   % 25
 503         c4 c c c |   % 26
 504         c4 c c c |   % 27
 505         c4 c c c |   % 28
 506
 507         c4 c c c |   % 29
 508         c4 c c c |   % 30
 509         c4 c c c |   % 31
 510         c4 c c c |   % 32
 511
 512         % Instrumental
 513
 514         c4 c c c |   % 33
 515         c4 c c c |   % 34
 516         c4 c c c |   % 35
 517         c4 c c c |   % 36
 518
 519         c4 c c c |   % 37
 520         c4 c c c |   % 38
 521         c2 c |   % 39
 522         c4 c c c |   % 40
 523
 524         % Coda
 525
 526         % blank measure between last measure and coda
 527 %hm. Shouldn't need /startStaff /stopStaff... !!! FIX !!!
 528         \stopStaff s1 \startStaff
 529
 530         c4 c c c |   % 41
 531
 532         c4 c c c |   % 42
 533         c4 c c c |   % 43
 534         c4 c c c |   % 44
 535         c4 c c c |   % 45
 536
 537         c4 c c c |   % 46
 538         c4 c c c |   % 47
 539         c4 c c c |   % 48
 540         c4 c c c |   % 49
 541
 542         % Outro
 543
 544         c4 c c c |   % 50
 545         c4 c c c |   % 51
 546         c4 c c c |   % 52
 547         c4 c c c |   % 53
 548
 549         c4 c c c |   % 54
 550         c4 c c c |   % 55
 551         c4 c c c |   % 56
 552         c4 c c c |   % 57
 553
 554         c4 c c c |   % 58
 555         c4 c c c |   % 59
 556
 557         c4 c c c |   % 60
 558         c4 c c c |   % 61
 559
 560         c4 c c c |   % 62
 561
 562         c1-\fermata |   % 63
 563 }
 564
 565
 566 Dynamics =
 567 {
 568 %Hmm, this is throwin off the layout...
 569 %{
 570         s4_\mf s2. |   % 1
 571         s1*18 |   % 2-19
 572         s4 s \< s2 |   % 20
 573         s4_\f s2. |   % 21
 574         s1*9 |   % 22-30
 575         s2 s4 \< s \! |   % 31
 576         s1*9 |   % 32-40
 577         s2 s4 \> s |   % 41
 578         s4_\mp s2. |   % 42
 579         s1*3 |   % 43-45
 580         s4_\mf s2. |   % 46
 581         s1*6 |   % 47-52
 582         s2 s4 \< s \! |   % 53
 583 %}
 584         s1*18
 585         s2. s4_\markup { \italic { No chord } }
 586 }
 587
 588
 589 \score
 590 {
 591         <<
 592                 \Global                 % The "roadmap" that everything else depends on
 593
 594                 \context Staff
 595                 <<
 596                         \new Voice = "lead" \LeadVox
 597                         \new Voice \Riffs
 598                         \new Lyrics = "verse1" \lyricsto "lead" \LeadVoxText
 599 %                       \new Lyrics \lyricsto "v2" \LeadVoxEcho
 600                 >>
 601
 602                 \new ChoirStaff
 603                 <<
 604                         \new ChordNames \Chords
 605 %Capo 3 edition
 606 %                       \new ChordNames \transpose f d \Chords
 607                         \new RhythmicStaff << \Rhythm \Dynamics >>
 608                 >>
 609
 610                 \set Score.skipBars = ##t
 611                 \set Score.melismaBusyProperties = #'()
 612         >>
 613 }
 614
 615
 616 \paper
 617 {
 618         #(define fonts (make-pango-font-tree
 619                 "Times New Roman"
 620                 "JazzText"
 621                 "Luxi Mono"
 622                 (/ staffSize 20)))
 623
 624 % Don't spread staves vertically across last page (default: t)
 625         ragged-last-bottom = ##f
 626 % Don't spread staves vertically across the page (default: f)
 627 %       ragged-bottom = ##t
 628 % Allow partial line for last stave (default: f)
 629         ragged-last = ##t
 630
 631 % To find out what's eating the space at the top...
 632 %       annotate-spacing = ##t
 633 }
 634