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 Rain" }
18 composer = \markup { \override #'(font-family . sans) \fontsize #1.3 "Eric Clapton/Bonnie Bramlett" }
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 { Moderately fast pop } }
48 % s1*0^\markup { \hspace #0.0 \raise #2.0 \larger \bold { "Moderate pop (*** CAPO 4 ***)" } }
70 \mark \markup { \override #'(font-family . sans) { \box { A } } }
75 \mark \markup { \override #'(font-family . sans) { \box { B } } }
92 \mark \markup { \override #'(font-family . sans) { \box { C } } }
107 \mark \markup { \override #'(font-family . sans) { \box { D } } }
111 s1*0^\markup { \large \bold { 3X } }
117 \mark \markup { \override #'(font-family . sans) { \box { E } } }
124 \mark \markup { \override #'(font-family . sans) { \box { F } } }
141 \mark \markup { \override #'(font-family . sans) { \box { G } } }
147 \mark \markup { \override #'(font-family . sans) { \box { H } } }
156 LeadVox = \relative c''
158 % \set Staff.instrument = #"Lead vox"
160 \override Staff.TimeSignature #'style = #'()
162 % \override Score.SpacingSpanner #'average-spacing-wishes = ##f
171 fs'8 e4 d8 ~ d8 fs4 e8 ~ | % 6
172 e8 d4 c8 ~ c4 r8 a | % 7
173 c4 c8 d ~ d4 d8 e ~ | % 8
174 e8 d4 d8 ~ d4 r8 a | % 9
175 fs'8 e4 d8 ~ d8 fs4 e8 ~ | % 10
176 e8 d4 c8 ~ c4 r8 a | % 11
177 c4 c8 c ~ c4 d8 e ( | % 12
178 d ) d4. r8 d e fs ~ | % 13
182 fs4 r r8 d e fs16 ( e | % 14
183 d4 ) r r8 d d e ~ | % 15
184 e4 e d8 ( b ) b a ~ | % 16
185 a2 r8 d e fs ~ | % 17
186 fs4 r r8 d e fs16 ( e | % 18
187 d4 ) r r8 d d e ~ | % 19
192 e'2-\repeatTie d4. ( cs8 ) | % 22
210 fs8 e4 d8 ~ d8 fs4 e8 ~ | % 34
211 e8 d4 c8 ~ c a4 r8 | % 35
212 c8 c4 d8 ~ d e4 d8 ~ | % 36
214 fs8 e4 d8 ~ d8 fs4 e8 ~ | % 38
215 e8 d4 c8 ~ c4 r8 a8 | % 39
216 c4 c8 d ~ d e4 d8 ~ | % 40
217 d4 r r8 d e fs ~ | % 41
221 fs4 r r8 d e fs16 ( e | % 42
222 d4 ) r r8 d d e ~ | % 43
223 e4 e d8 ( b ) b a ~ | % 44
224 a2 r8 d e fs ~ | % 45
225 fs4 r r8 d e fs16 ( e | % 46
226 d4 ) r r8 d d e ~ | % 47
229 d2 r8 d e fs ~ | % 49
231 e2-\repeatTie d4. ( cs8 ) | % 50
240 fs2 ~ ( fs8 g fs e ~ | % 57
244 LeadVoxText = \lyricmode
246 The rain is fal -- _ ling through _ the mist _
247 of sor -- row that _ sur -- round -- _ ed me. _
248 The sun could ne -- _ ver thaw _ a -- way _
249 the bliss that lays _ a -- round _ me.
251 Let it rain, _ let it rain, _ _
252 let your love _ rain down _ on me. _
253 Let it rain, _ let it rain, _ _
254 let it rain, _ rain, rain! _
259 Now I know _ the sec -- _ ret
260 there _ is no -- thing that _ I lack. _
261 If I give _ my love _ to you _
262 you'll sure -- ly give _ it back. _
264 Let it rain, _ let it rain, _ _
265 let your love _ rain down _ on me. _
266 Let it rain, _ let it rain, _ _
267 let it rain, _ rain, rain! _
272 Rain, __ _ _ rain! __ _ _ _ _ _
276 LeadVoxTextB = \lyricmode
278 _ life was like _ a des -- _ ert flo -- _ wer
279 burn -- ing in _ the sun. _ _ _ _
280 Un -- til I found _ the way _ to love _
281 was hard -- er said _ than done.
285 Riffs = \relative c''
289 \override Score.SpacingSpanner #'average-spacing-wishes = ##f
294 e4 e e8 d e g ~ | % 1
296 g4 g g8 fs d-\glissando a' ~ | % 3
298 a4 r8 e16 fs a8 a fs16 fs e8 | % 4
300 a8-\repeatTie g4 fs8 ~ fs e4. | % 5
304 e4 e e8 d e g ~ | % 23
306 g4 g g8 fs d-\glissando a' ~ | % 25
308 a4 r8 e16 fs a8 a fs16 fs e8 | % 26
310 a8-\repeatTie g4 fs8 ~ fs e4. | % 27
314 e4 e e8 d e g ~ | % 51
316 g4 g g8 fs d-\glissando a' ~ | % 53
425 % Use a RhythmicStaff on the chords instead of this?
426 % It almost works, but not quite. Doesn't collapse chords above to single notes...
430 %% \set Voice.autoBeaming = ##f
431 %% \set Staff.instrument = #"Rhythm"
432 \override Staff.TimeSignature #'style = #'()
433 \override NoteHead #'style = #'slash
443 c8-\repeatTie c4 c8 ~ c8 c4. | % 5
458 c4 c8 c ~ c4 c | % 14
459 c4 c8 c ~ c4 c | % 15
462 c4 c8 c ~ c4 c | % 18
463 c4 c8 c ~ c4 c | % 19
478 c8-\repeatTie c4 c8 ~ c8 c4. | % 27
503 c4 c8 c ~ c4 c | % 42
504 c4 c8 c ~ c4 c | % 43
507 c4 c8 c ~ c4 c | % 46
508 c4 c8 c ~ c4 c | % 47
532 s4_\markup { \italic { snare pat. } } s2 | % 1
533 s4_\markup { \italic { simile } } s2 | % 2
535 s4_\markup { \italic { spacey } } s2 | % 22
539 s4_\markup { \italic { Last time } } s2 | % 51
547 \set Score.skipBars = ##t
548 \set Score.melismaBusyProperties = #'()
552 \new ChordNames \Chords
554 % \new ChordNames \transpose b g \Chords
555 \new RhythmicStaff << \Rhythm \Dynamics >>
560 \Global % The "roadmap" that everything else depends on
561 \new Voice = "lead" \LeadVox
563 \new Lyrics \lyricsto "lead" \LeadVoxText
564 \new Lyrics \lyricsto "lead" \LeadVoxTextB
572 #(define fonts (make-pango-font-tree
578 % Spread staves vertically across last page (default: t)
579 % ragged-last-bottom = ##f
580 % Don't spread staves vertically across the page (default: f)
581 % ragged-bottom = ##t
582 % Allow partial line for last stave (default: f)
585 % To find out what's eating the space at the top...
586 % annotate-spacing = ##t
587 %let's try this: [It works! Huzzah!]
588 obsolete-page-top-space = 0 top-system-spacing #'basic-distance = #(/ obsolete-page-top-space staff-space)