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 "As The Deer" }
18 % composer = \markup { \override #'(font-family . sans) \fontsize #1.3 "" }
19 arranger = \markup { \override #'(font-family . sans) \fontsize #1.3 "arr. Ed Smart" }
20 tagline = $(string-append "Engraved by JLH and Lilypond " (lilypond-version))
25 tweak = #(define-music-function (parser location sym val arg)
26 (symbol? scheme? ly:music?)
28 "Add @code{sym . val} to the @code{tweaks} property of @var{arg}."
31 (ly:music-property arg 'tweaks)
33 (ly:music-property arg 'tweaks)))
37 % Useful tweak abbreviations (hn = harmony note)
39 hn = #(define-music-function (parser location arg) (ly:music?)
40 ;; Harmony Note: Set the tweaks property of the passed in note to use a smaller font
42 (set! (ly:music-property arg 'tweaks)
43 (acons 'font-size -3.5 (ly:music-property arg 'tweaks))) arg)
52 \override Staff.TimeSignature #'style = #'()
57 \once \override TextScript #'padding = #2.0
58 s1*0^\markup { \large { Moderate ballad } }
65 \mark \markup { \override #'(font-family . sans) { \box { A } } }
72 \mark \markup { \override #'(font-family . sans) { \box { B } } }
86 % A section (modulation)
90 \once \override Score.RehearsalMark #'padding = #2.0
91 \mark \markup { \override #'(font-family . sans) { \box { C } } }
99 \mark \markup { \override #'(font-family . sans) { \box { D } } }
123 LeadVox = \relative c'
126 \override Score.SpacingSpanner #'average-spacing-wishes = ##f
137 a'4 a8 a g4. f8 | % 7
140 c4. d8 f ( e ) d c | % 10
146 <c' \hn a \hn e>4 <c \hn a \hn e> <c \hn g \hn e> <c \hn g \hn e>8 <b \hn g \hn e> | % 13
147 <a \hn f \hn c>4 <a \hn d, \hn b> <g \hn e \hn c>4. <\hn e c>8 | % 14
148 <a \hn f \hn d>4 <a \hn f \hn d> <a \hn f \hn c> <a \hn f \hn c>8 [ <g \hn e \hn c> ] | % 15
149 <f \hn d \hn a>4 <f \hn d \hn a>
150 << { \voiceOne <e \hn b>2 } \new Voice = "v" { \voiceTwo <\hn a,>4 ( <\hn gs> ) } >> \oneVoice | % 16
152 c4. d8 f ( e ) d c | % 18
159 % A section (modulation)
162 d4. e8 g fs e d | % 23
163 b'4. b8 a4. g8 | % 24
166 d4. e8 g fs e d | % 27
167 d4. fs8 e4. d8 | % 28
172 <d' \hn b \hn fs>4 <d \hn b \hn fs> <d \hn a \hn fs> <d \hn a \hn fs>8 <cs \hn a \hn fs> | % 30
173 <b \hn g \hn d>4 <b \hn e, \hn cs> <a \hn fs \hn d>4. <\hn fs d>8 | % 31
174 <b \hn g \hn e>4 <b \hn g \hn e> <b \hn g \hn d> <b \hn g \hn d>8 <a \hn fs \hn d> | % 32
175 <g \hn e \hn b>4 <g \hn e \hn b>
176 % << { \voiceOne <fs \hn cs>2 } \new Voice = "v" { \voiceTwo \override NoteHead #'font-size = #-3.5 b,4 ( as ) \override NoteHead #'font-size = #1.0 } >> \oneVoice | % 33
177 << { \voiceOne <fs \hn cs>2 } \new Voice = "v" { \voiceTwo <\hn b,>4 ( <\hn as> ) } >> \oneVoice | % 33
178 fs'4 a a fs8 e | % 34
179 d4. e8 g fs e d | % 35
180 d4. fs8 e4. d8 | % 36
188 d4. fs8 e4. d8 | % 39
190 d4. fs8 e4. d8 | % 41
191 << { \voiceOne d1 } \context Voice = v { \voiceThree s1 } >> \oneVoice | % 42
197 LeadVoxText = \lyricmode
199 As the deer pant -- eth for the wa -- ter
200 so my soul long -- eth a -- fter thee,
202 You a -- lone are my heart’s de -- sire _
203 and I long to wor -- ship thee. _
205 You a -- lone are my strength my shield;
206 To you a -- lone may my spi -- rit yield.
208 You a -- lone are my heart’s de -- sire _
209 and I long to wor -- ship thee.
213 I want you more than gold or sil -- ver,
214 on -- ly you can sa -- tis -- fy.
216 You a -- lone are the real joy gi -- ver
217 and the ap -- ple of my eye. _
219 You a -- lone are my strength my shield;
220 To you a -- lone may my spi -- rit yield.
222 You a -- lone are my heart’s de -- sire _
223 and I long to wor -- ship thee.
227 and I long to wor -- ship thee, _
228 and I long to wor -- ship thee.
231 LeadVoxTextB = \lyricmode
233 You’re my friend and you are my bro -- ther
234 e -- ven though you _ are a king,
236 I love you more than a -- ny o -- ther
237 so much more than a -- ny -- thing.
255 << { \voiceOne s1 } \context Voice = v { \voiceThree \tiny fs4 a a fs8 e \normalsize } >> \oneVoice | % 42
256 d4. e8 g fs e d | % 43
267 %Bah, can't we set this globally?
285 d2:m7 g4:sus4 g | % 11
291 f4 g:sus2/f c2/e | % 14
293 d2:m/b e4:sus4 e | % 16
296 d2:m g4:sus4 g | % 19
302 % A section (modulation)
310 e2:m a4:sus4 a | % 28
316 g4 a:sus2/g d2/fs | % 31
318 e2:m/cs fs4:sus4 fs | % 33
321 e2:m7 a4:sus4 a | % 36
329 e2:m7 a4:sus4 a | % 39
331 e2:m7 a4:sus4 a | % 41
342 % Use a RhythmicStaff on the chords instead of this?
343 % It almost works, but not quite. Doesn't collapse chords above to single notes...
347 \override Staff.TimeSignature #'style = #'()
348 \override NoteHead #'style = #'slash
382 % A section (modulation)
423 s2 s4_\markup { \italic { rit. } } s | % 18
424 s4_\markup { \italic { A tempo } } s2. | % 19
428 s2 s4_\markup { \italic { rit. } } s | % 33
429 s4_\markup { \italic { A tempo } } s2. | % 34
433 s2 s4_\markup { \italic { rit. } } s | % 41
442 \Global % The "roadmap" that everything else depends on
446 \context Staff << \new Voice = "lead" \LeadVox \new Voice \Riffs >>
447 \new Lyrics \lyricsto "lead" \LeadVoxText
448 \new Lyrics \lyricsto "lead" \LeadVoxTextB
453 \new ChordNames \Chords
454 \new RhythmicStaff << \Rhythm \Dynamics >>
457 \set Score.skipBars = ##t
458 \set Score.melismaBusyProperties = #'()
465 #(define fonts (make-pango-font-tree
470 #(define fonts (make-pango-font-tree
476 % Spread staves vertically across last page (default: t)
477 % ragged-last-bottom = ##f
478 % Don't spread staves vertically across the page (default: f)
479 % ragged-bottom = ##t
480 % Allow partial line for last stave (default: f)
483 % To find out what's eating the space at the top...
484 % annotate-spacing = ##t
485 %let's try this: [It works! Huzzah!]
486 obsolete-page-top-space = 0 top-system-spacing #'basic-distance = #(/ obsolete-page-top-space staff-space)