Shamusworld >> Repos - music/blob - mourning-into-dancing.ly

   1 \version "2.19.0"
   2 \include "pop-chords.ly"
   3 \include "english.ly"
   4
   5 % Good sizes are 16, 18, & 20 (11, 13, 14, 23, 26)
   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         title    = \markup { \override #'(font-family . sans) \fontsize #3.5 "Mourning Into Dancing" }
  16         composer = \markup { \override #'(font-family . sans) \fontsize #1.3 "Tommy Walker" }
  17         arranger = \markup { \override #'(font-family . sans) \fontsize #1.3 "arr. Ed Smart" }
  18         tagline  = $(string-append "Engraved by JLH and Lilypond " (lilypond-version))
  19 }
  20
  21 % Useful tweak abbreviations (hn = harmony note)
  22
  23 hn = #(define-music-function (parser location arg) (ly:music?)
  24 ;; Harmony Note: Set the tweaks property of the passed in note to use a smaller font
  25
  26   (set! (ly:music-property arg 'tweaks)
  27     (acons 'font-size -3.0 (ly:music-property arg 'tweaks))) arg)
  28
  29
  30 %
  31 % Song's structure
  32 %
  33 Global =
  34 {
  35         \clef F
  36         \key g \major
  37         \numericTimeSignature
  38         \time 4/4
  39
  40         \once \override TextScript #'padding = #2.0
  41         s1*0^\markup { \large \bold { Samba } }
  42 % Capo 4 version
  43 %       s1*0^\markup { \hspace #0.0 \raise #2.0 \larger \bold { "Moderate pop (*** CAPO 4 ***)" } }
  44
  45         % Intro
  46
  47         s1*3
  48         s2. \clef G s4 \bar ".|:-||"   % 1-4
  49
  50         \repeat volta 2
  51         {
  52                 % Verse
  53
  54                 \mark \markup { \override #'(font-family . sans) { \box { A } } }
  55
  56                 s1*8 \bar "||"   % 5-12
  57                 s1*8 \bar "||"   % 13-20
  58
  59                 % Chorus
  60
  61                 \mark \markup { \override #'(font-family . sans) { \box { B } } }
  62
  63                 s1*7 |   % 21-27
  64         }
  65         \alternative
  66         {
  67                 {
  68                         s1*2 |   % 28-29
  69                 }
  70                 {
  71                         s1 \bar "||"   % 30
  72                 }
  73         }
  74
  75         % Bridge
  76
  77         \mark \markup { \override #'(font-family . sans) { \box { C } } }
  78
  79         s1*8 \bar ".|:-||"   % 31-38
  80
  81         \repeat volta 2
  82         {
  83                 % Chorus
  84
  85                 \mark \markup { \override #'(font-family . sans) { \box { D } } }
  86
  87                 s1*8 \bar "||"   % 39-46
  88
  89                 % Tutti
  90
  91                 \mark \markup { \override #'(font-family . sans) { \box { E } } }
  92
  93                 s1*8 |   % 47-54
  94         }
  95 }
  96
  97
  98 %
  99 % Lead vocal
 100 %
 101 LeadVox = \relative c'
 102 {
 103         % Intro
 104
 105         s1 |   % 1
 106         s1 |   % 2
 107         s1 |   % 3
 108         s2. e8 g |   % 4
 109
 110         % Verse
 111
 112         b4. b8 a8. g16 ~ g8 g |   % 5
 113         r2 r4 r8 g |   % 6
 114         b4. b8 a8. g16 ~ g8 g |   % 7
 115         r2 r4 e8 g |   % 8
 116         b4. b8 a8. g16 ~ g8 g |   % 9
 117         r2 r4 e8 g |   % 10
 118         b4. b8 a8. g16 ~ g8 g |   % 11
 119         r2 b8. a16 ~ a8 g |   % 12
 120
 121         a4. bf8 a g4 g8 |   % 13
 122         r2 g8. e16 ~ e8 d |   % 14
 123         d4 b'2. |   % 15
 124         r2 b8. a16 ~ a8 g |   % 16
 125         a4. bf8 a g4 g8 |   % 17
 126         r2 r4 e8 g |   % 18
 127         a4. bf8 a4 r8 g |   % 19
 128         c4 b c d |   % 20
 129
 130         % Chorus
 131
 132         r4 d c b8. a16 ~ |   % 21
 133         a8 g r4 a b |   % 22
 134         c8. b16 ~ b8 a g4 r8 d |   % 23
 135         g8. a16 ~ a8 b b8. a16 ~ a8 r |   % 24
 136         r4 d c b8. a16 ~ |   % 25
 137         a8 g r4 a b |   % 26
 138         c8. b16 ~ b8 a g8. fs16 ~ fs8 g ~ |   % 27
 139
 140         g2 r |   % 28
 141         r2 r4 e8 g |   % 29
 142
 143         g2-\repeatTie r |   % 30
 144
 145         % Bridge
 146
 147         r4 r8 a a8. g16 ~ g8 g ~ |   % 31
 148         g2 r4 e8 g |   % 32
 149         a4. a8 ~ a8 g4 g8 ~ |   % 33
 150         g2 r4 e8 g |   % 34
 151         b4. b8 ~ b b4 a8 ~ |   % 35
 152         a2 r4 e8 g |   % 36
 153         b4. a8 a4 r8 a |   % 37
 154         c4 b c d |   % 38
 155
 156         % Chorus
 157
 158         r4 d c b8. a16 ~ |   % 39
 159         a8 g r4 a b |   % 40
 160         c8. b16 ~ b8 a g4 r8 d |   % 41
 161         g8. a16 ~ a8 b b8. a16 ~ a8 r |   % 42
 162         r4 d c b8. a16 ~ |   % 43
 163         a8 g r4 a b |   % 44
 164         c8. b16 ~ b8 a g8. fs16 ~ fs8 g ~ |   % 45
 165         g2 r |   % 46
 166
 167         % Tutti
 168
 169         s1*8 |   % 47-54
 170 }
 171
 172
 173 LeadVoxText = \lyricmode
 174 {
 175         Where there once was on -- ly _ hurt
 176         he gave his hea -- ling _ hand,
 177         Where there once was on -- ly _ pain
 178         he brought com -- fort like a _ friend,
 179
 180         I feel _ the sweet -- ness of his love
 181         pier -- cing _ my dark -- ness,
 182         I see _ the bright and mor -- ning sun
 183         as it ush -- ers in his joy -- ful glad -- ness,
 184
 185         He’s turned my mour -- _ ning
 186         in -- to danc -- ing _ a -- gain,
 187         he’s lift -- ed _ my sor -- rows; _
 188         I can’t stay si -- _ lent
 189         I must sing for _ his joy has _ come. _
 190
 191         Where there
 192         _
 193
 194         His an -- ger _ lasts _
 195         for a mo -- ment _ in time _
 196         but his fa -- vor _ is here _
 197         and will be on me for
 198         all my life -- time
 199
 200         He’s turned my mour -- _ ning
 201         in -- to danc -- ing _ a -- gain
 202         he’s lift -- ed _ my sor -- rows, _
 203         I can’t stay si -- _ lent
 204         I must sing for _ his joy has _ come. _
 205 }
 206
 207
 208 Riffs = \relative c
 209 {
 210         % Intro
 211
 212         \tiny
 213         \repeat percent 3 { g8. b16 ~ b8 d c8. e16 ~ e8 g } |   % 1-3
 214         g,8. b16 ~ b8 d c4 s |   % 4
 215
 216         % Verses, etc
 217
 218         s1*42 |   % 5-46
 219
 220         % Tutti
 221
 222 %       \set countPercentRepeats = ##t
 223 %       \repeat percent 2 {
 224         s1*0^\markup { \bold { Tutti } }
 225         g''8 b16 d ~ d g8 e16-^ ~ e c8.-^ ~ c8 a16 g |   % 47
 226         fs8 a16 c ~ c e8 d16 ~ d cs8 cs16 e8 d | % 48
 227         g,8 b16 d ~ d g8 e16 ~ e c8 e16 gs a8 b16 | % 49
 228         c16 b8 a16 fs8 g r2 | % 50
 229 %}
 230         g,8 b16 d ~ d g8 e16-^ ~ e c8.-^ ~ c8 a16 g |   % 51
 231         fs8 a16 c ~ c e8 d16 ~ d cs8 cs16 e8 d | % 52
 232         g,8 b16 d ~ d g8 e16 ~ e c8 e16 gs a8 b16 | % 53
 233         c16 b8 a16 fs8 g r2 | % 54
 234         \normalsize
 235 }
 236
 237
 238 %
 239 % Chord names
 240 %
 241 Chords = \chordmode
 242 {
 243         % Intro
 244
 245         g2 c:6 |   % 1
 246         g2 c:6 |   % 2
 247         g2 c:6 |   % 3
 248         g2 c:6 |   % 4
 249
 250         % Verse
 251
 252         g2 c:6 |   % 5
 253         g2 c:6 |   % 6
 254         g2 c:6 |   % 7
 255         g2 c:6 |   % 8
 256         g2 c:6 |   % 9
 257         g2 c:6 |   % 10
 258         g2 c:6 |   % 11
 259         g2 c:6 |   % 12
 260
 261         f2.. c8:sus2/e |   % 13
 262         s1 |   % 14
 263         g2 c:6 |   % 15
 264         g2 c:6 |   % 16
 265         f2.. c8:sus2/e |   % 17
 266         s1 |   % 18
 267         f1/ef |   % 19
 268         c4/d g/d g/d d8. g16 |   % 20
 269
 270         % Chorus
 271
 272         s2 ef4..:dim7 e16:m7 |   % 21
 273         s2 d4/fs g |   % 22
 274         a2:m7 g/b |   % 23
 275         c2 g4/d d8. g16 |   % 24
 276         s2 ef4..:dim7 e16:m7 |   % 25
 277         s2 d4/fs e/gs |   % 26
 278         a8.:m7 g/b c8:6 g8./d d g8 |   % 27
 279
 280         s2 c:6 |   % 28
 281         g2 c:6 |   % 29
 282
 283         g1 |   % 30
 284
 285         % Bridge
 286
 287         d2..:m7/g g8 |   % 31
 288         s1 |   % 32
 289         g2..:9.11+ g8 |   % 33
 290         s1 |   % 34
 291         e2..:m7/a a8 |   % 35
 292         s1 |   % 36
 293         a1:9.11+ |   % 37
 294         c4/d g/d c/d d8. g16 |   % 38
 295
 296         % Chorus
 297
 298         g2 ef4..:dim7 e16:m7 |   % 39
 299         s2 d4/fs g |   % 40
 300         a2:m7 g/b |   % 41
 301         c2 g4/d d8. g16 |   % 42
 302         s2 ef4..:dim7 e16:m7 |   % 43
 303         s2 d4/fs e/gs |   % 44
 304         a8.:m7 g/b c8:6 g8./d d g8 |   % 45
 305         s2 \parenthesize c4 \parenthesize d8. \parenthesize g16 |   % 46
 306 }
 307
 308
 309 %
 310 % Chord rhythms
 311 %
 312 Rhythm = \relative c
 313 {
 314         \numericTimeSignature
 315         \override NoteHead #'style = #'slash
 316 %Not small enough... (?)
 317         \teeny
 318 %       \magnify #0.3
 319
 320         % Intro
 321
 322         \repeat percent 3 { c8. c16 ~ c8 c c8. c16 ~ c8 c8 } |   % 1-3
 323         c8. c16 ~ c8 c c4-^ r |   % 4
 324
 325         % Verse
 326
 327         \repeat percent 8 { c8. c16 ~ c8 c c8. c16 ~ c8 c8 } |   % 5-12
 328
 329         c2..-> c8 ~ |   % 13
 330         c1 |   % 14
 331         \repeat percent 2 { c8. c16 ~ c8 c c8. c16 ~ c8 c8 } |   % 15-16
 332         c2..-> c8 ~ |   % 17
 333         c1 |   % 18
 334         c1-> |   % 19
 335         c4-> c-> c-> c8.-> c16-> ~ |   % 20
 336
 337         % Chorus
 338
 339         c4 c c c8. c16 ~ |   % 21
 340         c4 c c c |   % 22
 341         c4 c c c |   % 23
 342         c4 c c c8. c16 ~ |   % 24
 343         c4 c c c8. c16 ~ |   % 25
 344         c4 c c c |   % 26
 345         c8. c16 ~ c8 c c8. c16 ~ c8 c-> ~ |   % 27
 346
 347         c8. c16 ~ c8 c c8. c16 ~ c8 c8 |   % 28
 348         c8. c16 ~ c8 c c4-^ r |   % 29
 349
 350         c1 |   % 30
 351
 352         % Bridge
 353
 354         c2.. c8-> ~ |   % 31
 355         c1 |   % 32
 356         c2.. c8-> ~ |   % 33
 357         c1 |   % 34
 358         c2.. c8-> ~ |   % 35
 359         c1 |   % 36
 360         c1 |   % 37
 361         c4 c c c8. c16 ~ |   % 38
 362
 363         % Chorus
 364
 365         c4 c c c8. c16 ~ |   % 39
 366         c4 c c c |   % 40
 367         c4 c c c |   % 41
 368         c4 c c c8. c16 ~ |   % 42
 369         c4 c c c8. c16 ~ |   % 43
 370         c4 c c c |   % 44
 371         c8. c16 ~ c8 c c8. c16 ~ c8 c-> ~ |   % 45
 372         c2 \parenthesize c4 \parenthesize c8. \parenthesize c16 |   % 46
 373
 374         % Tutti
 375 %{
 376         r1 |   % 47
 377         r1 |   % 48
 378         r1 |   % 49
 379         r1 |   % 50
 380         r1 |   % 51
 381         r1 |   % 52
 382         r1 |   % 53
 383         r1 |   % 54
 384 %}
 385 }
 386
 387
 388 Dynamics =
 389 {
 390 %       s1*4 |   % 1-4
 391 %       s4_\markup { \italic { 1st X: Melody, 2nd X+: Solos } } s2. |   % 5
 392         s1*38 |   % 1-38
 393         s4_\markup { \bold \italic { Double Chorus 2nd X } } s2. |   % 39
 394         s1*7 |   % 40-46
 395 %       s4_\markup { \bold { Tutti } } s2. |   % 47
 396 }
 397
 398
 399 \score
 400 {
 401         <<
 402                 \Global         % The "roadmap" that everything else depends on
 403                 \set Score.skipBars = ##t
 404                 \set Score.melismaBusyProperties = #'()
 405
 406                 \context Staff
 407                 <<
 408                         \new Voice = "lead" \LeadVox
 409                         \new Voice \Riffs
 410                         \new Lyrics \lyricsto "lead" \LeadVoxText
 411                 >>
 412
 413                 \new ChoirStaff
 414                 <<
 415                         \new ChordNames \Chords
 416 %Capo 4 edition
 417 %                       \new ChordNames \transpose b g \Chords
 418                         \new RhythmicStaff << \Rhythm \Dynamics >>
 419                 >>
 420         >>
 421 }
 422
 423
 424 \paper
 425 {
 426         #(define fonts (make-pango-font-tree
 427                 "Times New Roman"
 428                 "LilyJAZZText"
 429                 "Luxi Mono"
 430                 (/ staffSize 20)))
 431
 432 % Spread staves vertically across last page (default: t)
 433         ragged-last-bottom = ##f
 434 % Don't spread staves vertically across the page (default: f)
 435 %       ragged-bottom = ##t
 436 % Allow partial line for last stave (default: f)
 437 %       ragged-last = ##t
 438
 439 % To find out what's eating the space at the top...
 440 %       annotate-spacing = ##t
 441 }
 442