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