Shamusworld >> Repos - music/blob - come-now-is-the-time-to-worship.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 = #22
   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 "Come, Now is the Time to Worship" }
  16 %       composer = \markup { \override #'(font-family . sans) \fontsize #1.3 "M. Barnett" }
  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 % Let's try a chord dictionary
  20 %       subtitle =  \markup { \center-align { "F#m" \fret-diagram-terse #"x;x;4;2;2;2;" } "       " \center-align { "F#m/F" \fret-diagram-terse #"x;x;3;2;2;2;" } "       " \center-align { "F#m/E" \fret-diagram-terse #"x;x;2;2;2;2;" }  "       " \center-align { "F#m/Eb" \fret-diagram-terse #"x;x;1;2;2;2;" }  "       " \center-align { "Em7" \fret-diagram-terse #"o;2;2;o;3;o;" }  "       " \center-align { "A13" \fret-diagram-terse #"x;o;2;o;2;2;" }  }
  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 %
  33 % Song's structure
  34 %
  35 Global =
  36 {
  37         \key d \major
  38         \numericTimeSignature
  39         \time 4/4
  40
  41 %       \once \override TextScript #'padding = #2.0
  42         s1*0^\markup { \italic \bold { Spacey, but imply 16ths } }
  43 % Capo 4 version
  44 %       s1*0^\markup { \hspace #0.0 \raise #2.0 \bigger \bold { "Moderate pop (*** CAPO 4 ***)" } }
  45
  46         % Intro
  47
  48         s1*4 \bar ".|:-||"   % 1-4
  49
  50         % Verse
  51
  52         \repeat volta 2
  53         {
  54                 \mark \markup { \override #'(font-family . sans) { \box { A } } }
  55                 s1*16 |   % 5-20
  56         }
  57         \alternative
  58         {
  59                 {
  60                         s1*2 |   % 21-22
  61                 }
  62                 {
  63                         s1 |   % 23
  64                 }
  65         }
  66
  67         s1 \bar "||"   % 24
  68
  69         % Chorus
  70
  71         \mark \markup { \override #'(font-family . sans) { \box { B } } }
  72         s1*9 \bar "||"   % 25-33
  73
  74         \key e \major
  75
  76         % Verse
  77
  78         \mark \markup { \override #'(font-family . sans) { \box { C } } }
  79         s1*18 |   % 34-51
  80
  81         % Chorus
  82
  83         \repeat volta 2
  84         {
  85                 \mark \markup { \override #'(font-family . sans) { \box { D } } }
  86                 s1*8 |   % 52-59
  87         }
  88         \alternative
  89         {
  90                 {
  91                         s1 |   % 60
  92                 }
  93                 {
  94                         s1 \bar "||"   % 61
  95                 }
  96         }
  97
  98         \mark \markup { \override #'(font-family . sans) { \box { E } } }
  99         s1*16 |   % 62-77
 100
 101         \repeat volta 2
 102         {
 103                 \mark \markup { \override #'(font-family . sans) { \box { F } } }
 104                 s1*4 |   % 78-81
 105         }
 106
 107         s1 \bar "|."   % 82
 108 }
 109
 110
 111 %
 112 % Lead vocal
 113 %
 114 LeadVox = \relative c'
 115 {
 116         \clef G
 117         \set tupletSpannerDuration = #(ly:make-moment 1 4)
 118
 119         % Intro
 120
 121         R1*4 |   % 1-4
 122
 123         % Verse
 124
 125         <fs \hn d \hn a>2 r |   % 5
 126         <e \hn b \hn g>8 <fs \hn d \hn a> <g \hn e \hn b> <fs \hn d \hn a> ( ~ <fs \hn d \hn a> <e \hn b \hn g> ) <e \hn b \hn g> <g \hn e \hn b> ( ~ |   % 6
 127         <g \hn e \hn b>2. <fs \hn d \hn a>8 ) <fs \hn d \hn a> ~ |   % 7
 128         <fs \hn d \hn a>2. r4 |   % 8
 129         <e \hn cs \hn a>2 r |   % 9
 130         <e \hn cs \hn a>8 <fs \hn d \hn a> <g \hn e \hn b> <fs \hn d \hn a> ( ~ <fs \hn d \hn a> <e \hn cs \hn a> ) <e \hn cs \hn a> <g \hn e \hn b> ~ |   % 10
 131         <g \hn e \hn b>2 <fs \hn d \hn a>4. ( <d \hn b \hn g>8 ) |   % 11
 132         <d \hn a \hn g>2. r4 |   % 12
 133         <fs \hn d \hn a>2 r |   % 13
 134         <e \hn b \hn g>8 <fs \hn d \hn a> <g \hn e \hn b> <fs \hn d \hn a> ( ~ <fs \hn d \hn a> <e \hn b \hn g> ) <e \hn b \hn g> <g \hn e \hn b> ( ~ |   % 14
 135         <g \hn e \hn b>2. <fs \hn d \hn a>8 ) <fs \hn d \hn a> ~ |   % 15
 136         <fs \hn d \hn a>2. r4 |   % 16
 137         <e \hn cs \hn a>1 |   % 17
 138         <e \hn cs \hn a>8 <fs \hn d \hn a> <g \hn e \hn b> <fs \hn d \hn a> ( ~ <fs \hn d \hn a> <e \hn cs \hn a> ) <e \hn cs \hn a> <g \hn e \hn b> ~ |   % 18
 139         <g \hn e \hn b>2 <fs \hn d \hn a>4. ( <d \hn b \hn g>8 ) |   % 19
 140         <d \hn a \hn g>2. r4 |   % 20
 141
 142         d1 |   % 21
 143         r1 |   % 22
 144
 145         <d \hn a \hn fs>1 |   % 23
 146
 147         r1 |   % 24
 148
 149         % Chorus
 150
 151         <b' \hn g \hn d>8 <b \hn g \hn d> <b \hn g \hn d> <b \hn g \hn d> <b \hn g \hn d> <a \hn fs \hn d> <g \hn e \hn b> <a \hn fs \hn d> ~ |   % 25
 152         <a \hn fs \hn d>8 <a \hn fs \hn d> <a \hn fs \hn d> <fs \hn d \hn a> ~ <fs \hn d \hn a>4 r |   % 26
 153         <b \hn g \hn d>8 <b \hn g \hn d> <b \hn g \hn d> <b \hn g \hn d> <b \hn g \hn d> <a \hn fs \hn d> <g \hn d \hn b>16 ( <a \hn fs \hn d> ) <a \hn fs \hn d>8 ~ |   % 27
 154         <a \hn fs \hn d>2. r4 |   % 28
 155         <b \hn g \hn d>8 <b \hn g \hn d> <b \hn g \hn d> <b \hn g \hn d> <b \hn g \hn d> <b \hn g \hn d> <cs \hn a \hn e> <d \hn b \hn fs> ~ |   % 29
 156         <d \hn b \hn fs>8 <cs \hn a \hn e>4 <b \hn fs \hn d>8 ~ <b \hn fs \hn d>4 <a \hn fs \hn d>8 <b \hn g \hn d> ~ |   % 30
 157         <b \hn g \hn d>8 <a \hn fs \hn d> r <a \hn d, \hn b> ~ <a \hn d, \hn b>4 <a \hn d, \hn b>8 <a \hn e \hn d> ~ |   % 31
 158         <a \hn e \hn d>1 |   % 32
 159         r1 |   % 33
 160
 161         % Verse
 162
 163         <gs \hn e \hn b>2 r |   % 34
 164         <fs \hn cs \hn a>8 <gs \hn e \hn b> <a \hn fs \hn cs> <gs \hn e \hn b> ( ~ <gs \hn e \hn b> <fs \hn cs \hn a> ) <fs \hn cs \hn a> <a \hn fs \hn cs> ( ~ |   % 35
 165         <a \hn fs \hn cs>2. <gs \hn e \hn b>8 ) <gs \hn e \hn b> ~ |   % 36
 166         <gs \hn e \hn b>2. r4 |   % 37
 167         <fs \hn ds \hn b>2 r |   % 38
 168         <fs \hn ds \hn b>8 <gs \hn e \hn b> <a \hn fs \hn cs> <gs \hn e \hn b> ( ~ <gs \hn e \hn b> <fs \hn ds \hn b> ) <fs \hn ds \hn b> <a \hn fs \hn cs> ~ |   % 39
 169         <a \hn fs \hn cs>2 <gs \hn e \hn b>4. ( <e \hn cs \hn a>8 ) |   % 40
 170         <e \hn b \hn a>2. r4 |   % 41
 171         <gs \hn e \hn b>2 r |   % 42
 172         <fs \hn cs \hn a>8 <gs \hn e \hn b> <a \hn fs \hn cs> <gs \hn e \hn b> ( ~ <gs \hn e \hn b> <fs \hn cs \hn a> ) <fs \hn cs \hn a> <a \hn fs \hn cs> ( ~ |   % 43
 173         <a \hn fs \hn cs>2. <gs \hn e \hn b>8 ) <gs \hn e \hn b> ~ |   % 44
 174         <gs \hn e \hn b>2. r4 |   % 45
 175         <fs \hn ds \hn b>1 |   % 46
 176         <fs \hn ds \hn b>8 <gs \hn e \hn b> <a \hn fs \hn cs> <gs \hn e \hn b> ( ~ <gs \hn e \hn b> <fs \hn ds \hn b> ) <fs \hn ds \hn b> <a \hn fs \hn cs> ~ |   % 47
 177         <a \hn fs \hn cs>2 <gs \hn e \hn b>4. ( <e \hn cs \hn a>8 ) |   % 48
 178         <e \hn b \hn a>2. r4 |   % 49
 179         <e \hn b \hn gs>2. r4 |   % 50
 180         r1 |   % 51
 181
 182         % Chorus
 183
 184         <cs' \hn a \hn e>8 <cs \hn a \hn e> <cs \hn a \hn e> <cs \hn a \hn e> <cs \hn a \hn e> <b \hn gs \hn e> <a \hn fs \hn cs> <b \hn gs \hn e> ~ |   % 52
 185         <b \hn gs \hn e>8 <b \hn gs \hn e> <b \hn gs \hn e> <gs \hn e \hn b> ~ <gs \hn e \hn b>4 r |   % 53
 186         <cs \hn a \hn e>8 <cs \hn a \hn e> <cs \hn a \hn e> <cs \hn a \hn e> <cs \hn a \hn e> <b \hn gs \hn e> <a \hn e \hn cs>16 ( <b \hn gs \hn e> ) <b \hn gs \hn e>8 ~ |   % 54
 187         <b \hn gs \hn e>2. r4 |   % 55
 188         <cs \hn a \hn e>8 <cs \hn a \hn e> <cs \hn a \hn e> <cs \hn a \hn e> <cs \hn a \hn e> <cs \hn a \hn e> <ds \hn b \hn fs> <e \hn cs \hn gs> ~ |   % 56
 189         <e \hn cs \hn gs>8 <ds \hn b \hn fs>4 <cs \hn gs \hn e>8 ~ <cs \hn gs \hn e>4 <b \hn gs \hn e>8 <cs \hn a \hn e> ~ |   % 57
 190         <cs \hn a \hn e>8 <b \hn gs \hn e> r <b \hn e, \hn cs> ~ <b \hn e, \hn cs>4 <b \hn e, \hn cs>8 <b \hn fs \hn e> ~ |   % 58
 191         <b \hn fs \hn e>1 |   % 59
 192
 193         r1 |   % 60
 194
 195         r1 |   % 61
 196
 197         <gs \hn e \hn b>2 r |   % 62
 198         <fs \hn cs \hn a>8 <gs \hn e \hn b> <a \hn fs \hn cs> <gs \hn e \hn b> ( ~ <gs \hn e \hn b> <fs \hn cs \hn a> ) <fs \hn cs \hn a> <a \hn fs \hn cs> ( ~ |   % 63
 199         <a \hn fs \hn cs>2. <gs \hn e \hn b>8 ) <gs \hn e \hn b> ~ |   % 64
 200         <gs \hn e \hn b>2. r4 |   % 65
 201         <fs \hn ds \hn b>2 r |   % 66
 202         <fs \hn ds \hn b>8 <gs \hn e \hn b> <a \hn fs \hn cs> <gs \hn e \hn b> ( ~ <gs \hn e \hn b> <fs \hn ds \hn b> ) <fs \hn ds \hn b> <a \hn fs \hn cs> ~ |   % 67
 203         <a \hn fs \hn cs>2 <gs \hn e \hn b>4. ( <e \hn cs \hn a>8 ) |   % 68
 204         <e \hn b \hn a>2. r4 |   % 69
 205         gs1 |   % 70
 206         fs8 gs a gs ( ~ gs fs ) fs a ( ~ |   % 71
 207         a2. gs8 ) gs ~ |   % 72
 208         gs1 |   % 73
 209         fs1 |   % 74
 210         fs8 gs a gs ( ~ gs fs ) fs a ~ |   % 75
 211         a2 gs4. ( e8 ) |   % 76
 212         e1 |   % 77
 213
 214         <e \hn b \hn gs>1 |   % 78
 215         s1 |   % 79
 216         <e \hn b \hn gs>1 |   % 80
 217         s1 |   % 81
 218
 219         <e \hn b \hn gs>1-\fermata |   % 82
 220 }
 221
 222
 223 LeadVoxText = \lyricmode
 224 {
 225         Come, now is the time _ _ to wor -- _ _ ship, _
 226         Come, now is the time _ _ to give _ your _ heart,
 227         Come, just as you are _ _ to wor -- _ _ ship, _
 228         Come, just as you are _ _ be -- fore _ your _ God,
 229         Come,
 230
 231         Come.
 232
 233         One day ev’ -- ry tongue will con -- fess _ you are God, _
 234         One day ev’ -- ry knee _ will bow _ _
 235         Still the great -- est trea -- sure re -- mains _ for those _
 236         who glad -- _ ly choose _ you now. _
 237
 238         Come, now is the time _ _ to wor -- _ _ ship, _
 239         Come, now is the time _ _ to give _ your _ heart,
 240         Come, just as you are _ _ to wor -- _ _ ship, _
 241         Come, just as you are _ _ be -- fore _ your _ God,
 242         Come,
 243
 244         One day ev’ -- ry tongue will con -- fess _ you are God, _
 245         One day ev’ -- ry knee _ will bow _ _
 246         Still the great -- est trea -- sure re -- mains _ for those _
 247         who glad -- _ ly choose _ you now. _
 248
 249         Come, now is the time _ _ to wor -- _ _ ship, _
 250         Come, now is the time _ _ to give _ your _ heart,
 251         Come, just as you are _ _ to wor -- _ _ ship, _
 252         Come, just as you are _ _ be -- fore _ your _ God,
 253         Come,
 254         Come,
 255         Come.
 256 }
 257
 258
 259 Riffs = \relative c'
 260 {
 261         \set tupletSpannerDuration = #(ly:make-moment 1 4)
 262
 263         % Intro
 264
 265         \tiny
 266         s1*78 |   % 1-78
 267         fs8 gs a gs ~ gs fs ~ fs4 |   % 79
 268         s1 |   % 80
 269         fs8 gs a gs ~ gs fs ~ fs4 |   % 81
 270         \normalsize
 271 }
 272
 273
 274 %
 275 % Chord names
 276 %
 277 Chords = \chordmode
 278 {
 279         % Intro
 280
 281         d1:sus2 |   % 1
 282         s1 |   % 2
 283         s1 |   % 3
 284         s1 |   % 4
 285
 286         % Verse
 287
 288         d1 |   % 5
 289         s2.. e8:m7/d |   % 6
 290         s2.. d8 |   % 7
 291         s1 |   % 8
 292         a1 |   % 9
 293         s2.. e8:m7 |   % 10
 294         s2 d/e |   % 11
 295         g1:sus2 |   % 12
 296         d1 |   % 13
 297         s2.. e8:m7/d |   % 14
 298         s2.. d8 |   % 15
 299         s1 |   % 16
 300         a1 |   % 17
 301         s2.. e8:m7 |   % 18
 302         s2 d/e |   % 19
 303         g1:sus2 |   % 20
 304
 305         d1:sus2 |   % 21
 306         s2 e:m7/d |   % 22
 307
 308         d1:sus2 |   % 23
 309
 310         s2 d/fs |   % 24
 311
 312         % Chorus
 313
 314         g1 |   % 25
 315         d1 |   % 26
 316         g1 |   % 27
 317         d1 |   % 28
 318         g2.. b8:m7 |   % 29
 319         s2.. e8:m7 |   % 30
 320         s4. g8:sus2 s4. a8:sus4 |   % 31
 321         s1 |   % 32
 322         a2 b4:sus4 b |   % 33
 323
 324         % Verse
 325
 326         e1 |   % 34
 327         s2.. fs8:m7/e |   % 35
 328         s2.. e8 |   % 36
 329         s1 |   % 37
 330         b1 |   % 38
 331         s2.. fs8:m7 |   % 39
 332         s2 e/fs |   % 40
 333         a1:sus2 |   % 41
 334         e1 |   % 42
 335         s2.. fs8:m7/e |   % 43
 336         s2.. e8 |   % 44
 337         s1 |   % 45
 338         b1 |   % 46
 339         s2.. fs8:m7 |   % 47
 340         s2 e/fs |   % 48
 341         a1:sus2 |   % 49
 342         e1 |   % 50
 343         s2 e/gs |   % 51
 344
 345         % Chorus
 346
 347         a1 |   % 52
 348         e1 |   % 53
 349         a1 |   % 54
 350         e1 |   % 55
 351         a2.. cs8:m7 |   % 56
 352         s2.. fs8:m7 |   % 57
 353         s4. a2:sus2 b8:sus4 |   % 58
 354         s1 |   % 59
 355
 356         b2 e/gs |   % 60
 357
 358         b1 |   % 61
 359
 360         e1 |   % 62
 361         s2.. fs8:m7/e |   % 63
 362         s2.. e8 |   % 64
 363         s1 |   % 65
 364         b1 |   % 66
 365         s2.. fs8:m7 |   % 67
 366         s2 e/fs |   % 68
 367         a1:sus2 |   % 69
 368         e1 |   % 70
 369         s2.. fs8:m7/e |   % 71
 370         s2.. e8 |   % 72
 371         s1 |   % 73
 372         b1 |   % 74
 373         s2.. fs8:m7 |   % 75
 374         s2 e/fs |   % 76
 375         a1:sus2 |   % 77
 376
 377         e1 |   % 78
 378         s1 |   % 79
 379         s1 |   % 80
 380         s1 |   % 81
 381
 382         e1 |   % 82
 383 }
 384
 385
 386 %
 387 % Chord rhythms
 388 %
 389 % Use a RhythmicStaff on the chords instead of this?
 390 % It almost works, but not quite. Doesn't collapse chords above to single notes...
 391 %
 392 Rhythm = \relative c
 393 {
 394         \numericTimeSignature
 395         \override NoteHead #'style = #'slash
 396 %Not small enough... (?)
 397         \teeny
 398 %       \magnify #0.3
 399
 400         % Intro
 401
 402         c1 ~ |   % 1
 403         c1 |   % 2
 404         c1 ~ |   % 3
 405         c1 |   % 4
 406
 407         % Verse
 408
 409          |   % 5
 410          |   % 6
 411          |   % 7
 412          |   % 8
 413          |   % 9
 414          |   % 10
 415          |   % 11
 416          |   % 12
 417          |   % 13
 418          |   % 14
 419          |   % 15
 420          |   % 16
 421          |   % 17
 422          |   % 18
 423          |   % 19
 424          |   % 20
 425
 426          |   % 21
 427          |   % 22
 428
 429          |   % 23
 430
 431          |   % 24
 432
 433         % Chorus
 434
 435          |   % 25
 436          |   % 26
 437          |   % 27
 438          |   % 28
 439          |   % 29
 440          |   % 30
 441          |   % 31
 442          |   % 32
 443          |   % 33
 444
 445         % Verse
 446
 447          |   % 34
 448          |   % 35
 449          |   % 36
 450          |   % 37
 451          |   % 38
 452          |   % 39
 453          |   % 40
 454          |   % 41
 455          |   % 42
 456          |   % 43
 457          |   % 44
 458          |   % 45
 459          |   % 46
 460          |   % 47
 461          |   % 48
 462          |   % 49
 463          |   % 50
 464          |   % 51
 465
 466         % Chorus
 467
 468          |   % 52
 469          |   % 53
 470          |   % 54
 471          |   % 55
 472          |   % 56
 473          |   % 57
 474          |   % 58
 475          |   % 59
 476
 477          |   % 60
 478
 479          |   % 61
 480
 481          |   % 62
 482          |   % 63
 483          |   % 64
 484          |   % 65
 485          |   % 66
 486          |   % 67
 487          |   % 68
 488          |   % 69
 489          |   % 70
 490          |   % 71
 491          |   % 72
 492          |   % 73
 493          |   % 74
 494          |   % 75
 495          |   % 76
 496          |   % 77
 497
 498          |   % 78
 499          |   % 79
 500          |   % 80
 501          |   % 81
 502
 503          |   % 82
 504 }
 505
 506
 507 Dynamics =
 508 {
 509 %       s1*4 |   % 1-4
 510 %       s4_\markup { \italic { 1st X: Melody, 2nd X+: Solos } } s2. |   % 5
 511 %       s1*38 |   % 1-38
 512 %       s4_\markup { \bold \italic { Double Chorus 2nd X } } s2. |   % 39
 513 %       s1*7 |   % 40-46
 514 %       s4_\markup { \bold { Tutti } } s2. |   % 47
 515 %       s4 |   % 0
 516 %       s2.*39 |   % 1-39
 517 %       s4_\markup { \large \bold \italic { Solo } } s2 |   % 40
 518 }
 519
 520
 521 \score
 522 {
 523         <<
 524                 \set Score.skipBars = ##t
 525                 \set Score.melismaBusyProperties = #'()
 526
 527 %               \new Staff
 528                 <<
 529                         \new ChordNames \Chords
 530 %Capo 4 edition
 531 %                       \new ChordNames \transpose b g \Chords
 532                         \new RhythmicStaff << \Rhythm \Dynamics >>
 533                 >>
 534
 535                 \new Staff
 536                 <<
 537                         \Global         % The "roadmap" that everything else depends on
 538                         \new Voice = "lead" \LeadVox
 539                         \new Voice \Riffs
 540                         \new Lyrics \lyricsto "lead" \LeadVoxText
 541                 >>
 542         >>
 543 }
 544
 545
 546 \paper
 547 {
 548         #(define fonts (make-pango-font-tree
 549                 "Times New Roman"
 550                 "JazzText"
 551                 "Luxi Mono"
 552                 (/ staffSize 20)))
 553
 554 % Spread staves vertically across last page (default: t)
 555 %       ragged-last-bottom = ##f
 556 % Don't spread staves vertically across the page (default: f)
 557 %       ragged-bottom = ##t
 558 % Allow partial line for last stave (default: f)
 559         ragged-last = ##t
 560
 561 % To find out what's eating the space at the top...
 562 %       annotate-spacing = ##t
 563 }
 564