Shamusworld >> Repos - music/blob - covers/revolution.ly

   1 \version "2.16.0"
   2 \include "../pop-chords.ly"
   3 \include "../rhythm-mark.ly"
   4 \include "english.ly"
   5
   6 % Good sizes are 16, 18, & 20
   7 staffSize = #18
   8 #(set-default-paper-size "letter")
   9 #(set-global-staff-size staffSize)
  10 #(ly:set-option (quote no-point-and-click))
  11
  12 %{ Some useful characters: ‘ ’ “ ” – — † ‡ • … %}
  13
  14 \header
  15 {
  16 %Let's bump up the title size and switch to the chord font. :-)
  17
  18         title    = \markup { \override #'(font-family . sans) \fontsize #3.5 "Revolution" }
  19         composer = \markup { \override #'(font-family . sans) \fontsize #1.3 "John Lennon/Paul McCartney" }
  20 %       arranger = \markup { \override #'(font-family . sans) \fontsize #1.3 "arr. Ed Smart" }
  21         tagline  = $(string-append "Engraved by JLH and Lilypond " (lilypond-version))
  22 }
  23
  24
  25 %
  26 % Lead vocal
  27 %
  28
  29 LeadVox = \relative c'
  30 {
  31 %       \set Voice.autoBeaming = ##f
  32 %       \set Staff.instrumentName = #"Lead vox"
  33         \clef G
  34         \key bf \major
  35         \override Staff.TimeSignature #'style = #'()
  36         \time 4/4
  37 \override Score.SpacingSpanner #'average-spacing-wishes = ##f
  38
  39         \override TupletBracket #'transparent = ##t
  40         \set tupletSpannerDuration = #(ly:make-moment 1 4)
  41
  42         \rhythmMark #"" \rhyMarkIIEighths \rhyMarkTriplets
  43         R1 |   % 1
  44         R1 |   % 2
  45         R1 |   % 3
  46         r2 r4 r8 ef \bar "||:"   % 4
  47
  48         \repeat volta 2
  49         {
  50 \mark \markup { \override #'(font-family . sans) { \box { A } } }
  51
  52                 f8 f f f bf c ( bf ) f' ~ |   % 5
  53                 f8 d4 ( c8 ~ c bf ) d ( c ~ |   % 6
  54                 \time 2/4 c8 bf ) g c ( ~ \time 4/4 |   % 7
  55                 c8 bf g4 ) r2 |   % 8
  56                 r8 df' c c ~ c bf c bf |   % 9
  57                 f2 r |   % 10
  58                 r2 r4 r8 ef \bar "||"   % 11
  59
  60 \mark \markup { \override #'(font-family . sans) { \box { B } } }
  61
  62                 f8 f f f bf c ( bf ) f' ~ |   % 12
  63                 f8 d4 c8 ( ~ c bf ) d c ( ~ |   % 13
  64                 \time 2/4 c8 bf ) g c ( ~ \time 4/4 |   % 14
  65                 c8 bf g4 ) r2 |   % 15
  66                 r8 df' c c ~ c bf c bf |   % 16
  67                 c4 ( ~ c8 a16 g f2 ) |   % 17
  68                 R1 \bar "||"   % 18
  69
  70 \mark \markup { \override #'(font-family . sans) { \box { C } } }
  71
  72                 r8 g << { \tiny \times 2/3 { \stemUp c8 c bf c c bf c c bf \stemNeutral } \normalsize } \context Voice = vb { \voiceTwo c8 bf c bf c bf } >> |   % 19
  73                 d8 d4 c8 ( ~ c bf g4 ) |   % 20
  74                 << { \tiny \stemUp r8 f \times 2/3 { c'8 c bf c c bf c c bf \stemNeutral } \normalsize } \context Voice = vb { s4 c8 bf c bf c bf } >> |   % 21
  75         }
  76 }
  77
  78 LeadVoxText = \lyricmode
  79 {
  80         You say you want a re -- vo -- _ lu -- _ tion __ _ _ _ well __ _ _ _ you know __ _ _ _
  81         We all want _ to change the world
  82         You tell me that it’s e -- vo -- _ lu -- _ tion __ _ _ _ well __ _ _ _ you know __ _ _ _
  83         We all want _ to change the world __ _ _ _ _
  84
  85         But when _ you talk _ a -- bout _ de -- stuc -- tion __ _ _ _ _
  86         _ Don’t _ you know _ that you _ can count me out _
  87 }
  88
  89 LeadVoxTextB = \lyricmode
  90 {
  91         _ say you got a real so -- _ lu -- _ tion __ _ _ _ well __ _ _ _ you know __ _ _ _
  92         We’d all love _ to see the plan
  93         You ask me for a con -- tri -- _ bu -- _ tion __ _ _ _ well __ _ _ _ you know __ _ _ _
  94         We’re all do -- _ ing what we can __ _ _ _ _
  95
  96         But when you want mo -- ney for peo -- ple with minds that hate __ _ _ _
  97         All I can tell you is bro -- ther you have to wait
  98 }
  99
 100 LeadVoxTextC = \lyricmode
 101 {
 102         _ say you’ll change the con -- sti -- _ tu -- _ tion __ _ _ _ well __ _ _ _ you know __ _ _ _
 103         We all want _ to change your head
 104         You tell me it’s the in -- sti -- _ tu -- _ tion __ _ _ _ well __ _ _ _ you know __ _ _ _
 105         You better free _ your mind in -- stead __ _ _ _ _
 106
 107         But if you go car -- ry -- ing pic -- tures of Chair -- man Mao __ _ _ _
 108         You ain’t gon -- na make it with a -- ny -- one a -- ny -- how
 109 }
 110
 111
 112 %
 113 % Guitar I
 114 %
 115
 116 GuitarI = \relative c''
 117 {
 118         \clef G
 119         \key bf \major
 120         \override Staff.TimeSignature #'style = #'()
 121         \time 4/4
 122 \override Score.SpacingSpanner #'average-spacing-wishes = ##f
 123
 124         \override TupletBracket #'transparent = ##t
 125         \set tupletSpannerDuration = #(ly:make-moment 1 4)
 126
 127         \times 2/3 { <f bf>8 <f bf> <f bf> <f bf> <f bf> <f bf> <f bf> <f bf> <f bf> <f bf> <f bf> <f bf> } |   % 1
 128         \repeat percent 2
 129         {
 130         \times 2/3 { \acciaccatura { <e a> } <f bf>8 <f bf> <f bf> <f bf> <f bf> <f bf> <f bf> <f bf> <f bf> <f bf> <f bf> <f bf> } |   % 2-3
 131         }
 132         \acciaccatura { g } af4 ~ \times 2/3 { af8 f af \acciaccatura { bf } c8 ef4 ~ ef8 f, c }
 133
 134 }
 135
 136 GuitarITab = \relative c'
 137 {
 138         \override Staff.TimeSignature #'style = #'()
 139         \time 4/4
 140
 141         \override TupletBracket #'transparent = ##t
 142         \set tupletSpannerDuration = #(ly:make-moment 1 4)
 143
 144         \times 2/3 { <f\2 bf\1>8 <f\2 bf\1> <f\2 bf\1> <f\2 bf\1> <f\2 bf\1> <f\2 bf\1> <f\2 bf\1> <f\2 bf\1> <f\2 bf\1> <f\2 bf\1> <f\2 bf\1> <f\2 bf\1> } |   % 1
 145         \repeat percent 2
 146         {
 147         \times 2/3 { \acciaccatura { <e\2 a\1> } <f\2 bf\1>8 <f\2 bf\1> <f\2 bf\1> <f\2 bf\1> <f\2 bf\1> <f\2 bf\1> <f\2 bf\1> <f\2 bf\1> <f\2 bf\1> <f\2 bf\1> <f\2 bf\1> <f\2 bf\1> } |   % 2-3
 148         }
 149 }
 150
 151 %
 152 % Guitar II
 153 %
 154
 155 GuitarII = \relative c'
 156 {
 157         \clef G
 158         \key bf \major
 159         \override Staff.TimeSignature #'style = #'()
 160         \time 4/4
 161 \override Score.SpacingSpanner #'average-spacing-wishes = ##f
 162
 163
 164 }
 165
 166
 167 %
 168 % Bass
 169 %
 170
 171 Bass = \relative c
 172 {
 173 }
 174
 175
 176 %
 177 % Drums
 178 %
 179
 180 Drums = \drummode
 181 {
 182         \override Staff.TimeSignature #'style = #'()
 183         \time 4/4
 184
 185         R1 |   % 1
 186         R1 |   % 2
 187         << { \voiceOne toml4^> r r2 } \context DrumVoice = dvb { \voiceTwo bd4 r r2 } >> |   % 3
 188         << { r2 r8 sn sn [ sn ] } \context DrumVoice = dvb { R1 } >> |   % 4
 189
 190         \repeat percent 2
 191         {
 192                 << { r4 sn r sn } \context DrumVoice = dvb { bd8 bd r bd bd [ bd ] r bd } >> |   % 5-6
 193         }
 194         << { r4 sn } \context DrumVoice = dvb { \voiceTwo bd8 bd r bd } >> |   % 7
 195         \repeat percent 6
 196         {
 197                 << { r4 sn r sn } \context DrumVoice = dvb { bd8 bd r bd bd [ bd ] r bd } >> |   % 8-13
 198         }
 199
 200 }
 201
 202
 203 %
 204 % Chord names
 205 %
 206
 207 Chords = \chordmode
 208 {
 209 %Bah, can't we set this globally?
 210 %YES!   \popChords
 211
 212         % Intro
 213
 214 }
 215
 216
 217 %
 218 % Chord rhythms
 219 %
 220
 221 % Use a RhythmicStaff on the chords instead of this?
 222 % It almost works, but not quite. Doesn't collapse chords above to single notes...
 223
 224 StaffC = \relative c
 225 {
 226 %{
 227 %       \set Voice.autoBeaming = ##f
 228 %       \set Staff.instrumentName = #"Rhythm"
 229         \override Staff.TimeSignature #'style = #'()
 230         \time 3/4
 231         \override NoteHead #'style = #'slash
 232
 233         % Intro
 234
 235         r8. c16 r4 c |   % 1
 236         c4 c c |   % 2
 237         c4 c c |   % 3
 238         c4 c c |   % 4
 239         c4 c c |   % 5
 240         c4 c c |   % 6
 241         c4 c c |   % 7
 242         c4 c c \bar "||:"   % 8
 243
 244         \repeat volta 2
 245         {
 246                 % Verse
 247
 248                 c4 c2 |   % 9
 249                 c8 c c4 c |   % 10
 250                 c4 c c |   % 11
 251                 c4 c c-> |   % 12
 252                 c4 c c |   % 13
 253                 c4 c c |   % 14
 254                 c4 c c |   % 15
 255
 256                 c4 c c |   % 16
 257                 c4 c c |   % 17
 258         }
 259         \alternative
 260         {
 261                 {
 262                         c4 c c |   % 18
 263                         c4 c c |   % 19
 264                 }
 265                 {
 266                         c4 c c |   % 20
 267                 }
 268         }
 269
 270         c4 c c \bar "||"   % 21
 271
 272         % Verse
 273
 274         c4 c2 |   % 22
 275         c4 c2 |   % 23
 276         c2. |   % 24
 277         c2 c4-> |   % 25
 278         c4-> c-> c |   % 26
 279         c4 c c |   % 27
 280         c4 c c \bar "||"   % 28
 281
 282         c4 c c |   % 29
 283         c4 c c |   % 30
 284
 285         c4 c c |   % 31
 286         c4 c c \bar "||"   % 32
 287
 288         % Verse
 289
 290         c2.-> |   % 33
 291         c8-> c-> c4-> c |   % 34
 292         c4 c c |   % 35
 293         c4 c c |   % 36
 294         c4 c c |   % 37
 295         c4 c c |   % 38
 296         c4 c c \bar "||"   % 39
 297
 298         % Ending
 299
 300         c4 c c |   % 40
 301         c4 c c |   % 41
 302         c4 c c |   % 42
 303         c4 c c |   % 43
 304
 305         \repeat volta 2
 306         {
 307                 c4 c c |   % 44
 308                 c4 c c |   % 45
 309                 c4 c c |   % 46
 310                 c4 c c |   % 47
 311                 c4 c c |   % 48
 312                 c4 c c |   % 49
 313                 c4 c c |   % 50
 314                 c4^\fermata c c |   % 51
 315         }
 316 %}
 317 }
 318
 319
 320 Dynamics =
 321 {
 322 %{
 323         s4_\markup { \italic { snare pat. } } s2 |   % 1
 324         s4_\markup { \italic { simile } } s2 |   % 2
 325         s2.*19
 326         s4_\markup { \italic { spacy } } s2 |   % 22
 327         s2.*5
 328         s4 s \< s \! |   % 28
 329         s2.*22
 330         s4_\markup { \italic { Last time } } s2 |   % 51
 331 %}
 332 }
 333
 334
 335 \score
 336 {
 337         <<
 338                 <<
 339                         \new Staff = leadStaff { \new Voice = "lead" \LeadVox }
 340 %                       \new Staff = leadStaff { << \new Voice = "lead" \LeadVox \new Voice = "riffs" \Riffs >> }
 341                         \new Lyrics \lyricsto "lead" \LeadVoxText
 342                         \new Lyrics \lyricsto "lead" \LeadVoxTextB
 343                         \new Lyrics \lyricsto "lead" \LeadVoxTextC
 344                 >>
 345
 346                 \new StaffGroup = "Rhythm Guitar"
 347                 <<
 348                         \new Staff = rhythmGuitar { \GuitarI }
 349                         \new TabStaff = rhythmGuitarTab { \GuitarITab }
 350                 >>
 351
 352                 <<
 353                         \new DrumStaff = drumNotes { \Drums }
 354                 >>
 355
 356 %               \new ChoirStaff = "Rhythm"
 357 %               <<
 358 %                       \new ChordNames = "chords" \Chords
 359 %                       \new RhythmicStaff = "chordRhythm" << \StaffC \Dynamics >>
 360 %               >>
 361
 362                 \set Score.skipBars = ##t
 363                 \set Score.melismaBusyProperties = #'()
 364         >>
 365 }
 366
 367
 368 \paper
 369 {
 370         #(define fonts (make-pango-font-tree
 371                 "Times New Roman"
 372                 "DomCasual BT"
 373                 "Luxi Mono"
 374                 (/ staffSize 20)))
 375
 376 % Don't spread staves vertically across last page (default: t)
 377 %       ragged-last-bottom = ##f
 378 % Don't spread staves vertically across the page (default: f)
 379 %       ragged-bottom = ##t
 380 % Allow partial line for last stave (default: f)
 381         ragged-last = ##t
 382
 383 % To find out what's eating the space at the top...
 384 %       annotate-spacing = ##t
 385 %let's try this: [It works! Huzzah!]
 386         obsolete-page-top-space = 0  top-system-spacing #'basic-distance = #(/ obsolete-page-top-space staff-space)
 387 }