Shamusworld >> Repos - music/blob - joy-to-the-world+hark-the-herald.ly

   1 \version "2.16.0"
   2 \include "pop-chords.ly"
   3 \include "english.ly"
   4
   5 % Good sizes are 16, 18, & 20
   6 staffSize = #16
   7 #(set-default-paper-size "letter")
   8 #(set-global-staff-size staffSize)
   9 #(ly:set-option (quote no-point-and-click))
  10
  11 \header
  12 {
  13 %Let's bump up the title size and switch to the chord font. :-)
  14
  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"
  19 }
  20
  21
  22 %
  23 % Lead vocal
  24 %
  25
  26 LeadVox = \relative c''
  27 {
  28 %       \set Voice.autoBeaming = ##f
  29 %       \set Staff.instrumentName = #"Lead vox"
  30         \clef G
  31         \key d \major
  32         \override Staff.TimeSignature #'style = #'()
  33         \time 4/4
  34 \override Score.SpacingSpanner #'average-spacing-wishes = ##f
  35
  36         % Intro
  37
  38         s1 |   % 1
  39         s1 |   % 2
  40         s1 |   % 3
  41         s1 |   % 4
  42         s1 |   % 5
  43         s1 |   % 6
  44         s1 |   % 7
  45         s1 \bar "||:"   % 8
  46
  47         \repeat volta 2
  48         {
  49                 % Verse
  50
  51 \mark \markup { \override #'(font-family . sans) { \box { A } } }
  52
  53                 d4 cs8. b16 a4. g8 |   % 9
  54                 fs4 e d4. a'8 |   % 10
  55                 b4. b8 cs4. cs8 |   % 11
  56                 d2.. d8 \bar "||"   % 12
  57
  58 \mark \markup { \override #'(font-family . sans) { \box { A5 } } }
  59
  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
  65
  66                 \time 2/4 fs4 e \time 4/4 |   % 18
  67
  68                 \voiceThree d2 \oneVoice s2 |   % 19
  69                 s1 |   % 20
  70         }
  71         \alternative
  72         {
  73                 {
  74                         s1 |   % 21
  75                         s1 |   % 22
  76                 }
  77                 {
  78                         s1 |   % 23
  79                 }
  80         }
  81
  82         s1 \bar "||"   % 24
  83
  84         \key ef \major
  85
  86 \mark \markup { \override #'(font-family . sans) { \box { B } } }
  87
  88         ef'4 d8. c16 bf4. af8 |   % 25
  89         g4 f ef4. bf'8 |   % 26
  90         c4. c8 d4. d8 |   % 27
  91         ef2.. ef8 \bar "||"   % 28
  92
  93 \mark \markup { \override #'(font-family . sans) { \box { B5 } } }
  94
  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
 102         g2 f \bar "||"   % 36
 103
 104         \voiceThree ef2 \oneVoice s2 |   % 37
 105         s1 |   % 38
 106         s1 |   % 39
 107         s1 \bar "||"   % 40
 108
 109         \key f \major
 110
 111         \repeat volta 2
 112         {
 113                 % Verse
 114
 115 \mark \markup { \override #'(font-family . sans) { \box { C } } }
 116
 117                 c4 f f4. e8 |   % 41
 118                 f4 a a ( g ) |   % 42
 119                 c4 c c4. bf8 |   % 43
 120                 a4 g a2 |   % 44
 121                 c,4 f f4. e8 |   % 45
 122                 f4 a a ( g ) |   % 46
 123                 c4 g g4. e8 |   % 47
 124                 e4 d c2 \bar "||"   % 48
 125
 126 \mark \markup { \override #'(font-family . sans) { \box { C9 } } }
 127
 128                 c'4 c c f, |   % 49
 129                 bf4 a a ( g ) |   % 50
 130                 c4 c c f, |   % 51
 131                 bf4 a a ( g ) |   % 52
 132                 d'4 d d c |   % 53
 133                 bf4 a bf2 |   % 54
 134                 g4 a8 ( bf ) c4. f,8 |   % 55
 135                 f4 g a2 |   % 56
 136                 d4. d8 d4 c |   % 57
 137                 bf4 a bf2 |   % 58
 138                 g4 a8 ( bf ) c4. f,8 |   % 59
 139         }
 140         \alternative
 141         {
 142                 {
 143                         \time 2/4 f4 g \time 4/4 |   % 60
 144                         f2 s2 |   % 61
 145                         s1 |   % 62
 146                 }
 147                 {
 148                         f4 g a2 |   % 63
 149                 }
 150         }
 151
 152         d4. d8 d4 c |   % 64
 153         bf4 a bf2 |   % 65
 154         g4 a8 bf c4. f,8 |   % 66
 155         f2 g |   % 67
 156         f2 s2 |   % 68
 157         s1 |   % 69
 158         s1 \bar "|."   % 70
 159 }
 160
 161 LeadVoxText = \lyricmode
 162 {
 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.
 170
 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.
 179
 180
 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.”
 191
 192         new -- born king.”
 193         Hark! the her -- ald an -- gels sing,
 194         “Glo -- ry _ to the new -- born king.”
 195 }
 196
 197 LeadVoxTextB = \lyricmode
 198 {
 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.
 206
 207         _ _ _ _ _ _ _ _
 208         _ _ _ _ _ _
 209         _ _ _ _ _ _ _ _
 210         _ _ _ _ _ _ _ _
 211         _ _ _ _ _ _ _
 212         _ _ _ _ _ _ _ _
 213         _ _ _ _ _ _ _ _ _ _ _ _
 214         _ _ _ _ _ _ _ _ _ _ _ _
 215
 216
 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.
 225 }
 226
 227
 228 Riffs = \relative c'''
 229 {
 230         \clef G
 231         \key d \major
 232         \override Staff.TimeSignature #'style = #'()
 233         \time 4/4
 234 \override Score.SpacingSpanner #'average-spacing-wishes = ##f
 235
 236         % Intro
 237
 238         \tiny
 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
 247
 248         s1*9
 249         \time 2/4 s2 \time 4/4
 250
 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
 255
 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
 258
 259         \key ef \major
 260
 261         s1*12
 262
 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
 267
 268         s1*19
 269         \time 2/4 s2 \time 4/4
 270
 271         \voiceTwo c,,4 \oneVoice f f4. e8 |   % 61
 272         f4 a a g |   % 62
 273
 274         s1*5
 275
 276         \voiceTwo c,4 \oneVoice f f4. e8 |   % 68
 277         f4 a a g |   % 69
 278         f1-\fermata \bar "|."   % 70
 279         \normalsize
 280 }
 281
 282
 283 %
 284 % Chord names
 285 %
 286
 287 Chords = \chordmode
 288 {
 289 %Bah, can't we set this globally?
 290 %       \popChords
 291
 292         % Intro
 293
 294         d1:5.9 |   % 1
 295         s1 |   % 2
 296         c1:5.9 |   % 3
 297         s1 |   % 4
 298         d1:5.9 |   % 5
 299         s1 |   % 6
 300         c2..:5.9 s16 g/a |   % 7
 301         s2 a |   % 8
 302
 303         \repeat volta 2
 304         {
 305                 % Verse
 306
 307                 d4 a8./d g16/d d4. g8  |   % 9
 308                 d4/a a d2 |   % 10
 309                 g2 a |   % 11
 310                 b4:m s16 a8/cs d16 s2 |   % 12
 311
 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
 317
 318                 \time 2/4 d4/a a \time 4/4 |   % 18
 319
 320                 d1:5.9 |   % 19
 321                 s1 |   % 20
 322         }
 323         \alternative
 324         {
 325                 {
 326                         c2..:5.9 s16 g/a |   % 21
 327                         s2 a |   % 22
 328                 }
 329                 {
 330                         c2..:5.9 s16 af/bf |   % 23
 331                 }
 332         }
 333
 334         s2 bf |   % 24
 335
 336         ef2.. af8 |   % 25
 337         ef4/bf bf ef2 |   % 26
 338         af2 bf |   % 27
 339         c4:m s16 bf8/d ef16 s2 |   % 28
 340
 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
 348         ef2/bf bf |   % 36
 349
 350         ef1:5.9 |   % 37
 351         s1 |   % 38
 352         df2..:5.9 s16 bf/c |   % 39
 353         s2 c |   % 40
 354
 355         \repeat volta 2
 356         {
 357                 f2 g:m11 |   % 41
 358                 f2/a f4/c c |   % 42
 359                 f2/a bf |   % 43
 360                 f4/c c f2 |   % 44
 361                 f2 f/e |   % 45
 362                 d2:m7 g:9 |   % 46
 363                 a4:m g/b c2 |   % 47
 364                 c4/g g c2 |   % 48
 365
 366                 f2. f4/a |   % 49
 367                 bf4 d:m7 f/c c/bf |   % 50
 368                 f2/a bf |   % 51
 369                 g2:m7 f4/c c |   % 52
 370                 bf2. d4:7.9- |   % 53
 371                 g4:m d:7.9- g2:m7 |   % 54
 372                 c4 c/bf f2/a |   % 55
 373                 f4/c c f2 |   % 56
 374                 bf2 d:aug/a |   % 57
 375                 g4:m7 d:7.9- g2:m7 |   % 58
 376                 c2/e f/a |   % 59
 377         }
 378         \alternative
 379         {
 380                 {
 381                         \time 2/4 f4/c c \time 4/4 |   % 60
 382                         f2 g:m11 |   % 61
 383                         f2/a f4/c c |   % 62
 384                 }
 385                 {
 386                         f4/c c f2 |   % 63
 387                 }
 388         }
 389
 390         bf2 d:aug/a |   % 64
 391         g4:m7 d:7.9- g2:m7 |   % 65
 392         c2/e f/a |   % 66
 393         f2/c c |   % 67
 394         f2 g:m11 |   % 68
 395         f2/a f4/c c |   % 69
 396         f1 |   % 70
 397 }
 398
 399
 400 %
 401 % Chord rhythms
 402 %
 403
 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...
 406
 407 StaffC = \relative c
 408 {
 409 %       \set Voice.autoBeaming = ##f
 410 %       \set Staff.instrumentName = #"Rhythm"
 411         \override Staff.TimeSignature #'style = #'()
 412         \time 4/4
 413         \override NoteHead #'style = #'slash
 414
 415         % Intro
 416
 417         c4 c c c8. c16-> ~ |   % 1
 418         c1 |   % 2
 419         c4 c c c8. c16-> ~ |   % 3
 420         c1 |   % 4
 421         c4 c c c8. c16-> ~ |   % 5
 422         c1 |   % 6
 423         c4 c c c8. c16-> ~ |   % 7
 424         c4 c c c \bar "||:"   % 8
 425
 426         \repeat volta 2
 427         {
 428                 % Verse
 429
 430                 c4 c8. c16 c4. c8 |   % 9
 431                 c4 c c c |   % 10
 432                 c4 c c c |   % 11
 433                 c8.-> c16-^ ~ c c8-^ c16-> ~ c2 \bar "||"   % 12
 434
 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
 439                 c4 c c c |   % 17
 440
 441                 \time 2/4 c4 c \time 4/4 |   % 18
 442
 443                 c4 c c c8. c16 ~ |   % 19
 444                 c1 |   % 20
 445         }
 446         \alternative
 447         {
 448                 {
 449                         c4 c c c8. c16-> ~ |   % 21
 450                         c4 c c c |   % 22
 451                 }
 452                 {
 453                         c4 c c c8. c16-> ~ |   % 23
 454                 }
 455         }
 456
 457         c4 c c c \bar "||"   % 24
 458
 459         c2.. c8 |   % 25
 460         c4 c c c |   % 26
 461         c4 c c c |   % 27
 462         c8.-> c16-^ ~ c c8-^ c16-> ~ c2 \bar "||"   % 28
 463
 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
 468         c4 c c c |   % 33
 469         c4 c c c |   % 34
 470         c4 c c c |   % 35
 471         c2 c \bar "||"   % 36
 472
 473         c4 c c c8. c16 ~ |   % 37
 474         c1 |   % 38
 475         c4 c c c8. c16 ~ |   % 39
 476         c4 c c c \bar "||"   % 40
 477
 478         \repeat volta 2
 479         {
 480                 c4 c c c |   % 41
 481                 c4 c c c |   % 42
 482                 c4 c c c |   % 43
 483                 c4 c c c |   % 44
 484                 c4 c c c |   % 45
 485                 c4 c c c |   % 46
 486                 c4 c c c |   % 47
 487                 c4 c c c \bar "||"   % 48
 488
 489                 c2.-> c4-> |   % 49
 490                 c4 c c c |   % 50
 491                 c4 c c c |   % 51
 492                 c4 c c c |   % 52
 493                 c4 c c c |   % 53
 494                 c4 c c c |   % 54
 495                 c4 c c c |   % 55
 496                 c4 c c c |   % 56
 497                 c4 c c c |   % 57
 498                 c4 c c c |   % 58
 499                 c4 c c c |   % 59
 500         }
 501         \alternative
 502         {
 503                 {
 504                         \time 2/4 c4 c \time 4/4 |   % 60
 505                         c4 c c c |   % 61
 506                         c4 c c c |   % 62
 507                 }
 508                 {
 509                         c4 c c c |   % 63
 510                 }
 511         }
 512
 513         c4 c c c |   % 64
 514         c4 c c c |   % 65
 515         c4 c c c |   % 66
 516         c2 c |   % 67
 517         c4 c c c |   % 68
 518         c4 c c c |   % 69
 519         c1-\fermata \bar "|."   % 70
 520 }
 521
 522
 523 Dynamics =
 524 {
 525         \override TextScript #'extra-offset = #'( 0.0 . -1.0 )
 526
 527         s4_\markup { \dynamic mf \italic { 16th note Samba } } s2. |   % 1
 528         s1*6
 529         s4 s \< s2 |   % 8
 530         s4_\f s2. |   % 9
 531         s1*8
 532         \time 2/4 s2 \time 4/4
 533         s4_\mf s2. |   % 19
 534         s1*40
 535         \time 2/4 s2 \time 4/4
 536         s1*2
 537         s2 s4 \< s \! |   % 63
 538         s1*5
 539         s2 s2_\markup { \italic { rit. } } |   % 69
 540 }
 541
 542
 543 \score
 544 {
 545         <<
 546                 <<
 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
 551                 >>
 552
 553                 \new ChoirStaff = "Rhythm"
 554                 <<
 555                         \new ChordNames = "chords" \Chords
 556                         \new RhythmicStaff = "chordRhythm" << \StaffC \Dynamics >>
 557                 >>
 558
 559                 \set Score.skipBars = ##t
 560                 \set Score.melismaBusyProperties = #'()
 561         >>
 562
 563         \layout
 564         {
 565 %               \context { \Staff \RemoveEmptyStaves }
 566 %               ragged-last-bottom = ##t
 567                 ragged-last = ##t
 568         }
 569 }
 570
 571
 572 \paper
 573 {
 574   #(define fonts (make-pango-font-tree
 575     "Times New Roman"
 576     "DomCasual BT"
 577     "Luxi Mono"
 578     (/ staffSize 20)))
 579
 580 %  top-margin = -0.25 \in
 581 }