Shamusworld >> Repos - music/blob - here-i-am-to-worship.ly

   1 \version "2.19.48"
   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 "Here I Am To Worship" }
  18         composer = \markup { \override #'(font-family . sans) \fontsize #1.3 "T. Hughes" }
  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 % Song's structure
  33 %
  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 \italic { Piano only } }
  45         \partial 4*2 s2 |   % 0
  46         s1*5 \bar "||"   % 1-5
  47
  48         \repeat volta 2
  49         {
  50                 % Verse
  51
  52                 \mark \markup { \override #'(font-family . sans) { \box { A } } }
  53                 s1*9 \bar "||"   % 6-14
  54
  55                 % Chorus
  56
  57 %               \mark \markup { \override #'(font-family . sans) { \box { B } } }
  58 \once \override Score.RehearsalMark #'self-alignment-X = #left
  59 \mark \markup { \override #'(font-family . sans) { \box { B } } \hspace #1.0 \raise #2.0 \musicglyph #"scripts.segno" }
  60                 s1*7 |   % 15-21
  61         }
  62         \alternative
  63         {
  64                 {
  65 \once \override Score.RehearsalMark #'self-alignment-X = #right
  66 \once \override Score.RehearsalMark #'break-visibility = #begin-of-line-invisible
  67 \mark \markup { \italic { to Coda } \hspace #1.0 \musicglyph #"scripts.coda" }
  68                         s1*2 |   % 22-23
  69                 }
  70                 {
  71                         s1 |   % 24
  72                 }
  73         }
  74
  75         \repeat volta 2
  76         {
  77                 \mark \markup { \override #'(font-family . sans) { \box { C } } }
  78                 s1*3 |   % 25-27
  79         }
  80         \alternative
  81         {
  82                 {
  83                         s1 |   % 28
  84                 }
  85                 {
  86                         s1 |   % 29
  87                 }
  88         }
  89
  90         s1 |   % 30
  91
  92         \once \override Score.RehearsalMark #'self-alignment-X = #right
  93         \mark \markup { \italic { D.S. al Coda } }
  94
  95         % blank measure between last measure and coda
  96         \stopStaff s1 \startStaff
  97         \set Score.currentBarNumber = #31
  98
  99         % Coda
 100
 101         \once \override Score.RehearsalMark #'self-alignment-X = #left
 102         \mark \markup { { \musicglyph #"scripts.coda" } "Coda" }
 103         s1 \bar "||"   % 31
 104
 105         \mark \markup { \override #'(font-family . sans) { \box { D } } }
 106         s1*8 \bar "||"   % 32-39
 107
 108         \mark \markup { \override #'(font-family . sans) { \box { E } } }
 109         s1*8 \bar "|."  % 40-47
 110 }
 111
 112
 113 %
 114 % Lead vocal
 115 %
 116
 117 LeadVox = \relative c''
 118 {
 119         \clef G
 120         \override Score.SpacingSpanner #'average-spacing-wishes = ##f
 121
 122         % Intro
 123
 124         s2 |   % 0
 125         s1 |   % 1
 126         s1 |   % 2
 127         s1 |   % 3
 128         s1 |   % 4
 129         s1 |   % 5
 130
 131         % Verse
 132
 133         <gs \hn e \hn b>4 <gs \hn e \hn b>8 <a \hn e \hn b> <fs \hn e \hn b>4 <fs \hn ds \hn b>8 <gs \hn e \hn b> |   % 6
 134         <a \hn e \hn cs>4 <gs \hn e \hn cs>8 <fs \hn e \hn cs> <fs \hn cs \hn a> e <cs \hn a>4 |   % 7
 135         <gs' \hn e \hn b>4 <gs \hn e \hn b>8 <a \hn e \hn b> <fs \hn e \hn b>4 <fs \hn ds \hn b>8 <gs \hn e \hn b> ~ |   % 8
 136         <gs \hn e \hn b>8 <e \hn b \hn a> ~ <e \hn b \hn a>2 r4 |   % 9
 137         <gs \hn e \hn b>4 <gs \hn e \hn b>8 <a \hn e \hn b> <fs \hn e \hn b>4 <fs \hn ds \hn b>8 <gs \hn e \hn b> |   % 10
 138         <a \hn fs \hn cs>4 <a \hn fs \hn cs>8 <gs \hn e \hn cs> <fs \hn cs \hn a> e <e \hn cs \hn a>4 |   % 11
 139         <gs \hn e \hn b>4 <gs \hn e \hn b>8 <a \hn e \hn b> <fs \hn e \hn b>4 <fs \hn ds \hn b>8 <gs \hn e \hn cs> ~ |   % 12
 140         <gs \hn e \hn cs>8 <e \hn b \hn a> ~ <e \hn b \hn a>2 r4 |   % 13
 141         r4 r8. cs16 <a' \hn fs \hn cs>8 <gs \hn e \hn b> <gs \hn e \hn b> <fs \hn ds \hn b> |   % 14
 142
 143         % Chorus
 144
 145         <gs \hn e \hn b>4 <gs \hn e \hn b> <a \hn fs \hn cs>8 <gs \hn e \hn b> <fs \hn ds \hn b> <e \hn b \hn gs> |   % 15
 146         <fs \hn ds \hn b>4 <fs \hn ds \hn b> <a \hn fs \hn cs>8 <gs \hn e \hn b> <gs \hn e \hn b> <fs \hn ds \hn a> |   % 16
 147         <gs \hn e \hn b>4 <gs \hn e \hn b> <gs \hn e \hn b>8 <b \hn gs \hn e>4 <e, \hn cs \hn a>8 ~ |   % 17
 148         <e \hn cs \hn a>4 r8 cs16 <a' \hn fs> <a \hn fs \hn cs>8 <gs \hn e \hn b> <gs \hn e \hn b> <fs \hn ds \hn b> |   % 18
 149         <gs \hn e \hn b>4 <gs \hn e \hn b> <a \hn fs \hn cs>8 <gs \hn e \hn b> <gs \hn e \hn b> <fs \hn cs \hn gs> |   % 19
 150         <fs \hn ds \hn b>4 <fs \hn ds \hn b> <a \hn fs \hn cs>8 <gs \hn e \hn b> <gs \hn e \hn b> <fs \hn ds \hn gs,> |   % 20
 151         <gs \hn e \hn b>4 <gs \hn e \hn b> <gs \hn e \hn b>8 <b \hn gs \hn e>4 <e, \hn cs \hn a>8 ~ |   % 21
 152
 153         <e \hn cs \hn a>2 s |   % 22
 154         s1 |   % 23
 155
 156         <e \hn cs \hn a>2-\repeatTie r8 b gs' fs ~ |   % 24
 157
 158         % Bridge
 159
 160         fs4 <fs \hn ds \hn b>8 <gs \hn e \hn b> ~ <gs \hn e \hn b>4 <b \hn gs \hn e>8 <a \hn e \hn cs> ~ |   % 25
 161         <a \hn e \hn cs>8 <gs \hn e \hn b>4 <fs \hn e \hn b>8 ~ <fs \hn e \hn b>4 <gs \hn e \hn b>8 <fs \hn ds \hn b>8 ~ |   % 26
 162         <fs \hn ds \hn b>4 <fs \hn ds \hn b>8 <gs \hn e \hn cs> ~ <gs \hn e \hn cs>4 <b \hn fs \hn e>8 <a \hn e \hn cs> ~ |   % 27
 163
 164         a8 gs4 fs8 ~ fs b, <gs' \hn e> <gs \hn ds \hn b> |   % 28
 165
 166         <a \hn e \hn cs>8-\repeatTie <gs \hn e \hn cs>4 <fs \hn e \hn b>8 ~ <fs \hn e \hn b>2 ~ |   % 29
 167
 168         <fs \hn e \hn b>4 r8. cs16 <a' \hn fs \hn cs>8 <gs \hn e \hn b> <gs \hn e \hn b> <fs \hn ds \hn b> |   % 30
 169
 170         s1 % blank bar for coda
 171
 172         % Coda
 173
 174         <e \hn cs>4.-\repeatTie ~ <e \hn cs>16 cs <a' \hn fs>8 <gs \hn e> <gs \hn e> <fs \hn ds> |   % 31
 175
 176         <gs \hn e>4 <gs \hn e> <a \hn fs>8 <gs \hn e> <fs \hn ds> <e \hn b> |   % 32
 177         <fs \hn ds>4 <fs \hn ds> <a \hn fs>8 <gs \hn e> <gs \hn e> <fs \hn ds> |   % 33
 178         <gs \hn e>4 <gs \hn e> <gs \hn e>8 <b \hn gs>4 <e, \hn cs>8 ~ |   % 34
 179         <e \hn cs>4. cs16 <a' \hn fs> <a \hn fs>8 <fs \hn e> <gs \hn e> <fs \hn ds> |   % 35
 180         <gs \hn e>4 <gs \hn e> <a \hn fs>8 <gs \hn e> <gs \hn e> <fs \hn cs> |   % 36
 181         <fs \hn ds>4 <fs \hn ds> <a \hn fs>8 <gs \hn e> <gs \hn e> <fs \hn ds> |   % 37
 182         <gs \hn e>4 <gs \hn e> <gs \hn e>8 <b \hn gs>4 <e, \hn cs>8 ~ |   % 38
 183         <e \hn cs>2 r8 b gs' fs ~ |   % 39
 184
 185         fs4 fs8 gs ~ gs4 b8 a ~ |   % 40
 186         a8 gs4 fs8 ~ fs4 e8 fs ~ |   % 41
 187         fs4 fs8 gs ~ gs4 b8 a ~ |   % 42
 188         a8 gs4 fs8 ~ fs8 e ~ e4 ~ |   % 43
 189         e1 |   % 44
 190         s1 |   % 45
 191         s1 |   % 46
 192         s1 |   % 47
 193 }
 194
 195
 196 LeadVoxTextA = \lyricmode
 197 {
 198         Light of the world, you stepped down in -- to dark -- _ ness,
 199         O -- pened my eyes, let me _ see, _
 200         Beau -- ty that made this _ heart _ a -- dore _ you,
 201         Hope of a life spent with _ you. _
 202
 203         So here I am to wor -- ship,
 204         here I am to bow down,
 205         here I am to say that you’re my God, _
 206         And you’re al -- to -- geth -- er love -- ly,
 207         al -- to -- geth -- er wor -- thy,
 208         al -- to -- geth -- er won -- der -- ful to me. _ _
 209
 210         And I’ll ne -- _ ver know _
 211         how much _ it cost _
 212         to see _ my sin _ u -- pon _ that cross _
 213
 214         And I’ll ne
 215         _ that cross. _ _
 216
 217         So here I am to
 218
 219         _ _ So here I am to wor -- ship,
 220         here I am to bow down,
 221         here I am to say that you’re my God, _
 222         and you’re al -- to -- geth -- er love -- ly,
 223         al -- to -- geth -- er wor -- thy,
 224         al -- to -- geth -- er won -- der -- ful to me, _
 225
 226         And I’ll ne -- _ ver know _
 227         how much _ it cost _
 228         to see _ my sin _ u -- pon _ that cross _ _ _ _
 229 }
 230
 231
 232 LeadVoxTextB = \lyricmode
 233 {
 234         King of all days, oh so high -- ly ex -- al -- _ ted,
 235         glo -- rious in hea -- ven a -- _ bove, _
 236         Hum -- bly you came to the Earth you cre -- a -- _ ted,
 237         all for love’s sake be -- came _ poor. _
 238 }
 239
 240
 241 Riffs = \relative c''
 242 {
 243         \tiny
 244         a8 gs gs fs |   % 0
 245         gs4 gs a8 gs fs e |   % 1
 246         fs4 fs a8 gs gs fs |   % 2
 247         gs4 gs gs8 b4 e,8 ~ |   % 3
 248         e16 a, b e ~ e b e gs ~ gs b, e b' ~ b8 b,16 e ~ |   % 4
 249         e16 a, b e ~ e b e gs ~ gs b, e b' ~ b8 b, |   % 5
 250
 251         s1*16 |   % 6-21
 252
 253         r16 a b e ~ e b e gs ~ gs b, e b' ~ b8 b,16 e ~ |   % 22
 254         e16 a, b e ~ e b e gs ~ gs b, e b' ~ b8 b, |   % 23
 255
 256         s1*7 |   % 24-30
 257
 258         s1 % blank bar for Coda
 259
 260         s1*13 |   % 31-43
 261
 262         r16 a b e ~ e b e gs ~ gs b, e b' ~ b8 b,16 e ~ |   % 44
 263         e a, b e ~ e b e gs ~ gs b, e b' ~ b8 b,16 e ~ |   % 45
 264         e16 a, b e ~ e b e gs ~ gs b, e b' ~ b8 b, |   % 46
 265         <a b e>1-\fermata |   % 47
 266         \normalsize
 267 }
 268
 269
 270 %
 271 % Chord names
 272 %
 273
 274 Chords = \chordmode
 275 {
 276         % Intro
 277
 278         s2 |   % 0
 279         e1 |   % 1
 280         b1/ds |   % 2
 281         cs2:m cs:m/b |   % 3
 282         a1:sus2 |   % 4
 283         s1 |   % 5
 284
 285         % Verse
 286
 287         e2 b4:sus4 b |   % 6
 288         fs2:m a |   % 7
 289         e2 b4:sus4 b |   % 8
 290         a1:sus2 |   % 9
 291         e2 b4:sus4 b |   % 10
 292         fs2:m a |   % 11
 293         e2 b4:sus4 b |   % 12
 294         a1:sus2 |   % 13
 295         a1:sus2 |   % 14
 296
 297         % Chorus
 298
 299         e1 |   % 15
 300         b1/ds |   % 16
 301         cs2:m cs:m/b |   % 17
 302         a1:sus2 |   % 18
 303         e1 |   % 19
 304         b1 |   % 20
 305         e1/gs |   % 21
 306
 307         a1:sus2 |   % 22
 308         s1 |   % 23
 309
 310         a1:sus2 |   % 24
 311
 312         % Bridge
 313
 314         b2/ds e |   % 25
 315         a1:sus2 |   % 26
 316         b2 cs:m |   % 27
 317
 318         a1:sus2 |   % 28
 319
 320         a1:sus2 |   % 29
 321         b1:sus4 |   % 30
 322
 323         % Coda
 324
 325         s1 % blank
 326
 327         a1:sus2 |   % 31
 328         e1 |   % 32
 329         b1/ds |   % 33
 330         cs2:m cs:m/b |   % 34
 331         a1:sus2 |   % 35
 332         e1 |   % 36
 333         b1 |   % 37
 334         e1/gs |   % 38
 335         a1:sus2 |   % 39
 336
 337         b2/ds e |   % 40
 338         a1:sus2 |   % 41
 339         b2 cs:m |   % 42
 340         a1:sus2 |   % 43
 341         a1:sus2 |   % 44
 342         s1 |   % 45
 343         s1 |   % 46
 344         a1:sus2 |   % 47
 345 }
 346
 347
 348 %
 349 % Chord rhythms
 350 %
 351
 352 % Use a RhythmicStaff on the chords instead of this?
 353 % It almost works, but not quite. Doesn't collapse chords above to single notes...
 354
 355 Rhythm = \relative c
 356 {
 357         \override NoteHead #'style = #'slash
 358         \teeny
 359
 360         % Intro
 361
 362         s2 |   % 0
 363         c1 |   % 1
 364         c1 |   % 2
 365         c2 c |   % 3
 366         c1 |   % 4
 367         c1 |   % 5
 368
 369         % Verse
 370
 371         c4 c c c |   % 6
 372         c4 c c c |   % 7
 373         c4 c c c |   % 8
 374         c4 c c c |   % 9
 375         c4 c c c |   % 10
 376         c4 c c c |   % 11
 377         c4 c c c |   % 12
 378         c4 c c c |   % 13
 379         c1 |   % 14
 380
 381         % Chorus
 382
 383         c4 c c c |   % 15
 384         c4 c c c |   % 16
 385         c4 c c c |   % 17
 386         c4 c c c |   % 18
 387         c4 c c c |   % 19
 388         c4 c c c |   % 20
 389         c4 c c c |   % 21
 390
 391         c1 |   % 22
 392         c1 |   % 23
 393
 394         c4 c c c |   % 24
 395
 396         % Bridge
 397
 398         c4 c c c |   % 25
 399         c4 c c c |   % 26
 400         c4 c c c |   % 27
 401         c4 c c c |   % 28
 402
 403         c4 c c c |   % 29
 404         c4 c c c |   % 30
 405
 406         % Coda
 407
 408         % blank measure between last measure and coda
 409 %hm. Shouldn't need /startStaff /stopStaff... !!! FIX !!!
 410         \stopStaff s1 \startStaff
 411
 412         c4 c c c |   % 31
 413         c4 c c c |   % 32
 414         c4 c c c |   % 33
 415         c4 c c c |   % 34
 416         c4 c c c |   % 35
 417         c4 c c c |   % 36
 418         c4 c c c |   % 37
 419         c4 c c c |   % 38
 420         c4 c c c |   % 39
 421
 422         c2 c |   % 40
 423         c2 c |   % 41
 424         c2 c |   % 42
 425         c2 c4 c |   % 43
 426         c1 |   % 44
 427         c1 |   % 45
 428         c1 |   % 46
 429         c1^\fermata |   % 47
 430 }
 431
 432
 433 Dynamics =
 434 {
 435 %{
 436         s1*12 |   % 1-12
 437         s4_\markup { \italic { Add bass, pad } } s2. |   % 13
 438         s1*7 |   % 14-20
 439         s4_\markup { \italic { Add perc, Ac. gtrs. } } s2. |   % 21
 440         s1*28 |   % 22-49
 441         s4_\markup { \italic { Piano only, like intro } } s2. |   % 50
 442         s1*2 |   % 51-52
 443         s4_\markup { \italic { Full band } } s2. |   % 53
 444 %}
 445         s2_\mf |   % 0
 446         s1*3 |   % 1-3
 447         s4_\markup { \italic { add cymbal colors } } s2. |   % 5
 448         s2 s16 s \> s4 s16 s \! |   % 5
 449
 450         % Verse
 451
 452         s4_\markup { \italic { Unison 1st X } } s2. |   % 6
 453         s1*8 |   % 7-14
 454
 455         % Chorus
 456
 457         s4_\markup { \italic { snare on D.S. } } s2. |   % 15
 458         s1*9 |   % 16-24
 459
 460         % Bridge
 461
 462         s4_\markup { \italic { Unison 1st X } } s2. |   % 25
 463         s1*4 |   % 26-29
 464         s4.. s16_\markup { \italic { big fill } } \< s4. s8-\f |   % 30
 465
 466         s1 % blank bar for coda
 467
 468         % Coda
 469
 470         s2 s8 \< s4 s8 \! |   % 31
 471         s4_\ff s2. |   % 32
 472         s1*6 |   % 33-38
 473         s2 s8 \> s4 s8-\mp |   % 39
 474
 475         s4_\markup { \italic { floating } } s2. |   % 40
 476 }
 477
 478
 479 \score
 480 {
 481 %{
 482         <<
 483                 <<
 484 %                       \new Staff = leadStaff { \new Voice = "lead" \LeadVox }
 485                         \new Staff = leadStaff { << \new Voice = "lead" \LeadVox \new Voice = "riffs" \Riffs >> }
 486                         \new Lyrics \lyricsto "lead" \LeadVoxText
 487                 >>
 488
 489                 \new ChoirStaff = "Rhythm"
 490                 <<
 491                         \new ChordNames = "chords" \Chords
 492                         \new RhythmicStaff = "chordRhythm" << \StaffC \Dynamics >>
 493                 >>
 494
 495                 \set Score.skipBars = ##t
 496                 \set Score.melismaBusyProperties = #'()
 497         >>
 498 %}
 499         <<
 500                 \set Score.skipBars = ##t
 501                 \set Score.melismaBusyProperties = #'()
 502
 503                 \new Staff
 504                 <<
 505                         \Global   % The "roadmap" that everything else depends on
 506                         \new Voice = "lead" \LeadVox
 507                         \new Voice \Riffs
 508                         \new Lyrics \lyricsto "lead" \LeadVoxTextA
 509                         \new Lyrics \lyricsto "lead" \LeadVoxTextB
 510                 >>
 511
 512 %               \new Staff
 513                 <<
 514                         \new ChordNames \Chords
 515                         \new RhythmicStaff << \Rhythm \Dynamics >>
 516                 >>
 517         >>
 518 }
 519
 520
 521 \paper
 522 {
 523   #(define fonts (make-pango-font-tree
 524     "Times New Roman"
 525     "JazzText"
 526     "Luxi Mono"
 527     (/ staffSize 20)))
 528
 529 % Spread staves vertically across last page (default: t)
 530 %       ragged-last-bottom = ##f
 531 % Don't spread staves vertically across the page (default: f)
 532 %       ragged-bottom = ##t
 533 % Allow partial line for last stave (default: f)
 534         ragged-last = ##t
 535
 536 % To find out what's eating the space at the top...
 537 %       annotate-spacing = ##t
 538 %let's try this: [It works! Huzzah!][nope... :-/]
 539 %       obsolete-page-top-space = 0  top-system-spacing #'basic-distance = #(/ obsolete-page-top-space staff-space)
 540 }
 541