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         \override Staff.TimeSignature #'style = #'()
  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 %       \set Staff.instrument = #"Lead vox"
  89         \clef G
  90         \override Staff.TimeSignature #'style = #'()
  91 %Hm. Needed anymore?
  92 %       \override Score.SpacingSpanner #'average-spacing-wishes = ##f
  93
  94         % Intro
  95
  96         s1*7 |   % 1-7
  97
  98         % Verse
  99
 100         b2 cs |   % 8
 101         d2 cs |   % 9
 102         b2. a8 fs ~ |   % 10
 103         fs2 r |   % 11
 104
 105         b2 cs |   % 12
 106         d2 fs |   % 13
 107         e2. d8 d ~ |   % 14
 108         d2 r4 r8 \tiny fs, \normalsize |   % 15
 109
 110         b2 cs |   % 16
 111         d2 cs |   % 17
 112         b2. a8 fs ~ |   % 18
 113         fs2 r |   % 19
 114
 115         b2 cs |   % 20
 116         d2 fs |   % 21
 117         e2 b |   % 22
 118         e2 b |   % 23
 119         d1 |   % 24
 120         cs1 |   % 25
 121
 122         % Chorus
 123
 124         d2 fs4 a |   % 26
 125         a4 d,8 d ~ d e4 e8 ~ |   % 27
 126         e2 r |   % 28
 127         fs2 e4. d8 ~ |   % 29
 128
 129         d2 fs4 a8 a ~ |   % 30
 130         a4 d,8 d ~ d e4 e8 ~ |   % 31
 131         e2 r4 e8 d |   % 32
 132         fs4. e8 ~ e4 d8 d ~ |   % 33
 133
 134         d4 r8 a d e d4 |   % 34
 135         a8 fs'4 e8 ~ e8 d4 r8 |   % 35
 136         d8 e4 fs8 ~ fs4. e8 ~ |   % 36
 137         e4 d8 b8 ~ b4 r |   % 37
 138         r1 |   % 38
 139         d8 ( e fs e ~ e4 ) d8 d ~ |   % 39
 140
 141         % Chorus
 142
 143         d4 r4 fs4 a |   %
 144         a4 d,8 d ~ d e4 e8 ~ |   %
 145         e2 r |   %
 146         fs2 e4. d8 ~ |   %
 147
 148         d2 fs4 a8 a ~ |   %
 149         a4 d,8 d ~ d e4 e8 ~ |   %
 150         e2 r4 e8 d |   %
 151         fs4. e8 ~ e4 d8 d ~ |   %
 152
 153         d4 r8 a d e d4 |   %
 154         a8 fs'4 e8 ~ e8 d4 a8 |   %
 155         d8 e4 fs8 ~ fs4. e8 ~ |   %
 156         e4 d8 b8 ~ b4 r |   %
 157         r1 |   %
 158         d8 ( e fs e ~ e4 ) d8 d ~ |   %
 159
 160         % Midtro
 161
 162 \voiceTwo
 163         d4 s2. |   %
 164 \oneVoice
 165         s1*6 |   %
 166
 167         % Verse
 168
 169         b2 cs |   %
 170         d2 cs |   %
 171         b2. a8 fs ~ |   %
 172         fs2 r |   %
 173         r1-\fermata |   %
 174 }
 175
 176 LeadVoxText = \lyricmode
 177 {
 178         Child of won -- der, close Your eyes _
 179         Rest here in my arms to -- night _
 180         _ Some -- day You will save the world _
 181         But to -- night I’ll hold You right here in my arms
 182
 183         Pre -- cious mir -- a -- cle _ of life, _ child of love _
 184         Gift of hope, _ the gift _ of light _ from the Fa -- ther _ a -- bove _
 185         And You were made for all man -- _ kind
 186         You will al -- _ ways _ be mine, _ child __ _ _ _ _ of love _
 187
 188         Pre -- cious mir -- a -- cle _ of life, _ child of love _
 189         Gift of hope, _ the gift _ of light _ from the Fa -- ther _ a -- bove _
 190         And You were made for all man -- _ kind
 191         But You will al -- _ ways _ be mine, _ child __ _ _ _ _ of love _
 192
 193         Child of won -- der, close Your eyes. _
 194 }
 195
 196 LeadVoxTextB = \lyricmode
 197 {
 198         Ga -- briel’s pro -- mise has come true _
 199         God has blessed this world with You _
 200         And as I hum -- bly hold You now _
 201         In my heart I know I’m hold -- ing Hea -- ven’s child
 202 }
 203
 204
 205 Riffs = \relative c'
 206 {
 207         \clef G
 208 %Hm. Needed anymore?
 209 %       \override Score.SpacingSpanner #'average-spacing-wishes = ##f
 210
 211         % Intro
 212
 213         \tiny
 214         b8 fs' d' b a, fs' d' b |   % 1
 215         g,8 fs' d' b ~ b2 |   % 2
 216         b,8 fs' d' b a, fs' d' b |   % 3
 217         g,8 fs' d' b ~ b2 |   % 4
 218         b,8 fs' d' b a, fs' d' b |   % 5
 219         g,8 fs' d' b ~ b2 ~ |   % 6
 220         b1 |   % 7
 221
 222         s1*46 |   % 8-53
 223
 224 \voiceOne
 225         b,8 fs' d' b a, fs' d' b |   % 54
 226 \oneVoice
 227         g,8 fs' d' b ~ b2 |   % 55
 228         b,8 fs' d' b a, fs' d' b |   % 56
 229         g,8 fs' d' b ~ b2 |   % 57
 230         b,8 fs' d' b a, fs' d' b |   % 58
 231         g,8 fs' d' b ~ b2 ~ |   % 59
 232         b1 |   % 60
 233         \normalsize
 234 }
 235
 236
 237 %
 238 % Chord names
 239 %
 240 Chords = \chordmode
 241 {
 242 %Bah, can't we set this globally?
 243 %       \popChords
 244
 245         % Intro
 246
 247         b2:m b:m/a |   % 1
 248         b1:m/g |   % 2
 249         b2:m b:m/a |   % 3
 250         b1:m/g |   % 4
 251         b2:m b:m/a |   % 5
 252         b1:m/g |   % 6
 253         s1 |   % 7
 254
 255         % Verse
 256
 257         b2:m b:m/a |   % 8
 258         b2:m/g b:m/fs |   % 9
 259         e2:m a |   % 10
 260         d1 |   % 11
 261
 262         b2:m b:m/a |   % 12
 263         b2:m/g b:m/fs |   % 13
 264         e2:m a |   % 14
 265         d1 |   % 15
 266
 267         b2:m b:m/a |   % 16
 268         b2:m/g b:m/fs |   % 17
 269         e2:m a |   % 18
 270         d1 |   % 19
 271
 272         b2:m b:m/a |   % 20
 273         b2:m/g b:m/fs |   % 21
 274         e1 |   % 22
 275         s1 |   % 23
 276         g1 |   % 24
 277         a1 |   % 25
 278
 279         % Chorus
 280
 281         d1 |   % 22
 282         g1 |   % 23
 283         a1 |   % 24
 284         g1 |   % 25
 285
 286         d1 |   % 26
 287         g1 |   % 27
 288         a1 |   % 28
 289         g1 |   % 29
 290
 291         d1 |   % 30
 292         g1 |   % 31
 293         b2:m b:m/a |   % 32
 294         b2:m/g b:m/fs |   % 33
 295         e1:m |   % 34
 296         a1 |   % 35
 297
 298         % Chorus
 299
 300         d1 |   % 22
 301         g1 |   % 23
 302         a1 |   % 24
 303         g1 |   % 25
 304
 305         d1 |   % 26
 306         g1 |   % 27
 307         a1 |   % 28
 308         g1 |   % 29
 309
 310         d1 |   % 30
 311         g1 |   % 31
 312         b2:m b:m/a |   % 32
 313         b2:m/g b:m/fs |   % 33
 314         e1:m |   % 34
 315         a1 |   % 35
 316
 317         % Midtro
 318
 319         b2:m b:m/a |   % 1
 320         b1:m/g |   % 2
 321         b2:m b:m/a |   % 3
 322         b1:m/g |   % 4
 323         b2:m b:m/a |   % 5
 324         b1:m/g |   % 6
 325         s1 |   % 7
 326
 327         % Outro
 328
 329         b2:m b:m/a |   % 8
 330         b2:m/g b:m/fs |   % 9
 331         e2:m a |   % 10
 332         d1 |   % 11
 333 }
 334
 335
 336 %
 337 % Chord rhythms
 338 %
 339 % Use a RhythmicStaff on the chords instead of this?
 340 % It almost works, but not quite. Doesn't collapse chords above to single notes...
 341 %
 342 Rhythm = \relative c
 343 {
 344 %%      \set Voice.autoBeaming = ##f
 345 %%      \set Staff.instrument = #"Rhythm"
 346         \override Staff.TimeSignature #'style = #'()
 347         \override NoteHead #'style = #'slash
 348
 349         % Intro
 350
 351         c4 c c c |   % 1
 352         c4 c c c |   % 2
 353         c4 c c c |   % 3
 354         c4 c c c |   % 4
 355         c4 c c c |   % 5
 356         c4 c c c |   % 6
 357         c4 c c c |   % 7
 358
 359         % Verse
 360
 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         c4 c c c |   %
 370         c4 c c c |   %
 371         c4 c c c |   %
 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
 380         % Chorus
 381
 382         c4 c c c |   %
 383         c4 c c c |   %
 384         c4 c c c |   %
 385         c4 c c c |   %
 386         c4 c c c |   %
 387         c4 c c c |   %
 388         c4 c c c |   %
 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
 397         % Chorus
 398
 399         c4 c c c |   %
 400         c4 c c c |   %
 401         c4 c c c |   %
 402         c4 c c c |   %
 403         c4 c c c |   %
 404         c4 c c c |   %
 405         c4 c c c |   %
 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         % Midtro
 415
 416         c4 c c c |   %
 417         c4 c c c |   %
 418         c4 c c c |   %
 419         c4 c c c |   %
 420         c4 c c c |   %
 421         c4 c c c |   %
 422         c4 c c c |   %
 423
 424         % Outro
 425
 426         c4 c c c |   %
 427         c4 c c c |   %
 428         c4 c c c |   %
 429         c4 c c c ~ |   %
 430         c1-\fermata |   %
 431 }
 432
 433
 434 Dynamics =
 435 {
 436 %{
 437         s4_\markup { \italic { snare pat. } } s2 |   % 1
 438         s4_\markup { \italic { simile } } s2 |   % 2
 439         s2.*19
 440         s4_\markup { \italic { spacey } } s2 |   % 22
 441         s2.*5
 442         s4 s \< s \! |   % 28
 443         s2.*22
 444         s4_\markup { \italic { Last time } } s2 |   % 51
 445 %}
 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                         \new Lyrics \lyricsto "lead" \LeadVoxTextB
 470                 >>
 471         >>
 472 }
 473
 474
 475 \paper
 476 {
 477   #(define fonts (make-pango-font-tree
 478     "Times New Roman"
 479     "DomCasual BT"
 480     "Luxi Mono"
 481     (/ staffSize 20)))
 482
 483 % Spread staves vertically across last page (default: t)
 484 %       ragged-last-bottom = ##f
 485 % Don't spread staves vertically across the page (default: f)
 486 %       ragged-bottom = ##t
 487 % Allow partial line for last stave (default: f)
 488         ragged-last = ##t
 489
 490 % To find out what's eating the space at the top...
 491 %       annotate-spacing = ##t
 492 %let's try this: [It works! Huzzah!]
 493         obsolete-page-top-space = 0  top-system-spacing #'basic-distance = #(/ obsolete-page-top-space staff-space)
 494 }