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