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 "Mourning Into Dancing" }
18 composer = \markup { \override #'(font-family . sans) \fontsize #1.3 "Tommy Walker" }
19 arranger = \markup { \override #'(font-family . sans) \fontsize #1.3 "arr. Ed Smart" }
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 = #'()
43 \once \override TextScript #'padding = #2.0
44 s1*0^\markup { \large \bold { Samba } }
46 % s1*0^\markup { \hspace #0.0 \raise #2.0 \larger \bold { "Moderate pop (*** CAPO 4 ***)" } }
60 \mark \markup { \override #'(font-family . sans) { \box { A } } }
63 s1*8 \bar "||" % 13-20
67 \mark \markup { \override #'(font-family . sans) { \box { B } } }
83 \mark \markup { \override #'(font-family . sans) { \box { C } } }
85 s1*8 \bar "||:" % 31-38
91 \mark \markup { \override #'(font-family . sans) { \box { D } } }
93 s1*8 \bar "||" % 39-46
97 \mark \markup { \override #'(font-family . sans) { \box { E } } }
107 LeadVox = \relative c'
109 % \set Staff.instrument = #"Lead vox"
111 \override Staff.TimeSignature #'style = #'()
113 % \override Score.SpacingSpanner #'average-spacing-wishes = ##f
120 s2. \clef G e8 g | % 4
124 b4. b8 a8. g16 ~ g8 g | % 5
126 b4. b8 a8. g16 ~ g8 g | % 7
128 b4. b8 a8. g16 ~ g8 g | % 9
130 b4. b8 a8. g16 ~ g8 g | % 11
131 r2 b8. a16 ~ a8 g | % 12
133 a4. bf8 a g4 g8 | % 13
134 r2 g8. e16 ~ e8 d | % 14
136 r2 b8. a16 ~ a8 g | % 16
137 a4. bf8 a g4 g8 | % 17
139 a4. bf8 a4 r8 g | % 19
144 r4 d c b8. a16 ~ | % 21
146 c8. b16 ~ b8 a g4 r8 d | % 23
147 g8. a16 ~ a8 b b8. a16 ~ a8 r | % 24
148 r4 d c b8. a16 ~ | % 25
150 c8. b16 ~ b8 a g8. fs16 ~ fs8 g ~ | % 27
155 g2-\repeatTie r | % 30
159 r4 r8 a a8. g16 ~ g8 g ~ | % 31
161 a4. a8 ~ a8 g4 g8 ~ | % 33
163 b4. b8 ~ b b4 a8 ~ | % 35
165 b4. a8 a4 r8 a | % 37
170 r4 d c b8. a16 ~ | % 39
172 c8. b16 ~ b8 a g4 r8 d | % 41
173 g8. a16 ~ a8 b b8. a16 ~ a8 r | % 42
174 r4 d c b8. a16 ~ | % 43
176 c8. b16 ~ b8 a g8. fs16 ~ fs8 g ~ | % 45
185 LeadVoxText = \lyricmode
187 Where there once was on -- ly _ hurt
188 he gave his hea -- ling _ hand,
189 Where there once was on -- ly _ pain
190 he brought com -- fort like a _ friend,
192 I feel _ the sweet -- ness of his love
193 pier -- cing _ my dark -- ness,
194 I see _ the bright and mor -- ning sun
195 as it ush -- ers in his joy -- ful glad -- ness,
197 He’s turned my mour -- _ ning
198 in -- to danc -- ing _ a -- gain,
199 he’s lift -- ed _ my sor -- rows; _
200 I can’t stay si -- _ lent
201 I must sing for _ his joy has _ come. _
206 His an -- ger _ lasts _
207 for a mo -- ment _ in time _
208 but his fa -- vor _ is here _
209 and will be on me for
212 He’s turned my mour -- _ ning
213 in -- to danc -- ing _ a -- gain
214 he’s lift -- ed _ my sor -- rows, _
215 I can’t stay si -- _ lent
216 I must sing for _ his joy has _ come. _
224 % \override Score.SpacingSpanner #'average-spacing-wishes = ##f
229 \repeat percent 3 { g8. b16 ~ b8 d c8. e16 ~ e8 g } | % 1-3
230 g,8. b16 ~ b8 d c4 s | % 4
238 % \set countPercentRepeats = ##t
239 % \repeat percent 2 {
240 s1*0^\markup { \bold { Tutti } }
241 g''8 b16 d ~ d g8 e16-^ ~ e c8.-^ ~ c8 a16 g | % 47
242 fs8 a16 c ~ c e8 d16 ~ d cs8 cs16 e8 d | % 48
243 g,8 b16 d ~ d g8 e16 ~ e c8 e16 gs a8 b16 | % 49
244 c16 b8 a16 fs8 g r2 | % 50
246 g,8 b16 d ~ d g8 e16-^ ~ e c8.-^ ~ c8 a16 g | % 51
247 fs8 a16 c ~ c e8 d16 ~ d cs8 cs16 e8 d | % 52
248 g,8 b16 d ~ d g8 e16 ~ e c8 e16 gs a8 b16 | % 53
249 c16 b8 a16 fs8 g r2 | % 54
277 f2.. c8:sus2/e | % 13
281 f2.. c8:sus2/e | % 17
284 c4/d g/d g/d d8. g16 | % 20
288 s2 ef4..:dim7 e16:m7 | % 21
291 c2 g4/d d8. g16 | % 24
292 s2 ef4..:dim7 e16:m7 | % 25
294 a8.:m7 g/b c8:6 g8./d d g8 | % 27
310 c4/d g/d c/d d8. g16 | % 38
314 g2 ef4..:dim7 e16:m7 | % 39
317 c2 g4/d d8. g16 | % 42
318 s2 ef4..:dim7 e16:m7 | % 43
320 a8.:m7 g/b c8:6 g8./d d g8 | % 45
321 s2 \parenthesize c4 \parenthesize d8. \parenthesize g16 | % 46
328 % Use a RhythmicStaff on the chords instead of this?
329 % It almost works, but not quite. Doesn't collapse chords above to single notes...
333 %% \set Voice.autoBeaming = ##f
334 %% \set Staff.instrument = #"Rhythm"
335 \override Staff.TimeSignature #'style = #'()
336 \override NoteHead #'style = #'slash
344 \repeat percent 3 { c8. c16 ~ c8 c c8. c16 ~ c8 c8 } | % 1-3
345 c8. c16 ~ c8 c c4-^ r | % 4
349 \repeat percent 8 { c8. c16 ~ c8 c c8. c16 ~ c8 c8 } | % 5-12
353 \repeat percent 2 { c8. c16 ~ c8 c c8. c16 ~ c8 c8 } | % 15-16
357 c4-> c-> c-> c8.-> c16-> ~ | % 20
361 c4 c c c8. c16 ~ | % 21
364 c4 c c c8. c16 ~ | % 24
365 c4 c c c8. c16 ~ | % 25
367 c8. c16 ~ c8 c c8. c16 ~ c8 c-> ~ | % 27
369 c8. c16 ~ c8 c c8. c16 ~ c8 c8 | % 28
370 c8. c16 ~ c8 c c4-^ r | % 29
383 c4 c c c8. c16 ~ | % 38
387 c4 c c c8. c16 ~ | % 39
390 c4 c c c8. c16 ~ | % 42
391 c4 c c c8. c16 ~ | % 43
393 c8. c16 ~ c8 c c8. c16 ~ c8 c-> ~ | % 45
394 c2 \parenthesize c4 \parenthesize c8. \parenthesize c16 | % 46
413 % s4_\markup { \italic { 1st X: Melody, 2nd X+: Solos } } s2. | % 5
415 s4_\markup { \bold \italic { Double Chorus 2nd X } } s2. | % 39
417 % s4_\markup { \bold { Tutti } } s2. | % 47
424 \set Score.skipBars = ##t
425 \set Score.melismaBusyProperties = #'()
429 \new ChordNames \Chords
431 % \new ChordNames \transpose b g \Chords
432 \new RhythmicStaff << \Rhythm \Dynamics >>
437 \Global % The "roadmap" that everything else depends on
438 \new Voice = "lead" \LeadVox
440 \new Lyrics \lyricsto "lead" \LeadVoxText
448 #(define fonts (make-pango-font-tree
454 % Spread staves vertically across last page (default: t)
455 ragged-last-bottom = ##f
456 % Don't spread staves vertically across the page (default: f)
457 % ragged-bottom = ##t
458 % Allow partial line for last stave (default: f)
461 % To find out what's eating the space at the top...
462 % annotate-spacing = ##t
463 %let's try this: [It works! Huzzah!]
464 obsolete-page-top-space = 0 top-system-spacing #'basic-distance = #(/ obsolete-page-top-space staff-space)