Shamusworld >> Repos - music/blob - child-of-love.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 = #18
   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 "Child of Love" }
  18         composer = \markup { \override #'(font-family . sans) \fontsize #1.3 "Sara Groves/Mark Lee, Matthew West, Steve Hindalong" }
  19 %       arranger = \markup { \override #'(font-family . sans) \fontsize #1.3 "arr. " }
  20         tagline  = $(string-append "Engraved by JLH and Lilypond " (lilypond-version))
  21 % Let's try a chord dictionary
  22 %       subtitle = \markup { \center-column { "F#m" \fret-diagram-terse #"x;x;4;2;2;2;" } "       " \center-column { "F#m/F" \fret-diagram-terse #"x;x;3;2;2;2;" } "       " \center-column { "F#m/E" \fret-diagram-terse #"x;x;2;2;2;2;" }  "       " \center-column { "F#m/Eb" \fret-diagram-terse #"x;x;1;2;2;2;" }  "       " \center-column { "Em7" \fret-diagram-terse #"o;2;2;o;3;o;" }  "       " \center-column { "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 b \minor
  40         \numericTimeSignature
  41         \time 2/2
  42
  43         % Intro
  44
  45         \once \override TextScript #'padding = #2.0
  46         s1*0^\markup { \large \bold { Not too fast } }
  47 % Capo 4 version
  48 %       s1*0^\markup { \hspace #0.0 \raise #2.0 \larger \bold { "Moderate pop (*** CAPO 4 ***)" } }
  49
  50         \repeat volta 2
  51         {
  52                 % Intro
  53
  54                 s1*7 \bar "||"   % 1-7
  55
  56                 % Verse
  57
  58                 \mark \markup { \override #'(font-family . sans) { \box { A } } }
  59                 s1*18 \bar "||"   % 8-25
  60
  61                 % Chorus
  62
  63                 \mark \markup { \override #'(font-family . sans) { \box { B } } }
  64                 s1*14 |   % 26-39
  65         }
  66
  67         % Chorus
  68
  69         \mark \markup { \override #'(font-family . sans) { \box { C } } }
  70         s1*14 \bar "||"   % 40-53
  71
  72         % Midtro
  73
  74         s1*7 \bar "||"   % 54-60
  75
  76         % Outro
  77
  78         \mark \markup { \override #'(font-family . sans) { \box { D } } }
  79         s1*5 \bar "|."   % 61-65
  80 }
  81
  82
  83 %
  84 % Lead vocal
  85 %
  86 LeadVox = \relative c'
  87 {
  88         \clef G
  89
  90         % Intro
  91
  92         s1*7 |   % 1-7
  93
  94         % Verse
  95
  96         b2 cs |   % 8
  97         d2 cs |   % 9
  98         b2. a8 fs ~ |   % 10
  99         fs2 r |   % 11
 100
 101         b2 cs |   % 12
 102         d2 fs |   % 13
 103         e2. d8 d ~ |   % 14
 104         d2 r4 r8 \tiny fs, \normalsize |   % 15
 105
 106         b2 cs |   % 16
 107         d2 cs |   % 17
 108         b2. a8 fs ~ |   % 18
 109         fs2 r |   % 19
 110
 111         b2 cs |   % 20
 112         d2 fs |   % 21
 113         e2 b |   % 22
 114         e2 b |   % 23
 115         d1 |   % 24
 116         cs1 |   % 25
 117
 118         % Chorus
 119
 120         d2 fs4 a |   % 26
 121         a4 d,8 d ~ d e4 e8 ~ |   % 27
 122         e2 r |   % 28
 123         fs2 e4. d8 ~ |   % 29
 124
 125         d2 fs4 a8 a ~ |   % 30
 126         a4 d,8 d ~ d e4 e8 ~ |   % 31
 127         e2 r4 e8 d |   % 32
 128         fs4. e8 ~ e4 d8 d ~ |   % 33
 129
 130         d4 r8 a d e d4 |   % 34
 131         a8 fs'4 e8 ~ e8 d4 r8 |   % 35
 132         d8 e4 fs8 ~ fs4. e8 ~ |   % 36
 133         e4 d8 b8 ~ b4 r |   % 37
 134         r1 |   % 38
 135         d8 ( e fs e ~ e4 ) d8 d ~ |   % 39
 136
 137         % Chorus
 138
 139         d4 r4 fs4 a |   %
 140         a4 d,8 d ~ d e4 e8 ~ |   %
 141         e2 r |   %
 142         fs2 e4. d8 ~ |   %
 143
 144         d2 fs4 a8 a ~ |   %
 145         a4 d,8 d ~ d e4 e8 ~ |   %
 146         e2 r4 e8 d |   %
 147         fs4. e8 ~ e4 d8 d ~ |   %
 148
 149         d4 r8 a d e d4 |   %
 150         a8 fs'4 e8 ~ e8 d4 a8 |   %
 151         d8 e4 fs8 ~ fs4. e8 ~ |   %
 152         e4 d8 b8 ~ b4 r |   %
 153         r1 |   %
 154         d8 ( e fs e ~ e4 ) d8 d ~ |   %
 155
 156         % Midtro
 157
 158 \voiceTwo
 159         d4 s2. |   %
 160 \oneVoice
 161         s1*6 |   %
 162
 163         % Verse
 164
 165         b2 cs |   %
 166         d2 cs |   %
 167         b2. a8 fs ~ |   %
 168         fs2 r |   %
 169         r1-\fermata |   %
 170 }
 171
 172 LeadVoxText = \lyricmode
 173 {
 174         Child of won -- der, close Your eyes _
 175         Rest here in my arms to -- night _
 176         _ Some -- day You will save the world _
 177         But to -- night I’ll hold You right here in my arms
 178
 179         Pre -- cious mir -- a -- cle _ of life, _ child of love _
 180         Gift of hope, _ the gift _ of light _ from the Fa -- ther _ a -- bove _
 181         And You were made for all man -- _ kind
 182         You will al -- _ ways _ be mine, _ child __ _ _ _ _ of love _
 183
 184         Pre -- cious mir -- a -- cle _ of life, _ child of love _
 185         Gift of hope, _ the gift _ of light _ from the Fa -- ther _ a -- bove _
 186         And You were made for all man -- _ kind
 187         But You will al -- _ ways _ be mine, _ child __ _ _ _ _ of love _
 188
 189         Child of won -- der, close Your eyes. _
 190 }
 191
 192 LeadVoxTextB = \lyricmode
 193 {
 194         Ga -- briel’s pro -- mise has come true _
 195         God has blessed this world with You _
 196         And as I hum -- bly hold You now _
 197         In my heart I know I’m hold -- ing Hea -- ven’s child
 198 }
 199
 200
 201 Riffs = \relative c'
 202 {
 203         \clef G
 204
 205         % Intro
 206
 207         \tiny
 208         b8 fs' d' b a, fs' d' b |   % 1
 209         g,8 fs' d' b ~ b2 |   % 2
 210         b,8 fs' d' b a, fs' d' b |   % 3
 211         g,8 fs' d' b ~ b2 |   % 4
 212         b,8 fs' d' b a, fs' d' b |   % 5
 213         g,8 fs' d' b ~ b2 ~ |   % 6
 214         b1 |   % 7
 215
 216         s1*46 |   % 8-53
 217
 218 \voiceOne
 219         b,8 fs' d' b a, fs' d' b |   % 54
 220 \oneVoice
 221         g,8 fs' d' b ~ b2 |   % 55
 222         b,8 fs' d' b a, fs' d' b |   % 56
 223         g,8 fs' d' b ~ b2 |   % 57
 224         b,8 fs' d' b a, fs' d' b |   % 58
 225         g,8 fs' d' b ~ b2 ~ |   % 59
 226         b1 |   % 60
 227         \normalsize
 228 }
 229
 230
 231 %
 232 % Chord names
 233 %
 234 Chords = \chordmode
 235 {
 236         % Intro
 237
 238         b2:m b:m/a |   % 1
 239         b1:m/g |   % 2
 240         b2:m b:m/a |   % 3
 241         b1:m/g |   % 4
 242         b2:m b:m/a |   % 5
 243         b1:m/g |   % 6
 244         s1 |   % 7
 245
 246         % Verse
 247
 248         b2:m b:m/a |   % 8
 249         b2:m/g b:m/fs |   % 9
 250         e2:m a |   % 10
 251         d1 |   % 11
 252
 253         b2:m b:m/a |   % 12
 254         b2:m/g b:m/fs |   % 13
 255         e2:m a |   % 14
 256         d1 |   % 15
 257
 258         b2:m b:m/a |   % 16
 259         b2:m/g b:m/fs |   % 17
 260         e2:m a |   % 18
 261         d1 |   % 19
 262
 263         b2:m b:m/a |   % 20
 264         b2:m/g b:m/fs |   % 21
 265         e1 |   % 22
 266         s1 |   % 23
 267         g1 |   % 24
 268         a1 |   % 25
 269
 270         % Chorus
 271
 272         d1 |   % 22
 273         g1 |   % 23
 274         a1 |   % 24
 275         g1 |   % 25
 276
 277         d1 |   % 26
 278         g1 |   % 27
 279         a1 |   % 28
 280         g1 |   % 29
 281
 282         d1 |   % 30
 283         g1 |   % 31
 284         b2:m b:m/a |   % 32
 285         b2:m/g b:m/fs |   % 33
 286         e1:m |   % 34
 287         a1 |   % 35
 288
 289         % Chorus
 290
 291         d1 |   % 22
 292         g1 |   % 23
 293         a1 |   % 24
 294         g1 |   % 25
 295
 296         d1 |   % 26
 297         g1 |   % 27
 298         a1 |   % 28
 299         g1 |   % 29
 300
 301         d1 |   % 30
 302         g1 |   % 31
 303         b2:m b:m/a |   % 32
 304         b2:m/g b:m/fs |   % 33
 305         e1:m |   % 34
 306         a1 |   % 35
 307
 308         % Midtro
 309
 310         b2:m b:m/a |   % 1
 311         b1:m/g |   % 2
 312         b2:m b:m/a |   % 3
 313         b1:m/g |   % 4
 314         b2:m b:m/a |   % 5
 315         b1:m/g |   % 6
 316         s1 |   % 7
 317
 318         % Outro
 319
 320         b2:m b:m/a |   % 8
 321         b2:m/g b:m/fs |   % 9
 322         e2:m a |   % 10
 323         d1 |   % 11
 324 }
 325
 326
 327 %
 328 % Chord rhythms
 329 %
 330 % Use a RhythmicStaff on the chords instead of this?
 331 % It almost works, but not quite. Doesn't collapse chords above to single notes...
 332 %
 333 Rhythm = \relative c
 334 {
 335         \numericTimeSignature
 336         \override NoteHead #'style = #'slash
 337         \teeny
 338
 339         % Intro
 340
 341         c4 c c c |   % 1
 342         c4 c c c |   % 2
 343         c4 c c c |   % 3
 344         c4 c c c |   % 4
 345         c4 c c c |   % 5
 346         c4 c c c |   % 6
 347         c4 c c c |   % 7
 348
 349         % Verse
 350
 351         c4 c c c |   %
 352         c4 c c c |   %
 353         c4 c c c |   %
 354         c4 c c c |   %
 355         c4 c c c |   %
 356         c4 c c c |   %
 357         c4 c c c |   %
 358         c4 c c c |   %
 359         c4 c c c |   %
 360         c4 c c c |   %
 361         c4 c c c |   %
 362         c4 c c c |   %
 363         c4 c c c |   %
 364         c4 c c c |   %
 365         c4 c c c |   %
 366         c4 c c c |   %
 367         c4 c c c |   %
 368         c4 c c c |   %
 369
 370         % Chorus
 371
 372         c4 c c c |   %
 373         c4 c c c |   %
 374         c4 c c c |   %
 375         c4 c c c |   %
 376         c4 c c c |   %
 377         c4 c c c |   %
 378         c4 c c c |   %
 379         c4 c c c |   %
 380         c4 c c c |   %
 381         c4 c c c |   %
 382         c4 c c c |   %
 383         c4 c c c |   %
 384         c4 c c c |   %
 385         c4 c c c |   %
 386
 387         % Chorus
 388
 389         c4 c c c |   %
 390         c4 c c c |   %
 391         c4 c c c |   %
 392         c4 c c c |   %
 393         c4 c c c |   %
 394         c4 c c c |   %
 395         c4 c c c |   %
 396         c4 c c c |   %
 397         c4 c c c |   %
 398         c4 c c c |   %
 399         c4 c c c |   %
 400         c4 c c c |   %
 401         c4 c c c |   %
 402         c4 c c c |   %
 403
 404         % Midtro
 405
 406         c4 c c c |   %
 407         c4 c c c |   %
 408         c4 c c c |   %
 409         c4 c c c |   %
 410         c4 c c c |   %
 411         c4 c c c |   %
 412         c4 c c c |   %
 413
 414         % Outro
 415
 416         c4 c c c |   %
 417         c4 c c c |   %
 418         c4 c c c |   %
 419         c4 c c c ~ |   %
 420         c1-\fermata |   %
 421 }
 422
 423
 424 Dynamics =
 425 {
 426 %{
 427         s4_\markup { \italic { snare pat. } } s2 |   % 1
 428         s4_\markup { \italic { simile } } s2 |   % 2
 429         s2.*19
 430         s4_\markup { \italic { spacey } } s2 |   % 22
 431         s2.*5
 432         s4 s \< s \! |   % 28
 433         s2.*22
 434         s4_\markup { \italic { Last time } } s2 |   % 51
 435 %}
 436 }
 437
 438
 439 \score
 440 {
 441         <<
 442                 \set Score.skipBars = ##t
 443                 \set Score.melismaBusyProperties = #'()
 444
 445                 \context Staff
 446                 <<
 447                         \Global         % The "roadmap" that everything else depends on
 448                         \new Voice = "lead" \LeadVox
 449                         \new Voice \Riffs
 450                         \new Lyrics \lyricsto "lead" \LeadVoxText
 451                         \new Lyrics \lyricsto "lead" \LeadVoxTextB
 452                 >>
 453
 454                 \new ChoirStaff
 455                 <<
 456                         \new ChordNames \Chords
 457 %Capo 4 edition
 458 %                       \new ChordNames \transpose b g \Chords
 459                         \new RhythmicStaff << \Rhythm \Dynamics >>
 460                 >>
 461
 462         >>
 463 }
 464
 465
 466 \paper
 467 {
 468   #(define fonts (make-pango-font-tree
 469         "Times New Roman"
 470         "JazzText"
 471         "Luxi Mono"
 472         (/ staffSize 20)))
 473
 474 % Spread staves vertically across last page (default: t)
 475 %       ragged-last-bottom = ##f
 476 % Don't spread staves vertically across the page (default: f)
 477 %       ragged-bottom = ##t
 478 % Allow partial line for last stave (default: f)
 479         ragged-last = ##t
 480
 481 % To find out what's eating the space at the top...
 482 %       annotate-spacing = ##t
 483 }
 484