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 title = \markup { \override #'(font-family . sans) \fontsize #3.5 "Come Thou Fount Of Every Blessing" }
16 % composer = \markup { \override #'(font-family . sans) \fontsize #1.3 "" }
17 arranger = \markup { \override #'(font-family . sans) \fontsize #1.3 "arr. Roger Freeland" }
18 tagline = $(string-append "Engraved by JLH and Lilypond " (lilypond-version))
25 LeadVox = \relative c'
34 \partial 4*1 s4 | % pickup
41 s2 fs8 e \bar "||" % 4
52 d2 a'8 b16 ( cs ) | % 12
54 b8 a fs4 a8 b16 ( cs ) | % 14
79 LeadVoxText = \lyricmode
81 Come thou fount of ev -- ery bless -- ing
82 tune my heart to sing thy grace;
83 Streams of mer -- cy nev -- er ceas -- ing
84 call for songs of loud -- est praise.
85 Teach me _ some me -- lo -- dious son -- _ net
86 sung by _ fla -- ming tongues a -- bove;
87 Praise the mount! I’m fixed u -- pon it,
88 mount of thy re -- deem -- ing love.
91 LeadVoxTextB = \lyricmode
93 This my glad com -- mem -- o -- ra -- tion
94 that ’til now I’ve safe -- ly come;
95 And I hope, by thy good pleas -- ure,
96 safe -- ly to ar -- rive at home.
97 Je -- sus _ sought me when a stran -- _ ger,
98 Wan -- dering _ from the fold of God;
99 He to res -- cue me from dan -- ger,
100 in -- ter -- posed his pre -- cious blood.
103 LeadVoxTextC = \lyricmode
105 O to grace how great a debt -- or
106 dai -- ly I’m con -- strained to be!
107 Let thy good -- ness, like a fet -- ter,
108 bind my wan -- dering heart to thee:
109 Prone to _ wan -- der, Lord, I feel _ it,
110 Prone to _ leave the God I love:
111 Here’s my heart, O take and seal it,
112 seal it for thy courts a -- _ bove.
120 \partial 4*1 \tiny fs8 e | % partial
207 % Use a RhythmicStaff on the chords instead of this?
208 % It almost works, but not quite. Doesn't collapse chords above to single notes...
212 \numericTimeSignature
214 \override NoteHead #'style = #'slash
219 \partial 4*1 s4 | % pickup
268 s4_\markup { \italic { snare pat. } } s2 | % 1
269 s4_\markup { \italic { simile } } s2 | % 2
271 s4_\markup { \italic { spacy } } s2 | % 22
275 s4_\markup { \italic { Last time } } s2 | % 51
285 \new Voice = "lead" \LeadVox
286 \new Voice = "riffs" \Riffs
287 \new Lyrics \lyricsto "lead" \LeadVoxText
288 \new Lyrics \lyricsto "lead" \LeadVoxTextB
289 \new Lyrics \lyricsto "lead" \LeadVoxTextC
294 \new ChordNames \Chords
295 \new RhythmicStaff << \StaffC \Dynamics >>
298 \set Score.skipBars = ##t
299 \set Score.melismaBusyProperties = #'()
306 #(define fonts (make-pango-font-tree
312 % Don't spread staves vertically across last page (default: t)
313 % ragged-last-bottom = ##f
314 % Don't spread staves vertically across the page (default: f)
315 % ragged-bottom = ##t
316 % Allow partial line for last stave (default: f)
319 % To find out what's eating the space at the top...
320 % annotate-spacing = ##t