Shamusworld >> Repos - music/blob - almighty.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 %{ Some useful characters: ‘ ’ “ ” – — † ‡ • … %}
  12
  13 \header
  14 {
  15         title    = \markup { \override #'(font-family . sans) \fontsize #3.5 "Almighty" }
  16         composer = \markup { \override #'(font-family . sans) \fontsize #1.3 "Gary Oliver" }
  17         arranger = \markup { \override #'(font-family . sans) \fontsize #1.3 "arr. Ed Smart" }
  18         tagline  = $(string-append "Engraved by JLH and Lilypond " (lilypond-version))
  19 }
  20
  21
  22 %
  23 % Lead vocal
  24 %
  25 LeadVox = \relative c''
  26 {
  27         \clef G
  28         \key f \major
  29         \numericTimeSignature
  30         \time 4/4
  31
  32         % Intro
  33
  34         r1^\markup { Moderately fast } \bar "||"
  35         r1 |
  36         r1 |   % 3
  37     r1 |
  38         \time 2/4 r2 |   % 5
  39         \time 4/4 r1 |
  40         r1 |   % 7
  41
  42         % Verse
  43
  44         \repeat volta 3
  45         {
  46                 % A section
  47
  48 \mark \markup { \override #'(font-family . sans) { \box { A } } \italic { 3x } }
  49
  50                 r4 a g8 ([ f ]) f4 |
  51                 r4 c'4 bf8 ([ a ]) a [ c ] ~ |   % 9
  52                 c2 r |
  53                 bf8 [ a ] g [ f ] a4 g8 ([ f ]) |   % 11
  54                 r4 a g8 ([ f ]) f4 |
  55                 r4 c'4 bf8 ([ a ]) a [ c ] ~ |   % 13
  56                 c2 r |
  57                 \times 2/3 { bf8 [ a g ] ~ } g8 [ f ] a4 g8 ([ f ]) |   % 15
  58 \once \override Score.RehearsalMark #'self-alignment-X = #left
  59 \mark \markup { \musicglyph #"scripts.coda" \italic { to Coda 3rd time through } }
  60                 f2 r2 |   % 16
  61                 r2 r4. c8 \bar "||"   % 17
  62
  63                 % B section
  64
  65 \mark \markup { \override #'(font-family . sans) { \box { B } } }
  66
  67                 e8. [ e16 ] ~ e8 [ f ] f4 r8 c16 [ c ] |
  68                 g'8. [ g16 ] ~ g8 [ a ] a4 r8 bf |   % 19
  69                 c8. [ c16 ] ~ c8 [ c ] c8. [ bf16 ] ~ bf8 [ a ] |
  70                 g4. r8 r4. c,8 |   % 21
  71                 e8. [ e16 ] ~ e8 [ f ] f4 r8 c |
  72                 g'8. [ g16 ] ~ g8 [ a ] a4 r8 a16 [ bf ] |   % 23
  73                 c8. [ c16 ] ~ c8 [ c ] c8. [ bf16 ] ~ bf8 [ a ] |
  74                 g4. r8 r4 g8 [ a ] \bar "||"   % 25
  75
  76                 bf8. [ bf16 ] ~ bf8 [ a ] g8. [ f16 ] ~ f8 [ g ] |
  77                 a4 f d g8 [ a ] |   % 27
  78                 bf8. [ bf16 ] ~ bf8 [ a ] g4 f8 [ g ] |
  79                 a4 c c2 |   % 29
  80         }
  81
  82         % Coda
  83
  84 \stopStaff s1 \bar "" \startStaff   % That removed the spurious floating bar line from line break
  85 \break % Meh
  86 \set Score.currentBarNumber = #30
  87
  88 \once \override Score.RehearsalMark #'self-alignment-X = #left
  89 \mark \markup { { \musicglyph #"scripts.coda" } "Coda" }
  90         f,2 r2 |
  91         r1 \bar "||"   % 31
  92
  93         \key g \major
  94
  95 \mark \markup { \override #'(font-family . sans) { \box { C } } }
  96
  97         r4 b a8 ([ g ]) g4 |
  98         r4 d'4 c8 ([ b ]) b [ d ] ~ |   % 33
  99         d2 r |
 100         c8 [ b ] a [ g ] b4 a |   % 35
 101         r4 b a8 ([ g ]) g4 |
 102         r4 d'4 c8 ([ b ]) b [ d ] ~ |   % 37
 103         d2 r |
 104         \times 2/3 { c8 [ b a ] ~ } a8 [ g ] b4 a8 ([ g ]) |   % 39
 105
 106         % Outro
 107
 108         \repeat volta 2
 109         {
 110 \mark \markup { \override #'(font-family . sans) { \box { D } } }
 111
 112                 g2 r2 |
 113                 \times 2/3 { c8 [ b a ] ~ } a8 [ g ] b4 a8 ([ g ]) |   % 41
 114                 g2 r2 |
 115                 \times 2/3 { c8 [ b a ] ~ } a8 [ g ] b4 a8 ([ g ]) |   % 43
 116         }
 117
 118         g1^\fermata^\markup { \italic { On cue } } \bar "|."
 119 }
 120
 121
 122 LeadVoxText = \lyricmode
 123 {
 124         Al -- migh -- _ ty, most ho -- _ ly God _
 125         Fai -- thful through the a -- ges _
 126         Al -- migh -- _ ty, most ho -- _ ly Lord _
 127         Glo -- ri -- ous _ Al -- migh -- ty _ God
 128
 129         The beast of _ the field
 130         The _ birds of _ the air
 131         Are si -- lent _ to call out _ your name
 132
 133         The earth has _ no voice
 134         And I have _ no choice
 135         But to mag -- ni -- _ fy God un -- _ a -- shamed
 136
 137         Let the rocks be _ kept si -- lent _
 138         For one more day
 139         Let the whole world _ sing out
 140         Let the peo -- ple say:
 141
 142         God
 143
 144         Al -- migh -- _ ty, most ho -- _ ly God _
 145         Fai -- thful through the a -- ges
 146         Al -- migh -- _ ty, most ho -- _ ly Lord _
 147         Glo -- ri -- ous _ Al -- migh -- ty _ God
 148
 149         Glo -- ri -- ous _ Al -- migh -- ty _ God
 150         Glo -- ri -- ous _ Al -- migh -- ty _ God
 151 }
 152
 153 LeadVoxTextB = \lyricmode
 154 {
 155         _ _ _ _ _ _ _ _ _ _
 156         _ _ _ _ _ _ _
 157         _ _ _ _ _ _ _ _ _ _
 158         _ _ _ _ _ _ _ _ _
 159
 160         Well time mar -- _ ches on
 161         With the in -- no -- _ cence gone
 162         And dark -- ness _ has cov -- ered _ the Earth
 163
 164         _ His spi -- _ it dwells
 165         And speaks ‘It _ is well’
 166         And the hope -- less _ still of -- fered _ new birth
 167
 168         He will break the _ leash of death
 169         It will have no sting
 170         Let the pris -- oner _ go free
 171         Join the dance and sing!
 172 }
 173
 174
 175 %
 176 % Instrumental lines
 177 %
 178 RhythmB = \relative c'
 179 {
 180         \set Voice.autoBeaming = ##f
 181         \clef G
 182         \key d \major
 183         \time 4/4
 184
 185 %This structure, BTW, is totally wrong (from a different song)
 186         % Intro
 187
 188         r1 |
 189         r1 |   % 2
 190         r1 |
 191         r1 |   % 4
 192         r1 |
 193         r1 |   % 6
 194         r1 |
 195         r1 |   % 8
 196
 197         % Verse
 198
 199         \repeat volta 3
 200         {
 201                 r1 |
 202                 r1 |   % 10
 203                 r1 |
 204                 r1 |   % 12
 205                 r1 |
 206                 r1 |   % 14
 207                 r1 |
 208                 r1 |   % 16
 209
 210                 r1 |
 211                 r1 |   % 18
 212                 r1 |
 213                 r1 |   % 20
 214                 r1 |
 215                 r1 |   % 22
 216         }
 217         \alternative
 218         {
 219                 {
 220                         r1 |
 221                         r1 |
 222                         r1 |
 223                         r1 |
 224                 }
 225                 {
 226                         r1 |
 227                         r1 |
 228                         r1 |
 229                         r1 |
 230                 }
 231         }
 232         \bar "|:"
 233
 234         % Tag
 235
 236         r1 |
 237         r1 |
 238         r1 |
 239         r1 |
 240         r1 |
 241         r1 |
 242         r1 |
 243         r1 \bar ":|"
 244
 245         % Ending
 246
 247 }
 248
 249
 250 %
 251 % Chord names
 252 %
 253
 254 Chords = \chordmode
 255 {
 256         % Intro
 257
 258         s1 \bar "||"
 259         f2.. f8:sus2/a |
 260         s2.. a8:m |   % 3
 261         s2 d:m7 |
 262         \time 2/4 g:m7 |   % 5
 263         \time 4/4 f2..:/c c8 |
 264         s1 |   % 7
 265
 266         % Verse
 267
 268         \repeat volta 3
 269         {
 270                 % A section
 271
 272                 f2.. f8:sus2/a |
 273                 s2.. a8:m7 |   % 9
 274                 s2 d:m7 |
 275                 g:m7 f4/c c |   % 11
 276                 f2.. f8:sus2/a |
 277                 s2.. a8:m7 |   % 13
 278                 s2 d:m7 |
 279                 g:m7 f4/c c |   % 15
 280                 f4. bf:sus2 s4 |
 281                 bf4./d c8/e f2 \bar "||"   % 17
 282
 283                 % B section
 284
 285                 c2 f |
 286                 c:sus2/e f |   % 19
 287                 bf1:9^7 |
 288                 c4.:sus4 c8 s2 |   % 21
 289                 c2/e f |
 290                 c d:m7 |   % 23
 291                 g1:m11 |
 292                 c4.:sus4 c8 s2 |   % 25
 293
 294                 g2:m7 c |
 295                 f4 f/a bf f/a |   % 27
 296                 g2:m7 c |
 297                 f4 f/a c2 |   % 29
 298         }
 299
 300         % Coda
 301
 302 s1 |
 303         f4. bf:sus2 s4 |
 304         bf2/d c4/e d |   % 31
 305
 306         g2.. g8:sus2/b |
 307         s2.. b8:m7 |   % 33
 308         s2 e:m7 |
 309         a:m7 g4/d d |   % 35
 310         g2.. g8:sus2/b |
 311         s2.. b8:m7 |   % 37
 312         s2 e:m7 |
 313         a:m7 g4/d d |   % 39
 314
 315         % Outro
 316
 317         g4. c:sus2 s4 |
 318         a2:m7 g4/d d |   % 41
 319         g4. c:sus2 s4 |
 320         a2:m7 g4/d d |   % 43
 321
 322         g1 \bar "|."
 323 }
 324
 325
 326 %
 327 % Chord rhythms
 328 %
 329
 330 % Use a RhythmicStaff on the chords instead of this?
 331 % It almost works, but not quite. Doesn't collapse chords above to single notes...
 332
 333 StaffC = \relative c
 334 {
 335         \set Voice.autoBeaming = ##f
 336         \numericTimeSignature
 337         \time 4/4
 338         \override NoteHead #'style = #'slash
 339         \teeny
 340
 341         % Intro
 342
 343         r2 c4^\markup { \italic { drum fill } } c \bar "||"
 344         c2 ~ c4. c8 ~ |
 345         c2 ~ c4. c8 ~ |   % 3
 346         c4. c8 c4 c |
 347         \time 2/4 c4 c |   % 5
 348         \time 4/4 c2 ~ c4. c8 ~ |
 349         c1 |   % 7
 350
 351         % Verse
 352
 353         \repeat volta 3
 354         {
 355                 % A section
 356
 357                 c4 c c c8 [ c ] ~ |
 358                 c4 c c c8 [ c ] ~ |   % 9
 359                 c4 c c c |
 360                 c4 c c c |   % 11
 361                 c4 c c c8 [ c ] ~ |
 362                 c4 c c c8 [ c ] ~ |   % 13
 363                 c4 c c c |
 364                 c4 c c c |   % 15
 365                 c8. [ c16 ] ~ c8 [ c8 ] ~ c4 c |
 366                 c8. [ c16 ] ~ c8 [ c8 ] c4 r |   % 17
 367
 368                 % B section
 369
 370                 c2 c |
 371                 c2 c |   % 19
 372                 c8. [ c16 ] ~ c8 [ c ] c8. [ c16 ] ~ c8 [ c ] |
 373                 c4. c8 ~ c4 c |   % 21
 374                 c2 c |
 375                 c2 c |   % 23
 376                 c8. [ c16 ] ~ c8 [ c ] c8. [ c16 ] ~ c8 [ c ] |
 377                 c4. c8 ~ c4 c |   % 25
 378
 379                 c4 c c c |
 380                 c4 c c c |   % 27
 381                 c4 c c c |
 382                 c4 c c c |   % 29
 383         }
 384
 385         % Coda
 386
 387 \stopStaff s1 \startStaff |
 388 \set Score.currentBarNumber = #30
 389
 390         c8. [ c16 ] ~ c8 [ c8 ] ~ c4 c |   % 30
 391         c8. [ c16 ] ~ c8 [ c8 ] c4 c4 |   % 31
 392
 393         c2 ~ c4. c8 ~ |
 394         c2 ~ c4. c8 ~ |   % 33
 395         c4 c c c |
 396         c4 c c c |   % 35
 397         c4 c c c8 [ c ] ~ |
 398         c4 c c c8 [ c ] ~ |   % 37
 399         c4 c c c |
 400         c4 c c c |   % 39
 401
 402         % Outro
 403
 404         c8. [ c16 ] ~ c8 [ c ] ~ c4 c |
 405         c4 c c c |   % 41
 406         c8. [ c16 ] ~ c8 [ c ] ~ c4 c |
 407         c4_\markup { \italic { rit. last time } } c c c |   % 43
 408
 409         c1^\fermata \bar "|."
 410 }
 411
 412
 413 \score
 414 {
 415         <<
 416                 \context Staff
 417                 <<
 418                         \new Voice = "lead" \LeadVox
 419                         \new Lyrics \lyricsto "lead" \LeadVoxText
 420                         \new Lyrics \lyricsto "lead" \LeadVoxTextB
 421                 >>
 422
 423                 \new ChoirStaff
 424                 <<
 425 %                       \new Staff = "riff" \RhythmB
 426                         \new ChordNames \Chords
 427                         \new RhythmicStaff \StaffC
 428                 >>
 429
 430                 \set Score.skipBars = ##t
 431                 \set Score.melismaBusyProperties = #'()
 432         >>
 433 }
 434
 435
 436 \paper
 437 {
 438         #(define fonts (make-pango-font-tree
 439                 "Times New Roman"
 440                 "JazzText"
 441                 "Luxi Mono"
 442                 (/ staffSize 20)))
 443
 444 % Don't spread staves vertically across last page (default: t)
 445 %       ragged-last-bottom = ##f
 446 % Don't spread staves vertically across the page (default: f)
 447 %       ragged-bottom = ##t
 448 % Allow partial line for last stave (default: f)
 449         ragged-last = ##t
 450
 451 % To find out what's eating the space at the top...
 452 %       annotate-spacing = ##t
 453 }
 454