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)
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
133 LeadVox = \relative c'
146 r4 r8 e e4 cs8 cs ~ | % 7
147 cs8 b ~ b4 r r8 e8 | % 8
154 r4 r8 e e4 gs8 gs ~ | % 15
155 gs8 fs ~ fs4 r r8 e | % 16
158 gs8 ( fs ) ~ fs2. | % 19
159 r2 r4 <gs \hn e>16 <b \hn gs> <b \hn gs>8 | % 20
163 <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
164 <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
165 <b \hn gs>8 <b \hn gs> <b \hn gs> <b \hn gs> <e, \hn cs>8. e16 a8 gs | % 23
166 gs8 fs ~ fs2 <gs \hn e>16 <b \hn gs> <b \hn gs>8 | % 24
167 <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
168 <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
169 <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
171 <gs \hn e>8 <fs \hn ds> ~ <fs \hn ds>4 ~ <fs \hn ds>8. e16 fs8. e16 | % 28
175 <gs \hn e>8 <fs \hn ds> ~ <fs \hn ds>2. | % 31
179 r8 gs gs gs gs gs b4 | % 32
180 r8 gs gs gs b cs gs16 ( fs ) ~ fs8 | % 33
181 r8 gs gs gs gs gs gs fs | % 34
182 fs16 ( e ) ~ e8 ~ e2 r4 | % 35
183 r8 gs gs gs gs gs b4 | % 36
184 r8 gs gs gs b cs gs16 ( fs ) ~ fs8 | % 37
185 r8 gs gs gs gs fs e4 | % 38
186 r8 <gs \hn e>8 <gs \hn e> <gs \hn e> <b \hn gs>4 <cs \hn a>8 <cs \hn a> ~ | % 39
187 <cs \hn a>2. <e \hn a,>8 <e \hn a,> ~ | % 40
195 r2 r4 gs,16 b b8 | % 45
196 << { \voiceOne cs4. b8 ~ b2 ~ } \new Voice = "v2" { \voiceTwo r2 r4 gs16 b b8 } >> | % 46
197 << { \voiceOne b2. } \context Voice = "v2" { \voiceTwo cs4. b8 ~ b4 } >> \oneVoice gs16 b b8 | % 47
198 cs4. b8 ~ b8. gs16 a8. gs16 | % 48
199 gs8 fs ~ fs2 gs16 b b8 | % 49
200 << { \voiceOne cs4. b8 ~ b2 ~ } \context Voice = "v2" { \voiceTwo r2 r4 gs16 b b8 } >> | % 50
201 << { \voiceOne b2. } \context Voice = "v2" { \voiceTwo cs4. b8 ~ b4 } >> \oneVoice gs16 b b8 | % 51
202 cs4. b8 ~ b8. gs16 a8. gs16 | % 52
203 gs8 fs ~ fs2 <gs \hn e>16 <b \hn gs> <b \hn gs>8 | % 53
207 s1 | % blank measure for coda
209 <gs \hn e>8 <fs \hn ds> ~ <fs \hn ds>2 <gs \hn e>16 <b \hn gs> <b \hn gs>8 | % 54
211 <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
212 <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
213 <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
215 <gs \hn e>8 <fs \hn ds> ~ <fs \hn ds>2 <gs \hn e>16 <b \hn gs> <b \hn gs>8 | % 58
217 <gs \hn e>8 <fs \hn ds> ~ <fs \hn ds>4 ~ <fs \hn ds>8. e16 fs8. gs16 | % 59
222 r2 r8 r16 e fs8. gs16 | % 61
224 r2 r8 r16 e fs8. gs16 | % 63
226 r2 r8 r16 e fs8. gs16 | % 65
227 fs8 e ~ e2.-\fermata | % 66
230 LeadVoxText = \lyricmode
232 How love -- ly is your dwell -- ing place,
233 O lord Al -- migh -- _ ty. _
234 For my soul longs and e -- ven faints for you.
235 For here my heart is sat -- is -- fied
236 with -- in your pres -- _ ence. _
237 I sing be -- neath the sha -- dow of your wings. _ _
239 Bet -- ter is one day in your courts,
240 bet -- ter is one day in your house,
241 Bet -- ter is one day in your courts
242 than thou -- sands else -- where, _
243 Bet -- ter is one day in your courts,
244 bet -- ter is one day in your house,
245 Bet -- ter is one day in your courts
246 than thou -- sands else -- where, _ _
247 than thou -- sands else -- where. _
252 My heart and flesh cry out
253 for you, the liv -- ing God, _ _
254 Your spi -- rit's wa -- ter to my soul. _ _ _
255 I've tast -- ed and I've seen;
256 Come once a -- gain to me, _ _
257 I will draw near to you,
258 I will draw near to you, _
261 Bet -- ter is one day, __ _ _
262 Bet -- ter is one day _
263 than thou -- sands else -- where, _
264 Bet -- ter is one day, __ _ _
265 Bet -- ter is one day _
266 than thou -- sands else -- where, _
271 Bet -- ter is one day in your courts,
272 bet -- ter is one day in your house,
273 Bet -- ter is one day in your courts
274 than thou -- sands else -- where, _
279 than thou -- sands else -- where. _
280 Than thou -- sands else -- where. _
281 Than thou -- sands else -- where. _
282 Than thou -- sands else -- where. _
285 LeadVoxTextB = \lyricmode
287 _ thing I ask and I would seek,
288 to see your beau -- _ ty, _
289 to find you in the place your glo -- ry dwells.
290 One thing I sak and I would seek,
291 to see your beau -- _ ty, _
292 to find you in the place your glo -- ry dwells. _ _
295 LeadVoxEcho = \lyricmode
297 Bet -- ter is one day _
298 Bet -- ter is one day
305 Riffs = \relative c''
312 e8 b ds b cs b ds b | % 42
313 e8 b ds b cs b ds b | % 43
314 e8 b ds b cs b ds b | % 44
353 a2.:sus2 a4/cs | % 23
354 b2:sus4 b4 e/gs | % 24
357 a2.:sus2 a4/cs | % 27
368 a2.:sus2 b4:sus4 | % 33
370 a2.:sus2 b4:sus4 | % 35
372 a2.:sus2 b4:sus4 | % 37
384 a2.:sus2 a4/cs | % 48
387 b2.:sus4 e4/gs | % 51
389 b2.:sus4 e4/gs | % 53
393 % blank measure between last measure and coda
396 b2:sus4 b4 e/gs | % 54
400 a2.:sus2 a4/cs | % 57
402 b2:sus4 b4 e/gs | % 58
422 % Use a RhythmicStaff on the chords instead of this?
423 % It almost works, but not quite. Doesn't collapse chords above to single notes...
427 \numericTimeSignature
428 \override NoteHead #'style = #'slash
501 % blank measure between last measure and coda
502 %hm. Shouldn't need /startStaff /stopStaff... !!! FIX !!!
503 \stopStaff s1 \startStaff
529 %Hmm, this is throwin off the layout...
536 s4_\markup { \italic { Ac. gtr only } } s2. | % 1
540 s4_\markup { \italic { Band in } } s2. | % 5
548 \Global % The "roadmap" that everything else depends on
552 \new Voice = "lead" \LeadVox
554 \new Lyrics \lyricsto "lead" \LeadVoxText
555 \new Lyrics \lyricsto "lead" \LeadVoxTextB
556 \new Lyrics \lyricsto "v2" \LeadVoxEcho
561 \new ChordNames \Chords
563 % \new ChordNames \transpose f d \Chords
564 \new RhythmicStaff << \Rhythm \Dynamics >>
567 \set Score.skipBars = ##t
568 \set Score.melismaBusyProperties = #'()
575 #(define fonts (make-pango-font-tree
581 % Don't spread staves vertically across last page (default: t)
582 % ragged-last-bottom = ##f
583 % Don't spread staves vertically across the page (default: f)
584 % ragged-bottom = ##t
585 % Allow partial line for last stave (default: f)
588 % To find out what's eating the space at the top...
589 % annotate-spacing = ##t