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 "Give Me Love" }
18 composer = \markup { \override #'(font-family . sans) \fontsize #1.3 "George Harrison" }
19 % arranger = \markup { \override #'(font-family . sans) \fontsize #1.3 "" }
20 tagline = $(string-append "Engraved by JLH and Lilypond " (lilypond-version))
23 % Useful tweak abbreviations (hn = harmony note)
25 hn = #(define-music-function (parser location arg) (ly:music?)
26 ;; Harmony Note: Set the tweaks property of the passed in note to use a smaller font
28 (set! (ly:music-property arg 'tweaks)
29 (acons 'font-size -3.5 (ly:music-property arg 'tweaks))) arg)
38 \override Staff.TimeSignature #'style = #'()
43 \once \override TextScript #'padding = #2.0
44 s1*0^\markup { \large \bold { Moderately fast pop } }
46 % s1*0^\markup { \large \bold { Moderately fast pop "(*** CAPO 3 ***)" } }
47 s1*13 \bar "||:" % 1-13
53 \mark \markup { \override #'(font-family . sans) { \box { A } } }
60 \mark \markup { \override #'(font-family . sans) { \box { B } } }
63 \override TextSpanner #'(bound-details left text) = "Gtr. solo 2nd X "
65 s4\startTextSpan s2. | % 37
68 s2. s4\stopTextSpan | % 48
70 \time 2/4 s2 \time 4/4 | % 50
78 \mark \markup { \override #'(font-family . sans) { \box { C } } }
97 \mark \markup { \override #'(font-family . sans) { \box { D } } }
107 LeadVox = \relative c'
110 \override Score.SpacingSpanner #'average-spacing-wishes = ##f
122 c4 r a8 c4 df8 ~ | % 17
123 df4 r df8 ( c ) bf c ~ | % 18
125 r2 ef8 ( d ) c d ~ | % 20
130 r4 d ~ d8 d4 c8 ~ | % 24
131 c4 r bf8 c4 df8 ~ | % 25
132 df2 df8 ( c ) bf c ~ | % 26
134 r2 ef8 ( d ) c d ~ | % 28
143 c2 c4 ( bf8 a ) | % 34
145 df8 ( c bf4 ) ~ bf2 | % 36
153 c8 ( bf a ) bf ~ bf c4 d8 ~ | % 43
157 d2 ( b4. ) b8 ~ | % 46
158 b4. c8 ~ c d4 e8 ( ~ | % 47
159 e8 d c ) c ~ c2 | % 48
160 \times 2/3 { d2 e e } | % 49
162 d8 ( e4 ) f8 ~ f2 | % 51
166 c4 a8 c ~ c4 r8 c ~ | % 52
167 c8 a c4 r8 c a4 | % 53
169 c4 r a8 c4 df8 ~ | % 55
170 df4 r df8 ( c ) bf c ~ | % 56
172 r2 ef8 ( d ) c d ~ | % 58
177 r4 d ~ d8 d4 c8 ~ | % 62
178 c4 r bf8 c4 df8 ~ | % 63
180 df2 df8 ( c ) bf c ~ | % 64
182 r2 ef8 ( d ) c d ~ | % 66
185 df1\repeatTie ~ | % 68
186 df2 df8 ( c ) bf c ~ | % 69
201 c2 c4 ( bf8 a ) | % 80
203 df8 ( c bf4 ) ~ bf2 | % 82
206 LeadVoxText = \lyricmode
208 Give me love, _ give me love, _
209 give me peace on earth; _
210 Give me light, _ give _ me life, _
211 keep me free _ from birth. _
212 Give me hope, help me cope _
213 with this hea -- _ vy load. _
214 Try -- ing to _ touch _ and reach _ you with
215 heart _ and soul. __ _
217 Oh, __ _ _ _ _ my _ _ Lord. __ _ _ _
218 Please, __ _ _ _ _ take hold __ _ _ of _ my hand _
219 that I __ _ might _ un -- _ der -- stand __ _ _ _ you _
220 Won’t you please, oh won’t _ you _
222 Give me love, _ give _ me love,
223 give me peace on earth; _
224 Give me light, _ give _ me life, _
225 keep me free _ from birth. _
226 Give me hope, help me cope _
227 with this hea -- _ vy load. _
228 Try -- ing to _ touch _ and reach _ you with
231 _ _ touch _ and reach _ you with
232 heart __ _ _ and soul. __ _
234 Oh, __ _ _ _ _ my _ _ Lord. __ _ _ _
241 Riffs = \relative c''
258 d8 ef4 f8 ~ f4 bf-. | % 12
264 r8 df df df df ( c ) bf4 | % 83
275 %Bah, can't we set this globally?
399 % Use a RhythmicStaff on the chords instead of this?
400 % It almost works, but not quite. Doesn't collapse chords above to single notes...
404 \override Staff.TimeSignature #'style = #'()
405 \override NoteHead #'style = #'slash
466 \times 2/3 { c2 c c } | % 49
519 c4 c c c-\fermata | % 103
525 s4_\markup { \italic { Ac. gtr only } } s2. | % 1
529 s4_\markup { \italic { Band in } } s2. | % 5
536 \Global % The "roadmap" that everything else depends on
540 \context Staff << \new Voice = "lead" \LeadVox \new Voice \Riffs >>
541 \new Lyrics \lyricsto "lead" \LeadVoxText
546 \new ChordNames \Chords
548 % \new ChordNames \transpose f d \Chords
549 \new RhythmicStaff << \Rhythm \Dynamics >>
552 \set Score.skipBars = ##t
553 \set Score.melismaBusyProperties = #'()
560 #(define fonts (make-pango-font-tree
566 % Spread staves vertically across last page (default: t)
567 % ragged-last-bottom = ##f
568 % Don't spread staves vertically across the page (default: f)
569 % ragged-bottom = ##t
570 % Allow partial line for last stave (default: f)
573 % To find out what's eating the space at the top...
574 % annotate-spacing = ##t
575 %let's try this: [It works! Huzzah!]
576 obsolete-page-top-space = 0 top-system-spacing #'basic-distance = #(/ obsolete-page-top-space staff-space)