Shamusworld >> Repos - music/blob - fall-on-me.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 = #18
   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 "Fall On Me" }
  18 %       composer = \markup { \override #'(font-family . sans) \fontsize #1.3 "" }
  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         \repeat volta 2
  44         {
  45                 s1*4 |   % 1-4
  46         }
  47
  48 %       \once \override TextScript #'padding = #2.0
  49 %       s1*0^\markup { \large \bold { Moderately fast pop } }
  50 %%Capo 3 version
  51 %%      s1*0^\markup { \large \bold { Moderately fast pop "(*** CAPO 3 ***)" } }
  52 %       s1*13 \bar "||:"   % 1-13
  53
  54         % A section
  55
  56         \mark \markup { \override #'(font-family . sans) { \box { A } } }
  57
  58         s1*20 |   % 5-24
  59
  60         \repeat volta 2
  61         {
  62                 % A Section
  63
  64                 \mark \markup { \override #'(font-family . sans) { \box { B } } }
  65
  66                 s1*16 |   % 25-40
  67 \once \override Score.RehearsalMark #'self-alignment-X = #left
  68 \mark \markup { \musicglyph #"scripts.coda" \italic { to Coda } }
  69                 s1*2 \bar "||"   % 41-42
  70
  71                 % B section
  72
  73                 \mark \markup { \override #'(font-family . sans) { \box { C } } }
  74
  75                 s1*16 |   % 43-58
  76         }
  77
  78         % Coda
  79
  80         % blank measure between last measure and coda
  81 %       \stopStaff s1 \bar "" \startStaff   % That removed the spurious floating bar line from line break
  82         \stopStaff s1 \startStaff   % That removed the spurious floating bar line from line break
  83 %       \break % Meh
  84         \set Score.currentBarNumber = #59
  85
  86         \once \override Score.RehearsalMark #'self-alignment-X = #left
  87         \mark \markup { { \musicglyph #"scripts.coda" } "Coda" }
  88
  89         \repeat volta 2
  90         {
  91 %               \mark \markup { \override #'(font-family . sans) { \box { D } } }
  92
  93                 s1*4 |   % 59-62
  94         }
  95
  96         s1 \bar "|."   % 63
  97 }
  98
  99
 100 %
 101 % Lead vocal
 102 %
 103 LeadVox = \relative c'
 104 {
 105         \clef G
 106         \override Score.SpacingSpanner #'average-spacing-wishes = ##f
 107
 108         % Intro
 109
 110         s1*3 |   % 1-3
 111         s2. e8 fs |   % 4
 112
 113         % A section
 114
 115         <a \hn cs,>8 <gs \hn b,> ~ <gs \hn b,>2 r4 |   % 5
 116         <fs \hn b,>4. ( <e \hn gs,>8 ) ~ <e \hn gs,>2 |   % 6
 117         r2 <a \hn cs,>4 << { \voiceOne gs8 ( fs ) } \new Voice = "v"  { \voiceTwo \once \override NoteHead #'font-size = #-3.5 a,4 } >> \oneVoice |   % 7
 118 %disnowok       r2 <a \hn cs,>4 << { \voiceOne gs8 ( fs ) } \new Voice = "v"  { \voiceTwo \hn a,4 } >> \oneVoice |   %
 119 %Also, the << \\ >> notation doesn't track lyrics correctly... Grrrrrrrrrrrrrr
 120         <fs' \hn b,>2. <e \hn gs,>8 <fs \hn a,> |   % 8
 121         <a \hn cs,>8 <gs \hn b,> ~ <gs \hn b,>2 r4 |   % 9
 122         <fs \hn b,>4. ( <e \hn gs,>8 ) ~ <e \hn gs,>2 |   % 10
 123         r2 <a \hn cs,>4 << { \voiceOne gs8 ( fs ) } \new Voice = "v"  { \voiceTwo \once \override NoteHead #'font-size = #-3.5 a,4 } >> \oneVoice |   % 11
 124         <fs' \hn b,>2 r4 <fs \hn b,>8 <cs' \hn gs \hn e> ( |   % 12
 125
 126         <b \hn fs \hn ds>8 ) <b \hn fs \hn ds> ~ <b \hn fs \hn ds>2. |   % 13
 127         r2 r4 <e, \hn b>8 <b' \hn gs \hn e> ( |   % 14
 128         <a \hn e \hn cs>8 ) <a \hn e \hn cs> ~ <a \hn e \hn cs>2. |   % 15
 129         r2 r4 <e \hn c>8 <a \hn fs \hn ds> ( |   % 16
 130         <gs \hn e \hn cs>8 ) <gs \hn e \hn cs> ~ <gs \hn e \hn cs>2. |   % 17
 131         r2 r4 gs8 fs |   % 18
 132         e2. e8 fs ~ |   % 19
 133         fs1 |   % 20
 134
 135         e1 |   % 21
 136         r1 |   % 22
 137         r1 |   % 23
 138         r2 r4 <e \hn gs,>8 <fs \hn a,> |   % 24
 139
 140         % A section
 141
 142         <a \hn cs,>8 <gs \hn b,> ~ <gs \hn b,>2 r4 |   % 25
 143         <fs \hn b,>4. ( <e \hn gs,>8 ) ~ <e \hn gs,>2 |   % 26
 144         r2 <a \hn cs,>4 << { \voiceOne gs8 ( fs ) } \new Voice = "v"  { \voiceTwo \once \override NoteHead #'font-size = #-3.5 a,4 } >> \oneVoice |   % 27
 145 %disnowok       r2 <a \hn cs,>4 << { \voiceOne gs8 ( fs ) } \new Voice = "v"  { \voiceTwo \hn a,4 } >> \oneVoice |   %
 146 %Also, the << \\ >> notation doesn't track lyrics correctly... Grrrrrrrrrrrrrr
 147         <fs' \hn b,>2. <e \hn gs,>8 <fs \hn a,> |   % 28
 148         <a \hn cs,>8 <gs \hn b,> ~ <gs \hn b,>2 r4 |   % 29
 149         <fs \hn b,>4. ( <e \hn gs,>8 ) ~ <e \hn gs,>2 |   % 30
 150         r2 <a \hn cs,>4 << { \voiceOne gs8 ( fs ) } \new Voice = "v"  { \voiceTwo \once \override NoteHead #'font-size = #-3.5 a,4 } >> \oneVoice |   % 31
 151         <fs' \hn b,>2 r4 <fs \hn b,>8 <cs' \hn gs \hn e> ( |   % 32
 152
 153         <b \hn fs \hn ds>8 ) <b \hn fs \hn ds> ~ <b \hn fs \hn ds>2. |   % 33
 154         r2 r4 <e, \hn b>8 <b' \hn gs \hn e> ( |   % 34
 155         <a \hn e \hn cs>8 ) <a \hn e \hn cs> ~ <a \hn e \hn cs>2. |   % 35
 156         r2 r4 <e \hn c>8 <a \hn fs \hn ds> ( |   % 36
 157         <gs \hn e \hn cs>8 ) <gs \hn e \hn cs> ~ <gs \hn e \hn cs>2. |   % 37
 158         r2 r4 gs8 fs |   % 38
 159         e2. e8 fs ~ |   % 49
 160         fs1 |   % 40
 161
 162         e1 |   % 41
 163         r1 |   % 42
 164
 165         % B section
 166
 167         r2 gs8. fs16 ~ fs e e8 ~ |   % 43
 168         e1 |   % 44
 169         r2 \times 2/3 { b'4 a gs } |   % 45
 170         a8 gs4 e8 ~ e2 |   % 46
 171         r4 e8 e a gs fs fs ~ |   % 47
 172         fs8 gs ~ gs4 r b,8 gs' ~ |   % 48
 173         gs8 fs ~ fs2. |   % 49
 174         r1 |   % 50
 175
 176         r2 <gs \hn cs,>8. <fs \hn cs>16 ~ <fs \hn cs> <e \hn b> <e \hn b>8 ~ |   % 51
 177         <e \hn b>1 |   % 52
 178         r4 r8 <e \hn b>8 <b' \hn e,>4. <a \hn cs,>16 <gs \hn b,> |   % 53
 179         <a \hn cs,>8 <gs \hn b,> <e \hn a,>2. |   % 54
 180         r4 r8 <e \hn c>16 <e \hn c> <a \hn e>4. <gs \hn c,>16 <fs \hn c> |   % 55
 181         <fs \hn b,>8 <gs \hn b,> ~ <gs \hn b,>4 r b,8 <gs' \hn e \hn cs> ~ |   % 56
 182         <gs \hn e \hn cs>8 <fs \hn e \hn b> ~ ( <fs \hn e \hn b>2. |   % 57
 183         <fs \hn ds \hn b>2 ) r4 <e \hn gs,>8 <fs \hn a,> |   % 58
 184
 185         % Coda
 186
 187         s1
 188
 189         e1 |   % 59
 190         r1 |   % 60
 191         r1 |   % 61
 192         r1 |   % 62
 193
 194         r1 |   % 63
 195 }
 196
 197 LeadVoxText = \lyricmode
 198 {
 199         Ho -- ly Spi -- rit, _ fall, _ _
 200         fall on _ me,
 201         Ho -- ly Spi -- rit, _ fall, _ _
 202         fall on _ me.
 203
 204         On my _ hands, _ on my _ feet, _
 205         on my _ heart, _ ev’ -- ry part
 206         of me, _ fall.
 207
 208         Ho -- ly Spi -- rit, _ fall, _ _
 209         fall on _ me,
 210         Ho -- ly Spi -- rit, _ fall, _ _
 211         fall on _ me.
 212
 213         On my _ hands, _ on my _ feet, _
 214         on my _ heart, _ ev’ -- ry part
 215         of me, _ fall.
 216
 217         Spi -- rit _ of peace, _
 218         sent by the Fa -- ther’s hand, _
 219         Change my life with your pre -- _ sence, _
 220         make me _ whole. _
 221
 222         Pour o -- _ ver me, _
 223         like rain on a thirs -- ty land,
 224         Make a stream in the de -- sert _
 225         of my _ soul. __ _ _
 226
 227         Ho -- ly
 228
 229         fall.
 230 }
 231
 232
 233 %
 234 % Riffs
 235 %
 236 Riffs = \relative c'
 237 {
 238         % Intro
 239
 240         \tiny
 241         r8 b e fs ~ fs e ~ e4 |   % 1
 242         r8 b e fs ~ fs e ~ e4 |   % 2
 243         r8 a, e' fs ~ fs e ~ e4 |   % 3
 244         r8 b e fs ~ fs4 s |   % 4
 245
 246 %{
 247         % Intro
 248
 249         \tiny
 250         R1 |   % 1
 251         R1 |   % 2
 252         R1 |   % 3
 253         R1 |   % 4
 254
 255         c8 ( f ) ~ f2. |   % 5
 256         e2 ~ e8 a4. |   % 6
 257         d,1 ( |   % 7
 258         c1 ) |   % 8
 259         bf4 ( df2. ) |   % 9
 260         df4 ( e2. ) |   % 10
 261         ef1 |   % 11
 262         d8 ef4 f8 ~ f4 bf-. |   % 12
 263         d,2 s2 |   % 13
 264
 265         s1*36 |   % 14-49
 266         s2 |   % 50
 267         s1*32 |   % 51-82
 268         r8 df df df df ( c ) bf4 |   % 83
 269         R1*8 |   % 84-91
 270         \normalsize
 271 %}
 272 }
 273
 274
 275 %
 276 % Chord names
 277 %
 278 Chords = \chordmode
 279 {
 280 %Bah, can't we set this globally?
 281 %       \popChords
 282
 283         % Intro
 284
 285         e1:sus2 |   % 1
 286         cs1:m11 |   % 2
 287         fs1:m7 |   % 3
 288         b1:sus4.7 |   % 4
 289
 290         % A section
 291
 292         e1:sus2 |   % 5
 293         cs1:m11 |   % 6
 294         fs1:m7 |   % 7
 295         b1:sus4.7 |   % 8
 296         e1:sus2 |   % 9
 297         cs1:m11 |   % 10
 298         fs1:m7 |   % 11
 299         b1:sus4.7 |   % 12
 300
 301         gs1:m7 |   % 13
 302         cs1:m7 |   % 14
 303         fs1:m7 |   % 15
 304         c1:dim7 |   % 16
 305         cs1:m7 |   % 17
 306         fs2:sus4 fs |   % 18
 307         fs2:m7 e:sus2/gs |   % 19
 308         a2:6 b:sus4 |   % 20
 309
 310         e1:sus2 |   % 21
 311         cs1:m11 |   % 22
 312         fs1:m7 |   % 23
 313         b1:sus4.7 |   % 24
 314
 315         % A section
 316
 317         e1:sus2 |   % 25
 318         cs1:m11 |   % 26
 319         fs1:m7 |   % 27
 320         b1:sus4.7 |   % 28
 321         e1:sus2 |   % 29
 322         cs1:m11 |   % 30
 323         fs1:m7 |   % 31
 324         b1:sus4.7 |   % 32
 325
 326         gs1:m7 |   % 33
 327         cs1:m7 |   % 34
 328         fs1:m7 |   % 35
 329         c1:dim7 |   % 36
 330         cs1:m7 |   % 37
 331         fs2:sus4 fs |   % 38
 332         fs2:m7 e:sus2/gs |   % 39
 333         a2:6 b:sus4 |   % 40
 334
 335         e1:sus2 |   % 41
 336         s1 |   % 42
 337
 338         % B section
 339
 340         a1:maj7 |   % 43
 341         e1:sus2/gs |   % 44
 342         d1:sus2 |   % 45
 343         a1/cs |   % 46
 344         a1:m6/c |   % 47
 345         e1:sus2/b |   % 48
 346         b1:sus4 |   % 49
 347         b1 |   % 50
 348
 349         a1:maj7 |   % 51
 350         e1:sus2/gs |   % 52
 351         d1:sus2 |   % 53
 352         a1/cs |   % 54
 353         a1:m6/c |   % 55
 354         e1/b |   % 56
 355         b1:sus4 |   % 57
 356         b1 |   % 58
 357
 358         % Coda
 359
 360         s1
 361
 362         e1:sus2 |   % 59
 363         cs1:m11 |   % 60
 364         fs1:m7 |   % 61
 365         b1:sus4.7 |   % 62
 366
 367         e1:sus2 |   % 63
 368 }
 369
 370
 371 %
 372 % Chord rhythms
 373 %
 374
 375 % Use a RhythmicStaff on the chords instead of this?
 376 % It almost works, but not quite. Doesn't collapse chords above to single notes...
 377
 378 Rhythm =
 379 {
 380         \override Staff.TimeSignature #'style = #'()
 381         \override NoteHead #'style = #'slash
 382
 383         % Intro
 384
 385         c4 c c c |   % 1
 386         c4 c c c |   % 2
 387         c4 c c c |   % 3
 388         c4 c c c |   % 4
 389
 390         % A section
 391
 392         c4 c c c |   % 5
 393         c4 c c c |   % 6
 394         c4 c c c |   % 7
 395         c4 c c c |   % 8
 396         c4 c c c |   % 9
 397         c4 c c c |   % 10
 398         c4 c c c |   % 11
 399         c4 c c c |   % 12
 400
 401         c4 c c c |   % 13
 402         c4 c c c |   % 14
 403         c4 c c c |   % 15
 404         c4 c c c |   % 16
 405         c4 c c c |   % 17
 406         c4 c c c |   % 18
 407         c4 c c c |   % 19
 408         c4 c c c |   % 20
 409
 410         c4 c c c |   % 21
 411         c4 c c c |   % 22
 412         c4 c c c |   % 23
 413         c4 c c c |   % 24
 414
 415         % A section
 416
 417         c4 c c c |   % 25
 418         c4 c c c |   % 26
 419         c4 c c c |   % 27
 420         c4 c c c |   % 28
 421         c4 c c c |   % 29
 422         c4 c c c |   % 30
 423         c4 c c c |   % 31
 424         c4 c c c |   % 32
 425
 426         c4 c c c |   % 33
 427         c4 c c c |   % 34
 428         c4 c c c |   % 35
 429         c4 c c c |   % 36
 430         c4 c c c |   % 37
 431         c4 c c c |   % 38
 432         c4 c c c |   % 49
 433         c4 c c c |   % 40
 434
 435         c4 c c c |   % 41
 436         c4 c c c |   % 42
 437
 438         % B section
 439
 440         c4 c c c |   % 43
 441         c4 c c c |   % 44
 442         c4 c c c |   % 45
 443         c4 c c c |   % 46
 444         c4 c c c |   % 47
 445         c4 c c c |   % 48
 446         c4 c c c |   % 49
 447         c4 c c c |   % 50
 448
 449         c4 c c c |   % 51
 450         c4 c c c |   % 52
 451         c4 c c c |   % 53
 452         c4 c c c |   % 54
 453         c4 c c c |   % 55
 454         c4 c c c |   % 56
 455         c4 c c c |   % 57
 456         c4 c c c |   % 58
 457
 458         % Coda
 459
 460 %Hmm, Global didn't affect this...
 461         \stopStaff s1 \startStaff
 462
 463         c4 c c c |   % 59
 464         c4 c c c |   % 60
 465         c4 c c c |   % 61
 466         c4 c c c |   % 62
 467
 468         c1-\fermata |   % 63
 469 }
 470
 471 Dynamics =
 472 {
 473         s4_\mf s2. |   % 1
 474 %{
 475         % Intro
 476         s4_\markup { \italic { Ac. gtr only } } s2. |   % 1
 477
 478         s1*3 |   % 2-4
 479
 480         s4_\markup { \italic { Band in } } s2. |   % 5
 481 %}
 482 }
 483
 484
 485 \score
 486 {
 487         <<
 488                 \Global                                         % The "roadmap" that everything else depends on
 489
 490                 \context Staff
 491                 <<
 492                         \context Staff << \new Voice = "lead" \LeadVox \new Voice \Riffs >>
 493                         \new Lyrics \lyricsto "lead" \LeadVoxText
 494                 >>
 495
 496                 \new ChoirStaff
 497                 <<
 498                         \new ChordNames \Chords
 499 %Capo 3 edition
 500 %                       \new ChordNames \transpose f d \Chords
 501                         \new RhythmicStaff << \Rhythm \Dynamics >>
 502                 >>
 503
 504                 \set Score.skipBars = ##t
 505                 \set Score.melismaBusyProperties = #'()
 506         >>
 507 }
 508
 509
 510 \paper
 511 {
 512         #(define fonts (make-pango-font-tree
 513                 "Times New Roman"
 514                 "DomCasual BT"
 515                 "Luxi Mono"
 516                 (/ staffSize 20)))
 517
 518 % Spread staves vertically across last page (default: t)
 519 %               ragged-last-bottom = ##f
 520 % Don't spread staves vertically across the page (default: f)
 521 %               ragged-bottom = ##t
 522
 523 % To find out what's eating the space at the top...
 524 %       annotate-spacing = ##t
 525 %let's try this: [It works! Huzzah!]
 526         obsolete-page-top-space = 0  top-system-spacing #'basic-distance = #(/ obsolete-page-top-space staff-space)
 527 }