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: â\80\98 â\80\99 â\80\9c â\80\9d â\80\93 â\80\94 â\80  â\80¡ â\80¢ â\80¦ %}
  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 "Angels We Have Heard On High" }
  18 %       subtitle = \markup { \override #'(font-family . sans) \fontsize #1.5 "Capo 3 Version" }
  19 %       composer = \markup { \override #'(font-family . sans) \fontsize #1.3 "" }
  20         arranger = \markup { \override #'(font-family . sans) \fontsize #1.3 "arr. Ed Smart" }
  21         tagline  = $(string-append "Engraved by JLH and Lilypond " (lilypond-version))
  22 }
  23
  24
  25 %
  26 % Lead vocal
  27 %
  28
  29 LeadVox = \relative c''
  30 {
  31 %       \set Voice.autoBeaming = ##f
  32 %       \set Staff.instrument = #"Lead vox"
  33         \clef G
  34         \key f \major
  35         \override Staff.TimeSignature #'style = #'()
  36         \time 4/4
  37 \override Score.SpacingSpanner #'average-spacing-wishes = ##f
  38
  39         % Intro
  40
  41         r1 |   % 1
  42         r1 |   % 2
  43         r1 |   % 3
  44         s1 \bar "||"   % 4
  45
  46 \mark \markup { \override #'(font-family . sans) { \box { 1 } } }
  47
  48         s1 |   % 5
  49         s1 |   % 6
  50         s1 |   % 7
  51         s1 |   % 8
  52         s1 |   % 9
  53         s1 |   % 10
  54         s1 |   % 11
  55         s1 \bar "||:"   % 12
  56
  57         \repeat volta 2
  58         {
  59                 % Verse
  60
  61 \mark \markup { \override #'(font-family . sans) { \box { A } } }
  62
  63                 a4 a a c |   % 13
  64                 c4. bf8 a2 |   % 14
  65                 a4 g a c |   % 15
  66                 a4. g8 f2 |   % 16
  67                 a4 a a c |   % 17
  68                 c4. bf8 a2 |   % 18
  69                 a4 g a c |   % 19
  70                 a4. g8 f2 \bar "||"   % 20
  71
  72                 % Chorus
  73
  74 \mark \markup { \override #'(font-family . sans) { \box { B } } }
  75
  76                 c'2 ( d8 c bf a |   % 21
  77                 bf2 c8 bf a g |   % 22
  78                 a2 bf8 a g f |   % 23
  79                 g4. ) c,8 c2 |   % 24
  80                 f4 g a bf |   % 25
  81                 a2 g4 r |   % 26
  82                 c2 ( d8 c bf a |   % 27
  83                 bf2 c8 bf a g |   % 28
  84                 a2 bf8 a g f |   % 29
  85                 g4. ) c,8 c2 |   % 30
  86                 f4 g a bf |   % 31
  87                 a2 ( g ) |   % 32
  88         }
  89         \alternative
  90         {
  91                 {
  92                         f2. r4 |   % 33
  93                         r1 |   % 34
  94                 }
  95                 {
  96                         f2. r4 |   % 35
  97                 }
  98         }
  99
 100         r1 \bar "||"   % 36
 101
 102         \key g \major
 103
 104         % Verse
 105
 106 \mark \markup { \override #'(font-family . sans) { \box { C } } }
 107
 108         b4 b b d |   % 37
 109         d4. c8 b2 |   % 38
 110         b4 a b d |   % 39
 111         b4. a8 g2 |   % 40
 112         b4 b b d |   % 41
 113         d4. c8 b2 |   % 42
 114         b4 a b d |   % 43
 115         b4. a8 g2 \bar "||"   % 44
 116
 117         % Chorus
 118
 119 \mark \markup { \override #'(font-family . sans) { \box { D } } }
 120
 121         d'2 ( e8 d c b |   % 45
 122         c2 d8 c b a |   % 46
 123         b2 c8 b a g |   % 47
 124         a4. ) d,8 d2 |   % 48
 125         g4 a b c |   % 49
 126         b2 a4 r |   % 50
 127         d2 ( e8 d c b |   % 51
 128         c2 d8 c b a |   % 52
 129         b2 c8 b a g |   % 53
 130         a4. ) d,8 d2 |   % 54
 131         g4 a b c |   % 55
 132         b2 ( a ) |   % 56
 133
 134         % Outro
 135
 136         \repeat volta 2
 137         {
 138 \mark \markup { \override #'(font-family . sans) { \box { E } } }
 139
 140                 g2. r4 |   % 57
 141                 r1 |   % 58
 142                 r1 |   % 59
 143                 r1 |   % 60
 144         }
 145
 146         g4 a b c |   % 61
 147         b2 ( a ) |   % 62
 148         g1-\fermata \bar "|."   % 63
 149 }
 150
 151 LeadVoxText = \lyricmode
 152 {
 153         An -- gels we have heard on high
 154         sweet -- ly sing -- ing oâ\80\99er the plains,
 155         And the moun -- tains in re -- ply
 156         e -- cho back their joy -- ous strains.
 157
 158         Glo -- _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ ri -- a
 159         in ex -- cel -- sis De -- o,
 160         Glo -- _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ ri -- a
 161         in ex -- cel -- sis De -- _ o.
 162
 163         o.
 164
 165         Come to Beth -- le -- hem and see
 166         him whose birth the an -- gels sing;
 167         Come a -- dore on bend -- ed knee,
 168         Christ, the Lord, the new -- born king.
 169
 170         Glo -- _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ ri -- a
 171         in ex -- cel -- sis De -- o,
 172         Glo -- _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ ri -- a
 173         in ex -- cel -- sis De -- _ o.
 174
 175         in ex -- cel -- sis De -- _ o.
 176 }
 177
 178 LeadVoxTextB = \lyricmode
 179 {
 180         Shep -- herds why this ju -- bi -- lee?
 181         Why your joy -- ous strains pro -- long?
 182         Say what may the ti -- dings be
 183         which in -- spire your heaven -- ly song?
 184 }
 185
 186
 187 Riffs = \relative c'
 188 {
 189         \clef G
 190         \key f \major
 191         \override Staff.TimeSignature #'style = #'()
 192         \time 4/4
 193 \override Score.SpacingSpanner #'average-spacing-wishes = ##f
 194
 195         \tiny
 196         s1*3
 197         r2 r4 f16 g a bf |   % 4
 198         c2 d8 c bf a |   % 5
 199         bf2 c8 bf a g |   % 6
 200         a2 bf8 a g f |   % 7
 201         g4. c,8 c2 |   % 8
 202
 203         f4 g a bf |   % 9
 204         a2 g |   % 10
 205         f1 |   % 11
 206         r1 |   % 12
 207         \normalsize
 208 }
 209
 210
 211 %
 212 % Chord names
 213 %
 214
 215 Chords = \chordmode
 216 {
 217 %Bah, can't we set this globally?
 218 %       \popChords
 219
 220         % Intro
 221
 222         f4 s8. bf2:sus2/f s16 |   % 1
 223         f4 s8. bf2:sus2/f s16 |   % 2
 224         f4 s8. bf2:sus2/f s16 |   % 3
 225         f4 s8. bf2:sus2/f s16 |   % 4
 226
 227         f2 d:m7 |   % 5
 228         g2:m7 c4 c/bf |   % 6
 229         f2/a bf:sus2 |   % 7
 230         c2:sus4 c |   % 8
 231         bf4/d c/e f bf |   % 9
 232         f2/c c |   % 10
 233         f4 s8. bf2:sus2 s16 |   % 11
 234         f4 s8. bf2:sus2 s16 |   % 12
 235
 236         \repeat volta 2
 237         {
 238                 % Verse
 239
 240                 f2 bf:sus2 |   % 13
 241                 f2 bf:sus2 |   % 14
 242                 f2 bf:sus2 |   % 15
 243                 f2 bf:sus2 |   % 16
 244                 f2 bf:sus2 |   % 17
 245                 f2 bf:sus2 |   % 18
 246                 f2 bf:sus2 |   % 19
 247                 bf4/d c/e f2 |   % 20
 248
 249                 % Chorus
 250
 251                 f2 d:m7 |   % 21
 252                 g2:m7 c4 c/bf |   % 22
 253                 f2/a bf:sus2 |   % 23
 254                 c2:sus4 c |   % 24
 255                 f4/a c f bf/d |   % 25
 256                 f2/c c |   % 26
 257                 f2 d:m7 |   % 27
 258                 g2:m7 c4 c/bf |   % 28
 259                 f2/a bf:sus2 |   % 29
 260                 c2:sus4 c |   % 30
 261                 bf4/d c/e f bf |   % 31
 262                 f2/c c |   % 32
 263         }
 264         \alternative
 265         {
 266                 {
 267                         f4 s8. bf2:sus2 s16 |   % 33
 268                         f4 s8. bf2:sus2 s16 |   % 34
 269                 }
 270                 {
 271                         f4 s8. bf2:sus2 s16 |   % 35
 272                 }
 273         }
 274
 275         f4 s8. bf4:sus2 s16 c4/d  |   % 36
 276
 277         % Verse
 278
 279         g1:5^3 |   % 37
 280         s1 |   % 38
 281         g1:5^3 |   % 39
 282         s1 |   % 40
 283         e1:m7 |   % 41
 284         s1 |   % 42
 285         c1:sus2 |   % 43
 286         c4/e d/fs g2 |   % 44
 287
 288         % Chorus
 289
 290         g2 e:m7 |   % 45
 291         a2:m7 d4 d/c |   % 46
 292         g2/b c:sus2 |   % 47
 293         d2:sus4 d |   % 48
 294         g4/b d g c/e |   % 49
 295         g2/d d |   % 50
 296         b2:m7.5- e:7.9- |   % 51
 297         a2:m7 c4/d ds:dim7 |   % 52
 298         e2:m7 a:m7 |   % 53
 299         d2:sus4 d |   % 54
 300         c4/e d/fs g c |   % 55
 301         g2/d d |   % 56
 302
 303         % Outro
 304
 305         \repeat volta 2
 306         {
 307                 g4 s8. c2:sus2 s16 |   % 57
 308                 g4 s8. c2:sus2 s16 |   % 58
 309                 g4 s8. c2:sus2 s16 |   % 59
 310                 g4 s8. c2:sus2 s16 |   % 60
 311         }
 312
 313         c4/e d/fs g c |   % 61
 314         g2/d d |   % 62
 315         g1 |   % 63
 316 }
 317
 318
 319 %
 320 % Chord rhythms
 321 %
 322
 323 % Use a RhythmicStaff on the chords instead of this?
 324 % It almost works, but not quite. Doesn't collapse chords above to single notes...
 325
 326 StaffC = \relative c
 327 {
 328 %       \set Voice.autoBeaming = ##f
 329 %       \set Staff.instrument = #"Rhythm"
 330         \override Staff.TimeSignature #'style = #'()
 331         \time 4/4
 332         \override NoteHead #'style = #'slash
 333
 334         % Intro
 335
 336         c4-> c8. c16-> ~ c4 c |   % 1
 337         c4-> c8. c16-> ~ c4 c |   % 2
 338         c4-> c8. c16-> ~ c4 c |   % 3
 339         c4-> c8. c16-> ~ c4 c \bar "||"   % 4
 340
 341         c4 c c c |   % 5
 342         c4 c c c |   % 6
 343         c4 c c c |   % 7
 344         c4 c c c |   % 8
 345         c4-> c-> c-> c-> |   % 9
 346         c4 c c c |   % 10
 347         c4-> c8. c16-> ~ c4 c |   % 11
 348         c4-> c8. c16-> ~ c4 c \bar "||:"   % 12
 349
 350         \repeat volta 2
 351         {
 352                 % Verse
 353
 354                 c4 c c c |   % 13
 355                 c4 c c c |   % 14
 356                 c4 c c c |   % 15
 357                 c4 c c c |   % 16
 358                 c4 c c c |   % 17
 359                 c4 c c c |   % 18
 360                 c4 c c c |   % 19
 361                 c4 c c c \bar "||"   % 20
 362
 363                 % Chorus
 364
 365                 c4 c c c |   % 21
 366                 c4 c c c |   % 22
 367                 c4 c c c |   % 23
 368                 c4 c c c |   % 24
 369                 c4-> c-> c-> c-> |   % 25
 370                 c4 c c c |   % 26
 371                 c4 c c c |   % 27
 372                 c4 c c c |   % 28
 373                 c4 c c c |   % 29
 374                 c4 c c c |   % 30
 375                 c4-> c-> c-> c-> |   % 31
 376                 c4 c c c |   % 32
 377         }
 378         \alternative
 379         {
 380                 {
 381                         c4 c8. c16-> ~ c4 c |   % 33
 382                         c4 c8. c16-> ~ c4 c |   % 34
 383                 }
 384                 {
 385                         c4 c8. c16-> ~ c4 c |   % 35
 386                 }
 387         }
 388
 389         c4 c8. c16-> ~ c4 c \bar "||"   % 36
 390
 391         % Verse
 392
 393         c1-> ~ |   % 37
 394         c1 |   % 38
 395         c1-> ~ |   % 39
 396         c1 |   % 40
 397         c1-> ~ |   % 41
 398         c1 |   % 42
 399         c1-> |   % 43
 400         c4-> c-> c c \bar "||"   % 44
 401
 402         % Chorus
 403
 404         c4 c c c |   % 45
 405         c4 c c c |   % 46
 406         c4 c c c |   % 47
 407         c4 c c c |   % 48
 408         c4-> c-> c-> c-> |   % 49
 409         c4 c c c |   % 50
 410         c4 c c c |   % 51
 411         c4 c c c |   % 52
 412         c4 c c c |   % 53
 413         c4 c c c |   % 54
 414         c4-> c-> c-> c-> |   % 55
 415         c4 c c c |   % 56
 416
 417         % Outro
 418
 419         \repeat volta 2
 420         {
 421                 c4 c8. c16-> ~ c4 c |   % 57
 422                 c4 c8. c16-> ~ c4 c |   % 58
 423                 c4 c8. c16-> ~ c4 c |   % 59
 424                 c4 c8. c16-> ~ c4 c |   % 60
 425         }
 426
 427         c4-> c-> c-> c-> |   % 61
 428         c4 c c c |   % 62
 429         c1-\fermata \bar "|."   % 63
 430 }
 431
 432
 433 Dynamics =
 434 {
 435         s4_\markup { \dynamic f \italic { bass sustain, hh 16ths, no snare } } s2. |   % 1
 436         s1*2
 437         s2 s_\markup { \italic { dr. fill } } |   % 4
 438         s4_\markup { \italic { snare 2&4, hh 16ths } } s2. |   % 5
 439         s1*6
 440         s2 s4 \> s |   % 12
 441         s4_\mf s2. |   % 13
 442         s1*6
 443         s2 \once \override TextScript #'extra-offset = #'( 0.0 . -2.2 ) s4 \< _\markup { \italic { dr. fill } } s |   % 20
 444         s4_\f s2. |   % 21
 445         s1*12
 446         s2 s4 \> s \! |   % 34
 447         s1
 448         s2 \once \override TextScript #'extra-offset = #'( 0.0 . -2.0 ) s4 \< _\markup { \italic { dr. fill } } s \! |   % 36
 449         s4_\markup { \dynamic ff \italic { no snare } } s2. |   % 37
 450         s1*6
 451         s2 \once \override TextScript #'extra-offset = #'( 0.0 . -2.0 ) s4 \< _\markup { \italic { dr. fill } } s \! |   % 44
 452         s1*16
 453         s4_\markup { \italic { On Cue } } s2. |   % 61
 454         s4 s2._\markup { \italic { rit. } } |   % 62
 455 }
 456
 457
 458 \score
 459 {
 460         <<
 461                 <<
 462 %                       \new Staff = leadStaff { \new Voice = "lead" \LeadVox }
 463                         \new Staff = leadStaff { << \new Voice = "lead" \LeadVox \new Voice = "riffs" \Riffs >> }
 464                         \new Lyrics \lyricsto "lead" \LeadVoxText
 465                         \new Lyrics \lyricsto "lead" \LeadVoxTextB
 466                 >>
 467
 468                 \new ChoirStaff = "Rhythm"
 469                 <<
 470                         \new ChordNames = "chords" \Chords
 471 % Capo 3 version
 472 %                       \new ChordNames = "chords" \transpose f d \Chords
 473                         \new RhythmicStaff = "chordRhythm" << \StaffC \Dynamics >>
 474                 >>
 475
 476                 \set Score.skipBars = ##t
 477                 \set Score.melismaBusyProperties = #'()
 478         >>
 479
 480         \layout
 481         {
 482 %               \context { \Staff \RemoveEmptyStaves }
 483 %               ragged-last-bottom = ##t
 484                 ragged-last = ##t
 485         }
 486 }
 487
 488
 489 \paper
 490 {
 491   #(define fonts (make-pango-font-tree
 492     "Times New Roman"
 493     "DomCasual BT"
 494     "Luxi Mono"
 495     (/ staffSize 20)))
 496
 497 %  top-margin = -0.25 \in
 498 }