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