Shamusworld >> Repos - music/blob - jesus-all-for-jesus.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 "Jesus, All For Jesus" }
  18 %       composer = \markup { \override #'(font-family . sans) "" }
  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
  24 % Useful tweak abbreviations (hn = harmony note)
  25
  26 hn = #(define-music-function (parser location arg) (ly:music?)
  27 ;; Harmony Note: Set the tweaks property of the passed in note to use a smaller font
  28
  29   (set! (ly:music-property arg 'tweaks)
  30     (acons 'font-size -3.5 (ly:music-property arg 'tweaks))) arg)
  31
  32
  33 % Various melody lines
  34
  35 melodyLineA =
  36 {
  37         fs4. e8 fs2 ~ |
  38         fs2 fs4 a |
  39         b4. a8 a2 ~ |
  40         a2 b4 a |
  41         e4. d8 e2 ~ |
  42         e4. e8 fs e d cs |
  43 }
  44
  45 melodyLineB =
  46 {
  47 %       <fs \hn d \hn a>4.
  48         <e \hn cs \hn a>8 <fs \hn d \hn a>2 ~ |
  49         <fs \hn d \hn a>4 <e \hn cs \hn a> <fs \hn d \hn a>8 <a \hn fs \hn d> ~ <a \hn fs \hn d>4 |
  50         <b \hn g \hn d>4. <a \hn g \hn d>8 <a \hn fs \hn d>2 ~ |
  51         <a \hn fs \hn d>2 <b \hn fs \hn d>4 <a \hn fs \hn d> |
  52         <e \hn cs \hn a>4. <d \hn b \hn a>8 <e \hn cs \hn a>2 ~ |
  53 }
  54
  55 melodyLineBRptA =
  56 {
  57         <e \hn cs \hn a>4. <e \hn cs \hn a>8
  58         << { \voiceOne fs8 ( e ) <d \hn a> ( a ) } \context Voice = vb { \voiceTwo <\hn cs \hn a>4 s4 } >> \oneVoice |
  59         b1 ( |
  60         a2 ) r |
  61 }
  62
  63 melodyLineBRptB =
  64 {
  65 %       <e \hn cs \hn a>4. \repeatTie
  66         <e \hn cs \hn a>8
  67         << { \voiceOne fs8 ( e ) <d \hn a> ( <cs \hn a \hn g> ) } \context Voice = vb { \voiceTwo \tiny <cs a>4 s4 } >> \oneVoice |
  68 }
  69
  70 melodyLineC =
  71 {
  72         <fs \hn d \hn a>4. <e \hn cs \hn a>8 <fs \hn d \hn a>2 ~ |
  73         <fs \hn d \hn a>2 <fs \hn d \hn a>4 <a \hn fs \hn d> |
  74         <b \hn g \hn d>4. <a \hn fs \hn d>8 <a \hn fs \hn d>2 ~ |
  75         <a \hn fs \hn d>2 <b \hn fs \hn d>4 <a \hn fs \hn d> |
  76         <e \hn cs \hn a>4. <d \hn cs \hn a>8 <e \hn cs \hn a>2 ~ |
  77 %       <e \hn cs \hn a>4. <e \hn cs \hn a>8
  78 %       << { \voiceOne fs ( e ) <d>    % Partial measure...
  79 }
  80
  81
  82 %
  83 % Lead vocal
  84 %
  85
  86 LeadVox = \relative c'
  87 {
  88 %       \set Voice.autoBeaming = ##f
  89 %       \set Staff.instrument = #"Lead vox"
  90         \clef G
  91         \key d \major
  92         \override Staff.TimeSignature #'style = #'()
  93         \time 4/4
  94 \override Score.SpacingSpanner #'average-spacing-wishes = ##f
  95
  96         % Intro
  97
  98         \repeat volta 2
  99         {
 100                 R1 |   % 1
 101                 R1 |   % 2
 102         }
 103
 104         s1*8 |   % 3-10
 105
 106         % A section
 107
 108         \repeat volta 2
 109         {
 110 \mark \markup { \override #'(font-family . sans) { \box { A } } }
 111
 112                 fs4. ( e8 ) fs2 ~ |   % 11
 113                 fs2 fs4 a |   % 12
 114                 b4. ( a8 ) a2 ~ |   % 13
 115                 a2 b4 a |   % 14
 116                 e4. d8 e2 ~ |   % 15
 117         }
 118         \alternative
 119         {
 120                 {
 121                         e4. e8 fs e d a |   % 16
 122                         b1 ( |   % 17
 123                         a2 ) r2 |   % 18
 124                 }
 125                 {
 126                         e'4. \repeatTie e8 fs e d cs |   % 19
 127                 }
 128         }
 129
 130         d1 ~ |   % 20
 131         d2 r |   % 21
 132
 133         \repeat volta 2
 134         {
 135 \mark \markup { \override #'(font-family . sans) { \box { B } } }
 136
 137                 <fs \hn d \hn a>4. \melodyLineB   % 22-26
 138         }
 139         \alternative
 140         {
 141                 {
 142                         \melodyLineBRptA   % 27-29
 143                 }
 144                 {
 145                         <e' \hn cs \hn a>4. \repeatTie \melodyLineBRptB   % 30
 146                 }
 147         }
 148
 149         <d \hn a \hn fs>1 |   % 31
 150         r2 <fs \hn d>8 ( <a \hn fs \hn d> ) <a \hn fs \hn d>4 \bar "||"   % 32
 151
 152         % B section
 153
 154 \once \override Score.RehearsalMark #'self-alignment-X = #left
 155 \mark \markup { \override #'(font-family . sans) { \box { C } } \hspace #1.0 \raise #2.0 \musicglyph #"scripts.segno" }
 156
 157         <b \hn g \hn d>4. <a \hn fs \hn d>8 <b \hn g \hn d>2 ~ |   % 33
 158         <b \hn g \hn d>4 <a \hn fs \hn d> <b \hn g \hn e>8 ( a ) <a \hn fs \hn d>4 |   % 34
 159         <a \hn fs \hn d>4. <fs \hn d \hn a>8 <a \hn fs \hn d>2 ~ |   % 35
 160         <a \hn fs \hn d>4 r <fs \hn d>8 ( <a \hn fs \hn d> ) <a \hn fs \hn d>4 |   % 36
 161         <b \hn g \hn d>4. <a \hn fs \hn d>8 <b \hn g \hn d>2 ~ |   % 37
 162         <b \hn g \hn d>4 <cs \hn a \hn g> <d \hn b \hn g>8 ( <cs \hn a \hn d,> ) <b \hn g \hn d> ( <a \hn fs \hn d> ) |   % 38
 163         <a \hn fs \hn d>2. <fs \hn d \hn a>4 |   % 39
 164         <e \hn cs \hn a>1 \bar "||"   % 40
 165
 166         % A section
 167
 168 \mark \markup { \override #'(font-family . sans) { \box { D } } }
 169
 170         \melodyLineC   % 41-45
 171         <e \hn cs \hn a>4. \melodyLineBRptB   % 46
 172 \once \override Score.RehearsalMark #'self-alignment-X = #right
 173 \mark \markup { \italic { to Coda } \hspace #1.0 \musicglyph #"scripts.coda" }
 174         <d \hn a \hn fs>1 ~ |   % 47
 175         <d \hn a \hn fs>2 r \bar "||"   % 48
 176
 177         % Midtro
 178
 179 \mark \markup { \override #'(font-family . sans) { \box { E } } }
 180
 181         s1*8 \bar "||"   % 49-56
 182
 183         % A section
 184
 185 \mark \markup { \override #'(font-family . sans) { \box { F } } }
 186
 187         \melodyLineC   % 57-61
 188         \melodyLineBRptA \bar "||"   % 62-64
 189
 190 \mark \markup { \override #'(font-family . sans) { \box { G } } }
 191
 192         <fs' \hn d \hn a>4. \melodyLineB   % 65-69
 193         <e \hn cs \hn a>4. \melodyLineBRptB   % 70
 194         <d \hn a \hn fs>1 |   % 71
 195         r2 <fs \hn d>8 ( <a \hn fs \hn d> ) <a \hn fs \hn d>4 \bar "||"   % 72
 196
 197 \once \override Score.RehearsalMark #'self-alignment-X = #right
 198 \mark \markup { \italic { D.S. al Coda } }
 199
 200         % Coda
 201
 202 %\stopStaff s1 \bar "" \startStaff   % That removed the spurious floating bar line from line break
 203 \stopStaff s1 \startStaff
 204 \set Score.currentBarNumber = #73
 205
 206 \once \override Score.RehearsalMark #'self-alignment-X = #left
 207 \mark \markup { { \musicglyph #"scripts.coda" } "Coda" }
 208
 209         <d, \hn a \hn fs>1 ~ |   % 73
 210         <d \hn a \hn fs>2 r \bar "||"   % 74
 211         s1*7 \bar "|."   % 75-81
 212 }
 213
 214 LeadVoxText = \lyricmode
 215 {
 216         Je -- _ sus, _ all for Je -- _ sus, _
 217         all I am and have, _ and e -- ver hope to be, _
 218
 219         _ and e -- ver hope to be. _
 220
 221         All of my _ am -- bi -- tions, _ hopes, and plans, _
 222         I sur -- ren -- der these, _ in -- to _ your _ hands, _
 223
 224         _ in -- to _ your _ hands.
 225
 226         For _ it’s on -- ly in _ your will _ that I am free, _
 227         For _ it’s on -- ly in _ you will _ that _ I am free.
 228
 229         Je -- _ sus, _ all for Je -- _ sus, _
 230         all I am and have, _ and e -- ver hope to be. _
 231
 232         Je -- _ sus, _ all for Je -- _ sus, _
 233         all I am and have, _ and e -- ver hope to be. _
 234
 235         All of my _ am -- bi -- tions, _ hopes, and plans, _
 236         I sur -- ren -- der these, _ in -- to _ your _ hands.
 237
 238         For _ it’s
 239
 240         be. _
 241 }
 242
 243
 244 %
 245 % Riffs
 246 %
 247 Riffs = \relative c'
 248 {
 249         \clef G
 250         \key d \major
 251         \override Staff.TimeSignature #'style = #'()
 252         \time 4/4
 253 \override Score.SpacingSpanner #'average-spacing-wishes = ##f
 254
 255         \tiny
 256
 257         s1*2 |   % 1-2
 258         \melodyLineA
 259         d1 ~ |   % 9
 260         d2 r |   % 10
 261
 262         s1*38 |   % 11-48
 263         \melodyLineA
 264         d1 ~ |   % 55
 265         d2 r |   % 56
 266
 267         s1*19 |   % 57-74 (+1 for coda)
 268         \melodyLineA
 269         d1^\fermata |   % 81
 270
 271         \normalsize
 272 }
 273
 274
 275
 276 %
 277 % Chord names
 278 %
 279
 280 Chords = \chordmode
 281 {
 282 %Bah, can't we set this globally?
 283 %       \popChords
 284
 285         % Intro
 286
 287         \repeat volta 2
 288         {
 289                 d4. a8/d d2 |   % 1
 290                 s1 |   % 2
 291         }
 292
 293         d4. a8/d d2 |   % 3
 294         s1 |   % 4
 295         g2/d d |   % 5
 296         s1 |   % 6
 297         a4. a8:sus4 a2  |   % 7
 298         s1 |   % 8
 299         d1 |   % 9
 300         s2 d:sus4 |   % 10
 301
 302         % A section
 303
 304         \repeat volta 2
 305         {
 306                 d4. a8/d d2 |   % 11
 307                 s1 |   % 12
 308                 g2/d d |   % 13
 309                 s1 |   % 14
 310                 a4. a8:sus4 a2  |   % 15
 311         }
 312         \alternative
 313         {
 314                 {
 315                         s1 |   % 16
 316                         b1:m |   % 17
 317                         a1 |   % 18
 318                 }
 319                 {
 320                         a1 |   % 19
 321                 }
 322         }
 323
 324         d1 |   % 20
 325         s2 g/a |   % 21
 326
 327         \repeat volta 2
 328         {
 329                 d4. a8/d d2 |   % 22
 330                 s1 |   % 23
 331                 g2 d |   % 24
 332                 s1 |   % 25
 333                 a4. a8:sus4 a2 |   % 26
 334         }
 335         \alternative
 336         {
 337                 {
 338                         s1 |   % 27
 339                         b1:m |   % 28
 340                         a1 |   % 29
 341                 }
 342                 {
 343                         a1 |   % 30
 344                 }
 345         }
 346
 347         d1 |   % 31
 348         s1 |   % 32
 349
 350         % B section
 351
 352         g1 |   % 33
 353         s1 |   % 34
 354         d1 |   % 35
 355         s1 |   % 36
 356         g1 |   % 37
 357         s1 |   % 38
 358         d1 |   % 39
 359         a1 |   % 40
 360
 361         d4. a8/d d2 |   % 41
 362         s1 |   % 42
 363         g2 d |   % 43
 364         s1 |   % 44
 365         a4. a8:sus4 a2 |   % 45
 366         s1 |   % 46
 367         d1 |   % 47
 368         s2 g/a |   % 48
 369
 370         d4. a8/d d2 |   % 49
 371         s1 |   % 50
 372         g2/d d |   % 51
 373         s1 |   % 52
 374         a4. a8:sus4 a2 |   % 53
 375         s1 |   % 54
 376         d1 |   % 55
 377         d2 d:sus4 |   % 56
 378
 379         d4. a8/d d2 |   % 57
 380         s1 |   % 58
 381         g2 d |   % 59
 382         s1 |   % 60
 383         a4. a8:sus4 a2 |   % 61
 384         s1 |   % 62
 385         b1:m |   % 63
 386         a1 |   % 64
 387
 388         d4. a8/d d2 |   % 65
 389         s1 |   % 66
 390         g2 d |   % 67
 391         s1 |   % 68
 392         a4. a8:sus4 a2 |   % 69
 393         s1 |   % 70
 394         d1 |   % 71
 395         s1 |   % 72
 396
 397         % Coda
 398
 399 s1
 400
 401         d1 |   % 73
 402         s2 g:sus2/a |   % 74
 403         d4. a8/d d2 |   % 75
 404         s1 |   % 76
 405         g2/d d |   % 77
 406         s1 |   % 78
 407         a4. a8:sus4 a2 |   % 79
 408         s1 |   % 80
 409         d1 |   % 81
 410 }
 411
 412
 413 %
 414 % Chord rhythms
 415 %
 416
 417 % Use a RhythmicStaff on the chords instead of this?
 418 % It almost works, but not quite. Doesn't collapse chords above to single notes...
 419
 420 StaffC = \relative c
 421 {
 422 %       \set Voice.autoBeaming = ##f
 423 %       \set Staff.instrument = #"Rhythm"
 424         \override Staff.TimeSignature #'style = #'()
 425         \time 4/4
 426         \override NoteHead #'style = #'slash
 427
 428         % Intro
 429
 430         \repeat volta 2
 431         {
 432                 c8. c16 ~ c8 c c4 c |   % 1
 433                 c4 c c c |   % 2
 434         }
 435
 436         c8. c16 ~ c8 c c4 c |   % 3
 437         c4 c c c |   % 4
 438         c4 c c c |   % 5
 439         c4 c c c |   % 6
 440         c8. c16 ~ c8 c c4 c |   % 7
 441         c4 c c c |   % 8
 442         c4 c c c |   % 9
 443         c4 c c c |   % 10
 444
 445         % A section
 446
 447         \repeat volta 2
 448         {
 449                 c8. c16 ~ c8 c c4 c |   % 11
 450                 c4 c c c |   % 12
 451                 c4 c c c |   % 13
 452                 c4 c c c |   % 14
 453                 c8. c16 ~ c8 c c4 c |   % 15
 454         }
 455         \alternative
 456         {
 457                 {
 458                         c4 c c c |   % 16
 459                         c4 c c c |   % 17
 460                         c4 c c c |   % 18
 461                 }
 462                 {
 463                         c4 c c c |   % 19
 464                 }
 465         }
 466
 467         c4 c c c |   % 20
 468         c4 c c c |   % 21
 469
 470         \repeat volta 2
 471         {
 472                 c8. c16 ~ c8 c c4 c |   % 22
 473                 c4 c c c |   % 23
 474                 c4 c c c |   % 24
 475                 c4 c c c |   % 25
 476                 c8. c16 ~ c8 c c4 c |   % 26
 477         }
 478         \alternative
 479         {
 480                 {
 481                         c4 c c c |   % 27
 482                         c4 c c c |   % 28
 483                         c4 c c c |   % 29
 484                 }
 485                 {
 486                         c4 c c c |   % 30
 487                 }
 488         }
 489
 490         c4 c c c |   % 31
 491         c4 c c c \bar "||"   % 32
 492
 493         % B section
 494
 495         c4 c c c |   % 33
 496         c4 c c c |   % 34
 497         c4 c c c |   % 35
 498         c4 c c c |   % 36
 499         c4 c c c |   % 37
 500         c4 c c c |   % 38
 501         c4 c c c |   % 39
 502         c4 c c c \bar "||"   % 40
 503
 504         c8. c16 ~ c8 c c4 c |   % 41
 505         c4 c c c |   % 42
 506         c4 c c c |   % 43
 507         c4 c c c |   % 44
 508         c8. c16 ~ c8 c c4 c |   % 45
 509         c4 c c c |   % 46
 510         c4 c c c |   % 47
 511         c4 c c c \bar "||"   % 48
 512
 513         c8. c16 ~ c8 c c4 c |   % 49
 514         c4 c c c |   % 50
 515         c4 c c c |   % 51
 516         c4 c c c |   % 52
 517         c8. c16 ~ c8 c c4 c |   % 53
 518         c4 c c c |   % 54
 519         c4 c c c |   % 55
 520         c4 c c c \bar "||"   % 56
 521
 522         c8. c16 ~ c8 c c4 c |   % 57
 523         c4 c c c |   % 58
 524         c4 c c c |   % 59
 525         c4 c c c |   % 60
 526         c8. c16 ~ c8 c c4 c |   % 61
 527         c4 c c c |   % 62
 528         c4 c c c |   % 63
 529         c4 c c c \bar "||"   % 64
 530
 531         c8. c16 ~ c8 c c4 c |   % 65
 532         c4 c c c |   % 66
 533         c4 c c c |   % 67
 534         c4 c c c |   % 68
 535         c8. c16 ~ c8 c c4 c |   % 69
 536         c4 c c c |   % 70
 537         c4 c c c |   % 71
 538         c4 c c c \bar "||"   % 72
 539
 540         % Coda
 541
 542 \stopStaff s1 \startStaff |
 543 \set Score.currentBarNumber = #73
 544
 545         c4 c c c |   % 73
 546         c4 c c c \bar "||"   % 74
 547
 548         c8. c16 ~ c8 c c4 c |   % 75
 549         c4 c c c |   % 76
 550         c4 c c c |   % 77
 551         c4 c c c |   % 78
 552         c8. c16 ~ c8 c c4 c |   % 79
 553         c4 c c c |   % 80
 554         c1^\fermata \bar "|."   % 81
 555 }
 556
 557
 558 Dynamics =
 559 {
 560         s1*80 |   % 1-79 (+1 for coda)
 561         s2 s4_\markup { \italic { rit. } } s |   % 80
 562         s1 |   % 81
 563 }
 564
 565
 566 \score
 567 {
 568         <<
 569                 <<
 570 %                       \new Staff = leadStaff { \new Voice = "lead" \LeadVox }
 571                         \new Staff = leadStaff { << \new Voice = "lead" \LeadVox \new Voice = "riffs" \Riffs >> }
 572                         \new Lyrics \lyricsto "lead" \LeadVoxText
 573                 >>
 574
 575                 \new ChoirStaff = "Rhythm"
 576                 <<
 577                         \new ChordNames = "chords" \Chords
 578                         \new RhythmicStaff = "chordRhythm" << \StaffC \Dynamics >>
 579                 >>
 580
 581                 \set Score.skipBars = ##t
 582                 \set Score.melismaBusyProperties = #'()
 583         >>
 584
 585         \layout
 586         {
 587 %               \context { \Staff \RemoveEmptyStaves }
 588 %               ragged-last-bottom = ##t
 589                 ragged-last = ##t
 590         }
 591 }
 592
 593
 594 \paper
 595 {
 596   #(define fonts (make-pango-font-tree
 597     "Times New Roman"
 598     "DomCasual BT"
 599     "Luxi Mono"
 600     (/ staffSize 20)))
 601 }