Shamusworld >> Repos - music/blob - come-just-as-you-are.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 "Come Just As You Are" }
  18         composer = \markup { \override #'(font-family . sans) \fontsize #1.3 "Joseph Sabolick" }
  19 %       arranger = \markup { \override #'(font-family . sans) \fontsize #1.3 "" }
  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 e \major
  38         \override Staff.TimeSignature #'style = #'()
  39         \time 4/4
  40
  41         % Intro
  42
  43         s1*4 |   % 1-4
  44
  45         \repeat volta 2
  46         {
  47                 % Verse
  48
  49                 \mark \markup { \override #'(font-family . sans) { \box { A } } }
  50
  51                 s1*16 \bar "||"   % 5-20
  52
  53                 % Chorus
  54
  55 %               \mark \markup { \override #'(font-family . sans) { \box { B } } }
  56                 \once \override Score.RehearsalMark #'self-alignment-X = #left
  57                 \mark \markup { \override #'(font-family . sans) { \box { B } } \hspace #1.0 \raise #2.0 \musicglyph #"scripts.segno" }
  58
  59                 s1*6 |   % 21-26
  60                 s1 |   % 27
  61
  62 \once \override Score.RehearsalMark #'self-alignment-X = #right
  63 \mark \markup { \italic { to Coda } \musicglyph #"scripts.coda" }
  64
  65         }
  66         \alternative
  67         {
  68                 {
  69                         s1*3 |   % 28-30
  70                 }
  71                 {
  72                         s1 |   % 31
  73                 }
  74         }
  75
  76         % Bridge
  77
  78         \mark \markup { \override #'(font-family . sans) { \box { C } } }
  79
  80         s1*10 \bar "||"   % 32-41
  81
  82         \mark \markup { \override #'(font-family . sans) { \box { D } } }
  83
  84         s1^\markup { \italic { Repeat figure thru to D.S. } } |   % 42
  85         s1*10 |   % 43-52
  86         s1 \bar "||"   % 53
  87
  88         \once \override Score.RehearsalMark #'self-alignment-X = #right
  89         \mark \markup { \italic { D.S. al Coda } }
  90
  91         % Coda
  92
  93         % blank measure between last measure and coda
  94 %       \stopStaff s1 \bar "" \startStaff   % That removed the spurious floating bar line from line break
  95         \stopStaff s1 \startStaff   % That removed the spurious floating bar line from line break
  96 %       \break % Meh
  97         \set Score.currentBarNumber = #54
  98
  99         \once \override Score.RehearsalMark #'self-alignment-X = #left
 100         \mark \markup { { \musicglyph #"scripts.coda" } "Coda" }
 101
 102         s1 |   % 54
 103
 104         \repeat volta 2
 105         {
 106                 % Chorus
 107
 108                 \mark \markup { \override #'(font-family . sans) { \box { E } } }
 109
 110                 s1*3 |   % 55-57
 111         }
 112         \alternative
 113         {
 114                 {
 115                         s1 |   % 58
 116                 }
 117                 {
 118                         s1 |   % 59
 119                 }
 120         }
 121
 122         % Outro
 123
 124         \mark \markup { \override #'(font-family . sans) { \box { F } } }
 125
 126         s1*7 \bar "|."   % 60-66
 127
 128 %{
 129
 130 %       \once \override TextScript #'padding = #2.0
 131 %       s1*0^\markup { \large \bold { Moderately fast pop } }
 132 %%Capo 3 version
 133 %%      s1*0^\markup { \large \bold { Moderately fast pop "(*** CAPO 3 ***)" } }
 134 %       s1*13 \bar "||:"   % 1-13
 135
 136 %}
 137 }
 138
 139
 140 %
 141 % Lead vocal
 142 %
 143 LeadVox = \relative c'
 144 {
 145         \clef G
 146         \override Score.SpacingSpanner #'average-spacing-wishes = ##f
 147
 148         % Intro
 149
 150         r1 |   % 1
 151         r1 |   % 2
 152         r1 |   % 3
 153         r2 r4 r8 e |   % 4
 154
 155         % Verse
 156
 157         e4 ds cs r8 e |   % 5
 158         e4 fs e2 |   % 6
 159         r4 r8 e e4 cs8 cs ~ |   % 7
 160         cs8 b ~ b4 r r8 e8 |   % 8
 161         e4 ds cs4. e8 |   % 9
 162         e4 fs e4. b8 |   % 10
 163         b1 |   % 11
 164         r2 r4 r8 e |   % 12
 165         e4 ds cs r8 e |   % 13
 166         e4 fs e2 |   % 14
 167         r4 r8 e e4 gs8 gs ~ |   % 15
 168         gs8 fs ~ fs4 r r8 e |   % 16
 169         e4 ds cs r8 e |   % 17
 170         e4 fs e4. gs8 |   % 18
 171         gs8 ( fs ) ~ fs2. |   % 19
 172         r2 r4 <gs \hn e>16 <b \hn gs> <b \hn gs>8 |   % 20
 173
 174         % Chorus
 175
 176         <b \hn gs>8 <b \hn gs> <b \hn gs> <b \hn gs> <e, \hn cs>4 <gs \hn e>16 <b \hn gs> <b \hn gs>8 |   % 21
 177         <b \hn gs>8 <b \hn gs> <b \hn gs> <b \hn gs> <cs \hn fs,>4 <cs \hn e,>16 <b \hn gs> <b \hn gs>8 |   % 22
 178         <b \hn gs>8 <b \hn gs> <b \hn gs> <b \hn gs> <e, \hn cs>8. e16 a8 gs |   % 23
 179         gs8 fs ~ fs2 <gs \hn e>16 <b \hn gs> <b \hn gs>8 |   % 24
 180         <b \hn gs>8 <b \hn gs> <b \hn gs> <b \hn gs> <e, \hn cs>4 <gs \hn e>16 <b \hn gs> <b \hn gs>8 |   % 25
 181         <b \hn gs>8 <b \hn gs> <b \hn gs> <b \hn gs> <cs \hn fs,>4 <cs \hn e,>16 <b \hn gs> <b \hn gs>8 |   % 26
 182         <b \hn gs>8 <b \hn gs> <b \hn gs> <b \hn gs> <e, \hn cs>8. e16 <a \hn fs>8 <gs \hn e> |   % 27
 183
 184         <gs \hn e>8 <fs \hn ds> ~ <fs \hn ds>4 ~ <fs \hn ds>8. e16 fs8. e16 |   % 28
 185         fs8 gs ~ gs2. |   % 29
 186         r2 r4 r8 e |   % 30
 187
 188         <gs \hn e>8 <fs \hn ds> ~ <fs \hn ds>2. |   % 31
 189
 190         % Bridge
 191
 192         r8 gs gs gs gs gs b4 |   % 32
 193         r8 gs gs gs b cs gs16 ( fs ) ~ fs8 |   % 33
 194         r8 gs gs gs gs gs gs fs |   % 34
 195         fs16 ( e ) ~ e8 ~ e2 r4 |   % 35
 196         r8 gs gs gs gs gs b4 |   % 36
 197         r8 gs gs gs b cs gs16 ( fs ) ~ fs8 |   % 37
 198         r8 gs gs gs gs fs e4 |   % 38
 199         r8 <gs \hn e>8 <gs \hn e> <gs \hn e> <b \hn gs>4 <cs \hn a>8 <cs \hn a> ~ |   % 39
 200         <cs \hn a>2. <e \hn a,>8 <e \hn a,> ~ |   % 40
 201         <e \hn a,>1 |   % 41
 202
 203         % Chorus
 204
 205         s1 |   % 42
 206         s1 |   % 43
 207         s1 |   % 44
 208         r2 r4 gs,16 b b8 |   % 45
 209         << { \voiceOne cs4. b8 ~ b2 ~ } \new Voice = "v2" { \voiceTwo r2 r4 gs16 b b8 } >> |   % 46
 210         << { \voiceOne b2. } \context Voice = "v2" { \voiceTwo cs4. b8 ~ b4 } >> \oneVoice gs16 b b8 |   % 47
 211         cs4. b8 ~ b8. gs16 a8. gs16 |   % 48
 212         gs8 fs ~ fs2 gs16 b b8 |   % 49
 213         << { \voiceOne cs4. b8 ~ b2 ~ } \context Voice = "v2" { \voiceTwo r2 r4 gs16 b b8 } >> |   % 50
 214         << { \voiceOne b2. } \context Voice = "v2" { \voiceTwo cs4. b8 ~ b4 } >> \oneVoice gs16 b b8 |   % 51
 215         cs4. b8 ~ b8. gs16 a8. gs16 |   % 52
 216         gs8 fs ~ fs2 <gs \hn e>16 <b \hn gs> <b \hn gs>8 |   % 53
 217
 218         % Coda
 219
 220         s1 | % blank measure for coda
 221
 222         <gs \hn e>8 <fs \hn ds> ~ <fs \hn ds>2 <gs \hn e>16 <b \hn gs> <b \hn gs>8 |   % 54
 223
 224         <b \hn gs>8 <b \hn gs> <b \hn gs> <b \hn gs> <e, \hn cs>4 <gs \hn e>16 <b \hn gs> <b \hn gs>8 |   % 55
 225         <b \hn gs>8 <b \hn gs> <b \hn gs> <b \hn gs> <cs \hn fs,>4 <cs \hn e,>16 <b \hn gs> <b \hn gs>8 |   % 56
 226         <b \hn gs>8 <b \hn gs> <b \hn gs> <b \hn gs> <e, \hn cs>8. e16 <a \hn fs>8 <gs \hn e> |   % 57
 227
 228         <gs \hn e>8 <fs \hn ds> ~ <fs \hn ds>2 <gs \hn e>16 <b \hn gs> <b \hn gs>8 |   % 58
 229
 230         <gs \hn e>8 <fs \hn ds> ~ <fs \hn ds>4 ~ <fs \hn ds>8. e16 fs8. gs16 |   % 59
 231
 232         % Outro
 233
 234         fs8 e ~ e2. |   % 60
 235         r2 r8 r16 e fs8. gs16 |   % 61
 236         fs8 e ~ e2. |   % 62
 237         r2 r8 r16 e fs8. gs16 |   % 63
 238         fs8 e ~ e2. |   % 64
 239         r2 r8 r16 e fs8. gs16 |   % 65
 240         fs8 e ~ e2.-\fermata |   % 66
 241 }
 242
 243 LeadVoxText = \lyricmode
 244 {
 245         How love -- ly is your dwell -- ing place,
 246         O lord Al -- migh -- _ ty. _
 247         For my soul longs and e -- ven faints for you.
 248         For here my heart is sat -- is -- fied
 249         with -- in your pres -- _ ence. _
 250         I sing be -- neath the sha -- dow of your wings. _ _
 251
 252         Bet -- ter is one day in your courts,
 253         bet -- ter is one day in your house,
 254         Bet -- ter is one day in your courts
 255         than thou -- sands else -- where, _
 256         Bet -- ter is one day in your courts,
 257         bet -- ter is one day in your house,
 258         Bet -- ter is one day in your courts
 259         than thou -- sands else -- where, _ _
 260         than thou -- sands else -- where. _
 261
 262         One
 263         else -- where. _
 264
 265         My heart and flesh cry out
 266         for you, the liv -- ing God, _ _
 267         Your spi -- rit's wa -- ter to my soul. _ _ _
 268         I've tast -- ed and I've seen;
 269         Come once a -- gain to me, _ _
 270         I will draw near to you,
 271         I will draw near to you, _
 272         to you. _
 273
 274         Bet -- ter is one day, __ _ _
 275         Bet -- ter is one day _
 276         than thou -- sands else -- where, _
 277         Bet -- ter is one day, __ _ _
 278         Bet -- ter is one day _
 279         than thou -- sands else -- where, _
 280
 281         Bet -- ter is
 282         else -- where, _
 283
 284         Bet -- ter is one day in your courts,
 285         bet -- ter is one day in your house,
 286         Bet -- ter is one day in your courts
 287         than thou -- sands else -- where, _
 288
 289         Bet -- ter is
 290         else -- where, _ _
 291
 292         than thou -- sands else -- where. _
 293         Than thou -- sands else -- where. _
 294         Than thou -- sands else -- where. _
 295         Than thou -- sands else -- where. _
 296 }
 297
 298 LeadVoxTextB = \lyricmode
 299 {
 300         _ thing I ask and I would seek,
 301         to see your beau -- _ ty, _
 302         to find you in the place your glo -- ry dwells.
 303         One thing I sak and I would seek,
 304         to see your beau -- _ ty, _
 305         to find you in the place your glo -- ry dwells. _ _
 306 }
 307
 308 LeadVoxEcho = \lyricmode
 309 {
 310         Bet -- ter is one day _
 311         Bet -- ter is one day
 312 }
 313
 314
 315 %
 316 % Riffs
 317 %
 318 Riffs = \relative c''
 319 {
 320         % Intro
 321
 322         s1*41 |   % 1-41
 323
 324         \tiny
 325         e8 b ds b cs b ds b |   % 42
 326         e8 b ds b cs b ds b |   % 43
 327         e8 b ds b cs b ds b |   % 44
 328 }
 329
 330
 331 %
 332 % Chord names
 333 %
 334 Chords = \chordmode
 335 {
 336 %Bah, can't we set this globally?
 337 %       \popChords
 338
 339         % Intro
 340
 341         e1:sus2 |   % 1
 342         s1 |   % 2
 343         e1:sus2 |   % 3
 344         s1 |   % 4
 345
 346         % Verse
 347
 348         e1:sus2 |   % 5
 349         s1 |   % 6
 350         a1:sus2 |   % 7
 351         b1:sus4 |   % 8
 352         e1:sus2 |   % 9
 353         s1 |   % 10
 354         b1:sus4 |   % 11
 355         b1 |   % 12
 356         cs1:m7 |   % 13
 357         s1 |   % 14
 358         a1:sus2 |   % 15
 359         b1:sus4 |   % 16
 360         cs1:m7 |   % 17
 361         a1:sus2 |   % 18
 362         b1:sus4 |   % 19
 363         b1 |   % 20
 364
 365         % Chorus
 366
 367         a1:sus2 |   % 21
 368         b2:sus4 b |   % 22
 369         a2.:sus2 a4/cs |   % 23
 370         b2:sus4 b4 e/gs |   % 24
 371         a1:sus2 |   % 25
 372         b2:sus4 b |   % 26
 373         a2.:sus2 a4/cs |   % 27
 374
 375         b2:sus4 b |   % 28
 376         e1:sus2 |   % 29
 377         s1 |   % 30
 378
 379         b2:sus4 b |   % 31
 380
 381         % Bridge
 382
 383         cs2.:m7 b4 |   % 32
 384         a2.:sus2 b4:sus4 |   % 33
 385         cs2.:m7 b4 |   % 34
 386         a2.:sus2 b4:sus4 |   % 35
 387         cs2.:m7 b4 |   % 36
 388         a2.:sus2 b4:sus4 |   % 37
 389         e1/gs |   % 38
 390         fs1:m7 |   % 39
 391         b1:sus4 |   % 40
 392         b1:sus4 |   % 41
 393
 394         a1:sus2 |   % 42
 395         b1:sus4 |   % 43
 396         a1:sus2 |   % 44
 397         b1:sus4 |   % 45
 398         a1:sus2 |   % 46
 399         b1:sus4 |   % 47
 400         a2.:sus2 a4/cs |   % 48
 401         b1:sus4 |   % 49
 402         a1:sus2 |   % 50
 403         b2.:sus4 e4/gs |   % 51
 404         a1:sus2 |   % 52
 405         b2.:sus4 e4/gs |   % 53
 406
 407         % Coda
 408
 409         % blank measure between last measure and coda
 410         s1
 411
 412         b2:sus4 b4 e/gs |   % 54
 413
 414         a1:sus2 |   % 55
 415         b2:sus4 b |   % 56
 416         a2.:sus2 a4/cs |   % 57
 417
 418         b2:sus4 b4 e/gs |   % 58
 419
 420         b2:sus4 b |   % 59
 421
 422         % Outro
 423
 424         e1:sus2 |   % 60
 425         a1:sus2 |   % 61
 426         e1:sus2 |   % 62
 427         a1:sus2 |   % 63
 428         e1:sus2 |   % 64
 429         a1:sus2 |   % 65
 430         e1:sus2 |   % 66
 431 }
 432
 433
 434 %
 435 % Chord rhythms
 436 %
 437
 438 % Use a RhythmicStaff on the chords instead of this?
 439 % It almost works, but not quite. Doesn't collapse chords above to single notes...
 440
 441 Rhythm =
 442 {
 443         \override Staff.TimeSignature #'style = #'()
 444         \override NoteHead #'style = #'slash
 445
 446         % Intro
 447
 448         c1 ~ |   % 1
 449         c1 |   % 2
 450         c1 ~ |   % 3
 451         c1 |   % 4
 452
 453         % Verse
 454
 455         c1 ~ |   % 5
 456         c1 |   % 6
 457         c1 |   % 7
 458         c1 |   % 8
 459         c1 ~ |   % 9
 460         c1 |   % 10
 461         c1 |   % 11
 462         c1 |   % 12
 463         c1 ~ |   % 13
 464         c1 |   % 14
 465         c1 |   % 15
 466         c1 |   % 16
 467         c1 |   % 17
 468         c1 |   % 18
 469         c1 |   % 19
 470         c1 |   % 20
 471
 472         % Chorus
 473
 474         c1 |   % 21
 475         c2 c |   % 22
 476         c2. c4 |   % 23
 477         c2 c4 c |   % 24
 478         c1 |   % 25
 479         c2 c |   % 26
 480         c2. c4 |   % 27
 481
 482         c2 c |   % 28
 483         c1 ~ |   % 29
 484         c1 |   % 30
 485
 486         c2 c |   % 31
 487
 488         % Bridge
 489
 490         c2.-> c4-> |   % 32
 491         c2. c4-> |   % 33
 492         c2. c4-> |   % 34
 493         c2. c4-> |   % 35
 494         c2. c4-> |   % 36
 495         c2.-> c4-> |   % 37
 496         c1-> |   % 38
 497         c1-> |   % 39
 498         c1-> |   % 40
 499         c1-> |   % 41
 500
 501         c1 |   % 42
 502         c1 |   % 43
 503         c1 |   % 44
 504         c1 |   % 45
 505         c1 |   % 46
 506         c1 |   % 47
 507         c2. c4 |   % 48
 508         c1 |   % 49
 509         c1 |   % 50
 510         c2. c4 |   % 51
 511         c1 |   % 52
 512         c4 c c c-> |   % 53
 513
 514         % Coda
 515
 516         % blank measure between last measure and coda
 517 %hm. Shouldn't need /startStaff /stopStaff... !!! FIX !!!
 518         \stopStaff s1 \startStaff
 519
 520         c2 c4 c-> |   % 54
 521
 522         c1-> |   % 55
 523         c2 c |   % 56
 524         c2. c4 |   % 57
 525
 526         c2 c4 c-> |   % 58
 527
 528         c2 c |   % 59
 529
 530         % Outro
 531
 532         c1 |   % 60
 533         c1 |   % 61
 534         c1 |   % 62
 535         c1 |   % 63
 536         c1 |   % 64
 537         c1 |   % 65
 538         c1-\fermata |   % 66
 539 }
 540
 541
 542 Dynamics =
 543 {
 544 %Hmm, this is throwin off the layout...
 545         s4_\mf s2. |   % 1
 546         s1*18 |   % 2-19
 547         s4 s \< s2 |   % 20
 548         s4_\f s2. |   % 21
 549 %{
 550         % Intro
 551         s4_\markup { \italic { Ac. gtr only } } s2. |   % 1
 552
 553         s1*3 |   % 2-4
 554
 555         s4_\markup { \italic { Band in } } s2. |   % 5
 556 %}
 557 }
 558
 559
 560 \score
 561 {
 562         <<
 563                 \Global                                         % The "roadmap" that everything else depends on
 564
 565                 \context Staff
 566                 <<
 567                         \new Voice = "lead" \LeadVox
 568                         \new Voice \Riffs
 569                         \new Lyrics \lyricsto "lead" \LeadVoxText
 570                         \new Lyrics \lyricsto "lead" \LeadVoxTextB
 571                         \new Lyrics \lyricsto "v2" \LeadVoxEcho
 572 %                       \new Lyrics \lyricsto "v2" \LeadVoxEcho
 573                 >>
 574
 575                 \new ChoirStaff
 576                 <<
 577                         \new ChordNames \Chords
 578 %Capo 3 edition
 579 %                       \new ChordNames \transpose f d \Chords
 580                         \new RhythmicStaff << \Rhythm \Dynamics >>
 581                 >>
 582
 583                 \set Score.skipBars = ##t
 584                 \set Score.melismaBusyProperties = #'()
 585         >>
 586 }
 587
 588
 589 \paper
 590 {
 591         #(define fonts (make-pango-font-tree
 592                 "Times New Roman"
 593                 "DomCasual BT"
 594                 "Luxi Mono"
 595                 (/ staffSize 20)))
 596
 597 % Don't spread staves vertically across last page (default: t)
 598 %       ragged-last-bottom = ##f
 599 % Don't spread staves vertically across the page (default: f)
 600 %       ragged-bottom = ##t
 601 % Allow partial line for last stave (default: f)
 602         ragged-last = ##t
 603
 604 % To find out what's eating the space at the top...
 605 %       annotate-spacing = ##t
 606 %let's try this: [It works! Huzzah!]
 607         obsolete-page-top-space = 0  top-system-spacing #'basic-distance = #(/ obsolete-page-top-space staff-space)
 608 }