Shamusworld >> Repos - music/blob - covers/i-want-to-tell-you.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 "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;" }  }
  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 a \major
  41         \override Staff.TimeSignature #'style = #'()
  42         \time 4/4
  43
  44         % Intro
  45
  46 % Capo 4 version
  47 %       s1*0^\markup { \hspace #0.0 \raise #2.0 \bigger \bold { "Moderate pop (*** CAPO 4 ***)" } }
  48
  49 %       \once \override TextScript #'padding = #2.0
  50 %       s1*0^\markup { \large \bold { Moderate shuffle } }
  51         \repeat volta 2
  52         {
  53                 s1*4 |   % 1-4
  54         }
  55
  56         \repeat volta 2
  57         {
  58                 \mark \markup { \override #'(font-family . sans) { \box { A } } }
  59                 s1*11 |   % 5-15
  60         }
  61
  62         \repeat volta 2
  63         {
  64                 \mark \markup { \override #'(font-family . sans) { \box { B } } }
  65                 s1*8 \bar "||"   % 16-23
  66                 \mark \markup { \override #'(font-family . sans) { \box { C } } }
  67                 s1*11 |   % 24-34
  68         }
  69
  70         s1*2 \bar "||"   % 35-36
  71         s1*7 \bar "|."   % 37-43
  72 %       \mark \markup { \override #'(font-family . sans) { \box { A } } }
  73 }
  74
  75
  76 %
  77 % Lead vocal
  78 %
  79 LeadVox = \relative c'
  80 {
  81 %       \set Staff.instrument = #"Lead vox"
  82         \clef G
  83         \override Staff.TimeSignature #'style = #'()
  84 %Hm. Needed anymore?
  85 %       \override Score.SpacingSpanner #'average-spacing-wishes = ##f
  86
  87         r1 |   % 1
  88         r1 |   % 2
  89         r1 |   % 3
  90         r1 |   % 4
  91
  92         r4 r8 e a b r8 cs ~ |   % 5
  93         cs2 ( a4 ) r |   % 6
  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
  96         <ds fs a>1 |   % 9
  97         r2 d8 cs4 b8 ~ |   % 10
  98         b4 r r2 |   % 11
  99         r2 d8 cs4 b8 ~ |   % 12
 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
 102         <cs e a>2. r4 |   % 15
 103
 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
 108         fs2 ) r |   % 20
 109         r4 b8 a ~ a gs4 b8 ~ |   % 21
 110         b8 a4 a8 ~ a2 ~ |   % 22
 111         a4 r r2 |   % 23
 112
 113         r4 r8 e a b r8 cs ~ |   % 24
 114         cs2 ( a4 ) r |   % 25
 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
 117         <ds fs a>1 |   % 28
 118         r2 d8 cs4 b8 ~ |   % 29
 119         b4 r r2 |   % 30
 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
 123         <cs e a>2. r4 |   % 34
 124
 125         r1 |   % 35
 126         r1 |   % 36
 127
 128         <a cs e>8 <b d fs>4 <cs e a>8 ~ <cs e a>2 ~ |   % 37
 129         <cs e a>2. r4 |   % 38
 130         <a cs e>8 <b d fs>4 <cs e a>8 ~ <cs e a>2 ~ |   % 39
 131         <a cs e>1 ~ |   % 40
 132         <a cs e>1 ~ |   % 41
 133         <a cs e>1 ~ |   % 42
 134         <a cs e>1 |   % 43
 135 }
 136
 137 LeadVoxText = \lyricmode
 138 {
 139         I want to tell _ you
 140         My head is filled _ with things _ to say _
 141         When you’re here _
 142         All those words _ they seem _ to slip a -- _ way _ _
 143
 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 _ _
 147
 148         I want to tell _ you
 149         I feel hung up _ and_I don’t know _ why _
 150         I don’t mind, _
 151         I could wait _ for -- e -- _ ver, I’ve got _ time _ _
 152
 153         I’ve got time _ _
 154         I’ve got time
 155 }
 156
 157 LeadVoxTextB = \lyricmode
 158 {
 159         When I get near _ you
 160         The games be -- gin _ to drag _ me down _
 161         It’s all right _
 162         I’ll make you _ may -- be _ next time a -- _ round _ _
 163
 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 _ _
 167 }
 168
 169
 170 PianoRightHand = \relative c'
 171 {
 172         \clef G
 173         \override Staff.TimeSignature #'style = #'()
 174 %Hm. Needed anymore?
 175 %       \override Score.SpacingSpanner #'average-spacing-wishes = ##f
 176         \key a \major
 177
 178         % Intro
 179
 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
 184
 185         % Verse
 186
 187         \repeat percent 3
 188         {
 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
 191         }
 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
 196         \repeat percent 4
 197         {
 198         <f b>8. e16 <f b>8. e16 <f b>8. e16 <f b>8. e16 |   % 10-13
 199         }
 200         r1 |   % 14
 201         r1 |   % 15
 202
 203         % Bridge
 204
 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
 214
 215         % Verse
 216
 217         \repeat percent 3
 218         {
 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
 221         }
 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
 226         \repeat percent 4
 227         {
 228         <f b>8. e16 <f b>8. e16 <f b>8. e16 <f b>8. e16 |   % 29-32
 229         }
 230         r1 |   % 33
 231         r1 |   % 34
 232
 233         a,1 ~ |   % 35
 234         a2 \times 2/3 { r8 a a } \times 2/3 { a a a } |    % 36
 235
 236         a8 a4 a8 ~ a2 |   % 37
 237         a2 \times 2/3 { r8 a' a } \times 2/3 { a a a } |   % 38
 238         a8 a4 a8 a2 |   % 39
 239         \times 2/3 { r8 a8 a } a4 r2 |   % 40
 240         r1 |   % 41
 241         r1 |   % 42
 242         r1 |   % 43
 243 }
 244
 245
 246 PianoLeftHand = \relative c
 247 {
 248         \clef F
 249         \override Staff.TimeSignature #'style = #'()
 250 %Hm. Needed anymore?
 251 %       \override Score.SpacingSpanner #'average-spacing-wishes = ##f
 252         \key a \major
 253
 254         % Intro
 255
 256         <a e'>1 |   % 1
 257         <a e'>1 |   % 2
 258         <a e'>1 |   % 3
 259         <a e'>1 |   % 4
 260
 261         % Verse
 262
 263         a4 a a a |   % 5
 264         a4 a a a8. e'16 |   % 6
 265         a,4 a a a |   % 7
 266         a4 a b b |   % 8
 267         b4 b b b |   % 9
 268         \repeat percent 4
 269         {
 270         e4 e e e |   % 10-13
 271         }
 272         <a, e'>8 <a e'>4. ~ <a e'>2 ~ |   % 14
 273         <a e'>2. r4 |   % 15
 274
 275         % Bridge
 276
 277         \repeat percent 2
 278         {
 279         <b b'>4 <b b'> <b b'> <b b'> |   % 16-17
 280         }
 281         <a a'>4 <a a'> <a a'> <a a'> |   % 18
 282         <b a'>4 <b a'> <b a'> <b a'> |   % 19
 283         \repeat percent 2
 284         {
 285         <b b'>4 <b b'> <b b'> <b b'> |   % 20-21
 286         }
 287         <a e'>1 ~ |   % 22
 288         <a e'>1 |   % 23
 289
 290         % Verse
 291
 292         a4 a a a |   % 24
 293         a4 a a a8. e'16 |   % 25
 294         a,4 a a a |   % 26
 295         a4 a b b |   % 27
 296         b4 b b b |   % 28
 297         \repeat percent 4
 298         {
 299         e4 e e e |   % 29-32
 300         }
 301         <a, e'>8 <a e'>4. ~ <a e'>2 ~ |   % 33
 302         <a e'>2. r4 |   % 34
 303
 304         <a e'>1 ~ |   % 35
 305         <a e'>1 |   % 36
 306
 307         <a e'>1 ~ |   % 37
 308         <a e'>1 |   % 38
 309         <a e'>1 ~ |   % 39
 310         <a e'>1 |   % 40
 311         <a e'>1 ~ |   % 41
 312         <a e'>1 |   % 42
 313         <a e'>1 |   % 43
 314 }
 315
 316
 317 Riffs = \relative c'
 318 {
 319         \clef G
 320 %Hm. Needed anymore?
 321 %       \override Score.SpacingSpanner #'average-spacing-wishes = ##f
 322
 323         % Intro
 324
 325 %       \tiny
 326 %       f8 a ef' g d' r s4
 327 %       \normalsize
 328 }
 329
 330
 331 %
 332 % Chord names
 333 %
 334 Chords = \chordmode
 335 {
 336         a1:7 |   % 1
 337         a1:sus4 |   % 2
 338         a1:7 |   % 3
 339         a1:7sus4 |   % 4
 340
 341         a1 |   % 5
 342         s1 |   % 6
 343         s1 |   % 7
 344         a2 b:7 |   % 8
 345         s1 |   % 9
 346         e1:7 |   % 10
 347         s1 |   % 11
 348         s1 |   % 12
 349         s1 |   % 13
 350         a1:7 |   % 14
 351         s1 |   % 15
 352
 353         b1:m |   % 16
 354         b1:dim |   % 17
 355         a1 |   % 18
 356         b1:7 |   % 19
 357         b1:m |   % 20
 358         b1:dim |   % 21
 359         a1 |   % 22
 360         s1 |   % 23
 361
 362         a1 |   % 24
 363         s1 |   % 25
 364         s1 |   % 26
 365         a2 b:7 |   % 27
 366         s1 |   % 28
 367         e1:7 |   % 29
 368         s1 |   % 30
 369         s1 |   % 31
 370         s1 |   % 32
 371         a1:7 |   % 33
 372         s1 |   % 34
 373
 374 }
 375
 376
 377 %
 378 % Chord rhythms
 379 %
 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...
 382 %
 383 Rhythm = \relative c
 384 {
 385 %%      \set Voice.autoBeaming = ##f
 386 %%      \set Staff.instrument = #"Rhythm"
 387         \override Staff.TimeSignature #'style = #'()
 388         \override NoteHead #'style = #'slash
 389
 390         c1 |   % 1
 391         c1 |   % 2
 392         c1 |   % 3
 393         c1 |   % 4
 394
 395         c4 c c c |   % 5
 396         c4 c c c |   % 6
 397         c4 c c c |   % 7
 398         c4 c c c |   % 8
 399         c4 c c c |   % 9
 400         c4 c c c |   % 10
 401         c4 c c c |   % 11
 402         c4 c c c |   % 12
 403         c4 c c c |   % 13
 404         c4 c c c |   % 14
 405         c4 c c c |   % 15
 406
 407         c4 c c c |   % 16
 408         c4 c c c |   % 17
 409         c4 c c c |   % 18
 410         c4 c c c |   % 19
 411         c4 c c c |   % 20
 412         c4 c c c |   % 21
 413         c4 c c c |   % 22
 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
 416         c4 c c c |   % 25
 417
 418         c4 c c c |   % 26
 419
 420         c4 c c c |   % 27
 421 }
 422
 423
 424 Dynamics =
 425 {
 426 %       s4_\markup { \italic { Let notes ring } } s2. |   % 1
 427 %{
 428         s4_\markup { \italic { snare pat. } } s2 |   % 1
 429         s4_\markup { \italic { simile } } s2 |   % 2
 430         s2.*19
 431         s4_\markup { \italic { spacey } } s2 |   % 22
 432         s2.*5
 433         s4 s \< s \! |   % 28
 434         s2.*22
 435         s4_\markup { \italic { Last time } } s2 |   % 51
 436 %}
 437 }
 438
 439
 440 \score
 441 {
 442         <<
 443                 \set Score.skipBars = ##t
 444                 \set Score.melismaBusyProperties = #'()
 445
 446 %               \new Staff
 447                 <<
 448                         \new ChordNames \Chords
 449 %Capo 4 edition
 450 %                       \new ChordNames \transpose b g \Chords
 451 %                       \new RhythmicStaff << \Rhythm \Dynamics >>
 452                 >>
 453
 454                 \new Staff
 455                 <<
 456 %                       \new ChordNames \Chords
 457                         \Global                                         % The "roadmap" that everything else depends on
 458                         \new Voice = "lead" \LeadVox
 459                         \new Voice \Riffs
 460                         \new Lyrics \lyricsto "lead" \LeadVoxText
 461                         \new Lyrics \lyricsto "lead" \LeadVoxTextB
 462                 >>
 463                 \new PianoStaff
 464                 <<
 465 %                       \set PianoStaff.instrumentName = #"Piano  "
 466                         \new Staff = "right" \PianoRightHand
 467                         \new Staff = "left" \PianoLeftHand
 468                 >>
 469         >>
 470 }
 471
 472
 473 \paper
 474 {
 475   #(define fonts (make-pango-font-tree
 476     "Times New Roman"
 477     "DomCasual BT"
 478     "Luxi Mono"
 479     (/ staffSize 20)))
 480
 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)
 486 %       ragged-last = ##t
 487
 488 % To find out what's eating the space at the top...
 489 %       annotate-spacing = ##t
 490 %let's try this: [It works! Huzzah!]
 491         obsolete-page-top-space = 0  top-system-spacing #'basic-distance = #(/ obsolete-page-top-space staff-space)
 492 }