Shamusworld >> Repos - music/blob - away-in-a-manger.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 "Away In A Manger" }
  18         composer = \markup { \override #'(font-family . sans) \fontsize #1.3 "James R. Murray" }
  19         arranger = \markup { \override #'(font-family . sans) \fontsize #1.3 "arr. Craig Harris" }
  20         tagline  = $(string-append "Engraved by JLH and Lilypond " (lilypond-version))
  21 }
  22
  23
  24 %
  25 % Song's structure
  26 %
  27 Global =
  28 {
  29         \key f \major
  30         \override Staff.TimeSignature #'style = #'()
  31         \time 3/4
  32
  33         % Intro
  34
  35         \partial 4*1 s4 \bar "||"   % 0
  36         s2.*5 \bar "||:"   % 1-5
  37
  38         \repeat volta 2
  39         {
  40                 % Verse
  41
  42                 s2.*15 |   % 6-20
  43         }
  44         \alternative
  45         {
  46                 {
  47                         s2.*2 |   % 21-22
  48                 }
  49                 {
  50                         s2. |   % 23
  51                 }
  52         }
  53
  54         s2. \bar "||"   % 24
  55
  56         % Last verse
  57
  58         s2.*16 \bar "|."   % 25-40
  59 }
  60
  61
  62 %
  63 % Lead vocal
  64 %
  65
  66 LeadVox = \relative c''
  67 {
  68 %       \set Voice.autoBeaming = ##f
  69 %       \set Staff.instrument = #"Lead vox"
  70         \clef G
  71         \override Staff.TimeSignature #'style = #'()
  72
  73         % Intro
  74
  75         \partial 4*1 s4 \bar "||"   % 0
  76         s2. |   % 1
  77         s2. |   % 2
  78         s2. |   % 3
  79         s2. |   % 4
  80         s2 c4 \bar "||:"   % 5
  81
  82         % Verse
  83
  84         c4. bf8 a4 |   % 6
  85         a4 g f |   % 7
  86         f4 e d |   % 8
  87         c2 c4 |   % 9
  88         c4. d8 c4 |   % 10
  89         c4 g' e |   % 11
  90         d4 c f |   % 12
  91         a2 c4 |   % 13
  92         c4. bf8 a4 |   % 14
  93         a4 ( g ) f |   % 15
  94         f4 e d |   % 16
  95         c2 c4 |   % 17
  96         bf'4. a8 g4 |   % 18
  97         a4 g f |   % 19
  98         g d e |   % 20
  99
 100         f2. ~ |   % 21
 101         f2 c'4 |   % 22
 102
 103         f,2. ~ |   % 23
 104
 105         f2 c'4 \bar "||"   % 24
 106
 107         % Last verse
 108
 109         c4. bf8 a4 |   % 25
 110         a4 g f |   % 26
 111         f4 e d |   % 27
 112         c2 c4 |   % 28
 113         c4. d8 c4 |   % 29
 114         c4 g' e |   % 30
 115         d4 c f |   % 31
 116         a2 c4 |   % 32
 117         c4. bf8 a4 |   % 33
 118         a4 g f |   % 34
 119         f4 e d |   % 35
 120         c2 c4 |   % 36
 121         bf'4. a8 g4 |   % 37
 122         a4 g f |   % 38
 123         g d e |   % 39
 124         f2.^\fermata \bar "|."   % 40
 125 }
 126
 127 LeadVoxText = \lyricmode
 128 {
 129         A -- way in a man -- ger no crib for a bed,
 130         the lit -- tle Lord Je -- sus lay down his sweet head;
 131         The stars in the sky _ look down where he lay,
 132         the lit -- tle Lord Je -- sus a -- sleep on the hay. _
 133
 134         The
 135
 136         nigh. _
 137
 138         Be near me Lord Je -- sus! I ask thee to stay
 139         close by me for -- e -- ver, and love me, I pray.
 140         Bless all the dear chil -- dren in thy ten -- der care,
 141         and fit us for hea -- ven, to live with thee there.
 142 }
 143
 144 LeadVoxTextB = \lyricmode
 145 {
 146         _ cat -- tle are low -- ing, the ba -- by a -- wakes,
 147         the lit -- tle Lord Je -- sus, no cry -- ing he makes.
 148         I love thee, Lord Je -- sus! Look down from the sky,
 149         and stay by my side un -- til mor -- ning is
 150 }
 151
 152
 153 Riffs = \relative c'
 154 {
 155         \clef G
 156
 157         % Intro
 158
 159         \tiny
 160         \partial 4*1 c4 |   % 0
 161         bf'4. a8 g4 |   % 1
 162         a4 g f |   % 2
 163         g4 d e |   % 3
 164         f2. ~ |   % 4
 165         f2 s4 |   % 5
 166         \normalsize
 167 }
 168
 169
 170 %
 171 % Chord names
 172 %
 173
 174 Chords = \chordmode
 175 {
 176 %Bah, can't we set this globally?
 177 %       \popChords
 178
 179         % Intro
 180
 181         \partial 4*1 s4 |   % 0
 182         c2:7 a4:7/cs |   % 1
 183         d4:m g2:9 |   % 2
 184         g2:m7 c4:7 |   % 3
 185         f2. |   % 4
 186         g2.:m7/c |   % 5
 187
 188         % Verse
 189
 190         f2. |   % 6
 191         s2. |   % 7
 192         bf2. |   % 8
 193         f2. |   % 9
 194         c2.:sus4 |   % 10
 195         c2.:7 |   % 11
 196         bf4/f f2 |   % 12
 197         g2.:m9/c |   % 13
 198         a2.:m7 |   % 14
 199         d2.:m7 |   % 15
 200         g4:m7 g2:m7/c |   % 16
 201         f2. |   % 17
 202         c2:7 a4:7/cs |   % 18
 203         d4:m g2:9 |   % 19
 204         g2:m7 c4:7 |   % 20
 205
 206         f2. |   % 21
 207         g2.:m7/c |   % 22
 208
 209         f2. |   % 23
 210
 211         g2.:m7/c |   % 24
 212
 213         % Last verse
 214
 215         s2.*16 |   % 25-40
 216 }
 217
 218
 219 %
 220 % Chord rhythms
 221 %
 222
 223 % Use a RhythmicStaff on the chords instead of this?
 224 % It almost works, but not quite. Doesn't collapse chords above to single notes...
 225
 226 Rhythm = \relative c
 227 {
 228 %       \set Voice.autoBeaming = ##f
 229 %       \set Staff.instrument = #"Rhythm"
 230         \override Staff.TimeSignature #'style = #'()
 231         \override NoteHead #'style = #'slash
 232
 233         % Intro
 234
 235         \partial 4*1 s4 \bar "||"   % 0
 236         c4 c c |   % 1
 237         c4 c c |   % 2
 238         c4 c c |   % 3
 239         c4 c c |   % 4
 240         c4 c c \bar "||:"   % 5
 241
 242         % Verse
 243
 244         c4 c c |   % 6
 245         c4 c c |   % 7
 246         c4 c c |   % 8
 247         c4 c c |   % 9
 248         c4 c c |   % 10
 249         c4 c c |   % 11
 250         c4 c c |   % 12
 251         c4 c c |   % 13
 252         c4 c c |   % 14
 253         c4 c c |   % 15
 254         c4 c c |   % 16
 255         c4 c c |   % 17
 256         c4 c c |   % 18
 257         c4 c c |   % 19
 258         c4 c c |   % 20
 259
 260         c4 c c |   % 21
 261         c4 c c |   % 22
 262
 263         c4 c c |   % 23
 264
 265         c2. |   % 24
 266
 267         % Last verse
 268
 269 %       s2.*16 \bar "|."   % 25-40
 270 }
 271
 272
 273 Dynamics =
 274 {
 275         \override TextScript #'extra-offset = #'( 0.0 . -1.0 )
 276
 277         \partial 4*1 s4_\markup { \italic { lite snare, arp. gtr. } } |   % 0
 278         s2.*23
 279         s4_\markup { \italic { a capella } } s2 |   % 24
 280 }
 281
 282
 283 \score
 284 {
 285         <<
 286                 \set Score.skipBars = ##t
 287                 \set Score.melismaBusyProperties = #'()
 288
 289 %               \new Staff
 290                 <<
 291                         \new ChordNames \Chords
 292 %Capo 4 edition
 293 %                       \new ChordNames \transpose b g \Chords
 294                         \new RhythmicStaff << \Rhythm \Dynamics >>
 295                 >>
 296
 297                 \new Staff
 298                 <<
 299                         \Global                                         % The "roadmap" that everything else depends on
 300                         \new Voice = "lead" \LeadVox
 301                         \new Voice \Riffs
 302                         \new Lyrics \lyricsto "lead" \LeadVoxText
 303                         \new Lyrics \lyricsto "lead" \LeadVoxTextB
 304                 >>
 305         >>
 306 }
 307
 308
 309 \paper
 310 {
 311   #(define fonts (make-pango-font-tree
 312     "Times New Roman"
 313     "DomCasual BT"
 314     "Luxi Mono"
 315     (/ staffSize 20)))
 316
 317 % Spread staves vertically across last page (default: t)
 318 %       ragged-last-bottom = ##f
 319 % Don't spread staves vertically across the page (default: f)
 320 %       ragged-bottom = ##t
 321 % Allow partial line for last stave (default: f)
 322         ragged-last = ##t
 323
 324 % To find out what's eating the space at the top...
 325 %       annotate-spacing = ##t
 326 %let's try this: [It works! Huzzah!]
 327         obsolete-page-top-space = 0  top-system-spacing #'basic-distance = #(/ obsolete-page-top-space staff-space)
 328 }