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))
13 %Let's bump up the title size and switch to the chord font. :-)
15 title = \markup { \override #'(font-family . sans) \fontsize #3.5 "Joy To The World / Hark The Herald Angels Sing" }
16 composer = \markup { \override #'(font-family . sans) \fontsize #1.3 "George Friedrich Handel/Felix Mendelssohn" }
17 arranger = \markup { \override #'(font-family . sans) \fontsize #1.3 "arr. Ed Smart/Craig Harris" }
18 tagline = "Engraved by JLH and Lilypond 2.8.8"
26 LeadVox = \relative c''
28 % \set Voice.autoBeaming = ##f
29 % \set Staff.instrumentName = #"Lead vox"
32 \override Staff.TimeSignature #'style = #'()
34 \override Score.SpacingSpanner #'average-spacing-wishes = ##f
51 \mark \markup { \override #'(font-family . sans) { \box { A } } }
53 d4 cs8. b16 a4. g8 | % 9
55 b4. b8 cs4. cs8 | % 11
56 d2.. d8 \bar "||" % 12
58 \mark \markup { \override #'(font-family . sans) { \box { A5 } } }
60 d8 ( cs ) b ( a ) a8. ( g16 fs8 ) d' | % 13
61 d8 ( cs ) b ( a ) a8. ( g16 fs8 ) fs | % 14
62 fs8 fs fs fs16 ( g ) a4. g16 ( fs ) | % 15
63 e8 e e e16 ( fs ) g4. fs16 ( e ) | % 16
64 d8 ( d'4 ) b8 a8. ( g16 fs8 ) g8 | % 17
66 \time 2/4 fs4 e \time 4/4 | % 18
68 \voiceThree d2 \oneVoice s2 | % 19
86 \mark \markup { \override #'(font-family . sans) { \box { B } } }
88 ef'4 d8. c16 bf4. af8 | % 25
91 ef2.. ef8 \bar "||" % 28
93 \mark \markup { \override #'(font-family . sans) { \box { B5 } } }
95 ef8 ( d ) c ( bf ) bf8. ( af16 g8 ) ef' | % 29
96 ef8 ( d ) c ( bf ) bf8. ( af16 g8 ) g | % 30
97 g8 g g g16 ( af ) bf4. af16 ( g ) | % 31
98 f8 f f f16 ( g ) af4. g16 ( f ) | % 32
99 ef8 ( ef'4 ) c8 bf8. ( af16 g8 ) af8 | % 33
100 g4 f ef4. g16 ( f ) | % 34
101 ef8 ( ef'4 ) c8 bf8. ( af16 g8 ) af8 | % 35
104 \voiceThree ef2 \oneVoice s2 | % 37
115 \mark \markup { \override #'(font-family . sans) { \box { C } } }
124 e4 d c2 \bar "||" % 48
126 \mark \markup { \override #'(font-family . sans) { \box { C9 } } }
134 g4 a8 ( bf ) c4. f,8 | % 55
138 g4 a8 ( bf ) c4. f,8 | % 59
143 \time 2/4 f4 g \time 4/4 | % 60
154 g4 a8 bf c4. f,8 | % 66
161 LeadVoxText = \lyricmode
163 Joy to the world! the Lord is come:
164 let earth re -- ceive her king;
165 Let e -- _ v’ry _ heart __ _ _
166 pre -- pare _ him _ room, __ _ _
167 And heaven and na -- ture _ sing,
168 and _ heaven and na -- ture _ sing,
169 and _ heaven, _ and heaven _ _ and na -- ture sing.
171 He rules the world with truth and grace,
172 and makes the na -- tions prove
173 The glo -- _ ries _ of __ _ _
174 his right -- _ eous -- _ ness, __ _ _
175 And won -- ders of his _ love,
176 and _ won -- ders of his _ love,
177 and _ won -- _ ders, won -- _ _ ders of his love,
178 and _ won -- _ ders, won -- _ _ ders of his love.
181 Hark! the he -- rald an -- gels sing, _
182 “Glo -- ry to the new -- born king:
183 Peace on earth, and mer -- cy mild, _
184 God and sin -- ners re -- con -- ciled!”
185 Joy -- ful, all ye na -- tions, rise, _
186 join the tri -- umph of the skies; _
187 With an -- gel -- ic host pro -- claim,
188 “Christ is _ born in Beth -- le -- hem!”
189 Hark! the her -- ald an -- gels sing,
190 “Glo -- ry _ to the new -- born king.”
193 Hark! the her -- ald an -- gels sing,
194 “Glo -- ry _ to the new -- born king.”
197 LeadVoxTextB = \lyricmode
199 Joy to the world! the sav -- ior reigns:
200 let men their songs em -- ploy;
201 While fields _ and _ floods, __ _ _
202 rocks, hills, _ and _ plains __ _ _
203 Re -- peat the sound -- ing _ joy,
204 re -- _ peat the sound -- ing _ joy,
205 re -- _ peat, _ re -- peat _ _ the sound -- ing joy.
213 _ _ _ _ _ _ _ _ _ _ _ _
214 _ _ _ _ _ _ _ _ _ _ _ _
217 Hail the heaven born Prince of Peace! _
218 Hail the Sun of Right -- eous -- ness!
219 Light and life to all he brings, _
220 Risen with heal -- ing in his wings.
221 Mild he lays his glo -- ry by, _
222 born that man no more may die; _
223 Born to raise the sons of earth,
224 born to _ give them sec -- ond birth.
228 Riffs = \relative c'''
232 \override Staff.TimeSignature #'style = #'()
234 \override Score.SpacingSpanner #'average-spacing-wishes = ##f
239 << { \tiny <d fs,>8.-> <cs e,>16-^ ~ <cs e,>16 <b d,>8-^ <a d,>16 ~ <a d,>2 ~ } \\ { \tiny r2. r8. <a, fs e a,>16-> ~ } >> | % 1
240 << <a' d,>1 \\ <a, fs e a,>1 >> | % 2
241 << { <d' fs,>8.-> <c e,>16-^ ~ <c e,>16 <b d,>8-^ <a c,>16 ~ <a c,>2 ~ } \\ { r2. r8. <a, e d a>16-> ~ } >> | % 3
242 << { <a' c,>2. r4 } \\ { <a, e d a>1 } >> | % 4
243 << { <d' fs,>8.-> <cs e,>16-^ ~ <cs e,>16 <b d,>8-^ <a d,>16 ~ <a d,>2 ~ } \\ { r2. r8. <a, fs e a,>16-> ~ } >> | % 5
244 << <a' d,>1 \\ <a, fs e a,>1 >> | % 6
245 <d' fs,>8.-> <c e,>16-^ ~ <c e,>16 <b d,>8-^ <a c,>16 ~ <a c,>4.. ~ <a d, b>16 ~ | % 7
246 <a d, b>2 <a e cs> | % 8
249 \time 2/4 s2 \time 4/4
251 << { \voiceOne \tiny <d fs,>8.-> <cs e,>16-^ ~ <cs e,>16 <b d,>8-^ <a d,>16 ~ <a d,>2 ~ } \\ { \voiceTwo \tiny s2 r4 r8. <a, fs e a,>16-> ~ } >> | % 19
252 << { \voiceOne <a' d,>1 } \\ { \voiceTwo <a, fs e a,>1 } >> | % 20
253 <d' fs,>8.-> <c e,>16-^ ~ <c e,>16 <b d,>8-^ <a c,>16 ~ <a c,>4.. ~ <a d, b>16 ~ | % 21
254 <a d, b>2 <a e cs> | % 22
256 <d fs,>8.-> <c e,>16-^ ~ <c e,>16 <b d,>8-^ <a c,>16 ~ <a c,>4.. <bf ef, c>16 ~ | % 23
257 <bf ef, c>2 <bf f d> | % 24
263 << { \voiceOne \tiny <ef g,>8.-> <d f,>16-^ ~ <d f,>16 <c ef,>8-^ <bf ef,>16 ~ <bf ef,>2 ~ } \\ { \voiceTwo \tiny s2 r4 r8. <bf, g f bf,>16-> ~ } >> | % 37
264 << { \voiceOne <bf' ef,>1 } \\ { \voiceTwo <bf, g f bf,>1 } >> | % 38
265 <ef' g,>8.-> <df f,>16-^ ~ <df f,>16 <c ef,>8-^ <bf df,>16 ~ <bf df,>4.. ~ <bf f d>16 ~ | % 39
266 <bf f d>2 <bf g e> | % 40
269 \time 2/4 s2 \time 4/4
271 \voiceTwo c,,4 \oneVoice f f4. e8 | % 61
276 \voiceTwo c,4 \oneVoice f f4. e8 | % 68
278 f1-\fermata \bar "|." % 70
289 %Bah, can't we set this globally?
300 c2..:5.9 s16 g/a | % 7
307 d4 a8./d g16/d d4. g8 | % 9
310 b4:m s16 a8/cs d16 s2 | % 12
312 d4 g/d a8./d d16 s4 | % 13
313 d4 g/d a8./d d16 s4 | % 14
314 d2 s8. d16/fs s4 | % 15
315 a2 s8. a16/cs s4 | % 16
316 g4/b a/cs d g:maj7 | % 17
318 \time 2/4 d4/a a \time 4/4 | % 18
326 c2..:5.9 s16 g/a | % 21
330 c2..:5.9 s16 af/bf | % 23
339 c4:m s16 bf8/d ef16 s2 | % 28
341 ef4 af/ef bf8./ef ef16 s4 | % 29
342 ef4 af/ef bf8./ef ef16 s4 | % 30
343 ef2 s8. ef16/g s4 | % 31
344 bf2 s8. bf16/d s4 | % 32
345 af4/c bf/d ef af:maj7 | % 33
346 ef4/bf b:dim7 c:m bf/d | % 34
347 ef4 af:maj7 g:m7 c:m7 | % 35
352 df2..:5.9 s16 bf/c | % 39
367 bf4 d:m7 f/c c/bf | % 50
371 g4:m d:7.9- g2:m7 | % 54
375 g4:m7 d:7.9- g2:m7 | % 58
381 \time 2/4 f4/c c \time 4/4 | % 60
391 g4:m7 d:7.9- g2:m7 | % 65
404 % Use a RhythmicStaff on the chords instead of this?
405 % It almost works, but not quite. Doesn't collapse chords above to single notes...
409 % \set Voice.autoBeaming = ##f
410 % \set Staff.instrumentName = #"Rhythm"
411 \override Staff.TimeSignature #'style = #'()
413 \override NoteHead #'style = #'slash
417 c4 c c c8. c16-> ~ | % 1
419 c4 c c c8. c16-> ~ | % 3
421 c4 c c c8. c16-> ~ | % 5
423 c4 c c c8. c16-> ~ | % 7
424 c4 c c c \bar "||:" % 8
430 c4 c8. c16 c4. c8 | % 9
433 c8.-> c16-^ ~ c c8-^ c16-> ~ c2 \bar "||" % 12
435 c4 c c8. c16 ~ c4 | % 13
436 c4 c c8. c16 ~ c4 | % 14
437 c4-^ c-^ r8. c16-> ~ c4 | % 15
438 c4-^ c-^ r8. c16-> ~ c4 | % 16
441 \time 2/4 c4 c \time 4/4 | % 18
443 c4 c c c8. c16 ~ | % 19
449 c4 c c c8. c16-> ~ | % 21
453 c4 c c c8. c16-> ~ | % 23
457 c4 c c c \bar "||" % 24
462 c8.-> c16-^ ~ c c8-^ c16-> ~ c2 \bar "||" % 28
464 c4 c c8. c16 ~ c4 | % 29
465 c4 c c8. c16 ~ c4 | % 30
466 c4-^ c-^ r8. c16-> ~ c4 | % 31
467 c4-^ c-^ r8. c16-> ~ c4 | % 32
473 c4 c c c8. c16 ~ | % 37
475 c4 c c c8. c16 ~ | % 39
476 c4 c c c \bar "||" % 40
487 c4 c c c \bar "||" % 48
504 \time 2/4 c4 c \time 4/4 | % 60
519 c1-\fermata \bar "|." % 70
525 \override TextScript #'extra-offset = #'( 0.0 . -1.0 )
527 s4_\markup { \dynamic mf \italic { 16th note Samba } } s2. | % 1
532 \time 2/4 s2 \time 4/4
535 \time 2/4 s2 \time 4/4
539 s2 s2_\markup { \italic { rit. } } | % 69
547 % \new Staff = leadStaff { \new Voice = "lead" \LeadVox }
548 \new Staff = leadStaff { << \new Voice = "lead" \LeadVox \new Voice = "riffs" \Riffs >> }
549 \new Lyrics \lyricsto "lead" \LeadVoxText
550 \new Lyrics \lyricsto "lead" \LeadVoxTextB
553 \new ChoirStaff = "Rhythm"
555 \new ChordNames = "chords" \Chords
556 \new RhythmicStaff = "chordRhythm" << \StaffC \Dynamics >>
559 \set Score.skipBars = ##t
560 \set Score.melismaBusyProperties = #'()
565 % \context { \Staff \RemoveEmptyStaves }
566 % ragged-last-bottom = ##t
574 #(define fonts (make-pango-font-tree
580 % top-margin = -0.25 \in