Shamusworld >> Repos - music/blob - o-come-o-come-emmanuel.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 = #20
   7 #(set-default-paper-size "letter")
   8 #(set-global-staff-size staffSize)
   9 #(ly:set-option (quote no-point-and-click))
  10
  11 %{ Some useful characters: ‘ ’ “ ” – — † ‡ • … %}
  12
  13 \header
  14 {
  15 %Let's bump up the title size and switch to the chord font. :-)
  16
  17         title    = \markup { \override #'(font-family . sans) \fontsize #3.5 "O Come, O Come, Emmanuel" }
  18         composer = \markup { \override #'(font-family . sans) \fontsize #1.3 "Thomas Helmore" }
  19         arranger = \markup { \override #'(font-family . sans) \fontsize #1.3 "arr. Ed Smart" }
  20         tagline  = $(string-append "Engraved by JLH and Lilypond " (lilypond-version))
  21 }
  22
  23
  24 %
  25 % Lead vocal
  26 %
  27
  28 LeadVox = \relative c'
  29 {
  30 %       \set Voice.autoBeaming = ##f
  31 %       \set Staff.instrument = #"Lead vox"
  32         \clef G
  33         \key e \minor
  34         \override Staff.TimeSignature #'style = #'()
  35         \time 4/4
  36 \override Score.SpacingSpanner #'average-spacing-wishes = ##f
  37
  38         % Intro
  39
  40         s1^\markup { \hspace #0.0 \raise #1.0 { Half time feel } } |   % 1
  41         s1 |   % 2
  42         s1 |   % 3
  43         s1 |   % 4
  44         s1 |   % 5
  45         s1 |   % 6
  46         s1 |   % 7
  47         s2. e4 |   % 8
  48
  49         \repeat volta 3
  50         {
  51                 % Verse
  52
  53 \mark \markup { \override #'(font-family . sans) { \box { A } } }
  54
  55                 g4 b b b |   % 9
  56                 a4 ( c b ) a |   % 10
  57                 g2. a4 |   % 11
  58                 b4 g e g |   % 12
  59                 a4 ( fs e ) d |   % 13
  60                 e2. a4 |   % 14
  61                 a4 e e fs |   % 15
  62                 g2 ( fs4 ) e |   % 16
  63                 d2. g4 |   % 17
  64                 a4 b b b |   % 18
  65                 a4 ( c b ) a |   % 19
  66                 g2. d'4 \bar "||"   % 20
  67
  68                 % Chorus
  69
  70 \once \override Score.RehearsalMark #'self-alignment-X = #left
  71 \mark \markup { \override #'(font-family . sans) { \box { B } } \hspace #1.0 \raise #2.0 \musicglyph #"scripts.segno" }
  72
  73                 d2. b4 |   % 21
  74                 b2. b4 |   % 22
  75                 a4 ( c b ) a |   % 23
  76                 g2. a4 |   % 24
  77                 b4 g e g |   % 25
  78                 a4 ( fs e ) d |   % 26
  79 \break % Bleh.
  80         }
  81         \alternative
  82         {
  83                 {
  84                         e1 |   % 27
  85                         s1 |   % 28
  86                         s1 |   % 29
  87                         s2. e4 |   % 30
  88                 }
  89                 {
  90                         e1 |   % 31
  91                         s1 |   % 32
  92                         s1 |   % 33
  93                         s2.^\markup { \hspace #5.0 \raise #1.0 { D.S. } } \stemUp d'4 \stemNeutral \bar "||"   % 34
  94                 }
  95                 {
  96                         e,1 |   % 35
  97                 }
  98         }
  99
 100         s2. a4 \bar "||"   % 36
 101
 102         b4 g e g |   % 37
 103         a4 ( fs e ) d |   % 38
 104         e1^\fermata \bar "|."   % 39
 105 }
 106
 107 LeadVoxText = \lyricmode
 108 {
 109         O come, O come, Em -- ma -- _ _ nu -- el,
 110         and ran -- som cap -- tive Is -- _ _ ra -- el,
 111         That mourns in lone -- ly ex -- _ ile here,
 112         Un -- til the Son of God _ _ ap -- pear.
 113
 114         Re -- joice! Re -- joice! Em -- ma -- _ _ nu -- el
 115         shall come to thee, O Is -- _ _ ra -- el!
 116
 117         O
 118
 119         el!
 120
 121         Re --
 122
 123         el!
 124
 125         shall come to thee, O Is -- _ _ ra -- el!
 126 }
 127
 128 LeadVoxTextB = \lyricmode
 129 {
 130         _ come, thou day -- spring, come _ _ and cheer
 131         Our spi -- rits by thine ad -- _ _ vent here;
 132         Dis -- perse the gloo -- my clouds _ of night,
 133         And death’s dark sha -- dows put _ _ to flight.
 134 }
 135
 136
 137 Riffs = \relative c''
 138 {
 139         \clef G
 140         \key e \minor
 141         \override Staff.TimeSignature #'style = #'()
 142         \time 4/4
 143 \override Score.SpacingSpanner #'average-spacing-wishes = ##f
 144
 145         % Intro
 146
 147         \tiny
 148         r2 <d a g>4. <cs fs, e>8 ~ |   % 1
 149         <cs fs, e>1 |   % 2
 150         r2 <d a g>4. <cs fs, e>8 ~ |   % 3
 151         <cs fs, e>1 |   % 4
 152         r2 <d a g>4. <cs fs, e>8 ~ |   % 5
 153         <cs fs, e>1 |   % 6
 154         r2 <d a g>4. <a fs e d>8 ~ |   % 7
 155         <a fs e d>2. s4 |   % 8
 156
 157         s1*18
 158
 159         r2 <d a g>4. <cs fs, e>8 ~ |   % 27
 160         <cs fs, e>1 |   % 28
 161         r2 <d a g>4. <a fs e d>8 ~ |   % 29
 162         <a fs e d>2. s4 |   % 30
 163
 164         r2 <d a g>4. <cs fs, e>8 ~ |   % 31
 165         <cs fs, e>1 |   % 32
 166         r2 <d a g>4. \stemDown <a fs e d>8 ~ |   % 33
 167         <a fs e d>8 <a fs e d> <a fs e d> <a fs e d> <a fs e d> <a fs e d> <a fs e d> <a fs e d> \stemNeutral |   % 34
 168
 169         r2 <d a g>4. <a fs e d>8 ~ |   % 35
 170         <a fs e d>2. s4 |   % 36
 171
 172         \normalsize
 173 %{
 174         % Intro
 175
 176         \tiny
 177         \repeat "percent" 3   % 1 - 6
 178         {
 179                 << { \tiny f16 c f, <f' f,> ~ <f f,> f, c' f f8 e } \\ { \tiny f,,2 c'4 } >> |   % 1
 180                 << { \tiny f'16 c f, <f' f,> ~ <f f,> f, c' f f8 e } \\ { \tiny bf,2 c4 } >> |   % 2
 181         }
 182         << s2. \\ { \tiny d2 c4 } >> |   % 7
 183         << s2. \\ { \tiny bf2. } >> |   % 8
 184
 185         s2.*7
 186
 187         \voiceOne
 188         \repeat "percent" 6 { f''16 c f, <f' f,> ~ <f f,> f, c' f f8 e | }   % 16-21
 189         \oneVoice
 190
 191         s2.*7
 192
 193         \voiceOne
 194         \repeat "percent" 2 { f16 c f, f' ~ f f, c' f f8 e | }   % 29-30
 195         \oneVoice
 196
 197         \key g \major
 198
 199         \voiceOne
 200         \repeat "percent" 2 { g16 d g, g' ~ g g, d' g g8 fs | }   % 31-32
 201         \oneVoice
 202
 203         s2.*7
 204
 205         \voiceOne
 206         \repeat "percent" 4 { g16 d g, g' ~ g g, d' g g8 fs | }   % 40-43
 207         \oneVoice
 208         \normalsize
 209 %}
 210 }
 211
 212 RiffsBass = \relative c
 213 {
 214         \clef F
 215         \key e \minor
 216         \override Staff.TimeSignature #'style = #'()
 217         \time 4/4
 218 \override Score.SpacingSpanner #'average-spacing-wishes = ##f
 219
 220         % Intro
 221
 222         \tiny
 223
 224         <e b e,>4. b8 <e e,>4. <e b e,>8 ~ |   % 1
 225         <e b e,>2.. <d a d,>8 |   % 2
 226         <e b e,>4. b8 <e e,>4. <e b e,>8 ~ |   % 3
 227         <e b e,>2.. <d a d,>8 |   % 4
 228         <e b e,>4. b8 <e e,>4. <e b e,>8 ~ |   % 5
 229         <e b e,>2.. <d a d,>8 |   % 6
 230         <e b e,>4. b8 <e e,>4. b8 ~ |   % 7
 231         b2. r4 |   % 8
 232
 233         s1*18
 234
 235         <e b e,>4. b8 <e e,>4. <e b e,>8 ~ |   % 27
 236         <e b e,>2.. <d a d,>8 |   % 28
 237         <e b e,>4. b8 <e e,>4. b8 ~ |   % 29
 238         b2. r4 |   % 30
 239
 240         <e b e,>4. b8 <e e,>4. <e b e,>8 ~ |   % 31
 241         <e b e,>2.. <d a d,>8 |   % 32
 242         <e b e,>4. b8 <e e,>4. b8 ~ |   % 33
 243         b2. r4 |   % 34
 244
 245         <e b e,>4. b8 <e e,>4. <e b e,>8 ~ |   % 35
 246         <e b e,>2. r4 |   % 36
 247
 248         \normalsize
 249 }
 250
 251
 252 %
 253 % Chord names
 254 %
 255
 256 Chords = \chordmode
 257 {
 258 %Bah, can't we set this globally?
 259 %       \popChords
 260
 261         % Intro
 262
 263         s1 |   % 1
 264         s1 |   % 2
 265         s1 |   % 3
 266         s1 |   % 4
 267         s1 |   % 5
 268         s1 |   % 6
 269         s2.. b8:m11 |   % 7
 270         s1 |   % 8
 271
 272         \repeat volta 3
 273         {
 274                 % Verse
 275
 276                 e1:m7 |   % 9
 277                 a1:m9 |   % 10
 278                 e1:m7 |   % 11
 279                 c1:maj7 |   % 12
 280                 a2:m7 b:m7 |   % 13
 281                 e1:m7 |   % 14
 282                 a1:m9 |   % 15
 283                 e2:m7 d4/c c |   % 16
 284                 b1:m7 |   % 17
 285                 g2:maj7 e:m7 |   % 18
 286                 a2:m7 c:maj7/d |   % 19
 287                 g2:sus2 g |   % 20
 288
 289                 % Chorus
 290
 291                 d2. e4:m7 |   % 21
 292                 b1:m7 |   % 22
 293                 a2:m7 b:7.9-.13- |   % 23
 294                 e2.:m7 d4 |   % 24
 295                 c2:maj7 a:m7 |   % 25
 296                 fs:m7.5- b:m7 |   % 26
 297         }
 298         \alternative
 299         {
 300                 {
 301                         s1 |   % 27
 302                         s1 |   % 28
 303                         s2.. b8:m11 |   % 29
 304                         s1 |   % 30
 305                 }
 306                 {
 307                         s1 |   % 31
 308                         s1 |   % 32
 309                         s2.. b8:m11 |   % 33
 310                         s1 |   % 34
 311                 }
 312                 {
 313                         s2.. b8:m11 |   % 35
 314                 }
 315         }
 316
 317         s1 |   % 36
 318
 319         c2:maj7 a:m7 |   % 37
 320         fs:m7.5- b:m7 |   % 38
 321         e1:m11 |   % 39
 322 }
 323
 324
 325 %
 326 % Chord rhythms
 327 %
 328
 329 % Use a RhythmicStaff on the chords instead of this?
 330 % It almost works, but not quite. Doesn't collapse chords above to single notes...
 331
 332 StaffC = \relative c
 333 {
 334 %       \set Voice.autoBeaming = ##f
 335 %       \set Staff.instrument = #"Rhythm"
 336         \override Staff.TimeSignature #'style = #'()
 337         \time 4/4
 338         \override NoteHead #'style = #'slash
 339
 340         % Intro
 341
 342         r1 |   % 1
 343         r1 |   % 2
 344         r1 |   % 3
 345         r1 |   % 4
 346         r1 |   % 5
 347         r1 |   % 6
 348         r2.. c8 ~ |   % 7
 349         c1 |   % 8
 350
 351         \repeat volta 3
 352         {
 353                 % Verse
 354
 355                 c4 c c c |   % 9
 356                 c4 c c c |   % 10
 357                 c4 c c c |   % 11
 358                 c4 c c c |   % 12
 359                 c4 c c c |   % 13
 360                 c4 c c c |   % 14
 361                 c4 c c c |   % 15
 362                 c4 c c c |   % 16
 363                 c4 c c c |   % 17
 364                 c4 c c c |   % 18
 365                 c4 c c c |   % 19
 366                 c4 c c c \bar "||"   % 20
 367
 368                 % Chorus
 369
 370                 c4 c c c |   % 21
 371                 c4 c c c |   % 22
 372                 c4 c c c |   % 23
 373                 c4 c c c |   % 24
 374                 c4 c c c |   % 25
 375                 c4 c c c |   % 26
 376         }
 377         \alternative
 378         {
 379                 {
 380                         r1 |   % 27
 381                         r1 |   % 28
 382                         r2.. c8 ~ |   % 29
 383                         c1 |   % 30
 384                 }
 385                 {
 386                         r1 |   % 31
 387                         r1 |   % 32
 388                         r2.. c8 ~ |   % 33
 389                         c8 c c c c c c c |   % 34
 390                 }
 391                 {
 392                         r2.. c8 ~ |   % 35
 393                 }
 394         }
 395
 396         c1 \bar "||"   % 36
 397
 398         c2 c |   % 37
 399         c2 c |   % 38
 400         c1^\fermata \bar "|."   % 39
 401 }
 402
 403
 404 Dynamics =
 405 {
 406         s4\mf s2. |   % 1
 407
 408         s1*7
 409
 410         s4_\markup { \italic { 1st X colors, 2nd X lite sn. } } s2. |   % 9
 411
 412         s1*10
 413
 414         s4\< s2. |   % 20
 415         s4\f s2. |   % 21
 416
 417         s1*4
 418
 419         s4 s \> s s \! |   % 26
 420         s4\mf s2. |   % 27
 421
 422         s1*6
 423
 424         s4 s \< s s \! |   % 34
 425
 426         s1
 427
 428         s4 s \> s s \! |   % 36
 429
 430         s1
 431
 432         s4_\markup { \italic { rit. } } s2. |   % 38
 433 }
 434
 435
 436 \score
 437 {
 438         <<
 439                 <<
 440                         \new Staff = leadStaff { << \new Voice = "lead" \LeadVox \new Voice = "riffs" \Riffs >> }
 441                         \new Lyrics \lyricsto "lead" \LeadVoxText
 442                         \new Lyrics \lyricsto "lead" \LeadVoxTextB
 443                 >>
 444
 445                 <<
 446                         \new Staff = leadStaffBass { \new Voice = "leadbass" \RiffsBass }
 447                 >>
 448
 449                 \new ChoirStaff = "Rhythm"
 450                 <<
 451                         \new ChordNames = "chords" \Chords
 452                         \new RhythmicStaff = "chordRhythm" << \StaffC \Dynamics >>
 453                 >>
 454
 455                 \set Score.skipBars = ##t
 456                 \set Score.melismaBusyProperties = #'()
 457         >>
 458
 459         \layout
 460         {
 461                 \context { \Staff \RemoveEmptyStaves }
 462                 ragged-last-bottom = ##t
 463                 ragged-last = ##t
 464         }
 465 }
 466
 467
 468 % Alternate score (for dorks)
 469 %{
 470         <<
 471                 \new ChoirStaff = "Rhythm"
 472                 <<
 473                         \new ChordNames = "chords" \Chords
 474                         \new RhythmicStaff = "chordRhythm" << \StaffC \Dynamics >>
 475                 >>
 476
 477                 <<
 478                         \new Staff = leadStaff { << \new Voice = "lead" \LeadVox \new Voice = "riffs" \Riffs >> }
 479                         \new Lyrics \lyricsto "lead" \LeadVoxText
 480                         \new Lyrics \lyricsto "lead" \LeadVoxTextB
 481                 >>
 482
 483                 <<
 484                         \new Staff = leadStaffBass { \new Voice = "leadbass" \RiffsBass }
 485                 >>
 486
 487                 \set Score.skipBars = ##t
 488                 \set Score.melismaBusyProperties = #'()
 489         >>
 490
 491         \layout
 492         {
 493                 \context { \Staff \RemoveEmptyStaves }
 494                 ragged-last-bottom = ##t
 495                 ragged-last = ##t
 496         }
 497 %}
 498
 499 \paper
 500 {
 501   #(define fonts (make-pango-font-tree
 502     "Times New Roman"
 503     "DomCasual BT"
 504     "Luxi Mono"
 505     (/ staffSize 20)))
 506
 507 %  top-margin = -0.25 \in
 508 }