Shamusworld >> Repos - music/blob - more-love-more-power.ly

   1 \version "2.19.0"
   2 \include "pop-chords.ly"
   3 \include "english.ly"
   4
   5 % Good sizes are 16, 18, & 20 (11, 13, 14, 23, 26)
   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 \header
  12 {
  13         title    = \markup { \override #'(font-family . sans) \fontsize #3.5 "More Love, More Power" }
  14         composer = \markup { \override #'(font-family . sans) \fontsize #1.3 "Del Hierro" }
  15         arranger = \markup { \override #'(font-family . sans) \fontsize #1.3 "arr. Ed Smart" }
  16         tagline  = $(string-append "Engraved by JLH and Lilypond " (lilypond-version))
  17 }
  18
  19 % Useful tweak abbreviations (hn = harmony note)
  20
  21 hn = #(define-music-function (parser location arg) (ly:music?)
  22 ;; Harmony Note: Set the tweaks property of the passed in note to use a smaller font
  23
  24   (set! (ly:music-property arg 'tweaks)
  25     (acons 'font-size -3.0 (ly:music-property arg 'tweaks))) arg)
  26
  27
  28 %
  29 % Song's structure
  30 %
  31 Global =
  32 {
  33         \clef G
  34         \key e \minor
  35         \numericTimeSignature
  36         \time 4/4
  37
  38         % Intro
  39
  40         \repeat volta 2
  41         {
  42                 s1^\markup { Half-Time Jazz Rock } |   % 1
  43                 s1*3 |   % 2-4
  44         }
  45
  46         \repeat volta 2
  47         {
  48                 % Verse
  49
  50                 \mark \markup { \override #'(font-family . sans) { \box { A } } }
  51                 s1^\markup { \italic { Groove 2nd X } } |   % 5
  52                 s1*7 \bar "||"   % 6-12
  53
  54                 \mark \markup { \override #'(font-family . sans) { \box { A9 } } }
  55                 s1*8 \bar "||"   % 13-20
  56
  57                 % Chorus
  58
  59                 \mark \markup { \override #'(font-family . sans) { \box { B } } }
  60                 s1^\markup { \italic { Backbeat In } } |   % 21
  61                 s1*14 |   % 22-35
  62         }
  63         \alternative
  64         {
  65                 {
  66                         s1*9 |   % 36-44
  67                 }
  68                 {
  69                         s1 |   % 45
  70                 }
  71         }
  72
  73         \repeat volta 4
  74         {
  75                 \mark \markup { \override #'(font-family . sans) { \box { C } } }
  76                 s1*2 |   % 46-47
  77         }
  78         \alternative
  79         {
  80                 {
  81                         s1*2 |   % 48-49
  82                 }
  83                 {
  84                         s1*2 |   % 50-51
  85                 }
  86         }
  87
  88         \repeat volta 2
  89         {
  90                 \mark \markup { \override #'(font-family . sans) { \box { D } } }
  91                 s1*14 |   % 52-65
  92         }
  93         \alternative
  94         {
  95                 {
  96                         s1*2 |   % 66-67
  97                 }
  98                 {
  99                         s1 |   % 68
 100                 }
 101         }
 102
 103         s1 |   % 69
 104
 105         \repeat volta 2
 106         {
 107                 \mark \markup { \override #'(font-family . sans) { \box { E } } }
 108                 s1*3 |   % 70-72
 109                 s1^\markup { \italic { Rit. Last X } } |   % 73
 110         }
 111
 112         s1 \bar "|."   % 74
 113 }
 114
 115
 116 %
 117 % Lead vocal
 118 %
 119 LeadVox = \relative c''
 120 {
 121         % Intro
 122
 123         s1*4 |   % 1-4
 124
 125         % Verse
 126
 127         r4 g fs ( e ~ |   % 5
 128         << { \voiceOne e1 ) } \context Voice = vb { \voiceThree \tiny r4 g' fs e ~ \normalsize } >> |   % 6
 129         << { \voiceOne r4 g, fs e ~ } \context Voice = vb { \voiceThree \tiny e'1 \normalsize } >> |   % 7
 130         << { \voiceOne e,1 } \context Voice = vb { \voiceThree \tiny r4 g' fs e ~ \normalsize } >> |   % 8
 131         << { \voiceOne r2 } \context Voice = vb { \voiceThree \tiny e2 \normalsize } >> \oneVoice fs,4 fs |   % 9
 132         fs4 ( d8 b ) b fs'4 ( e8 ) |   % 10
 133         e1 |   % 11
 134         R1 |   % 12
 135
 136         r4 g fs ( e ~ |   % 13
 137         << { \voiceOne e1 ) } \context Voice = vc { \voiceThree \tiny r4 g' fs e ~ \normalsize } >> |   % 14
 138         << { \voiceOne r4 g, fs e ~ } \context Voice = vc { \voiceThree \tiny e'1 \normalsize } >> |   % 15
 139         << { \voiceOne e,1 } \context Voice = vc { \voiceThree \tiny r4 g' fs e ~ \normalsize } >> |   % 16
 140         << { \voiceOne r2 } \context Voice = vc { \voiceThree \tiny e2 \normalsize } >> \oneVoice fs,4 fs |   % 17
 141         fs4 ( d8 b ) b fs'4 ( e8 ) |   % 18
 142         e2. b4 |   % 19
 143         <e \hn b \hn g>4 <fs \hn d \hn a> <g \hn e \hn b> <b \hn g \hn d> |   % 20
 144
 145         % Chorus
 146
 147         <a \hn e \hn c>2. <a \hn e \hn c>4 |   % 21
 148         <a \hn d, \hn cs>4. <g \hn d \hn cs>8 ~ <g \hn d \hn cs> <fs \hn cs \hn a>4 e8 |   % 22
 149         <e \hn b \hn g>2. b4 |   % 23
 150         <e \hn b \hn g>4 <fs \hn d \hn a> <g \hn e \hn b> <b \hn g \hn d> |   % 24
 151         <a \hn e \hn c>2. <a \hn e \hn c>4 |   % 25
 152         <a \hn d, \hn cs>4. <g \hn d \hn cs>8 ~ <g \hn d \hn cs> <fs \hn cs \hn a>4 e8 |   % 26
 153         <e \hn b \hn g>2. b4 |   % 27
 154         <e \hn b \hn g>4 <fs \hn d \hn a> <g \hn e \hn b> <b \hn g \hn d> |   % 28
 155         <a \hn e \hn c>2. <a \hn e \hn c>4 |   % 29
 156         <a \hn d, \hn cs>4. <g \hn d \hn cs>8 ~ <g \hn d \hn cs> <fs \hn cs \hn a>4 e8 |   % 30
 157         <e \hn b \hn g>2. <b \hn g>4 |   % 31
 158         <e \hn b \hn g>4. <fs \hn d \hn a>8 ~ <fs \hn d \hn a> <g \hn e \hn b>4 e8 |   % 32
 159         <e \hn c \hn g>1 ~ ( |   % 33
 160         <e \hn c \hn g>2 <g \hn e \hn b> |   % 34
 161         <fs \hn d \hn a>1 ) |   % 35
 162
 163         g4. fs8 ~ fs4 d8 e ~ |   % 36
 164         e2 s |   % 37
 165         s1 |   % 38
 166         s1 |   % 39
 167         s1 |   % 40
 168         s1 |   % 41
 169         s1 |   % 42
 170         s1 |   % 43
 171         s1 |   % 44
 172
 173         g4. fs8 ~ fs4 d8 e ~ |   % 45
 174
 175         e2 s |   % 46
 176         s1 |   % 47
 177
 178         s1 |   % 48
 179         s1 |   % 49
 180
 181         r2 r4 b |   % 50
 182         <e \hn b \hn g>4 <fs \hn d \hn a> <g \hn e \hn b> <b \hn g \hn d> |   % 51
 183
 184         <a \hn e \hn c>2. <a \hn e \hn c>4 |   % 52
 185         <a \hn d, \hn cs>4. <g \hn d \hn cs>8 ~ <g \hn d \hn cs> <fs \hn cs \hn a>4 e8 |   % 53
 186         <e \hn b \hn g>2. b4 |   % 54
 187         <e \hn b \hn g>4 <fs \hn d \hn a> <g \hn e \hn b> <b \hn g \hn d> |   % 55
 188         <a \hn e \hn c>2. <a \hn e \hn c>4 |   % 56
 189         <a \hn d, \hn cs>4. <g \hn d \hn cs>8 ~ <g \hn d \hn cs> <fs \hn cs \hn a>4 e8 |   % 57
 190         <e \hn b \hn g>2. b4 |   % 58
 191         <e \hn b \hn g>4 <fs \hn d \hn a> <g \hn e \hn b> <b \hn g \hn d> |   % 59
 192         <a \hn e \hn c>2. <a \hn e \hn c>4 |   % 60
 193         <a \hn d, \hn cs>4. <g \hn d \hn cs>8 ~ <g \hn d \hn cs> <fs \hn cs \hn a>4 e8 |   % 61
 194         <e \hn b \hn g>2. <b \hn g>4 |   % 62
 195         <e \hn b \hn g>4. <fs \hn d \hn a>8 ~ <fs \hn d \hn a> <g \hn e \hn b>4 e8 |   % 63
 196         <e \hn c \hn g>1 ~ ( |   % 64
 197         <e \hn c \hn g>2 <g \hn e \hn b> |   % 65
 198
 199         <fs \hn d \hn a>2. ) b,4 |   % 66
 200         <e \hn b \hn g>4 <fs \hn d \hn a> <g \hn e \hn b> <b \hn g \hn d> |   % 67
 201
 202         <fs \hn d \hn a>1 \repeatTie |   % 68
 203
 204         g4. fs8 ~ fs4 d8 e ~ |   % 69
 205
 206         e2 s |   % 70
 207         s1 |   % 71
 208         s1 |   % 72
 209         s1 |   % 73
 210
 211         R1^\fermata |   % 74
 212 }
 213
 214
 215 LeadVoxText = \lyricmode
 216 {
 217         More love, _ _ more po -- wer, _
 218         more of you _ _ in my _ life,
 219         More love, _ _ more po -- wer, _
 220         more of you _ _ in my _ life,
 221
 222         << {
 223         And I will wor -- ship you with all of _ my _ heart,
 224         And I will wor -- ship you with all of _ my _ mind,
 225         And I will wor -- ship you with all of _ my _ strength,
 226         } \new Lyrics = "v2" \with { alignBelowContext = #"v1" } { \set associatedVoice = "Lead"
 227         _ _ _ seek your face _ _ _ _ _ _ _
 228         _ _ _ seek your face _ _ _ _ _ _ _
 229         _ _ _ seek your face
 230         } >>
 231         for you are _ my _ Lord, _ _ _
 232         you are _ my Lord. _
 233
 234         you are _ my Lord. _
 235
 236         << {
 237         And I will wor -- ship you with all of _ my _ heart,
 238         And I will wor -- ship you with all of _ my _ mind,
 239         And I will wor -- ship you with all of _ my _ strength,
 240         } \new Lyrics = "v2" \with { alignBelowContext = #"v1" } { \set associatedVoice = "Lead"
 241         _ _ _ seek your face _ _ _ _ _ _ _
 242         _ _ _ seek your face _ _ _ _ _ _ _
 243         _ _ _ seek your face
 244         } >>
 245         for you are _ my _ Lord, _ _ _
 246
 247         And I will seek your
 248
 249         _
 250         you are _ my Lord. _
 251 }
 252
 253 LeadVoxEcho = \lyricmode
 254 {
 255         More love, _ _ more po -- wer, _
 256         More love, _ _ more po -- wer, _
 257 }
 258
 259
 260 %
 261 % Riffs
 262 %
 263 Riffs = \relative c'
 264 {
 265         \tiny
 266         r2 <fs d b g>4. <e d cs a>8 ~ |   % 1
 267         <e d cs a>1 |   % 2
 268         r2 <fs d b g>4. <e d cs a>8 ~ |   % 3
 269         <e d cs a>4. <d b g>8 ~ <d b g> <e cs a> ~ <e cs a>4 |   % 4
 270
 271         s1*32 |   % 5-36
 272
 273         r2 <fs d b g>4. <e d cs a>8 ~ |   % 37
 274         <e d cs a>1 |   % 38
 275         r2 <fs d b g>4. <e d cs a>8 ~ |   % 39
 276         <e d cs a>4. <d b g>8 ~ <d b g> <e cs a> ~ <e cs a>4 |   % 40
 277         r2 <fs d b g>4. <e d cs a>8 ~ |   % 41
 278         <e d cs a>1 |   % 42
 279         r2 <fs d b g>4. <e d cs a>8 ~ |   % 43
 280         <e d cs a>4. <d b g>8 ~ <d b g> <e cs a> ~ <e cs a>4 |   % 44
 281
 282         s1 |   % 45
 283
 284         r2 <fs d b g>4. <e d cs a>8 ~ |   % 46
 285         <e d cs a>1 |   % 47
 286         r2 <fs d b g>4. <e d cs a>8 ~ |   % 48
 287         <e d cs a>4. <d b g>8 ~ <d b g> <e cs a> ~ <e cs a>4 |   % 49
 288
 289         s1*20 |   % 50-69
 290
 291         r2 <fs d b g>4. <e d cs a>8 ~ |   % 70
 292         <e d cs a>1 |   % 71
 293         r2 <fs d b g>4. <e d cs a>8 ~ |   % 72
 294         <e d cs a>4. <d b g>8 ~ <d b g> <e cs a> ~ <e cs a>4 |   % 73
 295         \normalsize
 296 }
 297
 298
 299 %
 300 % Chord names
 301 %
 302 Chords = \chordmode
 303 {
 304         % Intro
 305
 306         e2..:m9 b8:m11 |   % 1
 307         s1 |   % 2
 308         e2..:m9 b8:m11 |   % 3
 309         s4. g4/a a4./b |   % 4
 310
 311         % Verse
 312
 313         e1:m7 |   % 5
 314         s1 |   % 6
 315         c1:maj7 |   % 7
 316         s1 |   % 8
 317         d1:sus2 |   % 9
 318         b1:m7 |   % 10
 319         e1:m7 |   % 11
 320         c2:sus2/e b:m7 |   % 12
 321
 322         e1:m7 |   % 13
 323         s1 |   % 14
 324         c1:maj7 |   % 15
 325         s1 |   % 16
 326         a1:m/fs |   % 17
 327         b1:7.9- |   % 18
 328         e1:m7 |   % 19
 329         e1:m/d |   % 20
 330
 331         % Chorus
 332
 333         a1:m7 |   % 21
 334         b1:7.9- |   % 22
 335         e1:m7 |   % 23
 336         e1:m/d |   % 24
 337         a1:m7 |   % 25
 338         b1:7.9- |   % 26
 339         e1:m7 |   % 27
 340         e1:m/d |   % 28
 341         a1:m/fs |   % 29
 342         b1:7.9- |   % 30
 343         e1:m7 |   % 31
 344         e1:m/d |   % 32
 345         a1:m11 |   % 33
 346         s1 |   % 34
 347         b1:m7 |   % 35
 348
 349         d1:sus2 |   % 36
 350         e2..:m9 b8:m11 |   % 37
 351         s1 |   % 38
 352         e2..:m9 b8:m11 |   % 39
 353         s4. g/a a4/b |   % 40
 354         e2..:m9 b8:m11 |   % 41
 355         s1 |   % 42
 356         e2..:m9 b8:m11 |   % 43
 357         s4. g/a a4/b |   % 44
 358
 359         d1:sus2 |   % 45
 360
 361         e2..:m9 b8:m11 |   % 46
 362         s1 |   % 47
 363
 364         e2..:m9 b8:m11 |   % 48
 365         s4. g4/a a4./b |   % 49
 366
 367         e1:m7 |   % 50
 368         e1:m7/d |   % 51
 369
 370         a1:m7 |   % 52
 371         b1:7.9- |   % 53
 372         e1:m7 |   % 54
 373         e1:m/d |   % 55
 374         a1:m7 |   % 56
 375         b1:7.9- |   % 57
 376         e1:m7 |   % 58
 377         e1:m/d |   % 59
 378         a1:m/fs |   % 60
 379         b1:7.9- |   % 61
 380         c1:maj7 |   % 62
 381         b1:m11 |   % 63
 382         a1:m11 |   % 64
 383         s1 |   % 65
 384
 385         b1:m7 |   % 66
 386         e2:m7 e:m7/d |   % 67
 387
 388         b1:m7 |   % 68
 389
 390         d1:sus2 |   % 69
 391
 392         e2..:m9 b8:m11 |   % 70
 393         s1 |   % 71
 394         e2..:m9 b8:m11 |   % 72
 395         s4. g4/a a4./b |   % 73
 396
 397         e1:m9 |   % 74
 398 }
 399
 400
 401 %
 402 % Chord rhythms
 403 %
 404 StaffC = \relative c
 405 {
 406         \numericTimeSignature
 407         \override NoteHead #'style = #'slash
 408         \teeny
 409
 410         % Intro
 411
 412         c2. ~ c8 c ~ |   % 1
 413         c2. ~ c8 c |   % 2
 414         c2. ~ c8 c ~ |   % 3
 415         c4. c4 c4. |   % 4
 416
 417         % Verse
 418
 419         c1 ~ |   % 5
 420         c1 |   % 6
 421         c1 ~ |   % 7
 422         c1 |   % 8
 423         c1 |   % 9
 424         c1 |   % 10
 425         c1 |   % 11
 426         c2 c |   % 12
 427
 428         c1 ~ |   % 13
 429         c1 |   % 14
 430         c1 ~ |   % 15
 431         c1 |   % 16
 432         c1 |   % 17
 433         c4 c c c |   % 18
 434         c1 |   % 19
 435         c4 c c c |   % 20
 436
 437         % Chorus
 438
 439         c4 c c c |   % 21
 440         c4 c c c |   % 22
 441         c4 c c c |   % 23
 442         c4 c c c |   % 24
 443         c4 c c c |   % 25
 444         c4 c c c |   % 26
 445         c4 c c c |   % 27
 446         c4 c c c |   % 28
 447         c4 c c c |   % 29
 448         c4 c c c |   % 30
 449         c4 c c c |   % 31
 450         c4 c c c |   % 32
 451         c4 c c c |   % 33
 452         c4 c c c |   % 34
 453         c4 c c c |   % 35
 454
 455         c1 |   % 36
 456         c2. ~ c8 c ~ |   % 37
 457         c2. ~ c8 c |   % 38
 458         c2. ~ c8 c ~ |   % 39
 459         c4. c4 c4. |   % 40
 460         c2. ~ c8 c ~ |   % 41
 461         c2. ~ c8 c |   % 42
 462         c2. ~ c8 c ~ |   % 43
 463         c4. c4 c4. |   % 44
 464
 465         c4 c c c |   % 45
 466
 467         c2. ~ c8 c ~ |   % 46
 468         c2. ~ c8 c |   % 47
 469
 470         c2. ~ c8 c ~ |   % 48
 471         c4. c4 c4 c8 |   % 49
 472
 473         c4 c c c |   % 50
 474         c4 c c c |   % 51
 475
 476         c4 c c c |   % 52
 477         c4 c c c |   % 53
 478         c4 c c c |   % 54
 479         c4 c c c |   % 55
 480         c4 c c c |   % 56
 481         c4 c c c |   % 57
 482         c4 c c c |   % 58
 483         c4 c c c |   % 59
 484         c4 c c c |   % 60
 485         c4 c c c |   % 61
 486         c4 c c c |   % 62
 487         c4 c c c |   % 63
 488         c4 c c c |   % 64
 489         c4 c c c |   % 65
 490
 491         c4 c c c |   % 66
 492         c4 c c c |   % 67
 493
 494         c4 c c c |   % 68
 495
 496         c1 |   % 69
 497
 498         c2. ~ c8 c ~ |   % 46
 499         c2. ~ c8 c |   % 47
 500         c2. ~ c8 c ~ |   % 48
 501         c4. c4 c4. |   % 49
 502
 503         c1^\fermata |   % 74
 504 }
 505
 506
 507 Dynamics =
 508 {
 509         s1_\mf |   % 1
 510         s1*18
 511         s4 \< s2 s4 \! |   % 20
 512         s1*13
 513         s4 \< s2 s4 \! |   % 34
 514         s1
 515         s4 \> s2 s4 \! |   % 36
 516         s1*8
 517         s4 \< s2. |   % 45
 518         s4_\f s2. |   % 46
 519         s1*4
 520         s4 \< s2 s4 \! |   % 51
 521         s1*13
 522         s4 \< s2 s4 \! |   % 65
 523         s1
 524         s4 \< s2 s4 \! |   % 67
 525         s1
 526         s4 \> s2. |   % 69
 527         s4_\mf s2. |   % 70
 528 }
 529
 530
 531 \score
 532 {
 533         <<
 534                 \Global         % The "roadmap" that everything else depends on
 535
 536                 \context Staff
 537                 <<
 538                         \new Voice = "lead" \LeadVox
 539                         \new Voice \Riffs
 540                         \new Lyrics = "v1" \lyricsto "lead" \LeadVoxText
 541                         \new Lyrics \lyricsto "vb" \LeadVoxEcho
 542                         \new Lyrics \lyricsto "vc" \LeadVoxEcho
 543                 >>
 544
 545                 \new ChoirStaff
 546                 <<
 547                         \new ChordNames \Chords
 548                         \new RhythmicStaff << \StaffC \Dynamics >>
 549                 >>
 550
 551                 \set Score.skipBars = ##t
 552                 \set Score.melismaBusyProperties = #'()
 553         >>
 554 }
 555
 556
 557 \paper
 558 {
 559         #(define fonts (make-pango-font-tree
 560                 "Times New Roman"
 561                 "LilyJAZZText"
 562                 "Luxi Mono"
 563                 (/ staffSize 20)))
 564
 565 % Don't spread staves vertically across last page (default: t)
 566 %       ragged-last-bottom = ##f
 567 % Don't spread staves vertically across the page (default: f)
 568 %       ragged-bottom = ##t
 569 % Allow partial line for last stave (default: f)
 570         ragged-last = ##t
 571
 572 % To find out what's eating the space at the top...
 573 %       annotate-spacing = ##t
 574 }
 575