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 "Blessed Assurance, Jesus Is Mine" }
18 composer = \markup { \override #'(font-family . sans) \fontsize #1.3 "Fanny J. Crosby/Phoebe P. Knapp" }
19 arranger = \markup { \override #'(font-family . sans) \fontsize #1.3 "arr. Ed Smart" }
20 tagline = $(string-append "Engraved by JLH and Lilypond " (lilypond-version))
23 % Useful tweak abbreviations (hn = harmony note)
25 hn = #(define-music-function (parser location arg) (ly:music?)
26 ;; Harmony Note: Set the tweaks property of the passed in note to use a smaller font
28 (set! (ly:music-property arg 'tweaks)
29 (acons 'font-size -3.5 (ly:music-property arg 'tweaks))) arg)
35 LeadVox = \relative c'
41 \override Score.SpacingSpanner #'average-spacing-wishes = ##f
47 R1^\markup { Half-time soul feel } | % 1
67 \mark \markup { \override #'(font-family . sans) { \box { A } } }
74 r4 a a8 g fs g ~ | % 12
76 r2 e8 d c4 \bar "||" % 14
78 \mark \markup { \override #'(font-family . sans) { \box { A9 } } }
87 r2 <g' \hn d \hn c>8 <g \hn d \hn c> <g \hn d \hn c>4 \bar "||" % 22
91 \mark \markup { \override #'(font-family . sans) { \box { B } } }
93 <c \hn g \hn e>4. <g \hn e \hn c>8 ~ <g \hn e \hn c>2 | % 23
94 r2 <a \hn f \hn c>8 <g \hn e \hn c> <a \hn f \hn c>4 | % 24
95 <g \hn e \hn c>2. r4 | % 25
96 r2 <g \hn e \hn c>8 <g \hn e \hn c> <g \hn e \hn c>4 | % 26
97 <a \hn e \hn c>4. <c \hn g \hn e>8 ~ <c \hn g \hn e>2 ~ | % 27
98 <c \hn g \hn e>2 <b \hn fs \hn d>8 <b \hn fs \hn d> <a \hn fs \hn c> <b \hn g \hn d> ~ | % 28
99 <b \hn g \hn d>2. r4 | % 29
100 r2 <b \hn g \hn d>8 <c \hn g \hn e> <d \hn g, \hn f>4 | % 30
102 <c \hn g \hn e>4. <g \hn e \hn c>8 ~ <g \hn e \hn c>2 | % 31
103 r2 <a \hn f \hn c>8 <g \hn e \hn c> <a \hn f \hn c>4 | % 32
104 <g \hn d \hn b>1 | % 33
107 r2 c8 d b4 \bar "||" % 36
123 r2 fs8 e d4 \bar "||" % 42
129 \mark \markup { \override #'(font-family . sans) { \box { C } } }
136 r4. b8 b a gs a ~ | % 48
138 r2 fs8 e d4 \bar "||" % 50
140 \mark \markup { \override #'(font-family . sans) { \box { C9 } } }
149 r2 <a' \hn e \hn d>8 <a \hn e \hn d> <a \hn e \hn d>4 | % 58
155 \mark \markup { \override #'(font-family . sans) { \box { D } } }
157 <d \hn a \hn fs>4. <a \hn fs \hn d>8 ~ <a \hn fs \hn d>2 | % 59
158 r2 <b \hn g \hn d>8 <a \hn fs \hn d> <b \hn g \hn d>4 | % 60
159 <a \hn fs \hn d>2. r4 | % 61
160 r2 <a \hn fs \hn d>8 <a \hn fs \hn d> <a \hn fs \hn d>4 | % 62
161 <b \hn fs \hn d>4. <d \hn a \hn fs>8 ~ <d \hn a \hn fs>2 ~ | % 63
162 <d \hn a \hn fs>2 <cs \hn gs \hn e>8 <cs \hn gs \hn e> <b \hn gs \hn d> <cs \hn a \hn e> ~ | % 64
163 <cs \hn a \hn e>2. r4 | % 65
165 r2 <cs \hn a \hn e>8 <d \hn a \hn fs> <e \hn a, \hn g>4 | % 66
166 <d \hn a \hn fs>4. <a \hn fs \hn d>8 ~ <a \hn fs \hn d>2 | % 67
167 r2 <b \hn g \hn d>8 <a \hn fs \hn d> <b \hn g \hn d>4 | % 68
168 <a \hn e \hn cs>1 | % 69
194 \mark \markup { \override #'(font-family . sans) { \box { E } } }
202 r1^\fermata \bar "|." % 85
205 LeadVoxText = \lyricmode
207 Bless -- ed as -- sur -- ance, _ Je -- sus is mine!
208 O what a fore -- taste _ of glo -- ry di -- vine; _
209 Heir of sal -- va -- tion, _ pur -- chase of God,
210 born of his spi -- rit, _ washed in his blood.
212 This is my sto -- ry, _ this is my song,
213 prais -- ing my sa -- vior, __ _ _ all the day long; _
214 This is my sto -- ry, _ this is my song,
215 prais -- ing my sa -- vior, _ all the day long.
219 Per -- fect sub -- mis -- sion, _ all is at rest,
220 I in my sav -- ior _ am hap -- py and blest; _
221 Watch -- ing and wai -- ting, _ look -- ing a -- bove,
222 filled with his good -- ness, _ lost in his love.
224 This is my sto -- ry, _ this is my song,
225 prais -- ing my sa -- vior, __ _ _ all the day long; _
226 This is my sto -- ry, _ this is my song,
227 prais -- ing my sa -- vior, _ all the day long.
230 sav -- ior, _ all the day long;
231 prais -- ing my sa -- vior, _ all the day long.
234 LeadVoxTextB = \lyricmode
237 mis -- sion, _ per -- fect de -- light,
238 vi -- sions of rap -- ture _ now burst on my sight; _
239 An -- gels de -- scend -- ing _ bring from a -- bove
240 e -- choes of mer -- cy. _ whis -- pers of love.
250 %Bah, can't we set this globally?
257 c2..:maj7 bf8:sus4.7 | % 1
263 c2..:maj7 bf8:sus4.7 | % 3
267 c2..:maj7 f8:/g | % 5
277 c2..:maj7 d8:m7 | % 7
281 a4.:m a2:m7+ d8:sus4.7 | % 11
286 c2..:maj7 d8:m7 | % 15
299 c2..:sus2/e c8 | % 25
301 a2..:m7 d8:sus4.7 | % 27
306 c2..:maj7 d8:m7 | % 31
308 e2..:m7 a8:7.9- | % 33
313 c2..:maj7 bf8:sus4.7 | % 37
319 c2..:maj7 f8/g | % 39
323 c2..:maj7 g8/a | % 41
331 d2..:maj7 e8:m7 | % 43
335 b2..:m7 e8:sus4 | % 47
340 d2..:maj7 e8:m7 | % 51
342 fs2..:m7 b8:m7 | % 53
357 b2..:m7 e8:sus4 | % 63
364 fs2..:m7 b8:7.9- | % 69
381 c2..:sus4.7 c8:7 | % 77
390 d2..:maj7 c8:sus4.7 | % 81
392 d2..:maj7 c8:sus4.7 | % 83
404 % Use a RhythmicStaff on the chords instead of this?
405 % It almost works, but not quite. Doesn't collapse chords above to single notes...
409 \numericTimeSignature
411 \override NoteHead #'style = #'slash
428 c2 c4-> r8 c-> ~ | % 5
442 c4. c8 ~ c4. c8 ~ | % 11
445 c2 c4 c \bar "||" % 14
453 c4 c c r8 c-> ~ | % 21
454 c4 c c c \bar "||" % 22
460 c4 c c r8 c-> ~ | % 25
462 c4. c8 ~ c4. c8 ~ | % 27
471 c4 c c r8 c-> ~ | % 35
474 c2 c4-> r8 c ~ | % 37
480 c2 c4-> r8 c ~ | % 39
484 c2 c4-> r8 c ~ | % 41
488 c4. c8 ~ c4 c \bar "||" % 42
498 c2. ~ c8 c-> ~ | % 49
499 c2 c4 c \bar "||" % 50
507 c4 c c r8 c-> ~ | % 57
508 c8 c c c c c c c | % 58
533 c4 c c r8 c-> ~ | % 73
534 c8 c c c c c c c | % 74
551 c2 c4-> r8 c ~ | % 81
553 c2 c4-> r8 c ~ | % 83
557 c1^\fermata \bar "|." % 85
565 s2 s4_\markup { \italic { drum fill } } s | % 6
567 s4 s \< s s \! | % 22
569 s2 s_\markup { \italic { drum fill } } | % 40
572 s8 \f s s4_\markup { \hspace #0.0 \raise #-2.0 \italic { floating } } s2 | % 43
575 s4_\markup { \italic { orig. groove } } s2. | % 51
577 s2 s8 \< s4 s8 \! | % 58
578 s4_\markup { \italic { snare 2&4 } } s2. | % 59
580 s2 s8 \< s4 s8 \! | % 74
583 s4_\markup { \hspace #0.0 \raise #-2.0 \italic { orig. half-time groove } } s2. | % 81
585 s2 s4_\markup { \hspace #0.0 \raise #-2.0 \italic { last X rit. } } s | % 84
594 \new Voice = "lead" \LeadVox
595 \new Lyrics \lyricsto "lead" \LeadVoxText
596 \new Lyrics \lyricsto "lead" \LeadVoxTextB
599 \new ChoirStaff = "Rhythm"
601 \new ChordNames \Chords
602 \new RhythmicStaff << \StaffC \Dynamics >>
605 \set Score.skipBars = ##t
606 \set Score.melismaBusyProperties = #'()
613 #(define fonts (make-pango-font-tree
619 % Spread staves vertically across last page (default: t)
620 % ragged-last-bottom = ##f
621 % Don't spread staves vertically across the page (default: f)
622 % ragged-bottom = ##t
623 % Allow partial line for last stave (default: f)
626 % To find out what's eating the space at the top...
627 % annotate-spacing = ##t