Shamusworld >> Repos - music/blob - god-of-wonders.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 "God of Wonders" }
  18 %       composer = \markup { \override #'(font-family . sans) \fontsize #1.3 "" }
  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 % Song's structure
  34 %
  35 Global =
  36 {
  37         \key a \major
  38         \override Staff.TimeSignature #'style = #'()
  39         \time 4/4
  40
  41         % Intro
  42
  43         \once \override TextScript #'padding = #2.0
  44         s1*0^\markup { \large \bold { Moderate pop } }
  45 %Capo 3 version
  46 %       s1*0^\markup { \large \bold { Moderate pop "(*** CAPO 3 ***)" } }
  47
  48         \repeat volta 2
  49         {
  50                 % Intro/midtro
  51
  52                 s1*4 \bar "||"   % 1-4
  53
  54                 % Verse
  55
  56 %               \once \override Score.RehearsalMark #'self-alignment-X = #left
  57                 \mark \markup { \override #'(font-family . sans) { \box { A } } }
  58
  59                 s1*8 \bar "||"   % 5-12
  60
  61                 % Chorus
  62
  63                 \mark \markup { \override #'(font-family . sans) { \box { B } } }
  64
  65                 s1*8 \bar "||"   % 13-20
  66
  67                 \mark \markup { \override #'(font-family . sans) { \box { C } } }
  68
  69                 s1*4 |   % 21-24
  70         }
  71
  72         % Interlude
  73
  74         \mark \markup { \override #'(font-family . sans) { \box { D } } }
  75
  76         s1*6 \bar "||"   % 25-30
  77
  78         % Solo
  79
  80         \once \override TextScript #'padding = #2.0
  81         s1*0^\markup { \large \bold { Guitar Solo } }
  82         \mark \markup { \override #'(font-family . sans) { \box { E } } }
  83
  84         s1*8 |   % 31-38
  85
  86         \repeat volta 2
  87         {
  88                 % Chorus
  89
  90                 \mark \markup { \override #'(font-family . sans) { \box { F } } }
  91
  92                 s1*8 |   % 39-46
  93         }
  94
  95         \mark \markup { \override #'(font-family . sans) { \box { G } } }
  96
  97         s1*6 \bar "|."   % 47-52
  98 }
  99
 100
 101 %
 102 % Lead vocal
 103 %
 104 LeadVox = \relative c''
 105 {
 106         \clef G
 107         \override Score.SpacingSpanner #'average-spacing-wishes = ##f
 108
 109         % Intro/midtro
 110
 111         s1 |   % 1
 112         s1 |   % 2
 113         s1 |   % 3
 114         s1 |   % 4
 115
 116         % Verse
 117
 118         r2 a8 fs16 a ~ a8 b16 a ~ |   % 5
 119         a8 fs ~ fs4 r2 |   % 6
 120         r4 r8 fs8 a16 fs8 a16 ~ a8 b ~ |   % 7
 121         b8 fs ~ fs4 r2 |   % 8
 122         r8. fs16 cs'8 b a fs a b16 a ~ |   % 9
 123         a8 fs ~ fs4 r2 |   % 10
 124         r4 cs'8 b a fs16 cs' ~ cs8 b ( |   % 11
 125         a8 ) a ~ a2 r4 |   % 12
 126
 127         % Chorus
 128
 129         <cs \hn e,>8 <b \hn d,>16 <cs \hn e,> <cs \hn e,> <cs \hn e,>8 <b \hn d,>16 <cs \hn e,>8 <b \hn d,> <a \hn cs,> <e \hn cs> |   % 13
 130         <b' \hn e,>2 r4 <cs \hn a \hn e>16 <cs \hn a \hn e>8. |   % 14
 131         <cs \hn a \hn e>4. ( <a \hn fs \hn cs>16 ) <a \hn fs \hn cs> ~ <a \hn fs \hn cs>4 r |   % 15
 132         <cs \hn a \hn e>4. ( <a \hn fs \hn cs>16 ) <a \hn fs \hn cs> ~ <a \hn fs \hn cs>4 r8. <a \hn cs,>16 |   % 16
 133         <cs \hn e,>8 <b \hn d,>16 <cs \hn e,> ~ <cs \hn e,>8 <b \hn d,>16 <cs \hn e,>16 ~ <cs \hn e,>8 <b \hn d,> <a \hn e \hn cs> <e \hn cs \hn a'> |   % 17
 134         <b' \hn gs \hn e>2 r4 <cs \hn a \hn e>16 <cs \hn a \hn e>8. |   % 14
 135         <cs \hn a \hn e>4. ( <a \hn fs \hn cs>16 ) <a \hn fs \hn cs> ~ <a \hn fs \hn cs>4 r |   % 15
 136         <cs \hn a \hn e>4. ( <a \hn fs \hn cs>16 ) <a \hn fs \hn cs> ~ <a \hn fs \hn cs>4 r |   % 16
 137
 138         a4 b a16 e8 fs16 ~ fs8 fs ~ |   % 21
 139         << { \voiceTwo fs2 r } \context Voice = vb { \voiceOne a4 b a16 e8 fs16 ~ fs8 fs ~ } >> |   % 22
 140         << { \voiceOne a4 b a16 e8 fs16 ~ fs8 fs ~ } \context Voice = vb { \voiceTwo fs2 r } >> |   % 23
 141         << { \voiceTwo fs2 r } \context Voice = vb { \voiceOne a4 b a16 e8 fs16 ~ fs8 fs ~ } >> |   % 24
 142
 143         % Interlude
 144
 145         \context Voice = vb { fs8 } r \stemUp <a \hn e \hn cs>16 <b \hn fs \hn d>8 <b \hn fs \hn d>16 ~ <b \hn fs \hn d>8 \stemNeutral << { \voiceOne a r a16 a } \context Voice = vb { \voiceTwo <\hn a \hn e \hn cs>8 ~ <\hn a \hn e \hn cs>4 ~ } >> |   % 25
 146         << { \voiceOne e'4 cs b16 a8 b16 ~ b8 fs ~ } \context Voice = vb { \voiceTwo <\hn a \hn e \hn cs>1 } >> |   % 26
 147         fs8 r \stemUp <a \hn e \hn cs>16 <b \hn fs \hn d>8 <b \hn fs \hn d>16 ~ <b \hn fs \hn d>8 \stemNeutral << { \voiceOne a r a16 a } \context Voice = vb { \voiceTwo <\hn a \hn e \hn cs>8 ~ <\hn a \hn e \hn cs>4 ~ } >> |   % 27
 148         << { \voiceOne e'4 cs b16 a8 b16 ~ b8 fs ~ } \context Voice = vb { \voiceTwo <\hn a \hn e \hn cs>1 } >> \oneVoice |   % 28
 149         fs8 r <a \hn e \hn cs>16 <b \hn fs \hn d>8 <b \hn fs \hn d>16 ~ <b \hn fs \hn d>8 <a \hn e \hn cs> ~ <a \hn e \hn cs> <a \hn e \hn cs>16 <a \hn e \hn cs> |   % 29
 150         <e' \hn a, \hn d,>4 <cs \hn a \hn e> <b \hn fs \hn d>16 <a \hn fs \hn d>8 <e' \hn b \hn fs \hn d>16 ~ <e \hn b \hn fs \hn d>8 <cs \hn a \hn e \hn cs> ~ |   % 30
 151
 152         % Solo
 153
 154         <cs \hn a \hn e \hn cs>1 |   % 31
 155         R1 |   % 32
 156         R1 |   % 33
 157         R1 |   % 34
 158         R1 |   % 35
 159         R1 |   % 36
 160         R1 |   % 37
 161         R1 |   % 38
 162
 163         % Chorus
 164
 165         <cs \hn e,>8 <b \hn d,>16 <cs \hn e,> <cs \hn e,> <cs \hn e,>8 <b \hn d,>16 <cs \hn e,>8 <b \hn d,> <a \hn cs,> <e \hn cs> |   % 39
 166         <b' \hn e,>2 r4 <cs \hn a \hn e>16 <cs \hn a \hn e>8. |   % 40
 167         <cs \hn a \hn e>4. ( <a \hn fs \hn cs>16 ) <a \hn fs \hn cs> ~ <a \hn fs \hn cs>4 r |   % 41
 168         <cs \hn a \hn e>4. ( <a \hn fs \hn cs>16 ) <a \hn fs \hn cs> ~ <a \hn fs \hn cs>4 r8. <a \hn cs,>16 |   % 42
 169         <cs \hn e,>8 <b \hn d,>16 <cs \hn e,> ~ <cs \hn e,>8 <b \hn d,>16 <cs \hn e,>16 ~ <cs \hn e,>8 <b \hn d,> <a \hn e \hn cs> <e \hn cs \hn a'> |   % 43
 170         <b' \hn gs \hn e>2 r4 <cs \hn a \hn e>16 <cs \hn a \hn e>8. |   % 44
 171         <cs \hn a \hn e>4. ( <a \hn fs \hn cs>16 ) <a \hn fs \hn cs> ~ <a \hn fs \hn cs>4 r |   % 45
 172         <cs \hn a \hn e>4. ( <a \hn fs \hn cs>16 ) <a \hn fs \hn cs> ~ <a \hn fs \hn cs>4 r |   % 46
 173
 174         % Outro
 175
 176         a4 b a16 e8 fs16 ~ fs8 fs ~ |   % 47
 177         << { \voiceTwo fs2 r } \context Voice = vc { \voiceOne a4 b a16 e8 fs16 ~ fs8 fs ~ } >> |   % 48
 178         << { \voiceOne a4 b a16 e8 fs16 ~ fs8 fs ~ } \context Voice = vc { \voiceTwo fs2 r } >> |   % 49
 179         << { \voiceTwo fs2 r } \context Voice = vc { \voiceOne a4 b a16 e8 fs16 ~ fs8 fs ~ } >> |   % 50
 180         << { \voiceOne a4 b } \context Voice = vc { \voiceTwo fs2 } >> \oneVoice a16 e8 fs16 ~ fs8 <a \hn fs> ~ |   % 51
 181         <a \hn fs>1-\fermata |   % 52
 182 }
 183
 184 LeadVoxText = \lyricmode
 185 {
 186         Lord of all _ cre -- a -- _ tion, _
 187         of wa -- ter, earth, _ and _ sky, _
 188         The hea -- vens are your ta -- ber -- na -- _ cle, _
 189         glo -- ry to the Lord _ on _ high. _
 190
 191         God of won -- _ ders, be -- yond our gal -- ax -- y,
 192         you are ho -- _ ly, _ ho -- _ ly, _
 193         The un -- i -- verse _ de -- clares - your ma -- jes -- ty,
 194         you are ho -- _ ly, _ ho -- _ ly, _
 195
 196         Lord of hea -- ven and _ earth, _
 197         Lord of hea -- ven and _ earth, _
 198
 199         Hal -- le -- lu -- jah, _
 200         to the Lord of hea -- ven and _ earth, _
 201         Hal -- le -- lu -- jah, _
 202         to the Lord of hea -- ven and _ earth, _
 203         Hal -- le -- lu -- _ jah, _
 204         to the Lord of hea -- ven and _ earth! _
 205
 206         God of won -- _ ders, be -- yond our gal -- ax -- y,
 207         you are ho -- _ ly, _ ho -- _ ly, _
 208         The un -- i -- verse _ de -- clares - your ma -- jes -- ty,
 209         you are ho -- _ ly, _ ho -- _ ly, _
 210
 211         Lord of hea -- ven and _ earth, _
 212         Lord of hea -- ven and _ earth, _
 213         Lord of hea -- ven and _ earth, _
 214 }
 215
 216 LeadVoxTextB = \lyricmode
 217 {
 218         Ear -- ly in _ the morn -- _ ing, _
 219         I will cel -- e -- brate _ the light, _
 220         When I stum -- ble in _ the dark -- _ ness, _
 221         I will call your name _ by _ night. _
 222 }
 223
 224 EchoText = \lyricmode
 225 {
 226         Lord of hea -- ven and _ earth, _
 227         Lord of hea -- ven and _ earth, _
 228 }
 229
 230 % This is this way because \oneVoice kills the lyric stream...
 231 EchoTextB = \lyricmode
 232 {
 233         Lord of hea -- ven and _ earth, _
 234         Lord of hea -- ven and _ earth, _
 235 }
 236
 237 %
 238 % Riffs
 239 %
 240 Riffs = \relative c'
 241 {
 242         \tiny
 243
 244         % Intro/midtro
 245
 246 \repeat "percent" 2 {
 247         <e e' a>4 <e e' a>8 <e e' a>16 <e e' a> ~ <e e' a> <fs e' a> <fs e' a>8 <fs e' a> <d e' a>16 <d e' a> |   %
 248         <d e' a>4 <d e' a>8 <d e' a>16 <d e' a> ~ <d e' a> <d e' a> <d e' a>8 <d e' a>16 <d e' a> <d e' a> <d e' a> |   %
 249 }
 250 %{
 251         % Intro
 252
 253         \override NoteHead #'style = #'slash
 254         r4 bf16 bf bf bf bf r bf8 r bf |   % 1
 255         r4 r8 bf r4 bf |   % 2
 256         r4 bf16 bf bf bf bf r bf8 r bf |   % 3
 257         r4 r8 bf r4 bf |   % 4
 258         r4 bf16 bf bf bf bf r bf8 r bf |   % 5
 259         r4 r8 bf r4 bf |   % 6
 260         \override NoteHead #'style = #'default
 261
 262         s1*55 |   % 7-61
 263
 264         r4 e f g |   % 62
 265         r4 b, c d |   % 63
 266         c'4. b8 ~ b g e a ~ |   % 64
 267         a2 c8 b a4 |   % 65
 268         g1-\fermata |   % 66
 269 %}
 270 }
 271
 272
 273 %
 274 % Chord names
 275 %
 276 Chords = \chordmode
 277 {
 278 %Bah, can't we set this globally?
 279 %       \popChords
 280
 281         % Intro/midtro
 282
 283         e2:5.11 s16 fs4:m7 s16 d8:sus2 |   % 1
 284         s1 |   % 2
 285         e2:5.11 s16 fs4:m7 s16 d8:sus2 |   % 3
 286         s1 |   % 4
 287
 288         % Verse
 289
 290         e2:5.11 s16 fs4:m7 s16 d8:sus2 |   % 5
 291         s1 |   % 6
 292         e2:5.11 s16 fs4:m7 s16 d8:sus2 |   % 7
 293         s1 |   % 8
 294         e2:5.11 s16 fs4:m7 s16 d8:sus2 |   % 9
 295         s1 |   % 10
 296         e2:5.11 s16 fs4:m7 s16 d8:sus2 |   % 11
 297         s1 |   % 12
 298
 299         % Chorus
 300
 301         a1 |   % 13
 302         e1 |   % 14
 303         b1:m9 |   % 15
 304         d1:maj7 |   % 16
 305         a1 |   % 17
 306         e1 |   % 18
 307         b1:m9 |   % 19
 308         d1:maj7 |   % 20
 309
 310         d2:sus2 e:5.11 |   % 21
 311         d2:sus2 e:5.11 |   % 22
 312         d2:sus2 e:5.11 |   % 23
 313         d1:sus2 |   % 24
 314
 315         % Interlude
 316
 317         b1:m7 |   % 25
 318         d1:sus2 |   % 26
 319         b1:m7 |   % 27
 320         d1:sus2 |   % 28
 321         b1:m7 |   % 29
 322         d1:sus2 |   % 30
 323
 324         % Solo
 325
 326         a1 |   % 31
 327         e1 |   % 32
 328         b1:m9 |   % 33
 329         d1:sus2 |   % 34
 330         a1 |   % 35
 331         e1 |   % 36
 332         b1:m9 |   % 37
 333         d2:sus2 e:sus4 |   % 38
 334
 335         % Chorus
 336
 337         a1 |   % 39
 338         e1 |   % 40
 339         b1:m9 |   % 41
 340         d1:sus2 |   % 42
 341         a1 |   % 43
 342         e1 |   % 44
 343         b1:m9 |   % 45
 344         d1:sus2 |   % 46
 345
 346         % Outro
 347
 348         d2:sus2 e:5.11 |   % 47
 349         d2:sus2 e:5.11 |   % 48
 350         d2:sus2 e:5.11 |   % 49
 351         d2:sus2 e:5.11 |   % 50
 352         d2:sus2 e:5.11 |   % 51
 353         d1:sus2 |   % 52
 354 }
 355
 356
 357 %
 358 % Chord rhythms
 359 %
 360
 361 % Use a RhythmicStaff on the chords instead of this?
 362 % It almost works, but not quite. Doesn't collapse chords above to single notes...
 363
 364 Rhythm =
 365 {
 366         \override Staff.TimeSignature #'style = #'()
 367         \override NoteHead #'style = #'slash
 368
 369         % Intro/midtro
 370
 371         c4 c ~ c16 c8. c8 c ~ |   % 1
 372         c4 c c c |   % 2
 373         c4 c ~ c16 c8. c8 c ~ |   % 3
 374         c4 c c c |   % 4
 375
 376         % Verse
 377
 378         c4 c ~ c16 c8. c8 c ~ |   % 5
 379         c4 c c c |   % 6
 380         c4 c ~ c16 c8. c8 c ~ |   % 7
 381         c4 c c c |   % 8
 382         c4 c ~ c16 c8. c8 c ~ |   % 9
 383         c4 c c c |   % 10
 384         c4 c ~ c16 c8. c8 c ~ |   % 11
 385         c4 c c c |   % 12
 386
 387         % Chorus
 388
 389         c4 c c c |   % 13
 390         c4 c c c |   % 14
 391         c4 c c c |   % 15
 392         c4 c c c |   % 16
 393         c4 c c c |   % 17
 394         c4 c c c |   % 18
 395         c4 c c c |   % 19
 396         c4 c c c |   % 20
 397
 398         c4 c c c |   % 21
 399         c4 c c c |   % 22
 400         c4 c c c |   % 23
 401         c4 c c c |   % 24
 402
 403         % Interlude
 404
 405         c4 c c c |   % 25
 406         c4 c c c |   % 26
 407         c4 c c c |   % 27
 408         c4 c c c |   % 28
 409         c4 c c c |   % 29
 410         c4 c c c |   % 30
 411
 412         % Solo
 413
 414         c4 c c c |   % 31
 415         c4 c c c |   % 32
 416         c4 c c c |   % 33
 417         c4 c c c |   % 34
 418         c4 c c c |   % 35
 419         c4 c c c |   % 36
 420         c4 c c c |   % 37
 421         c4 c c c |   % 38
 422
 423         % Chorus
 424
 425         c4 c c c |   % 39
 426         c4 c c c |   % 40
 427         c4 c c c |   % 41
 428         c4 c c c |   % 42
 429         c4 c c c |   % 43
 430         c4 c c c |   % 44
 431         c4 c c c |   % 45
 432         c4 c c c |   % 46
 433
 434         % Outro
 435
 436         c4 c c c |   % 47
 437         c4 c c c |   % 48
 438         c4 c c c |   % 49
 439         c4 c c c |   % 50
 440         c4 c c c |   % 51
 441         c1-\fermata |   % 52
 442 }
 443
 444
 445 Dynamics =
 446 {
 447 %{
 448         % Intro
 449
 450         s4_\f s2. |   % 1
 451         s1*5 |   % 2-6
 452         s4_\fp s s \< s |   % 7
 453         s1 |   % 8
 454
 455         % Verse
 456
 457         s4_\mf s2. |   % 9
 458         s1*8 |   % 10-17
 459         s2. s8 s_\fp |   % 18
 460         s4 \< s2. |   % 19
 461
 462         % Chorus
 463
 464         s4_\f s2. |   % 20
 465         s1*5 |   % 21-25
 466         s4_\fp s2. |   % 26
 467         s8 \< s2.. |   % 27
 468         s4_\f s2. |   % 28
 469         s1*21 |   % 29-49
 470
 471         s4_\fp s2. |   % 50
 472         s8 \< s2. s8 \! |   % 51
 473         s1*9 |   % 52-60
 474         s4_\markup { \italic { rit. } } s2. |   % 61
 475         s1*3 |   % 62-64
 476         s2 s4_\markup { \italic { rit. } } s |   % 65
 477 %}
 478 }
 479
 480
 481 \score
 482 {
 483         <<
 484                 \Global                                         % The "roadmap" that everything else depends on
 485
 486                 \context Staff
 487                 <<
 488                         \new Voice = "lead" \LeadVox
 489                         \new Voice \Riffs
 490                         \new Lyrics \lyricsto "lead" \LeadVoxText
 491                         \new Lyrics \lyricsto "lead" \LeadVoxTextB
 492                         \new Lyrics \lyricsto "vb" \EchoText
 493                         \new Lyrics \lyricsto "vc" \EchoTextB
 494                 >>
 495
 496                 \new ChoirStaff
 497                 <<
 498                         \new ChordNames \Chords
 499 %Capo 3 edition
 500 %                       \new ChordNames \transpose f d \Chords
 501                         \new RhythmicStaff << \Rhythm \Dynamics >>
 502                 >>
 503
 504                 \set Score.skipBars = ##t
 505                 \set Score.melismaBusyProperties = #'()
 506         >>
 507 }
 508
 509
 510 \paper
 511 {
 512         #(define fonts (make-pango-font-tree
 513                 "Times New Roman"
 514                 "JazzText"
 515                 "Luxi Mono"
 516                 (/ staffSize 20)))
 517
 518 % Don't spread staves vertically across last page (default: t)
 519 %       ragged-last-bottom = ##f
 520 % Don't spread staves vertically across the page (default: f)
 521 %       ragged-bottom = ##t
 522 % Allow partial line for last stave (default: f)
 523         ragged-last = ##t
 524
 525 % To find out what's eating the space at the top...
 526 %       annotate-spacing = ##t
 527 %let's try this: [It works! Huzzah!][Nope... :-/]
 528 %       obsolete-page-top-space = 0  top-system-spacing #'basic-distance = #(/ obsolete-page-top-space staff-space)
 529 }