Shamusworld >> Repos - music/blob - search-my-heart.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 = #20
   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 "Search My Heart" }
  18         composer = \markup { \override #'(font-family . sans) \fontsize #1.3 "Hillsong United" }
  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 % Let's try a chord dictionary
  22 %       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;" }  }
  23 }
  24
  25 % Useful tweak abbreviations (hn = harmony note)
  26
  27 hn = #(define-music-function (parser location arg) (ly:music?)
  28 ;; Harmony Note: Set the tweaks property of the passed in note to use a smaller font
  29
  30   (set! (ly:music-property arg 'tweaks)
  31     (acons 'font-size -3.0 (ly:music-property arg 'tweaks))) arg)
  32
  33
  34 %
  35 % Song's structure
  36 %
  37 Global =  \transpose c g
  38 {
  39         \key c \major
  40         \override Staff.TimeSignature #'style = #'()
  41         \time 4/4
  42
  43 %       \once \override TextScript #'padding = #2.0
  44 %       s1*0^\markup { \large \bold { Samba } }
  45 % Capo 4 version
  46 %       s1*0^\markup { \hspace #0.0 \raise #2.0 \bigger \bold { "Moderate pop (*** CAPO 4 ***)" } }
  47
  48         % Intro
  49
  50         s1*4 |   % 1-4
  51
  52         % A section
  53
  54         \repeat volta 4
  55         {
  56                 \mark \markup { \override #'(font-family . sans) { \box { A } } }
  57                 s1*6 |   % 5-10
  58         }
  59
  60         % B section
  61
  62         \mark \markup { \override #'(font-family . sans) { \box { B } } }
  63         s1*8 \bar "||"   % 11-18
  64
  65         % A section
  66
  67         s1*6 |   % 19-24
  68
  69         \repeat volta 2
  70         {
  71                 \mark \markup { \override #'(font-family . sans) { \box { C } } }
  72                 s1*6 |   % 25-30
  73         }
  74
  75         % B section
  76
  77         \repeat volta 2
  78         {
  79                 \mark \markup { \override #'(font-family . sans) { \box { D } } }
  80                 s1*8 |   % 31-38
  81         }
  82
  83         % C section
  84
  85         \mark \markup { \override #'(font-family . sans) { \box { E } } }
  86         s1*16 |   % 39-54
  87
  88         % B section
  89
  90         \repeat volta 2
  91         {
  92                 \mark \markup { \override #'(font-family . sans) { \box { F } } }
  93                 s1*8 |   % 31-38
  94         }
  95
  96         % C section
  97
  98         \repeat volta 2
  99         {
 100                 \mark \markup { \override #'(font-family . sans) { \box { G } } }
 101                 s1*8 |   % 31-38
 102         }
 103
 104         % Outro
 105
 106         \mark \markup { \override #'(font-family . sans) { \box { H } } }
 107         s1*5 \bar "|."   %
 108 }
 109
 110
 111 %
 112 % Lead vocal
 113 %
 114 LeadVox = \relative c'
 115 {
 116 %       \set Staff.instrument = #"Lead vox"
 117         \clef G
 118         \override Staff.TimeSignature #'style = #'()
 119 %Hm. Needed anymore?
 120 %       \override Score.SpacingSpanner #'average-spacing-wishes = ##f
 121         \set tupletSpannerDuration = #(ly:make-moment 1 4)
 122         \override MultiMeasureRest #'expand-limit = 1
 123
 124         % Intro
 125
 126         R1*4 |   % 1-4
 127
 128         % A section
 129
 130         r2 r4 \teeny c \normalsize |   % 5
 131         e4. d8 ~ d4 e ~ |   % 6
 132         e2 r4 c |   % 7
 133         e4. d8 ~ d4 c ~ |   % 8
 134         c2 r |   % 9
 135         r1 |   % 10
 136
 137         % B section
 138
 139         r2 r4 c |   % 11
 140         g'4. g8 ~ g ( d ) d4 ~ |   % 12
 141         d4 r r c |   % 13
 142         f4. f8 ~ f ( e ) e4 ~ |   % 14
 143         e4 r r c |   % 15
 144         g'4. g8 ~ g ( d ) d4 ~ |   % 16
 145         d4 r c8 d4 c8 |   % 17
 146         f4. f8 ~ f ( e ) e4 ~ |   % 18
 147
 148         % A section
 149
 150         R1*6 |   % 19-24
 151
 152         r1 |   % 25
 153         e4. d8 ~ d4 e ~ |   % 26
 154         e2 r4 c |   % 27
 155         e4. d8 ~ d4 c ~ |   % 28
 156         c2 r |   % 29
 157         r1 |   % 30
 158
 159         % B section
 160
 161         r2 r4 c8 c |   % 31
 162         g'4. g8 ~ g ( d ) d4 ~ |   % 32
 163         d4 r r c |   % 33
 164         f4. f8 ~ f ( e ) e4 ~ |   % 34
 165         e4 r r c |   % 35
 166         g'4. g8 ~ g ( d ) d4 ~ |   % 36
 167 %       d4 r << { c8 d4 c8 } \context Voice = vb { \voiceTwo \teeny c8 c d c \normalsize } >> |   % 37
 168         d4 r << { \stemDown \teeny c8 c d c \normalsize \stemNeutral } \context Voice = vb { \voiceTwo \stemUp c8 d4 c8 \stemNeutral } >> |   % 37
 169         f4. f8 ~ f ( e ) e4 ~ |   % 38
 170
 171         % C section
 172
 173         r1 |   %
 174         r1 |   %
 175         r2 r8 c8 d e ~ |   %
 176         e8 c d e ~ e c4. |   %
 177         r1 |   %
 178         r1 |   %
 179         r2 r8 c8 d e ~ |   %
 180         e8 c d e ~ e e16 ( f e4 ) |   %
 181         r1 |   %
 182         r1 |   %
 183         r2 r8 c8 d e ~ |   %
 184         e8 c d e ~ e c4. |   %
 185         r2 r8 c8 d e ~ |   %
 186         e8 c d e ~ e e16 ( f e4 ) |   %
 187         r2 r8 c8 d e ~ |   %
 188         e8 c d e ~ e c4. |   %
 189
 190         % B section
 191
 192         r2 r4 c8 c |   % 31
 193         g'4. g8 ~ g ( d ) d4 ~ |   % 32
 194         d4 r r c |   % 33
 195         f4. f8 ~ f ( e ) e4 ~ |   % 34
 196         e4 r r c |   % 35
 197         g'4. g8 ~ g ( d ) d4 ~ |   % 36
 198         d4 r c8 d4 c8 |   % 37
 199         f4. f8 ~ f ( e ) e4 ~ |   % 38
 200
 201         % C section
 202
 203         r2 r8 c8 d e ~ |   %
 204         e8 c d e ~ e c4. |   %
 205         r2 r8 c8 d e ~ |   %
 206         e8 c d e ~ e c4. |   %
 207         r2 r8 c8 d e ~ |   %
 208         e8 c d e ~ e e16 ( f e4 ) |   %
 209         r1 |   %
 210         r1 |   %
 211
 212         % Outro
 213
 214         r1 |   %
 215         e4. d8 ~ d4 e ~ |   %
 216         e2 r4 c |   %
 217         e4. d8 ~ d4 c ~ |   %
 218         c1-\fermata |   %
 219 }
 220
 221
 222 LeadVoxText = \lyricmode
 223 {
 224         _ Search my _ heart, _ and search my _ soul _
 225
 226         With all my _ _ heart, _
 227         And all my _ _ soul, _
 228         With all I _ _ am, _
 229         Lord I will fol -- low _ _ you.
 230
 231         Hear my _ cry, _ and hear my _ prayer _
 232
 233         So with all my _ _ heart, _
 234         And all my _ _ soul, _
 235         With all I _ _ am, _
 236         Lord I _ will fol -- low _ _ you.
 237
 238         With -- out you _ I am noth -- _ ing,
 239         With -- out you _ I am noth -- _ ing, _ _
 240         With -- out you _ I am noth -- _ ing,
 241         With -- out you _ I am noth -- _ ing, _ _
 242         With -- out you _ I am noth -- _ ing.
 243
 244         So with all my _ _ heart, _
 245         And all my _ _ soul, _
 246         With all I _ _ am, _
 247         Lord I will fol -- low _ _ you.
 248
 249         With -- out you _ I am noth -- _ ing,
 250         With -- out you _ I am noth -- _ ing,
 251         With -- out you _ I am noth -- _ ing, _ _
 252
 253         Search my _ heart, _ and search my _ soul _
 254 }
 255
 256 LeadVoxTextB = \lyricmode
 257 {
 258         There’s no -- thing _ else _ that I want _ more _
 259
 260         _ _ _ _ _ _ _
 261         _ _ _ _ _ _ _
 262         _ _ _ _ _ _ _
 263         _ _ _ _ _ _ _ _
 264
 265         Draw me _ close, _ I know you’re _ near _
 266
 267         You _ took the _ _ cross, _
 268         You took my _ _ shame, _
 269         Re -- stored my _ _ life, _
 270         Now I live to wor -- ship _ _ you.
 271
 272         _ _ _ _ _ _ _ _ _
 273         _ _ _ _ _ _ _ _ _ _ _
 274         _ _ _ _ _ _ _ _ _
 275         _ _ _ _ _ _ _ _ _ _ _
 276         _ _ _ _ _ _ _ _ _
 277
 278         You _ took the _ _ cross, _
 279         You took my _ _ shame, _
 280         Re -- stored my _ _ life, _
 281 }
 282
 283 LeadVoxTextC = \lyricmode
 284 {
 285         _ Shine your _ light, _ and show your _ face _
 286 }
 287
 288 LeadVoxTextD = \lyricmode
 289 {
 290         _ In my _ life, _ Lord have your _ way _
 291 }
 292
 293
 294 Riffs = \relative c'
 295 {
 296 %       \clef G
 297 %Hm. Needed anymore?
 298 %       \override Score.SpacingSpanner #'average-spacing-wishes = ##f
 299         \set tupletSpannerDuration = #(ly:make-moment 1 4)
 300
 301         % Intro
 302
 303         \tiny
 304         \normalsize
 305 }
 306
 307
 308 %
 309 % Chord names
 310 %
 311 Chords = \chordmode
 312 {
 313         % Intro
 314
 315         s1*4 |   % 1-4
 316
 317         % A section
 318
 319         c1 |   % 5
 320         s1 |   % 6
 321         s1 |   % 7
 322         g4. a:m f4 |   % 8
 323         s1 |   % 9
 324         s1 |   % 10
 325
 326         % B section
 327
 328         c1 |   % 11
 329         s1 |   % 12
 330         g1 |   % 13
 331         s1 |   % 14
 332         a1:m |   % 15
 333         s1 |   % 16
 334         f1 |   % 17
 335         s1 |   % 18
 336
 337         % A section
 338
 339         c1 |   % 19
 340         s1 |   % 20
 341         s1 |   % 21
 342         g4. a:m f4 |   % 22
 343         s1 |   % 23
 344         s1 |   % 24
 345
 346         c1 |   % 25
 347         s1 |   % 26
 348         s1 |   % 27
 349         g4. a:m f4 |   % 28
 350         s1 |   % 29
 351         s1 |   % 30
 352
 353         % B section
 354
 355         c1 |   % 31
 356         s1 |   % 32
 357         g1 |   % 33
 358         s1 |   % 34
 359         a1:m |   % 35
 360         s1 |   % 36
 361         f1 |   % 37
 362         s1 |   % 38
 363
 364         % C section
 365
 366         a1:m |   % 39
 367         g1 |   % 40
 368         f1 |   % 41
 369         s1 |   % 42
 370
 371         a1:m |   % 43
 372         g1 |   % 44
 373         f1 |   % 45
 374         s1 |   % 46
 375
 376         a1:m |   % 47
 377         g1 |   % 48
 378         f1 |   % 49
 379         s1 |   % 50
 380
 381         s1 |   % 51
 382         s1 |   % 52
 383         s1 |   % 53
 384         s1 |   % 54
 385
 386         % B section
 387
 388         c1 |   % 55
 389         s1 |   % 56
 390         g1 |   % 57
 391         s1 |   % 58
 392         a1:m |   % 59
 393         s1 |   % 60
 394         f1 |   % 61
 395         s1 |   % 62
 396
 397         % C section
 398
 399         c1 |   % 63
 400         s1 |   % 64
 401         g1 |   % 65
 402         s1 |   % 66
 403         a1:m |   % 67
 404         s1 |   % 68
 405         f1 |   % 69
 406         s1 |   % 70
 407
 408         % Outro
 409
 410         c1 |   % 71
 411 }
 412
 413
 414 %
 415 % Chord rhythms
 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 Rhythm = \relative c
 421 {
 422 %%      \set Voice.autoBeaming = ##f
 423 %%      \set Staff.instrument = #"Rhythm"
 424         \override Staff.TimeSignature #'style = #'()
 425         \override NoteHead #'style = #'slash
 426         \override MultiMeasureRest #'expand-limit = 1
 427
 428 %Not small enough...
 429         \teeny
 430 %       \magnify #0.3
 431
 432         % Intro
 433
 434         R1*4 |   % 1-4
 435
 436         % A section
 437
 438         c4 c c c |   % 5
 439         c4 c c c |   % 6
 440         c4 c c c |   % 7
 441         c4. c8 ~ c4 c |   % 8
 442         c4 c c c |   % 9
 443         c4 c c c |   % 10
 444
 445         % B section
 446
 447         c4 c c c |   % 11
 448         c4 c c c |   % 12
 449         c4 c c c |   % 13
 450         c4 c c c |   % 14
 451         c4 c c c |   % 15
 452         c4 c c c |   % 16
 453         c4 c c c |   % 17
 454         c4 c c c |   % 18
 455
 456         % A section
 457
 458         c4 c c c |   % 19
 459         c4 c c c |   % 20
 460         c4 c c c |   % 21
 461         c4. c8 ~ c4 c |   % 22
 462         c4 c c c |   % 23
 463         c4 c c c |   % 24
 464
 465         c4 c c c |   % 25
 466         c4 c c c |   % 26
 467         c4 c c c |   % 27
 468         c4. c8 ~ c4 c |   % 28
 469         c4 c c c |   % 29
 470         c4 c c c |   % 30
 471
 472         % B section
 473
 474         c4 c c c |   % 31
 475         c4 c c c |   % 32
 476         c4 c c c |   % 33
 477         c4 c c c |   % 34
 478         c4 c c c |   % 35
 479         c4 c c c |   % 36
 480         c4 c c c |   % 37
 481         c4 c c c |   % 38
 482
 483         % C section
 484
 485         c4 c c c |   % 39
 486         c4 c c c |   % 40
 487         c4 c c c |   % 41
 488         c4 c c c |   % 42
 489
 490         c4 c c c |   % 43
 491         c4 c c c |   % 44
 492         c4 c c c |   % 45
 493         c4 c c c |   % 46
 494
 495         c4 c c c |   % 47
 496         c4 c c c |   % 48
 497         c4 c c c |   % 49
 498         c4 c c c |   % 50
 499
 500         c4 c c c |   % 51
 501         c4 c c c |   % 52
 502         c4 c c c |   % 53
 503         c4 c c c |   % 54
 504
 505         % B section
 506
 507         c4 c c c |   % 55
 508         c4 c c c |   % 56
 509         c4 c c c |   % 57
 510         c4 c c c |   % 58
 511         c4 c c c |   % 59
 512         c4 c c c |   % 60
 513         c4 c c c |   % 61
 514         c4 c c c |   % 62
 515
 516         % C section
 517
 518         c4 c c c |   % 63
 519         c4 c c c |   % 64
 520         c4 c c c |   % 65
 521         c4 c c c |   % 66
 522         c4 c c c |   % 67
 523         c4 c c c |   % 68
 524         c4 c c c |   % 69
 525         c4 c c c |   % 70
 526
 527         % Outro
 528
 529         c1 ~ |   % 71
 530         c1 ~ |   % 72
 531         c1 ~ |   % 73
 532         c1 ~ |   % 74
 533         c1-\fermata |   % 75
 534 }
 535
 536
 537 Dynamics =
 538 {
 539 %       s1*4 |   % 1-4
 540 %       s4_\markup { \italic { 1st X: Melody, 2nd X+: Solos } } s2. |   % 5
 541 %       s1*38 |   % 1-38
 542 %       s4_\markup { \bold \italic { Double Chorus 2nd X } } s2. |   % 39
 543 %       s1*7 |   % 40-46
 544 %       s4_\markup { \bold { Tutti } } s2. |   % 47
 545 %       s4 |   % 0
 546 %       s2.*39 |   % 1-39
 547 %       s4_\markup { \large \bold \italic { Solo } } s2 |   % 40
 548 }
 549
 550
 551 \score
 552 {
 553         <<
 554                 \set Score.skipBars = ##t
 555                 \set Score.melismaBusyProperties = #'()
 556
 557 %               \new Staff
 558                 <<
 559                         \new ChordNames \transpose c g \Chords
 560 %Capo 4 edition
 561 %                       \new ChordNames \transpose b g \Chords
 562                         \new RhythmicStaff << \Rhythm \Dynamics >>
 563                 >>
 564
 565                 \new Staff
 566                 <<
 567                         \Global                                         % The "roadmap" that everything else depends on
 568                         \new Voice = "lead"  \transpose c g \LeadVox
 569                         \new Voice  \transpose c g \Riffs
 570                         \new Lyrics \lyricsto "lead" \LeadVoxText
 571                         \new Lyrics \lyricsto "lead" \LeadVoxTextB
 572                         \new Lyrics \lyricsto "lead" \LeadVoxTextC
 573                         \new Lyrics \lyricsto "lead" \LeadVoxTextD
 574                 >>
 575         >>
 576 }
 577
 578
 579 \paper
 580 {
 581   #(define fonts (make-pango-font-tree
 582     "Times New Roman"
 583     "DomCasual BT"
 584     "Luxi Mono"
 585     (/ staffSize 20)))
 586
 587 % Spread staves vertically across last page (default: t)
 588         ragged-last-bottom = ##f
 589 % Don't spread staves vertically across the page (default: f)
 590 %       ragged-bottom = ##t
 591 % Allow partial line for last stave (default: f)
 592         ragged-last = ##t
 593
 594 % To find out what's eating the space at the top...
 595 %       annotate-spacing = ##t
 596 %let's try this: [It works! Huzzah!]
 597         obsolete-page-top-space = 0  top-system-spacing #'basic-distance = #(/ obsolete-page-top-space staff-space)
 598 }