Shamusworld >> Repos - music/blob - hallelujah.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 "Hallelujah (Your Love Is Amazing)" }
  18 %       composer = \markup { \override #'(font-family . sans) \fontsize #1.3 "" }
  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 =
  38 {
  39         \key g \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         \repeat volta 2
  51         {
  52                 s1*4 |   % 1-4
  53         }
  54
  55         % Verse
  56
  57         \repeat volta 3
  58         {
  59                 \mark \markup { \override #'(font-family . sans) { \box { A } } }
  60                 s1*8 \bar "||"   % 5-12
  61
  62                 \mark \markup { \override #'(font-family . sans) { \box { B } } }
  63                 s1*7 |   % 13-19
  64         }
  65         \alternative
  66         {
  67                 {
  68                         s1*2 |   % 20-21
  69                 }
  70                 {
  71                         s1 \bar "||"   % 22
  72                 }
  73         }
  74
  75         % Bridge
  76
  77         \mark \markup { \override #'(font-family . sans) { \box { C } } }
  78         s1*7 |   % 23-29
  79
  80         % Chorus
  81
  82         \repeat volta 2
  83         {
  84                 \mark \markup { \override #'(font-family . sans) { \box { D } } }
  85                 s1*7 |   % 30-36
  86         }
  87         \alternative
  88         {
  89                 {
  90                         s1 |   % 37
  91                 }
  92                 {
  93                         s1 |   % 38
  94                 }
  95         }
  96
  97         % Outro
  98
  99         s1*5 \bar "|."   % 39-43
 100 }
 101
 102
 103 %
 104 % Lead vocal
 105 %
 106 LeadVox = \relative c'
 107 {
 108 %       \set Staff.instrument = #"Lead vox"
 109         \clef G
 110         \override Staff.TimeSignature #'style = #'()
 111 %Hm. Needed anymore?
 112 %       \override Score.SpacingSpanner #'average-spacing-wishes = ##f
 113         \set tupletSpannerDuration = #(ly:make-moment 1 4)
 114
 115         % Intro
 116
 117         r1 |   % 1
 118         r1 |   % 2
 119         r1 |   % 3
 120         r2 e16 g8 g16 ~ g e8 a16 ~ |   % 4
 121
 122         % Verse
 123
 124         a4 b e,16 g8 g16 ~ g e8 a16 ~ |   % 5
 125         a4 b e,16 g8 g16 ~ g e8 a16 ~ |   % 6
 126         a4 b e,8 g16 g ~ g e8 g16 ~ |   % 7
 127         g4 r e16 g8 g16 ~ g e8 a16 ~ |   % 8
 128         a4 b e,16 g8 g16 ~ g e8 a16 ~ |   % 9
 129         a4 b8. \tiny e,16 \normalsize e16 g8 g16 ~ g e8 a16 ~ |   % 10
 130         a4 b e,16 g8 g16 ~ g e8 e16 ~ |   % 11
 131         e16 ( d c8 ) r4 r c'8 c16 c ~ |   % 12
 132
 133          % Chorus
 134
 135         c16 b ~ b8 ~ b4 r b8 b16 b ~ |   % 13
 136         b16 a ~ a8 ~ a2 a8 g16 a ~ |   % 14
 137         a16 b ~ b8 ~ b4 r2 |   % 15
 138         a16 a8 b16 ~ b g8 g16 ~ g4 c8 c16 c ~ |   % 16
 139         c16 b ~ b8 ~ b4 r b8 b16 b ~ |   % 17
 140         b16 a ~ a8 ~ a2 a8 g16 a ~ |   % 18
 141         a16 b ~ b8 ~ b4 r2 |   % 19
 142
 143         a16 a8 b16 ~ b g8 g16 ~ g2 |   % 20
 144         r2 e16 g8 g16 ~ g e8 a16 |   % 21
 145
 146         a16 a8 b16 ~ b g8 g16 ~ g2 |   % 22
 147
 148         % Bridge
 149
 150         r2 a16 a8 b16 ~ b g ~ g8 ~ |   % 23
 151         g8 e16 ( d ~ d4 ) r2 |   % 24
 152         r2 a'16 a8 b16 ~ b g ~ g8 ~ |   % 25
 153         g8 b4 a8 ( ~ a4 g8 ) fs ~ |   % 26
 154         fs4 r a16 a8 b16 ~ b g ~ g8 ~ |   % 27
 155         g8 e16 ( d ~ d2 ) r4 |   % 28
 156         r2 r4 c'8 c16 c ~ |   % 29
 157
 158         % Chorus
 159
 160         c16 b ~ b8 ~ b4 r b8 b16 b ~ |   % 30
 161         b16 a ~ a8 ~ a2 a8 g16 a ~ |   % 31
 162         a16 b ~ b8 ~ b4 r2 |   % 32
 163         a16 a8 b16 ~ b g8 g16 ~ g4 c8 c16 c ~ |   % 33
 164         c16 b ~ b8 ~ b4 r b8 b16 b ~ |   % 34
 165         b16 a ~ a8 ~ a2 a8 g16 a ~ |   % 35
 166         a16 b ~ b8 ~ b4 r2 |   % 36
 167
 168         a16 a8 b16 ~ b g8 g16 ~ g4 c8 c16 c |   % 37
 169
 170         a16 a8 b16 ~ b g8 g16 ~ g2 |   % 38
 171
 172         % Outro
 173
 174         r1 |   % 39
 175         r2 a16 a8 b16 ~ b g ~ g8 ~ |   % 40
 176         g8 g8 ~ g4 r2 |   % 41
 177         r2 a16 a8 b16 ~ b g ~ g8 ~ |   % 42
 178         g8 g ~ g2.-\fermata |   % 43
 179 }
 180
 181
 182 LeadVoxText = \lyricmode
 183 {
 184         Your love is _ a -- ma -- _ zing,
 185         stea -- dy and _ un -- chang -- _ ing
 186         Your love is _ a moun -- _ tain,
 187         firm be -- neath _ my feet. _
 188         Your love is _ a mys -- _ t’ry
 189         how you gent -- _ ly lift _ me
 190         _ When I am _ sur -- round -- _ ed
 191         your love car -- _ ries me. _ _ _
 192
 193         Hal -- le -- lu -- _ jah! _ _
 194         Hal -- le -- lu -- _ jah! _ _
 195         Hal -- le -- lu -- _ jah! _ _
 196         Your love makes _ me sing, _
 197         Hal -- le -- lu -- _ jah! _ _
 198         Hal -- le -- lu -- _ jah! _ _
 199         Hal -- le -- lu -- _ jah! _ _
 200         Your love makes _ me sing _
 201
 202         Your love is _ sur -- pri-
 203
 204         Your love makes _ me sing! _
 205
 206         Yes you make _ me _ _ sing _ _
 207         Lord you make _ me _ _ sing, sing, _ _ sing _
 208         How you make _ me _ _ sing _ _
 209
 210         Hal -- le -- lu -- _ jah! _ _
 211         Hal -- le -- lu -- _ jah! _ _
 212         Hal -- le -- lu -- _ jah! _ _
 213         Your love makes _ me sing, _
 214         Hal -- le -- lu -- _ jah! _ _
 215         Hal -- le -- lu -- _ jah! _ _
 216         Hal -- le -- lu -- _ jah! _ _
 217         Your love makes _ me sing _
 218
 219         Hal -- le -- lu-
 220
 221         Your love makes _ me sing _
 222         Your love makes _ me _ _ sing _
 223         Your love makes _ me _ _ sing! _
 224 }
 225
 226 LeadVoxTextB = \lyricmode
 227 {
 228         _ _ _ _ _ _ _ sing,
 229         I can feel _ it ris -- _ ing
 230         All the joy _ that’s grow -- _ ing,
 231         deep in -- side _ of me. _
 232         Ev -- ’ry time _ I see _ you
 233         all your good -- _ ness shines _ through,
 234         and I can feel _ this God _ song
 235         ris -- ing up _ in me. _ _ _
 236
 237         _ _ _ _ _ _ _
 238         _ _ _ _ _ _ _
 239         _ _ _ _ _ _ _
 240         _ _ _ _ _ _ _
 241         _ _ _ _ _ _ _
 242         _ _ _ _ _ _ _
 243         _ _ _ _ _ _ _
 244         _ _ _ _ _ _ _
 245
 246         Your love is _ a -- ma-
 247 }
 248
 249
 250 Riffs = \relative c'
 251 {
 252 %       \clef G
 253 %Hm. Needed anymore?
 254 %       \override Score.SpacingSpanner #'average-spacing-wishes = ##f
 255         \set tupletSpannerDuration = #(ly:make-moment 1 4)
 256
 257         % Intro
 258
 259         \tiny
 260         \normalsize
 261 }
 262
 263
 264 %
 265 % Chord names
 266 %
 267 Chords = \chordmode
 268 {
 269         % Intro
 270
 271         g1/b |   % 1
 272         c1:sus2 |   % 2
 273         d1:sus4 |   % 3
 274         c1:sus2 |   % 4
 275
 276         % Verse
 277
 278         g1/b |   % 5
 279         c1:sus2 |   % 6
 280         d1:sus4 |   % 7
 281         c1:sus2 |   % 8
 282         g1/b |   % 9
 283         c1:sus2 |   % 10
 284         d1:sus4 |   % 11
 285         c1:sus2 |   % 12
 286
 287          % Chorus
 288
 289         g1 |   % 13
 290         d2:sus4 d |   % 14
 291         e1:m7 |   % 15
 292         c1:sus2 |   % 16
 293         g1 |   % 17
 294         d2:sus4 d |   % 18
 295         e1:m7 |   % 19
 296
 297         c1:sus2 |   % 20
 298         c1:sus2 |   % 21
 299
 300         c1:sus2 |   % 22
 301
 302         % Bridge
 303
 304         d1 |   % 23
 305         e1:m7 |   % 24
 306         d1/fs |   % 25
 307         c1:sus2 |   % 26
 308         d1 |   % 27
 309         e1:m7 |   % 28
 310         c2 d |   % 29
 311
 312         % Chorus
 313
 314         g1 |   % 30
 315         d1 |   % 31
 316         e1:m7 |   % 32
 317         c1:sus2 |   % 33
 318         g1 |   % 34
 319         d1 |   % 35
 320         e1:m7 |   % 36
 321
 322         c1:sus2 |   % 37
 323
 324         c1:sus2 |   % 38
 325
 326         % Outro
 327
 328         s1 |   % 39
 329         s1 |   % 40
 330         s1 |   % 41
 331         s1 |   % 42
 332         c1:sus2 |   % 43
 333 }
 334
 335
 336 %
 337 % Chord rhythms
 338 %
 339 % Use a RhythmicStaff on the chords instead of this?
 340 % It almost works, but not quite. Doesn't collapse chords above to single notes...
 341 %
 342 Rhythm = \relative c
 343 {
 344 %%      \set Voice.autoBeaming = ##f
 345 %%      \set Staff.instrument = #"Rhythm"
 346         \override Staff.TimeSignature #'style = #'()
 347         \override NoteHead #'style = #'slash
 348
 349 %Not small enough...
 350         \teeny
 351 %       \magnify #0.3
 352
 353         % Intro
 354
 355         c1 |   % 1
 356         c1 |   % 2
 357         c1 |   % 3
 358         c1 |   % 4
 359
 360         % Verse
 361
 362         c4 c c c |   % 5
 363         c4 c c c |   % 6
 364         c4 c c c |   % 7
 365         c4 c c c |   % 8
 366         c4 c c c |   % 9
 367         c4 c c c |   % 10
 368         c4 c c c |   % 11
 369         c4 c c c |   % 12
 370
 371          % Chorus
 372
 373         c4 c c c |   % 13
 374         c4 c c c |   % 14
 375         c4 c c c |   % 15
 376         c4 c c c |   % 16
 377         c4 c c c |   % 17
 378         c4 c c c |   % 18
 379         c4 c c c |   % 19
 380
 381         c4 c c c |   % 20
 382         c1 |   % 21
 383
 384         c4 c c c |   % 22
 385
 386         % Bridge
 387
 388         c4 c c c |   % 23
 389         c4 c c c |   % 24
 390         c4 c c c |   % 25
 391         c4 c c c |   % 26
 392         c4 c c c |   % 27
 393         c4 c c c |   % 28
 394         c4 c c c |   % 29
 395
 396         % Chorus
 397
 398         c4 c c c |   % 30
 399         c4 c c c |   % 31
 400         c4 c c c |   % 32
 401         c4 c c c |   % 33
 402         c4 c c c |   % 34
 403         c4 c c c |   % 35
 404         c4 c c c |   % 36
 405
 406         c4 c c c |   % 37
 407
 408         c4 c c c |   % 38
 409
 410         % Outro
 411
 412         c4 c c c |   % 39
 413         c4 c c c |   % 40
 414         c4 c c c |   % 41
 415         c4 c c c |   % 42
 416         c1-\fermata |   % 43
 417 }
 418
 419
 420 Dynamics =
 421 {
 422 %       s1*4 |   % 1-4
 423 %       s4_\markup { \italic { 1st X: Melody, 2nd X+: Solos } } s2. |   % 5
 424 %       s1*38 |   % 1-38
 425 %       s4_\markup { \bold \italic { Double Chorus 2nd X } } s2. |   % 39
 426 %       s1*7 |   % 40-46
 427 %       s4_\markup { \bold { Tutti } } s2. |   % 47
 428 %       s4 |   % 0
 429 %       s2.*39 |   % 1-39
 430 %       s4_\markup { \large \bold \italic { Solo } } s2 |   % 40
 431 }
 432
 433
 434 \score
 435 {
 436         <<
 437                 \set Score.skipBars = ##t
 438                 \set Score.melismaBusyProperties = #'()
 439
 440 %               \new Staff
 441                 <<
 442                         \new ChordNames \Chords
 443 %Capo 4 edition
 444 %                       \new ChordNames \transpose b g \Chords
 445                         \new RhythmicStaff << \Rhythm \Dynamics >>
 446                 >>
 447
 448                 \new Staff
 449                 <<
 450                         \Global                                         % The "roadmap" that everything else depends on
 451                         \new Voice = "lead" \LeadVox
 452                         \new Voice \Riffs
 453                         \new Lyrics \lyricsto "lead" \LeadVoxText
 454                         \new Lyrics \lyricsto "lead" \LeadVoxTextB
 455                 >>
 456         >>
 457 }
 458
 459
 460 \paper
 461 {
 462   #(define fonts (make-pango-font-tree
 463     "Times New Roman"
 464     "DomCasual BT"
 465     "Luxi Mono"
 466     (/ staffSize 20)))
 467
 468 % Spread staves vertically across last page (default: t)
 469         ragged-last-bottom = ##f
 470 % Don't spread staves vertically across the page (default: f)
 471 %       ragged-bottom = ##t
 472 % Allow partial line for last stave (default: f)
 473         ragged-last = ##t
 474
 475 % To find out what's eating the space at the top...
 476 %       annotate-spacing = ##t
 477 %let's try this: [It works! Huzzah!]
 478         obsolete-page-top-space = 0  top-system-spacing #'basic-distance = #(/ obsolete-page-top-space staff-space)
 479 }