Shamusworld >> Repos - music/blob - covers/give-me-love.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 "Give Me Love" }
  18         composer = \markup { \override #'(font-family . sans) \fontsize #1.3 "George Harrison" }
  19 %       arranger = \markup { \override #'(font-family . sans) \fontsize #1.3 "" }
  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 f \major
  38         \override Staff.TimeSignature #'style = #'()
  39         \time 4/4
  40
  41         % Intro
  42
  43         \once \override TextScript #'padding = #2.0
  44         s1*0^\markup { \large \bold { Moderately fast pop } }
  45 %Capo 3 version
  46 %       s1*0^\markup { \large \bold { Moderately fast pop "(*** CAPO 3 ***)" } }
  47         s1*13 \bar "||:"   % 1-13
  48
  49         \repeat volta 2
  50         {
  51                 % A section
  52
  53                 \mark \markup { \override #'(font-family . sans) { \box { A } } }
  54
  55                 s1*15 |   % 14-28
  56                 s1 \bar "||"   % 29
  57
  58                 % B section
  59
  60                 \mark \markup { \override #'(font-family . sans) { \box { B } } }
  61
  62                 s1*7 |   % 30-36
  63                 \override TextSpanner #'(bound-details left text) = "Gtr. solo 2nd X "
  64                 \textSpannerUp
  65                 s4\startTextSpan s2. |   % 37
  66                 s1*8 |   % 38-45
  67                 s1*2 |   % 46-47
  68                 s2. s4\stopTextSpan |   % 48
  69                 s1 |   % 49
  70                 \time 2/4 s2 \time 4/4 |   % 50
  71                 s1 |   % 51
  72         }
  73
  74         \repeat volta 2
  75         {
  76                 % A section
  77
  78                 \mark \markup { \override #'(font-family . sans) { \box { C } } }
  79
  80                 s1*12 |   % 52-63
  81         }
  82         \alternative
  83         {
  84                 {
  85                         s1*4 |   % 64-67
  86                 }
  87                 {
  88                         s1*2 |   % 68-69
  89                 }
  90         }
  91
  92         s1*5 |   % 70-74
  93         s1 \bar "||"   % 75
  94
  95         % B section
  96
  97         \mark \markup { \override #'(font-family . sans) { \box { D } } }
  98
  99         s1*15 |   % 76-90
 100         s1 \bar "|."   % 91
 101 }
 102
 103
 104 %
 105 % Lead vocal
 106 %
 107 LeadVox = \relative c'
 108 {
 109         \clef G
 110         \override Score.SpacingSpanner #'average-spacing-wishes = ##f
 111
 112         % Intro
 113
 114         s1*12 |   % 1-12
 115         s2 c4 a8 c ~ |   % 13
 116
 117         % A section
 118
 119         c4 r c a8 c ~ |   % 14
 120         c4 r c a |   % 15
 121         r2 d8 c4 c8 ~ |   % 16
 122         c4 r a8 c4 df8 ~ |   % 17
 123         df4 r df8 ( c ) bf c ~ |   % 18
 124         c4 r d c |   % 19
 125         r2 ef8 ( d ) c d ~ |   % 20
 126         d4 r c4 a ~ |   % 21
 127
 128         c4 r c a8 c ~ |   % 22
 129         c4 r c a |   % 23
 130         r4 d ~ d8 d4 c8 ~ |   % 24
 131         c4 r bf8 c4 df8 ~ |   % 25
 132         df2 df8 ( c ) bf c ~ |   % 26
 133     c2 d4 c |   % 27
 134         r2 ef8 ( d ) c d ~ |   % 28
 135         d1 |   % 29
 136
 137         % B Section
 138
 139         c1 ~ |   % 30
 140         c1 ~ |   % 31
 141         c1 ~ |   % 32
 142         c1 ~ |   % 33
 143         c2 c4 ( bf8 a ) |   % 34
 144         R1 |   % 35
 145         df8 ( c bf4 ) ~ bf2 |   % 36
 146         R1 |   % 37
 147
 148         r2 c ~ |   % 38
 149         c1 ~ |   % 39
 150         c1 ~ |   % 40
 151         c1 ~ |   % 41
 152         c2. c4 |   % 42
 153         c8 ( bf a ) bf ~ bf c4 d8 ~ |   % 43
 154         d1 |   % 44
 155         r2 r4 r8 d |   % 45
 156
 157         d2 ( b4. ) b8 ~ |   % 46
 158         b4. c8 ~ c d4 e8 ( ~ |   % 47
 159         e8 d c ) c ~ c2 |   % 48
 160         \times 2/3 { d2 e e } |   % 49
 161         c2 |   % 50
 162         d8 ( e4 ) f8 ~ f2 |   % 51
 163
 164         % A section
 165
 166         c4 a8 c ~ c4 r8 c ~ |   % 52
 167         c8 a c4 r8 c a4 |   % 53
 168         r2 d8 c4 c8 ~ |   % 54
 169         c4 r a8 c4 df8 ~ |   % 55
 170         df4 r df8 ( c ) bf c ~ |   % 56
 171         c4 r d c |   % 57
 172         r2 ef8 ( d ) c d ~ |   % 58
 173         d4 r c4 a ~ |   % 59
 174
 175         c4 r c a8 c ~ |   % 60
 176         c4 r c a |   % 61
 177         r4 d ~ d8 d4 c8 ~ |   % 62
 178         c4 r bf8 c4 df8 ~ |   % 63
 179
 180         df2 df8 ( c ) bf c ~ |   % 64
 181     c2 d4 c |   % 65
 182         r2 ef8 ( d ) c d ~ |   % 66
 183         d1 |   % 67
 184
 185         df1\repeatTie ~ |   % 68
 186         df2 df8 ( c ) bf c ~ |   % 69
 187
 188         c2 d |   % 70
 189         r2. c4 |   % 71
 190         ef1 ~ |   % 72
 191         ef2 ~ ef4. c8 |   % 73
 192         d1 ( |   % 74
 193         bf1 ) |   % 75
 194
 195         % B Section
 196
 197         c1 ~ |   % 76
 198         c1 ~ |   % 77
 199         c1 ~ |   % 78
 200         c1 ~ |   % 79
 201         c2 c4 ( bf8 a ) |   % 80
 202         R1 |   % 81
 203         df8 ( c bf4 ) ~ bf2 |   % 82
 204 }
 205
 206 LeadVoxText = \lyricmode
 207 {
 208         Give me love, _ give me love, _
 209         give me peace on earth; _
 210         Give me light, _ give _ me life, _
 211         keep me free _ from birth. _
 212         Give me hope, help me cope _
 213         with this hea -- _ vy load. _
 214         Try -- ing to _ touch _ and reach _ you with
 215         heart _ and soul. __ _
 216
 217         Oh, __ _ _ _ _ my _ _ Lord. __ _ _ _
 218         Please, __ _ _ _ _ take hold __ _ _ of _ my hand _
 219         that I __ _ might _ un -- _ der -- stand __ _ _ _ you _
 220         Won’t you please, oh won’t _ you _
 221
 222         Give me love, _ give _ me love,
 223         give me peace on earth; _
 224         Give me light, _ give _ me life, _
 225         keep me free _ from birth. _
 226         Give me hope, help me cope _
 227         with this hea -- _ vy load. _
 228         Try -- ing to _ touch _ and reach _ you with
 229         heart _ and soul. _
 230
 231         _ _ touch _ and reach _ you with
 232         heart __ _ _ and soul. __ _
 233
 234         Oh, __ _ _ _ _ my _ _ Lord. __ _ _ _
 235 }
 236
 237
 238 %
 239 % Riffs
 240 %
 241 Riffs = \relative c''
 242 {
 243         % Intro
 244
 245         \tiny
 246         R1 |   % 1
 247         R1 |   % 2
 248         R1 |   % 3
 249         R1 |   % 4
 250
 251         c8 ( f ) ~ f2. |   % 5
 252         e2 ~ e8 a4. |   % 6
 253         d,1 ( |   % 7
 254         c1 ) |   % 8
 255         bf4 ( df2. ) |   % 9
 256         df4 ( e2. ) |   % 10
 257         ef1 |   % 11
 258         d8 ef4 f8 ~ f4 bf-. |   % 12
 259         d,2 s2 |   % 13
 260
 261         s1*36 |   % 14-49
 262         s2 |   % 50
 263         s1*32 |   % 51-82
 264         r8 df df df df ( c ) bf4 |   % 83
 265         R1*8 |   % 84-91
 266         \normalsize
 267 }
 268
 269
 270 %
 271 % Chord names
 272 %
 273 Chords = \chordmode
 274 {
 275 %Bah, can't we set this globally?
 276 %Yes, we can!
 277 %       \popChords
 278
 279         % Intro
 280
 281         f4:sus2 f2. |   % 1
 282         s1 |   % 2
 283         f4:sus2 f2. |   % 3
 284         s1 |   % 4
 285         f1 |   % 5
 286         f1:maj7 |   % 6
 287         g1:m |   % 7
 288         c1 |   % 8
 289         bf1:m |   % 9
 290         c1 |   % 10
 291         ef1 |   % 11
 292         bf1 |   % 12
 293         s1 |   % 13
 294
 295         % A section
 296
 297         f1 |   % 14
 298         f1:maj7 |   % 15
 299         g1:m |   % 16
 300         c1 |   % 17
 301         bf1:m |   % 18
 302         c1 |   % 19
 303         ef1 |   % 20
 304         bf1 |   % 21
 305
 306         f1 |   % 22
 307         f1:maj7 |   % 23
 308         g1:m |   % 24
 309         c1 |   % 25
 310         bf1:m |   % 26
 311         c1 |   % 27
 312         ef1 |   % 28
 313         bf1 |   % 29
 314
 315         % B section
 316
 317         f1 |   % 30
 318         s1 |   % 31
 319         f1:maj7 |   % 32
 320         s1 |   % 33
 321         f1:7 |   % 34
 322         s1 |   % 35
 323         bf1:7 |   % 36
 324         s1 |   % 37
 325
 326         f1 |   % 38
 327         s1 |   % 39
 328         f1:maj7 |   % 40
 329         s1 |   % 41
 330         f1:7 |   % 42
 331         s1 |   % 43
 332         bf1 |   % 44
 333         s1 |   % 45
 334
 335         g1:7 |   % 46
 336         s1 |   % 47
 337         c1 |   % 48
 338         s1 |   % 49
 339         s2 |   % 50
 340         s1 |   % 51
 341
 342         % A section
 343
 344         f1 |   % 52
 345         f1:maj7 |   % 53
 346         g1:m |   % 54
 347         c1 |   % 55
 348         bf1:m |   % 56
 349         c1 |   % 57
 350         ef1 |   % 58
 351         bf1 |   % 59
 352
 353         f1 |   % 60
 354         f1:maj7 |   % 61
 355         g1:m |   % 62
 356         c1 |   % 63
 357
 358         bf1:m |   % 64
 359         c1 |   % 65
 360         ef1 |   % 66
 361         bf1 |   % 67
 362
 363         bf1:m |   % 80
 364         s1 |   % 81
 365
 366         c1 |   % 82
 367         s1 |   % 83
 368         ef1 |   % 84
 369         s1 |   % 85
 370         bf1 |   % 86
 371         s1 |   % 87
 372
 373         % B section
 374
 375         f1 |   % 88
 376         s1 |   % 89
 377         f1:maj7 |   % 90
 378         s1 |   % 91
 379         f1:7 |   % 92
 380         s1 |   % 93
 381         bf1:7 |   % 94
 382         s1 |   % 95
 383
 384         f1 |   % 96
 385         s1 |   % 97
 386         f1:maj7 |   % 98
 387         s1 |   % 99
 388         f1:7 |   % 100
 389         s1 |   % 101
 390         bf1:7 |   % 102
 391         s1 |   % 103
 392 }
 393
 394
 395 %
 396 % Chord rhythms
 397 %
 398
 399 % Use a RhythmicStaff on the chords instead of this?
 400 % It almost works, but not quite. Doesn't collapse chords above to single notes...
 401
 402 Rhythm =
 403 {
 404         \override Staff.TimeSignature #'style = #'()
 405         \override NoteHead #'style = #'slash
 406
 407         % Intro
 408
 409         c8 c c4 c c |   % 1
 410         c4 c c c |   % 2
 411         c8 c c4 c c |   % 3
 412         c4 c c c |   % 4
 413         c4 c c c |   % 5
 414         c4 c c c |   % 6
 415         c4 c c c |   % 7
 416         c4 c c c |   % 8
 417         c4 c c c |   % 9
 418         c4 c c c |   % 10
 419         c4 c c c |   % 11
 420         c4 c c c |   % 12
 421         c4 c c c |   % 13
 422
 423         % A section
 424
 425         c4 c c c |   % 14
 426         c4 c c c |   % 15
 427         c4 c c c |   % 16
 428         c4 c c c |   % 17
 429         c4 c c c |   % 18
 430         c4 c c c |   % 19
 431         c4 c c c |   % 20
 432         c4 c c c |   % 21
 433
 434         c4 c c c |   % 22
 435         c4 c c c |   % 23
 436         c4 c c c |   % 24
 437         c4 c c c |   % 25
 438         c4 c c c |   % 26
 439         c4 c c c |   % 27
 440         c4 c c c |   % 28
 441         c4 c c c |   % 29
 442
 443         % B section
 444
 445         c4 c c c |   % 30
 446         c4 c c c |   % 31
 447         c4 c c c |   % 32
 448         c4 c c c |   % 33
 449         c4 c c c |   % 34
 450         c4 c c c |   % 35
 451         c4 c c c |   % 36
 452         c4 c c c |   % 37
 453
 454         c4 c c c |   % 38
 455         c4 c c c |   % 39
 456         c4 c c c |   % 40
 457         c4 c c c |   % 41
 458         c4 c c c |   % 42
 459         c4 c c c |   % 43
 460         c4 c c c |   % 44
 461         c4 c c c |   % 45
 462
 463         c4 c c c |   % 46
 464         c4 c c c |   % 47
 465         c4 c c c |   % 48
 466         \times 2/3 { c2 c c } |   % 49
 467         c2 |   % 50
 468         c4 c c c |   % 51
 469
 470         % A section
 471
 472         c4 c c c |   % 52
 473         c4 c c c |   % 53
 474         c4 c c c |   % 54
 475         c4 c c c |   % 55
 476         c4 c c c |   % 56
 477         c4 c c c |   % 57
 478         c4 c c c |   % 58
 479         c4 c c c |   % 59
 480
 481         c4 c c c |   % 60
 482         c4 c c c |   % 61
 483         c4 c c c |   % 62
 484         c4 c c c |   % 63
 485
 486         c4 c c c |   % 64
 487         c4 c c c |   % 65
 488         c4 c c c |   % 66
 489         c4 c c c |   % 67
 490
 491         c4 c c c |   % 80
 492         c4 c c c |   % 81
 493
 494         c4 c c c |   % 82
 495         c4 c c c |   % 83
 496         c4 c c c |   % 84
 497         c4 c c c |   % 85
 498         c4 c c c |   % 86
 499         c4 c c c |   % 87
 500
 501         % B section
 502
 503         c4 c c c |   % 88
 504         c4 c c c |   % 89
 505         c4 c c c |   % 90
 506         c4 c c c |   % 91
 507         c4 c c c |   % 92
 508         c4 c c c |   % 93
 509         c4 c c c |   % 94
 510         c4 c c c |   % 95
 511
 512         c4 c c c |   % 96
 513         c4 c c c |   % 97
 514         c4 c c c |   % 98
 515         c4 c c c |   % 99
 516         c4 c c c |   % 100
 517         c4 c c c |   % 101
 518         c4 c c c |   % 102
 519         c4 c c c-\fermata |   % 103
 520 }
 521
 522 Dynamics =
 523 {
 524         % Intro
 525         s4_\markup { \italic { Ac. gtr only } } s2. |   % 1
 526
 527         s1*3 |   % 2-4
 528
 529         s4_\markup { \italic { Band in } } s2. |   % 5
 530 }
 531
 532
 533 \score
 534 {
 535         <<
 536                 \Global                                         % The "roadmap" that everything else depends on
 537
 538                 \context Staff
 539                 <<
 540                         \context Staff << \new Voice = "lead" \LeadVox \new Voice \Riffs >>
 541                         \new Lyrics \lyricsto "lead" \LeadVoxText
 542                 >>
 543
 544                 \new ChoirStaff
 545                 <<
 546                         \new ChordNames \Chords
 547 %Capo 3 edition
 548 %                       \new ChordNames \transpose f d \Chords
 549                         \new RhythmicStaff << \Rhythm \Dynamics >>
 550                 >>
 551
 552                 \set Score.skipBars = ##t
 553                 \set Score.melismaBusyProperties = #'()
 554         >>
 555 }
 556
 557
 558 \paper
 559 {
 560         #(define fonts (make-pango-font-tree
 561                 "Times New Roman"
 562                 "DomCasual BT"
 563                 "Luxi Mono"
 564                 (/ staffSize 20)))
 565
 566 % Spread staves vertically across last page (default: t)
 567 %       ragged-last-bottom = ##f
 568 % Don't spread staves vertically across the page (default: f)
 569 %       ragged-bottom = ##t
 570 % Allow partial line for last stave (default: f)
 571 %       ragged-last = ##t
 572
 573 % To find out what's eating the space at the top...
 574 %       annotate-spacing = ##t
 575 %let's try this: [It works! Huzzah!]
 576         obsolete-page-top-space = 0  top-system-spacing #'basic-distance = #(/ obsolete-page-top-space staff-space)
 577 }