Shamusworld >> Repos - music/blob - i-will-never-be.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 = #16
   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 "I Will Never Be (The Same Again)" }
  18         composer = \markup { \override #'(font-family . sans) \fontsize #1.3 "Geoff Bullock" }
  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 }
  22
  23
  24 %
  25 % Lead vocal
  26 %
  27
  28 LeadVox = \relative c'
  29 {
  30 %       \set Voice.autoBeaming = ##f
  31 %       \set Staff.instrument = #"Lead vox"
  32         \clef G
  33         \key d \major
  34         \override Staff.TimeSignature #'style = #'()
  35         \time 4/4
  36 \override Score.SpacingSpanner #'average-spacing-wishes = ##f
  37
  38         % Intro
  39
  40         s1 |   % 1
  41         s1 |   % 2
  42
  43         % A section
  44
  45         \repeat volta 2
  46         {
  47 \mark \markup { \override #'(font-family . sans) \box { A } }
  48                 r8 fs16 fs fs fs g8 ~ g4 r8 r16 g |   % 3
  49                 b4 a8 a ~ a4 r |   % 4
  50                 r8 d,16 d d e fs e ~ e4 r8 a  |   % 5
  51                 a8 e4 fs8 ~ fs4 r |   % 6
  52                 r8 fs16 fs fs fs g8 ~ g4 r8 b |   % 7
  53                 b8 a4 a8 ~ a4 r8 fs |   % 8
  54                 d4 fs8 fs16 e ~ e4. d16 cs |   % 9
  55         }
  56         \alternative
  57         {
  58                 {
  59                         d4 cs8 d ~ d4 r |   % 10
  60                 }
  61                 {
  62                         d4 cs8 d ~ d4 r |   % 11
  63                 }
  64         }
  65
  66         % B section
  67
  68 \once \override Score.RehearsalMark #'self-alignment-X = #left
  69 \mark \markup { \override #'(font-family . sans) { \box { B } } \hspace #1.0 \raise #2.0 \musicglyph #"scripts.segno" }
  70 %\mark \markup { \override #'(font-family . sans) \box { B } }
  71
  72         g8 g4 g8 ~ g4. a8 ~ |   % 12
  73         a8 e4 fs8 ~ fs2 |   % 13
  74         g8 g g g16 b ~ b b4. b16 |   % 14
  75         a8 e fs fs ~ fs4 r |   % 15
  76         f8 f16 f ~ f f g8 ~ g8. g16 ~ g4 |   % 16
  77         g8 g16 g ~ g f a8 ~ a4 r8 fs |   % 17
  78         d8 d16 b' ~ b8 a ~ a4 r8 fs |   % 18
  79         \time 2/4 g8 fs16 g ~ g b8. ( \time 4/4 |   % 19
  80 %\once \override Score.RehearsalMark #'self-alignment-X = #right
  81 %\mark \markup { \hspace #4.0 \italic { to Coda } \hspace #1.0 \musicglyph #"scripts.coda" }
  82 %Argh, needs to be adjusted by hand...!
  83         a8 ) a2..^\markup { \hspace #9.0 \raise #0.0 \italic { \larger { to Coda } } \hspace #1.0 \musicglyph #"scripts.coda" } \bar "||"   % 20
  84
  85         % A section
  86
  87 \mark \markup { \override #'(font-family . sans) \box { C } }
  88         r8 fs16 fs fs fs g8 ~ g4 r4 |   % 21
  89         r8 g16 g b8 a ~ a a4 r16 fs |   % 22
  90         d16 d b d ~ d fs8 e16 ~ e4 r8 a |   % 23
  91         a8 e4 fs8 ~ fs4 r8 r16 d |   % 24
  92         fs8 fs g g ~ g4 r8 b ~ |   % 25
  93         b8 a4 a8 ~ a4 r8 fs |   % 26
  94         d4 fs8 fs16 e ~ e4. d16 cs |   % 27
  95         d4 cs8 d ~ d4 r \bar "||"   % 28
  96
  97 \once \override Score.RehearsalMark #'self-alignment-X = #right
  98 \mark \markup { \italic { D.S. al Coda } }
  99
 100 % \stopStaff s1 \bar "" \startStaff   % That removed the spurious floating bar line from line break
 101 \stopStaff s1 \startStaff
 102 \set Score.currentBarNumber = #29
 103
 104 \once \override Score.RehearsalMark #'self-alignment-X = #left
 105 \mark \markup { { \musicglyph #"scripts.coda" } "Coda" }
 106
 107         % Coda
 108
 109         r8 fs16 fs fs fs g8 ~ g4 r8 r16 g |   % 29
 110         b4 a8 a ~ a4 r |   % 30
 111         r8 d,16 d d e fs e ~ e4 r8 a  |   % 31
 112         a8 e4 fs8 ~ fs4 r |   % 32
 113         r8 fs16 fs fs fs g8 ~ g4 r8 b |   % 33
 114         b8 a4 a8 ~ a4 r8 fs |   % 34
 115         d4 fs8 fs16 e ~ e4. d16 cs |   % 35
 116         d4 cs8 d ~ d4 r \bar "||"   % 36
 117
 118         % Outro
 119
 120         \key ef \major
 121
 122 \mark \markup { \override #'(font-family . sans) \box { D } }
 123         r8 g16 g g g af8 ~ af4 r8 r16 af |   % 37
 124         c4 bf8 bf ~ bf4 r |   % 38
 125         r8 ef,16 ef ef f g f ~ f4 r8 bf  |   % 39
 126         bf8 f4 g8 ~ g4 r |   % 40
 127         r8 g16 g g af af8 ~ af4 r8 c |   % 41
 128         c8 bf4 bf8 ~ bf4 r8 g |   % 42
 129         ef4 g8 g16 f ~ f4. ef16 d |   % 43
 130         ef4 d8 ef ~ ef4 r8 g |   % 44
 131
 132         ef4 g8 g16 f ~ f4. ef16 d |   % 45
 133         ef4 d8 ef ~ ef4 r8 g |   % 46
 134         ef4 g8 g16 f ~ f4. ef16 d |   % 47
 135         ef2. d4 |   % 48
 136         \voiceTwo { ef2 r2 } \oneVoice |   % 49
 137         s1 \bar "|."   % 50
 138 }
 139
 140 LeadVoxText = \lyricmode
 141 {
 142         I will ne -- ver be _ the same a -- gain, _
 143         I can ne -- ver re -- turn, _ I’ve closed the door; _
 144         I will walk the path, _ I’ll run the race, _
 145         And I will ne -- ver _ be the same a -- again. _
 146
 147         same a -- gain. _
 148
 149         Fall like fire, _ soak _ like rain, _
 150         Flow like migh -- ty wa -- _ ters a -- gain and a -- gain. _
 151         Sweep a -- way _ the dark -- _ ness, _ burn a -- way _ the chaff, _
 152         And let a flame _ burn _ to glo -- ri -- fy _ your _ name!
 153
 154         There are high -- er heights, _ there are deep -- er _ seas;
 155         What -- e -- ver you want _ to do, _ Lord do in me. _
 156         The glo -- ry of God _ fills _ my life _
 157         And I will ne -- ver _ be the same a -- again. _
 158
 159         I will ne -- ver be _ the same a -- gain, _
 160         I can ne -- ver re -- turn, _ I’ve closed the door; _
 161         I will walk the path, _ I’ll run the race, _
 162         And I will ne -- ver _ be the same a -- again. _
 163
 164         I will ne -- ver be _ the same a -- gain, _
 165         I can ne -- ver re -- turn, _ I’ve closed the door; _
 166         I will walk the path, _ I’ll run the race, _
 167         And I will ne -- ver _ be the same a -- again. _
 168
 169         And I will ne -- ver _ be the same a -- again. _
 170         And I will ne -- ver _ be the same a -- again. _
 171 }
 172
 173
 174 Riffs = \relative c'
 175 {
 176         \clef G
 177         \key d \major
 178         \override Staff.TimeSignature #'style = #'()
 179         \time 4/4
 180 \override Score.SpacingSpanner #'average-spacing-wishes = ##f
 181
 182         % Intro
 183
 184         \tiny
 185         d4 fs8 fs16 e ~ e4. d16 cs |   % 1
 186         d4 cs8 d ~ d2 |   % 2
 187
 188         s1*16
 189         s2
 190         s1*9
 191         s1 % coda spacer
 192         s1*20
 193
 194         \voiceOne { r8 g16 g g g af8 ~ af2 } \oneVoice |   % 49
 195         c8 bf4. g2-\fermata |   % 50
 196         \normalsize
 197 }
 198
 199
 200 %
 201 % Chord names
 202 %
 203
 204 Chords = \chordmode
 205 {
 206 %Bah, can't we set this globally?
 207 %       \popChords
 208
 209         % Intro
 210
 211         g4. a2 s8 |   % 1
 212         g4/b a8/cs d2 s8 |   % 2
 213
 214         % A section
 215
 216         \repeat volta 2
 217         {
 218                 d4. g2/d s8 |   % 3
 219                 g4/b a8/cs d2 s8 |   % 4
 220                 g4.. a16 s2 |   % 5
 221                 g8/b a4/cs d4. a4:sus4 |   % 6
 222                 d4. e2:m11 s8 |   % 7
 223                 g8 a4 d4. d4/fs |   % 8
 224                 g4. a2 s8 |   % 9
 225         }
 226         \alternative
 227         {
 228                 {
 229                         g4/b a8/cs d4. a4:sus4 |   % 10
 230                 }
 231                 {
 232                         g4/b a8/cs d2 s8 |   % 11
 233                 }
 234         }
 235
 236         % B section
 237
 238         c4. g2/b a8:sus4 |   % 12
 239         s8 a4/cs d2 s8 |   % 13
 240         c4.. g16/b s2 |   % 14
 241         a4:sus4 a8/cs d4. d4/c |   % 15
 242         bf4. c2/bf s8 |   % 16
 243         a4.:m7 d2/a s8 |   % 17
 244         e4.:m11 d2/fs s8 |   % 18
 245         \time 2/4 g2 \time 4/4 |   % 19
 246         a2:sus4 a |   % 20
 247
 248         % A section
 249
 250         d4. g2/d s8 |   % 21
 251         g8/b a4/cs d2 s8 |   % 22
 252         g4.. a16 s2 |   % 23
 253         g8/b a4/cs d4. a4:sus4 |   % 24
 254         d4. e2:m11 g8/b |   % 25
 255         s8 a4/cs d4. d4/fs |   % 26
 256         g4. a2 s8 |   % 27
 257         g4/b a8/cs d2 s8 |   % 28
 258
 259 s1
 260
 261         % Coda
 262
 263         d4. g2/d s8 |   % 29
 264         g4/b a8/cs d2 s8 |   % 30
 265         g4.. a16 s2 |   % 31
 266         g8/b a4/cs d4. a4:sus4 |   % 32
 267         d4. e2:m11 s8 |   % 33
 268         g8 a4 d4. d4/fs |   % 34
 269         g4. a2 s8 |   % 35
 270         g4/b a8/cs d4. bf4 |   % 36
 271
 272         % Outro
 273
 274         ef4. af2/ef s8 |   % 37
 275         af4/c bf8/d ef2 s8 |   % 38
 276         af4.. bf16 s2 |   % 39
 277         af8/c bf4/d ef4. bf4:sus4 |   % 40
 278         ef4. f2:m11 s8 |   % 41
 279         af8/c bf4/d ef4. ef4/g |   % 42
 280         af4. bf2 s8 |   % 43
 281         af4/c bf8/d ef4. ef4/g |   % 44
 282         af4. bf2 s8 |   % 45
 283         af4/c bf8/d ef2 s8 |   % 46
 284         af4. bf2 s8 |   % 47
 285         af2./c bf4/d |   % 48
 286         ef4. af2/ef s8 |   % 49
 287         af8/c bf4./d ef2 |   % 50
 288 }
 289
 290 %
 291 % Chord rhythms
 292 %
 293
 294 % Use a RhythmicStaff on the chords instead of this?
 295 % It almost works, but not quite. Doesn't collapse chords above to single notes...
 296
 297 StaffC = \relative c
 298 {
 299 %       \set Voice.autoBeaming = ##f
 300 %       \set Staff.instrument = #"Rhythm"
 301         \override Staff.TimeSignature #'style = #'()
 302         \time 4/4
 303         \override NoteHead #'style = #'slash
 304
 305         % Intro
 306
 307         c4. c8 ~ c4 c |   % 1
 308         c4 c8 c ~ c4 c |   % 2
 309
 310         % A section
 311
 312         \repeat volta 2
 313         {
 314                 c4. c8 ~ c4 c |   % 3
 315                 c4 c8 c ~ c4 c |   % 4
 316                 c4 ~ c8. c16 ~ c4 c |   % 5
 317                 c8 c4 c8 ~ c4 c |   % 6
 318                 c4. c8 ~ c4 c |   % 7
 319                 c8 c4 c8 ~ c4 c |   % 8
 320                 c4. c8 ~ c4 c |   % 9
 321         }
 322         \alternative
 323         {
 324                 {
 325                         c4 c8 c ~ c4 c-> |   % 10
 326                 }
 327                 {
 328                         c4 c8 c ~ c4 c |   % 11
 329                 }
 330         }
 331
 332         % B section
 333
 334         c4.-> c8-> ~ c4. c8-> ~ |   % 12
 335         c8 c4 c8 ~ c4 c |   % 13
 336         c4 c8. c16 ~ c4 c |   % 14
 337         c4 c8 c-> ~ c4 c |   % 15
 338         c4. c8-> ~ c4 c |   % 16
 339         c4. c8 ~ c4 c |   % 17
 340         c4.-> c8-> ~ c4 c |   % 18
 341         \time 2/4 c4-> c \time 4/4 |   % 19
 342         c4-> c c c \bar "||"   % 20
 343
 344         % A section
 345
 346         c4. c8 ~ c4 c |   % 21
 347         c8 c4 c8 ~ c4 c |   % 22
 348         c4 c8. c16 ~ c4 c |   % 23
 349         c8 c4 c8 ~ c4 c |   % 24
 350         c4. c8 ~ c4. c8 ~ |   % 25
 351         c8 c4 c8 ~ c4 c |   % 26
 352         c4. c8 ~ c4 c |   % 27
 353         c4 c8 c ~ c4 c \bar "||"   % 28
 354
 355 % \stopStaff s1 \bar "" \startStaff   % That removed the spurious floating bar line from line break
 356 \stopStaff s1 \startStaff
 357 \set Score.currentBarNumber = #29
 358
 359         % Coda
 360
 361         c4. c8 ~ c4 c |   % 29
 362         c4 c8 c ~ c4 c |   % 30
 363         c4 c8. c16 ~ c4 c |   % 31
 364         c8 c4 c8 ~ c4 c |   % 32
 365         c4. c8 ~ c4 c |   % 33
 366         c8 c4 c8 ~ c4 c |   % 34
 367         c4. c8 ~ c4 c |   % 35
 368         c4 c8 c ~ c4 c \bar "||"   % 36
 369
 370         % Outro
 371
 372         c4. c8-> ~ c4 c |   % 37
 373         c4 c8 c-> ~ c4 c |   % 38
 374         c4 c8. c16 ~ c4 c |   % 39
 375         c8 c4-> c8-> ~ c4 c |   % 40
 376         c4. c8 ~ c4 c |   % 41
 377         c8 c4-> c8-> ~ c4 c |   % 42
 378         c4. c8 ~ c4 c |   % 43
 379         c4 c8 c ~ c4 c |   % 44
 380         c4. c8 ~ c4 c |   % 45
 381         c4 c8 c ~ c4 c |   % 46
 382         c4. c8 ~ c4 c |   % 47
 383         c4 c c c-> |   % 48
 384         c4. c8 ~ c4 c |   % 49
 385         c8 c4. c2-\fermata \bar "|."   % 50
 386 }
 387
 388
 389 Dynamics =
 390 {
 391         s4_\mp s2. |   % 1
 392         s1*9
 393         s2 s4 \< s |   % 11
 394         s4_\mf s2. |   % 12
 395         s1*4
 396         s4. s8 \< s2 |   % 17
 397         s4_\f s2. |   % 18
 398         s2 |   % 19
 399         s2 s4 \> s \! |   % 20
 400         s1*7
 401         s2 s4 \< s \! |   % 28
 402         s1 % coda filler
 403         s4_\mf s2. |   % 29
 404         s1*6
 405         s2 s4 \< s \! |   % 36
 406         s1*11
 407         s4 s \< s2 |   % 48
 408         s4_\f s2. |   % 49
 409         s8 s_\markup { \italic { rit. } } s2. |   % 50
 410
 411 %{
 412         s4_\markup { \italic { snare pat. } } s2 |   % 1
 413         s4_\markup { \italic { simile } } s2 |   % 2
 414         s2.*19
 415         s4_\markup { \italic { spacy } } s2 |   % 22
 416         s2.*5
 417         s4 s \< s \! |   % 28
 418         s2.*22
 419         s4_\markup { \italic { Last time } } s2 |   % 51
 420 %}
 421 }
 422
 423
 424 \score
 425 {
 426         <<
 427                 <<
 428 %                       \new Staff = leadStaff { \new Voice = "lead" \LeadVox }
 429                         \new Staff = leadStaff { << \new Voice = "lead" \LeadVox \new Voice = "riffs" \Riffs >> }
 430                         \new Lyrics \lyricsto "lead" \LeadVoxText
 431                 >>
 432
 433                 \new ChoirStaff = "Rhythm"
 434                 <<
 435                         \new ChordNames = "chords" \Chords
 436                         \new RhythmicStaff = "chordRhythm" << \StaffC \Dynamics >>
 437                 >>
 438
 439                 \set Score.skipBars = ##t
 440                 \set Score.melismaBusyProperties = #'()
 441         >>
 442 }
 443
 444
 445 \paper
 446 {
 447         #(define fonts (make-pango-font-tree
 448                 "Times New Roman"
 449                 "DomCasual BT"
 450                 "Luxi Mono"
 451                 (/ staffSize 20)))
 452
 453 % Don't spread staves vertically across last page (default: t)
 454 %       ragged-last-bottom = ##f
 455 % Don't spread staves vertically across the page (default: f)
 456 %       ragged-bottom = ##t
 457 % Allow partial line for last stave (default: f)
 458         ragged-last = ##t
 459
 460 % To find out what's eating the space at the top...
 461 %       annotate-spacing = ##t
 462 %let's try this: [It works! Huzzah!]
 463         obsolete-page-top-space = 0  top-system-spacing #'basic-distance = #(/ obsolete-page-top-space staff-space)
 464 }