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 "Do You Know" }
18 % composer = \markup { \override #'(font-family . sans) \fontsize #1.3 "Traditional" }
19 arranger = \markup { \override #'(font-family . sans) \fontsize #1.3 "arr. Ed Smart" }
20 tagline = $(string-append "Engraved by JLH and Lilypond " (lilypond-version))
28 LeadVox = \relative c'
30 % \set Voice.autoBeaming = ##f
31 % \set Staff.instrument = #"Lead vox"
34 \override Staff.TimeSignature #'style = #'()
36 \override Score.SpacingSpanner #'average-spacing-wishes = ##f
40 R1^\markup { \italic { Light ballad } } | % 1
43 r2 r4. cs16 [ d ] | % 4
49 \once \override Score.RehearsalMark #'self-alignment-X = #left
50 \mark \markup { \override #'(font-family . sans) { \box { A } } \small \italic { Solo 3rd time } }
52 e8 [ e e fs ] ~ fs4 fs | % 5
53 e4 d cs r8 cs16 [ d ] | % 6
55 e8 [ e e fs ] ~ fs4 fs | % 7
56 e4 b' a r8 a16 [ b ] | % 8
57 cs2 b4 r8 b16 [ cs ] | % 9
58 d4. cs8 cs4 r8 a16 [ gs ] | % 10
59 fs8 [ gs a a ] ~ a4 b | % 11
60 cs4 gs a2 \bar "||" % 12
66 \mark \markup { \musicglyph #"scripts.segno" }
68 r4^\markup { \hspace #0.0 \raise #1.0 \italic { end solo } } a8 [ b ] \bar "||" % 13
72 \once \override Score.RehearsalMark #'self-alignment-X = #left
73 \mark \markup { \override #'(font-family . sans) { \box { B } } \small \italic { No groove on D.S. } }
75 cs2 b4 b8 [ cs ] | % 14
77 fs8 [ gs a cs ] ~ cs [ a ] a4 | % 16
78 fs8 [ gs a cs ] ~ cs [ a ] a4 | % 17
80 fs8 [ gs a cs ] ~ cs [ a ] a4 | % 18
87 b8 [ cs ] gs8. ([ a16 ]) | % 19
92 r2 r4. cs,16 [ d ] | % 21
95 b'8 [ cs ] gs8. ([ a16 ]) a2^\markup { \hspace #1.8 \raise #0.6 { D.S. } } \bar "||" % 22
98 b8 [ cs ] gs8. ([ a16 ]) a2-\fermata \bar "|." | % 23
103 LeadVoxText = \lyricmode
105 Do you know what the blood _ has done for me,
106 Do you know what the blood _ has done for me?
107 It has cleansed me, it has set me free
108 Do you know what the blood _ has done for me?
110 Thank you Je -- sus, thank you Sa -- vior
111 for com -- ing and wash -- _ ing me
112 com -- ing and cleans -- _ ing me
113 com -- ing and set -- _ ting me set -- ting me __ _ free.
117 set -- ting me __ _ free
119 set -- ting me __ _ free.
124 % Riff/rhythm figures
127 StaffRiffs = \relative c'
129 % \set Voice.autoBeaming = ##f
130 % \set Staff.instrument = #"Rhythm"
132 \override Staff.TimeSignature #'style = #'()
137 <e b>8 [ a, <e' b> a, ] <e' b> [ a, <e' b> a, ] | % 1
138 <e' b>8 [ a, <e' b> a, ] <e' b> [ a, <e' b> a, ] | % 2
139 <e' b>8 [ a, <e' b> a, ] <e' b> [ a, <e' b> a, ] | % 3
140 <e' b>8 [ a, <e' b> a, ] <e' b> [ a, <e' b> a, ] | % 4
153 <e' b>8 [ a, <e' b> a, ] <e' b> [ a, <e' b> a, ] | % 20
154 <e' b>8 [ a, <e' b> a, ] <e' b> [ a, <e' b> a, ] | % 21
165 % Bah, can't we set this globally?
182 a4/e f:dim7 fs2:m7 | % 8
186 d4:maj7 e a2 \bar "||" % 12
199 b4.:m7 fs8:m7 s2 | % 17
215 b4:m7 e a2 \bar "||" % 22
218 b4:m7 e a2 \bar "|." | % 23
228 % Use a RhythmicStaff on the chords instead of this?
229 % It almost works, but not quite. Doesn't collapse chords above to single notes...
233 % \set Voice.autoBeaming = ##f
234 % \set Staff.instrument = #"Rhythm"
235 \override Staff.TimeSignature #'style = #'()
237 \override NoteHead #'style = #'slash
257 c4 c c c \bar "||" % 12
286 c4 c c c \bar "||" % 22
289 c4-\markup { \italic { rit. } } c c2-\fermata \bar "|." | % 23
299 \new Staff = leadStaff { \new Voice = "lead" \LeadVox }
300 \new Lyrics \lyricsto "lead" \LeadVoxText
305 \remove "Time_signature_engraver"
306 \remove "Clef_engraver"
307 %Hmm, removing this screws up the formatting...
308 % \remove "Key_engraver"
310 \override StaffSymbol #'staff-space = #(magstep -3.0)
314 \new ChoirStaff = "Rhythm"
316 \new ChordNames = "chords" \Chords
317 \new RhythmicStaff = "chordRhythm" \StaffC
320 \set Score.melismaBusyProperties = #'()
325 % \context { \Staff \RemoveEmptyStaves }
326 % ragged-last-bottom = ##t
332 \remove "Timing_translator"
333 \remove "Default_bar_line_engraver"
334 \remove "Repeat_acknowledge_engraver"
339 \Staff \RemoveEmptyStaves
340 \consists "Timing_translator"
341 \consists "Default_bar_line_engraver"
342 \consists "Repeat_acknowledge_engraver"
347 \consists "Timing_translator"
348 \consists "Default_bar_line_engraver"
349 \consists "Repeat_acknowledge_engraver"
355 \consists "Timing_translator"
356 \consists "Default_bar_line_engraver"
357 \consists "Repeat_acknowledge_engraver"
366 #(define fonts (make-pango-font-tree