Shamusworld >> Repos - music/blob - what-child-is-this.ly

   1 \version "2.19.0"
   2 \include "pop-chords.ly"
   3 \include "english.ly"
   4
   5 % Good sizes are 16, 18, & 20 (11, 13, 14, 23, 26)
   6 staffSize = #24
   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 "What Child Is This, Who, Laid to Rest?" }
  16         composer = \markup { \override #'(font-family . sans) \fontsize #1.3 "Traditional" }
  17         arranger = \markup { \override #'(font-family . sans) \fontsize #1.3 "arr. Shamus Hammons" }
  18         tagline  = $(string-append "Engraved by JLH and Lilypond " (lilypond-version))
  19 }
  20
  21
  22 %
  23 % Song's structure
  24 %
  25 Global =
  26 {
  27         \clef G
  28         \key a \minor
  29         \numericTimeSignature
  30         \time 3/4
  31
  32         % Intro
  33
  34         \partial 4*1 s4 |   % 0
  35         s2.*8 \bar ".|:-||"   % 1-8
  36
  37 \break % bah
  38
  39         \repeat volta 3
  40         {
  41                 % Verse
  42
  43                 \mark \markup { \override #'(font-family . sans) { \box { A } } }
  44                 s2.*16 \bar "||"   % 9-24
  45
  46                 % Chorus
  47
  48                 \mark \markup { \override #'(font-family . sans) { \box { B } } }
  49                 s2.*16 \bar "||"   % 25-40
  50                 s2. |   % 41
  51         }
  52         \alternative
  53         {
  54                 {
  55                         s2.*3 |   % 42-44
  56                 }
  57                 {
  58                         s2. |   % 45
  59                 }
  60         }
  61
  62         s2.*2 \bar "|."   % 46-47
  63 }
  64
  65
  66 %
  67 % Lead vocal
  68 %
  69 LeadVox = \relative c''
  70 {
  71         % Intro
  72
  73         s4 |   % 0
  74         s2.*7 |   % 1-7
  75         s2 a4 |   % 8
  76
  77         % Verse
  78
  79         c2 d4 |   % 9
  80         e4. ( fs8 ) e4 |   % 10
  81         d2 b4 |   % 11
  82         g4. ( a8 ) b4 |   % 12
  83         c2 a4 |   % 13
  84         a4. ( gs8 ) a4 |   % 14
  85         b2  ( gs4 ) |   % 15
  86         e2 b'4 |   % 16
  87
  88         c2 d4 |   % 17
  89         e4. ( fs8 ) e4 |   % 18
  90         d2 b4 |   % 19
  91         g4. ( a8 ) b4 |   % 20
  92         c4. ( b8 ) a4 |   % 21
  93         gs4. ( fs8 ) gs4 |   % 22
  94         a2. |   % 23
  95         a2. \bar "||"   % 24
  96
  97         % Chorus
  98
  99         g'2. |   % 25
 100         g4. ( fs8 ) e4 |   % 26
 101         d2 b4 |   % 27
 102         g4. ( a8 ) b4 |   % 28
 103         c2 a4 |   % 29
 104         a4. ( gs8 ) a4 |   % 30
 105         b2 gs4 |   % 31
 106         e2. |   % 32
 107
 108         g'2. |   % 33
 109         g4. ( fs8 ) e4 |   % 34
 110         d2 b4 |   % 35
 111         g4. ( a8 ) b4 |   % 36
 112         c4. ( b8 ) a4 |   % 37
 113         gs4. ( fs8 ) gs4 |   % 38
 114         a2. |   % 39
 115         a2 s4 |   % 40
 116
 117         s2. |   % 41
 118
 119         s2. |   % 42
 120         s2. |   % 43
 121         s2 a4 |   % 44
 122
 123         s2. |   % 45
 124
 125         s2. |   % 46
 126         s2. |   % 47
 127 }
 128
 129
 130 LeadVoxText = \lyricmode
 131 {
 132         What child is this, _ who, laid to rest, _
 133         on Ma -- ry’s lap _ is slee -- _ ping?
 134         Whom an -- gels greet _ with an -- thems sweet, _
 135         while shep -- _ herds watch _ are keep -- ing?
 136
 137         This, this _ is Christ the King, _
 138         whom shep -- herds guard _ and an -- gels sing:
 139         Haste, haste _ to bring him laud, _
 140         the babe, _ the son _ of Ma -- ry.
 141
 142         Why
 143 }
 144
 145 LeadVoxTextB = \lyricmode
 146 {
 147         _ lies he in _ such mean es -- tate _
 148         where ox and ass _ are fee -- _ ding?
 149         Good Chris -- tian, fear: _ for sin -- ners here _
 150         the si -- _ lent word _ is plea -- ding.
 151
 152         _ _ _ _ _ _ _ _
 153         _ _ _ _ _ _ _ _ _
 154         _ _ _ _ _ _ _ _
 155         _ _ _ _ _ _ _ _ _
 156
 157         So
 158 }
 159
 160 LeadVoxTextC = \lyricmode
 161 {
 162         _ bring him in -- _ cense, gold, and myrrh, _
 163         come pea -- sant, king, _ to own _ him;
 164         The King of Kings _ sal -- va -- tion brings, _
 165         let lo -- _ ving hearts _ en -- throne him.
 166 }
 167
 168
 169 Riffs = \relative c''
 170 {
 171         % Intro
 172
 173         \tiny
 174         a4 |   % 0
 175         << { \tiny c2 d4 } \\ { \tiny a,2 b4  } >> |   % 1
 176         << { e'4. fs8 e4 } \\ { c,2. } >> |   % 2
 177         << { d'2 b4 } \\ { g,2. } >> |   % 3
 178         << { g'4. a8 b4 } \\ { b,2. } >> |   % 4
 179         << { c'4. b8 a4 } \\ { a,2. } >> |   % 5
 180         << { gs'4. fs8 gs4 } \\ { e,2. } >> |   % 6
 181         << { a'2. } \\ { a,2. } >> |   % 7
 182         << { a'2 } \\ { a,2 } >> s4 |   % 8
 183
 184         s2.*31
 185
 186         s2 b'4 |   % 40
 187         << { \tiny c4. b8 a4 } \\ { \tiny a,2. } >> |   % 41
 188
 189         << { gs'4. fs8 gs4 } \\ { e,2. } >> |   % 42
 190         << { a'2. } \\ { a,2. } >> |   % 43
 191         << { a'2 } \\ { a,2 } >> s4 |   % 44
 192
 193         << { \tiny gs'4. fs8 gs4 } \\ { \tiny e,2. } >> |   % 45
 194
 195         << { a'2. } \\ { a,2. } >> |   % 46
 196         << { <a' cs>2.-\fermata } \\ { a,2. } >> |   % 47
 197         \normalsize
 198 }
 199
 200
 201 %
 202 % Chord names
 203 %
 204 Chords = \chordmode
 205 {
 206         % Intro
 207
 208         s4 |   % 0
 209         a2.:m |   % 1
 210         c2. |   % 2
 211         g2. |   % 3
 212         g2./b |   % 4
 213         a2.:m |   % 5
 214         e2. |   % 6
 215         a2.:m |   % 7
 216         s2. |   % 8
 217
 218         % Verse
 219
 220         a2.:m |   % 9
 221         c2. |   % 10
 222         g2. |   % 11
 223         g2./b |   % 12
 224         a2.:m |   % 13
 225         f2. |   % 14
 226         e2. |   % 15
 227         s2. |   % 16
 228
 229         a2.:m |   % 17
 230         c2. |   % 18
 231         g2. |   % 19
 232         g2./b |   % 20
 233         a2.:m |   % 21
 234         e2. |   % 22
 235         a2.:m |   % 23
 236         s2. |   % 24
 237
 238         % Chorus
 239
 240         c2. |   % 25
 241         c2. |   % 26
 242         g2. |   % 27
 243         g2./b |   % 28
 244         a2.:m |   % 29
 245         f2. |   % 30
 246         e2. |   % 31
 247         s2. |   % 32
 248
 249         c2. |   % 33
 250         c2. |   % 34
 251         g2. |   % 35
 252         g2./b |   % 36
 253         a2.:m |   % 37
 254         e2. |   % 38
 255         a2.:m |   % 39
 256         s2. |   % 40
 257
 258         a2.:m |   % 41
 259
 260         e2. |   % 42
 261         a2.:m |   % 43
 262         s2. |   % 44
 263
 264         e2. |   % 45
 265
 266         a2.:m |   % 46
 267         a2. |   % 47
 268 }
 269
 270
 271 %
 272 % Chord rhythms
 273 %
 274 StaffC = \relative c
 275 {
 276         \numericTimeSignature
 277         \override NoteHead #'style = #'slash
 278         \teeny
 279
 280         % Intro
 281
 282         s4 |   % 0
 283         c4 c c |   % 1
 284         c4 c c |   % 2
 285         c4 c c |   % 3
 286         c4 c c |   % 4
 287         c4 c c |   % 5
 288         c4 c c |   % 6
 289         c4 c c |   % 7
 290         c4 c c |   % 8
 291
 292         % Verse
 293
 294         c4 c c |   % 9
 295         c4 c c |   % 10
 296         c4 c c |   % 11
 297         c4 c c |   % 12
 298         c4 c c |   % 13
 299         c4 c c |   % 14
 300         c4 c c |   % 15
 301         c4 c c |   % 16
 302
 303         c4 c c |   % 17
 304         c4 c c |   % 18
 305         c4 c c |   % 19
 306         c4 c c |   % 20
 307         c4 c c |   % 21
 308         c4 c c |   % 22
 309         c4 c c |   % 23
 310         c4 c c |   % 24
 311
 312         % Chorus
 313
 314         c4 c c |   % 25
 315         c4 c c |   % 26
 316         c4 c c |   % 27
 317         c4 c c |   % 28
 318         c4 c c |   % 29
 319         c4 c c |   % 30
 320         c4 c c |   % 31
 321         c4 c c |   % 32
 322
 323         c4 c c |   % 33
 324         c4 c c |   % 34
 325         c4 c c |   % 35
 326         c4 c c |   % 36
 327         c4 c c |   % 37
 328         c4 c c |   % 38
 329         c4 c c |   % 39
 330         c4 c c |   % 40
 331
 332         c4 c c |   % 41
 333
 334         c4 c c |   % 42
 335         c4 c c |   % 43
 336         c4 c c |   % 44
 337
 338         c4 c c |   % 45
 339
 340         c4 c c |   % 46
 341         c2.-\fermata |   % 47
 342 }
 343
 344
 345 Dynamics =
 346 {
 347 %{
 348         s4_\markup { \dynamic f \italic { bass sustain, hh 16ths, no snare } } s2. |   % 1
 349         s1*2
 350         s2 s_\markup { \italic { dr. fill } } |   % 4
 351         s4_\markup { \italic { snare 2&4, hh 16ths } } s2. |   % 5
 352         s1*6
 353         s2 s4 \> s |   % 12
 354         s4_\mf s2. |   % 13
 355         s1*6
 356         s2 \once \override TextScript #'extra-offset = #'( 0.0 . -2.2 ) s4 \< _\markup { \italic { dr. fill } } s |   % 20
 357         s4_\f s2. |   % 21
 358         s1*12
 359         s2 s4 \> s \! |   % 34
 360         s1
 361         s2 \once \override TextScript #'extra-offset = #'( 0.0 . -2.0 ) s4 \< _\markup { \italic { dr. fill } } s \! |   % 36
 362         s4_\markup { \dynamic ff \italic { no snare } } s2. |   % 37
 363         s1*6
 364         s2 \once \override TextScript #'extra-offset = #'( 0.0 . -2.0 ) s4 \< _\markup { \italic { dr. fill } } s \! |   % 44
 365         s1*16
 366         s4_\markup { \italic { On Cue } } s2. |   % 61
 367         s4 s2._\markup { \italic { rit. } } |   % 62
 368 %}
 369 }
 370
 371
 372 \score
 373 {
 374         <<
 375                 \Global         % The "roadmap" that everything else depends on
 376
 377                 \context Staff
 378                 <<
 379                         \new Voice = "lead" \transpose a e \LeadVox
 380                         \new Voice = "riffs" \transpose a e \Riffs
 381                         \new Lyrics \lyricsto "lead" \LeadVoxText
 382                         \new Lyrics \lyricsto "lead" \LeadVoxTextB
 383                         \new Lyrics \lyricsto "lead" \LeadVoxTextC
 384                 >>
 385
 386                 \new ChoirStaff
 387                 <<
 388                         \new ChordNames \transpose a e \Chords
 389                         \new RhythmicStaff << \StaffC \Dynamics >>
 390                 >>
 391
 392                 \set Score.skipBars = ##t
 393                 \set Score.melismaBusyProperties = #'()
 394         >>
 395 }
 396
 397
 398 \paper
 399 {
 400         #(define fonts (make-pango-font-tree
 401                 "Times New Roman"
 402                 "LilyJAZZText"
 403                 "Luxi Mono"
 404                 (/ staffSize 20)))
 405
 406 % Spread staves vertically across last page (default: t)
 407         ragged-last-bottom = ##f
 408 % Don't spread staves vertically across the page (default: f)
 409 %       ragged-bottom = ##t
 410 % Allow partial line for last stave (default: f)
 411         ragged-last = ##t
 412
 413 % To find out what's eating the space at the top...
 414 %       annotate-spacing = ##t
 415 }
 416