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 "Let It Grow" }
18 composer = \markup { \override #'(font-family . sans) \fontsize #1.3 "Eric Clapton" }
19 % arranger = \markup { \override #'(font-family . sans) \fontsize #1.3 "arr. " }
20 tagline = $(string-append "Engraved by JLH and Lilypond " (lilypond-version))
21 % Let's try a chord dictionary
22 % subtitle = \markup { \center-column { "F#m" \fret-diagram-terse #"x;x;4;2;2;2;" } " " \center-column { "F#m/F" \fret-diagram-terse #"x;x;3;2;2;2;" } " " \center-column { "F#m/E" \fret-diagram-terse #"x;x;2;2;2;2;" } " " \center-column { "F#m/Eb" \fret-diagram-terse #"x;x;1;2;2;2;" } " " \center-column { "Em7" \fret-diagram-terse #"o;2;2;o;3;o;" } " " \center-column { "A13" \fret-diagram-terse #"x;o;2;o;2;2;" } }
25 % Useful tweak abbreviations (hn = harmony note)
27 hn = #(define-music-function (parser location arg) (ly:music?)
28 ;; Harmony Note: Set the tweaks property of the passed in note to use a smaller font
30 (set! (ly:music-property arg 'tweaks)
31 (acons 'font-size -3.0 (ly:music-property arg 'tweaks))) arg)
40 \override Staff.TimeSignature #'style = #'()
45 \once \override TextScript #'padding = #2.0
46 s1*0^\markup { \large \bold { Moderate pop } }
48 % s1*0^\markup { \hspace #0.0 \raise #2.0 \larger \bold { "Moderate pop (*** CAPO 4 ***)" } }
54 \mark \markup { \override #'(font-family . sans) { \box { A } } }
61 \mark \markup { \override #'(font-family . sans) { \box { B } } }
69 \mark \markup { \override #'(font-family . sans) { \box { C } } }
92 \mark \markup { \override #'(font-family . sans) { \box { D } } }
101 \mark \markup { \override #'(font-family . sans) { \box { E } } }
112 \mark \markup { \override #'(font-family . sans) { \box { F } } }
121 LeadVox = \relative c'
123 % \set Staff.instrument = #"Lead vox"
125 \override Staff.TimeSignature #'style = #'()
127 % \override Score.SpacingSpanner #'average-spacing-wishes = ##f
131 b8 fs' fs fs16 fs ~ fs fs8. r4 | % 1
132 fs8 fs16 g8. fs16 ( e ) e4 r | % 2
133 r8 r16 d d8 d e e d cs | % 3
134 b8 fs' fs fs16 fs ~ fs fs8. r8 r16 b, | % 4
135 fs'8 fs16 g8. fs16 ( e ) e4 r | % 5
136 r4 d8 d e e d cs16 ( b ) | % 6
141 r4 fs'16 fs8. fs4 cs'16 ds8. | % 8
143 r4 e16 e8. ds8 ds ds16 ( cs ) b8 | % 10
145 r4 b8 b16 b ~ b8 b cs ds | % 12
147 r4 e8 e ds cs16 ( b ) ~ b4 | % 14
148 r2 r4 ds16 ( cs ) b8 | % 15
167 b,8 fs' fs fs16 fs ~ fs fs8. r8 r16 b, | % 25
168 fs'8 fs16 g8. fs16 ( e ) e4 r | % 26
169 r4 d8 d e e d cs | % 27
170 b8 fs' fs fs16 fs ~ fs fs8. r8 r16 b, | % 28
171 fs'8 fs16 g8. fs16 ( e ) e4 r | % 29
172 r4 d8 d e e d cs16 ( b ) | % 30
177 r4 fs'16 fs8. fs4 cs'16 ds8. | % 32
179 r4 e16 e8. ds8 ds ds16 ( cs ) b8 | % 34
181 r4 b8 b16 b ~ b8 b cs ds | % 36
183 r4 e8 e ds cs16 ( b ) ~ b4 | % 38
184 r2 r4 ds16 ( cs ) b8 | % 39
195 LeadVoxText = \lyricmode
197 Stand -- ing at the cross -- _ roads
198 tryin’ to read the _ signs,
199 to tell me which way I should
200 Go to find the ans -- _ wer
201 and all the time I _ know:
202 plant your love and let it _ grow.
204 Let it grow, let it grow.
205 Let it blos -- som, let _ it flow.
206 In the sun, _ the rain, the snow,
207 love is love -- ly; _ _ let _ it grow.
209 Time is get -- ting short -- _ er,
210 there’s much for me to _ do;
211 on -- ly ask and you will
212 Get what you are need -- _ ing,
213 the rest is up to _ you;
214 plant your love and let it _ grow.
216 Let it grow, let it grow.
217 Let it blos -- som, let _ it flow.
218 In the sun, _ the rain, the snow,
219 love is love -- ly; _ _ let _ it grow.
222 LeadVoxTextB = \lyricmode
224 Look -- ing for a rea -- _ son
225 to check out of my _ mind,
226 try -- ing hard to get a
227 friend that I can count _ on
228 there’s noth -- ing left to _ show;
232 Riffs = \relative c''
236 \override Score.SpacingSpanner #'average-spacing-wishes = ##f
242 e4 e e8 d e g ~ | % 1
244 g4 g g8 fs d-\glissando a' ~ | % 3
246 a4 r8 e16 fs a8 a fs16 fs e8 | % 4
248 a8-\repeatTie g4 fs8 ~ fs e4. | % 5
252 e4 e e8 d e g ~ | % 23
254 g4 g g8 fs d-\glissando a' ~ | % 25
256 a4 r8 e16 fs a8 a fs16 fs e8 | % 26
258 a8-\repeatTie g4 fs8 ~ fs e4. | % 27
262 e4 e e8 d e g ~ | % 51
264 g4 g g8 fs d-\glissando a' ~ | % 53
346 % Use a RhythmicStaff on the chords instead of this?
347 % It almost works, but not quite. Doesn't collapse chords above to single notes...
351 %% \set Voice.autoBeaming = ##f
352 %% \set Staff.instrument = #"Rhythm"
353 \override Staff.TimeSignature #'style = #'()
354 \override NoteHead #'style = #'slash
426 s4_\markup { \italic { snare pat. } } s2 | % 1
427 s4_\markup { \italic { simile } } s2 | % 2
429 s4_\markup { \italic { spacey } } s2 | % 22
433 s4_\markup { \italic { Last time } } s2 | % 51
441 \set Score.skipBars = ##t
442 \set Score.melismaBusyProperties = #'()
446 \new ChordNames \Chords
448 % \new ChordNames \transpose b g \Chords
449 \new RhythmicStaff << \Rhythm \Dynamics >>
454 \Global % The "roadmap" that everything else depends on
455 \new Voice = "lead" \LeadVox
457 \new Lyrics \lyricsto "lead" \LeadVoxText
458 \new Lyrics \lyricsto "lead" \LeadVoxTextB
466 #(define fonts (make-pango-font-tree
472 % Spread staves vertically across last page (default: t)
473 % ragged-last-bottom = ##f
474 % Don't spread staves vertically across the page (default: f)
475 % ragged-bottom = ##t
476 % Allow partial line for last stave (default: f)
479 % To find out what's eating the space at the top...
480 % annotate-spacing = ##t
481 %let's try this: [It works! Huzzah!]
482 obsolete-page-top-space = 0 top-system-spacing #'basic-distance = #(/ obsolete-page-top-space staff-space)