Shamusworld >> Repos - music/blob - covers/listen-to-the-music.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 "Listen To The Music" }
  18         composer = \markup { \override #'(font-family . sans) \fontsize #1.3 "Tom Johnston" }
  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 % Hrm, it's screwed up (not columnar) :-(
  23 %       subtitle = \markup { \center-align { "F#m" \fret-diagram-terse #"x;x;4;2;2;2;" } "       " \center-align { "F#m/F" \fret-diagram-terse #"x;x;3;2;2;2;" } "       " \center-align { "F#m/E" \fret-diagram-terse #"x;x;2;2;2;2;" }  "       " \center-align { "F#m/Eb" \fret-diagram-terse #"x;x;1;2;2;2;" }  "       " \center-align { "Em7" \fret-diagram-terse #"o;2;2;o;3;o;" }  "       " \center-align { "A13" \fret-diagram-terse #"x;o;2;o;2;2;" }  }
  24 }
  25
  26 % Useful tweak abbreviations (hn = harmony note)
  27
  28 hn = #(define-music-function (parser location arg) (ly:music?)
  29 ;; Harmony Note: Set the tweaks property of the passed in note to use a smaller font
  30
  31   (set! (ly:music-property arg 'tweaks)
  32     (acons 'font-size -3.0 (ly:music-property arg 'tweaks))) arg)
  33
  34
  35 %
  36 % Song's structure
  37 %
  38 Global =
  39 {
  40         \key e \major
  41         \override Staff.TimeSignature #'style = #'()
  42         \time 4/4
  43
  44         % Intro
  45
  46         \once \override TextScript #'padding = #2.0
  47         s1*0^\markup { \large \bold { Ac. Guitar solo } }
  48 % Capo 4 version
  49 %       s1*0^\markup { \hspace #0.0 \raise #2.0 \bigger \bold { "Moderate pop (*** CAPO 4 ***)" } }
  50
  51         s1*9 \bar "||:"   % 1-9
  52
  53         \key b \major
  54
  55         \mark \markup { \override #'(font-family . sans) { \box { A } } }
  56         \repeat volta 2
  57         {
  58                 s1*2 |   % 10-11
  59         }
  60
  61         \mark \markup { \override #'(font-family . sans) { \box { B } } }
  62         \repeat volta 2
  63         {
  64                 s1*2 |   % 12-13
  65         }
  66
  67         % Verse
  68
  69         \mark \markup { \override #'(font-family . sans) { \box { C } } }
  70         s1*12 \bar "||:"   % 14-25
  71
  72         \repeat volta 2
  73         {
  74                 % Verse
  75
  76                 \mark \markup { \override #'(font-family . sans) { \box { D } } }
  77                 s1*12 \bar "||"   % 26-37
  78
  79                 % Chorus
  80
  81                 s1*3 |   % 38-40
  82                 \key g \major
  83                 s1*3 |   % 41-43
  84         }
  85         \alternative
  86         {
  87                 {
  88                         s1*4 |   % 44-47
  89                 }
  90                 {
  91                         \key d \major
  92                         s1 |   % 48
  93                 }
  94         }
  95
  96         % Midtro
  97
  98         s1*3 |   % 49-51
  99
 100         \mark \markup { \override #'(font-family . sans) { \box { E } } }
 101         \repeat volta 2
 102         {
 103                 s1*2 |   % 52-53
 104         }
 105
 106         % Verse
 107
 108         \mark \markup { \override #'(font-family . sans) { \box { F } } }
 109         s1*8 \bar "||"   % 54-61
 110
 111         % Outro
 112
 113         s1*6 \bar "|."   % 62-67
 114 }
 115
 116
 117 %
 118 % Lead vocal
 119 %
 120 LeadVox = \relative c''
 121 {
 122 %       \set Staff.instrument = #"Lead vox"
 123         \clef G
 124         \override Staff.TimeSignature #'style = #'()
 125 %Hm. Needed anymore?
 126 %       \override Score.SpacingSpanner #'average-spacing-wishes = ##f
 127
 128         % Intro
 129
 130         s1*9 |   % 1-9
 131         r1 |   % 10
 132         r1 |   % 11
 133         r1 |   % 12
 134         r2 r4 r8 b16 b |   % 13
 135
 136         % Verse
 137
 138         fs'8 fs fs fs16 fs ~ fs fs8. r8 fs |   % 14
 139         fs8 e ds16 cs8 b16 ~ b8 r4 e8 |   % 15
 140         e8 e e e16 e ~ e e8. r8 e |   % 16
 141         e8 d cs16 d8 e16 ~ e8 r4 d16 d |   % 17
 142         d8 d d d16 d ~ d d8. r8 d |   % 18
 143         d16 d c8 b16 c8 d16 ~ d8 r4 d8 |   % 19
 144         cs8. cs16 b8 cs ~ cs b4 r8 |   % 20
 145         d4 b8. b16 a4 a |   % 21
 146
 147         b2 r |   % 22
 148         r1 |   % 23
 149         r1 |   % 24
 150         r2 r4 r8 b |   % 25
 151
 152         % Verse
 153
 154         fs'8 fs fs fs16 fs ~ fs fs8. r8 fs16 \tiny fs \normalsize |   % 26
 155         fs8 e ds16 cs8 b16 ~ b8 r4 e8 |   % 27
 156         e8 e e e16 e ~ e e8. r4 |   % 28
 157         e8 d cs16 d8 e16 ~ e8 r4. |   % 29
 158         d8 d d d16 d ~ d d8. r8 d |   % 30
 159         d16 c8 b8 c8. d8 r4 d8 |   % 32
 160         cs8. cs16 b8 cs ~ cs b4 r8 |   % 32
 161         d4 b8. b16 a4 a |   % 33
 162
 163         b2 r |   % 34
 164         r1 |   % 35
 165         r1 |   % 36
 166         r2 r4 b8 gs |   % 37
 167
 168         % Chorus
 169
 170         b4 cs ds8 ds gs, b ~ |   % 38
 171         b8 b cs b ds4 r8 gs, |   % 39
 172         b4 cs ds8 ds b4 |   % 40
 173         g'4 g g g |   % 41
 174         fs8 ( e d4 ) r2 |   % 42
 175         r1 |   % 43
 176
 177         c'8 b a g ~ g a4 \voiceTwo f8 ( |   % 44
 178         << { \voiceTwo e8 ) d4. r2 } \new Voice = "idk" { \voiceOne \tiny r4 a'8 fs ~ fs d4 r8 \normalsize } >> \oneVoice |   % 45
 179         a'8 g4 fs8 ~ fs d4. |   % 46
 180         b8 ( a4. ) r2 |   % 47
 181
 182         r1 |   % 48
 183
 184         % Midtro
 185
 186         r1 |   % 49
 187         r1 |   % 50
 188         r1 |   % 51
 189         r1 |   % 52
 190         r2 r4 r8 d16 d |   % 53
 191
 192         % Verse
 193
 194         a'8 a a a16 a ~ a a8. r4 |   % 54
 195         a8 g fs e d4 r8 d |   % 55
 196         g8 g g g16 g ~ g g8. r8 g |   % 56
 197         g8 f e16 f8 g16 ~ g8 r4 f16 f |   % 57
 198         f8 f f f16 f ~ f f8. r4 |   % 58
 199         f16 ef8. d8 ef8 f4 r8 f |   % 59
 200         e8. e16 d8 e ~ e d4 r8 |   % 60
 201         f4 d8. d16 c4 c |   % 61
 202
 203         % Outro
 204
 205         d2 r |   % 62
 206         r1 |   % 63
 207         r1 |   % 64
 208         r1 |   % 65
 209         r1 |   % 66
 210         r1-\fermata |   % 67
 211 }
 212
 213 LeadVoxText = \lyricmode
 214 {
 215         E -- ver since I was a young _ boy
 216         I played the sil -- ver ball, _
 217         From So -- ho down to Brigh -- _ ton
 218         I must have played them all, _
 219         But I ain’t seen noth -- ing like _ him
 220         in a -- ny a -- muse -- ment hall, _
 221         That deaf, dumb and blind _ kid
 222         Sure plays a mean pin -- ball.
 223
 224         He stands just like a sta -- _ tue
 225         be -- comes part of the ma -- chine, _
 226         _ Feel -- ing all the bump -- _ ers,
 227         al -- ways play -- ing clean, _
 228         Plays by in -- tu -- i -- _ tion,
 229         the di -- git count -- ers fall,
 230         That deaf, dumb and blind _ kid
 231         Sure plays a mean pin -- ball.
 232
 233         He’s a pin -- ball wi -- zard
 234         it has _ to be a twist.
 235         A pin -- ball wi -- zard’s got
 236         such a sup -- ple wrist. __ _ _
 237
 238         How do you think _ he does _ it?
 239         What makes him _ so good? __ _
 240
 241         E -- ven on my fav -- ’rite ta -- _ ble
 242         he can beat my best.
 243         His dis -- ci -- ples lead him _ in,
 244         and he just does the rest. _
 245         He’s got cra -- zy flip -- per fin -- _ gers,
 246         ne -- ver seen him fall,
 247         that deaf, dumb and blind _ kid
 248         sure plays a mean pin -- ball.
 249 }
 250
 251 LeadVoxTextB = \lyricmode
 252 {
 253         _ _ _ _ _ _ _ _ _ _
 254         _ _ _ _ _ _ _
 255         _ _ _ _ _ _ _ _
 256         _ _ _ _ _ _ _
 257         _ _ _ _ _ _ _ _ _
 258         _ _ _ _ _ _ _
 259         _ _ _ _ _ _ _
 260         _ _ _ _ _ _
 261
 262         _ Ain’t got no dis -- trac -- _ tions,
 263         can’t _ hear no buzzers and bells. _
 264         Don’t see no lights a -- flash -- _ in’,
 265         plays by sense of smell. _
 266         Al -- ways gets a re -- _ play,
 267         I’ve ne -- ver seen him fall,
 268         _ _ _ _ _ _ _
 269         _ _ _ _ _ _
 270
 271         _ I thought I was _ _
 272         the Bal -- ly ta -- ble King
 273         But I just hand -- ed my
 274         pin -- ball crown to him. _ _
 275 }
 276
 277 LeadVoxTextIDK = \lyricmode
 278 {
 279         I don’t _ know
 280 }
 281
 282 Riffs = \relative c''
 283 {
 284         \clef G
 285 %Hm. Needed anymore?
 286         \override Score.SpacingSpanner #'average-spacing-wishes = ##f
 287
 288         % Intro
 289
 290         \tiny
 291         << { \voiceOne <b d fs>1^\markup { \fret-diagram-terse #"x;x;4;4;3;2;" } } \new Voice = "v" { \voiceTwo \tiny fs8 fs fs fs fs fs fs fs } >> \oneVoice |   % 1
 292         << { \voiceOne <b d e>1^\markup { \fret-diagram-terse #"x;x;4;4;3;o;" } } \context Voice = "v" { \voiceTwo fs8 fs fs fs fs fs fs fs } >> \oneVoice |   % 2
 293         << { \voiceOne <b cs e>1^\markup { \fret-diagram-terse #"x;x;4;4;2;o;" } } \context Voice = "v" { \voiceTwo fs8 fs fs fs fs fs fs fs } >> \oneVoice |   % 3
 294         << { \voiceOne <as cs e>1^\markup { \fret-diagram-terse #"x;x;4;3;2;o;" } } \context Voice = "v" { \voiceTwo fs8 fs fs fs fs fs fs fs } >> \oneVoice |   % 4
 295         << { \voiceOne <a cs e>1^\markup { \fret-diagram-terse #"x;x;4;2;2;o;" } } \context Voice = "v" { \voiceTwo fs8 fs fs fs fs fs fs fs } >> \oneVoice |   % 5
 296         << { \voiceOne <g b e>1^\markup { \fret-diagram-terse #"x;x;4;o;o;o;" } } \context Voice = "v" { \voiceTwo fs8 fs fs fs fs fs fs fs } >> \oneVoice |   % 6
 297         <g b>8^\markup { \fret-diagram-terse #"x;x;5;4;o;x;" } <g b> <g b> <g b> <g b> <g b> <g b> <g b> |   % 7
 298         <fs, fs' b cs>8 <fs fs' b cs> <fs fs' b cs> <fs fs' b cs> <fs fs' b cs> <fs fs' b cs> <fs fs' b cs> <fs fs' b cs> |   % 8
 299         r1 |   % 9
 300
 301         \normalsize
 302 }
 303
 304
 305 %
 306 % Chord names
 307 %
 308 Chords = \chordmode
 309 {
 310         % Intro
 311
 312         s1*7 |   % 1-7
 313         fs1:sus4 |   % 8
 314         fs1 |   % 9
 315
 316         b1:sus4 |   % 10
 317         b1 |   % 11
 318         b1:sus4 |   % 12
 319         b1 |   % 13
 320
 321         % Verse
 322
 323         b1:sus4 |   % 14
 324         b1 |   % 15
 325         a1:sus4 |   % 16
 326         a1 |   % 17
 327         g1:sus4 |   % 18
 328         g1 |   % 19
 329         fs1:sus4 |   % 20
 330         fs1 |   % 21
 331
 332         b4. a4 d e8 |   % 22
 333         s1 |   % 23
 334         b4. a4 d e8 |   % 24
 335         s1 |   % 25
 336
 337         % Verse
 338
 339         b1:sus4 |   % 26
 340         b1 |   % 27
 341         a1:sus4 |   % 28
 342         a1 |   % 29
 343         g1:sus4 |   % 30
 344         g1 |   % 31
 345         fs1:sus4 |   % 32
 346         fs1 |   % 33
 347
 348         b4. a4 d e8 |   % 34
 349         s1 |   % 35
 350         b4. a4 d e8 |   % 36
 351         s1 |   % 37
 352
 353         % Chorus
 354
 355         e4 fs b2 |   % 38
 356         e4 fs b2 |   % 39
 357         e4 fs b2 |   % 40
 358         g1 |   % 41
 359         d2 d:sus4 |   % 42
 360         d1 |   % 43
 361
 362         d4. c4 g4. |   % 44
 363         d4. c4 g4. |   % 45
 364         d4. c4 g4. |   % 46
 365         d4. c4 g4. |   % 47
 366
 367         d1:sus4 |   % 48
 368
 369         % Midtro
 370
 371         d1 |   % 49
 372         d1:sus4 |   % 50
 373         d1 |   % 51
 374         d1:sus4 |   % 52
 375         d1 |   % 53
 376
 377         % Verse
 378
 379         d1:sus4 |   % 54
 380         d1 |   % 55
 381         c1:sus4 |   % 56
 382         c1 |   % 57
 383         bf:sus4 |   % 58
 384         bf |   % 59
 385         a1:sus4 |   % 60
 386         a1 |   % 61
 387
 388         % Outro
 389
 390         d4. c4 f s8 |   % 62
 391         bf1:7 |   % 63
 392         s1 |   % 64
 393         s1 |   % 65
 394         s1 |   % 66
 395         s1 |   % 67
 396 }
 397
 398
 399 %
 400 % Chord rhythms
 401 %
 402 % Use a RhythmicStaff on the chords instead of this?
 403 % It almost works, but not quite. Doesn't collapse chords above to single notes...
 404 %
 405 Rhythm = \relative c
 406 {
 407 %%      \set Voice.autoBeaming = ##f
 408 %%      \set Staff.instrument = #"Rhythm"
 409         \override Staff.TimeSignature #'style = #'()
 410         \override NoteHead #'style = #'slash
 411
 412         % Intro
 413
 414         s1*8 |   % 1-8
 415         c16-> c c c-> c c c-> c c c-> c c c8 c |   % 9
 416
 417         \repeat percent 11 { c16-> c c c-> c c c-> c c c-> c c c8 c } |   % 10-20
 418         c8-> r2.. |   % 21
 419
 420         c8 c r c r c r c |   % 22
 421         c4 ~ c16 c c c c2|   % 23
 422         c8 c r c r c r c |   % 24
 423         c2 c8 c c c |   % 25
 424
 425         % Verse
 426
 427         \repeat percent 7 { c16-> c c c-> c c c-> c c c-> c c c8 c } |   % 26-32
 428         c8-> r2.. |   % 33
 429
 430         c8 c r c r c r c |   % 34
 431         c4 ~ c16 c c c c2|   % 35
 432         c8 c r c r c r c |   % 36
 433         c2 c8 c c c |   % 37
 434
 435         % Chorus
 436
 437         c4 c c2 |   % 38
 438         c4 c c2 |   % 39
 439         c4 c c2 |   % 40
 440         c4 c c c |   % 41
 441         c4 c c c |   % 42
 442         c4 c c c |   % 43
 443
 444         c4. c8 ~ c8 c4. |   % 44
 445         c4. c8 ~ c8 c4. |   % 45
 446         c4. c8 ~ c8 c4. |   % 46
 447         c4. c8 ~ c8 c4. |   % 47
 448
 449         \repeat percent 13 { c16-> c c c-> c c c-> c c c-> c c c8 c } |   % 48-60
 450
 451         % Midtro
 452         % Verse
 453
 454         c8-> r2.. |   % 61
 455
 456         % Outro
 457
 458         c8 c r c r c r4 |   % 62
 459         c4 c c c |   % 63
 460         c4 c c c |   % 64
 461         c4 c c c |   % 65
 462         c4 c c c |   % 66
 463         c1-\fermata |   % 67
 464 }
 465
 466
 467 Dynamics =
 468 {
 469         s1*11
 470         s4_\markup { \bold \column { "Bass, El." "guitar IN" } } s2.
 471         s1*8
 472         s4_\markup { \bold { DRUMS IN } } s2.
 473         s1*26
 474         s4_\markup { \bold { BAND OUT, Ac. guit. solo } } s2.
 475         s1*3
 476         s4_\markup { \bold { Bass, El. guitar IN } } s2.
 477         s1*8
 478         s4_\markup { \bold { DRUMS IN } } s2.
 479         s1
 480         s4_\markup { \bold { TAKE ENERGY DOWN... } } s2.
 481 }
 482
 483
 484 \score
 485 {
 486         <<
 487                 \set Score.skipBars = ##t
 488                 \set Score.melismaBusyProperties = #'()
 489
 490 %               \new Staff
 491                 <<
 492 %nowok                  \Staff \RemoveEmptyStaves
 493                         \new ChordNames \Chords
 494 %Capo 4 edition
 495 %                       \new ChordNames \transpose b g \Chords
 496                         \new RhythmicStaff << \Rhythm \Dynamics >>
 497                 >>
 498
 499                 \new Staff
 500                 <<
 501                         \Global                                         % The "roadmap" that everything else depends on
 502                         \new Voice = "lead" \LeadVox
 503                         \new Voice \Riffs
 504                         \new Lyrics \lyricsto "lead" \LeadVoxText
 505                         \new Lyrics \lyricsto "lead" \LeadVoxTextB
 506                         \new Lyrics \lyricsto "idk" \LeadVoxTextIDK
 507                 >>
 508         >>
 509 }
 510
 511
 512 \paper
 513 {
 514   #(define fonts (make-pango-font-tree
 515     "Times New Roman"
 516     "DomCasual BT"
 517     "Luxi Mono"
 518     (/ staffSize 20)))
 519
 520 % Spread staves vertically across last page (default: t)
 521 %       ragged-last-bottom = ##f
 522 % Don't spread staves vertically across the page (default: f)
 523 %       ragged-bottom = ##t
 524 % Allow partial line for last stave (default: f)
 525         ragged-last = ##t
 526
 527 % To find out what's eating the space at the top...
 528 %       annotate-spacing = ##t
 529 %let's try this: [It works! Huzzah!]
 530         obsolete-page-top-space = 0  top-system-spacing #'basic-distance = #(/ obsolete-page-top-space staff-space)
 531 }