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 title = \markup { \override #'(font-family . sans) \fontsize #3.5 "Angels We Have Heard On High" }
16 % subtitle = \markup { \override #'(font-family . sans) \fontsize #1.5 "Capo 3 Version" }
17 % composer = \markup { \override #'(font-family . sans) \fontsize #1.3 "" }
18 arranger = \markup { \override #'(font-family . sans) \fontsize #1.3 "arr. Ed Smart" }
19 tagline = $(string-append "Engraved by JLH and Lilypond " (lilypond-version))
26 LeadVox = \relative c''
32 \override Score.SpacingSpanner #'average-spacing-wishes = ##f
41 \mark \markup { \override #'(font-family . sans) { \box { 1 } } }
56 \mark \markup { \override #'(font-family . sans) { \box { A } } }
65 a4. g8 f2 \bar "||" % 20
69 \mark \markup { \override #'(font-family . sans) { \box { B } } }
71 c'2 ( d8 c bf a | % 21
101 \mark \markup { \override #'(font-family . sans) { \box { C } } }
110 b4. a8 g2 \bar "||" % 44
114 \mark \markup { \override #'(font-family . sans) { \box { D } } }
116 d'2 ( e8 d c b | % 45
133 \mark \markup { \override #'(font-family . sans) { \box { E } } }
143 g1-\fermata \bar "|." % 63
146 LeadVoxText = \lyricmode
148 An -- gels we have heard on high
149 sweet -- ly sing -- ing o’er the plains,
150 And the moun -- tains in re -- ply
151 e -- cho back their joy -- ous strains.
153 Glo -- _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ ri -- a
154 in ex -- cel -- sis De -- o,
155 Glo -- _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ ri -- a
156 in ex -- cel -- sis De -- _ o.
160 Come to Beth -- le -- hem and see
161 him whose birth the an -- gels sing;
162 Come a -- dore on bend -- ed knee,
163 Christ, the Lord, the new -- born king.
165 Glo -- _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ ri -- a
166 in ex -- cel -- sis De -- o,
167 Glo -- _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ ri -- a
168 in ex -- cel -- sis De -- _ o.
170 in ex -- cel -- sis De -- _ o.
173 LeadVoxTextB = \lyricmode
175 Shep -- herds why this ju -- bi -- lee?
176 Why your joy -- ous strains pro -- long?
177 Say what may the ti -- dings be
178 which in -- spire your heaven -- ly song?
186 \numericTimeSignature
188 \override Score.SpacingSpanner #'average-spacing-wishes = ##f
192 r2 r4 f16 g a bf | % 4
213 f4 s8. bf2:sus2/f s16 | % 1
214 f4 s8. bf2:sus2/f s16 | % 2
215 f4 s8. bf2:sus2/f s16 | % 3
216 f4 s8. bf2:sus2/f s16 | % 4
224 f4 s8. bf2:sus2 s16 | % 11
225 f4 s8. bf2:sus2 s16 | % 12
252 bf4/d c/e f bf | % 31
258 f4 s8. bf2:sus2 s16 | % 33
259 f4 s8. bf2:sus2 s16 | % 34
262 f4 s8. bf2:sus2 s16 | % 35
266 f4 s8. bf4:sus2 s16 c4/d | % 36
287 b2:m7.5- e:7.9- | % 51
288 a2:m7 c4/d ds:dim7 | % 52
298 g4 s8. c2:sus2 s16 | % 57
299 g4 s8. c2:sus2 s16 | % 58
300 g4 s8. c2:sus2 s16 | % 59
301 g4 s8. c2:sus2 s16 | % 60
314 % Use a RhythmicStaff on the chords instead of this?
315 % It almost works, but not quite. Doesn't collapse chords above to single notes...
319 \numericTimeSignature
321 \override NoteHead #'style = #'slash
326 c4-> c8. c16-> ~ c4 c | % 1
327 c4-> c8. c16-> ~ c4 c | % 2
328 c4-> c8. c16-> ~ c4 c | % 3
329 c4-> c8. c16-> ~ c4 c \bar "||" % 4
335 c4-> c-> c-> c-> | % 9
337 c4-> c8. c16-> ~ c4 c | % 11
338 c4-> c8. c16-> ~ c4 c \bar ".|:-||" % 12
351 c4 c c c \bar "||" % 20
359 c4-> c-> c-> c-> | % 25
365 c4-> c-> c-> c-> | % 31
371 c4 c8. c16-> ~ c4 c | % 33
372 c4 c8. c16-> ~ c4 c | % 34
375 c4 c8. c16-> ~ c4 c | % 35
379 c4 c8. c16-> ~ c4 c \bar "||" % 36
390 c4-> c-> c c \bar "||" % 44
398 c4-> c-> c-> c-> | % 49
404 c4-> c-> c-> c-> | % 55
411 c4 c8. c16-> ~ c4 c | % 57
412 c4 c8. c16-> ~ c4 c | % 58
413 c4 c8. c16-> ~ c4 c | % 59
414 c4 c8. c16-> ~ c4 c | % 60
417 c4-> c-> c-> c-> | % 61
419 c1-\fermata \bar "|." % 63
425 s4_\markup { \dynamic f \italic { bass sustain, hh 16ths, no snare } } s2. | % 1
427 s2 s_\markup { \italic { dr. fill } } | % 4
428 s4_\markup { \italic { snare 2&4, hh 16ths } } s2. | % 5
433 s2 \once \override TextScript #'extra-offset = #'( 0.0 . -2.2 ) s4 \< _\markup { \italic { dr. fill } } s | % 20
438 s2 \once \override TextScript #'extra-offset = #'( 0.0 . -2.0 ) s4 \< _\markup { \italic { dr. fill } } s \! | % 36
439 s4_\markup { \dynamic ff \italic { no snare } } s2. | % 37
441 s2 \once \override TextScript #'extra-offset = #'( 0.0 . -2.0 ) s4 \< _\markup { \italic { dr. fill } } s \! | % 44
443 s4_\markup { \italic { On Cue } } s2. | % 61
444 s4 s2._\markup { \italic { rit. } } | % 62
453 << \new Voice = "lead" \LeadVox \new Voice = "riffs" \Riffs >>
454 \new Lyrics \lyricsto "lead" \LeadVoxText
455 \new Lyrics \lyricsto "lead" \LeadVoxTextB
460 \new ChordNames \Chords
462 % \new ChordNames = "chords" \transpose f d \Chords
463 \new RhythmicStaff << \StaffC \Dynamics >>
466 \set Score.skipBars = ##t
467 \set Score.melismaBusyProperties = #'()
474 #(define fonts (make-pango-font-tree
480 % Don't spread staves vertically across last page (default: t)
481 ragged-last-bottom = ##f
482 % Don't spread staves vertically across the page (default: f)
483 % ragged-bottom = ##t
484 % Allow partial line for last stave (default: f)
487 % To find out what's eating the space at the top...
488 % annotate-spacing = ##t