]> Shamusworld >> Repos - music/blob - nothing-but-the-blood.ly
New charts "How Great Thou Art" and "In The Garden".
[music] / nothing-but-the-blood.ly
1 \version "2.19.0"
2 \include "pop-chords.ly"
3 \include "english.ly"
4
5 % Good sizes are 16, 18, & 20 (11, 13, 14, 23, 26)
6 staffSize = #18
7 #(set-default-paper-size "letter")
8 #(set-global-staff-size staffSize)
9 #(ly:set-option (quote no-point-and-click))
10
11 \header
12 {
13         title    = \markup { \override #'(font-family . sans) \fontsize #3.5 "Nothing But The Blood" }
14         composer = \markup { \override #'(font-family . sans) \fontsize #1.3 "Traditional" }
15         arranger = \markup { \override #'(font-family . sans) \fontsize #1.3 "arr. Roger Freeland" }
16         tagline  = $(string-append "Engraved by JLH and Lilypond " (lilypond-version))
17 }
18
19
20 %
21 % Song's structure
22 %
23 Global =
24 {
25         \clef G
26         \key f \major
27         \numericTimeSignature
28         \time 4/4
29
30         % Intro/midtro
31
32         s1^\markup { \hspace #0.0 \raise #1.0 { Moderate folk-rock } } |   % 1
33         s1*3 \bar ".|:-||"   % 2-4
34
35         \repeat volta 3
36         {
37                 % Verse
38
39                 \mark \markup { \override #'(font-family . sans) { \box { A } } }
40                 s1*8 \bar "||"   % 5-12
41
42                 % Chorus
43
44                 \mark \markup { \override #'(font-family . sans) { \box { B } } }
45                 s1*8 |   % 13-20
46         }
47         \alternative
48         {
49                 {
50                         s1*4 |   % 21-24
51                 }
52                 {
53                         s1 |   % 25
54                 }
55         }
56
57         s1 |   % 26
58
59         % Outro
60
61         \repeat volta 2
62         {
63                 \mark \markup { \override #'(font-family . sans) { \box { C } } }
64                 s1*4 |   % 27-30
65         }
66
67         % Ending
68
69         s1*2 \bar "|."   % 31-32
70 }
71
72
73 %
74 % Lead vocal
75 %
76 LeadVox = \relative c'
77 {
78         \set Voice.autoBeaming = ##f
79
80         % Intro/midtro
81
82         R1*4 |   % 1-4
83
84         % Verse
85
86         f4 f f g |   % 5
87         a4 c a2 |   % 6
88         f8 [ f f g ] a4 a |   % 7
89         g4. ( f8 ) f4 r |   % 8
90         f4 f f g |   % 9
91         a4 c a2 |   % 10
92         f8 [ f f g ] a4 a |   % 11
93         g4. ( f8 ) f4 r \bar "||"   % 12
94
95         % Chorus
96
97         c'2 a4 g |   % 13
98         a4 c a r |   % 14
99         g2 g4 f |   % 15
100         g4 g a ( \stemUp c ) \stemNeutral |   % 16
101         c2 a4 g |   % 17
102         a4 c a r |   % 18
103         f8 [ f f g ] a4 a |   % 19
104         g2.. ( f8 ) |   % 20
105
106         f4 r r2 |   % 21
107         R1 |   % 22
108         R1 |   % 23
109         R1 |   % 24
110
111         f4 r r2 |   % 25
112
113         R1 |   % 26
114
115         % Outro
116
117         f8 [ f f g ] a4 a |   % 27
118         g4. ( f8 ) f4 r |   % 28
119         f8 [ f f g ] a4 a |   % 29
120         g4. ( f8 ) f4 r |   % 30
121
122         % Ending
123
124         R1 |   % 31
125         R1 |   % 32
126 }
127
128
129 LeadVoxText = \lyricmode
130 {
131         What can wash a- way my sin?
132         No- thing but the blood of Je- _ sus.
133         What can make me whole a- gain?
134         No- thing but the blood of Je- _ sus.
135
136         Oh, pre- cious is the flow
137         That makes me white as snow; _
138         No o- ther fount I know,
139         No- thing but the blood of Je- __ _ sus.
140
141         sus.
142
143         No- thing but the blood of Je- _ sus.
144         No- thing but the blood of Je- _ sus.
145 }
146
147 LeadVoxTextB = \lyricmode
148 {
149         No- thing can for sin a- tone,
150         _ _ _ _ _ _ _ _ _
151         Naught of good that I have done,
152 }
153
154 LeadVoxTextC = \lyricmode
155 {
156         This is all my hope and peace,
157         _ _ _ _ _ _ _ _ _
158         This is all my right- eous- ness,
159 }
160
161 % This isn't the hymnal rhythm, but I like it. So there! :-P
162 LeadVoxTextAlt = \lyricmode
163 {
164         What can wash _ a- way _ my _ sin?
165         No- thing but the blood of Je- _ sus.
166         What can make _ me whole _ a- _ gain?
167         No- thing but the blood of Je- _ sus.
168
169         Oh, pre- _ cious is _ the flow _
170         That makes _ me white _ as snow; _
171         No o- _ ther fount _ I know, _
172         No- thing but the blood of Je- _ sus.
173
174         No- thing but the blood of Je- _ sus.
175         No- thing but the blood of Je- _ sus.
176 }
177
178 LeadVoxTextAltB = \lyricmode
179 {
180         No- thing can _ for sin _ a- _ tone,
181         _ _ _ _ _ _ _ _ _
182         Naught of good _ that I _ have _ done,
183 }
184
185 LeadVoxTextAltC = \lyricmode
186 {
187         This is all _ my hope _ and _ peace,
188         _ _ _ _ _ _ _ _ _
189         This is all _ my right- _ eous- _ ness,
190 }
191
192
193 %
194 % Chord names
195 %
196 Chords = \chordmode
197 {
198         % Intro/midtro
199
200         f4./a bf2:sus2 s8 |   % 1
201         c4.:^3 d2:m7 s8 |   % 2
202         f4./a bf2:sus2 s8 |   % 3
203         c4.:^3 d2:m7 s8 |   % 4
204
205         % Verse
206
207         f4./a bf2:sus2 s8 |   % 5
208         c4.:^3 d2:m7 s8 |   % 6
209         f4./a bf2:sus2 s8 |   % 7
210         c4.:^3 d2:m7 s8 |   % 8
211         f4./a bf2:sus2 s8 |   % 9
212         c4.:^3 d2:m7 s8 |   % 10
213         f4./a bf2:sus2 s8 |   % 11
214         c4.:^3 d2:m7 s8 |   % 12
215
216         % Chorus
217
218         f4. c2 s8 |   % 13
219         d4.:m7 f2 s8 |   % 14
220         bf4. f2/a s8 |   % 15
221         bf2 c |   % 16
222         f4./a bf2 s8 |   % 17
223         c4.:^3 d2:m7 s8 |   % 18
224         f4./a bf2 s8 |   % 19
225         c1:^3 |   % 20
226
227         f4./a bf2:sus2 s8 |   % 21
228         c4.:^3 d2:m7 s8 |   % 22
229         f4./a bf2:sus2 s8 |   % 23
230         c4.:^3 d2:m7 s8 |   % 24
231
232         f4./a bf2:sus2 s8 |   % 25
233
234         c4.:^3 d2:m7 s8 |   % 26
235
236         % Outro
237
238         f4./a bf2:sus2 s8 |   % 27
239         c4.:^3 d2:m7 s8 |   % 28
240         f4./a bf2:sus2 s8 |   % 29
241         c4.:^3 d2:m7 s8 |   % 30
242
243         % Ending
244
245         f4./a bf2:sus2 s8 |   % 31
246         c4.:^3 f2 s8 |   % 32
247 }
248
249
250 %
251 % Chord rhythms
252 %
253 StaffC = \relative c
254 {
255         \numericTimeSignature
256         \override NoteHead #'style = #'slash
257         \teeny
258
259         % Intro/midtro
260
261         c4. c8 ~ c4 c |   % 1
262         c4. c8 ~ c4 c |   % 2
263         c4. c8 ~ c4 c |   % 3
264         c4. c8 ~ c4 c |   % 4
265
266         % Verse
267
268         c4. c8 ~ c4 c |   % 5
269         c4. c8 ~ c4 c |   % 6
270         c4. c8 ~ c4 c |   % 7
271         c4. c8 ~ c4 c |   % 8
272         c4. c8 ~ c4 c |   % 9
273         c4. c8 ~ c4 c |   % 10
274         c4. c8 ~ c4 c |   % 11
275         c4. c8 ~ c4 c |   % 12
276
277         % Chorus
278
279         c4. c8 ~ c4 c |   % 13
280         c4. c8 ~ c4 c |   % 14
281         c4. c8 ~ c4 c |   % 15
282         c4 c c c |   % 16
283         c4. c8 ~ c4 c |   % 17
284         c4. c8 ~ c4 c |   % 18
285         c4. c8 ~ c4 c |   % 19
286         c4 c c c |   % 20
287
288         c4. c8 ~ c4 c |   % 21
289         c4. c8 ~ c4 c |   % 22
290         c4. c8 ~ c4 c |   % 23
291         c4. c8 ~ c4 c |   % 24
292
293         c4. c8 ~ c4 c |   % 25
294
295         c4. c8 ~ c4 c |   % 26
296
297         % Outro
298
299         c4. c8 ~ c4 c |   % 27
300         c4. c8 ~ c4 c |   % 28
301         c4. c8 ~ c4 c |   % 29
302         c4. c8 ~ c4 c |   % 30
303
304         % Ending
305
306         c4._\markup { \italic { on cue } } c8 ~ c4 c |   % 31
307         c4. c8 ~ c2^\fermata |   % 32
308 }
309
310
311 \score
312 {
313         <<
314                 \Global         % The "roadmap" that everything else depends on
315
316                 \context Staff
317                 <<
318                         \new Voice = "lead" \LeadVox
319                         \new Lyrics \lyricsto "lead" \LeadVoxText
320                         \new Lyrics \lyricsto "lead" \LeadVoxTextB
321                         \new Lyrics \lyricsto "lead" \LeadVoxTextC
322                 >>
323
324                 \new ChoirStaff
325                 <<
326                         \new ChordNames \Chords
327                         \new RhythmicStaff \StaffC
328                 >>
329
330                 \set Score.skipBars = ##t
331                 \set Score.melismaBusyProperties = #'()
332         >>
333 }
334
335
336 \paper
337 {
338         #(define fonts (make-pango-font-tree
339                 "Times New Roman"
340                 "LilyJAZZText"
341                 "Luxi Mono"
342                 (/ staffSize 20)))
343
344 % Don't spread staves vertically across last page (default: t)
345 %       ragged-last-bottom = ##f
346 % Don't spread staves vertically across the page (default: f)
347 %       ragged-bottom = ##t
348 % Allow partial line for last stave (default: f)
349         ragged-last = ##t
350
351 % To find out what's eating the space at the top...
352 %       annotate-spacing = ##t
353 }
354