Shamusworld >> Repos - music/blob - infant-holy-infant-lowly.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 = #20
   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 "Infant Holy, Infant Lowly" }
  16 %       composer = \markup { \override #'(font-family . sans) \fontsize #1.3 "" }
  17         arranger = \markup { \override #'(font-family . sans) \fontsize #1.3 "arr. Ed Smart" }
  18         tagline  = $(string-append "Engraved by JLH and Lilypond " (lilypond-version))
  19 }
  20
  21 % Useful tweak abbreviations (hn = harmony note)
  22
  23 hn = #(define-music-function (parser location arg) (ly:music?)
  24 ;; Harmony Note: Set the tweaks property of the passed in note to use a smaller font
  25
  26   (set! (ly:music-property arg 'tweaks)
  27     (acons 'font-size -3.0 (ly:music-property arg 'tweaks))) arg)
  28
  29
  30 %
  31 % Song's structure
  32 %
  33 Global =
  34 {
  35         \key g \major
  36         \numericTimeSignature
  37         \time 3/4
  38
  39 %       \once \override TextScript #'padding = #2.0
  40 %       s1*0^\markup { \large \bold { Samba } }
  41 % Capo 4 version
  42 %       s1*0^\markup { \hspace #0.0 \raise #2.0 \bigger \bold { "Moderate pop (*** CAPO 4 ***)" } }
  43
  44         % Intro
  45
  46         \partial 4*1 s4 |   % 0
  47         s2.*5 \bar "||"   % 1-5
  48
  49         % Verse/Refrain
  50
  51         \mark \markup { \override #'(font-family . sans) { \box { A } } }
  52
  53         s2.*8 \bar "||"   % 6-13
  54
  55         s2.*6 \bar "||"   % 14-19
  56
  57         % Midtro
  58
  59         s2.*6 \bar "||"   % 20-25
  60
  61         % Verse/Refrain
  62
  63         \mark \markup { \override #'(font-family . sans) { \box { B } } }
  64
  65         s2.*8 \bar "||"   % 26-33
  66
  67         s2.*6 \bar "||"   % 34-39
  68
  69         % Solo
  70
  71         \mark \markup { \override #'(font-family . sans) { \box { C } } }
  72
  73         s2.*8 \bar "||"   % 40-47
  74
  75         % Refrain
  76
  77         \mark \markup { \override #'(font-family . sans) { \box { D } } }
  78
  79         s2.*7 \bar "||"   % 48-54
  80
  81         % Outro
  82
  83         s2.*6 \bar "|."   % 55-60
  84 }
  85
  86
  87 %
  88 % Lead vocal
  89 %
  90 LeadVox = \relative c'
  91 {
  92         \clef G
  93
  94         % Intro
  95
  96         s4 |   % 0
  97         s2.*4 |   % 1-4
  98         s2 d8 d |   % 5
  99
 100         % Verse/Refrain
 101
 102         g4 g fs8 g |   % 6
 103         a4 a b8 c |   % 7
 104         d4 c b8 a |   % 8
 105         g2 d8 d |   % 9
 106         g4 g fs8 g |   % 10
 107         a4 a b8 c |   % 11
 108         d4 c b8 a |   % 12
 109         g2 g8 fs |   % 13
 110
 111         e8. e16 ~ e4 a8 g |   % 14
 112         fs8. fs16 ~ fs4 b8 a |   % 15
 113         g8. g16 ~ g4 c8 b |   % 16
 114         a8. a16 ~ a4 b8 c |   % 17
 115         d4 c b8 a |   % 18
 116         g2 s4 |   % 19
 117
 118         % Midtro
 119
 120         s2.*5 |   % 20-24
 121         s2 d8 d |   % 25
 122
 123         % Verse/Refrain
 124
 125         g4 g fs8 g |   % 26
 126         a4 a b8 c |   % 27
 127         d4 c b8 a |   % 28
 128         g2 d8 d |   % 29
 129         g4 g fs8 g |   % 30
 130         a4 a b8 c |   % 31
 131         d4 c b8 a |   % 32
 132         g2 g8 fs |   % 33
 133
 134         e8. e16 ~ e4 a8 g |   % 34
 135         fs8. fs16 ~ fs4 b8 a |   % 35
 136         g8. g16 ~ g4 c8 b |   % 36
 137         a8. a16 ~ a4 b8 c |   % 37
 138         d4 c b8 a |   % 38
 139         g2 r4 |   % 39
 140
 141         % Solo
 142
 143         R2.*7 |   % 40-46
 144         r2 g8 fs |   % 47
 145
 146         % Refrain
 147
 148         e8. e16 ~ e4 a8 g |   % 34
 149         fs8. fs16 ~ fs4 b8 a |   % 35
 150         g8. g16 ~ g4 c8 b |   % 36
 151         a8. a16 ~ a2 ~ |   % 37
 152         a2-\fermata b8 c |   % 52
 153         d4 c b8 a |   % 53
 154         g2 s4 |   % 54
 155
 156         % Outro
 157
 158         s2.*6 |   % 55-60
 159 }
 160
 161
 162 LeadVoxText = \lyricmode
 163 {
 164         In -- fant ho -- ly, in -- fant low -- ly, for his bed a cat -- tle stall,
 165         Ox -- en low -- ing, lit -- tle know -- ing Christ the babe is Lord of all.
 166         Swift are wing -- ing _ an -- gels sing -- ing, _
 167         No -- els ring -- ing, _ tid -- ings bring -- ing, _
 168         Christ the babe is Lord of all.
 169
 170         Flocks were sleep -- ing, shep -- herds keep -- ing vi -- gil ’til the morn -- ing new.
 171         Saw the glo -- ry, heard the sto -- ry, ti -- dings of a gos -- pel true.
 172         Thus re -- joic -- ing, _ free from sor -- row, _
 173         prais -- es voic -- ing, _ greet the mor -- row, _
 174         Christ the babe was born for you.
 175
 176         Thus re -- joic -- ing, _ free from sor -- row, _
 177         prais -- es voic -- ing, _ greet the mor -- row, __ _ _
 178         Christ the babe was born for you.
 179 }
 180
 181
 182 Riffs = \relative c'
 183 {
 184         \set tupletSpannerDuration = #(ly:make-moment 1 4)
 185
 186         % Intro
 187
 188         \tiny
 189         <b g'>8 <a fs'> |   % 0
 190         <g e'>8. <g e'>16 ~ <g e'>4 <c a'>8 <b g'> |   % 1
 191         <a fs'>8. <a fs'>16 ~ <a fs'>4 <d b'>8 <c a'> |   % 2
 192         <b g'>8. <b g'>16 ~ <b g'>4 <e c'>8 <d b'> |   % 3
 193         <c a'>8. <c a'>16 ~ <c a'>2 ~ |   % 4
 194         <c a'>2-\fermata s4 |   % 5
 195
 196         s2.*13 |   % 6-18
 197
 198         s2 <b g'>8 <a fs'> |   % 19
 199         <g e'>8. <g e'>16 ~ <g e'>4 <c a'>8 <b g'> |   % 20
 200         <a fs'>8. <a fs'>16 ~ <a fs'>4 <d b'>8 <c a'> |   % 21
 201         <b g'>8. <b g'>16 ~ <b g'>4 <e c'>8 <d b'> |   % 22
 202         <c a'>8. <c a'>16 ~ <c a'>4 b'8 c |   % 23
 203         d4 c b8 a |   % 24
 204         g2 s4 |   % 25
 205
 206         s2.*28 |   % 26-53
 207
 208         s2 <b, g'>8 <a fs'> |   % 54
 209         <g e'>8. <g e'>16 ~ <g e'>4 <c a'>8 <b g'> |   % 55
 210         <a fs'>8. <a fs'>16 ~ <a fs'>4 <d b'>8 <c a'> |   % 56
 211         <b g'>8. <b g'>16 ~ <b g'>4 <e c'>8 <d b'> |   % 57
 212         <c a'>8. <c a'>16 ~ <c a'>4 b'8 c |   % 58
 213         d4 c b8 a |   % 59
 214         g2.\fermata |   % 60
 215         \normalsize
 216 }
 217
 218
 219 %
 220 % Chord names
 221 %
 222 Chords = \chordmode
 223 {
 224         % Intro
 225
 226         s4 |   % 0
 227         c2.:3.5.9 |   % 1
 228         d2.:3.5.9 |   % 2
 229         e2.:m7 |   % 3
 230         d2.:3.5.9/fs |   % 4
 231         d2. |   % 5
 232
 233         % Verse/Refrain
 234
 235         g2. |   % 6
 236         d2. |   % 7
 237         c2:3.5.9 d4 |   % 8
 238         g2 d4:7sus4 |   % 9
 239         g2. |   % 10
 240         d2.:3.5.9/fs |   % 11
 241         a2:m7 d4 |   % 12
 242         g2. |   % 13
 243
 244         c2.:3.5.9 |   % 14
 245         d2.:3.5.9 |   % 15
 246         e2.:m7 |   % 16
 247         d2.:3.5.9/fs |   % 17
 248         a2:m7 g8/d d |   % 18
 249         g2. |   % 19
 250
 251         % Midtro
 252
 253         c2.:3.5.9 |   % 20
 254         d2.:3.5.9 |   % 21
 255         e2.:m7 |   % 22
 256         d2.:3.5.9/fs |   % 23
 257         a2:m7 g8/d d |   % 24
 258         g2 d4:7sus4 |   % 25
 259
 260         % Verse/Refrain
 261
 262         g2. |   % 26
 263         d2. |   % 27
 264         c2:3.5.9 d4 |   % 28
 265         g2 d4/fs |   % 29
 266         e2:m7 b4:m7 |   % 30
 267         a2:m7 d4 |   % 31
 268         c2:3.5.9/e d4:3.5.9/fs |   % 32
 269         g2. |   % 33
 270
 271         c2.:3.5.9 |   % 34
 272         d2.:3.5.9 |   % 35
 273         e2.:m7 |   % 36
 274         d2.:3.5.9/fs |   % 37
 275         a2:m7 g8/d d |   % 38
 276         g2 d4:7sus4 |   % 39
 277
 278         % Solo
 279
 280         g2. |   % 40
 281         d2. |   % 41
 282         c2:3.5.9 d4 |   % 42
 283         g2 d4/fs |   % 43
 284         e2:m7 b4:m7 |   % 44
 285         a2:m7 d4 |   % 45
 286         c2:3.5.9/e d4:3.5.9/fs |   % 46
 287         g2. |   % 47
 288
 289         % Refrain
 290
 291         c2.:3.5.9 |   % 48
 292         d2.:3.5.9 |   % 49
 293         c2.:3.5.9/e |   % 50
 294         f2.:maj7 |   % 51
 295         d2:sus4 b4:m7 |   % 52
 296         a2:m7 g8/d d |   % 53
 297         g2. |   % 54
 298
 299         % Outro
 300
 301         c2.:3.5.9 |   % 55
 302         d2.:3.5.9 |   % 56
 303         c2.:3.5.9/e |   % 57
 304         f2:3.5.9 d4 |   % 58
 305         a2:m7 g8/d d |   % 59
 306         g2. |   % 60
 307 }
 308
 309
 310 %
 311 % Chord rhythms
 312 %
 313 Rhythm = \relative c
 314 {
 315         \numericTimeSignature
 316         \override NoteHead #'style = #'slash
 317 %Not small enough... (?)
 318         \teeny
 319 %       \magnify #0.3
 320
 321         % Intro
 322
 323         s4 |   % 0
 324         c4 c c |   % 1
 325         c4 c c |   % 2
 326         c4 c c |   % 3
 327         c4 c c |   % 4
 328         c2-\fermata c4 |   % 5
 329
 330         % Verse/Refrain
 331
 332         c4 c c |   % 6
 333         c4 c c |   % 7
 334         c4 c c |   % 8
 335         c4 c c |   % 9
 336         c4 c c |   % 10
 337         c4 c c |   % 11
 338         c4 c c |   % 12
 339         c4 c c |   % 13
 340
 341         c4 c c |   % 14
 342         c4 c c |   % 15
 343         c4 c c |   % 16
 344         c4 c c |   % 17
 345         c4 c c8 c |   % 18
 346         c4 c c |   % 19
 347
 348         % Midtro
 349
 350         c4 c c |   % 20
 351         c4 c c |   % 21
 352         c4 c c |   % 22
 353         c4 c c |   % 23
 354         c4 c c8 c |   % 24
 355         c4 c c |   % 25
 356
 357         % Verse/Refrain
 358
 359         c4 c c |   % 26
 360         c4 c c |   % 27
 361         c4 c c |   % 28
 362         c4 c c |   % 29
 363         c4 c c |   % 30
 364         c4 c c |   % 31
 365         c4 c c |   % 32
 366         c4 c c |   % 33
 367
 368         c4 c c |   % 34
 369         c4 c c |   % 35
 370         c4 c c |   % 36
 371         c4 c c |   % 37
 372         c4 c c8 c |   % 38
 373         c4 c c |   % 39
 374
 375         % Solo
 376
 377         c4 c c |   % 40
 378         c4 c c |   % 41
 379         c4 c c |   % 42
 380         c4 c c |   % 43
 381         c4 c c |   % 44
 382         c4 c c |   % 45
 383         c4 c c |   % 46
 384         c4 c c |   % 47
 385
 386         % Refrain
 387
 388         c4 c c |   % 48
 389         c4 c c |   % 49
 390         c4 c c |   % 50
 391         c4 c c |   % 51
 392         c2-\fermata c4 |   % 52
 393         c4 c c8 c |   % 53
 394         c4 c c |   % 54
 395
 396         % Outro
 397
 398         c4 c c |   % 55
 399         c4 c c |   % 56
 400         c4 c c |   % 57
 401         c4 c c |   % 58
 402         c4 c c8 c |   % 59
 403         c2.-\fermata |   % 60
 404 }
 405
 406
 407 Dynamics =
 408 {
 409 %       s1*4 |   % 1-4
 410 %       s4_\markup { \italic { 1st X: Melody, 2nd X+: Solos } } s2. |   % 5
 411 %       s1*38 |   % 1-38
 412 %       s4_\markup { \bold \italic { Double Chorus 2nd X } } s2. |   % 39
 413 %       s1*7 |   % 40-46
 414 %       s4_\markup { \bold { Tutti } } s2. |   % 47
 415         s4 |   % 0
 416         s2.*39 |   % 1-39
 417         s4_\markup { \large \bold \italic { Solo } } s2 |   % 40
 418 }
 419
 420
 421 \score
 422 {
 423         <<
 424                 \Global         % The "roadmap" that everything else depends on
 425                 \set Score.skipBars = ##t
 426                 \set Score.melismaBusyProperties = #'()
 427
 428                 \context Staff
 429                 <<
 430                         \new Voice = "lead" \LeadVox
 431                         \new Voice \Riffs
 432                         \new Lyrics \lyricsto "lead" \LeadVoxText
 433                 >>
 434
 435                 \new ChoirStaff
 436                 <<
 437                         \new ChordNames \Chords
 438 %Capo 4 edition
 439 %                       \new ChordNames \transpose b g \Chords
 440                         \new RhythmicStaff << \Rhythm \Dynamics >>
 441                 >>
 442         >>
 443 }
 444
 445
 446 \paper
 447 {
 448         #(define fonts (make-pango-font-tree
 449                 "Times New Roman"
 450                 "LilyJAZZText"
 451                 "Luxi Mono"
 452                 (/ staffSize 20)))
 453
 454 % Spread staves vertically across last page (default: t)
 455         ragged-last-bottom = ##f
 456 % Don't spread staves vertically across the page (default: f)
 457 %       ragged-bottom = ##t
 458 % Allow partial line for last stave (default: f)
 459         ragged-last = ##t
 460
 461 % To find out what's eating the space at the top...
 462 %       annotate-spacing = ##t
 463 }
 464