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 "What Child Is This, Who, Laid to Rest?" }
18 composer = \markup { \override #'(font-family . sans) \fontsize #1.3 "Traditional" }
19 arranger = \markup { \override #'(font-family . sans) \fontsize #1.3 "arr. Shamus Hammons" }
20 tagline = $(string-append "Engraved by JLH and Lilypond " (lilypond-version))
28 LeadVox = \relative c''
30 % \set Voice.autoBeaming = ##f
31 % \set Staff.instrumentName = #"Lead vox"
34 \override Staff.TimeSignature #'style = #'()
36 \override Score.SpacingSpanner #'average-spacing-wishes = ##f
56 \mark \markup { \override #'(font-family . sans) { \box { A } } }
72 gs4. ( fs8 ) gs4 | % 22
78 \mark \markup { \override #'(font-family . sans) { \box { B } } }
94 gs4. ( fs8 ) gs4 | % 38
116 LeadVoxText = \lyricmode
118 What child is this, _ who, laid to rest, _
119 on Ma -- ry’s lap _ is slee -- _ ping?
120 Whom an -- gels greet _ with an -- thems sweet, _
121 while shep -- _ herds watch _ are keep -- ing?
123 This, this _ is Christ the King, _
124 whom shep -- herds guard _ and an -- gels sing:
125 Haste, haste _ to bring him laud, _
126 the babe, _ the son _ of Ma -- ry.
131 LeadVoxTextB = \lyricmode
133 _ lies he in _ such mean es -- tate _
134 where ox and ass _ are fee -- _ ding?
135 Good Chris -- tian, fear: _ for sin -- ners here _
136 the si -- _ lent word _ is plea -- ding.
146 LeadVoxTextC = \lyricmode
148 _ bring him in -- _ cense, gold, and myrrh, _
149 come pea -- sant, king, _ to own _ him;
150 The King of Kings _ sal -- va -- tion brings, _
151 let lo -- _ ving hearts _ en -- throne him.
155 Riffs = \relative c''
159 \override Staff.TimeSignature #'style = #'()
161 \override Score.SpacingSpanner #'average-spacing-wishes = ##f
166 \partial 4*1 a4 | % 0
167 << { \tiny c2 d4 } \\ { \tiny a,2 b4 } >> | % 1
168 << { e'4. fs8 e4 } \\ { c,2. } >> | % 2
169 << { d'2 b4 } \\ { g,2. } >> | % 3
170 << { g'4. a8 b4 } \\ { b,2. } >> | % 4
171 << { c'4. b8 a4 } \\ { a,2. } >> | % 5
172 << { gs'4. fs8 gs4 } \\ { e,2. } >> | % 6
173 << { a'2. } \\ { a,2. } >> | % 7
174 << { a'2 } \\ { a,2 } >> s4 | % 8
179 << { \tiny c4. b8 a4 } \\ { \tiny a,2. } >> | % 41
181 << { gs'4. fs8 gs4 } \\ { e,2. } >> | % 42
182 << { a'2. } \\ { a,2. } >> | % 43
183 << { a'2 } \\ { a,2 } >> s4 | % 44
185 << { \tiny gs'4. fs8 gs4 } \\ { \tiny e,2. } >> | % 45
187 << { a'2. } \\ { a,2. } >> | % 46
188 << { <a' cs>2.-\fermata } \\ { a,2. } >> \bar "|." % 47
199 %Bah, can't we set this globally?
204 \partial 4*1 s4 | % 0
279 % Use a RhythmicStaff on the chords instead of this?
280 % It almost works, but not quite. Doesn't collapse chords above to single notes...
284 % \set Voice.autoBeaming = ##f
285 % \set Staff.instrumentName = #"Rhythm"
286 \override Staff.TimeSignature #'style = #'()
288 \override NoteHead #'style = #'slash
292 \partial 4*1 s4 | % 0
300 c4 c c \bar "||:" % 8
322 c4 c c \bar "||" % 24
342 c4 c c \bar "||" % 40
359 c2.-\fermata \bar "|." % 47
366 s4_\markup { \dynamic f \italic { bass sustain, hh 16ths, no snare } } s2. | % 1
368 s2 s_\markup { \italic { dr. fill } } | % 4
369 s4_\markup { \italic { snare 2&4, hh 16ths } } s2. | % 5
374 s2 \once \override TextScript #'extra-offset = #'( 0.0 . -2.2 ) s4 \< _\markup { \italic { dr. fill } } s | % 20
379 s2 \once \override TextScript #'extra-offset = #'( 0.0 . -2.0 ) s4 \< _\markup { \italic { dr. fill } } s \! | % 36
380 s4_\markup { \dynamic ff \italic { no snare } } s2. | % 37
382 s2 \once \override TextScript #'extra-offset = #'( 0.0 . -2.0 ) s4 \< _\markup { \italic { dr. fill } } s \! | % 44
384 s4_\markup { \italic { On Cue } } s2. | % 61
385 s4 s2._\markup { \italic { rit. } } | % 62
394 % \new Staff = leadStaff { \new Voice = "lead" \LeadVox }
395 \new Staff = leadStaff { << \new Voice = "lead" \transpose a e \LeadVox \new Voice = "riffs" \transpose a e \Riffs >> }
396 \new Lyrics \lyricsto "lead" \LeadVoxText
397 \new Lyrics \lyricsto "lead" \LeadVoxTextB
398 \new Lyrics \lyricsto "lead" \LeadVoxTextC
401 \new ChoirStaff = "Rhythm"
403 \new ChordNames = "chords" \transpose a e \Chords
404 \new RhythmicStaff = "chordRhythm" << \StaffC \Dynamics >>
407 \set Score.skipBars = ##t
408 \set Score.melismaBusyProperties = #'()
415 #(define fonts (make-pango-font-tree
421 % Spread staves vertically across last page (default: t)
422 ragged-last-bottom = ##f
423 % Don't spread staves vertically across the page (default: f)
424 % ragged-bottom = ##t
425 % Allow partial line for last stave (default: f)
428 % To find out what's eating the space at the top...
429 % annotate-spacing = ##t
430 %let's try this: [It works! Huzzah!]
431 obsolete-page-top-space = 0 top-system-spacing #'basic-distance = #(/ obsolete-page-top-space staff-space)