Shamusworld >> Repos - music/blob - leaning-on-the-everlasting-arms.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 = #20
   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 "Leaning On The Everlasting Arms" }
  16 %       title    = \markup { \override #'(font-name . "DomCasual BT")
  17 %       composer = \markup { \override #'(font-family . sans) \fontsize #1.3 "" }
  18         arranger = \markup { \override #'(font-family . sans) \fontsize #1.3 "arr. Ed Smart" }
  19         tagline  = $(string-append "Engraved by JLH and Lilypond " (lilypond-version))
  20 }
  21
  22
  23 % Useful tweak abbreviations (hn = harmony note)
  24
  25 hn = #(define-music-function (parser location arg) (ly:music?)
  26 ;; Harmony Note: Set the tweaks property of the passed in note to use a smaller font
  27
  28   (set! (ly:music-property arg 'tweaks)
  29     (acons 'font-size -3.0 (ly:music-property arg 'tweaks))) arg)
  30
  31
  32 %
  33 % Lead vocal
  34 %
  35
  36 LeadVox = \relative c''
  37 {
  38 %       \set Voice.autoBeaming = ##f
  39 %       \set Staff.instrument = #"Lead vox"
  40         \clef G
  41         \key g \major
  42         \override Staff.TimeSignature #'style = #'()
  43         \time 4/4
  44 \override Score.SpacingSpanner #'average-spacing-wishes = ##f
  45
  46         % Intro
  47
  48         \repeat volta 2
  49         {
  50                 R1 |   % 1
  51                 R1 |   % 2
  52         }
  53
  54         \repeat volta 2
  55         {
  56                 R1 |   % 3
  57                 R1 |   % 4
  58         }
  59
  60         \repeat volta 2
  61         {
  62                 % Verse
  63
  64 \once \override Score.RehearsalMark #'self-alignment-X = #left
  65 \mark \markup { \override #'(font-family . sans) { \box { A } } \italic { 1st X unison } }
  66
  67                 <b \hn d,>4 <b \hn d,> <b \hn d,>8 <a \hn c,> <g \hn b,>4 |   % 5
  68                 <a \hn c,>4 <a \hn c,> <a \hn c,>8 <g \hn c,> <e \hn a,>4 |   % 6
  69                 <d \hn b>4 <d \hn b> <g \hn b,>8 <fs \hn a,> <g \hn b,> <a \hn c,> |   % 7
  70                 <b \hn d,>8. <b \hn d,>16 ~ <b \hn d,>8 <a \hn d,>8 ~ <a \hn d,>2 |   % 8
  71                 <b \hn d,>4 <b \hn d,> <b \hn d,>8 <a \hn c,> <g \hn b,>4 |   % 9
  72                 <a \hn c,>4 <a \hn c,> <a \hn c,>8 <g \hn c,> <e \hn a,>4 |   % 10
  73                 <d \hn b>4 <d \hn b> <g \hn c,>8 <fs \hn c> <g \hn c,> <a \hn c,> |   % 7
  74                 <b \hn d,>8. <a \hn d,>16 ~ <a \hn d,>8 <g \hn b,> r2 \bar "||"   % 12
  75
  76                 % Chorus
  77
  78 \mark \markup { \override #'(font-family . sans) { \box { B } } }
  79
  80                 <b \hn g \hn d>4. ~ <b \hn g \hn d>16 <g \hn d \hn b> ~ <g \hn d \hn b>2 |   % 13
  81                 <g \hn e \hn c>4. ~ <g \hn e \hn c>16 <e \hn c \hn a> ~ <e \hn c \hn a>2 |   % 14
  82                 <d \hn b>4 <g \hn b,>8 <fs \hn a,> <g \hn b,>4 <a \hn c,> |   % 15
  83                 <b \hn cs,>8. <b \hn cs,>16 ~ <b \hn cs,>8 <a \hn d,> ~ <a \hn d,>4 r |   % 16
  84                 <b \hn g \hn d>4. ~ <b \hn g \hn d>16 <g \hn d \hn b> ~ <g \hn d \hn b>2 |   % 17
  85                 <g \hn e \hn c>4. ~ <g \hn e \hn c>16 <e \hn c \hn a' \hn c> ~ <e \hn c \hn a' \hn c>2 |   % 18
  86                 <d \hn g \hn b>4 <d \hn g \hn b> <g \hn e \hn c>8 <fs \hn d \hn c> <g \hn e \hn c> <a \hn fs \hn c> |   % 19
  87                 \time 2/4 <b \hn g \hn d>8. <a \hn fs \hn d>16 ~ <a \hn fs \hn d>8 <g \hn g,> ~ \time 4/4 |   % 20
  88
  89                 <g \hn g,>4 r r2 |   % 21
  90                 R1 |   % 22
  91         }
  92         \alternative
  93         {
  94                 {
  95                         R1 |   % 23
  96                         R1 |   % 24
  97                 }
  98                 {
  99                         R1 |   % 25
 100                 }
 101         }
 102
 103         R1 |   % 26
 104
 105         \key a \major
 106
 107         \repeat volta 2
 108         {
 109                 R1 |   % 27
 110                 R1 |   % 28
 111         }
 112
 113         % Verse
 114
 115 \once \override Score.RehearsalMark #'self-alignment-X = #left
 116 \mark \markup { \override #'(font-family . sans) { \box { C } } \italic { bass & drums only } }
 117
 118         cs4 cs cs8 b a4 |   % 29
 119         b4 b b8 a fs4 |   % 30
 120         e4 e a8 gs a b |   % 31
 121         cs8. cs16 ~ cs8 b ~ b2 |   % 32
 122
 123 \once \override Score.RehearsalMark #'self-alignment-X = #left
 124 \mark \markup { \italic { full band } }
 125
 126         <cs \hn e,>4 <cs \hn e,> <cs \hn e,>8 <b \hn d,> <a \hn cs,>4 |   % 33
 127         <b \hn d,>4 <b \hn d,> <b \hn d,>8 <a \hn d,> <fs \hn b,>4 |   % 34
 128         <e \hn cs>4 <e \hn cs> <a \hn fs \hn d>8 <gs \hn e \hn d> <a \hn fs \hn d> <b \hn gs \hn d> |   % 35
 129         <cs \hn a \hn e>8. <b \hn gs \hn e>16 ~ <b \hn gs \hn e>8 <a \hn e \hn cs> r2 |   % 36
 130
 131         \repeat volta 2
 132         {
 133                 % Chorus
 134
 135 \mark \markup { \override #'(font-family . sans) { \box { D } } }
 136
 137                 <cs \hn a \hn e>4. ~ <cs \hn a \hn e>16 <a \hn e \hn cs> ~ <a \hn e \hn cs>2 |   % 37
 138                 <a \hn fs \hn d>4. ~ <a \hn fs \hn d>16 <fs \hn d \hn b> ~ <fs \hn d \hn b>2 |   % 38
 139                 <e \hn cs>4 <a \hn cs,>8 <gs \hn b,> <a \hn cs,>4 <b \hn d,> |   % 39
 140                 <cs \hn ds,>8. <cs \hn ds,>16 ~ <cs \hn ds,>8 <b \hn e,> ~ <b \hn e,>4 r |   % 40
 141                 <cs \hn a \hn e>4. ~ <cs \hn a \hn e>16 <a \hn e \hn cs> ~ <a \hn e \hn cs>2 |   % 41
 142                 <a \hn fs \hn d>4. ~ <a \hn fs \hn d>16 <fs \hn d \hn b' \hn d> ~ <fs \hn d \hn b' \hn d>2 |   % 42
 143                 <e \hn a \hn cs>4 <e \hn a \hn cs> <a \hn fs \hn d \hn d'>8 <gs \hn e \hn d \hn d'> <a \hn fs \hn d \hn d'> <b \hn gs \hn d \hn d'> |   % 43
 144                 <cs \hn a \hn e \hn e'>8. <b \hn gs \hn e \hn d'>16 ~<b \hn gs \hn e \hn d'>8 <a \hn e \hn cs \hn cs'> ~ <a \hn e \hn cs \hn cs'>4 r |   % 44
 145         }
 146
 147         <e \hn a \hn cs>4 <e \hn a \hn cs> <a \hn fs \hn d \hn d'>8 <gs \hn e \hn d \hn d'> <a \hn fs \hn d \hn d'> <b \hn gs \hn d \hn d'> |   % 45
 148         <cs \hn a \hn e \hn e'>8. <b \hn gs \hn e \hn d'>16 ~<b \hn gs \hn e \hn d'>8 <a \hn e \hn cs \hn cs'> ~ <a \hn e \hn cs \hn cs'>4 r |   % 46
 149         e4 e a8 gs a b |   % 47
 150         cs4 b a2^\fermata \bar "|."   % 48
 151 }
 152
 153 LeadVoxText = \lyricmode
 154 {
 155         What a fel -- low -- ship, what a joy di -- vine,
 156         lean -- ing on the e -- ver -- last -- ing _ arms; _
 157         What a bless -- ed -- ness, what a peace is mine,
 158         lean -- ing on the e -- ver -- last -- ing _ arms.
 159
 160         Lea -- _ ning, _ lea -- _ ning, _
 161         safe and se -- cure from all a -- _ larms, _
 162         Lea -- _ ning, _ lea -- _ ning, _
 163         lean -- ing on the e -- ver -- last -- ing _ arms. _
 164
 165         What have I to dread, what have I to fear,
 166         lean -- ing on the e -- ver -- last -- ing _ arms; _
 167         I have bless -- ed peace with my Lord so dear,
 168         lean -- ing on the e -- ver -- last -- ing _ arms.
 169
 170         Lea -- _ ning, _ lea -- _ ning, _
 171         safe and se -- cure from all a -- _ larms, _
 172         Lea -- _ ning, _ lea -- _ ning, _
 173         lean -- ing on the e -- ver -- last -- ing _ arms. _
 174
 175         Lean -- ing on the e -- ver -- last -- ing _ arms. _
 176         Lean -- ing on the e -- ver -- last -- ing arms.
 177 }
 178
 179 LeadVoxTextB = \lyricmode
 180 {
 181         Oh how sweet to walk in this pil -- grim way,
 182         lean -- ing on the e -- ver -- last -- ing _ arms; _
 183         Oh how bright the path grows from day to day,
 184         lean -- ing on the e -- ver -- last -- ing _ arms.
 185 }
 186
 187
 188 Riffs = \relative c'
 189 {
 190 %{
 191         \clef G
 192         \key ef \major
 193         \override Staff.TimeSignature #'style = #'()
 194         \time 4/4
 195
 196         % Intro
 197
 198         \tiny
 199         <ef g,>16 d bf f ~ f4 ~ f4. g16 bf |   % 1
 200         c1 |   % 2
 201         <ef' g,>16 d bf f ~ f4 ~ f4. g16 bf |   % 3
 202         c2 <ef, bf af> |   % 4
 203
 204         s1*9
 205         s2
 206
 207 \voiceOne
 208 \tieDown
 209         <ef g,>16 d bf f ~ f4 ~ f4. g16 bf |   % 14
 210 \tieNeutral
 211 \oneVoice
 212         c1 |   % 15
 213         <ef' g,>16 d bf f ~ f4 ~ f4. g16 bf |   % 16
 214         c2 <ef, bf af> |   % 17
 215
 216         <ef' g,>16 d bf f ~ f4 ~ f4. g16 bf |   % 18
 217         c2 r |   % 19
 218
 219         s1*10
 220
 221         \stemUp
 222         <f a,>16 e c g ~ g4 ~ g4. a16 c |   % 31
 223         \stemNeutral
 224         d2 r |   % 32
 225         <f a,>16 e c g ~ g4 ~ g4. a16 c |   % 33
 226         d2 r |   % 34
 227 %}
 228 }
 229
 230
 231 %
 232 % Chord names
 233 %
 234
 235 Chords = \chordmode
 236 {
 237 %Bah, can't we set this globally?
 238 %       \popChords
 239
 240         % Intro
 241
 242         \repeat volta 2
 243         {
 244                 s1 |   % 1
 245                 s1 |   % 2
 246         }
 247
 248         \repeat volta 2
 249         {
 250                 g1:7 |   % 3
 251                 g1:7 |   % 4
 252         }
 253
 254         \repeat volta 2
 255         {
 256                 % Verse
 257
 258                 g2 g/b |   % 5
 259                 c2:6 a:m7 |   % 6
 260                 g2 e:m7 |   % 7
 261                 g2/d d |   % 8
 262                 g2 g/b |   % 9
 263                 c2:6 a:m7 |   % 10
 264                 g2/b c |   % 11
 265                 g4/d d g2 \bar "||"   % 12
 266
 267                 % Chorus
 268
 269                 g2 g:7/b |   % 13
 270                 c2 a:m7 |   % 14
 271                 g2 e:m7 |   % 15
 272                 a2:7 d4:sus4 d |   % 16
 273                 g2 g:7/b |   % 17
 274                 c2 a:m7 |   % 18
 275                 g2/b c |   % 19
 276                 \time 2/4 g4/d d \time 4/4 |   % 20
 277
 278                 g1:7 |   % 21
 279                 g1:7 |   % 22
 280         }
 281         \alternative
 282         {
 283                 {
 284                         g1:7 |   % 23
 285                         g1:7 |   % 24
 286                 }
 287                 {
 288                         g1:7 |   % 25
 289                 }
 290         }
 291
 292         g1:7 |   % 26
 293
 294         \repeat volta 2
 295         {
 296                 a1:7 |   % 27
 297                 a1:7 |   % 28
 298         }
 299
 300         % Verse
 301
 302         a2 a/cs |   % 29
 303         d2:6 b:m7 |   % 30
 304         a2 fs:m7 |   % 31
 305         a2/e e |   % 32
 306         a2 a/cs |   % 33
 307         d2:6 b:m7 |   % 34
 308         a2/cs d |   % 35
 309         a4/e e a2 |   % 36
 310
 311         \repeat volta 2
 312         {
 313                 % Chorus
 314
 315                 a2 a:7/cs |   % 37
 316                 d2 b:m7 |   % 38
 317                 a2 fs:m7 |   % 39
 318                 b2:7 e4:sus4 e |   % 40
 319                 a2 a:7/cs |   % 41
 320                 d2 b:m7 |   % 42
 321                 a2/cs d |   % 43
 322                 a4/e e a2 |   % 44
 323         }
 324
 325         a2/cs d |   % 45
 326         a4/e e a2 |   % 46
 327         a2/cs d |   % 47
 328         a4/e e a2 |   % 48
 329 }
 330
 331
 332 %
 333 % Chord rhythms
 334 %
 335
 336 % Use a RhythmicStaff on the chords instead of this?
 337 % It almost works, but not quite. Doesn't collapse chords above to single notes...
 338
 339 StaffC = \relative c
 340 {
 341 %       \set Voice.autoBeaming = ##f
 342 %       \set Staff.instrument = #"Rhythm"
 343         \override Staff.TimeSignature #'style = #'()
 344         \time 4/4
 345         \override NoteHead #'style = #'slash
 346
 347         % Intro
 348
 349         \repeat volta 2
 350         {
 351                 R1 |   % 1
 352                 R1 |   % 2
 353         }
 354
 355         \repeat volta 2
 356         {
 357                 c4-> c-> r2 |   % 3
 358                 c8-> c-> r4 r2 |   % 4
 359         }
 360
 361         \repeat volta 2
 362         {
 363                 % Verse
 364
 365                 c4 c c c |   % 5
 366                 c4 c c c |   % 6
 367                 c4 c c c |   % 7
 368                 c4 c c c |   % 8
 369                 c4 c c c |   % 9
 370                 c4 c c c |   % 10
 371                 c4 c c c |   % 11
 372                 c4 c c-> r \bar "||"   % 12
 373
 374                 % Chorus
 375
 376                 c2 c4 c |   % 13
 377                 c2 c4 c |   % 14
 378                 c4 c c c |   % 15
 379                 c4 c c c |   % 16
 380                 c2 c4 c |   % 17
 381                 c2 c4 c |   % 18
 382                 c4 c c c |   % 19
 383                 \time 2/4 c4 c \time 4/4 |   % 20
 384
 385                 c4-> c-> r2 |   % 21
 386                 c8-> c-> r4 r2 |   % 22
 387         }
 388         \alternative
 389         {
 390                 {
 391                         c4-> c-> r2 |   % 23
 392                         c8-> c-> r4 r2 |   % 24
 393                 }
 394                 {
 395                         c4-> c-> r2 |   % 25
 396                 }
 397         }
 398
 399         c8-> c-> r4 r2 |   % 26
 400
 401         \repeat volta 2
 402         {
 403                 c4-> c-> r2 |   % 27
 404                 c8-> c-> r4 r2 |   % 28
 405         }
 406
 407         % Verse
 408
 409         c4 c c c |   % 29
 410         c4 c c c |   % 30
 411         c4 c c c |   % 31
 412         c4 c c c |   % 32
 413         c4 c c c |   % 33
 414         c4 c c c |   % 34
 415         c4 c c c |   % 35
 416         c4 c c c |   % 36
 417
 418         \repeat volta 2
 419         {
 420                 % Chorus
 421
 422                 c2 c4 c |   % 37
 423                 c2 c4 c |   % 38
 424                 c4 c c c |   % 39
 425                 c4 c c c |   % 40
 426                 c2 c4 c |   % 41
 427                 c2 c4 c |   % 42
 428                 c4 c c c |   % 43
 429                 c4 c c c |   % 44
 430         }
 431
 432         c4 c c c |   % 45
 433         c4 c c c |   % 46
 434         c2-> c-> |   % 47
 435         c4-> c-> c2^\fermata \bar "|."   % 48
 436 }
 437
 438
 439 Dynamics =
 440 {
 441         s4_\markup { \italic { bass & drums } } s2. |   % 1
 442         s1 |   % 2
 443         s4_\markup { \italic { full band } } s2. |   % 3
 444         s1 |   % 4
 445         s4_\markup { \italic { 1st X bass & drums only } } s2. |   % 5
 446         s1*7 |   % 6-12
 447         s4_\markup { \italic { full band } } s2. |   % 13
 448 %{
 449         s4_\markup { \italic { snare pat. } } s2 |   % 1
 450         s4_\markup { \italic { simile } } s2 |   % 2
 451         s2.*19
 452         s4_\markup { \italic { spacy } } s2 |   % 22
 453         s2.*5
 454         s4 s \< s \! |   % 28
 455         s2.*22
 456         s4_\markup { \italic { Last time } } s2 |   % 51
 457 %}
 458 }
 459
 460
 461 \score
 462 {
 463         <<
 464                 <<
 465                         \new Staff = leadStaff
 466                         {
 467                                 <<
 468                                 \new Voice = "lead" \LeadVox
 469                                 \new Voice = "riffs" \Riffs
 470                                 >>
 471                         }
 472                         \new Lyrics \lyricsto "lead" \LeadVoxText
 473                         \new Lyrics \lyricsto "lead" \LeadVoxTextB
 474                 >>
 475
 476                 \new ChoirStaff = "Rhythm"
 477                 <<
 478                         \new ChordNames = "chords" \Chords
 479                         \new RhythmicStaff = "chordRhythm" << \StaffC \Dynamics >>
 480                 >>
 481
 482                 \set Score.skipBars = ##t
 483                 \set Score.melismaBusyProperties = #'()
 484         >>
 485
 486         \layout
 487         {
 488 %               \context { \Staff \RemoveEmptyStaves }
 489 %               ragged-last-bottom = ##t
 490                 ragged-last = ##t
 491         }
 492 }
 493
 494
 495 \paper
 496 {
 497   #(define fonts (make-pango-font-tree
 498     "Times New Roman"
 499     "DomCasual BT"
 500     "Luxi Mono"
 501     (/ staffSize 20)))
 502 }