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 "I Will Praise Him Still" }
18 composer = \markup { \override #'(font-family . sans) \fontsize #1.3 "Fernando Ortega" }
19 arranger = \markup { \override #'(font-family . sans) \fontsize #1.3 "arr. John Wierick" }
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.0 (ly:music-property arg 'tweaks))) arg)
36 LeadVox = \relative c''
38 % \set Voice.autoBeaming = ##f
39 % \set Staff.instrumentName = #"Lead vox"
42 \override Staff.TimeSignature #'style = #'()
44 \override Score.SpacingSpanner #'average-spacing-wishes = ##f
52 \time 2/4 s2 \time 4/4 | % 5
59 \mark \markup { \override #'(font-family . sans) { \box { A } } }
64 \time 2/4 a4 a \time 4/4 | % 10
70 \time 2/4 a4 a \time 4/4 | % 15
71 g2 r4 b8 d \bar "||" % 16
75 \mark \markup { \override #'(font-family . sans) { \box { B } } }
77 <d \hn fs>4 <d \hn fs> <d \hn g>4 b8 ( a16 g ) | % 17
78 <a \hn d>4 <a \hn d> <b \hn d> b8 d | % 18
79 <e \hn g>4 <e \hn g> <d \hn fs> b8 a | % 19
80 \time 2/4 g4 b \time 4/4 | % 20
85 a2 r4 g8 fs \bar "||" % 21
89 \time 2/4 a4 a \time 4/4 | % 25
95 d4 d d b8 ( a16 g ) | % 29
101 \time 2/4 g4 b \time 4/4 | % 32
102 a2 r4 g8 fs \bar "||" % 33
109 \time 2/4 a4 a \time 4/4 | % 37
117 \mark \markup { \override #'(font-family . sans) { \box { C } } }
122 \voiceOne s2. <e' \hn g>8 <e \hn fs> \oneVoice | % 43
127 \mark \markup { \override #'(font-family . sans) { \box { D } } }
129 d4 d d b8 ( a16 g ) | % 44
132 \time 2/4 g4 b \time 4/4 | % 47
135 d4 d d b8 ( a16 g ) | % 49
138 \time 2/4 g4 b \time 4/4 | % 52
139 a2 r4 g8 fs \bar "||" % 53
143 \mark \markup { \override #'(font-family . sans) { \box { E } } }
148 \time 2/4 a4 a \time 4/4 | % 57
150 g1^\fermata \bar "|." % 59
153 LeadVoxText = \lyricmode
155 When the mor- ning falls on the far- thest hill
156 I will sing his name, I will praise him still
158 When dark tri- als come and my heart is filled
159 with the weight of doubt, I will praise him still
161 For the Lord our God is __ _ _ strong to save,
162 from the arms of death, from the deep- est grave
164 And he gave us life in his per- fect will
165 and by his good grace, I will praise him still.
170 For the Lord our God is __ _ _ strong to save,
171 from the arms of death, from the deep- est grave
173 And he gave us life in his per- fect will
174 and by his good grace, I will praise him still.
176 For the Lord our God is __ _ _ strong to save,
177 from the arms of death, from the deep- est grave
179 For the Lord our God is __ _ _ strong to save,
180 from the arms of death, from the deep- est grave
182 And he gave us life in his per- fect will
183 and by his good grace, I will praise him still.
187 Riffs = \relative c'''
191 \override Staff.TimeSignature #'style = #'()
193 \override Score.SpacingSpanner #'average-spacing-wishes = ##f
200 a4 a b b16 c32 b a16 g | % 3
202 \time 2/4 a4 a \time 4/4 | % 5
212 \time 2/4 s2 \time 4/4 | % 10
218 \time 2/4 s2 \time 4/4 | % 15
226 \time 2/4 s2 \time 4/4 | % 20
235 \time 2/4 s2 \time 4/4 | % 25
247 \time 2/4 s2 \time 4/4 | % 32
255 \time 2/4 s2 \time 4/4 | % 37
263 << { \tiny e4 e d d8 g } \\ { \tiny <c, g>2 <b g> } >> | % 40
264 << { a'4 a b b8 a } \\ { <a, fs>2 b16 c b a g8 fs } >> | % 41
265 << { g'4 e d d8 g } \\ { e,4. g16 a b8 g d b' } >> | % 42
266 << { a'4 a b16 c b a s4 } \\ { a,4. g16 fs g4 b8 g } >> | % 43
274 \time 2/4 s2 \time 4/4 | % 47
279 \time 2/4 s2 \time 4/4 | % 52
287 \time 2/4 s2 \time 4/4 | % 57
300 %Bah, can't we set this globally?
309 \time 2/4 d2 \time 4/4 | % 5
319 \time 2/4 d2 \time 4/4 | % 10
325 \time 2/4 d2 \time 4/4 | % 15
333 \time 2/4 c \time 4/4 | % 20
342 \time 2/4 d2 \time 4/4 | % 25
354 \time 2/4 c2 \time 4/4 | % 32
362 \time 2/4 d2 \time 4/4 | % 37
381 \time 2/4 c2 \time 4/4 | % 47
386 \time 2/4 c2 \time 4/4 | % 52
394 \time 2/4 d2 \time 4/4 | % 57
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 % \set Voice.autoBeaming = ##f
410 % \set Staff.instrumentName = #"Rhythm"
411 \override Staff.TimeSignature #'style = #'()
413 \override NoteHead #'style = #'slash
421 \time 2/4 c4 c \time 4/4 | % 5
431 \time 2/4 c4 c \time 4/4 | % 10
437 \time 2/4 c4 c \time 4/4 | % 15
445 \time 2/4 c4 c \time 4/4 | % 20
454 \time 2/4 c4 c \time 4/4 | % 25
466 \time 2/4 c4 c \time 4/4 | % 32
474 \time 2/4 c4 c \time 4/4 | % 37
493 \time 2/4 c4 c \time 4/4 | % 47
498 \time 2/4 c4 c \time 4/4 | % 52
506 \time 2/4 c4 c \time 4/4 | % 57
508 c1^\fermata \bar "|." % 59
515 s4 \> s s s \! | % 39
517 s4 \> s s s \! | % 53
525 \new Staff = leadStaff { << \new Voice = "lead" \LeadVox \new Voice = "riffs" \Riffs >> }
526 \new Lyrics \lyricsto "lead" \LeadVoxText
529 \new ChoirStaff = "Rhythm"
531 \new ChordNames = "chords" \Chords
532 \new RhythmicStaff = "chordRhythm" << \StaffC \Dynamics >>
535 \set Score.skipBars = ##t
536 \set Score.melismaBusyProperties = #'()
543 #(define fonts (make-pango-font-tree
549 % Don't spread staves vertically across last page (default: t)
550 % ragged-last-bottom = ##f
551 % Don't spread staves vertically across the page (default: f)
552 % ragged-bottom = ##t
553 % Allow partial line for last stave (default: f)
556 % To find out what's eating the space at the top...
557 % annotate-spacing = ##t
558 %let's try this: [It works! Huzzah!]
559 obsolete-page-top-space = 0 top-system-spacing #'basic-distance = #(/ obsolete-page-top-space staff-space)