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 "Come Thou Fount Of Every Blessing" }
18 % composer = \markup { \override #'(font-family . sans) \fontsize #1.3 "" }
19 arranger = \markup { \override #'(font-family . sans) \fontsize #1.3 "arr. Roger Freeland" }
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
40 \partial 4*1 s4 | % pickup
47 s2 fs8 e \bar "||" % 4
58 d2 a'8 b16 ( cs ) | % 12
60 b8 a fs4 a8 b16 ( cs ) | % 14
85 LeadVoxText = \lyricmode
87 Come thou fount of ev -- ery bless -- ing
88 tune my heart to sing thy grace;
89 Streams of mer -- cy nev -- er ceas -- ing
90 call for songs of loud -- est praise.
91 Teach me _ some me -- lo -- dious son -- _ net
92 sung by _ fla -- ming tongues a -- bove;
93 Praise the mount! I’m fixed u -- pon it,
94 mount of thy re -- deem -- ing love.
97 LeadVoxTextB = \lyricmode
99 This my glad com -- mem -- o -- ra -- tion
100 that ’til now I’ve safe -- ly come;
101 And I hope, by thy good pleas -- ure,
102 safe -- ly to ar -- rive at home.
103 Je -- sus _ sought me when a stran -- _ ger,
104 Wan -- dering _ from the fold of God;
105 He to res -- cue me from dan -- ger,
106 in -- ter -- posed his pre -- cious blood.
109 LeadVoxTextC = \lyricmode
111 O to grace how great a debt -- or
112 dai -- ly I’m con -- strained to be!
113 Let thy good -- ness, like a fet -- ter,
114 bind my wan -- dering heart to thee:
115 Prone to _ wan -- der, Lord, I feel _ it,
116 Prone to _ leave the God I love:
117 Here’s my heart, O take and seal it,
118 seal it for thy courts a -- _ bove.
126 \override Staff.TimeSignature #'style = #'()
128 \override Score.SpacingSpanner #'average-spacing-wishes = ##f
132 \partial 4*1 \tiny fs8 e | % partial
162 \repeat "percent" 3 % 1 - 6
164 << { \tiny f16 c f, <f' f,> ~ <f f,> f, c' f f8 e } \\ { \tiny f,,2 c'4 } >> | % 1
165 << { \tiny f'16 c f, <f' f,> ~ <f f,> f, c' f f8 e } \\ { \tiny bf,2 c4 } >> | % 2
167 << s2. \\ { \tiny d2 c4 } >> | % 7
168 << s2. \\ { \tiny bf2. } >> | % 8
173 \repeat "percent" 6 { f''16 c f, <f' f,> ~ <f f,> f, c' f f8 e | } % 16-21
179 \repeat "percent" 2 { f16 c f, f' ~ f f, c' f f8 e | } % 29-30
185 \repeat "percent" 2 { g16 d g, g' ~ g g, d' g g8 fs | } % 31-32
191 \repeat "percent" 4 { g16 d g, g' ~ g g, d' g g8 fs | } % 40-43
204 %Bah, can't we set this globally?
259 % Use a RhythmicStaff on the chords instead of this?
260 % It almost works, but not quite. Doesn't collapse chords above to single notes...
264 % \set Voice.autoBeaming = ##f
265 % \set Staff.instrument = #"Rhythm"
266 \override Staff.TimeSignature #'style = #'()
268 \override NoteHead #'style = #'slash
272 \partial 4*1 s4 | % pickup
321 s4_\markup { \italic { snare pat. } } s2 | % 1
322 s4_\markup { \italic { simile } } s2 | % 2
324 s4_\markup { \italic { spacy } } s2 | % 22
328 s4_\markup { \italic { Last time } } s2 | % 51
337 % \new Staff = leadStaff { \new Voice = "lead" \LeadVox }
338 \new Staff = leadStaff { << \new Voice = "lead" \LeadVox \new Voice = "riffs" \Riffs >> }
339 \new Lyrics \lyricsto "lead" \LeadVoxText
340 \new Lyrics \lyricsto "lead" \LeadVoxTextB
341 \new Lyrics \lyricsto "lead" \LeadVoxTextC
344 \new ChoirStaff = "Rhythm"
346 \new ChordNames = "chords" \Chords
347 \new RhythmicStaff = "chordRhythm" << \StaffC \Dynamics >>
350 \set Score.skipBars = ##t
351 \set Score.melismaBusyProperties = #'()
356 % \context { \Staff \RemoveEmptyStaves }
357 % ragged-last-bottom = ##t
365 #(define fonts (make-pango-font-tree
371 % top-margin = -0.25 \in