Shamusworld >> Repos - music/blob - go-tell-it-on-the-mountain.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 %Let's bump up the title size and switch to the chord font. :-)
  16
  17         title    = \markup { \override #'(font-family . sans) \fontsize #3.5 "Go Tell It On The Mountain" }
  18         composer = \markup { \override #'(font-family . sans) \fontsize #1.3 "Traditional" }
  19         arranger = \markup { \override #'(font-family . sans) \fontsize #1.3 "arr. Ed Smart/Shamus & Deborah Hammons/J. & Kat Michaels/Chris Craig" }
  20         tagline  = $(string-append "Engraved by JLH and Lilypond " (lilypond-version))
  21 }
  22
  23
  24 % Useful tweak abbreviations (hn = harmony note)
  25
  26 hn = #(define-music-function (parser location arg) (ly:music?)
  27 ;; Harmony Note: Set the tweaks property of the passed in note to use a smaller font
  28
  29   (set! (ly:music-property arg 'tweaks)
  30     (acons 'font-size -3.5 (ly:music-property arg 'tweaks))) arg)
  31
  32
  33 %
  34 % Lead vocal
  35 %
  36
  37 LeadVox = \relative c''
  38 {
  39 %       \set Voice.autoBeaming = ##f
  40 %       \set Staff.instrument = #"Lead vox"
  41         \clef G
  42         \key g \major
  43         \override Staff.TimeSignature #'style = #'()
  44         \time 4/4
  45 \override Score.SpacingSpanner #'average-spacing-wishes = ##f
  46
  47         % Intro
  48
  49         \repeat volta 2
  50         {
  51                 r1 |   % 1
  52                 r1 |   % 2
  53                 r1 |   % 3
  54                 r1 |   % 4
  55         }
  56         \time 2/4 r2 \time 4/4 |   % 5
  57
  58         \repeat volta 2
  59         {
  60                 r1^\markup { \bold { Vamp } } |   % 6
  61                 r1 |   % 7
  62                 r1 |   % 8
  63                 r1 |   % 9
  64         }
  65
  66         % Chorus
  67
  68 \mark \markup { \override #'(font-family . sans) { \box { A } } }
  69
  70         <b \hn g>2 <b \hn g>8 <a \hn e> <g \hn d> <e \hn c> |   % 10
  71         d8. ( <e \hn c>16 ~ <e \hn c>8 ) <g \hn b,> ~ <g \hn b,>2 |   % 11
  72         <a \hn c,>8 <a \hn c,>4 <a \hn c,>8 <g \hn d>4 <a \hn d,> |   % 12
  73         <b \hn g>4 <d \hn b> <e \hn c> ( <d \hn b> ) |   % 13
  74         <b \hn g>2 <b \hn g>8 <a \hn e> <g \hn d> <e \hn c> |   % 14
  75         d8. ( <e \hn c>16 ~ <e \hn c>8 ) <g \hn e> ~ <g \hn e>4 <c \hn g> |   % 15
  76         <b \hn d,>4 <b \hn d,> <a \hn c,>8 ( <g \hn b,> ) <a \hn c,>4 |   % 16
  77         <g \hn b,>2 r |   % 17
  78
  79         \repeat volta 2
  80         {
  81                 % Chorus
  82
  83 \mark \markup { \override #'(font-family . sans) { \box { B } } }
  84
  85                 <b \hn g>2 <b \hn g>8 <a \hn e> <g \hn d> <e \hn c> |   % 18
  86                 d8. ( <e \hn c>16 ~ <e \hn c>8 ) <g \hn b,> ~ <g \hn b,>2 |   % 19
  87                 <a \hn c,>8 <a \hn c,>4 <a \hn c,>8 <g \hn d>4 <a \hn d,> |   % 20
  88                 <b \hn g>4 <d \hn b> <e \hn c> ( <d \hn b> ) |   % 21
  89                 <b \hn g>2 <b \hn g>8 <a \hn e> <g \hn d> <e \hn c> |   % 22
  90                 d8. ( <e \hn c>16 ~ <e \hn c>8 ) <g \hn e> ~ <g \hn e>4 <c \hn g> |   % 23
  91                 <b \hn d,>4 <b \hn d,> <a \hn c,>8 ( <g \hn b,> ) <a \hn c,>4 |   % 24
  92
  93                 <g \hn b,>2 r |   % 25
  94                 r1 |   % 26
  95                 r1^\markup { \hspace #1.0 \raise #0.5 \italic { to Coda 4th time } \hspace #1.0 \musicglyph #"scripts.coda" }
  96  |   % 27
  97 %\once \override Score.RehearsalMark #'self-alignment-X = #right
  98 %\mark \markup { \italic { to Coda 4th time } \hspace #1.0 \musicglyph #"scripts.coda" }
  99 %Ick--only for size 18
 100 \break
 101                 r2 r4 r8 <g \hn b,>8 \bar "||"   % 28
 102
 103                 % Verse
 104
 105 \mark \markup { \override #'(font-family . sans) { \box { C } } }
 106
 107                 <b \hn d,>8 <d \hn g,> ~ <d \hn g,>4 <d \hn g,> <e \hn a,>8 <d \hn g,> ~ |   % 29
 108                 <d \hn g,>8 <b \hn d,> ~ <b \hn d,>4 r r8 <g \hn b,> |   % 30
 109                 <a \hn c,>4 <a \hn c,> <g \hn b,>8. <a \hn c,>16 ~ <a \hn c,>8 <b \hn d,> ~ |   % 31
 110                 <b \hn d,>2 r4 r8 <g \hn b,> |   % 32
 111                 <b \hn d,>4 r8 <d \hn g,> <d \hn g,>4 <e \hn a,>8 <d \hn g,> ~ |   % 33
 112                 <d \hn g,>8 <b \hn d,> ~ <b \hn d,>4 r r8 <g \hn b,> |   % 34
 113                 <a \hn cs,>4 <a \hn cs,> <g \hn e>8. <e \hn cs>16 ~ <e \hn cs>8 <d \hn a>8 ~ ( |   % 35
 114                 <d \hn a>4. <c' \hn fs, \hn d>8 ~ <c \hn fs, \hn d>4 ) r |   % 36
 115         }
 116
 117         % Coda
 118
 119 %\stopStaff s1 \bar "" \startStaff   % That removed the spurious floating bar line from line break
 120 \stopStaff s1 \startStaff
 121 \set Score.currentBarNumber = #37
 122
 123 \once \override Score.RehearsalMark #'self-alignment-X = #left
 124 \mark \markup { { \musicglyph #"scripts.coda" } "Coda" }
 125
 126         r1 |   % 37
 127         \time 2/4 r2 \time 4/4 \bar "||"   % 38
 128
 129         % Breakdown
 130
 131 \mark \markup { \override #'(font-family . sans) { \box { D } } }
 132
 133         r1^\markup { \hspace #0.0 \raise #1.0 \bold { Breakdown } } |   % 39
 134         r1 |   % 40
 135         r1 |   % 41
 136         r1 |   % 42
 137
 138         % Solos
 139
 140         \repeat volta 2
 141         {
 142 \mark \markup { \override #'(font-family . sans) { \box { E } } }
 143
 144                 r1^\markup { \hspace #1.0 \raise #1.0 \bold { Solos } } |   % 43
 145                 r1 |   % 44
 146                 r1 |   % 45
 147                 r1 |   % 46
 148         }
 149
 150         % Vocal outro
 151
 152         \repeat volta 2
 153         {
 154 \mark \markup { \override #'(font-family . sans) { \box { F } } }
 155
 156                 <b \hn g \hn d>4 r^\markup { \hspace #0.0 \raise #1.5 \bold { Vocals On Cue } } <b \hn e, \hn c>8 <a \hn e \hn c> <g \hn e \hn c> <e \hn c> |   % 47
 157                 <g \hn e \hn c>4. <a \hn fs \hn d>8 ~ <a \hn fs \hn d>2 |   % 48
 158                 <b \hn g \hn d>4 r <b \hn e, \hn c>8 <a \hn e \hn c> <g \hn e \hn c> <e \hn c \hn a> |   % 49
 159                 <g \hn e \hn c>8. <b \hn g \hn e>16 ~ <b \hn g \hn e>8 <a \hn fs \hn d> ~ <a \hn fs \hn d>2 |   % 50
 160         }
 161
 162         % Finale
 163
 164 \mark \markup { \override #'(font-family . sans) { \box { G } } }
 165
 166         r1^\markup { \hspace #1.0 \raise #1.0 \bold { On Cue } } |   % 51
 167         r1 |   % 52
 168         r1 |   % 53
 169         r1-\fermata \bar ".|"   % 54
 170 }
 171
 172 LeadVoxText = \lyricmode
 173 {
 174         Go tell it on the moun -- _ _ tain, _
 175         o -- ver the hills and e -- vr’y -- where, _
 176         Go tell it on the moun -- _ _ tain, _
 177         that Je -- sus Christ _ is born!
 178
 179         Go tell it on the moun -- _ _ tain, _
 180         o -- ver the hills and e -- vr’y -- where, _
 181         Go tell it on the moun -- _ _ tain, _
 182         that Je -- sus Christ _ is born!
 183
 184         While shep -- herds _ kept their watch -- _ in' _
 185         o'er si -- lent flocks by _ night, _
 186         Be -- hold, through -- out the hea -- _ vens, _
 187         there shone a ho -- ly _ light, _ _ _
 188
 189         Go, tell it on the moun -- tain, _
 190         Go, tell it on the moun -- _ _ tain, _
 191 }
 192
 193 LeadVoxTextB = \lyricmode
 194 {
 195         _ _ _ _ _ _ _ _ _ _
 196         _ _ _ _ _ _ _ _ _
 197         _ _ _ _ _ _ _ _ _ _
 198         _ _ _ _ _ _ _
 199
 200         _ _ _ _ _ _ _ _ _ _
 201         _ _ _ _ _ _ _ _ _
 202         _ _ _ _ _ _ _ _ _ _
 203         _ _ _ _ _ _ _
 204
 205         The shep -- herds _ feared and trem -- _ bled _
 206         when lo, a -- bove the _ earth, _
 207         Rang out the an -- gel cho -- _ rus _
 208         that hailed our Sav -- ior's _ birth, _ _ _
 209 }
 210
 211 LeadVoxTextC = \lyricmode
 212 {
 213         _ _ _ _ _ _ _ _ _ _
 214         _ _ _ _ _ _ _ _ _
 215         _ _ _ _ _ _ _ _ _ _
 216         _ _ _ _ _ _ _
 217
 218         _ _ _ _ _ _ _ _ _ _
 219         _ _ _ _ _ _ _ _ _
 220         _ _ _ _ _ _ _ _ _ _
 221         _ _ _ _ _ _ _
 222
 223         Down in _ a low -- ly man -- _ ger _
 224         the hum -- ble Christ was _ born, _
 225         And God sent us sal -- va -- _ tion _
 226         that bless -- ed Christ -- mas _ morn, _ _ _
 227 }
 228
 229
 230 Riffs = \relative c''
 231 {
 232         \clef G
 233         \key g \major
 234         \override Staff.TimeSignature #'style = #'()
 235         \time 4/4
 236 \override Score.SpacingSpanner #'average-spacing-wishes = ##f
 237
 238         % Intro
 239
 240 %{
 241         \tiny
 242         \repeat "percent" 3   % 1 - 6
 243         {
 244                 << { \tiny f16 c f, <f' f,> ~ <f f,> f, c' f f8 e } \\ { \tiny f,,2 c'4 } >> |   % 1
 245                 << { \tiny f'16 c f, <f' f,> ~ <f f,> f, c' f f8 e } \\ { \tiny bf,2 c4 } >> |   % 2
 246         }
 247         << s2. \\ { \tiny d2 c4 } >> |   % 7
 248         << s2. \\ { \tiny bf2. } >> |   % 8
 249
 250         s2.*7
 251
 252         \voiceOne
 253         \repeat "percent" 6 { f''16 c f, <f' f,> ~ <f f,> f, c' f f8 e | }   % 16-21
 254         \oneVoice
 255
 256         s2.*7
 257
 258         \voiceOne
 259         \repeat "percent" 2 { f16 c f, f' ~ f f, c' f f8 e | }   % 29-30
 260         \oneVoice
 261
 262         \key g \major
 263
 264         \voiceOne
 265         \repeat "percent" 2 { g16 d g, g' ~ g g, d' g g8 fs | }   % 31-32
 266         \oneVoice
 267
 268         s2.*7
 269
 270         \voiceOne
 271         \repeat "percent" 4 { g16 d g, g' ~ g g, d' g g8 fs | }   % 40-43
 272         \oneVoice
 273         \normalsize
 274 %}
 275 }
 276
 277
 278 %
 279 % Chord names
 280 %
 281
 282 Chords = \chordmode
 283 {
 284 %Bah, can't we set this globally?
 285 %       \popChords
 286
 287         % Intro
 288
 289         \repeat volta 2
 290         {
 291                 f8. c g8 s2 |   % 1
 292                 f8. c g8 s2 |   % 2
 293                 f8. c g8 s2 |   % 3
 294                 f8. c g8 s2 |   % 4
 295         }
 296         \time 2/4 s2 \time 4/4 |   % 5
 297
 298         \repeat volta 2
 299         {
 300                 g2 a:m7 |   % 6
 301                 c2 d |   % 7
 302                 g2 a:m7 |   % 8
 303                 c2 d |   % 9
 304         }
 305
 306         % Chorus
 307
 308         g2 a:m7 |   % 10
 309         g4./b e8:m7 s2 |   % 11
 310         a2:m7 d4:sus4 d |   % 12
 311         g2 c:sus2 |   % 13
 312         g2 d/fs |   % 14
 313         e4.:m7 c8 s2 |   % 15
 314         g2/d d |   % 16
 315         g2 f4 c |   % 17
 316
 317         \repeat volta 2
 318         {
 319                 % Chorus
 320
 321                 g2 a:m7 |   % 10
 322                 g4./b e8:m7 s2 |   % 11
 323                 a2:m7 d4:sus4 d |   % 12
 324                 g2 c:sus2 |   % 13
 325                 g2 d/fs |   % 14
 326                 e4.:m7 c8 s2 |   % 15
 327                 g2/d d |   % 16
 328
 329                 f8. c g8 s2 |   % 17
 330                 f8. c g8 s2 |   % 18
 331                 f8. c g8 s2 |   % 19
 332                 f8. c g8 s2 |   % 20
 333
 334                 % Verse
 335
 336                 g2 a:m7 |   % 21
 337                 g2/b e:m7 |   % 22
 338                 a2:m7 d4:sus4 d |   % 23
 339                 g2 f4 c |   % 24
 340                 g2 a:m7 |   % 25
 341                 g2/b e:m7 |   % 26
 342                 a2.:7 s8 d:7 |   % 27
 343                 s1 |   % 28
 344         }
 345
 346 s1
 347
 348         % Coda
 349
 350         f8. c g8 s2 |   % 29
 351         \time 2/4 s2 \time 4/4 |   % 30
 352
 353         % Breakdown
 354
 355         g2 a:m7 |   % 31
 356         c2 d |   % 32
 357         g2 a:m7 |   % 33
 358         c2 d |   % 34
 359
 360         % Solos
 361
 362         \repeat volta 2
 363         {
 364                 g2 a:m7 |   % 35
 365                 c2 d |   % 36
 366                 g2 a:m7 |   % 37
 367                 c2 d |   % 38
 368         }
 369
 370         % Vocal outro
 371
 372         \repeat volta 2
 373         {
 374                 g2 a:m7 |   % 39
 375                 c2 d |   % 40
 376                 g2 a:m7 |   % 41
 377                 c2 d |   % 42
 378         }
 379
 380         % Finale
 381
 382         f8. c g8 s2 |   % 43
 383         f8. c g8 s2 |   % 44
 384         f8. c g8 s2 |   % 45
 385         f8. c g8 s2 |   % 46
 386 }
 387
 388
 389 %
 390 % Chord rhythms
 391 %
 392
 393 % Use a RhythmicStaff on the chords instead of this?
 394 % It almost works, but not quite. Doesn't collapse chords above to single notes...
 395
 396 StaffC = \relative c
 397 {
 398 %       \set Voice.autoBeaming = ##f
 399 %       \set Staff.instrument = #"Rhythm"
 400         \override Staff.TimeSignature #'style = #'()
 401         \time 4/4
 402         \override NoteHead #'style = #'slash
 403
 404         % Intro
 405
 406         \repeat volta 2
 407         {
 408                 c8.-> c16-> ~ c8 c8-> ~ c2 |   % 1
 409                 c8.-> c16-> ~ c8 c8-> ~ c2 |   % 2
 410                 c8.-> c16-> ~ c8 c8-> ~ c2 |   % 3
 411                 c8.-> c16-> ~ c8 c8-> ~ c2 ~ |   % 4
 412         }
 413         \time 2/4 c2 \time 4/4 |   % 5
 414
 415         \repeat volta 2
 416         {
 417                 c4 c c c |   % 6
 418                 c4 c c c |   % 7
 419                 c4 c c c |   % 8
 420                 c4 c c c |   % 9
 421         }
 422
 423         % Chorus
 424
 425         c4 c c c |   % 10
 426         c4 c8 c8 ~ c4 c |   % 11
 427         c4 c c c |   % 12
 428         c4 c c c |   % 13
 429         c4 c c c |   % 14
 430         c4 c8 c8 ~ c4 c |   % 15
 431         c4 c c c |   % 16
 432         c4 c c-> c-> |   % 17
 433
 434         \repeat volta 2
 435         {
 436                 % Chorus
 437
 438                 c4 c c c |   % 10
 439                 c4 c8 c8 ~ c4 c |   % 11
 440                 c4 c c c |   % 12
 441                 c4 c c c |   % 13
 442                 c4 c c c |   % 14
 443                 c4 c8 c8 ~ c4 c |   % 15
 444                 c4 c c c |   % 16
 445
 446                 c8.-> c16-> ~ c8 c8-> ~ c2 |   % 17
 447                 c8.-> c16-> ~ c8 c8-> ~ c2 |   % 18
 448                 c8.-> c16-> ~ c8 c8-> ~ c2 |   % 19
 449                 c8.-> c16-> ~ c8 c8-> ~ c2 \bar "||"   % 20
 450
 451                 % Verse
 452
 453                 c4 c c c |   % 21
 454                 c4 c c c |   % 22
 455                 c4 c c c |   % 23
 456                 c4 c c-> c-> |   % 24
 457                 c4 c c c |   % 25
 458                 c4 c c c |   % 26
 459                 c4 c c r8 c ~ |   % 27
 460                 c4 c c c |   % 28
 461         }
 462
 463         % Coda
 464
 465 %\stopStaff s1 \bar "" \startStaff   % That removed the spurious floating bar line from line break
 466 \stopStaff s1 \startStaff
 467 \set Score.currentBarNumber = #37
 468
 469         c8.-> c16-> ~ c8 c8-> ~ c2 ~ |   % 29
 470         \time 2/4 c2 \time 4/4 \bar "||"   % 30
 471
 472         % Breakdown
 473
 474         c4 c c c |   % 31
 475         c4 c c c |   % 32
 476         c4 c c c |   % 33
 477         c4 c c c |   % 34
 478
 479         % Solos
 480
 481         \repeat volta 2
 482         {
 483                 c4 c c c |   % 35
 484                 c4 c c c |   % 36
 485                 c4 c c c |   % 37
 486                 c4 c c c |   % 38
 487         }
 488
 489         % Vocal outro
 490
 491         \repeat volta 2
 492         {
 493                 c4 c c c |   % 39
 494                 c4 c c c |   % 40
 495                 c4 c c c |   % 41
 496                 c4 c c c |   % 42
 497         }
 498
 499         % Finale
 500
 501         c8.-> c16-> ~ c8 c8-> ~ c2 |   % 43
 502         c8.-> c16-> ~ c8 c8-> ~ c2 |   % 44
 503         c8.-> c16-> ~ c8 c8-> ~ c2 |   % 45
 504         c8.-> c16-> ~ c8 c8-> ~ c2-\fermata \bar "|."   % 46
 505 }
 506
 507
 508 Dynamics =
 509 {
 510 %{
 511         s4_\markup { \italic { snare pat. } } s2 |   % 1
 512         s4_\markup { \italic { simile } } s2 |   % 2
 513         s2.*19
 514         s4_\markup { \italic { spacy } } s2 |   % 22
 515         s2.*5
 516         s4 s \< s \! |   % 28
 517         s2.*22
 518         s4_\markup { \italic { Last time } } s2 |   % 51
 519 %}
 520 }
 521
 522
 523 \score
 524 {
 525         <<
 526                 <<
 527 %                       \new Staff = leadStaff { \new Voice = "lead" \LeadVox }
 528                         \new Staff = leadStaff { << \new Voice = "lead" \LeadVox \new Voice = "riffs" \Riffs >> }
 529                         \new Lyrics \lyricsto "lead" \LeadVoxText
 530                         \new Lyrics \lyricsto "lead" \LeadVoxTextB
 531                         \new Lyrics \lyricsto "lead" \LeadVoxTextC
 532                 >>
 533
 534                 \new ChoirStaff = "Rhythm"
 535                 <<
 536                         \new ChordNames = "chords" \Chords
 537                         \new RhythmicStaff = "chordRhythm" << \StaffC \Dynamics >>
 538                 >>
 539
 540                 \set Score.skipBars = ##t
 541                 \set Score.melismaBusyProperties = #'()
 542         >>
 543
 544         \layout
 545         {
 546 %               \context { \Staff \RemoveEmptyStaves }
 547 %               ragged-last-bottom = ##t
 548                 ragged-last = ##t
 549         }
 550 }
 551
 552
 553 \paper
 554 {
 555   #(define fonts (make-pango-font-tree
 556     "Times New Roman"
 557     "DomCasual BT"
 558     "Luxi Mono"
 559     (/ staffSize 20)))
 560
 561 %  top-margin = -0.25 \in
 562 }