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