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 Just As You Are" }
18 composer = \markup { \override #'(font-family . sans) \fontsize #1.3 "Joseph Sabolick" }
19 % arranger = \markup { \override #'(font-family . sans) \fontsize #1.3 "" }
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.5 (ly:music-property arg 'tweaks))) arg)
38 \override Staff.TimeSignature #'style = #'()
49 \mark \markup { \override #'(font-family . sans) { \box { A } } }
51 s1*16 \bar "||" % 5-20
55 % \mark \markup { \override #'(font-family . sans) { \box { B } } }
56 \once \override Score.RehearsalMark #'self-alignment-X = #left
57 \mark \markup { \override #'(font-family . sans) { \box { B } } \hspace #1.0 \raise #2.0 \musicglyph #"scripts.segno" }
62 \once \override Score.RehearsalMark #'self-alignment-X = #right
63 \mark \markup { \italic { to Coda } \musicglyph #"scripts.coda" }
78 \mark \markup { \override #'(font-family . sans) { \box { C } } }
80 s1*10 \bar "||" % 32-41
82 \mark \markup { \override #'(font-family . sans) { \box { D } } }
84 s1^\markup { \italic { Repeat figure thru to D.S. } } | % 42
88 \once \override Score.RehearsalMark #'self-alignment-X = #right
89 \mark \markup { \italic { D.S. al Coda } }
93 % blank measure between last measure and coda
94 % \stopStaff s1 \bar "" \startStaff % That removed the spurious floating bar line from line break
95 \stopStaff s1 \startStaff % That removed the spurious floating bar line from line break
97 \set Score.currentBarNumber = #54
99 \once \override Score.RehearsalMark #'self-alignment-X = #left
100 \mark \markup { { \musicglyph #"scripts.coda" } "Coda" }
108 \mark \markup { \override #'(font-family . sans) { \box { E } } }
124 \mark \markup { \override #'(font-family . sans) { \box { F } } }
126 s1*7 \bar "|." % 60-66
130 % \once \override TextScript #'padding = #2.0
131 % s1*0^\markup { \large \bold { Moderately fast pop } }
133 %% s1*0^\markup { \large \bold { Moderately fast pop "(*** CAPO 3 ***)" } }
134 % s1*13 \bar "||:" % 1-13
143 LeadVox = \relative c'
146 \override Score.SpacingSpanner #'average-spacing-wishes = ##f
159 r4 r8 e e4 cs8 cs ~ | % 7
160 cs8 b ~ b4 r r8 e8 | % 8
167 r4 r8 e e4 gs8 gs ~ | % 15
168 gs8 fs ~ fs4 r r8 e | % 16
171 gs8 ( fs ) ~ fs2. | % 19
172 r2 r4 <gs \hn e>16 <b \hn gs> <b \hn gs>8 | % 20
176 <b \hn gs>8 <b \hn gs> <b \hn gs> <b \hn gs> <e, \hn cs>4 <gs \hn e>16 <b \hn gs> <b \hn gs>8 | % 21
177 <b \hn gs>8 <b \hn gs> <b \hn gs> <b \hn gs> <cs \hn fs,>4 <cs \hn e,>16 <b \hn gs> <b \hn gs>8 | % 22
178 <b \hn gs>8 <b \hn gs> <b \hn gs> <b \hn gs> <e, \hn cs>8. e16 a8 gs | % 23
179 gs8 fs ~ fs2 <gs \hn e>16 <b \hn gs> <b \hn gs>8 | % 24
180 <b \hn gs>8 <b \hn gs> <b \hn gs> <b \hn gs> <e, \hn cs>4 <gs \hn e>16 <b \hn gs> <b \hn gs>8 | % 25
181 <b \hn gs>8 <b \hn gs> <b \hn gs> <b \hn gs> <cs \hn fs,>4 <cs \hn e,>16 <b \hn gs> <b \hn gs>8 | % 26
182 <b \hn gs>8 <b \hn gs> <b \hn gs> <b \hn gs> <e, \hn cs>8. e16 <a \hn fs>8 <gs \hn e> | % 27
184 <gs \hn e>8 <fs \hn ds> ~ <fs \hn ds>4 ~ <fs \hn ds>8. e16 fs8. e16 | % 28
188 <gs \hn e>8 <fs \hn ds> ~ <fs \hn ds>2. | % 31
192 r8 gs gs gs gs gs b4 | % 32
193 r8 gs gs gs b cs gs16 ( fs ) ~ fs8 | % 33
194 r8 gs gs gs gs gs gs fs | % 34
195 fs16 ( e ) ~ e8 ~ e2 r4 | % 35
196 r8 gs gs gs gs gs b4 | % 36
197 r8 gs gs gs b cs gs16 ( fs ) ~ fs8 | % 37
198 r8 gs gs gs gs fs e4 | % 38
199 r8 <gs \hn e>8 <gs \hn e> <gs \hn e> <b \hn gs>4 <cs \hn a>8 <cs \hn a> ~ | % 39
200 <cs \hn a>2. <e \hn a,>8 <e \hn a,> ~ | % 40
208 r2 r4 gs,16 b b8 | % 45
209 << { \voiceOne cs4. b8 ~ b2 ~ } \new Voice = "v2" { \voiceTwo r2 r4 gs16 b b8 } >> | % 46
210 << { \voiceOne b2. } \context Voice = "v2" { \voiceTwo cs4. b8 ~ b4 } >> \oneVoice gs16 b b8 | % 47
211 cs4. b8 ~ b8. gs16 a8. gs16 | % 48
212 gs8 fs ~ fs2 gs16 b b8 | % 49
213 << { \voiceOne cs4. b8 ~ b2 ~ } \context Voice = "v2" { \voiceTwo r2 r4 gs16 b b8 } >> | % 50
214 << { \voiceOne b2. } \context Voice = "v2" { \voiceTwo cs4. b8 ~ b4 } >> \oneVoice gs16 b b8 | % 51
215 cs4. b8 ~ b8. gs16 a8. gs16 | % 52
216 gs8 fs ~ fs2 <gs \hn e>16 <b \hn gs> <b \hn gs>8 | % 53
220 s1 | % blank measure for coda
222 <gs \hn e>8 <fs \hn ds> ~ <fs \hn ds>2 <gs \hn e>16 <b \hn gs> <b \hn gs>8 | % 54
224 <b \hn gs>8 <b \hn gs> <b \hn gs> <b \hn gs> <e, \hn cs>4 <gs \hn e>16 <b \hn gs> <b \hn gs>8 | % 55
225 <b \hn gs>8 <b \hn gs> <b \hn gs> <b \hn gs> <cs \hn fs,>4 <cs \hn e,>16 <b \hn gs> <b \hn gs>8 | % 56
226 <b \hn gs>8 <b \hn gs> <b \hn gs> <b \hn gs> <e, \hn cs>8. e16 <a \hn fs>8 <gs \hn e> | % 57
228 <gs \hn e>8 <fs \hn ds> ~ <fs \hn ds>2 <gs \hn e>16 <b \hn gs> <b \hn gs>8 | % 58
230 <gs \hn e>8 <fs \hn ds> ~ <fs \hn ds>4 ~ <fs \hn ds>8. e16 fs8. gs16 | % 59
235 r2 r8 r16 e fs8. gs16 | % 61
237 r2 r8 r16 e fs8. gs16 | % 63
239 r2 r8 r16 e fs8. gs16 | % 65
240 fs8 e ~ e2.-\fermata | % 66
243 LeadVoxText = \lyricmode
245 How love -- ly is your dwell -- ing place,
246 O lord Al -- migh -- _ ty. _
247 For my soul longs and e -- ven faints for you.
248 For here my heart is sat -- is -- fied
249 with -- in your pres -- _ ence. _
250 I sing be -- neath the sha -- dow of your wings. _ _
252 Bet -- ter is one day in your courts,
253 bet -- ter is one day in your house,
254 Bet -- ter is one day in your courts
255 than thou -- sands else -- where, _
256 Bet -- ter is one day in your courts,
257 bet -- ter is one day in your house,
258 Bet -- ter is one day in your courts
259 than thou -- sands else -- where, _ _
260 than thou -- sands else -- where. _
265 My heart and flesh cry out
266 for you, the liv -- ing God, _ _
267 Your spi -- rit's wa -- ter to my soul. _ _ _
268 I've tast -- ed and I've seen;
269 Come once a -- gain to me, _ _
270 I will draw near to you,
271 I will draw near to you, _
274 Bet -- ter is one day, __ _ _
275 Bet -- ter is one day _
276 than thou -- sands else -- where, _
277 Bet -- ter is one day, __ _ _
278 Bet -- ter is one day _
279 than thou -- sands else -- where, _
284 Bet -- ter is one day in your courts,
285 bet -- ter is one day in your house,
286 Bet -- ter is one day in your courts
287 than thou -- sands else -- where, _
292 than thou -- sands else -- where. _
293 Than thou -- sands else -- where. _
294 Than thou -- sands else -- where. _
295 Than thou -- sands else -- where. _
298 LeadVoxTextB = \lyricmode
300 _ thing I ask and I would seek,
301 to see your beau -- _ ty, _
302 to find you in the place your glo -- ry dwells.
303 One thing I sak and I would seek,
304 to see your beau -- _ ty, _
305 to find you in the place your glo -- ry dwells. _ _
308 LeadVoxEcho = \lyricmode
310 Bet -- ter is one day _
311 Bet -- ter is one day
318 Riffs = \relative c''
325 e8 b ds b cs b ds b | % 42
326 e8 b ds b cs b ds b | % 43
327 e8 b ds b cs b ds b | % 44
336 %Bah, can't we set this globally?
369 a2.:sus2 a4/cs | % 23
370 b2:sus4 b4 e/gs | % 24
373 a2.:sus2 a4/cs | % 27
384 a2.:sus2 b4:sus4 | % 33
386 a2.:sus2 b4:sus4 | % 35
388 a2.:sus2 b4:sus4 | % 37
400 a2.:sus2 a4/cs | % 48
403 b2.:sus4 e4/gs | % 51
405 b2.:sus4 e4/gs | % 53
409 % blank measure between last measure and coda
412 b2:sus4 b4 e/gs | % 54
416 a2.:sus2 a4/cs | % 57
418 b2:sus4 b4 e/gs | % 58
438 % Use a RhythmicStaff on the chords instead of this?
439 % It almost works, but not quite. Doesn't collapse chords above to single notes...
443 \override Staff.TimeSignature #'style = #'()
444 \override NoteHead #'style = #'slash
516 % blank measure between last measure and coda
517 %hm. Shouldn't need /startStaff /stopStaff... !!! FIX !!!
518 \stopStaff s1 \startStaff
544 %Hmm, this is throwin off the layout...
551 s4_\markup { \italic { Ac. gtr only } } s2. | % 1
555 s4_\markup { \italic { Band in } } s2. | % 5
563 \Global % The "roadmap" that everything else depends on
567 \new Voice = "lead" \LeadVox
569 \new Lyrics \lyricsto "lead" \LeadVoxText
570 \new Lyrics \lyricsto "lead" \LeadVoxTextB
571 \new Lyrics \lyricsto "v2" \LeadVoxEcho
572 % \new Lyrics \lyricsto "v2" \LeadVoxEcho
577 \new ChordNames \Chords
579 % \new ChordNames \transpose f d \Chords
580 \new RhythmicStaff << \Rhythm \Dynamics >>
583 \set Score.skipBars = ##t
584 \set Score.melismaBusyProperties = #'()
591 #(define fonts (make-pango-font-tree
597 % Don't spread staves vertically across last page (default: t)
598 % ragged-last-bottom = ##f
599 % Don't spread staves vertically across the page (default: f)
600 % ragged-bottom = ##t
601 % Allow partial line for last stave (default: f)
604 % To find out what's eating the space at the top...
605 % annotate-spacing = ##t
606 %let's try this: [It works! Huzzah!]
607 obsolete-page-top-space = 0 top-system-spacing #'basic-distance = #(/ obsolete-page-top-space staff-space)