2 \include "pop-chords.ly"
5 % Good sizes are 16, 18, & 20
7 #(set-default-paper-size "letter")
8 #(set-global-staff-size staffSize)
9 #(ly:set-option (quote no-point-and-click))
11 %{ Some useful characters: ‘ ’ “ ” – — † ‡ • … %}
15 %Let's bump up the title size and switch to the chord font. :-)
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))
24 % Useful tweak abbreviations (hn = harmony note)
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
29 (set! (ly:music-property arg 'tweaks)
30 (acons 'font-size -3.5 (ly:music-property arg 'tweaks))) arg)
37 LeadVox = \relative c''
39 % \set Voice.autoBeaming = ##f
40 % \set Staff.instrument = #"Lead vox"
43 \override Staff.TimeSignature #'style = #'()
45 \override Score.SpacingSpanner #'average-spacing-wishes = ##f
56 \time 2/4 r2 \time 4/4 | % 5
60 r1^\markup { \bold { Vamp } } | % 6
68 \mark \markup { \override #'(font-family . sans) { \box { A } } }
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
83 \mark \markup { \override #'(font-family . sans) { \box { B } } }
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
95 r1^\markup { \hspace #1.0 \raise #0.5 \italic { to Coda 4th time } \hspace #1.0 \musicglyph #"scripts.coda" }
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
101 r2 r4 r8 <g \hn b,>8 \bar "||" % 28
105 \mark \markup { \override #'(font-family . sans) { \box { C } } }
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
119 %\stopStaff s1 \bar "" \startStaff % That removed the spurious floating bar line from line break
120 \stopStaff s1 \startStaff
121 \set Score.currentBarNumber = #37
123 \once \override Score.RehearsalMark #'self-alignment-X = #left
124 \mark \markup { { \musicglyph #"scripts.coda" } "Coda" }
127 \time 2/4 r2 \time 4/4 \bar "||" % 38
131 \mark \markup { \override #'(font-family . sans) { \box { D } } }
133 r1^\markup { \hspace #0.0 \raise #1.0 \bold { Breakdown } } | % 39
142 \mark \markup { \override #'(font-family . sans) { \box { E } } }
144 r1^\markup { \hspace #1.0 \raise #1.0 \bold { Solos } } | % 43
154 \mark \markup { \override #'(font-family . sans) { \box { F } } }
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
164 \mark \markup { \override #'(font-family . sans) { \box { G } } }
166 r1^\markup { \hspace #1.0 \raise #1.0 \bold { On Cue } } | % 51
169 r1-\fermata \bar ".|" % 54
172 LeadVoxText = \lyricmode
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!
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!
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, _ _ _
189 Go, tell it on the moun -- tain, _
190 Go, tell it on the moun -- _ _ tain, _
193 LeadVoxTextB = \lyricmode
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, _ _ _
211 LeadVoxTextC = \lyricmode
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, _ _ _
230 Riffs = \relative c''
234 \override Staff.TimeSignature #'style = #'()
236 \override Score.SpacingSpanner #'average-spacing-wishes = ##f
242 \repeat "percent" 3 % 1 - 6
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
247 << s2. \\ { \tiny d2 c4 } >> | % 7
248 << s2. \\ { \tiny bf2. } >> | % 8
253 \repeat "percent" 6 { f''16 c f, <f' f,> ~ <f f,> f, c' f f8 e | } % 16-21
259 \repeat "percent" 2 { f16 c f, f' ~ f f, c' f f8 e | } % 29-30
265 \repeat "percent" 2 { g16 d g, g' ~ g g, d' g g8 fs | } % 31-32
271 \repeat "percent" 4 { g16 d g, g' ~ g g, d' g g8 fs | } % 40-43
284 %Bah, can't we set this globally?
296 \time 2/4 s2 \time 4/4 | % 5
309 g4./b e8:m7 s2 | % 11
310 a2:m7 d4:sus4 d | % 12
322 g4./b e8:m7 s2 | % 11
323 a2:m7 d4:sus4 d | % 12
338 a2:m7 d4:sus4 d | % 23
351 \time 2/4 s2 \time 4/4 | % 30
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...
398 % \set Voice.autoBeaming = ##f
399 % \set Staff.instrument = #"Rhythm"
400 \override Staff.TimeSignature #'style = #'()
402 \override NoteHead #'style = #'slash
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
413 \time 2/4 c2 \time 4/4 | % 5
426 c4 c8 c8 ~ c4 c | % 11
430 c4 c8 c8 ~ c4 c | % 15
439 c4 c8 c8 ~ c4 c | % 11
443 c4 c8 c8 ~ c4 c | % 15
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
465 %\stopStaff s1 \bar "" \startStaff % That removed the spurious floating bar line from line break
466 \stopStaff s1 \startStaff
467 \set Score.currentBarNumber = #37
469 c8.-> c16-> ~ c8 c8-> ~ c2 ~ | % 29
470 \time 2/4 c2 \time 4/4 \bar "||" % 30
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
511 s4_\markup { \italic { snare pat. } } s2 | % 1
512 s4_\markup { \italic { simile } } s2 | % 2
514 s4_\markup { \italic { spacy } } s2 | % 22
518 s4_\markup { \italic { Last time } } s2 | % 51
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
534 \new ChoirStaff = "Rhythm"
536 \new ChordNames = "chords" \Chords
537 \new RhythmicStaff = "chordRhythm" << \StaffC \Dynamics >>
540 \set Score.skipBars = ##t
541 \set Score.melismaBusyProperties = #'()
546 % \context { \Staff \RemoveEmptyStaves }
547 % ragged-last-bottom = ##t
555 #(define fonts (make-pango-font-tree
561 % top-margin = -0.25 \in