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