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 "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;" } }
26 % Useful tweak abbreviations (hn = harmony note)
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
31 (set! (ly:music-property arg 'tweaks)
32 (acons 'font-size -3.0 (ly:music-property arg 'tweaks))) arg)
41 \override Staff.TimeSignature #'style = #'()
46 \once \override TextScript #'padding = #2.0
47 s1*0^\markup { \large \bold { Ac. Guitar solo } }
49 % s1*0^\markup { \hspace #0.0 \raise #2.0 \bigger \bold { "Moderate pop (*** CAPO 4 ***)" } }
55 \mark \markup { \override #'(font-family . sans) { \box { A } } }
61 \mark \markup { \override #'(font-family . sans) { \box { B } } }
69 \mark \markup { \override #'(font-family . sans) { \box { C } } }
70 s1*12 \bar "||:" % 14-25
76 \mark \markup { \override #'(font-family . sans) { \box { D } } }
77 s1*12 \bar "||" % 26-37
100 \mark \markup { \override #'(font-family . sans) { \box { E } } }
108 \mark \markup { \override #'(font-family . sans) { \box { F } } }
109 s1*8 \bar "||" % 54-61
113 s1*6 \bar "|." % 62-67
120 LeadVox = \relative c''
122 % \set Staff.instrument = #"Lead vox"
124 \override Staff.TimeSignature #'style = #'()
126 % \override Score.SpacingSpanner #'average-spacing-wishes = ##f
134 r2 r4 r8 b16 b | % 13
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
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
170 b4 cs ds8 ds gs, b ~ | % 38
171 b8 b cs b ds4 r8 gs, | % 39
172 b4 cs ds8 ds b4 | % 40
174 fs8 ( e d4 ) r2 | % 42
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
190 r2 r4 r8 d16 d | % 53
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
213 LeadVoxText = \lyricmode
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.
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.
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. __ _ _
238 How do you think _ he does _ it?
239 What makes him _ so good? __ _
241 E -- ven on my fav -- ’rite ta -- _ ble
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.
251 LeadVoxTextB = \lyricmode
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,
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. _ _
277 LeadVoxTextIDK = \lyricmode
282 Riffs = \relative c''
286 \override Score.SpacingSpanner #'average-spacing-wishes = ##f
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
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...
407 %% \set Voice.autoBeaming = ##f
408 %% \set Staff.instrument = #"Rhythm"
409 \override Staff.TimeSignature #'style = #'()
410 \override NoteHead #'style = #'slash
415 c16-> c c c-> c c c-> c c c-> c c c8 c | % 9
417 \repeat percent 11 { c16-> c c c-> c c c-> c c c-> c c c8 c } | % 10-20
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
427 \repeat percent 7 { c16-> c c c-> c c c-> c c c-> c c c8 c } | % 26-32
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
444 c4. c8 ~ c8 c4. | % 44
445 c4. c8 ~ c8 c4. | % 45
446 c4. c8 ~ c8 c4. | % 46
447 c4. c8 ~ c8 c4. | % 47
449 \repeat percent 13 { c16-> c c c-> c c c-> c c c-> c c c8 c } | % 48-60
458 c8 c r c r c r4 | % 62
470 s4_\markup { \bold \column { "Bass, El." "guitar IN" } } s2.
472 s4_\markup { \bold { DRUMS IN } } s2.
474 s4_\markup { \bold { BAND OUT, Ac. guit. solo } } s2.
476 s4_\markup { \bold { Bass, El. guitar IN } } s2.
478 s4_\markup { \bold { DRUMS IN } } s2.
480 s4_\markup { \bold { TAKE ENERGY DOWN... } } s2.
487 \set Score.skipBars = ##t
488 \set Score.melismaBusyProperties = #'()
492 %nowok \Staff \RemoveEmptyStaves
493 \new ChordNames \Chords
495 % \new ChordNames \transpose b g \Chords
496 \new RhythmicStaff << \Rhythm \Dynamics >>
501 \Global % The "roadmap" that everything else depends on
502 \new Voice = "lead" \LeadVox
504 \new Lyrics \lyricsto "lead" \LeadVoxText
505 \new Lyrics \lyricsto "lead" \LeadVoxTextB
506 \new Lyrics \lyricsto "idk" \LeadVoxTextIDK
514 #(define fonts (make-pango-font-tree
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)
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)