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 "If We Are The Body" }
18 composer = \markup { \override #'(font-family . sans) \fontsize #1.3 "Casting Crowns" }
19 % arranger = \markup { \override #'(font-family . sans) \fontsize #1.3 "arr. Ed Smart" }
20 tagline = $(string-append "Engraved by JLH and Lilypond " (lilypond-version))
23 % Useful tweak abbreviations (hn = harmony note)
25 hn = #(define-music-function (parser location arg) (ly:music?)
26 ;; Harmony Note: Set the tweaks property of the passed in note to use a smaller font
28 (set! (ly:music-property arg 'tweaks)
29 (acons 'font-size -3.5 (ly:music-property arg 'tweaks))) arg)
40 \override Staff.TimeSignature #'style = #'()
56 \mark \markup { \override #'(font-family . sans) { \box { A } } }
58 s1*16 \bar "||" % 7-22
62 \mark \markup { \override #'(font-family . sans) { \box { B } } }
78 \mark \markup { \override #'(font-family . sans) { \box { C } } }
86 \mark \markup { \override #'(font-family . sans) { \box { D } } }
114 % \once \override TextScript #'padding = #2.0
115 % s1*0^\markup { \large \bold { Moderately fast pop } }
117 %% s1*0^\markup { \large \bold { Moderately fast pop "(*** CAPO 3 ***)" } }
118 % s1*13 \bar "||:" % 1-13
127 LeadVox = \relative c'
130 \override Score.SpacingSpanner #'average-spacing-wishes = ##f
141 a4. gs8 ~ gs a4. | % 7
142 cs4. gs8 ~ gs4 a8 a ~ | % 8
144 r4 fs8 b ~ b a4 a8 ~ | % 10
145 a4 r r r8 <\hn ds,> | % 11
146 fs4. gs8 ~ gs a4. | % 12
147 b4 a gs a8 cs ~ | % 13
148 cs8 b4. r4 r8 cs,8 | % 14
149 gs'4. a8 ~ a b4. | % 15
150 gs4. a8 ~ a cs4. | % 16
151 gs4. a8 ~ a b4. | % 17
152 b4 a8 b ~ b cs4 << { \voiceTwo a8 ~ } \new Voice = "v" { \voiceOne <\hn b>8 ~ } >> | % 18
153 << { \voiceTwo a2 } \context Voice = "v" { \voiceOne <\hn b>8 <\hn a>4. } >> \oneVoice r4 r8 <\hn fs> | % 19
154 <\hn cs'>8 <\hn b> b a b a4 a8 ~ ( | % 20
155 a8 fs4. ~ fs8 e4. ) | % 21
160 cs8 b a b a4 r | % 23
161 r4 e'8 e ~ e e4 e8 ~ | % 24
162 e4.cs8 ~ cs b4. | % 25
163 r4 e8 e ~ e fs4 e8 ~ | % 26
164 e4. b8 ~ b a4. | % 27
165 r4 a8 a ~ a b4 cs8 ~ | % 28
166 cs4. b8 ~ b a4. | % 29
168 cs8 b a b a4 r | % 31
169 r4 e'8 e ~ e e4 e8 ~ | % 32
170 e4. cs8 ~ cs b4. | % 33
171 r4 e8 e ~ e e4 fs8 ~ | % 34
172 fs4 cs b8 a4 e'8 ~ | % 35
173 e4 cs8 d ~ d4 cs8 a ~ | % 36
176 r4 fs8 b ~ b4 a8 a ~ | % 38
186 e'4. e8 ~ e4 e | % 44
187 fs4 cs b a8 a ~ | % 45
188 a4 r r8 fs a fs | % 46
189 cs'8 cs cs4 b a8 b ~ | % 47
190 b4 r8 a cs e cs fs ~ | % 48
191 fs4. b,8 ~ b a4 a8 ~ | % 49
197 cs'8 b a b a4 r | % 52
198 r4 e'8 e ~ e e4 e8 ~ | % 53
199 e4.cs8 ~ cs b4. | % 54
200 r4 e8 e ~ e fs4 e8 ~ | % 55
201 e4. b8 ~ b a4. | % 56
202 r4 a8 a ~ a b4 cs8 ~ | % 57
203 cs4. b8 ~ b a4. | % 58
205 cs8 b a b a4 r | % 60
206 r4 e'8 e ~ e e4 e8 ~ | % 61
207 e4. cs8 ~ cs b4. | % 62
208 r4 e8 e ~ e e4 fs8 ~ | % 63
209 fs4 cs b8 a4 e'8 ~ | % 64
210 e4 cs8 d ~ d4 cs8 a ~ | % 65
215 a2 \repeatTie r | % 68
219 b4 a8 b ~ b4 cs8 a ~ ( | % 69
228 LeadVoxText = \lyricmode
230 It’s crowd -- ed _ in wor -- ship _ to -- day, _
231 and she _ slips in, _
232 _ try -- ing _ to fade in -- to the fac -- _ es.
233 The girls’ teas -- _ ing laugh -- ter _ is car -- ry -- _ ing
234 far -- ther than _ they know, _
235 _ _ _ far -- ther than they know. __ _ _ _ _
237 But if we are the bo -- dy,
238 why aren’t _ his arms _ reach -- _ ing,
239 why aren’t _ his hands _ heal -- _ ing,
240 why aren’t _ his words _ teach -- _ ing?
241 And if we are the bo -- dy,
242 why aren’t _ his feet _ go -- _ ing,
243 why is _ his love _ not show -- ing them _ there is _ a way. _
246 Je -- sus _ paid much too high a price _
247 for us to pick and choose who should come, _
248 and we are the bo -- _ dy _ of Christ. _
250 If we are the bo -- dy,
251 why aren’t _ his arms _ reach -- _ ing,
252 why aren’t _ his hands _ heal -- _ ing,
253 why aren’t _ his words _ teach -- _ ing?
254 And if we are the bo -- dy,
255 why aren’t _ his feet _ go -- _ ing,
256 why is _ his love _ not show -- ing them _ there is _ a way. _
262 Jes -- sus is _ the way. __ _ _
265 LeadVoxTextB = \lyricmode
267 A trav -- ’ler _ is far a -- way from home; _
268 he sheds _ his coat _
269 and qui -- et -- _ ly sinks in -- to the back _ row.
270 The weight of _ their judg -- men -- _ tal glanc -- es _
271 tells him _ that _ his chanc -- es
272 are bet -- ter out _ on the road. _ _ _ _
279 Riffs = \relative c''
284 <a e>4 <a e>4 ~ <a e>8 <a e>4 <gs e>8 ~ | % 1
285 <gs e>8 <a e>4 <gs e>8 ~ <gs e> <a e>4. | % 2
286 <a e>4 <a e>4 ~ <a e>8 <a e>4 <gs e>8 ~ | % 3
287 <gs e>8 <a e>4 <gs e>8 ~ <gs e> <a e>4. | % 4
288 <a e>4 <a e>4 ~ <a e>8 <a e>4 <gs e>8 ~ | % 5
289 <gs e>8 <a e>4 <gs e>8 ~ <gs e> <a e>4 s8 | % 6
293 s4 <a e>4 ~ <a e>8 <a e>4 <gs e>8 ~ | % 39
294 <gs e>8 <a e>4 <gs e>8 ~ <gs e> <a e>4. | % 40
295 <a e>4 <a e>4 ~ <a e>8 <a e>4 <gs e>8 ~ | % 41
296 <gs e>8 <a e>4 <gs e>8 ~ <gs e> <a e>4. | % 42
300 s4 <a e>4 ~ <a e>8 <a e>4 <gs e>8 ~ | % 70
301 <gs e>8 <a e>4 <gs e>8 ~ <gs e> <a e>4. | % 71
302 <a e>4 <a e>4 ~ <a e>8 <a e>4 <gs e>8 ~ | % 72
303 <gs e>8 <a e>4 <gs e>8 ~ <gs e> <a e>4. | % 73
304 <fs a cs e>1-\fermata | % 74
313 %Bah, can't we set this globally?
372 s4. e2 d8:sus2 | % 45
376 s4. e2 d8:sus2 | % 49
418 % Use a RhythmicStaff on the chords instead of this?
419 % It almost works, but not quite. Doesn't collapse chords above to single notes...
423 \override Staff.TimeSignature #'style = #'()
424 \override NoteHead #'style = #'slash
445 c4 c8 c ~ c4 c | % 14
453 c4 c8 c ~ c4 c | % 22
479 c8 \repeatTie c c c c c c c | % 43
484 c4 c8 c ~ c4 c8 c ~ | % 45
488 c4 c8 c ~ c4 c8 c ~ | % 49
531 s4_\markup { \italic { Ac. gtr only } } s2. | % 1
535 s4_\markup { \italic { Band in } } s2. | % 5
543 \Global % The "roadmap" that everything else depends on
547 % \context Staff << \new Voice = "lead" \LeadVox \new Voice \Riffs >>
549 \context Staff << \new Voice = "lead" \transpose fs e \LeadVox \new Voice \transpose fs e \Riffs >>
550 \new Lyrics \lyricsto "lead" \LeadVoxText
551 \new Lyrics \lyricsto "lead" \LeadVoxTextB
556 % \new ChordNames \Chords
558 \new ChordNames \transpose fs e \Chords
559 \new RhythmicStaff << \Rhythm \Dynamics >>
562 \set Score.skipBars = ##t
563 \set Score.melismaBusyProperties = #'()
570 #(define fonts (make-pango-font-tree
576 % Don't spread staves vertically across last page (default: t)
577 % ragged-last-bottom = ##f
578 % Don't spread staves vertically across the page (default: f)
579 % ragged-bottom = ##t
580 % Allow partial line for last stave (default: f)
583 % To find out what's eating the space at the top...
584 % annotate-spacing = ##t
585 %let's try this: [It works! Huzzah!]
586 obsolete-page-top-space = 0 top-system-spacing #'basic-distance = #(/ obsolete-page-top-space staff-space)