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