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 title = \markup { \override #'(font-family . sans) \fontsize #3.5 "Do You Know" }
16 % composer = \markup { \override #'(font-family . sans) \fontsize #1.3 "Traditional" }
17 arranger = \markup { \override #'(font-family . sans) \fontsize #1.3 "arr. Ed Smart" }
18 tagline = $(string-append "Engraved by JLH and Lilypond " (lilypond-version))
33 s1^\markup { \italic { Light ballad } } | % 1
40 \once \override Score.RehearsalMark #'self-alignment-X = #left
41 \mark \markup { \override #'(font-family . sans) { \box { A } } \small \italic { Solo 3rd time } }
48 \mark \markup { \musicglyph #"scripts.segno" }
50 s4^\markup { \hspace #0.0 \raise #1.0 \italic { end solo } } s \bar "||" % 13
54 \once \override Score.RehearsalMark #'self-alignment-X = #left
55 \mark \markup { \override #'(font-family . sans) { \box { B } } \small \italic { No groove on D.S. } }
71 s2 s^\markup { \hspace #1.8 \raise #0.6 { D.S. } } \bar "||" % 22
83 LeadVox = \relative c'
90 r2 r4. cs16 [ d ] | % 4
94 e8 [ e e fs ] ~ fs4 fs | % 5
95 e4 d cs r8 cs16 [ d ] | % 6
97 e8 [ e e fs ] ~ fs4 fs | % 7
98 e4 b' a r8 a16 [ b ] | % 8
99 cs2 b4 r8 b16 [ cs ] | % 9
100 d4. cs8 cs4 r8 a16 [ gs ] | % 10
101 fs8 [ gs a a ] ~ a4 b | % 11
108 cs2 b4 b8 [ cs ] | % 14
110 fs8 [ gs a cs ] ~ cs [ a ] a4 | % 16
111 fs8 [ gs a cs ] ~ cs [ a ] a4 | % 17
113 fs8 [ gs a cs ] ~ cs [ a ] a4 | % 18
115 b8 [ cs ] gs8. ([ a16 ]) | % 19
118 r2 r4. cs,16 [ d ] | % 21
120 b'8 [ cs ] gs8. ([ a16 ]) a2 | % 22
122 b8 [ cs ] gs8. ([ a16 ]) a2-\fermata | % 23
125 LeadVoxText = \lyricmode
127 Do you know what the blood _ has done for me,
128 Do you know what the blood _ has done for me?
129 It has cleansed me, it has set me free
130 Do you know what the blood _ has done for me?
132 Thank you Je -- sus, thank you Sa -- vior
133 for com -- ing and wash -- _ ing me
134 com -- ing and cleans -- _ ing me
135 com -- ing and set -- _ ting me set -- ting me __ _ free.
139 set -- ting me __ _ free
141 set -- ting me __ _ free.
146 % Riff/rhythm figures
148 StaffRiffs = \relative c'
151 \numericTimeSignature
156 <e b>8 [ a, <e' b> a, ] <e' b> [ a, <e' b> a, ] | % 1
157 <e' b>8 [ a, <e' b> a, ] <e' b> [ a, <e' b> a, ] | % 2
158 <e' b>8 [ a, <e' b> a, ] <e' b> [ a, <e' b> a, ] | % 3
159 <e' b>8 [ a, <e' b> a, ] <e' b> [ a, <e' b> a, ] | % 4
171 <e' b>8 [ a, <e' b> a, ] <e' b> [ a, <e' b> a, ] | % 20
172 <e' b>8 [ a, <e' b> a, ] <e' b> [ a, <e' b> a, ] | % 21
194 a4/e f:dim7 fs2:m7 | % 8
207 b4.:m7 fs8:m7 s2 | % 17
225 % Use a RhythmicStaff on the chords instead of this?
226 % It almost works, but not quite. Doesn't collapse chords above to single notes...
230 \numericTimeSignature
231 \override NoteHead #'style = #'slash
269 c4-\markup { \italic { rit. } } c c2-\fermata | % 23
276 \Global % The "roadmap" that everything else depends on
280 \new Voice = "lead" \LeadVox
281 \new Lyrics \lyricsto "lead" \LeadVoxText
286 \remove "Time_signature_engraver"
287 \remove "Clef_engraver"
288 %Hmm, removing this screws up the formatting...
289 % \remove "Key_engraver"
291 \override StaffSymbol #'staff-space = #(magstep -3.0)
295 \new ChoirStaff = "Rhythm"
297 \new ChordNames \Chords
298 \new RhythmicStaff \StaffC
301 \set Score.melismaBusyProperties = #'()
308 #(define fonts (make-pango-font-tree
314 % Don't spread staves vertically across last page (default: t)
315 % ragged-last-bottom = ##f
316 % Don't spread staves vertically across the page (default: f)
317 % ragged-bottom = ##t
318 % Allow partial line for last stave (default: f)
321 % To find out what's eating the space at the top...
322 % annotate-spacing = ##t