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))
13 %Let's bump up the title size and switch to the chord font. :-)
15 title = \markup { \override #'(font-family . sans) \fontsize #3.5 "O For A Thousand Tongues" }
16 % composer = \markup { \override #'(font-family . sans) \fontsize #1.3 "Twila Paris" }
17 arranger = \markup { \override #'(font-family . sans) \fontsize #1.3 "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
51 \mark \markup { \override #'(font-family . sans) { \box { A } } }
58 f8 d d4 f8 ( d ) | % 14
75 r2 c4 \oneVoice \bar "||" % 21
79 \mark \markup { \override #'(font-family . sans) { \box { B } } }
86 f8 d d4 f8 ( d ) | % 27
87 c8 f f4 g \bar "||" % 28
95 r2 d4 \oneVoice \bar "||" % 32
99 \mark \markup { \override #'(font-family . sans) { \box { C } } }
106 g8 e e4 g8 ( e ) | % 27
107 d8 g g4 a \bar "||" % 28
111 \voiceTwo g2.^\markup { \hspace #0.0 \raise #3.0 \italic { Play figure throughout D } } | % 40
114 r2 d4 \oneVoice | % 43
118 \mark \markup { \override #'(font-family . sans) { \box { D } } }
120 g8 g16 a ( ~ a4. g8 ) | % 44
124 g8 g16 a ( ~ a4. g8 ) | % 48
127 g2^\fermata d4 | % 51
131 LeadVoxText = \lyricmode
133 O for a thou- sand tongues to sing
134 my great re- dee- mer's praise;
135 The glo- ries of my God and king,
136 the __ _ tri- umphs of his grace.
140 Je- sus the name that charms our fears
141 that bids our sor- rows cease;
142 'Tis mu- sic in the sin- ner's ears,
143 'Tis __ _ life and health and peace.
145 He breaks the power of can- celled sin
146 he sets the pris'- ner free;
147 His blood can make the foul- est clean,
148 his __ _ blood a- vailed for me.
150 O for a thou- __ _ _ sand tongues to sing
151 O for a thou- __ _ _ sand tongues to sing
155 LeadVoxTextB = \lyricmode
157 _ gra- cious mas- ter and my God
158 a- ssist me to pro- claim;
159 To spread through all the earth a- broad
160 the __ _ ho- nors of thy name.
164 Riffs = \relative c''
168 \override Staff.TimeSignature #'style = #'()
170 \override Score.SpacingSpanner #'average-spacing-wishes = ##f
175 \repeat "percent" 3 % 1 - 6
177 << { \tiny f16 c f, <f' f,> ~ <f f,> f, c' f f8 e } \\ { \tiny f,,2 c'4 } >> | % 1
178 << { \tiny f'16 c f, <f' f,> ~ <f f,> f, c' f f8 e } \\ { \tiny bf,2 c4 } >> | % 2
180 << s2. \\ { \tiny d2 c4 } >> | % 7
181 << s2. \\ { \tiny bf2. } >> | % 8
186 \repeat "percent" 6 { f''16 c f, <f' f,> ~ <f f,> f, c' f f8 e | } % 16-21
192 \repeat "percent" 2 { f16 c f, f' ~ f f, c' f f8 e | } % 29-30
198 \repeat "percent" 2 { g16 d g, g' ~ g g, d' g g8 fs | } % 31-32
204 \repeat "percent" 4 { g16 d g, g' ~ g g, d' g g8 fs | } % 40-43
216 %Bah, can't we set this globally?
263 ef2:maj9 bf4/c | % 25
305 % Alternate chord changes (2nd verse)
307 ChordsSup = \chordmode
309 %Bah, can't we set this globally?
328 % Use a RhythmicStaff on the chords instead of this?
329 % It almost works, but not quite. Doesn't collapse chords above to single notes...
333 % \set Voice.autoBeaming = ##f
334 % \set Staff.instrumentName = #"Rhythm"
335 \override Staff.TimeSignature #'style = #'()
337 \override NoteHead #'style = #'slash
348 c4 c c \bar "||:" % 8
376 c4 c c \bar "||" % 21
386 c4 c c \bar "||" % 28
392 c4 c c \bar "||" % 32
397 c8-> c-> c4-> c | % 34
402 c4 c c \bar "||" % 39
420 c4^\fermata c c | % 51
427 s4_\markup { \italic { snare pat. } } s2 | % 1
428 s4_\markup { \italic { simile } } s2 | % 2
430 s4_\markup { \italic { spacy } } s2 | % 22
434 s4_\markup { \italic { Last time } } s2 | % 51
442 % \new Staff = leadStaff { \new Voice = "lead" \LeadVox }
443 \new Staff = leadStaff { << \new Voice = "lead" \LeadVox \new Voice = "riffs" \Riffs >> }
444 \new Lyrics \lyricsto "lead" \LeadVoxText
445 \new Lyrics \lyricsto "lead" \LeadVoxTextB
448 \new ChoirStaff = "Rhythm"
450 \new ChordNames = "chords" \Chords
451 \new ChordNames = "chords2" \ChordsSup
452 \new RhythmicStaff = "chordRhythm" << \StaffC \Dynamics >>
455 \set Score.skipBars = ##t
456 \set Score.melismaBusyProperties = #'()
461 % \context { \Staff \RemoveEmptyStaves }
462 % ragged-last-bottom = ##t
470 #(define fonts (make-pango-font-tree
476 % top-margin = -0.25 \in