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