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