Shamusworld >> Repos - music/blob - blessed-assurance.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 %{ 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 "Blessed Assurance, Jesus Is Mine" }
  18         composer = \markup { \override #'(font-family . sans) \fontsize #1.3 "Fanny J. Crosby/Phoebe P. Knapp" }
  19         arranger = \markup { \override #'(font-family . sans) \fontsize #1.3 "arr. Ed Smart" }
  20         tagline  = $(string-append "Engraved by JLH and Lilypond " (lilypond-version))
  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.5 (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 c \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^\markup { Half-time soul feel } |   % 1
  51                 R1 |   % 2
  52         }
  53         \alternative
  54         {
  55                 {
  56                         R1 |   % 3
  57                         R1 |   % 4
  58                 }
  59                 {
  60                         R1 |   % 5
  61                 }
  62         }
  63
  64         r2 e8 d c4 |   % 6
  65
  66         \repeat volta 2
  67         {
  68                 % Verse
  69
  70 \mark \markup { \override #'(font-family . sans) { \box { A } } }
  71
  72                 g'4. g8 ~ g2 |   % 7
  73                 r2 f8 g a4 |   % 8
  74                 g1 |   % 9
  75                 r2 g8 e g4 |   % 10
  76                 c4. b8 ~ b2 |   % 11
  77                 r4 a a8 g fs g ~ |   % 12
  78                 g1 |   % 13
  79                 r2 e8 d c4 \bar "||"   % 14
  80
  81 \mark \markup { \override #'(font-family . sans) { \box { A9 } } }
  82
  83                 g'4. g8 ~ g2 |   % 15
  84                 r2 f8 g a4 |   % 16
  85                 g1 |   % 17
  86                 r2 c,8 d e4 |   % 18
  87                 f4. d8 ~ d2 |   % 19
  88                 r2 c8 d b4 |   % 20
  89                 c1 |   % 21
  90                 r2 <g' \hn d \hn c>8 <g \hn d \hn c> <g \hn d \hn c>4 \bar "||"   % 22
  91
  92                 % Chorus
  93
  94 \mark \markup { \override #'(font-family . sans) { \box { B } } }
  95
  96                 <c \hn g \hn e>4. <g \hn e \hn c>8 ~ <g \hn e \hn c>2 |   % 23
  97                 r2 <a \hn f \hn c>8 <g \hn e \hn c> <a \hn f \hn c>4 |   % 24
  98                 <g \hn e \hn c>2. r4 |   % 25
  99                 r2 <g \hn e \hn c>8 <g \hn e \hn c> <g \hn e \hn c>4 |   % 26
 100                 <a \hn e \hn c>4. <c \hn g \hn e>8 ~ <c \hn g \hn e>2 ~ |   % 27
 101                 <c \hn g \hn e>2 <b \hn fs \hn d>8 <b \hn fs \hn d> <a \hn fs \hn c> <b \hn g \hn d> ~ |   % 28
 102                 <b \hn g \hn d>2. r4 |   % 29
 103                 r2 <b \hn g \hn d>8 <c \hn g \hn e> <d \hn g, \hn f>4 |   % 30
 104
 105                 <c \hn g \hn e>4. <g \hn e \hn c>8 ~ <g \hn e \hn c>2 |   % 31
 106                 r2 <a \hn f \hn c>8 <g \hn e \hn c> <a \hn f \hn c>4 |   % 32
 107                 <g \hn d \hn b>1 |   % 33
 108                 r2 c,8 d e4 |   % 34
 109                 f4. d8 ~ d2 |   % 35
 110                 r2 c8 d b4 \bar "||"   % 36
 111
 112                 c1 |   % 37
 113                 R1 |   % 38
 114         }
 115         \alternative
 116         {
 117                 {
 118                         R1 |   % 39
 119                         r2 e8 d c4 |   % 40
 120                 }
 121                 {
 122                         R1 |   % 41
 123                 }
 124         }
 125
 126         r2 fs8 e d4 \bar "||"   % 42
 127
 128         \key d \major
 129
 130         % Verse
 131
 132 \mark \markup { \override #'(font-family . sans) { \box { C } } }
 133
 134         a'4. a8 ~ a2 |   % 43
 135         r2 g8 a b4 |   % 44
 136         a1 |   % 45
 137         r2 a8 fs a4 |   % 46
 138         d4. cs8 ~ cs2 |   % 47
 139         r4. b8 b a gs a ~ |   % 48
 140         a1 |   % 49
 141         r2 fs8 e d4 \bar "||"   % 50
 142
 143 \mark \markup { \override #'(font-family . sans) { \box { C9 } } }
 144
 145         a'4. a8 ~ a2 |   % 51
 146         r2 g8 a b4 |   % 52
 147         a1 |   % 53
 148         r2 d,8 e fs4 |   % 54
 149         g4. e8 ~ e2 |   % 55
 150         r2 d8 e cs4 |   % 56
 151         d1 |   % 57
 152         r2 <a' \hn e \hn d>8 <a \hn e \hn d> <a \hn e \hn d>4 |   % 58
 153
 154         % Chorus
 155
 156         \repeat volta 2
 157         {
 158 \mark \markup { \override #'(font-family . sans) { \box { D } } }
 159
 160                 <d \hn a \hn fs>4. <a \hn fs \hn d>8 ~ <a \hn fs \hn d>2 |   % 59
 161                 r2 <b \hn g \hn d>8 <a \hn fs \hn d> <b \hn g \hn d>4 |   % 60
 162                 <a \hn fs \hn d>2. r4 |   % 61
 163                 r2 <a \hn fs \hn d>8 <a \hn fs \hn d> <a \hn fs \hn d>4 |   % 62
 164                 <b \hn fs \hn d>4. <d \hn a \hn fs>8 ~ <d \hn a \hn fs>2 ~ |   % 63
 165                 <d \hn a \hn fs>2 <cs \hn gs \hn e>8 <cs \hn gs \hn e> <b \hn gs \hn d> <cs \hn a \hn e> ~ |   % 64
 166                 <cs \hn a \hn e>2. r4 |   % 65
 167
 168                 r2 <cs \hn a \hn e>8 <d \hn a \hn fs> <e \hn a, \hn g>4 |   % 66
 169                 <d \hn a \hn fs>4. <a \hn fs \hn d>8 ~ <a \hn fs \hn d>2 |   % 67
 170                 r2 <b \hn g \hn d>8 <a \hn fs \hn d> <b \hn g \hn d>4 |   % 68
 171                 <a \hn e \hn cs>1 |   % 69
 172                 r2 d,8 e fs4 |   % 70
 173         }
 174         \alternative
 175         {
 176                 {
 177                         g4. e8 ~ e2 |   % 71
 178                         r2 d8 e cs4 |   % 72
 179                         d1 |   % 73
 180                         r2 a'8 a a4 |   % 74
 181                 }
 182                 {
 183                         g4. e8 ~ e2 |   % 75
 184                 }
 185         }
 186
 187         r2 d8 e cs4 |   % 76
 188         d1 |   % 77
 189         r2 d8 e fs4 |   % 78
 190         g4. e8 ~ e2 |   % 79
 191         r2 d8 e cs4 |   % 80
 192
 193         % Outro
 194
 195         \repeat volta 2
 196         {
 197 \mark \markup { \override #'(font-family . sans) { \box { E } } }
 198
 199                 d1 |   % 81
 200                 R1 |   % 82
 201                 R1 |   % 83
 202                 R1 |   % 84
 203         }
 204
 205         r1^\fermata \bar "|."   % 85
 206 }
 207
 208 LeadVoxText = \lyricmode
 209 {
 210         Bless -- ed as -- sur -- ance, _ Je -- sus is mine!
 211         O what a fore -- taste _ of glo -- ry di -- vine; _
 212         Heir of sal -- va -- tion, _ pur -- chase of God,
 213         born of his spi -- rit, _ washed in his blood.
 214
 215         This is my sto -- ry, _ this is my song,
 216         prais -- ing my sa -- vior, __ _ _ all the day long; _
 217         This is my sto -- ry, _ this is my song,
 218         prais -- ing my sa -- vior, _ all the day long.
 219
 220         Per -- fect sub-
 221
 222         Per -- fect sub -- mis -- sion, _ all is at rest,
 223         I in my sav -- ior _ am hap -- py and blest; _
 224         Watch -- ing and wai -- ting, _ look -- ing a -- bove,
 225         filled with his good -- ness, _ lost in his love.
 226
 227         This is my sto -- ry, _ this is my song,
 228         prais -- ing my sa -- vior, __ _ _ all the day long; _
 229         This is my sto -- ry, _ this is my song,
 230         prais -- ing my sa -- vior, _ all the day long.
 231
 232         This is my
 233         sav -- ior, _ all the day long;
 234         prais -- ing my sa -- vior, _ all the day long.
 235 }
 236
 237 LeadVoxTextB = \lyricmode
 238 {
 239         _ _ _
 240         mis -- sion, _ per -- fect de -- light,
 241         vi -- sions of rap -- ture _ now burst on my sight; _
 242         An -- gels de -- scend -- ing _ bring from a -- bove
 243         e -- choes of mer -- cy. _ whis -- pers of love.
 244 }
 245
 246
 247 %
 248 % Chord names
 249 %
 250
 251 Chords = \chordmode
 252 {
 253 %Bah, can't we set this globally?
 254 %       \popChords
 255
 256         % Intro
 257
 258         \repeat volta 2
 259         {
 260                 c2..:maj7 bf8:sus4.7 |   % 1
 261                 s4. bf8:7 s2 |   % 2
 262         }
 263         \alternative
 264         {
 265                 {
 266                         c2..:maj7 bf8:sus4.7 |   % 3
 267                         s4. bf8:7 s2 |   % 4
 268                 }
 269                 {
 270                         c2..:maj7 f8:/g |   % 5
 271                 }
 272         }
 273
 274         s1 |   % 6
 275
 276         \repeat volta 2
 277         {
 278                 % Verse
 279
 280                 c2..:maj7 d8:m7 |   % 7
 281                 s1 |   % 8
 282                 c2../e c8 |   % 9
 283                 s1 |   % 10
 284                 a4.:m a2:m7+ d8:sus4.7 |   % 11
 285                 s2 d:7 |   % 12
 286                 f2../g g8 |   % 13
 287                 s1 |   % 14
 288
 289                 c2..:maj7 d8:m7 |   % 15
 290                 s1 |   % 16
 291                 e2..:m7 a8:m7 |   % 17
 292                 s1 |   % 18
 293                 d2..:m7 f8/g |   % 19
 294                 s1 |   % 20
 295                 c2.. f8/g |   % 21
 296                 s1 |   % 22
 297
 298                 % Chorus
 299
 300                 c2.. d8:m7 |   % 23
 301                 s1 |   % 24
 302                 c2..:sus2/e c8 |   % 25
 303                 s1 |   % 26
 304                 a2..:m7 d8:sus4.7 |   % 27
 305                 s2 d:7 |   % 28
 306                 g2.. f8/g |   % 29
 307                 s2 g |   % 30
 308
 309                 c2..:maj7 d8:m7 |   % 31
 310                 s1 |   % 32
 311                 e2..:m7 a8:7.9- |   % 33
 312                 s1 |   % 34
 313                 d2..:m7 f8/g |   % 35
 314                 s1 |   % 36
 315
 316                 c2..:maj7 bf8:sus4.7 |   % 37
 317                 s4. bf8:7 s2 |   % 38
 318         }
 319         \alternative
 320         {
 321                 {
 322                         c2..:maj7 f8/g |   % 39
 323                         s1 |   % 40
 324                 }
 325                 {
 326                         c2..:maj7 g8/a |   % 41
 327                 }
 328         }
 329
 330         s4. a8 s2 |   % 42
 331
 332         % Verse
 333
 334         d2..:maj7 e8:m7 |   % 43
 335         s1 |   % 44
 336         d1/fs |   % 45
 337         s1 |   % 46
 338         b2..:m7 e8:sus4 |   % 47
 339         s2 e |   % 48
 340         g2../a a8 |   % 49
 341         s1 |   % 50
 342
 343         d2..:maj7 e8:m7 |   % 51
 344         s1 |   % 52
 345         fs2..:m7 b8:m7 |   % 53
 346         s1 |   % 54
 347         e2..:m7 g8/a |   % 55
 348         s1 |   % 56
 349         d2.. g8/a |   % 57
 350         s1 |   % 58
 351
 352         % Chorus
 353
 354         \repeat volta 2
 355         {
 356                 d2.. e8:m7 |   % 59
 357                 s1 |   % 60
 358                 d2../fs d8 |   % 61
 359                 s1 |   % 62
 360                 b2..:m7 e8:sus4 |   % 63
 361                 s2 e:7 |   % 64
 362                 a2.. g8/a |   % 65
 363                 s2 a |   % 66
 364
 365                 d2.. e8:m7 |   % 67
 366                 s1 |   % 68
 367                 fs2..:m7 b8:7.9- |   % 69
 368                 s1 |   % 70
 369         }
 370         \alternative
 371         {
 372                 {
 373                         e2..:m7 g8/a |   % 71
 374                         s1 |   % 72
 375                         d2.. g8/a |   % 73
 376                         s1 |   % 74
 377                 }
 378                 {
 379                         e2..:m7 g8/a |   % 75
 380                 }
 381         }
 382
 383         s1 |   % 76
 384         c2..:sus4.7 c8:7 |   % 77
 385         s1 |   % 78
 386         e2..:m7 g8/a |   % 79
 387         s1 |   % 80
 388
 389         % Outro
 390
 391         \repeat volta 2
 392         {
 393                 d2..:maj7 c8:sus4.7 |   % 81
 394                 s4. c8:7 s2 |   % 82
 395                 d2..:maj7 c8:sus4.7 |   % 83
 396                 s4. c8:7 s2 |   % 84
 397         }
 398
 399         d1:maj7 |   % 85
 400 }
 401
 402
 403 %
 404 % Chord rhythms
 405 %
 406
 407 % Use a RhythmicStaff on the chords instead of this?
 408 % It almost works, but not quite. Doesn't collapse chords above to single notes...
 409
 410 StaffC = \relative c
 411 {
 412 %       \set Voice.autoBeaming = ##f
 413 %       \set Staff.instrument = #"Rhythm"
 414         \override Staff.TimeSignature #'style = #'()
 415         \time 4/4
 416         \override NoteHead #'style = #'slash
 417
 418         % Intro
 419
 420         \repeat volta 2
 421         {
 422                 c2 c4-> r8 c ~ |   % 1
 423                 c4. c8 ~ c2 |   % 2
 424         }
 425         \alternative
 426         {
 427                 {
 428                         c2 c4-> r8 c ~ |   % 3
 429                         c4. c8 ~ c2 |   % 4
 430                 }
 431                 {
 432                         c2 c4-> r8 c-> ~ |   % 5
 433                 }
 434         }
 435
 436         c4 c c c |   % 6
 437
 438         \repeat volta 2
 439         {
 440                 % Verse
 441
 442                 c4 c c r8 c ~ |   % 7
 443                 c2 c4 c |   % 8
 444                 c4 c c r8 c ~ |   % 9
 445                 c2 c4 c |   % 10
 446                 c4. c8 ~ c4. c8 ~ |   % 11
 447                 c2 c4 c |   % 12
 448                 c4 c c r8 c ~ |   % 13
 449                 c2 c4 c \bar "||"   % 14
 450
 451                 c4 c c r8 c ~ |   % 15
 452                 c2 c4 c |   % 16
 453                 c4 c c r8 c ~ |   % 17
 454                 c2 c4 c |   % 18
 455                 c4 c c r8 c ~ |   % 19
 456                 c2 c4 c |   % 20
 457                 c4 c c r8 c-> ~ |   % 21
 458                 c4 c c c \bar "||"   % 22
 459
 460                 % Chorus
 461
 462                 c4 c c r8 c ~ |   % 23
 463                 c2 c4 c |   % 24
 464                 c4 c c r8 c-> ~ |   % 25
 465                 c2 c4 c |   % 26
 466                 c4. c8 ~ c4. c8 ~ |   % 27
 467                 c2 c4 c |   % 28
 468                 c4 c c r8 c ~ |   % 29
 469                 c2 c4 c |   % 30
 470
 471                 c4 c c r8 c ~ |   % 31
 472                 c2 c4 c |   % 32
 473                 c4 c c r8 c ~ |   % 33
 474                 c2 c4 c |   % 34
 475                 c4 c c r8 c-> ~ |   % 35
 476                 c1 \bar "||"   % 36
 477
 478                 c2 c4-> r8 c ~ |   % 37
 479                 c4. c8 ~ c2 |   % 38
 480         }
 481         \alternative
 482         {
 483                 {
 484                         c2 c4-> r8 c ~ |   % 39
 485                         c1 |   % 40
 486                 }
 487                 {
 488                         c2 c4-> r8 c ~ |   % 41
 489                 }
 490         }
 491
 492         c4. c8 ~ c4 c \bar "||"   % 42
 493
 494         % Verse
 495
 496         c2. ~ c8 c8 ~ |   % 43
 497         c1 |   % 44
 498         c1 ~ |   % 45
 499         c1 |   % 46
 500         c2. r8 c ~ |   % 47
 501         c2 c |   % 48
 502         c2. ~ c8 c-> ~ |   % 49
 503         c2 c4 c \bar "||"   % 50
 504
 505         c4 c c r8 c ~ |   % 51
 506         c2 c4 c |   % 52
 507         c4 c c r8 c ~ |   % 53
 508         c2 c4 c |   % 54
 509         c4 c c r8 c ~ |   % 55
 510         c2 c4 c |   % 56
 511         c4 c c r8 c-> ~ |   % 57
 512         c8 c c c c c c c |   % 58
 513
 514         % Chorus
 515
 516         \repeat volta 2
 517         {
 518                 c4 c c r8 c ~ |   % 59
 519                 c2 c4 c |   % 60
 520                 c4 c c r8 c ~ |   % 61
 521                 c2 c4 c |   % 62
 522                 c4 c c r8 c ~ |   % 63
 523                 c2 c4 c |   % 64
 524                 c4 c c r8 c ~ |   % 65
 525
 526                 c2 c4 c |   % 66
 527                 c4 c c r8 c ~ |   % 67
 528                 c2 c4 c |   % 68
 529                 c4 c c r8 c ~ |   % 69
 530                 c2 c4 c |   % 70
 531         }
 532         \alternative
 533         {
 534                 {
 535                         c4 c c r8 c ~ |   % 71
 536                         c2 c4 c |   % 72
 537                         c4 c c r8 c-> ~ |   % 73
 538                         c8 c c c c c c c |   % 74
 539                 }
 540                 {
 541                         c4 c c r8 c ~ |   % 75
 542                 }
 543         }
 544
 545         c4 c c c |   % 76
 546         c4 c c r8 c ~ |   % 77
 547         c4 c c c |   % 78
 548         c4 c c r8 c ~ |   % 79
 549         c1 |   % 80
 550
 551         % Outro
 552
 553         \repeat volta 2
 554         {
 555                 c2 c4-> r8 c ~ |   % 81
 556                 c4. c8 ~ c2 |   % 82
 557                 c2 c4-> r8 c ~ |   % 83
 558                 c4. c8 ~ c2 |   % 84
 559         }
 560
 561         c1^\fermata \bar "|."   % 85
 562 }
 563
 564
 565 Dynamics =
 566 {
 567         s4_\mf s2. |   % 1
 568         s1*4 |   % 2-5
 569         s2 s4_\markup { \italic { drum fill } } s |   % 6
 570         s1*15 |   % 7-21
 571         s4 s \< s s \! |   % 22
 572         s1*17 |   % 23-39
 573         s2 s_\markup { \italic { drum fill } } |   % 40
 574         s1 |   % 41
 575         s2 s4 \< s |   % 42
 576         s8 \f s s4_\markup { \hspace #0.0 \raise #-2.0 \italic { floating } } s2 |   % 43
 577         s1*6 |   % 44-49
 578         s2 s4 \< s \! |   % 50
 579         s4_\markup { \italic { orig. groove } } s2. |   % 51
 580         s1*6 |   % 52-57
 581         s2 s8 \< s4 s8 \! |   % 58
 582         s4_\markup { \italic { snare 2&4 } } s2. |   % 59
 583         s1*14 |   % 60-73
 584         s2 s8 \< s4 s8 \! |   % 74
 585         s1*5 |   % 75-79
 586         s2 s4 \> s \! |   % 80
 587         s4_\markup { \hspace #0.0 \raise #-2.0 \italic { orig. half-time groove } } s2. |   % 81
 588         s1*2 |   % 82-83
 589         s2 s4_\markup { \hspace #0.0 \raise #-2.0 \italic { last X rit. } } s |   % 84
 590
 591 %{
 592         s4_\mf s2. |   % 1
 593         s1*22 |   % 2-23
 594         s4 s \> |   % 24
 595         s4 \! s2. |   % 25
 596         s1*2 |   % 26-27
 597         s4 \< s s \! s |   % 28
 598         s1*4 |   % 29-32
 599         s4 \< s s \! s |   % 33
 600         s1*23 |   % 34-56
 601         s2 s2_\markup { \italic { rit. } }  |   % 57
 602 %}
 603 }
 604
 605
 606 \score
 607 {
 608         <<
 609                 <<
 610                         \new Staff = leadStaff { << \new Voice = "lead" \LeadVox >> }
 611                         \new Lyrics \lyricsto "lead" \LeadVoxText
 612                         \new Lyrics \lyricsto "lead" \LeadVoxTextB
 613                 >>
 614
 615                 \new ChoirStaff = "Rhythm"
 616                 <<
 617                         \new ChordNames = "chords" \Chords
 618                         \new RhythmicStaff = "chordRhythm" << \StaffC \Dynamics >>
 619                 >>
 620
 621                 \set Score.skipBars = ##t
 622                 \set Score.melismaBusyProperties = #'()
 623         >>
 624 }
 625
 626
 627 \paper
 628 {
 629   #(define fonts (make-pango-font-tree
 630     "Times New Roman"
 631     "DomCasual BT"
 632     "Luxi Mono"
 633     (/ staffSize 20)))
 634
 635 % Spread staves vertically across last page (default: t)
 636 %       ragged-last-bottom = ##f
 637 % Don't spread staves vertically across the page (default: f)
 638 %       ragged-bottom = ##t
 639 % Allow partial line for last stave (default: f)
 640         ragged-last = ##t
 641
 642 % To find out what's eating the space at the top...
 643 %       annotate-spacing = ##t
 644 %let's try this: [It works! Huzzah!]
 645         obsolete-page-top-space = 0  top-system-spacing #'basic-distance = #(/ obsolete-page-top-space staff-space)
 646 }