Shamusworld >> Repos - music/blob - go-tell-it-on-the-mountain-chorus.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         subtitle = \markup { \override #'(font-family . sans) \fontsize #1.3 "Key of E & Chorus Only Version" }
  19         composer = \markup { \override #'(font-family . sans) \fontsize #1.3 "Traditional" }
  20         arranger = \markup { \override #'(font-family . sans) \fontsize #1.3 "arr. Ed Smart/Shamus & Deborah Hammons/J. & Kat Michaels/Chris Craig" }
  21         tagline  = $(string-append "Engraved by JLH and Lilypond " (lilypond-version))
  22 }
  23
  24
  25 % Useful tweak abbreviations (hn = harmony note)
  26
  27 hn = #(define-music-function (parser location arg) (ly:music?)
  28 ;; Harmony Note: Set the tweaks property of the passed in note to use a smaller font
  29
  30   (set! (ly:music-property arg 'tweaks)
  31     (acons 'font-size -3.5 (ly:music-property arg 'tweaks))) arg)
  32
  33
  34 %
  35 % Lead vocal
  36 %
  37
  38 LeadVox = \relative c''
  39 {
  40 %       \set Voice.autoBeaming = ##f
  41 %       \set Staff.instrument = #"Lead vox"
  42         \clef G
  43         \key g \major
  44         \override Staff.TimeSignature #'style = #'()
  45         \time 4/4
  46 \override Score.SpacingSpanner #'average-spacing-wishes = ##f
  47
  48         % Intro
  49
  50         \partial 4 { s4 }
  51
  52         \repeat volta 2
  53         {
  54                 s1 |   % 1
  55                 s1 |   % 2
  56                 s1 |   % 3
  57                 s1 |   % 4
  58         }
  59
  60         \repeat volta 2
  61         {
  62                 r1^\markup { \bold { Vamp } } |   % 5
  63                 r1 |   % 6
  64                 r1 |   % 7
  65                 r1 |   % 8
  66         }
  67
  68         % Chorus
  69
  70 \mark \markup { \override #'(font-family . sans) { \box { A } } }
  71
  72         <b \hn g>2 <b \hn g>8 <a \hn e> <g \hn d> <e \hn c> |   % 9
  73         d8. ( <e \hn c>16 ~ <e \hn c>8 ) <g \hn b,> ~ <g \hn b,>2 |   % 10
  74         <a \hn c,>8 <a \hn c,>4 <a \hn c,>8 <g \hn d>4 <a \hn d,> |   % 11
  75         <b \hn g>4 <d \hn b> <e \hn c> ( <d \hn b> ) |   % 12
  76         <b \hn g>2 <b \hn g>8 <a \hn e> <g \hn d> <e \hn c> |   % 13
  77         d8. ( <e \hn c>16 ~ <e \hn c>8 ) <g \hn e> ~ <g \hn e>4 <c \hn g> |   % 14
  78         <b \hn d,>4 <b \hn d,> <a \hn c,>8 ( <g \hn b,> ) <a \hn c,>4 |   % 15
  79         <g \hn b,>2 r \bar "||"   % 16
  80
  81 %       \repeat volta 2
  82         {
  83                 % Chorus
  84
  85 \mark \markup { \override #'(font-family . sans) { \box { B } } }
  86
  87                 <b \hn g>2 <b \hn g>8 <a \hn e> <g \hn d> <e \hn c> |   % 17
  88                 d8. ( <e \hn c>16 ~ <e \hn c>8 ) <g \hn b,> ~ <g \hn b,>2 |   % 18
  89                 <a \hn c,>8 <a \hn c,>4 <a \hn c,>8 <g \hn d>4 <a \hn d,> |   % 19
  90                 <b \hn g>4 <d \hn b> <e \hn c> ( <d \hn b> ) |   % 20
  91                 <b \hn g>2 <b \hn g>8 <a \hn e> <g \hn d> <e \hn c> |   % 21
  92                 d8. ( <e \hn c>16 ~ <e \hn c>8 ) <g \hn e> ~ <g \hn e>4 <c \hn g> |   % 22
  93                 <b \hn d,>4 <b \hn d,> <a \hn c,>8 ( <g \hn b,> ) <a \hn c,>4 |   % 23
  94
  95                 <g \hn b,>2 r |   % 24
  96                 r1 |   % 25
  97                 r1 |   % 26
  98                 r1-\fermata \bar "|."   % 27
  99         }
 100 }
 101
 102 LeadVoxText = \lyricmode
 103 {
 104         Go tell it on the moun -- _ _ tain, _
 105         o -- ver the hills and e -- vr’y -- where, _
 106         Go tell it on the moun -- _ _ tain, _
 107         that Je -- sus Christ _ is born!
 108
 109         Go tell it on the moun -- _ _ tain, _
 110         o -- ver the hills and e -- vr’y -- where, _
 111         Go tell it on the moun -- _ _ tain, _
 112         that Je -- sus Christ _ is born!
 113 }
 114
 115
 116 Riffs = \relative c''
 117 {
 118         \clef G
 119         \key g \major
 120         \override Staff.TimeSignature #'style = #'()
 121         \time 4/4
 122 \override Score.SpacingSpanner #'average-spacing-wishes = ##f
 123
 124         % Intro
 125
 126         \tiny
 127         \partial 4 { r8 d16 e } |   % 0
 128         f8. e16 ~ e8 d8 ~ d4 r |   % 1
 129         c8. b16 ~ b8 g8 ~ g8 f g d'16 e |   % 2
 130         f8. e16 ~ e8 d8 ~ d4 c |   % 3
 131         b4. f'16 f g8 f g16 f d e |   % 4
 132         \normalsize
 133 %{
 134         \tiny
 135         \repeat "percent" 3   % 1 - 6
 136         {
 137                 << { \tiny f16 c f, <f' f,> ~ <f f,> f, c' f f8 e } \\ { \tiny f,,2 c'4 } >> |   % 1
 138                 << { \tiny f'16 c f, <f' f,> ~ <f f,> f, c' f f8 e } \\ { \tiny bf,2 c4 } >> |   % 2
 139         }
 140         << s2. \\ { \tiny d2 c4 } >> |   % 7
 141         << s2. \\ { \tiny bf2. } >> |   % 8
 142
 143         s2.*7
 144
 145         \voiceOne
 146         \repeat "percent" 6 { f''16 c f, <f' f,> ~ <f f,> f, c' f f8 e | }   % 16-21
 147         \oneVoice
 148
 149         s2.*7
 150
 151         \voiceOne
 152         \repeat "percent" 2 { f16 c f, f' ~ f f, c' f f8 e | }   % 29-30
 153         \oneVoice
 154
 155         \key g \major
 156
 157         \voiceOne
 158         \repeat "percent" 2 { g16 d g, g' ~ g g, d' g g8 fs | }   % 31-32
 159         \oneVoice
 160
 161         s2.*7
 162
 163         \voiceOne
 164         \repeat "percent" 4 { g16 d g, g' ~ g g, d' g g8 fs | }   % 40-43
 165         \oneVoice
 166         \normalsize
 167 %}
 168 }
 169
 170
 171 %
 172 % Chord names
 173 %
 174
 175 Chords = \chordmode
 176 {
 177 %Bah, can't we set this globally?
 178 % YES, WE CAN!!! :-D
 179 %       \popChords
 180
 181         % Intro
 182
 183         \partial 4 { s4 }
 184
 185         \repeat volta 2
 186         {
 187                 f8. c g8 s2 |   % 1
 188                 f8. c g8 s2 |   % 2
 189                 f8. c g8 s2 |   % 3
 190                 f8. c g8 s2 |   % 4
 191         }
 192
 193         \repeat volta 2
 194         {
 195                 g2 a:m7 |   % 5
 196                 c2 d |   % 6
 197                 g2 a:m7 |   % 7
 198                 c2 d |   % 8
 199         }
 200
 201         % Chorus
 202
 203         g2 a:m7 |   % 9
 204         g4./b e8:m7 s2 |   % 10
 205         a2:m7 d4:sus4 d |   % 11
 206         g2 c:sus2 |   % 12
 207         g2 d/fs |   % 13
 208         e4.:m7 c8 s2 |   % 14
 209         g2/d d |   % 15
 210         g2 f4 c |   % 16
 211
 212 %       \repeat volta 2
 213         {
 214                 % Chorus
 215
 216                 g2 a:m7 |   % 17
 217                 g4./b e8:m7 s2 |   % 18
 218                 a2:m7 d4:sus4 d |   % 19
 219                 g2 c:sus2 |   % 20
 220                 g2 d/fs |   % 21
 221                 e4.:m7 c8 s2 |   % 22
 222                 g2/d d |   % 23
 223
 224                 f8. c g8 s2 |   % 24
 225                 f8. c g8 s2 |   % 25
 226                 f8. c g8 s2 |   % 26
 227                 f8. c g8 s2 |   % 27
 228         }
 229 }
 230
 231
 232 %
 233 % Chord rhythms
 234 %
 235 StaffC = \relative c
 236 {
 237         \numericTimeSignature
 238         \override NoteHead #'style = #'slash
 239         \teeny
 240
 241         % Intro
 242
 243         \partial 4 { s4 }
 244
 245         \repeat volta 2
 246         {
 247                 c8.-> c16-> ~ c8 c8-> ~ c2 |   % 1
 248                 c8.-> c16-> ~ c8 c8-> ~ c2 |   % 2
 249                 c8.-> c16-> ~ c8 c8-> ~ c2 |   % 3
 250                 c8.-> c16-> ~ c8 c8-> ~ c2 |   % 4
 251         }
 252
 253         \repeat volta 2
 254         {
 255                 c4 c c c |   % 5
 256                 c4 c c c |   % 6
 257                 c4 c c c |   % 7
 258                 c4 c c c |   % 8
 259         }
 260
 261         % Chorus
 262
 263         c4 c c c |   % 9
 264         c4 c8 c8 ~ c4 c |   % 10
 265         c4 c c c |   % 11
 266         c4 c c c |   % 12
 267         c4 c c c |   % 13
 268         c4 c8 c8 ~ c4 c |   % 14
 269         c4 c c c |   % 15
 270         c4 c c-> c-> |   % 16
 271
 272 %       \repeat volta 2
 273         {
 274                 % Chorus
 275
 276                 c4 c c c |   % 17
 277                 c4 c8 c8 ~ c4 c |   % 18
 278                 c4 c c c |   % 19
 279                 c4 c c c |   % 20
 280                 c4 c c c |   % 21
 281                 c4 c8 c8 ~ c4 c |   % 22
 282                 c4 c c c |   % 23
 283
 284                 c8.-> c16-> ~ c8 c8-> ~ c2 |   % 24
 285                 c8.-> c16-> ~ c8 c8-> ~ c2 |   % 25
 286                 c8.-> c16-> ~ c8 c8-> ~ c2 |   % 26
 287                 c8.-> c16-> ~ c8 c8-> ~ c2 \bar "|."   % 27
 288         }
 289 }
 290
 291
 292 Dynamics =
 293 {
 294 %{
 295         s4_\markup { \italic { snare pat. } } s2 |   % 1
 296         s4_\markup { \italic { simile } } s2 |   % 2
 297         s2.*19
 298         s4_\markup { \italic { spacy } } s2 |   % 22
 299         s2.*5
 300         s4 s \< s \! |   % 28
 301         s2.*22
 302         s4_\markup { \italic { Last time } } s2 |   % 51
 303 %}
 304 }
 305
 306
 307 \score
 308 {
 309         <<
 310                 <<
 311                         \new Staff = leadStaff { << \new Voice = "lead" \transpose g e \LeadVox \new Voice = "riffs" \transpose g e \Riffs >> }
 312                         \new Lyrics \lyricsto "lead" \LeadVoxText
 313                 >>
 314
 315                 \new ChoirStaff = "Rhythm"
 316                 <<
 317                         \new ChordNames = "chords" \transpose g e \Chords
 318                         \new RhythmicStaff = "chordRhythm" << \StaffC \Dynamics >>
 319                 >>
 320
 321                 \set Score.skipBars = ##t
 322                 \set Score.melismaBusyProperties = #'()
 323         >>
 324 }
 325
 326
 327 \paper
 328 {
 329         #(define fonts (make-pango-font-tree
 330                 "Times New Roman"
 331                 "DomCasual BT"
 332                 "Luxi Mono"
 333                 (/ staffSize 20)))
 334
 335 % Spread staves vertically across last page (default: t)
 336         ragged-last-bottom = ##f
 337 % Don't spread staves vertically across the page (default: f)
 338 %       ragged-bottom = ##t
 339 % Allow partial line for last stave (default: f)
 340         ragged-last = ##t
 341
 342 % To find out what's eating the space at the top...
 343 %       annotate-spacing = ##t
 344 }