Shamusworld >> Repos - music/blob - better-is-one-day.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 "Better Is One Day" }
  18         composer = \markup { \override #'(font-family . sans) \fontsize #1.3 "Matt Redman" }
  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 e \major
  38         \numericTimeSignature
  39         \time 4/4
  40
  41         % Intro
  42
  43         s1*4 |   % 1-4
  44
  45         \repeat volta 2
  46         {
  47                 % Verse
  48
  49                 \mark \markup { \override #'(font-family . sans) { \box { A } } }
  50
  51                 s1*16 \bar "||"   % 5-20
  52 %bleh
  53 \break
  54                 % Chorus
  55
  56 %               \mark \markup { \override #'(font-family . sans) { \box { B } } }
  57                 \once \override Score.RehearsalMark #'self-alignment-X = #left
  58                 \mark \markup { \override #'(font-family . sans) { \box { B } } \hspace #1.0 \raise #2.0 \musicglyph #"scripts.segno" }
  59
  60                 s1*6 |   % 21-26
  61                 s1 |   % 27
  62
  63                 \once \override Score.RehearsalMark #'self-alignment-X = #right
  64                 \mark \markup { \italic { to Coda } \musicglyph #"scripts.coda" }
  65         }
  66         \alternative
  67         {
  68                 {
  69                         s1*3 |   % 28-30
  70                 }
  71                 {
  72                         s1 |   % 31
  73                 }
  74         }
  75
  76         % Bridge
  77
  78         \mark \markup { \override #'(font-family . sans) { \box { C } } }
  79
  80         s1*10 \bar "||"   % 32-41
  81
  82         \mark \markup { \override #'(font-family . sans) { \box { D } } }
  83
  84         s1^\markup { \italic { Repeat figure thru to D.S. } } |   % 42
  85         s1*10 |   % 43-52
  86         s1 \bar "||"   % 53
  87
  88         \once \override Score.RehearsalMark #'self-alignment-X = #right
  89         \mark \markup { \hspace #0.0 \raise #1.0 \italic { D.S. al Coda } }
  90
  91         % Coda
  92
  93         % blank measure between last measure and coda
  94 %       \stopStaff s1 \bar "" \startStaff   % That removed the spurious floating bar line from line break
  95         \stopStaff s1 \startStaff   % That removed the spurious floating bar line from line break
  96 %       \break % Meh
  97         \set Score.currentBarNumber = #54
  98
  99         \once \override Score.RehearsalMark #'self-alignment-X = #left
 100         \mark \markup { { \musicglyph #"scripts.coda" } "Coda" }
 101
 102         s1 |   % 54
 103
 104         \repeat volta 2
 105         {
 106                 % Chorus
 107
 108                 \mark \markup { \override #'(font-family . sans) { \box { E } } }
 109
 110                 s1*3 |   % 55-57
 111         }
 112         \alternative
 113         {
 114                 {
 115                         s1 |   % 58
 116                 }
 117                 {
 118                         s1 |   % 59
 119                 }
 120         }
 121
 122         % Outro
 123
 124         \mark \markup { \override #'(font-family . sans) { \box { F } } }
 125
 126         s1*7 \bar "|."   % 60-66
 127 }
 128
 129
 130 %
 131 % Lead vocal
 132 %
 133 LeadVox = \relative c'
 134 {
 135         \clef G
 136         \override Score.SpacingSpanner #'average-spacing-wishes = ##f
 137
 138         % Intro
 139
 140         R1*3 |   % 1-3
 141         r2 r4 r8 e |   % 4
 142
 143         % Verse
 144
 145         e4 ds cs r8 e |   % 5
 146         e4 fs e2 |   % 6
 147         r4 r8 e e4 cs8 cs ~ |   % 7
 148         cs8 b ~ b4 r r8 e8 |   % 8
 149         e4 ds cs4. e8 |   % 9
 150         e4 fs e4. b8 |   % 10
 151         b1 |   % 11
 152         r2 r4 r8 e |   % 12
 153         e4 ds cs r8 e |   % 13
 154         e4 fs e2 |   % 14
 155         r4 r8 e e4 gs8 gs ~ |   % 15
 156         gs8 fs ~ fs4 r r8 e |   % 16
 157         e4 ds cs r8 e |   % 17
 158         e4 fs e4. gs8 |   % 18
 159         gs8 ( fs ) ~ fs2. |   % 19
 160         r2 r4 <gs \hn e>16 <b \hn gs> <b \hn gs>8 |   % 20
 161
 162         % Chorus
 163
 164         <b \hn gs>8 <b \hn gs> <b \hn gs> <b \hn gs> <e, \hn cs>4 <gs \hn e>16 <b \hn gs> <b \hn gs>8 |   % 21
 165         <b \hn gs>8 <b \hn gs> <b \hn gs> <b \hn gs> <cs \hn fs,>4 <cs \hn e,>16 <b \hn gs> <b \hn gs>8 |   % 22
 166         <b \hn gs>8 <b \hn gs> <b \hn gs> <b \hn gs> <e, \hn cs>8. e16 a8 gs |   % 23
 167         gs8 fs ~ fs2 <gs \hn e>16 <b \hn gs> <b \hn gs>8 |   % 24
 168         <b \hn gs>8 <b \hn gs> <b \hn gs> <b \hn gs> <e, \hn cs>4 <gs \hn e>16 <b \hn gs> <b \hn gs>8 |   % 25
 169         <b \hn gs>8 <b \hn gs> <b \hn gs> <b \hn gs> <cs \hn fs,>4 <cs \hn e,>16 <b \hn gs> <b \hn gs>8 |   % 26
 170         <b \hn gs>8 <b \hn gs> <b \hn gs> <b \hn gs> <e, \hn cs>8. e16 <a \hn fs>8 <gs \hn e> |   % 27
 171
 172         <gs \hn e>8 <fs \hn ds> ~ <fs \hn ds>4 ~ <fs \hn ds>8. e16 fs8. e16 |   % 28
 173         fs8 gs ~ gs2. |   % 29
 174         r2 r4 r8 e |   % 30
 175
 176         <gs \hn e>8 <fs \hn ds> ~ <fs \hn ds>2. |   % 31
 177
 178         % Bridge
 179
 180         r8 gs gs gs gs gs b4 |   % 32
 181         r8 gs gs gs b cs gs16 ( fs ) ~ fs8 |   % 33
 182         r8 gs gs gs gs gs gs fs |   % 34
 183         fs16 ( e ) ~ e8 ~ e2 r4 |   % 35
 184         r8 gs gs gs gs gs b4 |   % 36
 185         r8 gs gs gs b cs gs16 ( fs ) ~ fs8 |   % 37
 186         r8 gs gs gs gs fs e4 |   % 38
 187         r8 <gs \hn e>8 <gs \hn e> <gs \hn e> <b \hn gs>4 <cs \hn a>8 <cs \hn a> ~ |   % 39
 188         <cs \hn a>2. <e \hn a,>8 <e \hn a,> ~ |   % 40
 189         <e \hn a,>1 |   % 41
 190
 191         % Chorus
 192
 193         s1 |   % 42
 194         s1 |   % 43
 195         s1 |   % 44
 196         r2 r4 gs,16 b b8 |   % 45
 197         << { \voiceOne cs4. b8 ~ b2 ~ } \new Voice = "v2" { \voiceTwo r2 r4 gs16 b b8 } >> |   % 46
 198 %       << { \voiceOne b2. } \context Voice = "v2" { \voiceTwo cs4. b8 ~ b4 } >> gs16 b b8 |   % 47
 199 %bleh, unnecessary crap but doesn't work otherwise (lyrics go missing)
 200         << { b2. gs16 b b8 } \context Voice = "v2" { \voiceTwo cs4. b8 ~ b4 s } >> |   % 47
 201         << { \stemDown cs4. b8 ~ \stemNeutral b8. gs16 a8. gs16 } \context Voice = "v2" { \voiceTwo s1 } >> |   % 48
 202         << { gs8 fs ~ fs2 gs16 b b8 } \context Voice = "v2" { \voiceTwo s1 } >> |   % 49
 203 %endbleh
 204         << { \voiceOne cs4. b8 ~ b2 ~ } \context Voice = "v2" { \voiceTwo r2 r4 gs16 b b8 } >> |   % 50
 205         << { \voiceOne b2. } \context Voice = "v2" { \voiceTwo cs4. b8 ~ b4 } >> \oneVoice gs16 b b8 |   % 51
 206         cs4. b8 ~ b8. gs16 a8. gs16 |   % 52
 207         gs8 fs ~ fs2 <gs \hn e>16 <b \hn gs> <b \hn gs>8 |   % 53
 208
 209         % Coda
 210
 211         s1 | % blank measure for coda
 212
 213         <gs \hn e>8 <fs \hn ds> ~ <fs \hn ds>2 <gs \hn e>16 <b \hn gs> <b \hn gs>8 |   % 54
 214
 215         <b \hn gs>8 <b \hn gs> <b \hn gs> <b \hn gs> <e, \hn cs>4 <gs \hn e>16 <b \hn gs> <b \hn gs>8 |   % 55
 216         <b \hn gs>8 <b \hn gs> <b \hn gs> <b \hn gs> <cs \hn fs,>4 <cs \hn e,>16 <b \hn gs> <b \hn gs>8 |   % 56
 217         <b \hn gs>8 <b \hn gs> <b \hn gs> <b \hn gs> <e, \hn cs>8. e16 <a \hn fs>8 <gs \hn e> |   % 57
 218
 219         <gs \hn e>8 <fs \hn ds> ~ <fs \hn ds>2 <gs \hn e>16 <b \hn gs> <b \hn gs>8 |   % 58
 220
 221         <gs \hn e>8 <fs \hn ds> ~ <fs \hn ds>4 ~ <fs \hn ds>8. e16 fs8. gs16 |   % 59
 222
 223         % Outro
 224
 225         fs8 e ~ e2. |   % 60
 226         r2 r8 r16 e fs8. gs16 |   % 61
 227         fs8 e ~ e2. |   % 62
 228         r2 r8 r16 e fs8. gs16 |   % 63
 229         fs8 e ~ e2. |   % 64
 230         r2 r8 r16 e fs8. gs16 |   % 65
 231         fs8 e ~ e2.-\fermata |   % 66
 232 }
 233
 234 LeadVoxText = \lyricmode
 235 {
 236         How love -- ly is your dwell -- ing place,
 237         O lord Al -- migh -- _ ty. _
 238         For my soul longs and e -- ven faints for you.
 239         For here my heart is sat -- is -- fied
 240         with -- in your pres -- _ ence. _
 241         I sing be -- neath the sha -- dow of your wings. _ _
 242
 243         Bet -- ter is one day in your courts,
 244         bet -- ter is one day in your house,
 245         Bet -- ter is one day in your courts
 246         than thou -- sands else -- where, _
 247         Bet -- ter is one day in your courts,
 248         bet -- ter is one day in your house,
 249         Bet -- ter is one day in your courts
 250         than thou -- sands else -- where, _ _
 251         than thou -- sands else -- where. _
 252
 253         One
 254         else -- where. _
 255
 256         My heart and flesh cry out
 257         for you, the liv -- ing God, _ _
 258         Your spi -- rit's wa -- ter to my soul. _ _ _
 259         I've tast -- ed and I've seen;
 260         Come once a -- gain to me, _ _
 261         I will draw near to you,
 262         I will draw near to you, _
 263         to you. _
 264
 265         Bet -- ter is one day, __ _ _
 266         Bet -- ter is one day _
 267         than thou -- sands else -- where, _
 268         Bet -- ter is one day, __ _ _
 269         Bet -- ter is one day _
 270         than thou -- sands else -- where, _
 271
 272         Bet -- ter is
 273         else -- where, _
 274
 275         Bet -- ter is one day in your courts,
 276         bet -- ter is one day in your house,
 277         Bet -- ter is one day in your courts
 278         than thou -- sands else -- where, _
 279
 280         Bet -- ter is
 281         else -- where, _ _
 282
 283         than thou -- sands else -- where. _
 284         Than thou -- sands else -- where. _
 285         Than thou -- sands else -- where. _
 286         Than thou -- sands else -- where. _
 287 }
 288
 289 LeadVoxTextB = \lyricmode
 290 {
 291         _ thing I ask and I would seek,
 292         to see your beau -- _ ty, _
 293         to find you in the place your glo -- ry dwells.
 294         One thing I sak and I would seek,
 295         to see your beau -- _ ty, _
 296         to find you in the place your glo -- ry dwells. _ _
 297 }
 298
 299 LeadVoxEcho = \lyricmode
 300 {
 301         Bet -- ter is one day _
 302         Bet -- ter is one day
 303 }
 304
 305
 306 %
 307 % Riffs
 308 %
 309 Riffs = \relative c''
 310 {
 311         % Intro
 312
 313         s1*41 |   % 1-41
 314
 315         \tiny
 316         e8 b ds b cs b ds b |   % 42
 317         e8 b ds b cs b ds b |   % 43
 318         e8 b ds b cs b ds b |   % 44
 319 }
 320
 321
 322 %
 323 % Chord names
 324 %
 325 Chords = \chordmode
 326 {
 327         % Intro
 328
 329         e1:sus2 |   % 1
 330         s1 |   % 2
 331         e1:sus2 |   % 3
 332         s1 |   % 4
 333
 334         % Verse
 335
 336         e1:sus2 |   % 5
 337         s1 |   % 6
 338         a1:sus2 |   % 7
 339         b1:sus4 |   % 8
 340         e1:sus2 |   % 9
 341         s1 |   % 10
 342         b1:sus4 |   % 11
 343         b1 |   % 12
 344         cs1:m7 |   % 13
 345         s1 |   % 14
 346         a1:sus2 |   % 15
 347         b1:sus4 |   % 16
 348         cs1:m7 |   % 17
 349         a1:sus2 |   % 18
 350         b1:sus4 |   % 19
 351         b1 |   % 20
 352
 353         % Chorus
 354
 355         a1:sus2 |   % 21
 356         b2:sus4 b |   % 22
 357         a2.:sus2 a4/cs |   % 23
 358         b2:sus4 b4 e/gs |   % 24
 359         a1:sus2 |   % 25
 360         b2:sus4 b |   % 26
 361         a2.:sus2 a4/cs |   % 27
 362
 363         b2:sus4 b |   % 28
 364         e1:sus2 |   % 29
 365         s1 |   % 30
 366
 367         b2:sus4 b |   % 31
 368
 369         % Bridge
 370
 371         cs2.:m7 b4 |   % 32
 372         a2.:sus2 b4:sus4 |   % 33
 373         cs2.:m7 b4 |   % 34
 374         a2.:sus2 b4:sus4 |   % 35
 375         cs2.:m7 b4 |   % 36
 376         a2.:sus2 b4:sus4 |   % 37
 377         e1/gs |   % 38
 378         fs1:m7 |   % 39
 379         b1:sus4 |   % 40
 380         b1:sus4 |   % 41
 381
 382         a1:sus2 |   % 42
 383         b1:sus4 |   % 43
 384         a1:sus2 |   % 44
 385         b1:sus4 |   % 45
 386         a1:sus2 |   % 46
 387         b1:sus4 |   % 47
 388         a2.:sus2 a4/cs |   % 48
 389         b1:sus4 |   % 49
 390         a1:sus2 |   % 50
 391         b2.:sus4 e4/gs |   % 51
 392         a1:sus2 |   % 52
 393         b2.:sus4 e4/gs |   % 53
 394
 395         % Coda
 396
 397         % blank measure between last measure and coda
 398         s1
 399
 400         b2:sus4 b4 e/gs |   % 54
 401
 402         a1:sus2 |   % 55
 403         b2:sus4 b |   % 56
 404         a2.:sus2 a4/cs |   % 57
 405
 406         b2:sus4 b4 e/gs |   % 58
 407
 408         b2:sus4 b |   % 59
 409
 410         % Outro
 411
 412         e1:sus2 |   % 60
 413         a1:sus2 |   % 61
 414         e1:sus2 |   % 62
 415         a1:sus2 |   % 63
 416         e1:sus2 |   % 64
 417         a1:sus2 |   % 65
 418         e1:sus2 |   % 66
 419 }
 420
 421
 422 %
 423 % Chord rhythms
 424 %
 425
 426 % Use a RhythmicStaff on the chords instead of this?
 427 % It almost works, but not quite. Doesn't collapse chords above to single notes...
 428
 429 Rhythm =
 430 {
 431         \numericTimeSignature
 432         \override NoteHead #'style = #'slash
 433         \teeny
 434
 435         % Intro
 436
 437         c1 ~ |   % 1
 438         c1 |   % 2
 439         c1 ~ |   % 3
 440         c1 |   % 4
 441
 442         % Verse
 443
 444         c1 ~ |   % 5
 445         c1 |   % 6
 446         c1 |   % 7
 447         c1 |   % 8
 448         c1 ~ |   % 9
 449         c1 |   % 10
 450         c1 |   % 11
 451         c1 |   % 12
 452         c1 ~ |   % 13
 453         c1 |   % 14
 454         c1 |   % 15
 455         c1 |   % 16
 456         c1 |   % 17
 457         c1 |   % 18
 458         c1 |   % 19
 459         c1 |   % 20
 460
 461         % Chorus
 462
 463         c1 |   % 21
 464         c2 c |   % 22
 465         c2. c4 |   % 23
 466         c2 c4 c |   % 24
 467         c1 |   % 25
 468         c2 c |   % 26
 469         c2. c4 |   % 27
 470
 471         c2 c |   % 28
 472         c1 ~ |   % 29
 473         c1 |   % 30
 474
 475         c2 c |   % 31
 476
 477         % Bridge
 478
 479         c2.-> c4-> |   % 32
 480         c2. c4-> |   % 33
 481         c2. c4-> |   % 34
 482         c2. c4-> |   % 35
 483         c2. c4-> |   % 36
 484         c2.-> c4-> |   % 37
 485         c1-> |   % 38
 486         c1-> |   % 39
 487         c1-> |   % 40
 488         c1-> |   % 41
 489
 490         c1 |   % 42
 491         c1 |   % 43
 492         c1 |   % 44
 493         c1 |   % 45
 494         c1 |   % 46
 495         c1 |   % 47
 496         c2. c4 |   % 48
 497         c1 |   % 49
 498         c1 |   % 50
 499         c2. c4 |   % 51
 500         c1 |   % 52
 501         c4 c c c-> |   % 53
 502
 503         % Coda
 504
 505         % blank measure between last measure and coda
 506 %hm. Shouldn't need /startStaff /stopStaff... !!! FIX !!!
 507         \stopStaff s1 \startStaff
 508
 509         c2 c4 c-> |   % 54
 510
 511         c1-> |   % 55
 512         c2 c |   % 56
 513         c2. c4 |   % 57
 514
 515         c2 c4 c-> |   % 58
 516
 517         c2 c |   % 59
 518
 519         % Outro
 520
 521         c1 |   % 60
 522         c1 |   % 61
 523         c1 |   % 62
 524         c1 |   % 63
 525         c1 |   % 64
 526         c1 |   % 65
 527         c1-\fermata |   % 66
 528 }
 529
 530
 531 Dynamics =
 532 {
 533 %Hmm, this is throwin off the layout...
 534         s4_\mf s2. |   % 1
 535         s1*18 |   % 2-19
 536         s4 s \< s2 |   % 20
 537         s4_\f s2. |   % 21
 538         s1*9 |   % 22-30
 539         s2 s4 \< s \! |   % 31
 540         s1*9 |   % 32-40
 541         s2 s4 \> s |   % 41
 542         s4_\mp s2. |   % 42
 543         s1*3 |   % 43-45
 544         s4_\mf s2. |   % 46
 545         s1*6 |   % 47-52
 546         s2 s4 \< s \! |   % 53
 547 }
 548
 549
 550 \score
 551 {
 552         <<
 553                 \Global         % The "roadmap" that everything else depends on
 554
 555                 \context Staff
 556                 <<
 557                         \new Voice = "lead" \LeadVox
 558                         \new Voice \Riffs
 559                         \new Lyrics \lyricsto "lead" \LeadVoxText
 560                         \new Lyrics \lyricsto "lead" \LeadVoxTextB
 561                         \new Lyrics \lyricsto "v2" \LeadVoxEcho
 562                 >>
 563
 564                 \new ChoirStaff
 565                 <<
 566                         \new ChordNames \Chords
 567 %Capo 3 edition
 568 %                       \new ChordNames \transpose f d \Chords
 569                         \new RhythmicStaff << \Rhythm \Dynamics >>
 570                 >>
 571
 572                 \set Score.skipBars = ##t
 573                 \set Score.melismaBusyProperties = #'()
 574         >>
 575 }
 576
 577
 578 \paper
 579 {
 580         #(define fonts (make-pango-font-tree
 581                 "Times New Roman"
 582                 "JazzText"
 583                 "Luxi Mono"
 584                 (/ staffSize 20)))
 585
 586 % Don't spread staves vertically across last page (default: t)
 587 %       ragged-last-bottom = ##f
 588 % Don't spread staves vertically across the page (default: f)
 589 %       ragged-bottom = ##t
 590 % Allow partial line for last stave (default: f)
 591         ragged-last = ##t
 592
 593 % To find out what's eating the space at the top...
 594 %       annotate-spacing = ##t
 595 }
 596