2 \include "pop-chords.ly"
5 staffSize = #16 % or 18
6 #(set-default-paper-size "letter")
7 #(set-global-staff-size staffSize)
8 #(ly:set-option (quote no-point-and-click))
12 %Let's bump up the title size and switch to the chord font. :-)
14 title = \markup { \override #'(font-family . sans)
15 { \fontsize #3.5 "Refiner's Fire" } }
16 % composer = \markup { \override #'(font-family . sans) "" }
17 arranger = \markup { \override #'(font-family . sans) "arr. Ed Smart" }
18 tagline = "Engraved by JLH and Lilypond 2.8.2"
26 LeadVox = \relative c''
28 % \set Voice.autoBeaming = ##f
29 % \set Staff.instrumentName = #"Lead vox"
32 \override Staff.TimeSignature #'style = #'()
34 \override Score.SpacingSpanner #'average-spacing-wishes = ##f
47 \mark \markup { \override #'(font-family . sans) { \box { A } } }
49 gs4 b8 fs ~ fs4 gs | % 5
53 gs4 b8 fs ~ fs4 gs | % 9
56 gs4. ( fs8 ) fs2 \bar "||" % 12
60 \mark \markup { \override #'(font-family . sans) { \box { B } } }
62 gs2 a4 gs8 fs8 ~ | % 13
64 gs4 b a gs8 fs ~ | % 15
67 b8 ( fs ) fs4 r2 | % 18
68 b8 ( a ) gs a ~ a e ( fs ) gs ~ | % 19
69 gs8 fs4. r8 e e b' | % 20
71 b8 ( fs ) fs4 r2 | % 22
72 b8 ( a ) gs a ~ a e ( fs ) gs ~ | % 23
73 gs4 a8 gs ~ gs fs4. | % 24
74 a8 gs fs e ~ e ds4. | % 25
91 \mark \markup { \override #'(font-family . sans) { \box { C } } }
93 a8 gs fs e ~ e ds4. | % 31
95 a8 gs fs e ~ e ds4. | % 33
98 r1^\fermata \bar "|." % 36
101 LeadVoxText = \lyricmode
103 Pu- ri- fy _ my heart, let me be as gold
104 and pre- cious sil- ver
105 Pu- ri- fy _ my heart, let me be as gold
109 My heart's one de- sire _
111 Set _ a- part _ for _ you, _ Lord
112 I choose to be ho- _ ly
113 Set _ a- part _ for _ you _ my mas- _ ter
114 Rea- dy to do _ your will
118 Rea- dy to do _ your will
119 Rea- dy to do _ your will.
122 LeadVoxTextB = \lyricmode
124 Pu- ri- fy _ my heart, cleanse me from wi- thin
126 Pu- ri- fy _ my heart, cleanse me from my sin
137 %Bah, can't we set this globally?
168 e4./gs a2 e8/b | % 19
172 e4./gs a2 e8/b | % 23
174 fs4.:m b4:sus4 b4. | % 25
179 e4. e8:sus4 s2 | % 26
180 e4. e8:sus4 s2 | % 27
181 e4. e8:sus4 s2 | % 28
191 fs4.:m b4:sus4 b4. | % 31
193 fs4.:m b4:sus4 b4. | % 33
194 e4. e8:sus4 s2 | % 34
195 e4. e8:sus4 s2 | % 35
204 % Use a RhythmicStaff on the chords instead of this?
205 % It almost works, but not quite. Doesn't collapse chords above to single notes...
209 % \set Voice.autoBeaming = ##f
210 % \set Staff.instrumentName = #"Rhythm"
211 \override Staff.TimeSignature #'style = #'()
213 \override NoteHead #'style = #'slash
233 c4. c8 ~ c4 c \bar "||" % 12
243 c4. c8 ~ c4. c8 ~ | % 19
247 c4. c8 ~ c4. c8 ~ | % 23
249 c4. c8 ~ c c4. | % 25
266 c4. c8 ~ c c4. | % 31
268 c4. c8 ~ c c4. | % 33
270 c4. c8_\markup { \italic { rit. } } ~ c2 | % 35
271 c1^\fermata \bar "|." % 36
279 \new Staff = leadStaff { \new Voice = "lead" \LeadVox }
280 \new Lyrics \lyricsto "lead" \LeadVoxText
281 \new Lyrics \lyricsto "lead" \LeadVoxTextB
284 \new ChoirStaff = "Rhythm"
286 \new ChordNames = "chords" \Chords
287 \new RhythmicStaff = "chordRhythm" \StaffC
290 \set Score.skipBars = ##t
291 \set Score.melismaBusyProperties = #'()
298 #(define fonts (make-pango-font-tree
304 % Spread staves vertically across last page (default: t)
305 ragged-last-bottom = ##f
306 % Don't spread staves vertically across the page (default: f)
307 % ragged-bottom = ##t
308 % Allow partial line for last stave (default: f)
311 % To find out what's eating the space at the top...
312 % annotate-spacing = ##t
313 %let's try this: [It works! Huzzah!]
314 obsolete-page-top-space = 0 top-system-spacing #'basic-distance = #(/ obsolete-page-top-space staff-space)