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 "O For A Thousand Tongues" }
18 % composer = \markup { \override #'(font-family . sans) \fontsize #1.3 "" }
19 arranger = \markup { \override #'(font-family . sans) \fontsize #1.3 "arr. Ed Smart" }
20 tagline = $(string-append "Engraved by JLH and Lilypond " (lilypond-version))
28 LeadVox = \relative c'
30 % \set Voice.autoBeaming = ##f
31 % \set Staff.instrument = #"Lead vox"
34 \override Staff.TimeSignature #'style = #'()
36 \override Score.SpacingSpanner #'average-spacing-wishes = ##f
53 \mark \markup { \override #'(font-family . sans) { \box { A } } }
60 f8 d d4 f8 ( d ) | % 14
77 r2 c4 \oneVoice \bar "||" % 21
81 \mark \markup { \override #'(font-family . sans) { \box { B } } }
88 f8 d d4 f8 ( d ) | % 27
89 c8 f f4 g \bar "||" % 28
97 r2 d4 \oneVoice \bar "||" % 32
101 \mark \markup { \override #'(font-family . sans) { \box { C } } }
108 g8 e e4 g8 ( e ) | % 27
109 d8 g g4 a \bar "||" % 28
113 \voiceTwo g2.^\markup { \hspace #0.0 \raise #3.0 \italic { Play figure throughout D } } | % 40
116 r2 d4 \oneVoice | % 43
120 \mark \markup { \override #'(font-family . sans) { \box { D } } }
122 g8 g16 a ( ~ a4. g8 ) | % 44
126 g8 g16 a ( ~ a4. g8 ) | % 48
129 g2^\fermata d4 | % 51
133 LeadVoxText = \lyricmode
135 O for a thou -- sand tongues to sing
136 my great re -- dee -- mer’s praise;
137 The glo -- ries of my God and king,
138 the __ _ tri -- umphs of his grace.
142 Je -- sus the name that charms our fears
143 that bids our sor -- rows cease;
144 ’Tis mu- sic in the sin -- ner’s ears,
145 ’Tis __ _ life and health and peace.
147 He breaks the power of can -- celled sin
148 he sets the pris’ -- ner free;
149 His blood can make the foul -- est clean,
150 his __ _ blood a -- vailed for me.
152 O for a thou -- __ _ _ sand tongues to sing
153 O for a thou -- __ _ _ sand tongues to sing
157 LeadVoxTextB = \lyricmode
159 _ gra -- cious mas -- ter and my God
160 a -- ssist me to pro -- claim;
161 To spread through all the earth a -- broad
162 the __ _ ho -- nors of thy name.
166 Riffs = \relative c''
170 \override Staff.TimeSignature #'style = #'()
172 \override Score.SpacingSpanner #'average-spacing-wishes = ##f
177 \repeat "percent" 3 % 1 - 6
179 << { \tiny f16 c f, <f' f,> ~ <f f,> f, c' f f8 e } \\ { \tiny f,,2 c'4 } >> | % 1
180 << { \tiny f'16 c f, <f' f,> ~ <f f,> f, c' f f8 e } \\ { \tiny bf,2 c4 } >> | % 2
182 << s2. \\ { \tiny d2 c4 } >> | % 7
183 << s2. \\ { \tiny bf2. } >> | % 8
188 \repeat "percent" 6 { f''16 c f, <f' f,> ~ <f f,> f, c' f f8 e | } % 16-21
194 \repeat "percent" 2 { f16 c f, f' ~ f f, c' f f8 e | } % 29-30
200 \repeat "percent" 2 { g16 d g, g' ~ g g, d' g g8 fs | } % 31-32
206 \repeat "percent" 4 { g16 d g, g' ~ g g, d' g g8 fs | } % 40-43
218 %Bah, can't we set this globally?
265 ef2:maj9 bf4/c | % 25
307 % Alternate chord changes (2nd verse)
309 ChordsSup = \chordmode
311 %Bah, can't we set this globally?
330 % Use a RhythmicStaff on the chords instead of this?
331 % It almost works, but not quite. Doesn't collapse chords above to single notes...
335 % \set Voice.autoBeaming = ##f
336 % \set Staff.instrument = #"Rhythm"
337 \override Staff.TimeSignature #'style = #'()
339 \override NoteHead #'style = #'slash
350 c4 c c \bar "||:" % 8
378 c4 c c \bar "||" % 21
388 c4 c c \bar "||" % 28
394 c4 c c \bar "||" % 32
399 c8-> c-> c4-> c | % 34
404 c4 c c \bar "||" % 39
422 c4^\fermata c c | % 51
429 s4_\markup { \italic { snare pat. } } s2 | % 1
430 s4_\markup { \italic { simile } } s2 | % 2
432 s4_\markup { \italic { spacy } } s2 | % 22
436 s4_\markup { \italic { Last time } } s2 | % 51
444 % \new Staff = leadStaff { \new Voice = "lead" \LeadVox }
445 \new Staff = leadStaff { << \new Voice = "lead" \LeadVox \new Voice = "riffs" \Riffs >> }
446 \new Lyrics \lyricsto "lead" \LeadVoxText
447 \new Lyrics \lyricsto "lead" \LeadVoxTextB
450 \new ChoirStaff = "Rhythm"
452 \new ChordNames = "chords" \Chords
453 \new ChordNames = "chords2" \ChordsSup
454 \new RhythmicStaff = "chordRhythm" << \StaffC \Dynamics >>
457 \set Score.skipBars = ##t
458 \set Score.melismaBusyProperties = #'()
463 % \context { \Staff \RemoveEmptyStaves }
464 % ragged-last-bottom = ##t
472 #(define fonts (make-pango-font-tree
478 % top-margin = -0.25 \in