Shamusworld >> Repos - music/blob - o-holy-night.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 "O Holy Night" }
  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 bf \major
  40         \override Staff.TimeSignature #'style = #'()
  41         \time 4/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         s1*2 \bar "||:"   % 1-2
  51
  52         \repeat volta 2
  53         {
  54                 % Verse
  55
  56                 \mark \markup { \override #'(font-family . sans) { \box { A } } }
  57
  58                 s1 |   % 3
  59                 \time 2/4 s2 \time 4/4 |   % 4
  60                 s1*4 |   % 5-8
  61                 \time 2/4 s2 \time 4/4 |   % 9
  62                 s1*3 \bar "||"   % 10-12
  63
  64                 \mark \markup { \override #'(font-family . sans) { \box { B } } }
  65
  66                 s1*4 \bar "||"   % 13-16
  67
  68                 \once \override Score.RehearsalMark #'self-alignment-X = #left
  69                 \mark \markup { \override #'(font-family . sans) { \box { C } } \hspace #1.0 \raise #2.0 \musicglyph #"scripts.segno" }
  70
  71                 s1*4 \bar "||"   % 17-20
  72
  73                 \mark \markup { \override #'(font-family . sans) { \box { D } } }
  74
  75                 s1*4 |   % 21-24
  76
  77                 \once \override Score.RehearsalMark #'self-alignment-X = #right
  78                 \mark \markup { \italic { to Coda } \hspace #0.5 \musicglyph #"scripts.coda" }
  79
  80                 s1*3 |   % 25-27
  81         }
  82         \alternative
  83         {
  84                 {
  85                         s1*2 |   % 28-29
  86                 }
  87                 {
  88                         s1 \bar "||"   % 30
  89                 }
  90         }
  91
  92         \once \override Score.RehearsalMark #'self-alignment-X = #right
  93         \mark \markup { \hspace #0.0 \raise #1.0 \italic { D.S. al Coda } }
  94
  95         % Coda
  96
  97         % blank measure between last measure and coda
  98         \stopStaff s1 \bar "" \startStaff   % That removed the spurious floating bar line from line break
  99 %       \stopStaff s1 \startStaff   % That removed the spurious floating bar line from line break
 100         \break % Meh
 101         \set Score.currentBarNumber = #31
 102
 103         \once \override Score.RehearsalMark #'self-alignment-X = #left
 104         \mark \markup { { \musicglyph #"scripts.coda" } "Coda" }
 105
 106         s1*3 \bar "||"   % 31-33
 107
 108         \mark \markup { \override #'(font-family . sans) { \box { E } } }
 109
 110         s1*5 \bar "|."   % 34-38
 111 }
 112
 113
 114 %
 115 % Lead vocal
 116 %
 117 LeadVox = \relative c'
 118 {
 119 %       \set Staff.instrument = #"Lead vox"
 120         \clef G
 121         \override Staff.TimeSignature #'style = #'()
 122 %Hm. Needed anymore?
 123 %       \override Score.SpacingSpanner #'average-spacing-wishes = ##f
 124         \set tupletSpannerDuration = #(ly:make-moment 1 4)
 125
 126         % Intro
 127
 128         s1*2 |   % 1-2
 129
 130         % Verse
 131
 132         d4 \times 2/3 { d4 d8 } f4. f8 |   % 3
 133         \times 2/3 { g4 g8 ef4 g8 } |   % 4
 134         bf2 \times 2/3 { f4 f8 d4 c8 } |   % 5
 135         bf4 \times 2/3 { d4 ef8 } f4 \times 2/3 { ef4 c8 } |   % 6
 136         bf1 |   % 7
 137         d4 \times 2/3 { d4 d8 } f4. f8 |   % 8
 138         \times 2/3 { g4 g8 ef4 g8 } |   % 9
 139         bf2 \times 2/3 { f4 f8 e4 d8 } |   % 10
 140         a'4 \times 2/3 { f4 g8 } a4 \times 2/3 { bf4 a8 } |   % 11
 141         d,2. f4 |   % 12
 142
 143         f4 g c, f |   % 13
 144         \times 2/3 { g4 f8 bf4 d,8 } g4 \times 2/3 { f4 f8 } |   % 14
 145         f4 g c, f |   % 15
 146         \times 2/3 { g4 f8 bf4 d,8 } f2 |   % 16
 147
 148         bf2. \times 2/3 { a4 g8 } |   % 17
 149         a2. a4 |   % 18
 150         c2 ~ \times 2/3 { c4 g8 g4 g8 } |   % 19
 151         bf2 bf4. bf8 |   % 20
 152
 153         d2 ( c4. ) f,8 |   % 21
 154         bf2. \times 2/3 { a4 g8 } |   % 22
 155         f2 ~ \times 2/3 { f4 f8 g4 f8 } |   % 23
 156         f2. bf4 |   % 24
 157         c2. f,4 |   % 25
 158         d'2. c4 |   % 26
 159         bf2 ~ bf8 a bf c |   % 27
 160
 161         bf1 |   % 28
 162         s1 |   % 29
 163
 164         bf1 |   % 30
 165
 166         % Coda
 167
 168         s1   % Placeholder for blank measure between end and Coda
 169
 170         c2. f,4 |   % 31
 171         f'2 ( ~ f8 ef ) d ( c ) |   % 32
 172         bf2 ~ bf8 a bf c |   % 33
 173
 174         bf1 |   % 34
 175         r1 |   % 35
 176         r1 |   % 36
 177         r1 |   % 37
 178         r1 |   % 38
 179 }
 180
 181
 182 LeadVoxText = \lyricmode
 183 {
 184         O ho -- ly night, the stars are bright -- ly shin -- ing,
 185         it is the night of our dear sa -- vior’s birth.
 186         Long lay the world, in sin and er -- ror pin -- ing,
 187         ’til he ap -- peared and the soul felt its worth.
 188
 189         A thrill of hope the wear -- y world re -- joic -- es,
 190         for yon -- der breaks a new and glor -- ious morn.
 191         Fall on your knees! Oh hear __ _ the an -- gel voi -- ces!
 192         O night __ _ di -- vine, O the night __ _ when Christ was born;
 193         O night, O ho -- ly night, __ _ O night di -- vine!
 194
 195         claim!
 196
 197         night, O ho -- _ _ ly __ _ night, _ O night di -- vine!
 198 %{
 199 O Holy Night! The stars are brightly shining,
 200 It is the night of the dear Saviour's birth.
 201 Long lay the world in sin and error pining.
 202 Till He appeared and the Spirit felt its worth.
 203 A thrill of hope the weary world rejoices,
 204 For yonder breaks a new and glorious morn.
 205 Fall on your knees! Oh, hear the angel voices!
 206 O night divine, the night when Christ was born;
 207 O night, O Holy Night , O night divine!
 208 O night, O Holy Night , O night divine!
 209
 210 Led by the light of faith serenely beaming,
 211 With glowing hearts by His cradle we stand.
 212 O'er the world a star is sweetly gleaming,
 213 Now come the wisemen from out of the Orient land.
 214 The King of kings lay thus lowly manger;
 215 In all our trials born to be our friends.
 216 He knows our need, our weakness is no stranger,
 217 Behold your King! Before him lowly bend!
 218 Behold your King! Before him lowly bend!
 219
 220 Truly He taught us to love one another,
 221 His law is love and His gospel is peace.
 222 Chains he shall break, for the slave is our brother.
 223 And in his name all oppression shall cease.
 224 Sweet hymns of joy in grateful chorus raise we,
 225 With all our hearts we praise His holy name.
 226 Christ is the Lord! Then ever, ever praise we,
 227 His power and glory ever more proclaim!
 228 His power and glory ever more proclaim!
 229 %}
 230 }
 231
 232 LeadVoxTextB = \lyricmode
 233 {
 234         Tru -- ly he taught us to love one a -- no -- ther,
 235         his law is love and his gos -- pel is peace.
 236         Chains he shall break, for the slave is our bro -- ther,
 237         and in his name all op -- pres -- sion shall cease.
 238
 239         Sweet hymns of joy in grate -- ful cho -- rus raise we,
 240         With all our hearts we praise his ho -- ly name.
 241         Christ is the Lord! O praise _ his name for -- e -- ver!
 242         His po -- wer and glo -- ry _ e -- _ ver more pro -- claim!
 243         His pow’r and glo -- ry e -- _ ver more pro-
 244 }
 245
 246
 247 Riffs = \relative c
 248 {
 249 %       \clef G
 250 %Hm. Needed anymore?
 251 %       \override Score.SpacingSpanner #'average-spacing-wishes = ##f
 252         \set tupletSpannerDuration = #(ly:make-moment 1 4)
 253
 254         % Intro
 255
 256         \tiny
 257         \times 2/3 { r8 f bf c bf f ~ f f bf c bf f' ~ } |   % 1
 258         \times 2/3 { f8 f, bf c bf f ~ f f bf c bf f' } |   % 2
 259         s1 |   % 3
 260         s2 |   % 4
 261         s1*4 |   % 5-8
 262         s2 |   % 9
 263         s1*18 |   % 10-27
 264         \times 2/3 { r8 f bf c bf f ~ f f bf c bf f' ~ } |   % 28
 265         \times 2/3 { f8 f, bf c bf f ~ f f bf c bf f' } |   % 29
 266         \normalsize
 267 }
 268
 269
 270 %
 271 % Chord names
 272 %
 273 Chords = \chordmode
 274 {
 275         % Intro
 276
 277         bf1:5.9 |   % 1
 278         s1 |   % 2
 279
 280         % Verse
 281
 282         bf1:5.9 |   % 3
 283         ef2:5.9 |   % 4
 284         bf1:5.9 |   % 5
 285         s2 ef4/f f:7 |   % 6
 286         bf1:5.9 |   % 7
 287         bf1:5.9 |   % 8
 288         ef4:5.9 ef/f |   % 9
 289         g1:m11 |   % 10
 290         d2:m7 g4:m9 a:7.9- |   % 11
 291         d1:m7 |   % 12
 292
 293         c2:m11 f:7 |   % 13
 294         bf2:6 g:m11 |   % 14
 295         c2:m11 f:7 |   % 15
 296         bf2.:6 bf4:/a |   % 16
 297
 298         g1:m7 |   % 17
 299         d1:m |   % 18
 300         c1:m7 |   % 19
 301         g1:m11 |   % 20
 302
 303         bf2/f f/ef |   % 21
 304         bf2/d ef:5.9 |   % 22
 305         bf2/f ef4/f f:7 |   % 23
 306         bf1:5.9 |   % 24
 307         f2 f/ef |   % 25
 308         bf2/d ef:5.9 |   % 26
 309         bf2/f ef/f |   % 27
 310
 311         bf1:5.9 |   % 28
 312         s1 |   % 29
 313
 314         bf1:5.9 |   % 30
 315
 316         % Coda
 317
 318         s1   % Placeholder for blank measure between end and Coda
 319
 320         f2 f/ef |   % 31
 321         bf2/d ef:5.9 |   % 32
 322         bf/f ef/f |   % 33
 323
 324         bf1:5.9 |   % 34
 325         ef1:5.9 |   % 35
 326         bf1:5.9 |   % 36
 327         ef1:5.9 |   % 37
 328         bf1:5.9 |   % 38
 329 }
 330
 331
 332 %
 333 % Chord rhythms
 334 %
 335 % Use a RhythmicStaff on the chords instead of this?
 336 % It almost works, but not quite. Doesn't collapse chords above to single notes...
 337 %
 338 Rhythm = \relative c
 339 {
 340 %%      \set Voice.autoBeaming = ##f
 341 %%      \set Staff.instrument = #"Rhythm"
 342         \override Staff.TimeSignature #'style = #'()
 343         \override NoteHead #'style = #'slash
 344
 345 %Not small enough...
 346         \teeny
 347 %       \magnify #0.3
 348
 349         % Intro
 350
 351         c1 ~ |   % 1
 352         c1 |   % 2
 353
 354         % Verse
 355
 356         c4 c c c |   % 3
 357         c4 c |   % 4
 358         c4 c c c |   % 5
 359         c4 c c c |   % 6
 360         c4 c c c |   % 7
 361         c4 c c c |   % 8
 362         c4 c |   % 9
 363         c4 c c c |   % 10
 364         c4 c c c |   % 11
 365         c4 c c c |   % 12
 366
 367         c4 c c c |   % 13
 368         c4 c c c |   % 14
 369         c4 c c c |   % 15
 370         c4 c c c |   % 16
 371
 372         c4 c c c |   % 17
 373         c4 c c c |   % 18
 374         c4 c c c |   % 19
 375         c4 c c c |   % 20
 376
 377         c4 c c c |   % 21
 378         c4 c c c |   % 22
 379         c4 c c c |   % 23
 380         c4 c c c |   % 24
 381         c4 c c c |   % 25
 382         c4 c c2 |   % 26
 383         c4 c c2 |   % 27
 384
 385         c1 ~ |   % 28
 386         c1 |   % 29
 387
 388         c4 c c c |   % 30
 389
 390         % Coda
 391
 392         s1   % Placeholder for blank measure between end and Coda
 393
 394         c4 c c c |   % 31
 395         c4 c c2 |   % 32
 396         c2 c |   % 33
 397
 398         c4 c c c |   % 34
 399         c4 c c c |   % 35
 400         c4 c c c |   % 36
 401         c4 c c c |   % 37
 402         c1-\fermata |   % 38
 403 }
 404
 405
 406 Dynamics =
 407 {
 408 %       s1*4 |   % 1-4
 409 %       s4_\markup { \italic { 1st X: Melody, 2nd X+: Solos } } s2. |   % 5
 410 %       s1*38 |   % 1-38
 411 %       s4_\markup { \bold \italic { Double Chorus 2nd X } } s2. |   % 39
 412 %       s1*7 |   % 40-46
 413 %       s4_\markup { \bold { Tutti } } s2. |   % 47
 414 }
 415
 416
 417 \score
 418 {
 419         <<
 420                 \set Score.skipBars = ##t
 421                 \set Score.melismaBusyProperties = #'()
 422
 423 %               \new Staff
 424                 <<
 425                         \new ChordNames \Chords
 426 %Capo 4 edition
 427 %                       \new ChordNames \transpose b g \Chords
 428                         \new RhythmicStaff << \Rhythm \Dynamics >>
 429                 >>
 430
 431                 \new Staff
 432                 <<
 433                         \Global                                         % The "roadmap" that everything else depends on
 434                         \new Voice = "lead" \LeadVox
 435                         \new Voice \Riffs
 436                         \new Lyrics \lyricsto "lead" \LeadVoxText
 437                         \new Lyrics \lyricsto "lead" \LeadVoxTextB
 438                 >>
 439         >>
 440 }
 441
 442
 443 \paper
 444 {
 445   #(define fonts (make-pango-font-tree
 446     "Times New Roman"
 447     "DomCasual BT"
 448     "Luxi Mono"
 449     (/ staffSize 20)))
 450
 451 % Spread staves vertically across last page (default: t)
 452         ragged-last-bottom = ##f
 453 % Don't spread staves vertically across the page (default: f)
 454 %       ragged-bottom = ##t
 455 % Allow partial line for last stave (default: f)
 456         ragged-last = ##t
 457
 458 % To find out what's eating the space at the top...
 459 %       annotate-spacing = ##t
 460 %let's try this: [It works! Huzzah!]
 461         obsolete-page-top-space = 0  top-system-spacing #'basic-distance = #(/ obsolete-page-top-space staff-space)
 462 }