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