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