2 \include "../pop-chords.ly"
3 \include "../rhythm-mark.ly"
6 % Good sizes are 16, 18, & 20
8 #(set-default-paper-size "letter")
9 #(set-global-staff-size staffSize)
10 #(ly:set-option (quote no-point-and-click))
12 %{ Some useful characters: ‘ ’ “ ” – — † ‡ • … %}
16 %Let's bump up the title size and switch to the chord font. :-)
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))
29 LeadVox = \relative c'
31 % \set Voice.autoBeaming = ##f
32 % \set Staff.instrumentName = #"Lead vox"
35 \override Staff.TimeSignature #'style = #'()
37 \override Score.SpacingSpanner #'average-spacing-wishes = ##f
39 \override TupletBracket #'transparent = ##t
40 \set tupletSpannerDuration = #(ly:make-moment 1 4)
42 \rhythmMark #"" \rhyMarkIIEighths \rhyMarkTriplets
46 r2 r4 r8 ef \bar "||:" % 4
50 \mark \markup { \override #'(font-family . sans) { \box { A } } }
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
56 r8 df' c c ~ c bf c bf | % 9
58 r2 r4 r8 ef \bar "||" % 11
60 \mark \markup { \override #'(font-family . sans) { \box { B } } }
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
66 r8 df' c c ~ c bf c bf | % 16
67 c4 ( ~ c8 a16 g f2 ) | % 17
70 \mark \markup { \override #'(font-family . sans) { \box { C } } }
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
78 LeadVoxText = \lyricmode
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 __ _ _ _ _
85 But when _ you talk _ a -- bout _ de -- stuc -- tion __ _ _ _ _
86 _ Don’t _ you know _ that you _ can count me out _
89 LeadVoxTextB = \lyricmode
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 __ _ _ _ _
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
100 LeadVoxTextC = \lyricmode
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 __ _ _ _ _
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
116 GuitarI = \relative c''
120 \override Staff.TimeSignature #'style = #'()
122 \override Score.SpacingSpanner #'average-spacing-wishes = ##f
124 \override TupletBracket #'transparent = ##t
125 \set tupletSpannerDuration = #(ly:make-moment 1 4)
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
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
132 \acciaccatura { g } af4 ~ \times 2/3 { af8 f af \acciaccatura { bf } c8 ef4 ~ ef8 f, c }
136 GuitarITab = \relative c'
138 \override Staff.TimeSignature #'style = #'()
141 \override TupletBracket #'transparent = ##t
142 \set tupletSpannerDuration = #(ly:make-moment 1 4)
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
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
155 GuitarII = \relative c'
159 \override Staff.TimeSignature #'style = #'()
161 \override Score.SpacingSpanner #'average-spacing-wishes = ##f
182 \override Staff.TimeSignature #'style = #'()
187 << { \voiceOne toml4^> r r2 } \context DrumVoice = dvb { \voiceTwo bd4 r r2 } >> | % 3
188 << { r2 r8 sn sn [ sn ] } \context DrumVoice = dvb { R1 } >> | % 4
192 << { r4 sn r sn } \context DrumVoice = dvb { bd8 bd r bd bd [ bd ] r bd } >> | % 5-6
194 << { r4 sn } \context DrumVoice = dvb { \voiceTwo bd8 bd r bd } >> | % 7
197 << { r4 sn r sn } \context DrumVoice = dvb { bd8 bd r bd bd [ bd ] r bd } >> | % 8-13
209 %Bah, can't we set this globally?
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...
227 % \set Voice.autoBeaming = ##f
228 % \set Staff.instrumentName = #"Rhythm"
229 \override Staff.TimeSignature #'style = #'()
231 \override NoteHead #'style = #'slash
242 c4 c c \bar "||:" % 8
270 c4 c c \bar "||" % 21
280 c4 c c \bar "||" % 28
286 c4 c c \bar "||" % 32
291 c8-> c-> c4-> c | % 34
296 c4 c c \bar "||" % 39
314 c4^\fermata c c | % 51
323 s4_\markup { \italic { snare pat. } } s2 | % 1
324 s4_\markup { \italic { simile } } s2 | % 2
326 s4_\markup { \italic { spacy } } s2 | % 22
330 s4_\markup { \italic { Last time } } s2 | % 51
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
346 \new StaffGroup = "Rhythm Guitar"
348 \new Staff = rhythmGuitar { \GuitarI }
349 \new TabStaff = rhythmGuitarTab { \GuitarITab }
353 \new DrumStaff = drumNotes { \Drums }
356 % \new ChoirStaff = "Rhythm"
358 % \new ChordNames = "chords" \Chords
359 % \new RhythmicStaff = "chordRhythm" << \StaffC \Dynamics >>
362 \set Score.skipBars = ##t
363 \set Score.melismaBusyProperties = #'()
370 #(define fonts (make-pango-font-tree
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)
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)