Shamusworld >> Repos - music/blob - covers/let-it-rain.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 "Let It Rain" }
  18         composer = \markup { \override #'(font-family . sans) \fontsize #1.3 "Eric Clapton/Bonnie Bramlett" }
  19 %       arranger = \markup { \override #'(font-family . sans) \fontsize #1.3 "arr. " }
  20         tagline  = $(string-append "Engraved by JLH and Lilypond " (lilypond-version))
  21 % Let's try a chord dictionary
  22         subtitle = \markup { \center-column { "F#m" \fret-diagram-terse #"x;x;4;2;2;2;" } "       " \center-column { "F#m/F" \fret-diagram-terse #"x;x;3;2;2;2;" } "       " \center-column { "F#m/E" \fret-diagram-terse #"x;x;2;2;2;2;" }  "       " \center-column { "F#m/Eb" \fret-diagram-terse #"x;x;1;2;2;2;" }  "       " \center-column { "Em7" \fret-diagram-terse #"o;2;2;o;3;o;" }  "       " \center-column { "A13" \fret-diagram-terse #"x;o;2;o;2;2;" }  }
  23 }
  24
  25 % Useful tweak abbreviations (hn = harmony note)
  26
  27 hn = #(define-music-function (parser location arg) (ly:music?)
  28 ;; Harmony Note: Set the tweaks property of the passed in note to use a smaller font
  29
  30   (set! (ly:music-property arg 'tweaks)
  31     (acons 'font-size -3.0 (ly:music-property arg 'tweaks))) arg)
  32
  33
  34 %
  35 % Song's structure
  36 %
  37 Global =
  38 {
  39         \key d \major
  40         \override Staff.TimeSignature #'style = #'()
  41         \time 4/4
  42
  43         % Intro
  44
  45         \once \override TextScript #'padding = #2.0
  46         s1*0^\markup { \large \bold { Moderately fast pop } }
  47 % Capo 4 version
  48 %       s1*0^\markup { \hspace #0.0 \raise #2.0 \larger \bold { "Moderate pop (*** CAPO 4 ***)" } }
  49
  50         % Intro
  51
  52         \repeat volta 2
  53         {
  54                 s1*3 |   % 1-3
  55         }
  56         \alternative
  57         {
  58                 {
  59                         s1 |   % 4
  60                 }
  61                 {
  62                         s1 |   % 5
  63                 }
  64         }
  65
  66         \repeat volta 2
  67         {
  68                 % Verse
  69
  70                 \mark \markup { \override #'(font-family . sans) { \box { A } } }
  71                 s1*8 \bar "||"   % 6-13
  72
  73                 % Chorus
  74
  75                 \mark \markup { \override #'(font-family . sans) { \box { B } } }
  76                 s1*6 |   % 14-19
  77         }
  78         \alternative
  79         {
  80                 {
  81                         s1*2 |   % 20-21
  82                 }
  83                 {
  84                         s1 |   % 22
  85                 }
  86         }
  87
  88         % Midtro
  89
  90         \repeat volta 2
  91         {
  92                 \mark \markup { \override #'(font-family . sans) { \box { C } } }
  93                 s1*3 |   % 23-25
  94         }
  95         \alternative
  96         {
  97                 {
  98                         s1 |   % 26
  99                 }
 100                 {
 101                         s1 |   % 27
 102                 }
 103         }
 104
 105         % Bridge
 106
 107         \mark \markup { \override #'(font-family . sans) { \box { D } } }
 108         s1*4 |   % 28-31
 109         \repeat volta 3
 110         {
 111                 s1*0^\markup { \large \bold { 3X } }
 112                 s1*2 |   % 32-33
 113         }
 114
 115         % Verse
 116
 117         \mark \markup { \override #'(font-family . sans) { \box { E } } }
 118         s1*8 |   % 34-41
 119
 120         \repeat volta 2
 121         {
 122                 % Chorus
 123
 124                 \mark \markup { \override #'(font-family . sans) { \box { F } } }
 125                 s1*6 |   % 42-47
 126         }
 127         \alternative
 128         {
 129                 {
 130                         s1*2 |   % 48-49
 131                 }
 132                 {
 133                         s1 |   % 50
 134                 }
 135         }
 136
 137         % Outro
 138
 139         \repeat volta 2
 140         {
 141                 \mark \markup { \override #'(font-family . sans) { \box { G } } }
 142                 s1*4 |   % 51-54
 143         }
 144
 145         \repeat volta 2
 146         {
 147                 \mark \markup { \override #'(font-family . sans) { \box { H } } }
 148                 s1*4 |   % 55-58
 149         }
 150 }
 151
 152
 153 %
 154 % Lead vocal
 155 %
 156 LeadVox = \relative c''
 157 {
 158 %       \set Staff.instrument = #"Lead vox"
 159         \clef G
 160         \override Staff.TimeSignature #'style = #'()
 161 %Hm. Needed anymore?
 162 %       \override Score.SpacingSpanner #'average-spacing-wishes = ##f
 163
 164         % Intro
 165
 166         s1*4 |   % 1-4
 167         r2 r4 r8 a |   % 5
 168
 169         % Verse
 170
 171         fs'8 e4 d8 ~ d8 fs4 e8 ~ |   % 6
 172         e8 d4 c8 ~ c4 r8 a |   % 7
 173         c4 c8 d ~ d4 d8 e ~ |   % 8
 174         e8 d4 d8 ~ d4 r8 a |   % 9
 175         fs'8 e4 d8 ~ d8 fs4 e8 ~ |   % 10
 176         e8 d4 c8 ~ c4 r8 a |   % 11
 177         c4 c8 c ~ c4 d8 e ( |   % 12
 178         d ) d4. r8 d e fs ~ |   % 13
 179
 180         % Chorus
 181
 182         fs4 r r8 d e fs16 ( e |   % 14
 183         d4 ) r r8 d d e ~ |   % 15
 184         e4 e d8 ( b ) b a ~ |   % 16
 185         a2 r8 d e fs ~ |   % 17
 186         fs4 r r8 d e fs16 ( e |   % 18
 187         d4 ) r r8 d d e ~ |   % 19
 188
 189         e2 d4. d8 ~ |   % 20
 190         d2 r4 r8 a |   % 21
 191
 192         e'2-\repeatTie d4. ( cs8 ) |   % 22
 193
 194         % Midtro
 195
 196         cs2 r |   % 23
 197         s1*4 |   % 24-27
 198
 199         % Bridge
 200
 201         r1 |   % 28
 202         r1 |   % 29
 203         r1 |   % 30
 204         r1 |   % 31
 205         r1 |   % 32
 206         r1 |   % 33
 207
 208         % Verse
 209
 210         fs8 e4 d8 ~ d8 fs4 e8 ~ |   % 34
 211         e8 d4 c8 ~ c a4 r8 |   % 35
 212         c8 c4 d8 ~ d e4 d8 ~ | % 36
 213         d4 r r2 |   % 37
 214         fs8 e4 d8 ~ d8 fs4 e8 ~ |   % 38
 215         e8 d4 c8 ~ c4 r8 a8 |   % 39
 216         c4 c8 d ~ d e4 d8 ~ |   % 40
 217         d4 r r8 d e fs ~ |   % 41
 218
 219         % Chorus
 220
 221         fs4 r r8 d e fs16 ( e |   % 42
 222         d4 ) r r8 d d e ~ |   % 43
 223         e4 e d8 ( b ) b a ~ |   % 44
 224         a2 r8 d e fs ~ |   % 45
 225         fs4 r r8 d e fs16 ( e |   % 46
 226         d4 ) r r8 d d e ~ |   % 47
 227
 228         e2 d4. d8 ~ |   % 48
 229         d2 r8 d e fs ~ |   % 49
 230
 231         e2-\repeatTie d4. ( cs8 ) |   % 50
 232
 233         % Outro
 234
 235         cs2 r |   % 51
 236         s1*3 |   % 52-54
 237
 238         e2.. ( d8 ~ |   % 55
 239         d2 ) r |   % 56
 240         fs2 ~ ( fs8 g fs e ~ |   % 57
 241         e2 ) r |   % 58
 242 }
 243
 244 LeadVoxText = \lyricmode
 245 {
 246         The rain is fal -- _ ling through _ the mist _
 247         of sor -- row that _ sur -- round -- _ ed me. _
 248         The sun could ne -- _ ver thaw _ a -- way _
 249         the bliss that lays _ a -- round _ me.
 250
 251         Let it rain, _ let it rain, _ _
 252         let your love _ rain down _ on me. _
 253         Let it rain, _ let it rain, _ _
 254         let it rain, _ rain, rain! _
 255
 256         My
 257         _ rain, _ rain!
 258
 259         Now I know _ the sec -- _ ret
 260         there _ is no -- thing that _ I lack. _
 261         If I give _ my love _ to you _
 262         you'll sure -- ly give _ it back. _
 263
 264         Let it rain, _ let it rain, _ _
 265         let your love _ rain down _ on me. _
 266         Let it rain, _ let it rain, _ _
 267         let it rain, _ rain, rain! _
 268
 269         Let it rain,
 270         _ rain, _ rain!
 271
 272         Rain, __ _ _ rain! __ _ _ _ _ _
 273         dummy
 274 }
 275
 276 LeadVoxTextB = \lyricmode
 277 {
 278         _ life was like _ a des -- _ ert flo -- _ wer
 279         burn -- ing in _ the sun. _ _ _ _
 280         Un -- til I found _ the way _ to love _
 281         was hard -- er said _ than done.
 282 }
 283
 284
 285 Riffs = \relative c''
 286 {
 287         \clef G
 288 %Hm. Needed anymore?
 289         \override Score.SpacingSpanner #'average-spacing-wishes = ##f
 290
 291         % Intro
 292
 293         \tiny
 294         e4 e e8 d e g ~ |   % 1
 295         g8 d ~ d2. |   % 2
 296         g4 g g8 fs d-\glissando a' ~ |   % 3
 297
 298         a4 r8 e16 fs a8 a fs16 fs e8 |   % 4
 299
 300         a8-\repeatTie g4 fs8 ~ fs e4. |   % 5
 301
 302         s1*17 |   % 6-22
 303
 304         e4 e e8 d e g ~ |   % 23
 305         g8 d ~ d2. |   % 24
 306         g4 g g8 fs d-\glissando a' ~ |   % 25
 307
 308         a4 r8 e16 fs a8 a fs16 fs e8 |   % 26
 309
 310         a8-\repeatTie g4 fs8 ~ fs e4. |   % 27
 311
 312         s1*23 |   % 28-50
 313
 314         e4 e e8 d e g ~ |   % 51
 315         g8 d ~ d2. |   % 52
 316         g4 g g8 fs d-\glissando a' ~ |   % 53
 317         a2 r |   % 54
 318
 319         \normalsize
 320 }
 321
 322
 323 %
 324 % Chord names
 325 %
 326 Chords = \chordmode
 327 {
 328         % Intro
 329
 330         a1 |   % 1
 331         g1 |   % 2
 332         g2.. a8 |   % 3
 333
 334         s1 |   % 4
 335
 336         s1 |   % 5
 337
 338         % Verse
 339
 340         d1 |   % 6
 341         a1:m |   % 7
 342         c2 g |   % 8
 343         d1 |   % 9
 344         d1 |   % 10
 345         a1:m |   % 11
 346         c2 g |   % 12
 347         d1 |   % 13
 348
 349         % Chorus
 350
 351         d4. a2 s8 |   % 14
 352         d4. a2 s8 |   % 15
 353         c2 g |   % 16
 354         d1 |   % 17
 355         d4. a2 s8 |   % 18
 356         d4. a2 s8 |   % 19
 357
 358         c2 g |   % 20
 359         d1 |   % 21
 360
 361         c2 g |   % 22
 362
 363         % Midtro
 364
 365         a1 |   % 23
 366         g1 |   % 24
 367         g2.. a8 |   % 25
 368
 369         s1 |   % 26
 370
 371         s1 |   % 27
 372
 373         % Bridge
 374
 375         fs:m |   % 28
 376         fs:m/f |   % 29
 377         fs:m/e |   % 30
 378         fs:m/ef |   % 31
 379
 380         e:m7 |   % 32
 381         a:13 |   % 33
 382
 383         % Verse
 384
 385         d1 |   % 34
 386         a1:m |   % 35
 387         c2 g |   % 36
 388         d1 |   % 37
 389         d1 |   % 38
 390         a1:m |   % 39
 391         c2 g |   % 40
 392         d1 |   % 41
 393
 394         % Chorus
 395
 396         d4. a2 s8 |   % 42
 397         d4. a2 s8 |   % 43
 398         c2 g |   % 44
 399         d1 |   % 45
 400         d4. a2 s8 |   % 46
 401         d4. a2 s8 |   % 47
 402
 403         c2 g |   % 48
 404         d1 |   % 49
 405
 406         c2 g |   % 50
 407
 408         % Outro
 409
 410         a1 |   % 51
 411         g1 |   % 52
 412         g1 |   % 53
 413         a1 |   % 54
 414
 415         a1 |   % 55
 416         g1 |   % 56
 417         g1 |   % 57
 418         a1 |   % 58
 419 }
 420
 421
 422 %
 423 % Chord rhythms
 424 %
 425 % Use a RhythmicStaff on the chords instead of this?
 426 % It almost works, but not quite. Doesn't collapse chords above to single notes...
 427 %
 428 Rhythm = \relative c
 429 {
 430 %%      \set Voice.autoBeaming = ##f
 431 %%      \set Staff.instrument = #"Rhythm"
 432         \override Staff.TimeSignature #'style = #'()
 433         \override NoteHead #'style = #'slash
 434
 435         % Intro
 436
 437         c4 c c2 |   % 1
 438         c8 c ~ c2. |   % 2
 439         c4 c c4. c8 ~ |   % 3
 440
 441         c1 |   % 4
 442
 443         c8-\repeatTie c4 c8 ~ c8 c4. |   % 5
 444
 445         % Verse
 446
 447         c4 c c c |   % 6
 448         c4 c c c |   % 7
 449         c4 c c c |   % 8
 450         c4 c c c |   % 9
 451         c4 c c c |   % 10
 452         c4 c c c |   % 11
 453         c4 c c c |   % 12
 454         c4 c c c |   % 13
 455
 456         % Chorus
 457
 458         c4 c8 c ~ c4 c |   % 14
 459         c4 c8 c ~ c4 c |   % 15
 460         c4 c c c |   % 16
 461         c4 c c c |   % 17
 462         c4 c8 c ~ c4 c |   % 18
 463         c4 c8 c ~ c4 c |   % 19
 464
 465         c4 c c c |   % 20
 466         c4 c c c |   % 21
 467
 468         c4 c c c |   % 22
 469
 470         % Midtro
 471
 472         c4 c c2 |   % 23
 473         c8 c ~ c2. |   % 24
 474         c4 c c4. c8 ~ |   % 25
 475
 476         c1 |   % 26
 477
 478         c8-\repeatTie c4 c8 ~ c8 c4. |   % 27
 479
 480         % Bridge
 481
 482         c4 c c c |   % 28
 483         c4 c c c |   % 29
 484         c4 c c c |   % 30
 485         c4 c c c |   % 31
 486
 487         c4 c c c |   % 32
 488         c4 c c c |   % 33
 489
 490         % Verse
 491
 492         c4 c c c |   % 34
 493         c4 c c c |   % 35
 494         c4 c c c |   % 36
 495         c4 c c c |   % 37
 496         c4 c c c |   % 38
 497         c4 c c c |   % 39
 498         c4 c c c |   % 40
 499         c4 c c c |   % 41
 500
 501         % Chorus
 502
 503         c4 c8 c ~ c4 c |   % 42
 504         c4 c8 c ~ c4 c |   % 43
 505         c4 c c c |   % 44
 506         c4 c c c |   % 45
 507         c4 c8 c ~ c4 c |   % 46
 508         c4 c8 c ~ c4 c |   % 47
 509
 510         c4 c c c |   % 48
 511         c4 c c c |   % 49
 512
 513         c4 c c c |   % 50
 514
 515         % Outro
 516
 517         c4 c c c |   % 51
 518         c4 c c c |   % 52
 519         c4 c c c |   % 53
 520         c4 c c c |   % 54
 521
 522         c4 c c c |   % 55
 523         c4 c c c |   % 56
 524         c4 c c c |   % 57
 525         c4 c c c |   % 58
 526 }
 527
 528
 529 Dynamics =
 530 {
 531 %{
 532         s4_\markup { \italic { snare pat. } } s2 |   % 1
 533         s4_\markup { \italic { simile } } s2 |   % 2
 534         s2.*19
 535         s4_\markup { \italic { spacey } } s2 |   % 22
 536         s2.*5
 537         s4 s \< s \! |   % 28
 538         s2.*22
 539         s4_\markup { \italic { Last time } } s2 |   % 51
 540 %}
 541 }
 542
 543
 544 \score
 545 {
 546         <<
 547                 \set Score.skipBars = ##t
 548                 \set Score.melismaBusyProperties = #'()
 549
 550 %               \new Staff
 551                 <<
 552                         \new ChordNames \Chords
 553 %Capo 4 edition
 554 %                       \new ChordNames \transpose b g \Chords
 555                         \new RhythmicStaff << \Rhythm \Dynamics >>
 556                 >>
 557
 558                 \new Staff
 559                 <<
 560                         \Global                                         % The "roadmap" that everything else depends on
 561                         \new Voice = "lead" \LeadVox
 562                         \new Voice \Riffs
 563                         \new Lyrics \lyricsto "lead" \LeadVoxText
 564                         \new Lyrics \lyricsto "lead" \LeadVoxTextB
 565                 >>
 566         >>
 567 }
 568
 569
 570 \paper
 571 {
 572   #(define fonts (make-pango-font-tree
 573     "Times New Roman"
 574     "DomCasual BT"
 575     "Luxi Mono"
 576     (/ staffSize 20)))
 577
 578 % Spread staves vertically across last page (default: t)
 579 %       ragged-last-bottom = ##f
 580 % Don't spread staves vertically across the page (default: f)
 581 %       ragged-bottom = ##t
 582 % Allow partial line for last stave (default: f)
 583         ragged-last = ##t
 584
 585 % To find out what's eating the space at the top...
 586 %       annotate-spacing = ##t
 587 %let's try this: [It works! Huzzah!]
 588         obsolete-page-top-space = 0  top-system-spacing #'basic-distance = #(/ obsolete-page-top-space staff-space)
 589 }