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