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 "Come, Now is the Time to Worship" }
16 % composer = \markup { \override #'(font-family . sans) \fontsize #1.3 "M. Barnett" }
17 arranger = \markup { \override #'(font-family . sans) \fontsize #1.3 "arr. Ed Smart" }
18 tagline = $(string-append "Engraved by JLH and Lilypond " (lilypond-version))
19 % Let's try a chord dictionary
20 % subtitle = \markup { \center-align { "F#m" \fret-diagram-terse #"x;x;4;2;2;2;" } " " \center-align { "F#m/F" \fret-diagram-terse #"x;x;3;2;2;2;" } " " \center-align { "F#m/E" \fret-diagram-terse #"x;x;2;2;2;2;" } " " \center-align { "F#m/Eb" \fret-diagram-terse #"x;x;1;2;2;2;" } " " \center-align { "Em7" \fret-diagram-terse #"o;2;2;o;3;o;" } " " \center-align { "A13" \fret-diagram-terse #"x;o;2;o;2;2;" } }
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)
41 % \once \override TextScript #'padding = #2.0
42 s1*0^\markup { \italic \bold { Spacey, but imply 16ths } }
44 % s1*0^\markup { \hspace #0.0 \raise #2.0 \bigger \bold { "Moderate pop (*** CAPO 4 ***)" } }
48 s1*4 \bar ".|:-||" % 1-4
54 \mark \markup { \override #'(font-family . sans) { \box { A } } }
71 \mark \markup { \override #'(font-family . sans) { \box { B } } }
72 s1*9 \bar "||" % 25-33
78 \mark \markup { \override #'(font-family . sans) { \box { C } } }
85 \mark \markup { \override #'(font-family . sans) { \box { D } } }
98 \mark \markup { \override #'(font-family . sans) { \box { E } } }
103 \mark \markup { \override #'(font-family . sans) { \box { F } } }
114 LeadVox = \relative c'
117 \set tupletSpannerDuration = #(ly:make-moment 1 4)
125 <fs \hn d \hn a>2 r | % 5
126 <e \hn b \hn g>8 <fs \hn d \hn a> <g \hn e \hn b> <fs \hn d \hn a> ( ~ <fs \hn d \hn a> <e \hn b \hn g> ) <e \hn b \hn g> <g \hn e \hn b> ( ~ | % 6
127 <g \hn e \hn b>2. <fs \hn d \hn a>8 ) <fs \hn d \hn a> ~ | % 7
128 <fs \hn d \hn a>2. r4 | % 8
129 <e \hn cs \hn a>2 r | % 9
130 <e \hn cs \hn a>8 <fs \hn d \hn a> <g \hn e \hn b> <fs \hn d \hn a> ( ~ <fs \hn d \hn a> <e \hn cs \hn a> ) <e \hn cs \hn a> <g \hn e \hn b> ~ | % 10
131 <g \hn e \hn b>2 <fs \hn d \hn a>4. ( <d \hn b \hn g>8 ) | % 11
132 <d \hn a \hn g>2. r4 | % 12
133 <fs \hn d \hn a>2 r | % 13
134 <e \hn b \hn g>8 <fs \hn d \hn a> <g \hn e \hn b> <fs \hn d \hn a> ( ~ <fs \hn d \hn a> <e \hn b \hn g> ) <e \hn b \hn g> <g \hn e \hn b> ( ~ | % 14
135 <g \hn e \hn b>2. <fs \hn d \hn a>8 ) <fs \hn d \hn a> ~ | % 15
136 <fs \hn d \hn a>2. r4 | % 16
137 <e \hn cs \hn a>1 | % 17
138 <e \hn cs \hn a>8 <fs \hn d \hn a> <g \hn e \hn b> <fs \hn d \hn a> ( ~ <fs \hn d \hn a> <e \hn cs \hn a> ) <e \hn cs \hn a> <g \hn e \hn b> ~ | % 18
139 <g \hn e \hn b>2 <fs \hn d \hn a>4. ( <d \hn b \hn g>8 ) | % 19
140 <d \hn a \hn g>2. r4 | % 20
145 <d \hn a \hn fs>1 | % 23
151 <b' \hn g \hn d>8 <b \hn g \hn d> <b \hn g \hn d> <b \hn g \hn d> <b \hn g \hn d> <a \hn fs \hn d> <g \hn e \hn b> <a \hn fs \hn d> ~ | % 25
152 <a \hn fs \hn d>8 <a \hn fs \hn d> <a \hn fs \hn d> <fs \hn d \hn a> ~ <fs \hn d \hn a>4 r | % 26
153 <b \hn g \hn d>8 <b \hn g \hn d> <b \hn g \hn d> <b \hn g \hn d> <b \hn g \hn d> <a \hn fs \hn d> <g \hn d \hn b>16 ( <a \hn fs \hn d> ) <a \hn fs \hn d>8 ~ | % 27
154 <a \hn fs \hn d>2. r4 | % 28
155 <b \hn g \hn d>8 <b \hn g \hn d> <b \hn g \hn d> <b \hn g \hn d> <b \hn g \hn d> <b \hn g \hn d> <cs \hn a \hn e> <d \hn b \hn fs> ~ | % 29
156 <d \hn b \hn fs>8 <cs \hn a \hn e>4 <b \hn fs \hn d>8 ~ <b \hn fs \hn d>4 <a \hn fs \hn d>8 <b \hn g \hn d> ~ | % 30
157 <b \hn g \hn d>8 <a \hn fs \hn d> r <a \hn d, \hn b> ~ <a \hn d, \hn b>4 <a \hn d, \hn b>8 <a \hn e \hn d> ~ | % 31
158 <a \hn e \hn d>1 | % 32
163 <gs \hn e \hn b>2 r | % 34
164 <fs \hn cs \hn a>8 <gs \hn e \hn b> <a \hn fs \hn cs> <gs \hn e \hn b> ( ~ <gs \hn e \hn b> <fs \hn cs \hn a> ) <fs \hn cs \hn a> <a \hn fs \hn cs> ( ~ | % 35
165 <a \hn fs \hn cs>2. <gs \hn e \hn b>8 ) <gs \hn e \hn b> ~ | % 36
166 <gs \hn e \hn b>2. r4 | % 37
167 <fs \hn ds \hn b>2 r | % 38
168 <fs \hn ds \hn b>8 <gs \hn e \hn b> <a \hn fs \hn cs> <gs \hn e \hn b> ( ~ <gs \hn e \hn b> <fs \hn ds \hn b> ) <fs \hn ds \hn b> <a \hn fs \hn cs> ~ | % 39
169 <a \hn fs \hn cs>2 <gs \hn e \hn b>4. ( <e \hn cs \hn a>8 ) | % 40
170 <e \hn b \hn a>2. r4 | % 41
171 <gs \hn e \hn b>2 r | % 42
172 <fs \hn cs \hn a>8 <gs \hn e \hn b> <a \hn fs \hn cs> <gs \hn e \hn b> ( ~ <gs \hn e \hn b> <fs \hn cs \hn a> ) <fs \hn cs \hn a> <a \hn fs \hn cs> ( ~ | % 43
173 <a \hn fs \hn cs>2. <gs \hn e \hn b>8 ) <gs \hn e \hn b> ~ | % 44
174 <gs \hn e \hn b>2. r4 | % 45
175 <fs \hn ds \hn b>1 | % 46
176 <fs \hn ds \hn b>8 <gs \hn e \hn b> <a \hn fs \hn cs> <gs \hn e \hn b> ( ~ <gs \hn e \hn b> <fs \hn ds \hn b> ) <fs \hn ds \hn b> <a \hn fs \hn cs> ~ | % 47
177 <a \hn fs \hn cs>2 <gs \hn e \hn b>4. ( <e \hn cs \hn a>8 ) | % 48
178 <e \hn b \hn a>2. r4 | % 49
179 <e \hn b \hn gs>2. r4 | % 50
184 <cs' \hn a \hn e>8 <cs \hn a \hn e> <cs \hn a \hn e> <cs \hn a \hn e> <cs \hn a \hn e> <b \hn gs \hn e> <a \hn fs \hn cs> <b \hn gs \hn e> ~ | % 52
185 <b \hn gs \hn e>8 <b \hn gs \hn e> <b \hn gs \hn e> <gs \hn e \hn b> ~ <gs \hn e \hn b>4 r | % 53
186 <cs \hn a \hn e>8 <cs \hn a \hn e> <cs \hn a \hn e> <cs \hn a \hn e> <cs \hn a \hn e> <b \hn gs \hn e> <a \hn e \hn cs>16 ( <b \hn gs \hn e> ) <b \hn gs \hn e>8 ~ | % 54
187 <b \hn gs \hn e>2. r4 | % 55
188 <cs \hn a \hn e>8 <cs \hn a \hn e> <cs \hn a \hn e> <cs \hn a \hn e> <cs \hn a \hn e> <cs \hn a \hn e> <ds \hn b \hn fs> <e \hn cs \hn gs> ~ | % 56
189 <e \hn cs \hn gs>8 <ds \hn b \hn fs>4 <cs \hn gs \hn e>8 ~ <cs \hn gs \hn e>4 <b \hn gs \hn e>8 <cs \hn a \hn e> ~ | % 57
190 <cs \hn a \hn e>8 <b \hn gs \hn e> r <b \hn e, \hn cs> ~ <b \hn e, \hn cs>4 <b \hn e, \hn cs>8 <b \hn fs \hn e> ~ | % 58
191 <b \hn fs \hn e>1 | % 59
197 <gs \hn e \hn b>2 r | % 62
198 <fs \hn cs \hn a>8 <gs \hn e \hn b> <a \hn fs \hn cs> <gs \hn e \hn b> ( ~ <gs \hn e \hn b> <fs \hn cs \hn a> ) <fs \hn cs \hn a> <a \hn fs \hn cs> ( ~ | % 63
199 <a \hn fs \hn cs>2. <gs \hn e \hn b>8 ) <gs \hn e \hn b> ~ | % 64
200 <gs \hn e \hn b>2. r4 | % 65
201 <fs \hn ds \hn b>2 r | % 66
202 <fs \hn ds \hn b>8 <gs \hn e \hn b> <a \hn fs \hn cs> <gs \hn e \hn b> ( ~ <gs \hn e \hn b> <fs \hn ds \hn b> ) <fs \hn ds \hn b> <a \hn fs \hn cs> ~ | % 67
203 <a \hn fs \hn cs>2 <gs \hn e \hn b>4. ( <e \hn cs \hn a>8 ) | % 68
204 <e \hn b \hn a>2. r4 | % 69
206 fs8 gs a gs ( ~ gs fs ) fs a ( ~ | % 71
207 a2. gs8 ) gs ~ | % 72
210 fs8 gs a gs ( ~ gs fs ) fs a ~ | % 75
211 a2 gs4. ( e8 ) | % 76
214 <e \hn b \hn gs>1 | % 78
216 <e \hn b \hn gs>1 | % 80
219 <e \hn b \hn gs>1-\fermata | % 82
223 LeadVoxText = \lyricmode
225 Come, now is the time _ _ to wor -- _ _ ship, _
226 Come, now is the time _ _ to give _ your _ heart,
227 Come, just as you are _ _ to wor -- _ _ ship, _
228 Come, just as you are _ _ be -- fore _ your _ God,
233 One day ev’ -- ry tongue will con -- fess _ you are God, _
234 One day ev’ -- ry knee _ will bow _ _
235 Still the great -- est trea -- sure re -- mains _ for those _
236 who glad -- _ ly choose _ you now. _
238 Come, now is the time _ _ to wor -- _ _ ship, _
239 Come, now is the time _ _ to give _ your _ heart,
240 Come, just as you are _ _ to wor -- _ _ ship, _
241 Come, just as you are _ _ be -- fore _ your _ God,
244 One day ev’ -- ry tongue will con -- fess _ you are God, _
245 One day ev’ -- ry knee _ will bow _ _
246 Still the great -- est trea -- sure re -- mains _ for those _
247 who glad -- _ ly choose _ you now. _
249 Come, now is the time _ _ to wor -- _ _ ship, _
250 Come, now is the time _ _ to give _ your _ heart,
251 Come, just as you are _ _ to wor -- _ _ ship, _
252 Come, just as you are _ _ be -- fore _ your _ God,
261 \set tupletSpannerDuration = #(ly:make-moment 1 4)
267 fs8 gs a gs ~ gs fs ~ fs4 | % 79
269 fs8 gs a gs ~ gs fs ~ fs4 | % 81
320 s4. g8:sus2 s4. a8:sus4 | % 31
353 s4. a2:sus2 b8:sus4 | % 58
389 % Use a RhythmicStaff on the chords instead of this?
390 % It almost works, but not quite. Doesn't collapse chords above to single notes...
394 \numericTimeSignature
395 \override NoteHead #'style = #'slash
396 %Not small enough... (?)
510 % s4_\markup { \italic { 1st X: Melody, 2nd X+: Solos } } s2. | % 5
512 % s4_\markup { \bold \italic { Double Chorus 2nd X } } s2. | % 39
514 % s4_\markup { \bold { Tutti } } s2. | % 47
517 % s4_\markup { \large \bold \italic { Solo } } s2 | % 40
524 \set Score.skipBars = ##t
525 \set Score.melismaBusyProperties = #'()
529 \new ChordNames \Chords
531 % \new ChordNames \transpose b g \Chords
532 \new RhythmicStaff << \Rhythm \Dynamics >>
537 \Global % The "roadmap" that everything else depends on
538 \new Voice = "lead" \LeadVox
540 \new Lyrics \lyricsto "lead" \LeadVoxText
548 #(define fonts (make-pango-font-tree
554 % Spread staves vertically across last page (default: t)
555 % ragged-last-bottom = ##f
556 % Don't spread staves vertically across the page (default: f)
557 % ragged-bottom = ##t
558 % Allow partial line for last stave (default: f)
561 % To find out what's eating the space at the top...
562 % annotate-spacing = ##t