Shamusworld >> Repos - music/blob - shout-to-the-north.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         title    = \markup { \override #'(font-family . sans) \fontsize #3.5 "Shout To The North" }
  16 %       subtitle    = \markup { \override #'(font-family . sans) \fontsize #1.3 "(White bread vers.)" }
  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 % Useful tweak abbreviations (hn = harmony note)
  23
  24 hn = #(define-music-function (parser location arg) (ly:music?)
  25 ;; Harmony Note: Set the tweaks property of the passed in note to use a smaller font
  26
  27   (set! (ly:music-property arg 'tweaks)
  28     (acons 'font-size -3.0 (ly:music-property arg 'tweaks))) arg)
  29
  30
  31 %
  32 % Lead vocal
  33 %
  34
  35 LeadVox = \relative c''
  36 {
  37 %       \set Voice.autoBeaming = ##f
  38 %       \set Staff.instrument = #"Lead vox"
  39         \clef G
  40         \key g \major
  41         \override Staff.TimeSignature #'style = #'()
  42         \time 6/8
  43 \override Score.SpacingSpanner #'average-spacing-wishes = ##f
  44
  45         \repeat volta 4
  46         {
  47                 r2. |   % 1
  48         }
  49         \alternative
  50         {
  51                 {
  52                         r2. |   % 2
  53                 }
  54                 {
  55                         r4. r8 g a |   % 3
  56                 }
  57         }
  58
  59         \repeat volta 2
  60         {
  61 \mark \markup { \override #'(font-family . sans) { \box { A } } }
  62                 b4 d,8 a'4 fs8 |   % 4
  63                 g4. r8 g g |   % 5
  64                 b4 d,8 a'4 fs8 |   % 6
  65                 g4. r8 g a |   % 7
  66                 b4 d,8 a'4 fs8 |   % 8
  67                 g4. r8 g g |   % 9
  68                 b4 d,8 a'4 fs8 |   % 10
  69                 a16 ( g ) ~ g4 ~ g4. |   % 11
  70                 r2. |   % 12
  71
  72 \once \override Score.RehearsalMark #'self-alignment-X = #left
  73 \mark \markup { \override #'(font-family . sans) { \box { B } } \italic \smaller { (1st X unison) } }
  74                 <d' \hn g,>4. <d \hn g,>4 <g, \hn d>8 |   % 13
  75                 <c \hn e,>8 <c \hn e,> <b \hn d,> <a \hn d,>4. |   % 14
  76                 <d \hn g,>4. <d \hn g,>4 <g, \hn d>8 |   % 15
  77                 <c \hn e,>8 <c \hn e,> <b \hn g \hn d> <a \hn fs \hn d>4. |   % 16
  78                 <d \hn b \hn g>4. <d \hn b \hn g>4 <g, \hn d>8 |   % 17
  79                 <c \hn g \hn e>8 <c \hn g \hn e> <b \hn g \hn d> <a \hn fs \hn d>4. |   % 18
  80                 <c \hn g \hn e>4 <b \hn g \hn d>8 <a \hn d,>16 <g \hn d>8. <g \hn d>8 |   % 19
  81         }
  82         \alternative
  83         {
  84                 {
  85                         <g \hn d>2. |   % 20
  86                         r2 g8 a |   % 21
  87                 }
  88                 {
  89                         g2. |   % 22
  90                 }
  91         }
  92
  93 \mark \markup { \override #'(font-family . sans) { \box { C } } }
  94         <d' \hn g,>4. <d \hn g,>4 <g, \hn d>8 |   % 23
  95         <c \hn e,>8 <c \hn e,> <b \hn d,> <a \hn d,>4. |   % 24
  96         <d \hn g,>4. <d \hn g,>4 <g, \hn d>8 |   % 25
  97         <c \hn e,>8 <c \hn e,> <b \hn g \hn d> <a \hn fs \hn d>4. |   % 26
  98         <d \hn b \hn g>4. <d \hn b \hn g>4 <g, \hn d>8 |   % 27
  99         <c \hn g \hn e>8 <c \hn g \hn e> <b \hn g \hn d> <a \hn fs \hn d>4. |   % 28
 100         <c \hn g \hn e>4 <b \hn g \hn d>8 <a \hn d,>16 <g \hn d>8. <g \hn d>8 |   % 29
 101         <g \hn d>2. |   % 30
 102         r2. \bar "||"   % 31
 103
 104 \mark \markup { \override #'(font-family . sans) { \box { D } } }
 105         <b \hn e,>8 <b \hn e,> <b \hn e,> <b \hn e,> ( <a \hn d,> ) r |   % 32
 106         <g \hn c,>8 <g \hn c,> <a \hn d,> <e \hn c>4. |   % 33
 107         <b' \hn e,>8 <b \hn e,> <b \hn e,> <b \hn e,> <a \hn d,> <g \hn b,> |   % 34
 108         <g \hn c,>8 <g \hn c,> <a \hn d,> <e \hn c>4. |   % 35
 109         <b' \hn e,>8 <b \hn e,> <b \hn e,> <b \hn e,> <a \hn d,> r |   % 36
 110         <g \hn c,>8 <g \hn c,> <a \hn d,> <e \hn c>4. |   % 37
 111         <g \hn c,>8 <g \hn c,> <g \hn c,> <g \hn c,> <g \hn c,> <d' \hn a \hn fs> |   % 38
 112         <d \hn a \hn fs>2. ~ |   % 39
 113         <d \hn a \hn fs>4. r8 g, g |   % 40
 114
 115         \repeat volta 2
 116         {
 117 \mark \markup { \override #'(font-family . sans) { \box { E } } }
 118                 <d' \hn g,>4. <d \hn g,>4 <g, \hn d>8 |   % 41
 119                 <c \hn e,>8 <c \hn e,> <b \hn d,> <a \hn d,>4. |   % 42
 120                 <d \hn g,>4. <d \hn g,>4 <g, \hn d>8 |   % 43
 121                 <c \hn e,>8 <c \hn e,> <b \hn g \hn d> <a \hn fs \hn d>4. |   % 44
 122                 <d \hn b \hn g>4. <d \hn b \hn g>4 <g, \hn d>8 |   % 45
 123                 <c \hn g \hn e>8 <c \hn g \hn e> <b \hn g \hn d> <a \hn fs \hn d>4. |   % 46
 124                 <c \hn g \hn e>4 <b \hn g \hn d>8 <a \hn d,>16 <g \hn d>8. <g \hn d>8 |   % 47
 125         }
 126         \alternative
 127         {
 128                 {
 129                         <g \hn d>4. r8 g g |   % 48
 130                 }
 131                 {
 132                         <g \hn d>2. |   % 49
 133                 }
 134         }
 135
 136         r2 g8 a \bar "||"   % 50
 137
 138 \mark \markup { \override #'(font-family . sans) { \box { F } } }
 139         b4 d,8 a'4 fs8 |   % 51
 140         g4. r8 g g |   % 52
 141         b4 d,8 a'4 fs8 |   % 53
 142         g4. r8 g a |   % 54
 143         b4 d,8 a'4 fs8 |   % 55
 144         g4. r8 g g |   % 56
 145         b4 d,8 a'4 fs8 |   % 57
 146         a16 ( g ) ~ g4 ~ g4. |   % 58
 147         r2. |   % 59
 148
 149         \repeat volta 2
 150         {
 151 \once \override Score.RehearsalMark #'self-alignment-X = #left
 152 \mark \markup { \override #'(font-family . sans) { \box { G } } \italic \smaller { (1st X kids, 2nd X all) } }
 153                 d'4. d4 g,8 |   % 60
 154                 c8 c b a4. |   % 61
 155                 d4. d4 g,8 |   % 62
 156                 c8 c b a4. |   % 63
 157                 d4. d4 g,8 |   % 64
 158                 c8 c b a4. |   % 65
 159                 c4 b8 a16 g8. g8 |   % 66
 160                 g2. |   % 67
 161         }
 162
 163         \repeat volta 2
 164         {
 165 \mark \markup { \override #'(font-family . sans) { \box { H } } }
 166                 <d' \hn g,>4. <d \hn g,>4 <g, \hn d>8 |   % 68
 167                 <c \hn e,>8 <c \hn e,> <b \hn d,> <a \hn d,>4. |   % 69
 168                 <d \hn g,>4. <d \hn g,>4 <g, \hn d>8 |   % 70
 169                 <c \hn e,>8 <c \hn e,> <b \hn g \hn d> <a \hn fs \hn d>4. |   % 71
 170                 <d \hn b \hn g>4. <d \hn b \hn g>4 <g, \hn d>8 |   % 72
 171                 <c \hn g \hn e>8 <c \hn g \hn e> <b \hn g \hn d> <a \hn fs \hn d>4. |   % 73
 172                 <c \hn g \hn e>4 <b \hn g \hn d>8 <a \hn d,>16 <g \hn d>8. <g \hn d>8 |   % 74
 173                 <g \hn d>2. |   % 75
 174         }
 175
 176         <c \hn g \hn e>4 <b \hn g \hn d>8 <a \hn d,>16 <g \hn d>8. <g \hn d>8 |   % 76
 177         <g \hn d>2. |   % 77
 178         <c \hn g \hn e>4 <b \hn g \hn d>8 <a \hn d,>16 <g \hn d>8. <g \hn d>8 |   % 78
 179         <g \hn d>2. |   % 79
 180         c4 b8 a16 g8. g8 |   % 80
 181         g2.-\fermata \bar "|."   % 81
 182 }
 183
 184 LeadVoxText = \lyricmode
 185 {
 186         Men of faith, rise up and sing
 187         of the great and glo -- rious King,
 188         You are strong when you feel weak,
 189         in your bro -- ken -- ness com -- plete. _ _ _
 190
 191         Shout to the north and the south,
 192         Sing to the east and the west,
 193         Je -- sus is sav -- ior to all,
 194         Lord of hea -- ven and earth.
 195
 196         Rise up
 197         earth.
 198
 199         Shout to the north and the south,
 200         Sing to the east and the west,
 201         Je -- sus is sav -- ior to all,
 202         Lord of hea -- ven and earth.
 203
 204         We’ve been through fire, _ we’ve been through rain,
 205         We’ve been re -- fined by the pow’r of his name,
 206         We’ve fal -- len deep -- er in love with you,
 207         You’ve burned the truth on our lips. _
 208
 209         We will
 210
 211         Shout to the north and the south,
 212         Sing to the east and the west,
 213         Je -- sus is sav -- ior to all,
 214         Lord of hea -- ven and earth.
 215
 216         We will
 217         earth.
 218
 219         Rise up church, with bro -- ken wings,
 220         fill this place with songs a -- gain,
 221         Of our God who reigns on high,
 222         by his grace a -- gain we’ll fly. _ _ _
 223
 224         Shout to the north and the south,
 225         Sing to the east and the west,
 226         Je -- sus is sav -- ior to all,
 227         Lord of hea -- ven and earth.
 228
 229         Shout to the north and the south,
 230         Sing to the east and the west,
 231         Je -- sus is sav -- ior to all,
 232         Lord of hea -- ven and earth.
 233
 234         Lord of hea -- ven and earth.
 235         Lord of hea -- ven and earth.
 236         Lord of hea -- ven and earth.
 237 }
 238
 239 LeadVoxTextB = \lyricmode
 240 {
 241         _ _ wo -- men of the truth,
 242         stand and sing to bro -- ken hearts,
 243         who can know the heal -- ing pow’r
 244         of our awe -- some king of love. _ _ _
 245 }
 246
 247
 248 %
 249 % Chord names
 250 %
 251
 252 Chords = \chordmode
 253 {
 254 %Bah, can't we set this globally?
 255 %       \popChords
 256
 257         \repeat volta 4
 258         {
 259                 g2.:5^3 |   % 1
 260         }
 261         \alternative
 262         {
 263                 {
 264                         s4. g:sus4 |   % 2
 265                 }
 266                 {
 267                         g2.:5^3 |   % 3
 268                 }
 269         }
 270
 271         \repeat volta 2
 272         {
 273                 g4. d |   % 4
 274                 c2. |   % 5
 275                 g4. d |   % 6
 276                 c2. |   % 7
 277                 g4. d |   % 8
 278                 c2. |   % 9
 279                 g4. d |   % 10
 280                 c2.:sus2 |   % 11
 281                 s2. \bar "||"   % 12
 282
 283                 g2. |   % 13
 284                 c4. d |   % 14
 285                 g2. |   % 15
 286                 c4. d |   % 16
 287                 g2. |   % 17
 288                 c4. d |   % 18
 289                 c4. d:sus4 |   % 19
 290         }
 291         \alternative
 292         {
 293                 {
 294                         g2. |   % 20
 295                         s2. |   % 21
 296                 }
 297                 {
 298                         g2. |   % 22
 299                 }
 300         }
 301
 302         g2. |   % 23
 303         c4. d |   % 24
 304         g2. |   % 25
 305         c4. d |   % 26
 306         e2.:m7 |   % 27
 307         c4. d |   % 28
 308         c4. d:sus4 |   % 29
 309         g2. |   % 30
 310         s2. |   % 31
 311
 312         e2.:m |   % 32
 313         c2. |   % 33
 314         e2.:m |   % 34
 315         c2. |   % 35
 316         e2.:m |   % 36
 317         c2. |   % 37
 318         s2. |   % 38
 319         d2. |   % 39
 320         d2.:sus4 |   % 40
 321
 322         \repeat volta 2
 323         {
 324                 g2. |   % 41
 325                 c4. d |   % 42
 326                 g2. |   % 43
 327                 c4. d |   % 44
 328                 e2.:m7 |   % 45
 329                 c4. d |   % 46
 330                 c4. d:sus4 |   % 47
 331         }
 332         \alternative
 333         {
 334                 {
 335                         g2. |   % 48
 336                 }
 337                 {
 338                         g2. |   % 49
 339                 }
 340         }
 341
 342         s2. |   % 50
 343
 344         g4. d |   % 51
 345         c2. |   % 52
 346         g4. d |   % 53
 347         c2. |   % 54
 348         g4. d |   % 55
 349         c2. |   % 56
 350         g4. d |   % 57
 351         c2.:sus2 |   % 58
 352         s2. |   % 59
 353
 354         \repeat volta 2
 355         {
 356                 g2. |   % 60
 357                 c4. d |   % 61
 358                 g2. |   % 62
 359                 c4. d |   % 63
 360                 g2. |   % 64
 361                 c4. d |   % 65
 362                 c4. d:sus4 |   % 66
 363                 g2. |   % 67
 364         }
 365
 366         \repeat volta 2
 367         {
 368                 g2. |   % 68
 369                 c4. d |   % 69
 370                 g2. |   % 70
 371                 c4. d |   % 71
 372                 e2.:m7 |   % 72
 373                 c4. d |   % 73
 374                 c4. d:sus4 |   % 74
 375                 g2. |   % 75
 376         }
 377
 378         c4. d:sus4 |   % 76
 379         g2. |   % 77
 380         c4. d:sus4 |   % 78
 381         g2. |   % 79
 382         c4. d:sus4 |   % 80
 383         g2. |   % 81
 384 }
 385
 386
 387 %
 388 % Chord rhythms
 389 %
 390
 391 % Use a RhythmicStaff on the chords instead of this?
 392 % It almost works, but not quite. Doesn't collapse chords above to single notes...
 393
 394 %Slash = { \override NoteHead #'style = #'slash }
 395 %Cross = { \override NoteHead #'style = #'cross }
 396
 397 StaffC = \relative c
 398 {
 399         \override Staff.TimeSignature #'style = #'()
 400         \time 6/8
 401         \override NoteHead #'style = #'slash
 402
 403         \repeat volta 4
 404         {
 405                 c8-> c c c-> c c |   % 1
 406         }
 407         \alternative
 408         {
 409                 {
 410                         c8-> c c c-> c c |   % 2
 411                 }
 412                 {
 413                         c2.-> |   % 3
 414                 }
 415         }
 416
 417         \repeat volta 2
 418         {
 419                 c8 c c c c c |   % 4
 420                 c8 c c c c c |   % 5
 421                 c8 c c c c c |   % 6
 422                 c8 c c c c c |   % 7
 423                 c8 c c c c c |   % 8
 424                 c8 c c c c c |   % 9
 425                 c8 c c c c c |   % 10
 426                 c8 c c c c c |   % 11
 427                 c8 c c c c c |   % 12
 428
 429                 c8 c c c c c |   % 13
 430                 c8 c c c c c |   % 14
 431                 c8 c c c c c |   % 15
 432                 c8 c c c c c |   % 16
 433                 c8 c c c c c |   % 17
 434                 c8 c c c c c |   % 18
 435                 c8 c c c c c |   % 19
 436         }
 437         \alternative
 438         {
 439                 {
 440                         g2. ~ |   % 20
 441                         g2. |   % 21
 442                 }
 443                 {
 444                         c8 c c c c c |   % 22
 445                 }
 446         }
 447
 448         c8 c c c c c |   % 23
 449         c8 c c c c c |   % 24
 450         c8 c c c c c |   % 25
 451         c8 c c c c c |   % 26
 452         c8 c c c c c |   % 27
 453         c8 c c c c c |   % 28
 454         c8 c c c c c |   % 29
 455         c8 c c c c c |   % 30
 456         c8 c c c c c \bar "||"   % 31
 457
 458         c8 c c c c c |   % 32
 459         c8 c c c c c |   % 33
 460         c8 c c c c c |   % 34
 461         c8 c c c c c |   % 35
 462         c8 c c c c c |   % 36
 463         c8 c c c c c |   % 37
 464         c8 c c c c c |   % 38
 465         c8 c c c c c |   % 39
 466         c8 c c c c c |   % 40
 467
 468         \repeat volta 2
 469         {
 470                 c8 c c c c c |   % 41
 471                 c8 c c c c c |   % 42
 472                 c8 c c c c c |   % 43
 473                 c8 c c c c c |   % 44
 474                 c8 c c c c c |   % 45
 475                 c8 c c c c c |   % 46
 476                 c8 c c c c c |   % 47
 477         }
 478         \alternative
 479         {
 480                 {
 481                         c8 c c c c c |   % 48
 482                 }
 483                 {
 484                         c2. ~ |   % 49
 485                 }
 486         }
 487
 488         c2. \bar "||"   % 50
 489
 490         c8 c c c c c |   % 51
 491         c8 c c c c c |   % 52
 492         c8 c c c c c |   % 53
 493         c8 c c c c c |   % 54
 494         c8 c c c c c |   % 55
 495         c8 c c c c c |   % 56
 496         c8 c c c c c |   % 57
 497         c8 c c c c c |   % 58
 498         c8 c c c c c |   % 59
 499
 500         \repeat volta 2
 501         {
 502                 c8 c c c c c |   % 60
 503                 c8 c c c c c |   % 61
 504                 c8 c c c c c |   % 62
 505                 c8 c c c c c |   % 63
 506                 c8 c c c c c |   % 64
 507                 c8 c c c c c |   % 65
 508                 c8 c c c c c |   % 66
 509                 c8 c c c c c |   % 67
 510         }
 511
 512         \repeat volta 2
 513         {
 514                 c8 c c c c c |   % 68
 515                 c8 c c c c c |   % 69
 516                 c8 c c c c c |   % 70
 517                 c8 c c c c c |   % 71
 518                 c8 c c c c c |   % 72
 519                 c8 c c c c c |   % 73
 520                 c8 c c c c c |   % 74
 521                 c8 c c c c c |   % 75
 522         }
 523
 524         c8 c c c c c |   % 76
 525         c8 c c c c c |   % 77
 526         c8 c c c c c |   % 78
 527         c8 c c c c c |   % 79
 528         c8 c c c c c |   % 80
 529         c2.-\fermata \bar "|."   % 81
 530 }
 531
 532
 533 Dynamics =
 534 {
 535         s4_\f s2 |   % 1
 536         s2. |   % 2
 537         s4. s8_\mf s4 |   % 3
 538         s2.*9 |   % 4-12
 539         s4_\markup { \dynamic mf - \dynamic f } s2 |   % 13
 540         s2.*9 |   % 14-22
 541         s4_\f s2 |   % 23
 542         s2.*7 |   % 24-30
 543         s8 s \< s4. s8 \! |   % 31
 544         s2.*8 |   % 32-39
 545         s8 \< s4 s8 \! s4 |   % 40
 546         s4_\markup { \italic \smaller { (1st X drums only } } s2 |   % 41
 547         s2.*8 |   % 42-49
 548         s8 \> s2 s8_\mp |   % 50
 549         s2.*9 |   % 51-59
 550         s4_\markup { \dynamic p - \dynamic f } s2 |   % 60
 551         s2.*6 |   % 61-66
 552         s8 \< s s2 |   % 67
 553         s8_\ff s s2 |   % 68
 554 %{
 555         s4_\markup { \italic { snare on 4, bass 8th notes } } s2. |   % 1
 556         s1*26 |   % 2-27
 557         s2 s4 \< s |   % 28
 558         s4_\f s_\markup { \hspace #0.0 \raise #-2.0 \italic { snare 2 & 4 } } s2 |   % 29
 559         s1*8 |   % 30-37
 560         s2 s4 \< s \! |   % 38
 561         s1 |   % 39
 562         s2. s8 \> s \! |   % 40
 563         s4_\markup { \hspace #0.0 \raise #-2.0 \italic { bass 8th notes, band builds each repeat } } s2. |   % 41
 564         s1*8 |   % 42-49
 565         s4 \< s2. |   % 50
 566         s4_\f s2. |   % 51
 567         s1*5 |   % 52-56
 568         s4_\markup { \hspace #0.0 \raise #-2.0 \italic { rit. last time } } s2. |   % 57
 569         s2 s4 \< s \! |   % 58
 570 %}
 571 }
 572
 573
 574 \score
 575 {
 576         <<
 577                 <<
 578                         \new Staff = leadStaff { \new Voice = "lead" \LeadVox }
 579                         \new Lyrics \lyricsto "lead" \LeadVoxText
 580                         \new Lyrics \lyricsto "lead" \LeadVoxTextB
 581                 >>
 582
 583                 \new ChoirStaff = "Rhythm"
 584                 <<
 585                         \new ChordNames = "chords" \Chords
 586                         \new RhythmicStaff = "chordRhythm" << \StaffC \Dynamics >>
 587                 >>
 588
 589                 \set Score.skipBars = ##t
 590                 \set Score.melismaBusyProperties = #'()
 591         >>
 592 }
 593
 594
 595 \paper
 596 {
 597   #(define fonts (make-pango-font-tree
 598     "Times New Roman"
 599     "DomCasual BT"
 600     "Luxi Mono"
 601     (/ staffSize 20)))
 602
 603 % Spread staves vertically across last page (default: t)
 604 %       ragged-last-bottom = ##f
 605 % Don't spread staves vertically across the page (default: f)
 606 %       ragged-bottom = ##t
 607 % Allow partial line for last stave (default: f)
 608 %       ragged-last = ##t
 609
 610 % To find out what's eating the space at the top...
 611 %       annotate-spacing = ##t
 612 %let's try this: [It works! Huzzah!]
 613         obsolete-page-top-space = 0  top-system-spacing #'basic-distance = #(/ obsolete-page-top-space staff-space)
 614 }