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