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 "Come, Now is the Time to Worship" }
18 % composer = \markup { \override #'(font-family . sans) \fontsize #1.3 "M. Barnett" }
19 arranger = \markup { \override #'(font-family . sans) \fontsize #1.3 "arr. Ed Smart" }
20 tagline = $(string-append "Engraved by JLH and Lilypond " (lilypond-version))
21 % Let's try a chord dictionary
22 % 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;" } }
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.0 (ly:music-property arg 'tweaks))) arg)
40 \override Staff.TimeSignature #'style = #'()
43 % \once \override TextScript #'padding = #2.0
44 s1*0^\markup { \italic \bold { Spacey, but imply 16ths } }
46 % s1*0^\markup { \hspace #0.0 \raise #2.0 \bigger \bold { "Moderate pop (*** CAPO 4 ***)" } }
56 \mark \markup { \override #'(font-family . sans) { \box { A } } }
73 \mark \markup { \override #'(font-family . sans) { \box { B } } }
74 s1*9 \bar "||" % 25-33
80 \mark \markup { \override #'(font-family . sans) { \box { C } } }
87 \mark \markup { \override #'(font-family . sans) { \box { D } } }
100 \mark \markup { \override #'(font-family . sans) { \box { E } } }
105 \mark \markup { \override #'(font-family . sans) { \box { F } } }
116 LeadVox = \relative c'
118 % \set Staff.instrument = #"Lead vox"
120 \override Staff.TimeSignature #'style = #'()
122 % \override Score.SpacingSpanner #'average-spacing-wishes = ##f
123 \set tupletSpannerDuration = #(ly:make-moment 1 4)
134 <fs \hn d \hn a>2 r | % 5
135 <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
136 <g \hn e \hn b>2. <fs \hn d \hn a>8 ) <fs \hn d \hn a> ~ | % 7
137 <fs \hn d \hn a>2. r4 | % 8
138 <e \hn cs \hn a>2 r | % 9
139 <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
140 <g \hn e \hn b>2 <fs \hn d \hn a>4. ( <d \hn b \hn g>8 ) | % 11
141 <d \hn a \hn g>2. r4 | % 12
142 <fs \hn d \hn a>2 r | % 13
143 <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
144 <g \hn e \hn b>2. <fs \hn d \hn a>8 ) <fs \hn d \hn a> ~ | % 15
145 <fs \hn d \hn a>2. r4 | % 16
146 <e \hn cs \hn a>1 | % 17
147 <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
148 <g \hn e \hn b>2 <fs \hn d \hn a>4. ( <d \hn b \hn g>8 ) | % 19
149 <d \hn a \hn g>2. r4 | % 20
154 <d \hn a \hn fs>1 | % 23
160 <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
161 <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
162 <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
163 <a \hn fs \hn d>2. r4 | % 28
164 <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
165 <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
166 <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
167 <a \hn e \hn d>1 | % 32
172 <gs \hn e \hn b>2 r | % 34
173 <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
174 <a \hn fs \hn cs>2. <gs \hn e \hn b>8 ) <gs \hn e \hn b> ~ | % 36
175 <gs \hn e \hn b>2. r4 | % 37
176 <fs \hn ds \hn b>2 r | % 38
177 <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
178 <a \hn fs \hn cs>2 <gs \hn e \hn b>4. ( <e \hn cs \hn a>8 ) | % 40
179 <e \hn b \hn a>2. r4 | % 41
180 <gs \hn e \hn b>2 r | % 42
181 <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
182 <a \hn fs \hn cs>2. <gs \hn e \hn b>8 ) <gs \hn e \hn b> ~ | % 44
183 <gs \hn e \hn b>2. r4 | % 45
184 <fs \hn ds \hn b>1 | % 46
185 <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
186 <a \hn fs \hn cs>2 <gs \hn e \hn b>4. ( <e \hn cs \hn a>8 ) | % 48
187 <e \hn b \hn a>2. r4 | % 49
188 <e \hn b \hn gs>2. r4 | % 50
193 <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
194 <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
195 <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
196 <b \hn gs \hn e>2. r4 | % 55
197 <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
198 <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
199 <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
200 <b \hn fs \hn e>1 | % 59
206 <gs \hn e \hn b>2 r | % 62
207 <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
208 <a \hn fs \hn cs>2. <gs \hn e \hn b>8 ) <gs \hn e \hn b> ~ | % 64
209 <gs \hn e \hn b>2. r4 | % 65
210 <fs \hn ds \hn b>2 r | % 66
211 <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
212 <a \hn fs \hn cs>2 <gs \hn e \hn b>4. ( <e \hn cs \hn a>8 ) | % 68
213 <e \hn b \hn a>2. r4 | % 69
215 fs8 gs a gs ( ~ gs fs ) fs a ( ~ | % 71
216 a2. gs8 ) gs ~ | % 72
219 fs8 gs a gs ( ~ gs fs ) fs a ~ | % 75
220 a2 gs4. ( e8 ) | % 76
223 <e \hn b \hn gs>1 | % 78
225 <e \hn b \hn gs>1 | % 80
228 <e \hn b \hn gs>1-\fermata | % 82
232 LeadVoxText = \lyricmode
234 Come, now is the time _ _ to wor -- _ _ ship, _
235 Come, now is the time _ _ to give _ your _ heart,
236 Come, just as you are _ _ to wor -- _ _ ship, _
237 Come, just as you are _ _ be -- fore _ your _ God,
242 One day ev’ -- ry tongue will con -- fess _ you are God, _
243 One day ev’ -- ry knee will bow _ down, _
244 Still the great -- est trea -- sure re -- mains _ for those _
245 who glad -- _ ly choose _ you now. _
247 Come, now is the time _ _ to wor -- _ _ ship, _
248 Come, now is the time _ _ to give _ your _ heart,
249 Come, just as you are _ _ to wor -- _ _ ship, _
250 Come, just as you are _ _ be -- fore _ your _ God,
253 One day ev’ -- ry tongue will con -- fess _ you are God, _
254 One day ev’ -- ry knee will bow _ down, _
255 Still the great -- est trea -- sure re -- mains _ for those _
256 who glad -- _ ly choose _ you now. _
258 Come, now is the time _ _ to wor -- _ _ ship, _
259 Come, now is the time _ _ to give _ your _ heart,
260 Come, just as you are _ _ to wor -- _ _ ship, _
261 Come, just as you are _ _ be -- fore _ your _ God,
272 % \override Score.SpacingSpanner #'average-spacing-wishes = ##f
273 \set tupletSpannerDuration = #(ly:make-moment 1 4)
279 fs8 gs a gs ~ gs fs ~ fs4 | % 79
281 fs8 gs a gs ~ gs fs ~ fs4 | % 81
332 s4. g8:sus2 s4. a8:sus4 | % 31
365 s4. a2:sus2 b8:sus4 | % 58
401 % Use a RhythmicStaff on the chords instead of this?
402 % It almost works, but not quite. Doesn't collapse chords above to single notes...
406 %% \set Voice.autoBeaming = ##f
407 %% \set Staff.instrument = #"Rhythm"
408 \override Staff.TimeSignature #'style = #'()
409 \override NoteHead #'style = #'slash
525 % s4_\markup { \italic { 1st X: Melody, 2nd X+: Solos } } s2. | % 5
527 % s4_\markup { \bold \italic { Double Chorus 2nd X } } s2. | % 39
529 % s4_\markup { \bold { Tutti } } s2. | % 47
532 % s4_\markup { \large \bold \italic { Solo } } s2 | % 40
539 \set Score.skipBars = ##t
540 \set Score.melismaBusyProperties = #'()
544 \new ChordNames \Chords
546 % \new ChordNames \transpose b g \Chords
547 \new RhythmicStaff << \Rhythm \Dynamics >>
552 \Global % The "roadmap" that everything else depends on
553 \new Voice = "lead" \LeadVox
555 \new Lyrics \lyricsto "lead" \LeadVoxText
563 #(define fonts (make-pango-font-tree
569 % Spread staves vertically across last page (default: t)
570 ragged-last-bottom = ##f
571 % Don't spread staves vertically across the page (default: f)
572 % ragged-bottom = ##t
573 % Allow partial line for last stave (default: f)
576 % To find out what's eating the space at the top...
577 % annotate-spacing = ##t
578 %let's try this: [It works! Huzzah!]
579 obsolete-page-top-space = 0 top-system-spacing #'basic-distance = #(/ obsolete-page-top-space staff-space)