Shamusworld >> Repos - music/blob - wonderful-merciful-savior.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 "Wonderful, Merciful Savior" }
  18         composer = \markup { \override #'(font-family . sans) \fontsize #1.3 "Dawn Rodgers/Eric Wyse" }
  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.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 c \major
  42         \override Staff.TimeSignature #'style = #'()
  43         \time 3/4
  44 \override Score.SpacingSpanner #'average-spacing-wishes = ##f
  45
  46         % Intro
  47
  48         s2. |   % 1
  49         s2. |   % 2
  50         s2. |   % 3
  51         s2. |   % 4
  52         s2. |   % 5
  53         s2. |   % 6
  54         s2. |   % 7
  55         s2. \bar "||:"   % 8
  56 %\break % bleah
  57
  58         \repeat volta 2
  59         {
  60                 % Verse
  61
  62 \once \override Score.RehearsalMark #'self-alignment-X = #left
  63 \mark \markup { \override #'(font-family . sans) { \box { A } } \italic \smaller { 1st X piano only, unison } }
  64                 <e \hn c>4. <e \hn c>8 <e \hn c>4 |   % 9
  65                 <f \hn d>4. <e \hn c>8 <d \hn b>4 |   % 10
  66                 <e \hn c>2. |   % 11
  67                 <c \hn g>2. |   % 12
  68                 <g' \hn e \hn b>4 <g \hn e \hn b> <g \hn e \hn b> |   % 13
  69                 <a \hn f \hn c>4 <g \hn e \hn c> <f \hn d \hn a>8 ( <g \hn c,> ) |   % 14
  70                 <g \hn d \hn c>2. ~ |   % 15
  71                 <g \hn d \hn b>2. |   % 16
  72                 <c \hn a \hn e>4 <c \hn a \hn e> <c \hn a \hn e>8 <c \hn a \hn e> ~ |   % 17
  73                 <c \hn a \hn e>4 <b \hn g \hn d> <a \hn e \hn b> |   % 18
  74                 <a \hn f \hn c>2. |   % 19
  75                 <c, \hn a>2 r4 |   % 20
  76                 <e \hn c>4 <f \hn d> <g \hn d> |   % 21
  77                 <b, \hn g>2 <c \hn a>4 |   % 22
  78                 <c \hn a>2. |   % 23
  79                 << { \voiceOne a'4 ( b ) c } \context Voice = "v2" { \voiceTwo <\hn f, \hn c>2 <\hn f \hn a,>4 } \oneVoice >> |   % 24
  80                 <g \hn e \hn c>4 <f \hn d \hn c> <e \hn c \hn g> |   % 25
  81                 <e \hn b \hn g>2 <d \hn b>4 |   % 26
  82         }
  83         \alternative
  84         {
  85                 {
  86                         c2. |   % 27
  87                         s2. |   % 28
  88                         s2. |   % 29
  89                         s2. |   % 30
  90                 }
  91                 {
  92 \set Score.repeatCommands = #'((volta "2.–3.") end-repeat) % That's an ndash in there...
  93                         c2. |   % 31
  94 \set Score.repeatCommands = #'((volta #f))
  95                 }
  96         }
  97
  98         r2. \bar "||"   % 32
  99
 100         % Chorus
 101
 102 \mark \markup { \override #'(font-family . sans) { \box { B } } }
 103         <c' \hn a \hn e>4 <c \hn a \hn e> <c \hn a \hn e>8 <c \hn a \hn e> ~ |   % 33
 104         <c \hn a \hn e>4 <b \hn g \hn d> <a \hn e \hn c> |   % 34
 105         <a \hn f \hn c>2. ( |   % 35
 106         <b \hn g \hn d>2. )|   % 36
 107         <c \hn a \hn e>4 <c \hn a \hn e> <c \hn a \hn e>8 <c \hn a \hn e> ~ |   % 37
 108         <c \hn a \hn e>4 <b \hn g \hn d> <a \hn e \hn c> |   % 38
 109         << { \voiceOne <a \hn f>2 ^( ~ <a \hn f>8 <b \hn g>16 <a \hn f> } \context Voice = "v2" { \voiceTwo <\hn c,>2. ( } \oneVoice >> |   % 39
 110         << { \voiceOne <g' \hn e>2. ^) } \context Voice = "v2" { \voiceTwo <\hn b,>2. ) } \oneVoice >> |   % 40
 111         <c' \hn a \hn e>4 <c \hn a \hn e> <c \hn a \hn e>8 <c \hn a \hn e> ~ |   % 41
 112         <c \hn a \hn e>4 <b \hn g \hn d> <a \hn e \hn c> |   % 42
 113         <a \hn f \hn c>2. |   % 43
 114         <c, \hn a>2. |   % 44
 115         <e \hn c>4 <f \hn d> <g \hn e> |   % 45
 116         <b, \hn g>4 <b \hn g>2 |   % 46
 117         <c \hn a>2. |   % 47
 118         << { \voiceOne a'4 ( b ) c } \context Voice = "v2" { \voiceTwo <\hn f, \hn c>2 <\hn f \hn a,>4 } \oneVoice >> |   % 48
 119         <g \hn e \hn c>4 <f \hn d> <e \hn c> |   % 49
 120         <e \hn b>4 <d \hn b>2 |   % 50
 121 \once \override Score.RehearsalMark #'self-alignment-X = #left
 122 \mark \markup { \musicglyph #"scripts.coda" \italic { to Coda } }
 123         c2. |   % 51
 124         s2. |   % 52
 125         s2. |   % 53
 126         s2. \bar ":|"   % 54
 127
 128 %\stopStaff s1 \bar "" \startStaff   % That removed the spurious floating bar line from line break
 129 %\break % Meh
 130 \stopStaff s2. \startStaff
 131 \set Score.currentBarNumber = #55
 132
 133 \once \override Score.RehearsalMark #'self-alignment-X = #left
 134 \mark \markup { { \musicglyph #"scripts.coda" } "Coda" }
 135         % Coda
 136
 137         c2. ~ |   % 55
 138         c2. \bar "||"   % 56
 139
 140 \mark \markup { \override #'(font-family . sans) { \box { C } } }
 141         <c' \hn a \hn e>4 <c \hn a \hn e> <c \hn a \hn e>8 <c \hn a \hn e> ~ |   % 57
 142         <c \hn a \hn e>4 <b \hn g \hn d> <a \hn e \hn c> |   % 58
 143         <a \hn f \hn c>2. ( |   % 59
 144         <b \hn g \hn d>2. )|   % 60
 145         <c \hn a \hn e>4 <c \hn a \hn e> <c \hn a \hn e>8 <c \hn a \hn e> ~ |   % 61
 146         <c \hn a \hn e>4 <b \hn g \hn d> <a \hn e \hn c> |   % 62
 147         << { \voiceOne <a \hn f>2 ^( ~ <a \hn f>8 <b \hn g>16 <a \hn f> } \context Voice = "v2" { \voiceTwo <\hn c,>2. ( } \oneVoice >> |   % 63
 148         << { \voiceOne <g' \hn e>2. ^) } \context Voice = "v2" { \voiceTwo <\hn b,>2. ) } \oneVoice >> |   % 64
 149         <c' \hn a \hn e>4 <c \hn a \hn e> <c \hn a \hn e>8 <c \hn a \hn e> ~ |   % 65
 150         <c \hn a \hn e>4 <b \hn g \hn d> <a \hn e \hn c> |   % 66
 151         <a \hn f \hn c>2. |   % 67
 152         <c, \hn a>2. |   % 68
 153         <e \hn c>4 <f \hn d> <g \hn e> |   % 69
 154         <b, \hn g>4 <b \hn g>2 |   % 70
 155         <c \hn a>2. |   % 71
 156         << { \voiceOne a'4 ( b ) c } \context Voice = "v2" { \voiceTwo <\hn f, \hn c>2 <\hn f \hn a,>4 } \oneVoice >> |   % 72
 157         <g \hn e \hn c>4 <f \hn d \hn c> <e \hn c \hn g> |   % 73
 158         <e \hn b \hn g>2 <d \hn b \hn g>4 |   % 74
 159         <c \hn a>2. |   % 75
 160
 161         << { \voiceOne a'4 ( b ) c } \context Voice = "v2" { \voiceTwo <\hn f, \hn c>2 <\hn f \hn a,>4 } \oneVoice >> |   % 76
 162         <g \hn e \hn c>4 <f \hn d> <e \hn c> |   % 77
 163         <e \hn b>2 <d \hn b>4 |   % 78
 164         c2. |   % 79
 165         s2. |   % 80
 166         s2. |   % 81
 167         s2. |   % 82
 168         s2. \bar "|."   % 83
 169 }
 170
 171 LeadVoxText = \lyricmode
 172 {
 173         Won -- der -- ful, mer -- ci -- ful sav -- ior,
 174         pre -- cious re -- dee -- mer  and _ friend; _
 175         Who would have thought _ that a lamb could
 176         res -- cue the souls of men?
 177         Oh, _ you res -- cue the souls of men.
 178
 179         _
 180
 181         You are the one _ that we praise, _
 182         you are the one _ we a -- dore; __ _ _ _ _
 183         You give the heal -- _ ing and grace our
 184         hearts al -- ways hun -- ger for,
 185         Oh, _ our hearts al -- ways hun -- ger for.
 186
 187         for. _
 188
 189         You are the one _ that we praise, _
 190         you are the one _ we a -- dore; __ _ _ _ _
 191         You give the heal -- _ ing and grace our
 192         hearts al -- ways hun -- ger for,
 193         Oh, _ our hearts al -- ways hun -- ger for.
 194         Oh, _ our hearts al -- ways hun -- ger for. _
 195 }
 196
 197 LeadVoxTextB = \lyricmode
 198 {
 199         Coun -- se -- lor, com -- for -- ter, kee -- per,
 200         spi -- rit we long to em -- _ brace; _
 201         You of -- fer hope _ when our hearts have
 202         hope -- less -- ly lost our way,
 203         Oh, _ we’ve hope -- less -- ly lost our _
 204
 205         way.
 206 }
 207
 208 LeadVoxTextC = \lyricmode
 209 {
 210         Al -- might -- y in -- fi -- nite  Fa -- ther,
 211         faith -- ful -- ly lov -- ing your _ own; _
 212         Here in our weak -- _ ness you find us,
 213         fall -- ing be -- fore your throne,
 214         Oh, _ we’re fall -- ing be -- fore your _
 215
 216         throne.
 217 }
 218
 219
 220 Riffs = \relative c''
 221 {
 222         \clef G
 223         \key c \major
 224         \override Staff.TimeSignature #'style = #'()
 225         \time 3/4
 226 \override Score.SpacingSpanner #'average-spacing-wishes = ##f
 227
 228         % Intro
 229
 230         \tiny
 231         << { \tiny r8 g' c g' c c, } \\ { \tiny c,2. ~ } >> |   % 1
 232         << { \tiny f'8 g c2 } \\ { \tiny c,,2. } >> |   % 2
 233         << { \tiny r8 g c g' c c, } \\ { \tiny c,2. ~ } >> |   % 3
 234         << { \tiny f'8 g c2 } \\ { \tiny c,,2. } >> |   % 4
 235         << { \tiny r8 g c g' c c, } \\ { \tiny c,2. ~ } >> |   % 5
 236         << { \tiny f'8 g c2 } \\ { \tiny c,,2. } >> |   % 6
 237         << { \tiny r8 g' c g' c c, } \\ { \tiny c,2. ~ } >> |   % 7
 238         << { \tiny f'8 g c2 } \\ { \tiny c,,2. } >> |   % 8
 239
 240         s2.*18
 241
 242         << { \tiny r8 g' c g' c c, } \\ { \tiny c,2. ~ } >> |   % 27
 243         << { \tiny f'8 g c2 } \\ { \tiny c,,2. } >> |   % 28
 244         << { \tiny r8 g' c g' c c, } \\ { \tiny c,2. ~ } >> |   % 29
 245         << { \tiny f'8 g c2 } \\ { \tiny c,,2. } >> |   % 30
 246
 247         s2.*20
 248
 249         << { \tiny r8 g' c g' c c, } \\ { \tiny c,2. ~ } >> |   % 51
 250         << { \tiny f'8 g c2 } \\ { \tiny c,,2. } >> |   % 52
 251         << { \tiny r8 g' c g' c c, } \\ { \tiny c,2. ~ } >> |   % 53
 252         << { \tiny f'8 g c2 } \\ { \tiny c,,2. } >> |   % 54
 253
 254         s2.*25
 255
 256         << { \tiny r8 g' c g' c c, } \\ { \tiny c,2. ~ } >> |   % 79
 257         << { \tiny f'8 g c2 } \\ { \tiny c,,2. } >> |   % 80
 258         << { \tiny r8 g' c g' c c, } \\ { \tiny c,2. ~ } >> |   % 81
 259         << { \tiny f'8 g c2 } \\ { \tiny c,,2. } >> |   % 82
 260 %       << { \tiny r8 g' c g' c c, } \\ { s2. } >> |   % 79
 261 %       << { \tiny f8 g c2 } \\ { s2. } >> |   % 80
 262 %       << { \tiny r8 g, c g' c c, } \\ { \tiny c,2. ~ } >> |   % 81
 263 %       << { \tiny f'8 g c2 } \\ { \tiny c,,2. } >> |   % 82
 264         \arpeggioArrowUp <c g' c e g c>-\arpeggio-\fermata |   % 83
 265         \normalsize
 266 }
 267
 268
 269 %
 270 % Chord names
 271 %
 272
 273 Chords = \chordmode
 274 {
 275 %Bah, can't we set this globally?
 276 %       \popChords
 277
 278         % Intro
 279
 280         s2. |   % 1
 281         s2. |   % 2
 282         s2. |   % 3
 283         s2. |   % 4
 284         c2. |   % 5
 285         d2.:m/c |   % 6
 286         c2. |   % 7
 287         d2.:m/c \bar "||:"   % 8
 288
 289         \repeat volta 2
 290         {
 291                 % Verse
 292
 293                 c2. |   % 9
 294                 d2.:m/c |   % 10
 295                 c2. |   % 11
 296                 s2. |   % 12
 297                 e2.:m |   % 13
 298                 f2. |   % 14
 299                 g2.:sus4 |   % 15
 300                 g2. |   % 16
 301                 a2.:m |   % 17
 302                 s2. |   % 18
 303                 f2. |   % 19
 304                 s2. |   % 20
 305                 c2. |   % 21
 306                 g2. |   % 22
 307                 a2.:m |   % 23
 308                 f2. |   % 24
 309                 c2./g |   % 25
 310                 g2.:6 |   % 26
 311         }
 312         \alternative
 313         {
 314                 {
 315                         c2. |   % 27
 316                         d2.:m/c |   % 28
 317                         c2. |   % 29
 318                         d2.:m/c |   % 30
 319                 }
 320                 {
 321                         c2. |   % 31
 322                 }
 323         }
 324
 325         c2./b \bar "||"   % 32
 326
 327         % Chorus
 328
 329         a2.:m |   % 33
 330         c2./g |   % 34
 331         f2. |   % 35
 332         g2. |   % 36
 333         a2.:m |   % 37
 334         c2./g |   % 38
 335         f2. |   % 39
 336         g2.:6 |   % 40
 337         a2.:m |   % 41
 338         c2./g |   % 42
 339         f2. |   % 43
 340         s2. |   % 44
 341         c2. |   % 45
 342         g2. |   % 46
 343         a2.:m |   % 47
 344         f2. |   % 48
 345         c2./g |   % 49
 346         g2.:6 |   % 50
 347         c2. |   % 51
 348         d2.:m/c |   % 52
 349         c2. |   % 53
 350         d2.:m/c |   % 54
 351
 352 s2.
 353         % Coda
 354
 355         c2. |   % 55
 356         c2./b |   % 56
 357
 358         a4:m s2 |   % 57
 359         s2. |   % 58
 360         f2. |   % 59
 361         g2. |   % 60
 362         a4:m s2 |   % 61
 363         s2. |   % 62
 364         f2. |   % 63
 365         g2.:6 |   % 64
 366         a2.:m |   % 65
 367         c2./g |   % 66
 368         f2. |   % 67
 369         s2. |   % 68
 370         c2. |   % 69
 371         g2. |   % 70
 372         a2.:m |   % 71
 373         f2. |   % 72
 374         c2./g |   % 73
 375         g2.:6 |   % 74
 376         a2.:m |   % 75
 377         f2. |   % 76
 378         c2./g |   % 77
 379         g2.:6 |   % 78
 380         c2. |   % 79
 381         d2.:m/c |   % 80
 382         c2. |   % 81
 383         d2.:m/c |   % 82
 384         c2. |   % 83
 385 }
 386
 387
 388 %
 389 % Chord rhythms
 390 %
 391
 392 % Use a RhythmicStaff on the chords instead of this?
 393 % It almost works, but not quite. Doesn't collapse chords above to single notes...
 394
 395 StaffC = \relative c
 396 {
 397 %       \set Voice.autoBeaming = ##f
 398 %       \set Staff.instrument = #"Rhythm"
 399         \override Staff.TimeSignature #'style = #'()
 400         \time 3/4
 401         \override NoteHead #'style = #'slash
 402
 403         % Intro
 404
 405         r2. |   % 1
 406         r2. |   % 2
 407         r2. |   % 3
 408         r2. |   % 4
 409         c4 c c |   % 5
 410         c4 c c |   % 6
 411         c4 c c |   % 7
 412         c4 c c \bar "||:"   % 8
 413
 414         \repeat volta 2
 415         {
 416                 % Verse
 417
 418                 c4 c c |   % 9
 419                 c4 c c |   % 10
 420                 c4 c c |   % 11
 421                 c4 c c |   % 12
 422                 c4 c c |   % 13
 423                 c4 c c |   % 14
 424                 c4 c c |   % 15
 425                 c4 c c |   % 16
 426                 c4 c c |   % 17
 427                 c4 c c |   % 18
 428                 c4 c c |   % 19
 429                 c4 c c |   % 20
 430                 c4 c c |   % 21
 431                 c4 c c |   % 22
 432                 c4 c c |   % 23
 433                 c4 c c |   % 24
 434                 c4 c c |   % 25
 435                 c4 c c |   % 26
 436         }
 437         \alternative
 438         {
 439                 {
 440                         c4 c c |   % 27
 441                         c4 c c |   % 28
 442                         c4 c c |   % 29
 443                         c4 c c |   % 30
 444                 }
 445                 {
 446                         c4 c c |   % 31
 447                 }
 448         }
 449
 450         c4 c c \bar "||"   % 32
 451
 452         % Chorus
 453
 454         c4 c c |   % 33
 455         c4 c c |   % 34
 456         c4 c c |   % 35
 457         c4 c c |   % 36
 458         c4 c c |   % 37
 459         c4 c c |   % 38
 460         c4 c c |   % 39
 461         c4 c c |   % 40
 462         c4 c c |   % 41
 463         c4 c c |   % 42
 464         c4 c c |   % 43
 465         c4 c c |   % 44
 466         c4 c c |   % 45
 467         c4 c c |   % 46
 468         c4 c c |   % 47
 469         c4 c c |   % 48
 470         c4 c c |   % 49
 471         c4 c c |   % 50
 472         c4 c c |   % 51
 473         c4 c c |   % 52
 474         c4 c c |   % 53
 475         c4 c c \bar ":|"   % 54
 476
 477 %\stopStaff s1 \bar "" \startStaff   % That removed the spurious floating bar line from line break
 478 \stopStaff s2. \startStaff
 479 \set Score.currentBarNumber = #55
 480
 481 %\once \override Score.RehearsalMark #'self-alignment-X = #left
 482 %\mark \markup { { \musicglyph #"scripts.coda" } "Coda" }
 483
 484         % Coda
 485
 486         c4 c c |   % 55
 487         c4 c c \bar "||"   % 56
 488
 489         c4-> r2 |   % 57
 490         r2. |   % 58
 491         c2. |   % 59
 492         c2. |   % 60
 493         c4-> r2 |   % 61
 494         r2. |   % 62
 495         c2. |   % 63
 496         c2. |   % 64
 497         c4 c c |   % 65
 498         c4 c c |   % 66
 499         c4 c c |   % 67
 500         c4 c c |   % 68
 501         c4 c c |   % 69
 502         c4 c c |   % 70
 503         c4 c c |   % 71
 504         c4 c c |   % 72
 505         c4 c c |   % 73
 506         c4 c c |   % 74
 507         c4 c c |   % 75
 508         c4 c c |   % 76
 509         c4 c c |   % 77
 510         c4 c c |   % 78
 511         c4 c c |   % 79
 512         c4 c c |   % 80
 513         c4 c c |   % 81
 514         c4 c c |   % 82
 515         c2.-\fermata \bar "|."   % 83
 516 }
 517
 518
 519 Dynamics =
 520 {
 521 %{
 522         s4_\markup { \italic { snare pat. } } s2 |   % 1
 523         s4_\markup { \italic { simile } } s2 |   % 2
 524         s2.*19
 525         s4_\markup { \italic { spacy } } s2 |   % 22
 526         s2.*5
 527         s4 s \< s \! |   % 28
 528         s2.*22
 529         s4_\markup { \italic { Last time } } s2 |   % 51
 530 %}
 531 }
 532
 533
 534 \score
 535 {
 536         <<
 537                 <<
 538 %                       \new Staff = leadStaff { \new Voice = "lead" \LeadVox }
 539                         \new Staff = leadStaff { << \new Voice = "lead" \LeadVox \new Voice = "riffs" \Riffs >> }
 540                         \new Lyrics \lyricsto "lead" \LeadVoxText
 541                         \new Lyrics \lyricsto "lead" \LeadVoxTextB
 542                         \new Lyrics \lyricsto "lead" \LeadVoxTextC
 543                 >>
 544
 545                 \new ChoirStaff = "Rhythm"
 546                 <<
 547                         \new ChordNames = "chords" \Chords
 548                         \new RhythmicStaff = "chordRhythm" << \StaffC \Dynamics >>
 549                 >>
 550
 551                 \set Score.skipBars = ##t
 552                 \set Score.melismaBusyProperties = #'()
 553         >>
 554 }
 555
 556
 557 \paper
 558 {
 559   #(define fonts (make-pango-font-tree
 560     "Times New Roman"
 561     "DomCasual BT"
 562     "Luxi Mono"
 563     (/ staffSize 20)))
 564
 565 % Spread staves vertically across last page (default: t)
 566 %       ragged-last-bottom = ##f
 567 % Spread staves vertically across the page (default: f)
 568 %       ragged-bottom = ##t
 569 % Allow partial line for last stave (default: f)
 570         ragged-last = ##t
 571
 572 % To find out what's eating the space at the top...
 573 %       annotate-spacing = ##t
 574 %let's try this: [It works! Huzzah!]
 575         obsolete-page-top-space = 0  top-system-spacing #'basic-distance = #(/ obsolete-page-top-space staff-space)
 576 }