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