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)
36 LeadVox = \relative c'
38 % \set Voice.autoBeaming = ##f
39 % \set Staff.instrument = #"Lead vox"
42 \override Staff.TimeSignature #'style = #'()
44 \override Score.SpacingSpanner #'average-spacing-wishes = ##f
50 R1^\markup { Half-time soul feel } | % 1
70 \mark \markup { \override #'(font-family . sans) { \box { A } } }
77 r4 a a8 g fs g ~ | % 12
79 r2 e8 d c4 \bar "||" % 14
81 \mark \markup { \override #'(font-family . sans) { \box { A9 } } }
90 r2 <g' \hn d \hn c>8 <g \hn d \hn c> <g \hn d \hn c>4 \bar "||" % 22
94 \mark \markup { \override #'(font-family . sans) { \box { B } } }
96 <c \hn g \hn e>4. <g \hn e \hn c>8 ~ <g \hn e \hn c>2 | % 23
97 r2 <a \hn f \hn c>8 <g \hn e \hn c> <a \hn f \hn c>4 | % 24
98 <g \hn e \hn c>2. r4 | % 25
99 r2 <g \hn e \hn c>8 <g \hn e \hn c> <g \hn e \hn c>4 | % 26
100 <a \hn e \hn c>4. <c \hn g \hn e>8 ~ <c \hn g \hn e>2 ~ | % 27
101 <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
102 <b \hn g \hn d>2. r4 | % 29
103 r2 <b \hn g \hn d>8 <c \hn g \hn e> <d \hn g, \hn f>4 | % 30
105 <c \hn g \hn e>4. <g \hn e \hn c>8 ~ <g \hn e \hn c>2 | % 31
106 r2 <a \hn f \hn c>8 <g \hn e \hn c> <a \hn f \hn c>4 | % 32
107 <g \hn d \hn b>1 | % 33
110 r2 c8 d b4 \bar "||" % 36
126 r2 fs8 e d4 \bar "||" % 42
132 \mark \markup { \override #'(font-family . sans) { \box { C } } }
139 r4. b8 b a gs a ~ | % 48
141 r2 fs8 e d4 \bar "||" % 50
143 \mark \markup { \override #'(font-family . sans) { \box { C9 } } }
152 r2 <a' \hn e \hn d>8 <a \hn e \hn d> <a \hn e \hn d>4 | % 58
158 \mark \markup { \override #'(font-family . sans) { \box { D } } }
160 <d \hn a \hn fs>4. <a \hn fs \hn d>8 ~ <a \hn fs \hn d>2 | % 59
161 r2 <b \hn g \hn d>8 <a \hn fs \hn d> <b \hn g \hn d>4 | % 60
162 <a \hn fs \hn d>2. r4 | % 61
163 r2 <a \hn fs \hn d>8 <a \hn fs \hn d> <a \hn fs \hn d>4 | % 62
164 <b \hn fs \hn d>4. <d \hn a \hn fs>8 ~ <d \hn a \hn fs>2 ~ | % 63
165 <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
166 <cs \hn a \hn e>2. r4 | % 65
168 r2 <cs \hn a \hn e>8 <d \hn a \hn fs> <e \hn a, \hn g>4 | % 66
169 <d \hn a \hn fs>4. <a \hn fs \hn d>8 ~ <a \hn fs \hn d>2 | % 67
170 r2 <b \hn g \hn d>8 <a \hn fs \hn d> <b \hn g \hn d>4 | % 68
171 <a \hn e \hn cs>1 | % 69
197 \mark \markup { \override #'(font-family . sans) { \box { E } } }
205 r1^\fermata \bar "|." % 85
208 LeadVoxText = \lyricmode
210 Bless -- ed as -- sur -- ance, _ Je -- sus is mine!
211 O what a fore -- taste _ of glo -- ry di -- vine; _
212 Heir of sal -- va -- tion, _ pur -- chase of God,
213 born of his spi -- rit, _ washed in his blood.
215 This is my sto -- ry, _ this is my song,
216 prais -- ing my sa -- vior, __ _ _ all the day long; _
217 This is my sto -- ry, _ this is my song,
218 prais -- ing my sa -- vior, _ all the day long.
222 Per -- fect sub -- mis -- sion, _ all is at rest,
223 I in my sav -- ior _ am hap -- py and blest; _
224 Watch -- ing and wai -- ting, _ look -- ing a -- bove,
225 filled with his good -- ness, _ lost in his love.
227 This is my sto -- ry, _ this is my song,
228 prais -- ing my sa -- vior, __ _ _ all the day long; _
229 This is my sto -- ry, _ this is my song,
230 prais -- ing my sa -- vior, _ all the day long.
233 sav -- ior, _ all the day long;
234 prais -- ing my sa -- vior, _ all the day long.
237 LeadVoxTextB = \lyricmode
240 mis -- sion, _ per -- fect de -- light,
241 vi -- sions of rap -- ture _ now burst on my sight; _
242 An -- gels de -- scend -- ing _ bring from a -- bove
243 e -- choes of mer -- cy. _ whis -- pers of love.
253 %Bah, can't we set this globally?
260 c2..:maj7 bf8:sus4.7 | % 1
266 c2..:maj7 bf8:sus4.7 | % 3
270 c2..:maj7 f8:/g | % 5
280 c2..:maj7 d8:m7 | % 7
284 a4.:m a2:m7+ d8:sus4.7 | % 11
289 c2..:maj7 d8:m7 | % 15
302 c2..:sus2/e c8 | % 25
304 a2..:m7 d8:sus4.7 | % 27
309 c2..:maj7 d8:m7 | % 31
311 e2..:m7 a8:7.9- | % 33
316 c2..:maj7 bf8:sus4.7 | % 37
322 c2..:maj7 f8/g | % 39
326 c2..:maj7 g8/a | % 41
334 d2..:maj7 e8:m7 | % 43
338 b2..:m7 e8:sus4 | % 47
343 d2..:maj7 e8:m7 | % 51
345 fs2..:m7 b8:m7 | % 53
360 b2..:m7 e8:sus4 | % 63
367 fs2..:m7 b8:7.9- | % 69
384 c2..:sus4.7 c8:7 | % 77
393 d2..:maj7 c8:sus4.7 | % 81
395 d2..:maj7 c8:sus4.7 | % 83
407 % Use a RhythmicStaff on the chords instead of this?
408 % It almost works, but not quite. Doesn't collapse chords above to single notes...
412 % \set Voice.autoBeaming = ##f
413 % \set Staff.instrument = #"Rhythm"
414 \override Staff.TimeSignature #'style = #'()
416 \override NoteHead #'style = #'slash
432 c2 c4-> r8 c-> ~ | % 5
446 c4. c8 ~ c4. c8 ~ | % 11
449 c2 c4 c \bar "||" % 14
457 c4 c c r8 c-> ~ | % 21
458 c4 c c c \bar "||" % 22
464 c4 c c r8 c-> ~ | % 25
466 c4. c8 ~ c4. c8 ~ | % 27
475 c4 c c r8 c-> ~ | % 35
478 c2 c4-> r8 c ~ | % 37
484 c2 c4-> r8 c ~ | % 39
488 c2 c4-> r8 c ~ | % 41
492 c4. c8 ~ c4 c \bar "||" % 42
502 c2. ~ c8 c-> ~ | % 49
503 c2 c4 c \bar "||" % 50
511 c4 c c r8 c-> ~ | % 57
512 c8 c c c c c c c | % 58
537 c4 c c r8 c-> ~ | % 73
538 c8 c c c c c c c | % 74
555 c2 c4-> r8 c ~ | % 81
557 c2 c4-> r8 c ~ | % 83
561 c1^\fermata \bar "|." % 85
569 s2 s4_\markup { \italic { drum fill } } s | % 6
571 s4 s \< s s \! | % 22
573 s2 s_\markup { \italic { drum fill } } | % 40
576 s8 \f s s4_\markup { \hspace #0.0 \raise #-2.0 \italic { floating } } s2 | % 43
579 s4_\markup { \italic { orig. groove } } s2. | % 51
581 s2 s8 \< s4 s8 \! | % 58
582 s4_\markup { \italic { snare 2&4 } } s2. | % 59
584 s2 s8 \< s4 s8 \! | % 74
587 s4_\markup { \hspace #0.0 \raise #-2.0 \italic { orig. half-time groove } } s2. | % 81
589 s2 s4_\markup { \hspace #0.0 \raise #-2.0 \italic { last X rit. } } s | % 84
597 s4 \< s s \! s | % 28
599 s4 \< s s \! s | % 33
601 s2 s2_\markup { \italic { rit. } } | % 57
610 \new Staff = leadStaff { << \new Voice = "lead" \LeadVox >> }
611 \new Lyrics \lyricsto "lead" \LeadVoxText
612 \new Lyrics \lyricsto "lead" \LeadVoxTextB
615 \new ChoirStaff = "Rhythm"
617 \new ChordNames = "chords" \Chords
618 \new RhythmicStaff = "chordRhythm" << \StaffC \Dynamics >>
621 \set Score.skipBars = ##t
622 \set Score.melismaBusyProperties = #'()
629 #(define fonts (make-pango-font-tree
635 % Spread staves vertically across last page (default: t)
636 % ragged-last-bottom = ##f
637 % Don't spread staves vertically across the page (default: f)
638 % ragged-bottom = ##t
639 % Allow partial line for last stave (default: f)
642 % To find out what's eating the space at the top...
643 % annotate-spacing = ##t
644 %let's try this: [It works! Huzzah!][nope :-P]
645 % obsolete-page-top-space = 0 top-system-spacing #'basic-distance = #(/ obsolete-page-top-space staff-space)