Shamusworld >> Repos - music/blob - if-we-are-the-body.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 = #18
   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 "If We Are The Body" }
  18         composer = \markup { \override #'(font-family . sans) \fontsize #1.3 "Casting Crowns" }
  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 fs \minor
  38 % Transposed edition
  39         \key e \minor
  40         \override Staff.TimeSignature #'style = #'()
  41         \time 4/4
  42
  43         % Intro
  44
  45         \repeat volta 2
  46         {
  47                 s1*2 |   % 1-2
  48         }
  49
  50         \repeat volta 2
  51         {
  52                 % Verse
  53
  54                 s1*4 \bar "||"   % 3-6
  55
  56                 \mark \markup { \override #'(font-family . sans) { \box { A } } }
  57
  58                 s1*16 \bar "||"   % 7-22
  59
  60                 % Chorus
  61
  62                 \mark \markup { \override #'(font-family . sans) { \box { B } } }
  63
  64                 s1*15 |   % 23-37
  65         }
  66         \alternative
  67         {
  68                 {
  69                         s1*5 |   % 38-42
  70                 }
  71                 {
  72                         s1 |   % 43
  73                 }
  74         }
  75
  76         % Bridge
  77
  78         \mark \markup { \override #'(font-family . sans) { \box { C } } }
  79
  80         s1*8 |   % 44-51
  81
  82         \repeat volta 2
  83         {
  84                 % Chorus
  85
  86                 \mark \markup { \override #'(font-family . sans) { \box { D } } }
  87
  88                 s1*14 |   % 52-65
  89         }
  90         \alternative
  91         {
  92                 {
  93                         s1*2 |   % 66-67
  94                 }
  95                 {
  96                         s1 |   % 68
  97                 }
  98         }
  99
 100         % Outro
 101
 102         s1*3 |   % 69-71
 103
 104         \repeat volta 2
 105         {
 106                 s1*2 |   % 72-73
 107         }
 108
 109         s1 \bar "|."   % 74
 110
 111
 112 %{
 113
 114 %       \once \override TextScript #'padding = #2.0
 115 %       s1*0^\markup { \large \bold { Moderately fast pop } }
 116 %%Capo 3 version
 117 %%      s1*0^\markup { \large \bold { Moderately fast pop "(*** CAPO 3 ***)" } }
 118 %       s1*13 \bar "||:"   % 1-13
 119
 120 %}
 121 }
 122
 123
 124 %
 125 % Lead vocal
 126 %
 127 LeadVox = \relative c'
 128 {
 129         \clef G
 130         \override Score.SpacingSpanner #'average-spacing-wishes = ##f
 131
 132         % Intro
 133
 134         s1*2 |   % 1-2
 135
 136         % Verse
 137
 138         s1*3 |   % 3-5
 139         s2.. fs8 |   % 6
 140
 141         a4. gs8 ~ gs a4. |   % 7
 142         cs4. gs8 ~ gs4 a8 a ~ |   % 8
 143         a4 r r2 |   % 9
 144         r4 fs8 b ~ b a4 a8 ~ |   % 10
 145         a4 r r r8 <\hn ds,> |   % 11
 146         fs4. gs8 ~ gs a4. |   % 12
 147         b4 a gs a8 cs ~ |   % 13
 148         cs8 b4. r4 r8 cs,8 |   % 14
 149         gs'4. a8 ~ a b4. |   % 15
 150         gs4. a8 ~ a cs4. |   % 16
 151         gs4. a8 ~ a b4. |   % 17
 152         b4 a8 b ~ b cs4 << { \voiceTwo a8 ~ } \new Voice = "v" { \voiceOne <\hn b>8 ~ } >> |   % 18
 153         << { \voiceTwo a2 } \context Voice = "v" { \voiceOne <\hn b>8 <\hn a>4. } >> \oneVoice r4 r8 <\hn fs> |   % 19
 154         <\hn cs'>8 <\hn b> b a b a4 a8 ~ ( |   % 20
 155         a8 fs4. ~ fs8 e4. ) |   % 21
 156         r2 r4 a8 a |   % 22
 157
 158         % Chorus
 159
 160         cs8 b a b a4 r |   % 23
 161         r4 e'8 e ~ e e4 e8 ~ |   % 24
 162         e4.cs8 ~ cs b4. |   % 25
 163         r4 e8 e ~ e fs4 e8 ~ |   % 26
 164         e4. b8 ~ b a4. |   % 27
 165         r4 a8 a ~ a b4 cs8 ~ |   % 28
 166         cs4. b8 ~ b a4. |   % 29
 167         r2 r4 a8 a |   % 30
 168         cs8 b a b a4 r |   % 31
 169         r4 e'8 e ~ e e4 e8 ~ |   % 32
 170         e4. cs8 ~ cs b4. |   % 33
 171         r4 e8 e ~ e e4 fs8 ~ |   % 34
 172         fs4 cs b8 a4 e'8 ~ |   % 35
 173         e4 cs8 d ~ d4 cs8 a ~ |   % 36
 174         a2 r2 |   % 37
 175
 176         r4 fs8 b ~ b4 a8 a ~ |   % 38
 177         a4 s2. |   % 39
 178         s1 |   % 40
 179         s1 |   % 41
 180         s1 |   % 42
 181
 182         r1 |   % 43
 183
 184         % Bridge
 185
 186         e'4. e8 ~ e4 e |   % 44
 187         fs4 cs b a8 a ~ |   % 45
 188         a4 r r8 fs a fs |   % 46
 189         cs'8 cs cs4 b a8 b ~ |   % 47
 190         b4 r8 a cs e cs fs ~ |   % 48
 191         fs4. b,8 ~ b a4 a8 ~ |   % 49
 192         a4 r r2 |   % 50
 193         r2 r4 r8 e |   % 51
 194
 195         % Chorus
 196
 197         cs'8 b a b a4 r |   % 52
 198         r4 e'8 e ~ e e4 e8 ~ |   % 53
 199         e4.cs8 ~ cs b4. |   % 54
 200         r4 e8 e ~ e fs4 e8 ~ |   % 55
 201         e4. b8 ~ b a4. |   % 56
 202         r4 a8 a ~ a b4 cs8 ~ |   % 57
 203         cs4. b8 ~ b a4. |   % 58
 204         r2 r4 a8 a |   % 59
 205         cs8 b a b a4 r |   % 60
 206         r4 e'8 e ~ e e4 e8 ~ |   % 61
 207         e4. cs8 ~ cs b4. |   % 62
 208         r4 e8 e ~ e e4 fs8 ~ |   % 63
 209         fs4 cs b8 a4 e'8 ~ |   % 64
 210         e4 cs8 d ~ d4 cs8 a ~ |   % 65
 211
 212         a2 r |   % 66
 213         r2 r4 r8 a |   % 67
 214
 215         a2 \repeatTie r |   % 68
 216
 217         % Outro
 218
 219         b4 a8 b ~ b4 cs8 a ~ ( |   % 69
 220         a8 fs ) s2. |   % 70
 221         s1 |   % 71
 222
 223         s1*2 |   % 72-73
 224
 225         s1 |   % 74
 226 }
 227
 228 LeadVoxText = \lyricmode
 229 {
 230         It’s crowd -- ed _ in wor -- ship _ to -- day, _
 231         and she _ slips in, _
 232         _ try -- ing _ to fade in -- to the fac -- _ es.
 233         The girls’ teas -- _ ing laugh -- ter _ is car -- ry -- _ ing
 234         far -- ther than _ they know, _
 235         _ _ _ far -- ther than they know. __ _ _ _ _
 236
 237         But if we are the bo -- dy,
 238         why aren’t _ his arms _ reach -- _ ing,
 239         why aren’t _ his hands _ heal -- _ ing,
 240         why aren’t _ his words _ teach -- _ ing?
 241         And if we are the bo -- dy,
 242         why aren’t _ his feet _ go -- _ ing,
 243         why is _ his love _ not show -- ing them _ there is _ a way. _
 244         There is _ a way. _
 245
 246         Je -- sus _ paid much too high a price _
 247         for us to pick and choose who should come, _
 248         and we are the bo -- _ dy _ of Christ. _
 249
 250         If we are the bo -- dy,
 251         why aren’t _ his arms _ reach -- _ ing,
 252         why aren’t _ his hands _ heal -- _ ing,
 253         why aren’t _ his words _ teach -- _ ing?
 254         And if we are the bo -- dy,
 255         why aren’t _ his feet _ go -- _ ing,
 256         why is _ his love _ not show -- ing them _ there is _ a way. _
 257
 258         If
 259
 260         _
 261
 262         Jes -- sus is _ the way. __ _ _
 263 }
 264
 265 LeadVoxTextB = \lyricmode
 266 {
 267         A trav -- ’ler _ is far a -- way from home; _
 268         he sheds _ his coat _
 269         and qui -- et -- _ ly sinks in -- to the back _ row.
 270         The weight of _ their judg -- men -- _ tal glanc -- es _
 271         tells him _ that _ his chanc -- es
 272         are bet -- ter out _ on the road. _ _ _ _
 273 }
 274
 275
 276 %
 277 % Riffs
 278 %
 279 Riffs = \relative c''
 280 {
 281         % Intro
 282
 283         \tiny
 284         <a e>4 <a e>4 ~ <a e>8 <a e>4 <gs e>8 ~ |   % 1
 285         <gs e>8 <a e>4 <gs e>8 ~ <gs e> <a e>4. |   % 2
 286         <a e>4 <a e>4 ~ <a e>8 <a e>4 <gs e>8 ~ |   % 3
 287         <gs e>8 <a e>4 <gs e>8 ~ <gs e> <a e>4. |   % 4
 288         <a e>4 <a e>4 ~ <a e>8 <a e>4 <gs e>8 ~ |   % 5
 289         <gs e>8 <a e>4 <gs e>8 ~ <gs e> <a e>4 s8 |   % 6
 290
 291         s1*32 |   % 7-38
 292
 293         s4 <a e>4 ~ <a e>8 <a e>4 <gs e>8 ~ |   % 39
 294         <gs e>8 <a e>4 <gs e>8 ~ <gs e> <a e>4. |   % 40
 295         <a e>4 <a e>4 ~ <a e>8 <a e>4 <gs e>8 ~ |   % 41
 296         <gs e>8 <a e>4 <gs e>8 ~ <gs e> <a e>4. |   % 42
 297
 298         s1*27 |   % 43-69
 299
 300         s4 <a e>4 ~ <a e>8 <a e>4 <gs e>8 ~ |   % 70
 301         <gs e>8 <a e>4 <gs e>8 ~ <gs e> <a e>4. |   % 71
 302         <a e>4 <a e>4 ~ <a e>8 <a e>4 <gs e>8 ~ |   % 72
 303         <gs e>8 <a e>4 <gs e>8 ~ <gs e> <a e>4. |   % 73
 304         <fs a cs e>1-\fermata |   % 74
 305 }
 306
 307
 308 %
 309 % Chord names
 310 %
 311 Chords = \chordmode
 312 {
 313 %Bah, can't we set this globally?
 314 %       \popChords
 315
 316         % Intro
 317
 318         fs1:m7 |   % 1
 319         s1 |   % 2
 320
 321         % Verse
 322
 323         fs1:m7 |   % 3
 324         s1*3 |   % 4-6
 325
 326         fs1:m7 |   % 7
 327         s1 |   % 8
 328         d1:sus2 |   % 9
 329         s1 |   % 10
 330         b1:sus4.7 |   % 11
 331         b1:7 |   % 12
 332         d1:sus2 |   % 13
 333         e4.:sus4 e s4 |   % 14
 334         fs1:m7 |   % 15
 335         s1 |   % 16
 336         d1:sus2 |   % 17
 337         s1 |   % 18
 338         b1:sus4.7 |   % 19
 339         b1:7 |   % 20
 340         d1:sus2 |   % 21
 341         e4.:sus4 e s4 |   % 22
 342
 343         % Chorus
 344
 345         a1 |   % 23
 346         s1 |   % 24
 347         e2:sus4 e |   % 25
 348         e2:sus4 e:5^3 |   % 26
 349         fs1:m11 |   % 27
 350         s1 |   % 28
 351         d1 |   % 29
 352         s1 |   % 30
 353         a1 |   % 31
 354         s1 |   % 32
 355         e2:sus4 e |   % 33
 356         e2:sus4 e:5^3 |   % 34
 357         fs2..:m11 e8 |   % 35
 358         s1 |   % 36
 359         d1:9^7 |   % 37
 360
 361         s1 |   % 38
 362         fs1:m7 |   % 39
 363         s1 |   % 40
 364         s1 |   % 41
 365         s1 |   % 42
 366
 367         s1 |   % 43
 368
 369         % Bridge
 370
 371         e2.. fs8:m |   % 44
 372         s4. e2 d8:sus2 |   % 45
 373         s1 |   % 46
 374         s2.. e8 |   % 47
 375         s2.. fs8:m |   % 48
 376         s4. e2 d8:sus2 |   % 49
 377         s1 |   % 50
 378         s1 |   % 51
 379
 380         % Chorus
 381
 382         a1 |   % 52
 383         s1 |   % 53
 384         e2:sus4 e |   % 54
 385         e2:sus4 e:5^3 |   % 55
 386         fs1:m11 |   % 56
 387         s1 |   % 57
 388         d1 |   % 58
 389         s1 |   % 59
 390         a1 |   % 60
 391         s1 |   % 61
 392         e2:sus4 e |   % 62
 393         e2:sus4 e:5^3 |   % 63
 394         fs2..:m11 e8 |   % 64
 395         s1 |   % 65
 396
 397         d1:9^7 |   % 66
 398         s1 |   % 67
 399
 400         d1:9^7 |   % 68
 401
 402         % Outro
 403
 404         s1 |   % 69
 405         fs1:m7 |   % 70
 406         s1 |   % 71
 407
 408         s1*2 |   % 72-73
 409
 410         s1 |   % 74
 411 }
 412
 413
 414 %
 415 % Chord rhythms
 416 %
 417
 418 % Use a RhythmicStaff on the chords instead of this?
 419 % It almost works, but not quite. Doesn't collapse chords above to single notes...
 420
 421 Rhythm =
 422 {
 423         \override Staff.TimeSignature #'style = #'()
 424         \override NoteHead #'style = #'slash
 425
 426         % Intro
 427
 428         c4 c c c |   % 1
 429         c4 c c c |   % 2
 430
 431         % Verse
 432
 433         c4 c c c |   % 3
 434         c4 c c c |   % 4
 435         c4 c c c |   % 5
 436         c4 c c c |   % 6
 437
 438         c4 c c c |   % 7
 439         c4 c c c |   % 8
 440         c4 c c c |   % 9
 441         c4 c c c |   % 10
 442         c4 c c c |   % 11
 443         c4 c c c |   % 12
 444         c4 c c c |   % 13
 445         c4 c8 c ~ c4 c |   % 14
 446         c4 c c c |   % 15
 447         c4 c c c |   % 16
 448         c4 c c c |   % 17
 449         c4 c c c |   % 18
 450         c4 c c c |   % 19
 451         c4 c c c |   % 20
 452         c4 c c c |   % 21
 453         c4 c8 c ~ c4 c |   % 22
 454
 455         % Chorus
 456
 457         c4 c c c |   % 23
 458         c4 c c c |   % 24
 459         c4 c c c |   % 25
 460         c4 c c c |   % 26
 461         c4 c c c |   % 27
 462         c4 c c c |   % 28
 463         c4 c c c |   % 29
 464         c4 c c c |   % 30
 465         c4 c c c |   % 31
 466         c4 c c c |   % 32
 467         c4 c c c |   % 33
 468         c4 c c c |   % 34
 469         c4 c c c8 c ~ |   % 35
 470         c4 c c c |   % 36
 471         c4 c c c |   % 37
 472
 473         c4 c c c |   % 38
 474         c4 c c c |   % 39
 475         c4 c c c |   % 40
 476         c4 c c c |   % 41
 477         c4 c c c |   % 42
 478
 479         c8 \repeatTie c c c c c c c |   % 43
 480
 481         % Bridge
 482
 483         c4 c c c8 c ~ |   % 44
 484         c4 c8 c ~ c4 c8 c ~ |   % 45
 485         c4 c c c |   % 46
 486         c4 c c c8 c ~ |   % 47
 487         c4 c c c |   % 48
 488         c4 c8 c ~ c4 c8 c ~ |   % 49
 489         c4 c c c |   % 50
 490         c4 c c c |   % 51
 491
 492         % Chorus
 493
 494         c4 c c c |   % 52
 495         c4 c c c |   % 53
 496         c4 c c c |   % 54
 497         c4 c c c |   % 55
 498         c4 c c c |   % 56
 499         c4 c c c |   % 57
 500         c4 c c c |   % 58
 501         c4 c c c |   % 59
 502         c4 c c c |   % 60
 503         c4 c c c |   % 61
 504         c4 c c c |   % 62
 505         c4 c c c |   % 63
 506         c4 c c c8 c ~ |   % 64
 507         c4 c c c |   % 65
 508
 509         c4 c c c |   % 66
 510         c4 c c c |   % 67
 511
 512         c4 c c c |   % 68
 513
 514         % Outro
 515
 516         c4 c c c |   % 69
 517         c4 c c c |   % 70
 518         c4 c c c |   % 71
 519
 520         c4 c c c |   % 72
 521         c4 c c c |   % 73
 522
 523         c1-\fermata |   % 74
 524 }
 525
 526
 527 Dynamics =
 528 {
 529 %{
 530         % Intro
 531         s4_\markup { \italic { Ac. gtr only } } s2. |   % 1
 532
 533         s1*3 |   % 2-4
 534
 535         s4_\markup { \italic { Band in } } s2. |   % 5
 536 %}
 537 }
 538
 539
 540 \score
 541 {
 542         <<
 543                 \Global                                         % The "roadmap" that everything else depends on
 544
 545                 \context Staff
 546                 <<
 547 %                       \context Staff << \new Voice = "lead" \LeadVox \new Voice \Riffs >>
 548 % Transposed edition
 549                         \context Staff << \new Voice = "lead" \transpose fs e \LeadVox \new Voice \transpose fs e \Riffs >>
 550                         \new Lyrics \lyricsto "lead" \LeadVoxText
 551                         \new Lyrics \lyricsto "lead" \LeadVoxTextB
 552                 >>
 553
 554                 \new ChoirStaff
 555                 <<
 556 %                       \new ChordNames \Chords
 557 %Capo 3 edition
 558                         \new ChordNames \transpose fs e \Chords
 559                         \new RhythmicStaff << \Rhythm \Dynamics >>
 560                 >>
 561
 562                 \set Score.skipBars = ##t
 563                 \set Score.melismaBusyProperties = #'()
 564         >>
 565 }
 566
 567
 568 \paper
 569 {
 570         #(define fonts (make-pango-font-tree
 571                 "Times New Roman"
 572                 "DomCasual BT"
 573                 "Luxi Mono"
 574                 (/ staffSize 20)))
 575
 576 % Don't spread staves vertically across last page (default: t)
 577 %       ragged-last-bottom = ##f
 578 % Don't spread staves vertically across the page (default: f)
 579 %       ragged-bottom = ##t
 580 % Allow partial line for last stave (default: f)
 581         ragged-last = ##t
 582
 583 % To find out what's eating the space at the top...
 584 %       annotate-spacing = ##t
 585 %let's try this: [It works! Huzzah!]
 586         obsolete-page-top-space = 0  top-system-spacing #'basic-distance = #(/ obsolete-page-top-space staff-space)
 587 }