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 "Child of Love" }
18 composer = \markup { \override #'(font-family . sans) \fontsize #1.3 "Sara Groves/Mark Lee, Matthew West, Steve Hindalong" }
19 % arranger = \markup { \override #'(font-family . sans) \fontsize #1.3 "arr. " }
20 tagline = $(string-append "Engraved by JLH and Lilypond " (lilypond-version))
21 % Let's try a chord dictionary
22 % subtitle = \markup { \center-column { "F#m" \fret-diagram-terse #"x;x;4;2;2;2;" } " " \center-column { "F#m/F" \fret-diagram-terse #"x;x;3;2;2;2;" } " " \center-column { "F#m/E" \fret-diagram-terse #"x;x;2;2;2;2;" } " " \center-column { "F#m/Eb" \fret-diagram-terse #"x;x;1;2;2;2;" } " " \center-column { "Em7" \fret-diagram-terse #"o;2;2;o;3;o;" } " " \center-column { "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 = #'()
45 \once \override TextScript #'padding = #2.0
46 s1*0^\markup { \large \bold { Not too fast } }
48 % s1*0^\markup { \hspace #0.0 \raise #2.0 \larger \bold { "Moderate pop (*** CAPO 4 ***)" } }
58 \mark \markup { \override #'(font-family . sans) { \box { A } } }
59 s1*18 \bar "||" % 8-25
63 \mark \markup { \override #'(font-family . sans) { \box { B } } }
69 \mark \markup { \override #'(font-family . sans) { \box { C } } }
70 s1*14 \bar "||" % 40-53
74 s1*7 \bar "||" % 54-60
78 \mark \markup { \override #'(font-family . sans) { \box { D } } }
79 s1*5 \bar "|." % 61-65
86 LeadVox = \relative c'
88 % \set Staff.instrument = #"Lead vox"
90 \override Staff.TimeSignature #'style = #'()
92 % \override Score.SpacingSpanner #'average-spacing-wishes = ##f
108 d2 r4 r8 \tiny fs, \normalsize | % 15
125 a4 d,8 d ~ d e4 e8 ~ | % 27
130 a4 d,8 d ~ d e4 e8 ~ | % 31
132 fs4. e8 ~ e4 d8 d ~ | % 33
134 d4 r8 a d e d4 | % 34
135 a8 fs'4 e8 ~ e8 d4 r8 | % 35
136 d8 e4 fs8 ~ fs4. e8 ~ | % 36
137 e4 d8 b8 ~ b4 r | % 37
139 d8 ( e fs e ~ e4 ) d8 d ~ | % 39
144 a4 d,8 d ~ d e4 e8 ~ | %
149 a4 d,8 d ~ d e4 e8 ~ | %
151 fs4. e8 ~ e4 d8 d ~ | %
154 a8 fs'4 e8 ~ e8 d4 a8 | %
155 d8 e4 fs8 ~ fs4. e8 ~ | %
158 d8 ( e fs e ~ e4 ) d8 d ~ | %
176 LeadVoxText = \lyricmode
178 Child of won -- der, close Your eyes _
179 Rest here in my arms to -- night _
180 _ Some -- day You will save the world _
181 But to -- night I’ll hold You right here in my arms
183 Pre -- cious mir -- a -- cle _ of life, _ child of love _
184 Gift of hope, _ the gift _ of light _ from the Fa -- ther _ a -- bove _
185 And You were made for all man -- _ kind
186 You will al -- _ ways _ be mine, _ child __ _ _ _ _ of love _
188 Pre -- cious mir -- a -- cle _ of life, _ child of love _
189 Gift of hope, _ the gift _ of light _ from the Fa -- ther _ a -- bove _
190 And You were made for all man -- _ kind
191 But You will al -- _ ways _ be mine, _ child __ _ _ _ _ of love _
193 Child of won -- der, close Your eyes. _
196 LeadVoxTextB = \lyricmode
198 Ga -- briel’s pro -- mise has come true _
199 God has blessed this world with You _
200 And as I hum -- bly hold You now _
201 In my heart I know I’m hold -- ing Hea -- ven’s child
209 % \override Score.SpacingSpanner #'average-spacing-wishes = ##f
214 b8 fs' d' b a, fs' d' b | % 1
215 g,8 fs' d' b ~ b2 | % 2
216 b,8 fs' d' b a, fs' d' b | % 3
217 g,8 fs' d' b ~ b2 | % 4
218 b,8 fs' d' b a, fs' d' b | % 5
219 g,8 fs' d' b ~ b2 ~ | % 6
225 b,8 fs' d' b a, fs' d' b | % 54
227 g,8 fs' d' b ~ b2 | % 55
228 b,8 fs' d' b a, fs' d' b | % 56
229 g,8 fs' d' b ~ b2 | % 57
230 b,8 fs' d' b a, fs' d' b | % 58
231 g,8 fs' d' b ~ b2 ~ | % 59
242 %Bah, can't we set this globally?
339 % Use a RhythmicStaff on the chords instead of this?
340 % It almost works, but not quite. Doesn't collapse chords above to single notes...
344 %% \set Voice.autoBeaming = ##f
345 %% \set Staff.instrument = #"Rhythm"
346 \override Staff.TimeSignature #'style = #'()
347 \override NoteHead #'style = #'slash
437 s4_\markup { \italic { snare pat. } } s2 | % 1
438 s4_\markup { \italic { simile } } s2 | % 2
440 s4_\markup { \italic { spacey } } s2 | % 22
444 s4_\markup { \italic { Last time } } s2 | % 51
452 \set Score.skipBars = ##t
453 \set Score.melismaBusyProperties = #'()
457 \new ChordNames \Chords
459 % \new ChordNames \transpose b g \Chords
460 \new RhythmicStaff << \Rhythm \Dynamics >>
465 \Global % The "roadmap" that everything else depends on
466 \new Voice = "lead" \LeadVox
468 \new Lyrics \lyricsto "lead" \LeadVoxText
469 \new Lyrics \lyricsto "lead" \LeadVoxTextB
477 #(define fonts (make-pango-font-tree
483 % Spread staves vertically across last page (default: t)
484 % ragged-last-bottom = ##f
485 % Don't spread staves vertically across the page (default: f)
486 % ragged-bottom = ##t
487 % Allow partial line for last stave (default: f)
490 % To find out what's eating the space at the top...
491 % annotate-spacing = ##t
492 %let's try this: [It works! Huzzah!]
493 obsolete-page-top-space = 0 top-system-spacing #'basic-distance = #(/ obsolete-page-top-space staff-space)