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 "Creation Song (Glory to the Lamb)" }
18 % composer = \markup { \override #'(font-family . sans) \fontsize #1.3 "" }
19 arranger = \markup { \override #'(font-family . sans) \fontsize #1.3 "Arr. John Wierick/Ed Smart" }
20 tagline = $(string-append "Engraved by JLH and Lilypond " (lilypond-version))
21 % Let's try a chord dictionary
22 subtitle = \markup { \center-column { G2 \fret-diagram-terse #"x;x;x;7;8;10;" } " " \center-column { F2 \fret-diagram-terse #"x;x;x;5;6;8;" } }
25 % Useful tweak abbreviations (hn = harmony note)
27 hn = #(define-music-function (parser location arg) (ly:music?)
28 ;; Harmony Note: Set the tweaks property of the passed in note to use a smaller font
30 (set! (ly:music-property arg 'tweaks)
31 (acons 'font-size -3.5 (ly:music-property arg 'tweaks))) arg)
40 \override Staff.TimeSignature #'style = #'()
45 \once \override TextScript #'padding = #2.0
46 s1*0^\markup { \large \bold { Not too fast } }
48 % s1*0^\markup { \large \bold { Not too fast "(*** CAPO 3 ***)" } }
57 \mark \markup { \override #'(font-family . sans) { \box { A } } }
58 s1.*16 \bar "||" % 3-18
62 \once \override Score.RehearsalMark #'self-alignment-X = #left
63 \mark \markup { \override #'(font-family . sans) { \box { B } } \hspace #1.0 \raise #2.0 \musicglyph #"scripts.segno" }
65 \once \override Score.RehearsalMark #'self-alignment-X = #left
66 \mark \markup { \musicglyph #"scripts.coda" \italic { to Coda } }
67 s1.*8 \bar "||" % 29-36
71 \mark \markup { \override #'(font-family . sans) { \box { C } } }
72 s1.*16 \bar "||" % 37-52
73 \once \override Score.RehearsalMark #'self-alignment-X = #right
74 \mark \markup { \large \bold { D.S. al Coda } }
78 % blank measure between last measure and coda
79 % \stopStaff s1. \bar "" \startStaff % That removed the spurious floating bar line from line break
80 \stopStaff s1. \startStaff % That removed the spurious floating bar line from line break
82 \set Score.currentBarNumber = #53
84 \once \override Score.RehearsalMark #'self-alignment-X = #left
85 \mark \markup { { \musicglyph #"scripts.coda" } "Coda" }
87 s1.*10 \bar "||" % 53-62
91 \mark \markup { \override #'(font-family . sans) { \box { D } } }
100 \mark \markup { \override #'(font-family . sans) { \box { E } } }
101 s1.*15 \bar "||" % 79-93
113 s1.*5 \bar "|." % 96-100
120 LeadVox = \relative c'
123 \override Score.SpacingSpanner #'average-spacing-wishes = ##f
134 a2 ( \times 2/3 { b8 a g ) } a2. | % 5
135 r2 r8 g c4 b g8 g ~ | % 6
136 g4 f2 r4 r r8 f | % 7
137 c'4 c c8 c ~ c4 b g8 g ~ | % 8
139 r2 r r4 <d \hn b'> | % 10
140 <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
141 <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
142 <a \hn c>2 ( \times 2/3 { <b \hn d>8 <a \hn c> <g \hn b> ) } <a \hn d>2. | % 13
143 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
144 << { \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
145 <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
146 <c \hn e>4 <b \hn d> <b \hn d>8 ( <a \hn c> ) <b \hn d>2. | % 17
151 <b \hn d \hn g>1. | % 19
152 <b \hn d \hn g>2. r4 r2 | % 20
153 <b \hn e \hn g>1. | % 21
154 <b \hn e \hn g>2. r4 r2 | % 22
155 << { \voiceTwo b2. b } \context Voice = vb { \voiceOne <\hn d \hn g>2. <\hn d>4 ~ <\hn d>8 <\hn e> <\hn g>4 } >> | % 23
156 << { \voiceTwo c,2 ( b4 ) b2 ( a4 ) } \context Voice = vb { \voiceOne <\hn e' \hn a>2. <\hn d \hn g> } >> \oneVoice | % 24
157 <a \hn d \hn fs>1. | % 25
158 r2 r2 <g \hn b \hn d>4 <b \hn d \hn g> | % 26
159 <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
160 <a \hn d \hn fs>2. r4 r <g \hn b \hn e> | % 28
161 <b \hn e \hn g>1. | % 29
162 <b \hn e \hn g>2. r4 r <c \hn e \hn g> | % 30
163 << { \voiceTwo d1 ~ d4 c8 b } \context Voice = vb { \voiceOne <\hn fs' \hn a>2. ( <\hn e \hn g> } >> | % 31
164 << { \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
165 <g, \hn b \hn d>1. | % 33
172 b4 b a8 b ~ b4 b d | % 37
173 d4 b r8 b c4 b g | % 38
174 a2 ( \times 2/3 { b8 a g ) } a2. | % 39
175 r2 r8 <g \hn b> <a \hn c>4 <b \hn d> <c \hn e> | % 40
176 <c \hn e>4 <b \hn d> <g \hn b> <g \hn c> <f \hn c'>2 | % 41
177 r2 r8 <f \hn a> <a \hn c> <b \hn d>4 <c \hn e>8 ~ <c \hn e>4 | % 42
178 <c \hn e>4 <b \hn d> <b \hn d>8 <a \hn c> <b \hn d>2. | % 43
179 r2 r <g \hn d \hn b' \hn g'>4 <a \hn e \hn c' \hn a'> | % 44
180 <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
181 <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
182 <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
183 r2 r8 <a \hn a'> <a \hn a'>4 <b \hn b'> <c \hn c'> | % 48
184 <c \hn c'>2. r4 r2 | % 49
185 <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
186 <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
187 r2 r <g \hn g'>4 <b \hn b'> | % 52
189 s1. % for Coda spacing
193 <b \hn e \hn g>1. | % 53
194 <b \hn e \hn g>2. r4 r <c \hn e> | % 54
195 <d \hn bf \hn f'>1. | % 55
196 << { \voiceTwo <d \hn bf>1. ~ } \context Voice = vc { \voiceOne <\hn f>1 ~ <\hn f>4 <\hn f> } >> | % 56
197 << { \voiceTwo <d \hn bf>1. } \context Voice = vc { \voiceOne <\hn bf'>2. <\hn a>2 <\hn g> 4 } >> | % 57
198 << { \voiceTwo r2 r bf,4 ( c ) } \context Voice = vc { \voiceOne <\hn bf'>2. <\hn a>2 <\hn g>4 } >> \oneVoice | % 58
199 <c, \hn a \hn f' \hn a>1. | % 59
200 <c \hn a \hn f' \hn a>1. ~ | % 60
201 <c \hn a \hn f' \hn a>1. | % 61
221 r2 r <a \hn e \hn cs' \hn a'>4 <cs \hn a \hn e' \hn cs'> | % 78
225 <cs \hn a \hn e' \hn cs'>1. | % 79
226 <cs \hn a \hn e' \hn cs'>2. r4 <a \hn e \hn cs' \hn a'> <cs \hn a \hn e' \hn cs'> | % 80
227 <cs \hn a \hn fs' \hn cs'>1. | % 81
228 <cs \hn a \hn fs' \hn cs'>1 r2 | % 82
229 <cs \hn a \hn e' \hn cs'>2. <cs \hn a \hn e' \hn cs'> | % 83
230 << { \voiceTwo d2 ( cs4 ) cs2 ( b4 ) } \context Voice = vb { \voiceOne <\hn b \hn fs' \hn d'>2. <\hn a \hn e' \hn cs'> } >> \oneVoice | % 84
231 <b \hn gs \hn e' \hn b'>1. | % 85
232 r2 r <a \hn e \hn cs' \hn a'>4 ( <cs \hn a \hn e' \hn cs'> ) | % 86
233 <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
234 <b \hn gs \hn e' \hn b'>2. r4 r <a \hn fs \hn cs' \hn a'>4 | % 88
235 <cs \hn a \hn fs' \hn cs'>1. | % 89
236 <cs \hn a \hn fs' \hn cs'>2. r4 r <d \hn d'> | % 90
237 <e \hn e'>1 ( <d \hn d'>8 <cs \hn cs'> <b \hn b'>4 ) | % 91
238 <b \hn b'>1 ~ <b \hn b'>4 <a \hn a'> | % 92
239 <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
241 <b \hn e \hn b'>2. r4 <a \hn e \hn cs' \hn a'> <cs \hn a \hn e' \hn cs'> | % 94
243 <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
247 <a \hn e' \hn a>1. | % 96
254 LeadVoxText = \lyricmode
256 He wraps him -- self in light
257 as with a gar -- _ _ _ ment,
258 He spreads out the hea -- _ vens,
259 and walks on the wings _ of the wind. _
260 He sends forth the springs _ from the val -- leys,
261 they flow be -- tween moun -- _ _ _ tains,
262 The birds of the air, __ _ _ _ dwell by the wa -- _ ters, _
263 lift -- ing their _ voi -- ces in _ song,
265 Sing -- ing glo -- ry, glo -- ry,
266 glo -- ry to _ the _ lamb,
267 All _ prai -- _ _ _ _ ses, and ho -- nor, for -- e -- _ _ _ _ _ _ _ _ ver.
269 He made the moon _ for its sea -- sons,
270 the sun knows its set -- _ _ _ tings,
271 He looks at the Earth and it trem -- bles,
272 He touch -- es the _ moun -- tains and they smoke,
273 I will sing to the Lord _ all my life,
274 I will sing prai -- ses to my God,
276 prai -- ses to the Lord, O my soul,
280 ho -- nor, for -- e -- ver, _ and _ e -- ver. _
282 Sing -- ing glo -- ry, hal -- le -- lu -- jah,
283 glo -- ry to _ our _ God,
284 All _ prais -- _ _ _ _ es, and ho -- nor, for -- e -- _ _ _ ver _
285 and e -- _ _ _ _ _ ver
289 ver, A -- _ _ _ _ men.
292 DescantText = \lyricmode
294 _ _ and e -- ver and e -- ver _
300 Riffs = \relative c''
304 s1.*63 | % 1-62 (plus blank for Coda)
323 <a' e'>2. <d d'>4 <cs cs'> <a a'> | % 97
325 <a e'>2. <d d'>4 <cs cs'> <a a'> | % 99
326 <a a'>1.-\fermata | % 100
399 s1. % for Coda spacing
469 % Use a RhythmicStaff on the chords instead of this?
470 % It almost works, but not quite. Doesn't collapse chords above to single notes...
474 \override Staff.TimeSignature #'style = #'()
475 \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 s1. % 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
687 %let's try this: [It works! Huzzah!]
688 obsolete-page-top-space = 0 top-system-spacing #'basic-distance = #(/ obsolete-page-top-space staff-space)