Shamusworld >> Repos - music/blob - covers/let-it-grow.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 Grow" }
  18         composer = \markup { \override #'(font-family . sans) \fontsize #1.3 "Eric Clapton" }
  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 b \minor
  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 { Moderate pop } }
  47 % Capo 4 version
  48 %       s1*0^\markup { \hspace #0.0 \raise #2.0 \larger \bold { "Moderate pop (*** CAPO 4 ***)" } }
  49
  50         \repeat volta 2
  51         {
  52                 % Verse
  53
  54                 \mark \markup { \override #'(font-family . sans) { \box { A } } }
  55                 s1*6 |   % 1-6
  56                 \key b \major
  57                 s1 \bar "||"   % 7
  58
  59                 % Chorus
  60
  61                 \mark \markup { \override #'(font-family . sans) { \box { B } } }
  62                 s1*9 |   % 8-16
  63         }
  64
  65         % Bridge/Solo
  66
  67         \repeat volta 2
  68         {
  69                 \mark \markup { \override #'(font-family . sans) { \box { C } } }
  70                 s1*2 |   % 17-18
  71         }
  72         \alternative
  73         {
  74                 {
  75                         s1 |   % 19
  76                 }
  77                 {
  78                         \key b \minor
  79                         s1 |   % 20
  80                 }
  81         }
  82
  83         s1 |   % 21
  84
  85         \repeat volta 2
  86         {
  87                 s1*3 |   % 22-24
  88         }
  89
  90         % Verse
  91
  92         \mark \markup { \override #'(font-family . sans) { \box { D } } }
  93         s1*6 |   % 25-30
  94         \key b \major
  95         s1 |   % 31
  96
  97         % Chorus
  98
  99         \repeat volta 2
 100         {
 101                 \mark \markup { \override #'(font-family . sans) { \box { E } } }
 102                 s1*8 |   % 32-39
 103         }
 104
 105         s1 |   % 40
 106
 107         % Outro
 108
 109         \repeat volta 2
 110         {
 111                 \key b \minor
 112                 \mark \markup { \override #'(font-family . sans) { \box { F } } }
 113                 s1*3 |   % 41-43
 114         }
 115 }
 116
 117
 118 %
 119 % Lead vocal
 120 %
 121 LeadVox = \relative c'
 122 {
 123 %       \set Staff.instrument = #"Lead vox"
 124         \clef G
 125         \override Staff.TimeSignature #'style = #'()
 126 %Hm. Needed anymore?
 127 %       \override Score.SpacingSpanner #'average-spacing-wishes = ##f
 128
 129         % Verse
 130
 131         b8 fs' fs fs16 fs ~ fs fs8. r4 |   % 1
 132         fs8 fs16 g8. fs16 ( e ) e4 r |   % 2
 133         r8 r16 d d8 d e e d cs |   % 3
 134         b8 fs' fs fs16 fs ~ fs fs8. r8 r16 b, |   % 4
 135         fs'8 fs16 g8. fs16 ( e ) e4 r |   % 5
 136         r4 d8 d e e d cs16 ( b ) |   % 6
 137         b2 r |   % 7
 138
 139         % Chorus
 140
 141         r4 fs'16 fs8. fs4 cs'16 ds8. |   % 8
 142         ds2 r |   % 9
 143         r4 e16 e8. ds8 ds ds16 ( cs ) b8 |   % 10
 144         cs2 r |   % 11
 145         r4 b8 b16 b ~ b8 b cs ds |   % 12
 146         ds2 r |   % 13
 147         r4 e8 e ds cs16 ( b ) ~ b4 |   % 14
 148         r2 r4 ds16 ( cs ) b8 |   % 15
 149         cs2. r4 |   % 16
 150
 151         % Bridge/Solo
 152
 153         r1 |   % 17
 154         r1 |   % 18
 155
 156         r1 |   % 19
 157
 158         r1 |   % 20
 159         r1 |   % 21
 160
 161         r1 |   % 22
 162         r1 |   % 23
 163         r1 |   % 24
 164
 165         % Verse
 166
 167         b,8 fs' fs fs16 fs ~ fs fs8. r8 r16 b, |   % 25
 168         fs'8 fs16 g8. fs16 ( e ) e4 r |   % 26
 169         r4 d8 d e e d cs |   % 27
 170         b8 fs' fs fs16 fs ~ fs fs8. r8 r16 b, |   % 28
 171         fs'8 fs16 g8. fs16 ( e ) e4 r |   % 29
 172         r4 d8 d e e d cs16 ( b ) |   % 30
 173         b2 r |   % 31
 174
 175         % Chorus
 176
 177         r4 fs'16 fs8. fs4 cs'16 ds8. |   % 32
 178         ds2 r |   % 33
 179         r4 e16 e8. ds8 ds ds16 ( cs ) b8 |   % 34
 180         cs2 r |   % 35
 181         r4 b8 b16 b ~ b8 b cs ds |   % 36
 182         ds2 r |   % 37
 183         r4 e8 e ds cs16 ( b ) ~ b4 |   % 38
 184         r2 r4 ds16 ( cs ) b8 |   % 39
 185
 186         cs2. r4 |   % 30
 187
 188         % Outro
 189
 190         r1 |   % 41
 191         r1 |   % 42
 192         r1 |   % 43
 193 }
 194
 195 LeadVoxText = \lyricmode
 196 {
 197         Stand -- ing at the cross -- _ roads
 198         tryin’ to read the _ signs,
 199         to tell me which way I should
 200         Go to find the ans -- _ wer
 201         and all the time I _ know:
 202         plant your love and let it _ grow.
 203
 204         Let it grow, let it grow.
 205         Let it blos -- som, let _ it flow.
 206         In the sun, _ the rain, the snow,
 207         love is love -- ly; _ _ let _ it grow.
 208
 209         Time is get -- ting short -- _ er,
 210         there’s much for me to _ do;
 211         on -- ly ask and you will
 212         Get what you are need -- _ ing,
 213         the rest is up to _ you;
 214         plant your love and let it _ grow.
 215
 216         Let it grow, let it grow.
 217         Let it blos -- som, let _ it flow.
 218         In the sun, _ the rain, the snow,
 219         love is love -- ly; _ _ let _ it grow.
 220 }
 221
 222 LeadVoxTextB = \lyricmode
 223 {
 224         Look -- ing for a rea -- _ son
 225         to check out of my _ mind,
 226         try -- ing hard to get a
 227         friend that I can count _ on
 228         there’s noth -- ing left to _ show;
 229 }
 230
 231
 232 Riffs = \relative c''
 233 {
 234         \clef G
 235 %Hm. Needed anymore?
 236         \override Score.SpacingSpanner #'average-spacing-wishes = ##f
 237
 238         % Intro
 239
 240 %{
 241         \tiny
 242         e4 e e8 d e g ~ |   % 1
 243         g8 d ~ d2. |   % 2
 244         g4 g g8 fs d-\glissando a' ~ |   % 3
 245
 246         a4 r8 e16 fs a8 a fs16 fs e8 |   % 4
 247
 248         a8-\repeatTie g4 fs8 ~ fs e4. |   % 5
 249
 250         s1*17 |   % 6-22
 251
 252         e4 e e8 d e g ~ |   % 23
 253         g8 d ~ d2. |   % 24
 254         g4 g g8 fs d-\glissando a' ~ |   % 25
 255
 256         a4 r8 e16 fs a8 a fs16 fs e8 |   % 26
 257
 258         a8-\repeatTie g4 fs8 ~ fs e4. |   % 27
 259
 260         s1*23 |   % 28-50
 261
 262         e4 e e8 d e g ~ |   % 51
 263         g8 d ~ d2. |   % 52
 264         g4 g g8 fs d-\glissando a' ~ |   % 53
 265         a2 r |   % 54
 266
 267         \normalsize
 268 %}
 269 }
 270
 271
 272 %
 273 % Chord names
 274 %
 275 Chords = \chordmode
 276 {
 277         % Verse
 278
 279         b2:m fs:7 |   % 1
 280         d2 e |   % 2
 281         g2 a |   % 3
 282         b2:m fs:7 |   % 4
 283         d2 e |   % 5
 284         g2 a |   % 6
 285         b1 |   % 7
 286
 287         % Chorus
 288
 289         b2 b/as |   % 8
 290         b2/gs b/fs |   % 9
 291         e2 b |   % 10
 292         a1 |   % 11
 293         b2 b/as |   % 12
 294         b2/gs b/fs |   % 13
 295         e2 b |   % 14
 296         a1 |   % 15
 297         fs1 |   % 16
 298
 299         % Bridge/Solo
 300
 301         g2 d/fs |   % 17
 302         e2:m b:m/d |   % 18
 303
 304         a1 |   % 19
 305
 306         fs1 |   % 20
 307         s1 |   % 21
 308
 309         b2:m fs:7 |   % 22
 310         d2 e |   % 23
 311         g2 a |   % 24
 312
 313         % Verse
 314
 315         b2:m fs:7 |   % 25
 316         d2 e |   % 26
 317         g2 a |   % 27
 318         b2:m fs:7 |   % 28
 319         d2 e |   % 29
 320         g2 a |   % 30
 321         b1 |   % 31
 322
 323         % Chorus
 324
 325         b2 b/as |   % 32
 326         b2/gs b/fs |   % 33
 327         e2 b |   % 34
 328         a1 |   % 35
 329         b2 b/as |   % 36
 330         b2/gs b/fs |   % 37
 331         e2 b |   % 38
 332         a1 |   % 39
 333         fs1 |   % 40
 334
 335         % Outro
 336
 337         b2:m fs:7 |   % 41
 338         d2 e |   % 42
 339         g2 a |   % 43
 340 }
 341
 342
 343 %
 344 % Chord rhythms
 345 %
 346 % Use a RhythmicStaff on the chords instead of this?
 347 % It almost works, but not quite. Doesn't collapse chords above to single notes...
 348 %
 349 Rhythm = \relative c
 350 {
 351 %%      \set Voice.autoBeaming = ##f
 352 %%      \set Staff.instrument = #"Rhythm"
 353         \override Staff.TimeSignature #'style = #'()
 354         \override NoteHead #'style = #'slash
 355
 356         % Verse
 357
 358         c4 c c c |   % 1
 359         c4 c c c |   % 2
 360         c4 c c c |   % 3
 361         c4 c c c |   % 4
 362         c4 c c c |   % 5
 363         c4 c c c |   % 6
 364         c4 c c c |   % 7
 365
 366         % Chorus
 367
 368         c4 c c c |   % 8
 369         c4 c c c |   % 9
 370         c4 c c c |   % 10
 371         c4 c c c |   % 11
 372         c4 c c c |   % 12
 373         c4 c c c |   % 13
 374         c4 c c c |   % 14
 375         c4 c c c |   % 15
 376         c4 c c c |   % 16
 377
 378         % Bridge/Solo
 379
 380         c4 c c c |   % 17
 381         c4 c c c |   % 18
 382
 383         c4 c c c |   % 19
 384
 385         c4 c c c |   % 20
 386
 387         c4 c c c |   % 21
 388
 389         c4 c c c |   % 22
 390         c4 c c c |   % 23
 391         c4 c c c |   % 24
 392
 393         % Verse
 394
 395         c4 c c c |   % 25
 396         c4 c c c |   % 26
 397         c4 c c c |   % 27
 398         c4 c c c |   % 28
 399         c4 c c c |   % 29
 400         c4 c c c |   % 30
 401         c4 c c c |   % 31
 402
 403         % Chorus
 404
 405         c4 c c c |   % 32
 406         c4 c c c |   % 33
 407         c4 c c c |   % 34
 408         c4 c c c |   % 35
 409         c4 c c c |   % 36
 410         c4 c c c |   % 37
 411         c4 c c c |   % 38
 412         c4 c c c |   % 39
 413         c4 c c c |   % 40
 414
 415         % Outro
 416
 417         c4 c c c |   % 41
 418         c4 c c c |   % 42
 419         c4 c c c |   % 43
 420 }
 421
 422
 423 Dynamics =
 424 {
 425 %{
 426         s4_\markup { \italic { snare pat. } } s2 |   % 1
 427         s4_\markup { \italic { simile } } s2 |   % 2
 428         s2.*19
 429         s4_\markup { \italic { spacey } } s2 |   % 22
 430         s2.*5
 431         s4 s \< s \! |   % 28
 432         s2.*22
 433         s4_\markup { \italic { Last time } } s2 |   % 51
 434 %}
 435 }
 436
 437
 438 \score
 439 {
 440         <<
 441                 \set Score.skipBars = ##t
 442                 \set Score.melismaBusyProperties = #'()
 443
 444 %               \new Staff
 445                 <<
 446                         \new ChordNames \Chords
 447 %Capo 4 edition
 448 %                       \new ChordNames \transpose b g \Chords
 449                         \new RhythmicStaff << \Rhythm \Dynamics >>
 450                 >>
 451
 452                 \new Staff
 453                 <<
 454                         \Global                                         % The "roadmap" that everything else depends on
 455                         \new Voice = "lead" \LeadVox
 456                         \new Voice \Riffs
 457                         \new Lyrics \lyricsto "lead" \LeadVoxText
 458                         \new Lyrics \lyricsto "lead" \LeadVoxTextB
 459                 >>
 460         >>
 461 }
 462
 463
 464 \paper
 465 {
 466   #(define fonts (make-pango-font-tree
 467     "Times New Roman"
 468     "DomCasual BT"
 469     "Luxi Mono"
 470     (/ staffSize 20)))
 471
 472 % Spread staves vertically across last page (default: t)
 473 %       ragged-last-bottom = ##f
 474 % Don't spread staves vertically across the page (default: f)
 475 %       ragged-bottom = ##t
 476 % Allow partial line for last stave (default: f)
 477         ragged-last = ##t
 478
 479 % To find out what's eating the space at the top...
 480 %       annotate-spacing = ##t
 481 %let's try this: [It works! Huzzah!]
 482         obsolete-page-top-space = 0  top-system-spacing #'basic-distance = #(/ obsolete-page-top-space staff-space)
 483 }