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))
13 %Let's bump up the title size and switch to the chord font. :-)
15 title = \markup { \override #'(font-family . sans) \fontsize #3.5 "Leaning On The Everlasting Arms" }
16 % title = \markup { \override #'(font-name . "DomCasual BT")
17 % composer = \markup { \override #'(font-family . sans) \fontsize #1.3 "" }
18 arranger = \markup { \override #'(font-family . sans) \fontsize #1.3 "arr. Ed Smart" }
19 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.0 (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
64 \once \override Score.RehearsalMark #'self-alignment-X = #left
65 \mark \markup { \override #'(font-family . sans) { \box { A } } \italic { 1st X unison } }
67 <b \hn d,>4 <b \hn d,> <b \hn d,>8 <a \hn c,> <g \hn b,>4 | % 5
68 <a \hn c,>4 <a \hn c,> <a \hn c,>8 <g \hn c,> <e \hn a,>4 | % 6
69 <d \hn b>4 <d \hn b> <g \hn b,>8 <fs \hn a,> <g \hn b,> <a \hn c,> | % 7
70 <b \hn d,>8. <b \hn d,>16 ~ <b \hn d,>8 <a \hn d,>8 ~ <a \hn d,>2 | % 8
71 <b \hn d,>4 <b \hn d,> <b \hn d,>8 <a \hn c,> <g \hn b,>4 | % 9
72 <a \hn c,>4 <a \hn c,> <a \hn c,>8 <g \hn c,> <e \hn a,>4 | % 10
73 <d \hn b>4 <d \hn b> <g \hn c,>8 <fs \hn c> <g \hn c,> <a \hn c,> | % 7
74 <b \hn d,>8. <a \hn d,>16 ~ <a \hn d,>8 <g \hn b,> r2 \bar "||" % 12
78 \mark \markup { \override #'(font-family . sans) { \box { B } } }
80 <b \hn g \hn d>4. ~ <b \hn g \hn d>16 <g \hn d \hn b> ~ <g \hn d \hn b>2 | % 13
81 <g \hn e \hn c>4. ~ <g \hn e \hn c>16 <e \hn c \hn a> ~ <e \hn c \hn a>2 | % 14
82 <d \hn b>4 <g \hn b,>8 <fs \hn a,> <g \hn b,>4 <a \hn c,> | % 15
83 <b \hn cs,>8. <b \hn cs,>16 ~ <b \hn cs,>8 <a \hn d,> ~ <a \hn d,>4 r | % 16
84 <b \hn g \hn d>4. ~ <b \hn g \hn d>16 <g \hn d \hn b> ~ <g \hn d \hn b>2 | % 17
85 <g \hn e \hn c>4. ~ <g \hn e \hn c>16 <e \hn c \hn a' \hn c> ~ <e \hn c \hn a' \hn c>2 | % 18
86 <d \hn g \hn b>4 <d \hn g \hn b> <g \hn e \hn c>8 <fs \hn d \hn c> <g \hn e \hn c> <a \hn fs \hn c> | % 19
87 \time 2/4 <b \hn g \hn d>8. <a \hn fs \hn d>16 ~ <a \hn fs \hn d>8 <g \hn g,> ~ \time 4/4 | % 20
89 <g \hn g,>4 r r2 | % 21
115 \once \override Score.RehearsalMark #'self-alignment-X = #left
116 \mark \markup { \override #'(font-family . sans) { \box { C } } \italic { bass & drums only } }
118 cs4 cs cs8 b a4 | % 29
120 e4 e a8 gs a b | % 31
121 cs8. cs16 ~ cs8 b ~ b2 | % 32
123 \once \override Score.RehearsalMark #'self-alignment-X = #left
124 \mark \markup { \italic { full band } }
126 <cs \hn e,>4 <cs \hn e,> <cs \hn e,>8 <b \hn d,> <a \hn cs,>4 | % 33
127 <b \hn d,>4 <b \hn d,> <b \hn d,>8 <a \hn d,> <fs \hn b,>4 | % 34
128 <e \hn cs>4 <e \hn cs> <a \hn fs \hn d>8 <gs \hn e \hn d> <a \hn fs \hn d> <b \hn gs \hn d> | % 35
129 <cs \hn a \hn e>8. <b \hn gs \hn e>16 ~ <b \hn gs \hn e>8 <a \hn e \hn cs> r2 | % 36
135 \mark \markup { \override #'(font-family . sans) { \box { D } } }
137 <cs \hn a \hn e>4. ~ <cs \hn a \hn e>16 <a \hn e \hn cs> ~ <a \hn e \hn cs>2 | % 37
138 <a \hn fs \hn d>4. ~ <a \hn fs \hn d>16 <fs \hn d \hn b> ~ <fs \hn d \hn b>2 | % 38
139 <e \hn cs>4 <a \hn cs,>8 <gs \hn b,> <a \hn cs,>4 <b \hn d,> | % 39
140 <cs \hn ds,>8. <cs \hn ds,>16 ~ <cs \hn ds,>8 <b \hn e,> ~ <b \hn e,>4 r | % 40
141 <cs \hn a \hn e>4. ~ <cs \hn a \hn e>16 <a \hn e \hn cs> ~ <a \hn e \hn cs>2 | % 41
142 <a \hn fs \hn d>4. ~ <a \hn fs \hn d>16 <fs \hn d \hn b' \hn d> ~ <fs \hn d \hn b' \hn d>2 | % 42
143 <e \hn a \hn cs>4 <e \hn a \hn cs> <a \hn fs \hn d \hn d'>8 <gs \hn e \hn d \hn d'> <a \hn fs \hn d \hn d'> <b \hn gs \hn d \hn d'> | % 43
144 <cs \hn a \hn e \hn e'>8. <b \hn gs \hn e \hn d'>16 ~<b \hn gs \hn e \hn d'>8 <a \hn e \hn cs \hn cs'> ~ <a \hn e \hn cs \hn cs'>4 r | % 44
147 <e \hn a \hn cs>4 <e \hn a \hn cs> <a \hn fs \hn d \hn d'>8 <gs \hn e \hn d \hn d'> <a \hn fs \hn d \hn d'> <b \hn gs \hn d \hn d'> | % 45
148 <cs \hn a \hn e \hn e'>8. <b \hn gs \hn e \hn d'>16 ~<b \hn gs \hn e \hn d'>8 <a \hn e \hn cs \hn cs'> ~ <a \hn e \hn cs \hn cs'>4 r | % 46
149 e4 e a8 gs a b | % 47
150 cs4 b a2^\fermata \bar "|." % 48
153 LeadVoxText = \lyricmode
155 What a fel -- low -- ship, what a joy di -- vine,
156 lean -- ing on the e -- ver -- last -- ing _ arms; _
157 What a bless -- ed -- ness, what a peace is mine,
158 lean -- ing on the e -- ver -- last -- ing _ arms.
160 Lea -- _ ning, _ lea -- _ ning, _
161 safe and se -- cure from all a -- _ larms, _
162 Lea -- _ ning, _ lea -- _ ning, _
163 lean -- ing on the e -- ver -- last -- ing _ arms. _
165 What have I to dread, what have I to fear,
166 lean -- ing on the e -- ver -- last -- ing _ arms; _
167 I have bless -- ed peace with my Lord so dear,
168 lean -- ing on the e -- ver -- last -- ing _ arms.
170 Lea -- _ ning, _ lea -- _ ning, _
171 safe and se -- cure from all a -- _ larms, _
172 Lea -- _ ning, _ lea -- _ ning, _
173 lean -- ing on the e -- ver -- last -- ing _ arms. _
175 Lean -- ing on the e -- ver -- last -- ing _ arms. _
176 Lean -- ing on the e -- ver -- last -- ing arms.
179 LeadVoxTextB = \lyricmode
181 Oh how sweet to walk in this pil -- grim way,
182 lean -- ing on the e -- ver -- last -- ing _ arms; _
183 Oh how bright the path grows from day to day,
184 lean -- ing on the e -- ver -- last -- ing _ arms.
193 \override Staff.TimeSignature #'style = #'()
199 <ef g,>16 d bf f ~ f4 ~ f4. g16 bf | % 1
201 <ef' g,>16 d bf f ~ f4 ~ f4. g16 bf | % 3
209 <ef g,>16 d bf f ~ f4 ~ f4. g16 bf | % 14
213 <ef' g,>16 d bf f ~ f4 ~ f4. g16 bf | % 16
214 c2 <ef, bf af> | % 17
216 <ef' g,>16 d bf f ~ f4 ~ f4. g16 bf | % 18
222 <f a,>16 e c g ~ g4 ~ g4. a16 c | % 31
225 <f a,>16 e c g ~ g4 ~ g4. a16 c | % 33
237 %Bah, can't we set this globally?
265 g4/d d g2 \bar "||" % 12
272 a2:7 d4:sus4 d | % 16
276 \time 2/4 g4/d d \time 4/4 | % 20
318 b2:7 e4:sus4 e | % 40
336 % Use a RhythmicStaff on the chords instead of this?
337 % It almost works, but not quite. Doesn't collapse chords above to single notes...
341 % \set Voice.autoBeaming = ##f
342 % \set Staff.instrument = #"Rhythm"
343 \override Staff.TimeSignature #'style = #'()
345 \override NoteHead #'style = #'slash
372 c4 c c-> r \bar "||" % 12
383 \time 2/4 c4 c \time 4/4 | % 20
386 c8-> c-> r4 r2 | % 22
392 c8-> c-> r4 r2 | % 24
399 c8-> c-> r4 r2 | % 26
404 c8-> c-> r4 r2 | % 28
435 c4-> c-> c2^\fermata \bar "|." % 48
441 s4_\markup { \italic { bass & drums } } s2. | % 1
443 s4_\markup { \italic { full band } } s2. | % 3
445 s4_\markup { \italic { 1st X bass & drums only } } s2. | % 5
447 s4_\markup { \italic { full band } } s2. | % 13
449 s4_\markup { \italic { snare pat. } } s2 | % 1
450 s4_\markup { \italic { simile } } s2 | % 2
452 s4_\markup { \italic { spacy } } s2 | % 22
456 s4_\markup { \italic { Last time } } s2 | % 51
465 \new Staff = leadStaff
468 \new Voice = "lead" \LeadVox
469 \new Voice = "riffs" \Riffs
472 \new Lyrics \lyricsto "lead" \LeadVoxText
473 \new Lyrics \lyricsto "lead" \LeadVoxTextB
476 \new ChoirStaff = "Rhythm"
478 \new ChordNames = "chords" \Chords
479 \new RhythmicStaff = "chordRhythm" << \StaffC \Dynamics >>
482 \set Score.skipBars = ##t
483 \set Score.melismaBusyProperties = #'()
488 % \context { \Staff \RemoveEmptyStaves }
489 % ragged-last-bottom = ##t
497 #(define fonts (make-pango-font-tree