Shamusworld >> Repos - music/blob - angels-we-have-heard-on-high.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 = #18
   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         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))
  20 }
  21
  22
  23 %
  24 % Lead vocal
  25 %
  26 LeadVox = \relative c''
  27 {
  28         \clef G
  29         \key f \major
  30         \numericTimeSignature
  31         \time 4/4
  32 \override Score.SpacingSpanner #'average-spacing-wishes = ##f
  33
  34         % Intro
  35
  36         r1 |   % 1
  37         r1 |   % 2
  38         r1 |   % 3
  39         s1 \bar "||"   % 4
  40
  41 \mark \markup { \override #'(font-family . sans) { \box { 1 } } }
  42
  43         s1 |   % 5
  44         s1 |   % 6
  45         s1 |   % 7
  46         s1 |   % 8
  47         s1 |   % 9
  48         s1 |   % 10
  49         s1 |   % 11
  50         s1 \bar ".|:-||"   % 12
  51
  52         \repeat volta 2
  53         {
  54                 % Verse
  55
  56 \mark \markup { \override #'(font-family . sans) { \box { A } } }
  57
  58                 a4 a a c |   % 13
  59                 c4. bf8 a2 |   % 14
  60                 a4 g a c |   % 15
  61                 a4. g8 f2 |   % 16
  62                 a4 a a c |   % 17
  63                 c4. bf8 a2 |   % 18
  64                 a4 g a c |   % 19
  65                 a4. g8 f2 \bar "||"   % 20
  66
  67                 % Chorus
  68
  69 \mark \markup { \override #'(font-family . sans) { \box { B } } }
  70
  71                 c'2 ( d8 c bf a |   % 21
  72                 bf2 c8 bf a g |   % 22
  73                 a2 bf8 a g f |   % 23
  74                 g4. ) c,8 c2 |   % 24
  75                 f4 g a bf |   % 25
  76                 a2 g4 r |   % 26
  77                 c2 ( d8 c bf a |   % 27
  78                 bf2 c8 bf a g |   % 28
  79                 a2 bf8 a g f |   % 29
  80                 g4. ) c,8 c2 |   % 30
  81                 f4 g a bf |   % 31
  82                 a2 ( g ) |   % 32
  83         }
  84         \alternative
  85         {
  86                 {
  87                         f2. r4 |   % 33
  88                         r1 |   % 34
  89                 }
  90                 {
  91                         f2. r4 |   % 35
  92                 }
  93         }
  94
  95         r1 \bar "||"   % 36
  96
  97         \key g \major
  98
  99         % Verse
 100
 101 \mark \markup { \override #'(font-family . sans) { \box { C } } }
 102
 103         b4 b b d |   % 37
 104         d4. c8 b2 |   % 38
 105         b4 a b d |   % 39
 106         b4. a8 g2 |   % 40
 107         b4 b b d |   % 41
 108         d4. c8 b2 |   % 42
 109         b4 a b d |   % 43
 110         b4. a8 g2 \bar "||"   % 44
 111
 112         % Chorus
 113
 114 \mark \markup { \override #'(font-family . sans) { \box { D } } }
 115
 116         d'2 ( e8 d c b |   % 45
 117         c2 d8 c b a |   % 46
 118         b2 c8 b a g |   % 47
 119         a4. ) d,8 d2 |   % 48
 120         g4 a b c |   % 49
 121         b2 a4 r |   % 50
 122         d2 ( e8 d c b |   % 51
 123         c2 d8 c b a |   % 52
 124         b2 c8 b a g |   % 53
 125         a4. ) d,8 d2 |   % 54
 126         g4 a b c |   % 55
 127         b2 ( a ) |   % 56
 128
 129         % Outro
 130
 131         \repeat volta 2
 132         {
 133 \mark \markup { \override #'(font-family . sans) { \box { E } } }
 134
 135                 g2. r4 |   % 57
 136                 r1 |   % 58
 137                 r1 |   % 59
 138                 r1 |   % 60
 139         }
 140
 141         g4 a b c |   % 61
 142         b2 ( a ) |   % 62
 143         g1-\fermata \bar "|."   % 63
 144 }
 145
 146 LeadVoxText = \lyricmode
 147 {
 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.
 152
 153         Glo -- _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ ri -- a
 154         in ex -- cel -- sis De -- o,
 155         Glo -- _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ ri -- a
 156         in ex -- cel -- sis De -- _ o.
 157
 158         o.
 159
 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.
 164
 165         Glo -- _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ ri -- a
 166         in ex -- cel -- sis De -- o,
 167         Glo -- _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ ri -- a
 168         in ex -- cel -- sis De -- _ o.
 169
 170         in ex -- cel -- sis De -- _ o.
 171 }
 172
 173 LeadVoxTextB = \lyricmode
 174 {
 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?
 179 }
 180
 181
 182 Riffs = \relative c'
 183 {
 184         \clef G
 185         \key f \major
 186         \numericTimeSignature
 187         \time 4/4
 188 \override Score.SpacingSpanner #'average-spacing-wishes = ##f
 189
 190         \tiny
 191         s1*3
 192         r2 r4 f16 g a bf |   % 4
 193         c2 d8 c bf a |   % 5
 194         bf2 c8 bf a g |   % 6
 195         a2 bf8 a g f |   % 7
 196         g4. c,8 c2 |   % 8
 197
 198         f4 g a bf |   % 9
 199         a2 g |   % 10
 200         f1 |   % 11
 201         r1 |   % 12
 202         \normalsize
 203 }
 204
 205
 206 %
 207 % Chord names
 208 %
 209 Chords = \chordmode
 210 {
 211         % Intro
 212
 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
 217
 218         f2 d:m7 |   % 5
 219         g2:m7 c4 c/bf |   % 6
 220         f2/a bf:sus2 |   % 7
 221         c2:sus4 c |   % 8
 222         bf4/d c/e f bf |   % 9
 223         f2/c c |   % 10
 224         f4 s8. bf2:sus2 s16 |   % 11
 225         f4 s8. bf2:sus2 s16 |   % 12
 226
 227         \repeat volta 2
 228         {
 229                 % Verse
 230
 231                 f2 bf:sus2 |   % 13
 232                 f2 bf:sus2 |   % 14
 233                 f2 bf:sus2 |   % 15
 234                 f2 bf:sus2 |   % 16
 235                 f2 bf:sus2 |   % 17
 236                 f2 bf:sus2 |   % 18
 237                 f2 bf:sus2 |   % 19
 238                 bf4/d c/e f2 |   % 20
 239
 240                 % Chorus
 241
 242                 f2 d:m7 |   % 21
 243                 g2:m7 c4 c/bf |   % 22
 244                 f2/a bf:sus2 |   % 23
 245                 c2:sus4 c |   % 24
 246                 f4/a c f bf/d |   % 25
 247                 f2/c c |   % 26
 248                 f2 d:m7 |   % 27
 249                 g2:m7 c4 c/bf |   % 28
 250                 f2/a bf:sus2 |   % 29
 251                 c2:sus4 c |   % 30
 252                 bf4/d c/e f bf |   % 31
 253                 f2/c c |   % 32
 254         }
 255         \alternative
 256         {
 257                 {
 258                         f4 s8. bf2:sus2 s16 |   % 33
 259                         f4 s8. bf2:sus2 s16 |   % 34
 260                 }
 261                 {
 262                         f4 s8. bf2:sus2 s16 |   % 35
 263                 }
 264         }
 265
 266         f4 s8. bf4:sus2 s16 c4/d  |   % 36
 267
 268         % Verse
 269
 270         g1:5^3 |   % 37
 271         s1 |   % 38
 272         g1:5^3 |   % 39
 273         s1 |   % 40
 274         e1:m7 |   % 41
 275         s1 |   % 42
 276         c1:sus2 |   % 43
 277         c4/e d/fs g2 |   % 44
 278
 279         % Chorus
 280
 281         g2 e:m7 |   % 45
 282         a2:m7 d4 d/c |   % 46
 283         g2/b c:sus2 |   % 47
 284         d2:sus4 d |   % 48
 285         g4/b d g c/e |   % 49
 286         g2/d d |   % 50
 287         b2:m7.5- e:7.9- |   % 51
 288         a2:m7 c4/d ds:dim7 |   % 52
 289         e2:m7 a:m7 |   % 53
 290         d2:sus4 d |   % 54
 291         c4/e d/fs g c |   % 55
 292         g2/d d |   % 56
 293
 294         % Outro
 295
 296         \repeat volta 2
 297         {
 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
 302         }
 303
 304         c4/e d/fs g c |   % 61
 305         g2/d d |   % 62
 306         g1 |   % 63
 307 }
 308
 309
 310 %
 311 % Chord rhythms
 312 %
 313
 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...
 316
 317 StaffC = \relative c
 318 {
 319         \numericTimeSignature
 320         \time 4/4
 321         \override NoteHead #'style = #'slash
 322         \teeny
 323
 324         % Intro
 325
 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
 330
 331         c4 c c c |   % 5
 332         c4 c c c |   % 6
 333         c4 c c c |   % 7
 334         c4 c c c |   % 8
 335         c4-> c-> c-> c-> |   % 9
 336         c4 c c c |   % 10
 337         c4-> c8. c16-> ~ c4 c |   % 11
 338         c4-> c8. c16-> ~ c4 c \bar ".|:-||"   % 12
 339
 340         \repeat volta 2
 341         {
 342                 % Verse
 343
 344                 c4 c c c |   % 13
 345                 c4 c c c |   % 14
 346                 c4 c c c |   % 15
 347                 c4 c c c |   % 16
 348                 c4 c c c |   % 17
 349                 c4 c c c |   % 18
 350                 c4 c c c |   % 19
 351                 c4 c c c \bar "||"   % 20
 352
 353                 % Chorus
 354
 355                 c4 c c c |   % 21
 356                 c4 c c c |   % 22
 357                 c4 c c c |   % 23
 358                 c4 c c c |   % 24
 359                 c4-> c-> c-> c-> |   % 25
 360                 c4 c c c |   % 26
 361                 c4 c c c |   % 27
 362                 c4 c c c |   % 28
 363                 c4 c c c |   % 29
 364                 c4 c c c |   % 30
 365                 c4-> c-> c-> c-> |   % 31
 366                 c4 c c c |   % 32
 367         }
 368         \alternative
 369         {
 370                 {
 371                         c4 c8. c16-> ~ c4 c |   % 33
 372                         c4 c8. c16-> ~ c4 c |   % 34
 373                 }
 374                 {
 375                         c4 c8. c16-> ~ c4 c |   % 35
 376                 }
 377         }
 378
 379         c4 c8. c16-> ~ c4 c \bar "||"   % 36
 380
 381         % Verse
 382
 383         c1-> ~ |   % 37
 384         c1 |   % 38
 385         c1-> ~ |   % 39
 386         c1 |   % 40
 387         c1-> ~ |   % 41
 388         c1 |   % 42
 389         c1-> |   % 43
 390         c4-> c-> c c \bar "||"   % 44
 391
 392         % Chorus
 393
 394         c4 c c c |   % 45
 395         c4 c c c |   % 46
 396         c4 c c c |   % 47
 397         c4 c c c |   % 48
 398         c4-> c-> c-> c-> |   % 49
 399         c4 c c c |   % 50
 400         c4 c c c |   % 51
 401         c4 c c c |   % 52
 402         c4 c c c |   % 53
 403         c4 c c c |   % 54
 404         c4-> c-> c-> c-> |   % 55
 405         c4 c c c |   % 56
 406
 407         % Outro
 408
 409         \repeat volta 2
 410         {
 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
 415         }
 416
 417         c4-> c-> c-> c-> |   % 61
 418         c4 c c c |   % 62
 419         c1-\fermata \bar "|."   % 63
 420 }
 421
 422
 423 Dynamics =
 424 {
 425         s4_\markup { \dynamic f \italic { bass sustain, hh 16ths, no snare } } s2. |   % 1
 426         s1*2
 427         s2 s_\markup { \italic { dr. fill } } |   % 4
 428         s4_\markup { \italic { snare 2&4, hh 16ths } } s2. |   % 5
 429         s1*6
 430         s2 s4 \> s |   % 12
 431         s4_\mf s2. |   % 13
 432         s1*6
 433         s2 \once \override TextScript #'extra-offset = #'( 0.0 . -2.2 ) s4 \< _\markup { \italic { dr. fill } } s |   % 20
 434         s4_\f s2. |   % 21
 435         s1*12
 436         s2 s4 \> s \! |   % 34
 437         s1
 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
 440         s1*6
 441         s2 \once \override TextScript #'extra-offset = #'( 0.0 . -2.0 ) s4 \< _\markup { \italic { dr. fill } } s \! |   % 44
 442         s1*16
 443         s4_\markup { \italic { On Cue } } s2. |   % 61
 444         s4 s2._\markup { \italic { rit. } } |   % 62
 445 }
 446
 447
 448 \score
 449 {
 450         <<
 451                 \context Staff
 452                 <<
 453                         << \new Voice = "lead" \LeadVox \new Voice = "riffs" \Riffs >>
 454                         \new Lyrics \lyricsto "lead" \LeadVoxText
 455                         \new Lyrics \lyricsto "lead" \LeadVoxTextB
 456                 >>
 457
 458                 \new ChoirStaff
 459                 <<
 460                         \new ChordNames \Chords
 461 % Capo 3 version
 462 %                       \new ChordNames = "chords" \transpose f d \Chords
 463                         \new RhythmicStaff << \StaffC \Dynamics >>
 464                 >>
 465
 466                 \set Score.skipBars = ##t
 467                 \set Score.melismaBusyProperties = #'()
 468         >>
 469 }
 470
 471
 472 \paper
 473 {
 474   #(define fonts (make-pango-font-tree
 475     "Times New Roman"
 476     "JazzText"
 477     "Luxi Mono"
 478     (/ staffSize 20)))
 479
 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)
 485         ragged-last = ##t
 486
 487 % To find out what's eating the space at the top...
 488 %       annotate-spacing = ##t
 489 }
 490