2 \include "../pop-chords.ly"
5 % Good sizes are 16, 18, & 20
7 #(set-default-paper-size "letter")
8 #(set-global-staff-size staffSize)
9 #(ly:set-option (quote no-point-and-click))
11 %{ Some useful characters: ‘ ’ “ ” – — † ‡ • … %}
15 %Let's bump up the title size and switch to the chord font. :-)
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;" } }
27 % Useful tweak abbreviations (hn = harmony note)
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
32 (set! (ly:music-property arg 'tweaks)
33 (acons 'font-size -3.0 (ly:music-property arg 'tweaks))) arg)
42 \override Staff.TimeSignature #'style = #'()
47 \once \override TextScript #'padding = #2.0
48 s1*0^\markup { \large \bold { Ac. Guitar solo } }
50 % s1*0^\markup { \hspace #0.0 \raise #2.0 \bigger \bold { "Moderate pop (*** CAPO 4 ***)" } }
56 \mark \markup { \override #'(font-family . sans) { \box { A } } }
62 \mark \markup { \override #'(font-family . sans) { \box { B } } }
70 \mark \markup { \override #'(font-family . sans) { \box { C } } }
71 s1*12 \bar "||:" % 14-25
77 \mark \markup { \override #'(font-family . sans) { \box { D } } }
78 s1*12 \bar "||" % 26-37
101 \mark \markup { \override #'(font-family . sans) { \box { E } } }
109 \mark \markup { \override #'(font-family . sans) { \box { F } } }
110 s1*8 \bar "||" % 54-61
114 s1*6 \bar "|." % 62-67
121 LeadVox = \relative c''
123 % \set Staff.instrument = #"Lead vox"
125 \override Staff.TimeSignature #'style = #'()
127 % \override Score.SpacingSpanner #'average-spacing-wishes = ##f
135 r2 r4 r8 b16 b | % 13
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
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
171 b4 cs ds8 ds gs, b ~ | % 38
172 b8 b cs b ds4 r8 gs, | % 39
173 b4 cs ds8 ds b4 | % 40
175 fs8 ( e d4 ) r2 | % 42
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
191 r2 r4 r8 d16 d | % 53
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
214 LeadVoxText = \lyricmode
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.
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.
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. __ _ _
239 How do you think _ he does _ it?
240 What makes him _ so good? __ _
242 E -- ven on my fav -- ’rite ta -- _ ble
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.
252 LeadVoxTextB = \lyricmode
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,
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. _ _
278 LeadVoxTextIDK = \lyricmode
283 Riffs = \relative c''
287 \override Score.SpacingSpanner #'average-spacing-wishes = ##f
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
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...
408 %% \set Voice.autoBeaming = ##f
409 %% \set Staff.instrument = #"Rhythm"
410 \override Staff.TimeSignature #'style = #'()
411 \override NoteHead #'style = #'slash
416 c16-> c c c-> c c c-> c c c-> c c c8 c | % 9
418 \repeat percent 11 { c16-> c c c-> c c c-> c c c-> c c c8 c } | % 10-20
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
428 \repeat percent 7 { c16-> c c c-> c c c-> c c c-> c c c8 c } | % 26-32
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
445 c4. c8 ~ c8 c4. | % 44
446 c4. c8 ~ c8 c4. | % 45
447 c4. c8 ~ c8 c4. | % 46
448 c4. c8 ~ c8 c4. | % 47
450 \repeat percent 13 { c16-> c c c-> c c c-> c c c-> c c c8 c } | % 48-60
459 c8 c r c r c r4 | % 62
471 s4_\markup { \bold \column { "Bass, El." "guitar IN" } } s2.
473 s4_\markup { \bold { DRUMS IN } } s2.
475 s4_\markup { \bold { BAND OUT, Ac. guit. solo } } s2.
477 s4_\markup { \bold { Bass, El. guitar IN } } s2.
479 s4_\markup { \bold { DRUMS IN } } s2.
481 s4_\markup { \bold { TAKE ENERGY DOWN... } } s2.
488 \set Score.skipBars = ##t
489 \set Score.melismaBusyProperties = #'()
493 %nowok \Staff \RemoveEmptyStaves
494 \new ChordNames \Chords
496 % \new ChordNames \transpose b g \Chords
497 \new RhythmicStaff << \Rhythm \Dynamics >>
502 \Global % The "roadmap" that everything else depends on
503 \new Voice = "lead" \LeadVox
505 \new Lyrics \lyricsto "lead" \LeadVoxText
506 \new Lyrics \lyricsto "lead" \LeadVoxTextB
507 \new Lyrics \lyricsto "idk" \LeadVoxTextIDK
515 #(define fonts (make-pango-font-tree
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)
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)