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 "Creation Song (Glory to the Lamb)" }
16 composer = \markup { \override #'(font-family . sans) \fontsize #1.3 "Fernando Ortega" }
17 arranger = \markup { \override #'(font-family . sans) \fontsize #1.3 "Arr. John Wierick/Ed Smart" }
18 tagline = $(string-append "Engraved by JLH and Lilypond " (lilypond-version))
19 % Let's try a chord dictionary
20 subtitle = \markup { \center-column { \fret-diagram-terse #"x;x;x;7;8;10;" \override #'(font-family . sans) G2 } " " \center-column { \fret-diagram-terse #"x;x;x;5;6;8;" \override #'(font-family . sans) F2 } }
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)
43 \once \override TextScript #'padding = #2.0
44 s1*0^\markup { \large \bold { Not too fast } }
46 % s1*0^\markup { \large \bold { Not too fast "(*** CAPO 3 ***)" } }
55 \mark \markup { \override #'(font-family . sans) { \box { A } } }
56 s1.*16 \bar "||" % 3-18
60 \once \override Score.RehearsalMark #'self-alignment-X = #left
61 \mark \markup { \override #'(font-family . sans) { \box { B } } \hspace #1.0 \raise #2.0 \musicglyph #"scripts.segno" }
63 \once \override Score.RehearsalMark #'self-alignment-X = #left
64 \mark \markup { \musicglyph #"scripts.coda" \italic { to Coda } }
65 s1.*8 \bar "||" % 29-36
69 \mark \markup { \override #'(font-family . sans) { \box { C } } }
70 s1.*16 \bar "||" % 37-52
71 \once \override Score.RehearsalMark #'self-alignment-X = #right
72 \mark \markup { \large \bold { D.S. al Coda } }
76 % blank measure between last measure and coda
77 % \stopStaff s1. \bar "" \startStaff % That removed the spurious floating bar line from line break
78 \stopStaff s1. \startStaff % That removed the spurious floating bar line from line break
80 \set Score.currentBarNumber = #53
82 \once \override Score.RehearsalMark #'self-alignment-X = #left
83 \mark \markup { { \musicglyph #"scripts.coda" } "Coda" }
85 s1.*10 \bar "||" % 53-62
89 \mark \markup { \override #'(font-family . sans) { \box { D } } }
98 \mark \markup { \override #'(font-family . sans) { \box { E } } }
99 s1.*15 \bar "||" % 79-93
111 s1.*5 \bar "|." % 96-100
118 LeadVox = \relative c'
131 a2 ( \times 2/3 { b8 a g ) } a2. | % 5
132 r2 r8 g c4 b g8 g ~ | % 6
133 g4 f2 r4 r r8 f | % 7
134 c'4 c c8 c ~ c4 b g8 g ~ | % 8
136 r2 r r4 <d \hn b'> | % 10
137 <b' \hn d>4 <b \hn d> <a \hn c>8 <b \hn d> ~ <b \hn d>4 <b \hn d> <d \hn g> | % 11
138 <d \hn g>4 <d \hn g>4. <d, \hn b'>8 <c' \hn e>4 <b \hn d>8 <g \hn b>4. | % 12
139 <a \hn c>2 ( \times 2/3 { <b \hn d>8 <a \hn c> <g \hn b> ) } <a \hn d>2. | % 13
140 r2 r8 <g \hn b>8 <c \hn e>4 <b \hn d> << { \voiceTwo g8 g ~ } \context Voice = vb { \voiceOne <\hn b> <\hn c> ~ } >> | % 14
141 << { \voiceTwo g8 f ~ f2 } \context Voice = vb { \voiceOne <\hn c'>2. } >> \oneVoice <c \hn e>4 <b \hn d> <g \hn b>8 <g \hn c> ~ | % 15
142 <g \hn c>8 <f \hn c'> ~ <f \hn c'>2 <a \hn c>8 <b \hn d>4 <c \hn e>8 ~ <c \hn e>4 | % 16
143 <c \hn e>4 <b \hn d> <b \hn d>8 ( <a \hn c> ) <b \hn d>2. | % 17
148 <b \hn d \hn g>1. | % 19
149 <b \hn d \hn g>2. r4 r2 | % 20
150 <b \hn e \hn g>1. | % 21
151 <b \hn e \hn g>2. r4 r2 | % 22
152 << { \voiceTwo b2. b } \context Voice = vb { \voiceOne <\hn d \hn g>2. <\hn d>4 ~ <\hn d>8 <\hn e> <\hn g>4 } >> | % 23
153 << { \voiceTwo c,2 ( b4 ) b2 ( a4 ) } \context Voice = vb { \voiceOne <\hn e' \hn a>2. <\hn d \hn g> } >> \oneVoice | % 24
154 <a \hn d \hn fs>1. | % 25
155 r2 r2 <g \hn b \hn d>4 <b \hn d \hn g> | % 26
156 <b \hn d \hn g>1 ( ~ <b \hn d \hn g>8 <c \hn a'>16 <b \hn g'> <a \hn d \hn fs>4 ) | % 27
157 <a \hn d \hn fs>2. r4 r <g \hn b \hn e> | % 28
158 <b \hn e \hn g>1. | % 29
159 <b \hn e \hn g>2. r4 r <c \hn e \hn g> | % 30
160 << { \voiceTwo d1 ~ d4 c8 b } \context Voice = vb { \voiceOne <\hn fs' \hn a>2. ( <\hn e \hn g> } >> | % 31
161 << { \voiceTwo a,1 ~ a8 b16 a g4 } \context Voice = vb { \voiceOne <\hn d' \hn fs>1 ~ <\hn d \hn fs>8 <\hn g>16 <\hn fs> <\hn d>4 ) } >> \oneVoice | % 32
162 <g, \hn b \hn d>1. | % 33
169 b4 b a8 b ~ b4 b d | % 37
170 d4 b r8 b c4 b g | % 38
171 a2 ( \times 2/3 { b8 a g ) } a2. | % 39
172 r2 r8 <g \hn b> <a \hn c>4 <b \hn d> <c \hn e> | % 40
173 <c \hn e>4 <b \hn d> <g \hn b> <g \hn c> <f \hn c'>2 | % 41
174 r2 r8 <f \hn a> <a \hn c> <b \hn d>4 <c \hn e>8 ~ <c \hn e>4 | % 42
175 <c \hn e>4 <b \hn d> <b \hn d>8 <a \hn c> <b \hn d>2. | % 43
176 r2 r <g \hn d \hn b' \hn g'>4 <a \hn e \hn c' \hn a'> | % 44
177 <b \hn g \hn d' \hn b'>4 <b \hn g \hn d' \hn b'> <a \hn g \hn c \hn a'>8 <b \hn g \hn d' \hn b'>8 ~ <b \hn g \hn d' \hn b'>4 <b \hn g \hn d' \hn b'> <d \hn b \hn g' \hn d'> | % 45
178 <d \hn b \hn g' \hn d'>4 r r <c \hn a \hn e' \hn c'> <b \hn g \hn d' \hn b'> <g \hn d \hn b' \hn g'> | % 46
179 <a \hn g \hn c \hn a'>4 <b \hn g \hn d' \hn b'> <b \hn g \hn d' \hn b'>8 <g \hn d \hn b' \hn g'> <a \hn g \hn d' \hn a'>2 r4 | % 47
180 r2 r8 <a \hn a'> <a \hn a'>4 <b \hn b'> <c \hn c'> | % 48
181 <c \hn c'>2. r4 r2 | % 49
182 <a \hn c \hn e \hn a>4. <a \hn c \hn e \hn a> <b \hn d \hn g \hn b> <c \hn e \hn a \hn c> | % 50
183 <c \hn e \hn a \hn c>4 <b \hn d \hn g \hn b> <a \hn c \hn e \hn a> <b \hn d \hn g \hn b>2. | % 51
184 r2 r <g \hn g'>4 <b \hn b'> | % 52
186 s1. % for Coda spacing
190 <b \hn e \hn g>1. | % 53
191 <b \hn e \hn g>2. r4 r <c \hn e> | % 54
192 <d \hn bf \hn f'>1. | % 55
193 << { \voiceTwo <d \hn bf>1. ~ } \context Voice = vc { \voiceOne <\hn f>1 ~ <\hn f>4 <\hn f> } >> | % 56
194 << { \voiceTwo <d \hn bf>1. } \context Voice = vc { \voiceOne <\hn bf'>2. <\hn a>2 <\hn g> 4 } >> | % 57
195 << { \voiceTwo r2 r bf,4 ( c ) } \context Voice = vc { \voiceOne <\hn bf'>2. <\hn a>2 <\hn g>4 } >> \oneVoice | % 58
196 <c, \hn a \hn f' \hn a>1. | % 59
197 <c \hn a \hn f' \hn a>1. ~ | % 60
198 <c \hn a \hn f' \hn a>1. | % 61
218 r2 r <a \hn e \hn cs' \hn a'>4 <cs \hn a \hn e' \hn cs'> | % 78
222 <cs \hn a \hn e' \hn cs'>1. | % 79
223 <cs \hn a \hn e' \hn cs'>2. r4 <a \hn e \hn cs' \hn a'> <cs \hn a \hn e' \hn cs'> | % 80
224 <cs \hn a \hn fs' \hn cs'>1. | % 81
225 <cs \hn a \hn fs' \hn cs'>1 r2 | % 82
226 <cs \hn a \hn e' \hn cs'>2. <cs \hn a \hn e' \hn cs'> | % 83
227 << { \voiceTwo d2 ( cs4 ) cs2 ( b4 ) } \context Voice = vb { \voiceOne <\hn b \hn fs' \hn d'>2. <\hn a \hn e' \hn cs'> } >> \oneVoice | % 84
228 <b \hn gs \hn e' \hn b'>1. | % 85
229 r2 r <a \hn e \hn cs' \hn a'>4 ( <cs \hn a \hn e' \hn cs'> ) | % 86
230 <cs \hn a \hn e' \hn cs'>1 ~ ( <cs \hn a \hn e' \hn cs'>8 <d \hn d'>16 <cs \hn cs'> <b \hn b'>4 ) | % 87
231 <b \hn gs \hn e' \hn b'>2. r4 r <a \hn fs \hn cs' \hn a'>4 | % 88
232 <cs \hn a \hn fs' \hn cs'>1. | % 89
233 <cs \hn a \hn fs' \hn cs'>2. r4 r <d \hn d'> | % 90
234 <e \hn e'>1 ( <d \hn d'>8 <cs \hn cs'> <b \hn b'>4 ) | % 91
235 <b \hn b'>1 ~ <b \hn b'>4 <a \hn a'> | % 92
236 <d \hn fs \hn d'>2. ( <cs \hn e \hn cs'>4 ~ <cs \hn e \hn cs'>8 <d \hn d'>16 <cs \hn cs'> <b \hn b'>4 ) | % 93
238 <b \hn e \hn b'>2. r4 <a \hn e \hn cs' \hn a'> <cs \hn a \hn e' \hn cs'> | % 94
240 <b \hn e \hn b'>2. <b \hn e \hn b'>4 ~ ( <b \hn e \hn b'>8 <cs \hn fs \hn cs'>16 <b \hn e \hn b'> <a \hn d \hn a'>4 ) | % 95
244 <a \hn e' \hn a>1. | % 96
252 LeadVoxText = \lyricmode
254 He wraps him -- self in light
255 as with a gar -- _ _ _ ment,
256 He spreads out the hea -- _ vens,
257 and walks on the wings _ of the wind. _
258 He sends forth the springs _ from the val -- leys,
259 they flow be -- tween moun -- _ _ _ tains,
260 The birds of the air, __ _ _ _ dwell by the wa -- _ ters, _
261 lift -- ing their _ voi -- ces in _ song,
263 Sing -- ing glo -- ry, glo -- ry,
264 glo -- ry to _ the _ lamb,
265 All _ prai -- _ _ _ _ ses, and ho -- nor, for -- e -- _ _ _ _ _ _ _ _ ver.
267 He made the moon _ for its sea -- sons,
268 the sun knows its set -- _ _ _ tings,
269 He looks at the Earth and it trem -- bles,
270 He touch -- es the _ moun -- tains and they smoke,
271 I will sing to the Lord _ all my life,
272 I will sing prai -- ses to my God,
274 prai -- ses to the Lord, O my soul,
278 ho -- nor, for -- e -- ver, _ and _ e -- ver. _
280 Sing -- ing glo -- ry, hal -- le -- lu -- jah,
281 glo -- ry to _ our _ God,
282 All _ prais -- _ _ _ _ es, and ho -- nor, for -- e -- _ _ _ ver _
283 and e -- _ _ _ _ _ ver
287 ver, A -- _ _ _ _ men.
290 DescantText = \lyricmode
292 _ _ and e -- ver and e -- ver _
299 Riffs = \relative c''
303 s1.*63 | % 1-62 (plus blank for Coda)
322 <a' e'>2. <d d'>4 <cs cs'> <a a'> | % 97
324 <a e'>2. <d d'>4 <cs cs'> <a a'> | % 99
325 <a a'>1.-\fermata | % 100
398 s1. % for Coda spacing
468 % Use a RhythmicStaff on the chords instead of this?
469 % It almost works, but not quite. Doesn't collapse chords above to single notes...
473 \numericTimeSignature
474 \override NoteHead #'style = #'slash
479 c4. c8 c c c4. c8 c c | % 1
480 c4. c8 c c c4. c8 c c | % 2
517 c4. c8 c c c4. c8 c c | % 33
518 c4. c8 c c c4. c8 c c | % 34
519 c4. c8 c c c4. c8 c c | % 35
520 c4. c8 c c c4. c8 c c | % 36
541 \stopStaff s1. \startStaff % for Coda spacing
614 s4_\fp s s \< s | % 7
634 s8 \< s2. s8 \! | % 51
636 s4_\markup { \italic { rit. } } s2. | % 61
638 s2 s4_\markup { \italic { rit. } } s | % 65
646 \Global % The "roadmap" that everything else depends on
650 \new Voice = "lead" \LeadVox
652 \new Lyrics \lyricsto "lead" \LeadVoxText
653 \new Lyrics \lyricsto "vc" \DescantText
658 \new ChordNames \Chords
660 % \new ChordNames \transpose f d \Chords
661 \new RhythmicStaff << \Rhythm \Dynamics >>
664 \set Score.skipBars = ##t
665 \set Score.melismaBusyProperties = #'()
672 #(define fonts (make-pango-font-tree
678 % Don't spread staves vertically across last page (default: t)
679 % ragged-last-bottom = ##f
680 % Don't spread staves vertically across the page (default: f)
681 % ragged-bottom = ##t
682 % Allow partial line for last stave (default: f)
685 % To find out what's eating the space at the top...
686 % annotate-spacing = ##t