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