Shamusworld >> Repos - music/blob - o-come-all-ye-faithful.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 "O Come, All Ye Faithful" }
  16         composer = \markup { \override #'(font-family . sans) \fontsize #1.3 "Traditional" }
  17         arranger = \markup { \override #'(font-family . sans) \fontsize #1.3 "arr. Craig Harris" }
  18         tagline  = "Engraved by JLH and Lilypond 2.8.6"
  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 f \major
  32         \override Staff.TimeSignature #'style = #'()
  33         \time 4/4
  34 \override Score.SpacingSpanner #'average-spacing-wishes = ##f
  35
  36         % Intro
  37
  38         \partial 4*1 s4 \bar "||"   % 0
  39         s1 |   % 1
  40         s1 |   % 2
  41         s1 |   % 3
  42         s2. f4 \bar "||"   % 4
  43
  44         % Verse
  45
  46 \mark \markup { \override #'(font-family . sans) { \box { A } } }
  47
  48         f2 c4 f |   % 5
  49         g2 c, |   % 6
  50         a'4 g a bf |   % 7
  51         a2 g4 f |   % 8
  52         f2 e4 d |   % 9
  53         e4 ( f ) g a |   % 10
  54         e2 ( d4. ) c8 |   % 11
  55         c1 |   % 12
  56         c'2 bf4 a |   % 13
  57         bf2 a |   % 14
  58         g4 a f g |   % 15
  59         e4. ( d8 ) c4 f |   % 16
  60         f4 e f g |   % 17
  61         f2 c4 a' |   % 18
  62         a4 g a bf |   % 19
  63         a2 g4 a |   % 20
  64         bf4 a g f |   % 21
  65         e2 f4 ( bf ) |   % 22
  66         a2 ( g4. ) f8 |   % 23
  67         f1 ~ |   % 24
  68         f1 \bar "||"   % 25
  69
  70         % Verse
  71
  72 \mark \markup { \override #'(font-family . sans) { \box { B } } }
  73
  74         f2 c4 f |   % 26
  75         g2 c, |   % 27
  76         a'4 g a bf |   % 28
  77         a2 g4 f |   % 29
  78         f2 e4 d |   % 30
  79         e4 f g a |   % 31
  80         e2 d4. c8 |   % 32
  81         c1 |   % 33
  82         c'2 bf4 a |   % 34
  83         bf2 a |   % 35
  84         g4 a f g |   % 36
  85         e4. ( d8 ) c4 f |   % 37
  86         f4 e f g |   % 38
  87         f2 c4 a' |   % 39
  88
  89 \break %Bah, only valid for size 16!!!
  90
  91         a4 g a bf |   % 40
  92         a2 g4 a |   % 41
  93         bf a g f |   % 42
  94         e2 f4 ( bf ) |   % 43
  95         a2 ( g4. ) f8 |   % 44
  96         f1 \bar "||"   % 45
  97
  98         % Verse
  99
 100 \mark \markup { \override #'(font-family . sans) { \box { C } } }
 101
 102         f2 c4 f |   % 46
 103         g2 c, |   % 47
 104         a'4 g a bf |   % 48
 105         a2 g4 f |   % 49
 106         f2 e4 d |   % 50
 107         e4 ( f ) g a |   % 51
 108         e2 ( d4. ) c8 |   % 52
 109         c1 |   % 53
 110         c'2 bf4 a |   % 54
 111         bf2 a |   % 55
 112         g4 a f g |   % 56
 113         e4. ( d8 ) c4 f |   % 57
 114         f4 e f g |   % 58
 115         f2 c4 a' |   % 59
 116         a4 g a bf |   % 60
 117         a2 g4 a |   % 61
 118         bf a g f |   % 62
 119         e2 f4 ( bf ) |   % 63
 120         a2 ( g4. ) f8 |   % 64
 121         f2. a4 |   % 65
 122         bf4-> a-> g-> f-> |   % 66
 123         e2 f4 ( bf ) |   % 67
 124         a1-> ( |   % 68
 125         g2. ) ~ g8 f |   % 69
 126         f1^\fermata \bar "|."   % 70
 127 }
 128
 129 LeadVoxText = \lyricmode
 130 {
 131         O come, all ye fai -- thful,
 132         joy -- ful and tri -- um -- phant,
 133         O come ye, O come _ ye to Beth -- _ le -- hem;
 134         Come and be -- hold him, born the king of an -- _ gels;
 135
 136         O come let us a -- dore him,
 137         O come let us a -- dore him,
 138         O come let us a -- dore him, _
 139         Christ, _ the Lord. __ _
 140
 141         Sing, choirs of an -- gels,
 142         sing in ex -- ul -- ta -- tion,
 143         O sing, all ye ci -- ti -- zens of hea -- ven a -- bove;
 144         Glo -- ry to God, all glo -- ry in the high -- _ est;
 145
 146         O come let us a -- dore him,
 147         O come let us a -- dore him,
 148         O come let us a -- dore him, _
 149         Christ, _ the Lord.
 150
 151         Yea, Lord, we greet thee,
 152         born this hap -- py morn -- ing,
 153         O Je -- sus to thee _ be all glo -- _ ry given;
 154         Word of the Fa -- ther, now in flesh ap -- pear -- _ ing;
 155
 156         O come let us a -- dore him,
 157         O come let us a -- dore him,
 158         O come let us a -- dore him, _
 159         Christ, _ the Lord;
 160
 161         O come let us a -- dore him, _
 162         Christ, __ _ _ the Lord.
 163 }
 164
 165
 166 Riffs = \relative c''
 167 {
 168         \clef G
 169         \key f \major
 170         \override Staff.TimeSignature #'style = #'()
 171         \time 4/4
 172 \override Score.SpacingSpanner #'average-spacing-wishes = ##f
 173
 174         % Intro
 175
 176         \tiny
 177         \partial 4*1 a4 |   % 0
 178         bf4-> a-> g-> f-> |   % 1
 179         e2 f4 bf |   % 2
 180         a2 g4. f8 |   % 3
 181         f2. s4 |   % 4
 182         \normalsize
 183 }
 184
 185
 186 %
 187 % Chord names
 188 %
 189
 190 Chords = \chordmode
 191 {
 192 %Bah, can't we set this globally?
 193 %       \popChords
 194
 195         % Intro
 196
 197         \partial 4*1 d4:7/fs |   % 0
 198         g4:m f/a g:m/bf g:7/b |   % 1
 199         c4 c/bf f/a bf:m/df |   % 2
 200         f2/c g4:m7/c c:9 |   % 3
 201         f2 g:m7/c |   % 4
 202
 203         % Verse
 204
 205         f1:5.9 |   % 5
 206         g2:m7 c:sus4.7 |   % 6
 207         f4 c/e f c:7/g |   % 7
 208         f2/a g4:m7/c a:aug7/cs |   % 8
 209         d2:m c4 g |   % 9
 210         c4 d:m7 c/e f |   % 10
 211         c2/g d4:m7/g g:7 |   % 11
 212         c2:sus4 c |   % 12
 213         f2/a g4:m6 f |   % 13
 214         g4:m7 c:7 f2 |   % 14
 215         c4/e f d:m g:m/bf |   % 15
 216         c2 c:7 |   % 16
 217         f4 c/f f g:m/f |   % 17
 218         f1 |   % 18
 219         f4 c/f f g:m7 |   % 19
 220         f2/a c4 d:7 |   % 20
 221         g4:m f/a g:m/bf g:7/b |   % 21
 222         c2 ef:9 |   % 22
 223         f2/c g4:m c:9 |   % 23
 224         f4 d2.:m |   % 24
 225         g2:m7 g4:m7/c c:7 |   % 25
 226
 227         % Verse
 228
 229         f2:9^7 d:m |   % 26
 230         g2:m9 c:sus4.7 |   % 27
 231         f4 c/e f c:7/g |   % 28
 232         g2:9 g4:m7/c a:aug7/cs |   % 29
 233         d2:m g:13 |   % 30
 234         c4 d:m7 c/e f |   % 31
 235         c2/g d4:m7/g g:7 |   % 32
 236         c2:sus4 c |   % 33
 237         a2:m7 d:aug7 |   % 34
 238         g2:m7 c:13 |   % 35
 239         f2:maj9 d:m |   % 36
 240         g2:sus4.7 c:sus4.7 |   % 37
 241         f4 c/f f g:m/f |   % 38
 242         f1 |   % 39
 243         f4 c/e f g:m7 |   % 40
 244         ef2:maj9.11+ a4:m7/d d:7/fs |   % 41
 245         g4:m f/a g:m/bf g:7/b |   % 42
 246         c2 ef4:9 d:aug7 |   % 43
 247         g2:9 g4:m/c c:9 |   % 44
 248         f4 d:m g:m7 g:m7/c |   % 45
 249
 250         % Verse
 251
 252         f1:9^7 |   % 46
 253         g2:m7 c:sus4.7 |   % 47
 254         a2:m7 bf:maj7 |   % 48
 255         b2:m7.5- g4:m7/c a:aug7/cs |   % 49
 256         d2:m9 g:13 |   % 50
 257         c4 d:m7 c/e f |   % 51
 258         c2/g d4:m7/g g:7 |   % 52
 259         c2:sus4 e:m7.5- |   % 53
 260         a2:m7.5- d:aug7 |   % 54
 261         e2:m7.5- a:sus4.7 |   % 55
 262         a4:m7/d df:aug f:6/c g/b |   % 56
 263         bf2:9.11+ c:sus4.7 |   % 57
 264         f4 c/f f g:m/f |   % 58
 265         f1 |   % 59
 266         d4:m c/d d:m ef:9 |   % 60
 267         ef2:9.11+ a4:m7/d d:7/fs |   % 61
 268         g4:m f/a g:m/bf g:7/b |   % 62
 269         c2 ef4:9 d:aug7 |   % 63
 270         g2:9 g4:m/c a:7/cs |   % 64
 271         d2:m7 g:9 |   % 65
 272         g4:m f/a g:m/bf g:7/b |   % 66
 273         c4 c/bf f/a bf:m/df |   % 67
 274         f1/c |   % 68
 275         g2:m7 g:m7/c |   % 69
 276         f1 |   % 70
 277 }
 278
 279
 280 %
 281 % Chord rhythms
 282 %
 283
 284 % Use a RhythmicStaff on the chords instead of this?
 285 % It almost works, but not quite. Doesn't collapse chords above to single notes...
 286
 287 StaffC = \relative c
 288 {
 289 %       \set Voice.autoBeaming = ##f
 290 %       \set Staff.instrumentName = #"Rhythm"
 291         \override Staff.TimeSignature #'style = #'()
 292         \time 4/4
 293         \override NoteHead #'style = #'slash
 294
 295         % Intro
 296
 297         \partial 4*1 c4 \bar "||"   % 0
 298         c4 c c c |   % 1
 299         c4 c c c |   % 2
 300         c4 c c c |   % 3
 301         c4 c c c \bar "||"   % 4
 302
 303         % Verse
 304
 305         c4 c c c |   % 5
 306         c4 c c c |   % 6
 307         c4 c c c |   % 7
 308         c4 c c c |   % 8
 309         c4 c c c |   % 9
 310         c4 c c c |   % 10
 311         c4 c c c |   % 11
 312         c4 c c c |   % 12
 313         c4 c c c |   % 13
 314         c4 c c c |   % 14
 315         c4 c c c |   % 15
 316         c4 c c c |   % 16
 317         c4 c c c |   % 17
 318         c4 c c c |   % 18
 319         c4 c c c |   % 19
 320         c4 c c c |   % 20
 321         c4 c c c |   % 21
 322         c4 c c c |   % 22
 323         c4 c c c |   % 23
 324         c4 c c c |   % 24
 325         c4 c c c \bar "||"   % 25
 326
 327         % Verse
 328
 329         c4 c c c |   % 26
 330         c4 c c c |   % 27
 331         c4 c c c |   % 28
 332         c4 c c c |   % 29
 333         c4 c c c |   % 30
 334         c4 c c c |   % 31
 335         c4 c c c |   % 32
 336         c4 c c c |   % 33
 337         c4 c c c |   % 34
 338         c4 c c c |   % 35
 339         c4 c c c |   % 36
 340         c4 c c c |   % 37
 341         c4 c c c |   % 38
 342         c4 c c c |   % 39
 343         c4 c c c |   % 40
 344         c4 c c c |   % 41
 345         c4 c c c |   % 42
 346         c4 c c c |   % 43
 347         c4 c c c |   % 44
 348         c4 c c c \bar "||"   % 45
 349
 350         % Verse
 351
 352         c4 c c c |   % 46
 353         c4 c c c |   % 47
 354         c4 c c c |   % 48
 355         c4 c c c |   % 49
 356         c4 c c c |   % 50
 357         c4 c c c |   % 51
 358         c4 c c c |   % 52
 359         c4 c c c |   % 53
 360         c4 c c c |   % 54
 361         c4 c c c |   % 55
 362         c4 c c c |   % 56
 363         c4 c c c |   % 57
 364         c4 c c c |   % 58
 365         c4 c c c |   % 59
 366         c4 c c c |   % 60
 367         c4 c c c |   % 61
 368         c4 c c c |   % 62
 369         c4 c c c |   % 63
 370         c4 c c c |   % 64
 371         c4 c c c |   % 65
 372         c4 c c c |   % 66
 373         c4 c c c |   % 67
 374         c4 c c c |   % 68
 375         c4 c c c |   % 69
 376         c1^\fermata \bar "|."   % 70
 377 }
 378
 379
 380 Dynamics =
 381 {
 382         \override TextScript #'extra-offset = #'( 0.0 . -1.0 )
 383
 384         \partial 4*1 s4_\f |   % 0
 385         s4_\markup { \italic { full band, snare } } s2. |   % 1
 386         s1*2
 387         s4 s \> s s \! |   % 4
 388         s4_\markup { \dynamic mf \italic { piano only } } s2. |   % 5
 389         s1*11
 390         s4_\markup { \dynamic mp \italic { bass in, cym } } s2. |   % 17
 391         s1*2
 392         s4 s \< s s_\f |   % 20
 393         s1*2
 394         s2 s_\markup { \italic { dr. fill } } |   % 23
 395         s4_\markup { \italic { dr. groove, s-stick 2&4 } } s2. |   % 24
 396         s1*13
 397         s4_\markup { \dynamic mp \italic { no backbeat } } s2. |   % 38
 398         s1*2
 399         s4 s \< s s_\f |   % 41
 400         s4_\markup { \italic { backbeat } } s2. |   % 42
 401         s1*2
 402         s2 s_\markup { \italic { dr. fill } } |   % 45
 403         s4_\markup { \italic { Majestic, slower w/snare } } s2. |   % 46
 404         s1*11
 405         s4_\markup { \dynamic mp \italic { no backbeat } } s2. |   % 58
 406         s1*2
 407         s4 s \< s_\markup { \hspace #0.0 \raise #-2.0 \italic { dr.fill } } s_\f |   % 61
 408         s4_\markup { \italic { backbeat } } s2. |   % 62
 409         s1*6
 410         s4_\markup { \italic { rit. } } s2. |   % 69
 411 }
 412
 413
 414 \score
 415 {
 416         <<
 417                 <<
 418 %                       \new Staff = leadStaff { \new Voice = "lead" \LeadVox }
 419                         \new Staff = leadStaff { << \new Voice = "lead" \LeadVox \new Voice = "riffs" \Riffs >> }
 420                         \new Lyrics \lyricsto "lead" \LeadVoxText
 421 %                       \new Lyrics \lyricsto "lead" \LeadVoxTextB
 422                 >>
 423
 424                 \new ChoirStaff = "Rhythm"
 425                 <<
 426                         \new ChordNames = "chords" \Chords
 427                         \new RhythmicStaff = "chordRhythm" << \StaffC \Dynamics >>
 428                 >>
 429
 430                 \set Score.skipBars = ##t
 431                 \set Score.melismaBusyProperties = #'()
 432         >>
 433
 434         \layout
 435         {
 436 %               \context { \Staff \RemoveEmptyStaves }
 437 %               ragged-last-bottom = ##t
 438                 ragged-last = ##t
 439         }
 440 }
 441
 442
 443 \paper
 444 {
 445   #(define fonts (make-pango-font-tree
 446     "Times New Roman"
 447     "DomCasual BT"
 448     "Luxi Mono"
 449     (/ staffSize 20)))
 450
 451 %  top-margin = -0.25 \in
 452 }