Shamusworld >> Repos - music/blob - word-of-god-speak.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 \header
  12 {
  13 %Let's bump up the title size and switch to the chord font. :-)
  14
  15         title    = \markup { \override #'(font-family . sans) \fontsize #3.5 "Word Of God, Speak" }
  16 %       composer = \markup { \override #'(font-family . sans) \fontsize #1.3 "" }
  17         arranger = \markup { \override #'(font-family . sans) \fontsize #1.3 "arr. Ed Smart" }
  18         tagline  = "Engraved by JLH and Lilypond 2.8.2"
  19 }
  20
  21 % Useful tweak abbreviations (hn = harmony note)
  22
  23 hn = #(define-music-function (parser location arg) (ly:music?)
  24 ;; Harmony Note: Set the tweaks property of the passed in note to use a smaller font
  25
  26   (set! (ly:music-property arg 'tweaks)
  27     (acons 'font-size -3.0 (ly:music-property arg 'tweaks))) arg)
  28
  29
  30 %
  31 % Lead vocal
  32 %
  33
  34 LeadVox = \relative c''
  35 {
  36 %       \set Voice.autoBeaming = ##f
  37 %       \set Staff.instrumentName = #"Lead vox"
  38         \clef G
  39         \key c \major
  40         \override Staff.TimeSignature #'style = #'()
  41         \time 4/4
  42 \override Score.SpacingSpanner #'average-spacing-wishes = ##f
  43
  44
  45 %{
  46         % Intro
  47
  48         s1 |   % 1
  49         s1 |   % 2
  50         s1 |   % 3
  51         s1 |   % 4
  52         s1 |   % 5
  53         s1 |   % 6
  54         s1 |   % 7
  55         \voiceTwo r2 r4 g \oneVoice |   % 8
  56
  57         \repeat volta 2
  58         {
  59                 % Verse
  60
  61 \mark \markup { \override #'(font-family . sans) { \box { A } } }
  62
  63                 e4. d8 c4 g' |   % 9
  64                 a4 f f a |   % 10
  65                 g4. e8 e4 d8 ( c ) |   % 11
  66                 e4 e d g |   % 12
  67                 e4. d8 c4 g' |   % 13
  68                 a4 f c' b8 ( a ) |   % 14
  69                 g4 e e8 ( d ) c ( d ) |   % 15
  70                 e4. d8 c4 <g' \hn f \hn b,> \bar "||"   % 16
  71
  72                 % Chorus
  73
  74 \mark \markup { \override #'(font-family . sans) { \box { B } } }
  75
  76                 <g \hn e \hn c>4 <c \hn g \hn e> <b \hn g \hn d> <d \hn b \hn g> |   % 17
  77                 <c \hn a \hn f>4 <b \hn g \hn e>8 ( <a \hn f \hn d> ) <g \hn e \hn c>4 <a \hn f \hn c> |   % 18
  78                 <g \hn e \hn c>4 <e \hn c \hn g> <e \hn c \hn a>8 ( <d \hn b> ) <c \hn a> ( <d \hn b \hn g> ) |   % 19
  79                 <e \hn c \hn fs,>4 <e \hn c \hn fs,> <d \hn c \hn g> <g \hn f! \hn d> |   % 20
  80                 <g \hn e \hn c>4 <c \hn g \hn e> <b \hn g \hn d> <d \hn g, \hn b,> |   % 21
  81                 <c \hn a \hn f>4 <b \hn g \hn e>8 ( <a \hn f \hn d> ) <g \hn e \hn c>4 <a \hn f \hn c> |   % 22
  82                 <g \hn e \hn c>4 <e \hn c \hn g> << { \voiceOne <e \hn c>8 ( <d \hn b> ) c ( d ) } \context Voice = "v2" { \voiceTwo \tiny a4 a8 b \normalsize } \oneVoice >> |   % 23
  83                 \time 2/4 <e \hn c>4 <d \hn b> \time 4/4 |   % 24
  84                 \voiceTwo c1 \oneVoice |   % 25
  85                 s1 |   % 26
  86         }
  87         \alternative
  88         {
  89                 {
  90                         s1 |   % 27
  91                         \voiceTwo r2 r4 g' \oneVoice |   % 28
  92                 }
  93                 {
  94                         s1 |   % 29
  95                 }
  96         }
  97
  98         s1 |   % 30
  99         s1 |   % 31
 100         s1 |   % 32
 101         \voiceTwo r2 r4 <a \hn d,> \oneVoice \bar "||"   % 33
 102
 103         \key d \major
 104
 105         % Verse
 106
 107 \mark \markup { \override #'(font-family . sans) { \box { C } } }
 108
 109         <fs \hn a,>4. <e \hn g,>8 <d \hn fs,>4 <a' \hn d,> |   % 34
 110         <b \hn d,>4 <g \hn b,> <g \hn b,> <b \hn d,> |   % 35
 111         <a \hn d,>4. <fs \hn a,>8 <fs \hn a,>4 <e \hn g,>8 ( <d \hn fs,> ) |   % 36
 112         <fs \hn a,>4 <fs \hn a,> <e \hn a> <a \hn e \hn cs> |   % 37
 113         <fs \hn d \hn a>4. <e \hn d \hn g,>8 <d \hn a \hn cs>4 <a' \hn fs \hn d> |   % 38
 114         <b \hn g \hn d>4 <g \hn d \hn b> <d' \hn f, \hn b,> <cs \hn f, \hn cs>8 ( <b \hn d,> ) |   % 39
 115         <a \hn fs \hn d>4 <fs \hn d \hn a> << { \voiceOne <fs \hn d>8 ( <e \hn cs> ) d ( e ) } \context Voice = "v2" { \voiceTwo \tiny b4 b8 cs \normalsize } \oneVoice >> |   % 40
 116         <fs \hn d \hn a>4. <e \hn cs \hn g>8 <d \hn fs,>4 <a' \hn g \hn cs,> \bar "||"   % 41
 117
 118         % Chorus
 119
 120 \mark \markup { \override #'(font-family . sans) { \box { D } } }
 121
 122         <a \hn fs \hn d>4 <d \hn a \hn fs> <cs \hn a \hn e> <e \hn cs \hn a> |   % 42
 123         <d \hn b \hn g>4 <cs \hn a \hn fs>8 ( <b \hn g \hn e> ) <a \hn fs \hn d>4 <b \hn g \hn d> |   % 43
 124         <a \hn fs \hn d>4 <fs \hn d \hn a> <fs \hn d \hn b>8 ( <e \hn cs> ) <d \hn b> ( <e \hn cs \hn a> ) |   % 44
 125         <fs \hn d \hn gs,>4 <fs \hn d \hn gs,> <e \hn d \hn a> <a \hn g! \hn cs,> |   % 45
 126         <a \hn fs \hn d>4 <d \hn a \hn fs> <cs \hn a \hn e> <e \hn a, \hn cs,> |   % 46
 127         <d \hn g, \hn b,>4 <cs \hn fs, \hn a,>8 ( <b \hn e, \hn g,> ) <a \hn d, \hn fs,>4 <b \hn g \hn d> |   % 47
 128         <a \hn fs \hn d>4 <fs \hn d \hn a> << { \voiceOne <fs \hn d>8 ( <e \hn cs> ) d ( <e \hn cs> ) } \context Voice = "v2" { \voiceTwo \tiny b4 b8 a \normalsize } \oneVoice >> |   % 48
 129         <fs' \hn d \hn a>2 <e \hn cs \hn a> \bar "||"   % 49
 130
 131         % Outro
 132
 133 \mark \markup { \override #'(font-family . sans) { \box { E } } }
 134
 135         \voiceTwo d1 \oneVoice |   % 50
 136         s1 |   % 51
 137         s1 |   % 52
 138         s1 |   % 53
 139         s1 |   % 54
 140         s1 |   % 55
 141         s1 |   % 56
 142         s1 |   % 57
 143         s1 \bar "|."   % 58
 144 %}
 145 }
 146
 147 LeadVoxText = \lyricmode
 148 {
 149         I'm find- ing my- self at a loss for words
 150         and the fun- ny thing is, it's o- kay
 151         The last thing I need is too be heard
 152         but to hear what you might say
 153
 154         Word of God speak, would you pour down like rain,
 155         wash- ing my eyes to see your ma- jes- ty
 156         To be still and know that you're in this place,
 157         please let me stay and rest in your ho- li- ness
 158         Word of God speak.
 159 }
 160
 161
 162 Riffs = \relative c''
 163 {
 164         \clef G
 165         \key c \major
 166         \override Staff.TimeSignature #'style = #'()
 167         \time 4/4
 168 \override Score.SpacingSpanner #'average-spacing-wishes = ##f
 169
 170         % Intro
 171
 172 \tiny
 173         r8 g16 d' ~ d c8 g16 ~ g8 g16 d' ~ d c8. ~  |   % 1
 174         c8 g16 d' ~ d c8 b16 ~ b8. c16 ~ c16 d8. ~ |   % 2
 175         d8 g,16 d' ~ d c8 g16 ~ g8 g16 d' ~ d c8. ~ |   % 3
 176         c8 g16 d' ~ d c8 b16 ~ b8. c16 ~ c16 d8. ~ |   % 4
 177         d8 g,16 d' ~ d c8 g16 ~ g8 g16 d' ~ d c8. ~ |   % 5
 178         c8 g16 d' ~ d c8 b16 ~ b8. c16 ~ c16 d8. ~ |   % 6
 179         d8 g,16 d' ~ d c8 g16 ~ g8 g16 d' ~ d c8. |   % 7
 180         \voiceOne <g' d c g>1 \oneVoice |   % 8
 181
 182         \repeat volta 2
 183         {
 184                 % Verse
 185
 186                 s1 |   % 9
 187                 s1 |   % 10
 188                 s1 |   % 11
 189                 s1 |   % 12
 190                 s1 |   % 13
 191                 s1 |   % 14
 192                 s1 |   % 15
 193                 s1 |   % 16
 194
 195                 % Chorus
 196
 197                 s1 |   % 17
 198                 s1 |   % 18
 199                 s1 |   % 19
 200                 s1 |   % 20
 201                 s1 |   % 21
 202                 s1 |   % 22
 203                 s1 |   % 23
 204                 \time 2/4 s2 \time 4/4 |   % 24
 205                 \voiceOne r8 g,16 d' ~ d c8 g16 ~ g8 g16 d' ~ d c8. ~ \oneVoice |   % 25
 206                 c8 g16 d' ~ d c8 b16 ~ b8. c16 ~ c16 d8. ~ |   % 26
 207         }
 208         \alternative
 209         {
 210                 {
 211                         d8 g,16 d' ~ d c8 g16 ~ g8 g16 d' ~ d c8. |   % 27
 212                         \voiceOne <g' d c g>1 \oneVoice |   % 28
 213                 }
 214                 {
 215                         d8 \repeatTie g,16 d' ~ d c8 g16 ~ g8 g16 d' ~ d c8. |   % 29
 216                 }
 217         }
 218
 219         c8 bf16 f ~ f2. |   % 30
 220         c'8 bf16 f ~ f4 ~ f8. af16 ~ af bf8. |   % 31
 221         c1 |   % 32
 222         \voiceOne d2 e \oneVoice |   % 33
 223
 224         % Verse
 225
 226         s1 |   % 34
 227         s1 |   % 35
 228         s1 |   % 36
 229         s1 |   % 37
 230         s1 |   % 38
 231         s1 |   % 39
 232         s1 |   % 40
 233         s1 |   % 41
 234
 235         % Chorus
 236
 237         s1 |   % 42
 238         s1 |   % 43
 239         s1 |   % 44
 240         s1 |   % 45
 241         s1 |   % 46
 242         s1 |   % 47
 243         s1 |   % 48
 244         s1 |   % 49
 245
 246         % Outro
 247
 248         \voiceOne r8 a,16 e' ~ e d8 a16 ~ a8 a16 e' ~ e d8. ~ \oneVoice |   % 50
 249         d8 a16 e' ~ e d8 cs16 ~ cs8. d16 ~ d16 e8. ~ |   % 51
 250         e8 a,16 e' ~ e d8 a16 ~ a8 a16 e' ~ e d8. ~ |   % 52
 251         d8 a16 e' ~ e d8 cs16 ~ cs8. d16 ~ d16 e8. ~ |   % 53
 252         e8 a,16 e' ~ e d8 a16 ~ a8 a16 e' ~ e d8. ~ |   % 54
 253         d8 a16 e' ~ e d8 cs16 ~ cs8. d16 ~ d16 e8. ~ |   % 55
 254         e8 a,16 e' ~ e d8 a16 ~ a8 a16 e' ~ e d8. ~ |   % 56
 255         d8 a16 e' ~ e d8 cs16 ~ cs8. d16 ~ d16 cs8. ~ |   % 57
 256         <d a fs d>1^\fermata |   % 59
 257 \normalsize
 258 }
 259
 260
 261 %
 262 % Chord names
 263 %
 264
 265 Chords = \chordmode
 266 {
 267 %Bah, can't we set this globally?
 268 %       \popChords
 269
 270         % Intro
 271
 272         c2:sus2/a c:sus2/f |   % 1
 273         g1:sus4 |   % 2
 274         c2:sus2/a c:sus2/f |   % 3
 275         g1:sus4 |   % 4
 276         c2:sus2/a c:sus2/f |   % 5
 277         g1:sus4 |   % 6
 278         c2:sus2/e c:sus2/f |   % 7
 279         g1:sus4 |   % 8
 280
 281         \repeat volta 2
 282         {
 283                 % Verse
 284
 285                 c2 c/e |   % 9
 286                 f2 d:m7 |   % 10
 287                 c2/g a:m7 |   % 11
 288                 c2/f g4:sus4 g |   % 12
 289                 c2 c/e |   % 13
 290                 f2 fs:dim |   % 14
 291                 c2/g a:m7 |   % 15
 292                 c4/g g c g:sus4.7 \bar "||"   % 16
 293
 294                 % Chorus
 295
 296                 c2 g |   % 17
 297                 f4 e8:m7 d:m7 c4 f |   % 18
 298                 c2/g a:m7 |   % 19
 299                 d2:9 g4:sus4.7 g:7 |   % 20
 300                 c2 g |   % 21
 301                 f4 e8:m7 d:m7 c4 f |   % 22
 302                 c2/e a:m7 |   % 23
 303                 \time 2/4 c4/f g \time 4/4 |   % 24
 304                 c2:sus2/a c:sus2/f |   % 25
 305                 g1:sus4 |   % 26
 306         }
 307         \alternative
 308         {
 309                 {
 310                         c2:sus2/e c:sus2/f |   % 27
 311                         g1:sus4 |   % 28
 312                 }
 313                 {
 314                         c2:sus2/e c:sus2/ef |   % 29
 315                 }
 316         }
 317
 318         bf1:sus2/d |   % 30
 319         df1:maj7 |   % 31
 320         f1/g |   % 32
 321         g2/a a4 a:sus4.7 \bar "||"   % 33
 322
 323         % Verse
 324
 325         d2 d/fs |   % 34
 326         g2 e:m7 |   % 35
 327         d2/a b:m7 |   % 36
 328         d2/a a |   % 37
 329         d4. e8:m7 d2/fs |   % 38
 330         g2 gs:dim |   % 39
 331         d2/a b:m7 |   % 40
 332         d4/a a d d:sus4.7 \bar "||"   % 41
 333
 334         % Chorus
 335
 336         d2 a |   % 42
 337         g4 fs8:m7 e:m7 d4 g |   % 43
 338         d2/a b:m7 |   % 44
 339         e2:9 a4:sus4.7 a:7 |   % 45
 340         d2/a a |   % 46
 341         g4 fs8:m7 e:m7 d4 g |   % 47
 342         d2/fs b:m7 |   % 48
 343         d2/g a \bar "||"   % 49
 344
 345         % Outro
 346
 347         d2:sus2 g:6.9 |   % 50
 348         a1:sus4 |   % 51
 349         d2:sus2/b g:6.9 |   % 52
 350         a1:sus4 |   % 53
 351         d2:sus2 g:6.9 |   % 54
 352         a1:sus4 |   % 55
 353         d2:sus2/fs g:6.9 |   % 56
 354         a1:sus4 |   % 57
 355         d1 |   % 58
 356 }
 357
 358
 359 %
 360 % Chord rhythms
 361 %
 362
 363 % Use a RhythmicStaff on the chords instead of this?
 364 % It almost works, but not quite. Doesn't collapse chords above to single notes...
 365
 366 StaffC = \relative c
 367 {
 368 %       \set Voice.autoBeaming = ##f
 369 %       \set Staff.instrumentName = #"Rhythm"
 370         \override Staff.TimeSignature #'style = #'()
 371         \time 4/4
 372         \override NoteHead #'style = #'slash
 373
 374         % Intro
 375
 376         c4 c c c |   % 1
 377         c4 c c c |   % 2
 378         c4 c c c |   % 3
 379         c4 c c c |   % 4
 380         c4 c c c |   % 5
 381         c4 c c c |   % 6
 382         c4 c c c |   % 7
 383         c1 |   % 8
 384
 385         \repeat volta 2
 386         {
 387                 % Verse
 388
 389                 c4 c c c |   % 9
 390                 c4 c c c |   % 10
 391                 c4 c c c |   % 11
 392                 c4 c c c |   % 12
 393                 c4 c c c |   % 13
 394                 c4 c c c |   % 14
 395                 c4 c c c |   % 15
 396                 c4 c c c-> \bar "||"   % 16
 397
 398                 % Chorus
 399
 400                 c4 c c c |   % 17
 401                 c4 c8 c c4 c |   % 18
 402                 c4 c c c |   % 19
 403                 c4 c c c |   % 20
 404                 c4 c c c |   % 21
 405                 c4 c8 c c4 c |   % 22
 406                 c4 c c c |   % 23
 407                 \time 2/4 c4 c \time 4/4 |   % 24
 408                 c4 c c c |   % 25
 409                 c4 c c c |   % 26
 410         }
 411         \alternative
 412         {
 413                 {
 414                         c4 c c c |   % 27
 415                         c4 c c c |   % 28
 416                 }
 417                 {
 418                         c4 c c c |   % 29
 419                 }
 420         }
 421
 422         c4 c c c |   % 30
 423         c4 c c c |   % 31
 424         c4 c c c |   % 32
 425         c4 c c c \bar "||"   % 33
 426
 427         % Verse
 428
 429         c4 c c c |   % 34
 430         c4 c c c |   % 35
 431         c4 c c c |   % 36
 432         c4 c c c |   % 37
 433         c4. c8 c4 c |   % 38
 434         c4 c c c |   % 39
 435         c4 c c c |   % 40
 436         c4 c c c-> \bar "||"   % 41
 437
 438         % Chorus
 439
 440         c4 c c c |   % 42
 441         c4 c8 c c4 c |   % 43
 442         c4 c c c |   % 44
 443         c4 c c c |   % 45
 444         c4 c c c |   % 46
 445         c4 c8 c c4 c |   % 47
 446         c4 c c c |   % 48
 447         c2 c \bar "||"   % 49
 448
 449         % Outro
 450
 451         c4 c c c |   % 50
 452         c4 c c c |   % 51
 453         c4 c c c |   % 52
 454         c4 c c c |   % 53
 455         c4 c c c |   % 54
 456         c4 c c c |   % 55
 457         c4 c c c |   % 56
 458         c4 c c c |   % 57
 459         c1^\fermata \bar "|."   % 58
 460 }
 461
 462
 463 Dynamics =
 464 {
 465 %{
 466         s4_\mf s2. |   % 1
 467         s1*22 |   % 2-23
 468         s4 s \> |   % 24
 469         s4 \! s2. |   % 25
 470         s1*2 |   % 26-27
 471         s4 \< s s \! s |   % 28
 472         s1*4 |   % 29-32
 473         s4 \< s s \! s |   % 33
 474         s1*23 |   % 34-56
 475         s2 s2_\markup { \italic { rit. } }  |   % 57
 476 %}
 477 }
 478
 479
 480 \score
 481 {
 482         <<
 483                 <<
 484 %                       \new Staff = leadStaff { \new Voice = "lead" \LeadVox }
 485                         \new Staff = leadStaff { << \new Voice = "lead" \LeadVox \new Voice = "riffs" \Riffs >> }
 486                         \new Lyrics \lyricsto "lead" \LeadVoxText
 487                 >>
 488
 489                 \new ChoirStaff = "Rhythm"
 490                 <<
 491                         \new ChordNames = "chords" \Chords
 492                         \new RhythmicStaff = "chordRhythm" << \StaffC \Dynamics >>
 493                 >>
 494
 495                 \set Score.skipBars = ##t
 496                 \set Score.melismaBusyProperties = #'()
 497         >>
 498 }
 499
 500
 501 \paper
 502 {
 503   #(define fonts (make-pango-font-tree
 504     "Times New Roman"
 505     "DomCasual BT"
 506     "Luxi Mono"
 507     (/ staffSize 20)))
 508
 509 % Spread staves vertically across last page (default: t)
 510 %       ragged-last-bottom = ##f
 511 % Don't spread staves vertically across the page (default: f)
 512 %       ragged-bottom = ##t
 513 % Allow partial line for last stave (default: f)
 514         ragged-last = ##t
 515
 516 % To find out what's eating the space at the top...
 517 %       annotate-spacing = ##t
 518 %let's try this: [It works! Huzzah!]
 519         obsolete-page-top-space = 0  top-system-spacing #'basic-distance = #(/ obsolete-page-top-space staff-space)
 520 }