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 "I Want To Tell You" }
18 composer = \markup { \override #'(font-family . sans) \fontsize #1.3 "G. Harrison" }
19 % arranger = \markup { \override #'(font-family . sans) \fontsize #1.3 "arr. S. Hammons" }
20 tagline = $(string-append "Engraved by JLH and Lilypond " (lilypond-version))
21 subtitle = \markup { \override #'(font-family . sans) \fontsize #1.3 "piano/vocal" }
22 % Let's try a chord dictionary
23 % subtitle = \markup { \center-align { "F13" \fret-diagram-terse #"x;8;7;8;8;10;" } " " \center-align { "F7#9" \fret-diagram-terse #"x;8;7;8;9;x;" } } % " " \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 = #'()
47 % s1*0^\markup { \hspace #0.0 \raise #2.0 \bigger \bold { "Moderate pop (*** CAPO 4 ***)" } }
49 % \once \override TextScript #'padding = #2.0
50 % s1*0^\markup { \large \bold { Moderate shuffle } }
58 \mark \markup { \override #'(font-family . sans) { \box { A } } }
64 \mark \markup { \override #'(font-family . sans) { \box { B } } }
65 s1*8 \bar "||" % 16-23
66 \mark \markup { \override #'(font-family . sans) { \box { C } } }
70 s1*2 \bar "||" % 35-36
71 s1*7 \bar "|." % 37-43
72 % \mark \markup { \override #'(font-family . sans) { \box { A } } }
79 LeadVox = \relative c'
81 % \set Staff.instrument = #"Lead vox"
83 \override Staff.TimeSignature #'style = #'()
85 % \override Score.SpacingSpanner #'average-spacing-wishes = ##f
92 r4 r8 e a b r8 cs ~ | % 5
94 r4 r8 <a cs e> <a cs e> <b d fs>4 <cs e a>8 ~ | % 7
95 <cs e a>8 <a cs e>4 <b ds fs>8 ~ <b ds fs> <cs e gs>4 <ds fs a>8 ~ | % 8
100 b8 b4 a8 ~ a8 gs4. | % 13
101 <a cs e>8 <b d fs> ( <a cs e> ) <cs e a> ~ <cs e a>2 ~ | % 14
104 r4 r8 b8 b b4 b8 ( | % 16
105 cs4 ) b8 b ~ b b4 b8 ~ | % 17
106 b8 ( a ) r a8 ~ \times 2/3 { a4 a a } | % 18
107 \acciaccatura { a8 } b8 ( a4 ) a8 a gs4 a8 ( | % 19
109 r4 b8 a ~ a gs4 b8 ~ | % 21
110 b8 a4 a8 ~ a2 ~ | % 22
113 r4 r8 e a b r8 cs ~ | % 24
115 r4 r8 <a cs e> <a cs e> <b d fs>4 <cs e a>8 ~ | % 26
116 <cs e a>8 <a cs e>4 <b ds fs>8 ~ <b ds fs> <cs e gs>4 <ds fs a>8 ~ | % 27
118 r2 d8 cs4 b8 ~ | % 29
120 r2 d8 cs4 b8 ~ | % 31
121 b8 b4 a8 ~ a8 gs4. | % 32
122 <a cs e>8 <b d fs> ( <a cs e> ) <cs e a> ~ <cs e a>2 ~ | % 33
128 <a cs e>8 <b d fs>4 <cs e a>8 ~ <cs e a>2 ~ | % 37
130 <a cs e>8 <b d fs>4 <cs e a>8 ~ <cs e a>2 ~ | % 39
137 LeadVoxText = \lyricmode
140 My head is filled _ with things _ to say _
142 All those words _ they seem _ to slip a -- _ way _ _
144 But if I seem _ to act _ un -- kind _ _
145 It’s _ on -- ly me, _ it’s not my mind _
146 That is _ con -- fus -- _ ing things _ _
149 I feel hung up _ and_I don’t know _ why _
151 I could wait _ for -- e -- _ ver, I’ve got _ time _ _
157 LeadVoxTextB = \lyricmode
159 When I get near _ you
160 The games be -- gin _ to drag _ me down _
162 I’ll make you _ may -- be _ next time a -- _ round _ _
164 Some -- times I wish _ I knew _ you well _ _
165 Then _ I could speak my mind and tell you _
166 May -- be _ you’d un -- _ der -- stand _ _
170 PianoRightHand = \relative c'
173 \override Staff.TimeSignature #'style = #'()
175 % \override Score.SpacingSpanner #'average-spacing-wishes = ##f
180 \acciaccatura { c8 } cs1 | % 1
181 \acciaccatura { gs'8 } <d a'>1 | % 2
182 \acciaccatura { c8 } cs1 | % 1\3
183 \acciaccatura { gs'8 } <d a'>1 | % 4
189 \acciaccatura { c8 } <cs e a>4 \acciaccatura { c8 } <cs e a>4
190 \acciaccatura { c8 } <cs e a>4 \acciaccatura { c8 } <cs e a>4 | % 5-7
192 \acciaccatura { c8 } <cs e a>4 \acciaccatura { c8 } <cs e a>4
193 \acciaccatura { d8 } <ds fs b>4 \acciaccatura { d8 } <ds fs b>4 | % 8
194 \acciaccatura { d8 } <ds fs b>4 \acciaccatura { d8 } <ds fs b>4
195 \acciaccatura { d8 } <ds fs b>4 \acciaccatura { d8 } <ds fs b>4 | % 9
198 <f b>8. e16 <f b>8. e16 <f b>8. e16 <f b>8. e16 | % 10-13
205 <d fs>4 <d fs> <d fs> <d fs> | % 16
206 <d f>4 <d f> <d f> <d f> | % 17
207 <cs e>4 <cs e> <cs e> <cs e> | % 18
208 <ds fs>4 <ds fs> <ds fs> <ds fs> | % 19
209 <d fs>4 <d fs> <d fs b> <d fs b> | % 20
210 <d f>4 <d f> <d f> <d f> | % 21
211 <a cs>4 <a cs>8. d16 d2 | % 22
212 \times 2/3 { r8 a' a } \times 2/3 { a a a }
213 \times 2/3 { a a a } \times 2/3 { a a a } | % 23
219 \acciaccatura { c,8 } <cs e a>4 \acciaccatura { c8 } <cs e a>4
220 \acciaccatura { c8 } <cs e a>4 \acciaccatura { c8 } <cs e a>4 | % 24-26
222 \acciaccatura { c8 } <cs e a>4 \acciaccatura { c8 } <cs e a>4
223 \acciaccatura { d8 } <ds fs b>4 \acciaccatura { d8 } <ds fs b>4 | % 27
224 \acciaccatura { d8 } <ds fs b>4 \acciaccatura { d8 } <ds fs b>4
225 \acciaccatura { d8 } <ds fs b>4 \acciaccatura { d8 } <ds fs b>4 | % 28
228 <f b>8. e16 <f b>8. e16 <f b>8. e16 <f b>8. e16 | % 29-32
234 a2 \times 2/3 { r8 a a } \times 2/3 { a a a } | % 36
237 a2 \times 2/3 { r8 a' a } \times 2/3 { a a a } | % 38
239 \times 2/3 { r8 a8 a } a4 r2 | % 40
246 PianoLeftHand = \relative c
249 \override Staff.TimeSignature #'style = #'()
251 % \override Score.SpacingSpanner #'average-spacing-wishes = ##f
264 a4 a a a8. e'16 | % 6
272 <a, e'>8 <a e'>4. ~ <a e'>2 ~ | % 14
279 <b b'>4 <b b'> <b b'> <b b'> | % 16-17
281 <a a'>4 <a a'> <a a'> <a a'> | % 18
282 <b a'>4 <b a'> <b a'> <b a'> | % 19
285 <b b'>4 <b b'> <b b'> <b b'> | % 20-21
293 a4 a a a8. e'16 | % 25
301 <a, e'>8 <a e'>4. ~ <a e'>2 ~ | % 33
321 % \override Score.SpacingSpanner #'average-spacing-wishes = ##f
380 % Use a RhythmicStaff on the chords instead of this?
381 % It almost works, but not quite. Doesn't collapse chords above to single notes...
385 %% \set Voice.autoBeaming = ##f
386 %% \set Staff.instrument = #"Rhythm"
387 \override Staff.TimeSignature #'style = #'()
388 \override NoteHead #'style = #'slash
414 c4 c \times 2/3 { r8 c c } \times 2/3 { c c c } | % 23
415 c8-. r r4 \times 2/3 { r8 c c } \times 2/3 { c c c } | % 24
426 % s4_\markup { \italic { Let notes ring } } s2. | % 1
428 s4_\markup { \italic { snare pat. } } s2 | % 1
429 s4_\markup { \italic { simile } } s2 | % 2
431 s4_\markup { \italic { spacey } } s2 | % 22
435 s4_\markup { \italic { Last time } } s2 | % 51
443 \set Score.skipBars = ##t
444 \set Score.melismaBusyProperties = #'()
448 \new ChordNames \Chords
450 % \new ChordNames \transpose b g \Chords
451 % \new RhythmicStaff << \Rhythm \Dynamics >>
456 % \new ChordNames \Chords
457 \Global % The "roadmap" that everything else depends on
458 \new Voice = "lead" \LeadVox
460 \new Lyrics \lyricsto "lead" \LeadVoxText
461 \new Lyrics \lyricsto "lead" \LeadVoxTextB
465 % \set PianoStaff.instrumentName = #"Piano "
466 \new Staff = "right" \PianoRightHand
467 \new Staff = "left" \PianoLeftHand
475 #(define fonts (make-pango-font-tree
481 % Spread staves vertically across last page (default: t)
482 ragged-last-bottom = ##f
483 % Don't spread staves vertically across the page (default: f)
484 % ragged-bottom = ##t
485 % Allow partial line for last stave (default: f)
488 % To find out what's eating the space at the top...
489 % annotate-spacing = ##t
490 %let's try this: [It works! Huzzah!][not any more...]
491 % obsolete-page-top-space = 0 top-system-spacing #'basic-distance = #(/ obsolete-page-top-space staff-space)