Shamusworld >> Repos - music/blob - my-redeemer-lives.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 = #18
   7 #(set-default-paper-size "letter")
   8 #(set-global-staff-size staffSize)
   9 #(ly:set-option (quote no-point-and-click))
  10
  11 \header
  12 {
  13 %Let's bump up the title size and switch to the chord font. :-)
  14
  15         title    = \markup { \override #'(font-family . sans) \fontsize #3.5 "My Redeemer Lives" }
  16         composer = \markup { \override #'(font-family . sans) \fontsize #1.3 "Reuben Morgan" }
  17         arranger = \markup { \override #'(font-family . sans) \fontsize #1.3 "arr. Drippin’ Soul" }
  18         tagline  = $(string-append "Engraved by JLH and Lilypond " (lilypond-version))
  19 }
  20
  21
  22 %
  23 % Lead vocal
  24 %
  25
  26 LeadVox = \relative c''
  27 {
  28 %       \set Voice.autoBeaming = ##f
  29 %       \set Staff.instrument = #"Lead vox"
  30         \clef G
  31         \key e \major
  32         \override Staff.TimeSignature #'style = #'()
  33         \time 4/4
  34 \override Score.SpacingSpanner #'average-spacing-wishes = ##f
  35
  36         % Intro
  37
  38         \repeat volta 2
  39         {
  40                 R1 |   % 1
  41                 R1 |   % 2
  42         }
  43
  44         \repeat volta 3
  45         {
  46                 % Verse
  47
  48 \mark \markup { \override #'(font-family . sans) { \box { A } } }
  49
  50                 r4 gs gs4. fs8 |   % 3
  51                 fs8 e cs e ~ e4 r |   % 4
  52                 r4 gs gs4. fs8 |   % 5
  53                 fs8 e cs e ~ e e fs gs ~ ( |   % 6
  54                 gs2 ~ gs4. ~ gs16 fs |   % 7
  55                 e4 ) r r8 a a a ( |   % 8
  56                 gs4 ) r r2 |   % 9
  57                 R1 |   % 10
  58                 r4 gs gs4. fs8 |   % 11
  59                 fs8 e cs e ~ e4 r |   % 12
  60                 r4 gs gs4. fs8 |   % 13
  61                 fs8 e cs e ~ e e fs gs ~ ( |   % 14
  62                 gs2 ~ gs4. ~ gs16 fs |   % 15
  63                 e4 ) r r8 a a a ( |   % 16
  64                 gs4 ) r r2 |   % 17
  65                 R1 \bar "||"   % 18
  66
  67                 % Prechorus
  68
  69 \mark \markup { \override #'(font-family . sans) { \box { B } } }
  70
  71                 r4 fs fs e8 fs ~ |   % 19
  72                 fs8 gs4. r2 |   % 20
  73                 r8 e a4 a r8 a8 |   % 21
  74                 a8 gs a8 b ~ b r gs b \bar "||"   % 22
  75
  76                 % Chorus
  77
  78 \mark \markup { \override #'(font-family . sans) { \box { C } } \hspace #1.0 \raise #2.0 \musicglyph #"scripts.segno" }
  79
  80                 b2 gs4. e8 ~ |   % 23
  81                 e4 r r gs8 b |   % 24
  82                 b2 gs4. a16 ( gs |   % 25
  83                 fs4 ) r r gs8 b |   % 26
  84                 b2 gs4. e8 ~ |   % 27
  85                 e4 r r gs8 b |   % 28
  86         }
  87         \alternative
  88         {
  89                 {
  90                         b2 gs4. a16 ( gs |   % 29
  91                         fs2. ) r4 |   % 30
  92                 }
  93                 {
  94                         b2 gs4. a16 ( gs |   % 31
  95                         fs2. ) r4^\markup { \hspace #0.0 \raise #0.6 { D.S. } } \bar "||"   % 32
  96                 }
  97                 {
  98                         b2 gs4. a16 ( gs |   % 33
  99                         fs2. ) r4 |   % 34
 100                 }
 101         }
 102
 103         r1-\fermata \bar "|."   % 35
 104 }
 105
 106 LeadVoxText = \lyricmode
 107 {
 108         I know he res -- cued my soul, __ _
 109         His blood has cov -- ered my sins, _
 110         I be -- lieve, __ _ _ _ _ _
 111         I be -- lieve; _
 112
 113         My shame he’s tak -- en a -- way, __ _
 114         My pain is healed in his name, _
 115         I be -- lieve, __ _ _ _ _ _
 116         I be -- lieve; _
 117
 118         I’ll raise a ban -- _ ner
 119         ’cause my Lord has con -- quered the grave. _
 120
 121         My Re -- deem -- er lives, _
 122         my Re -- deem -- er lives; _ _
 123         My Re -- deem -- er lives, _
 124         my Re --
 125
 126         deem -- er lives. _ _
 127
 128         deem -- er lives. _ _
 129
 130         deem -- er lives. _ _
 131 }
 132
 133
 134 %
 135 % Riff/rhythm figures
 136 %
 137
 138 Riffs = \relative c''
 139 {
 140         \clef G
 141         \key e \major
 142         \override Staff.TimeSignature #'style = #'()
 143         \time 4/4
 144 \override Score.SpacingSpanner #'average-spacing-wishes = ##f
 145
 146         % Intro
 147
 148 %{
 149         \tiny
 150         \repeat "percent" 3   % 1 - 6
 151         {
 152                 << { \tiny f16 c f, <f' f,> ~ <f f,> f, c' f f8 e } \\ { \tiny f,,2 c'4 } >> |   % 1
 153                 << { \tiny f'16 c f, <f' f,> ~ <f f,> f, c' f f8 e } \\ { \tiny bf,2 c4 } >> |   % 2
 154         }
 155         << s2. \\ { \tiny d2 c4 } >> |   % 7
 156         << s2. \\ { \tiny bf2. } >> |   % 8
 157
 158         s2.*7
 159
 160         \voiceOne
 161         \repeat "percent" 6 { f''16 c f, <f' f,> ~ <f f,> f, c' f f8 e | }   % 16-21
 162         \oneVoice
 163
 164         s2.*7
 165
 166         \voiceOne
 167         \repeat "percent" 2 { f16 c f, f' ~ f f, c' f f8 e | }   % 29-30
 168         \oneVoice
 169
 170         \key g \major
 171
 172         \voiceOne
 173         \repeat "percent" 2 { g16 d g, g' ~ g g, d' g g8 fs | }   % 31-32
 174         \oneVoice
 175
 176         s2.*7
 177
 178         \voiceOne
 179         \repeat "percent" 4 { g16 d g, g' ~ g g, d' g g8 fs | }   % 40-43
 180         \oneVoice
 181         \normalsize
 182 %}
 183 }
 184
 185
 186 %
 187 % Chord names
 188 %
 189
 190 Chords = \chordmode
 191 {
 192 %Needed???
 193         \override SeparatingGroupSpanner #'padding = #'2.0
 194 % Bah, can't we set this globally?
 195 %       \popChords
 196
 197         % Intro
 198
 199         \repeat volta 2
 200         {
 201                 e1:7 |   % 1
 202                 a1:7 |   % 2
 203         }
 204
 205         \repeat volta 3
 206         {
 207                 % Verse
 208
 209                 e1:7 |   % 3
 210                 a1 |   % 4
 211                 e1:7 |   % 5
 212                 a1 |   % 6
 213                 e1:7 |   % 7
 214                 a1:7 |   % 8
 215                 e1:7 |   % 9
 216                 a1:7 |   % 10
 217                 e1:7 |   % 11
 218                 a1 |   % 12
 219                 e1:7 |   % 13
 220                 a1 |   % 14
 221                 e1:7 |   % 15
 222                 a1:7 |   % 16
 223                 e1:7 |   % 17
 224                 a1:7 |   % 18
 225
 226                 % Prechorus
 227
 228                 b1:sus4 |   % 19
 229                 s1 |   % 20
 230                 a1 |   % 21
 231                 a1/b |   % 22
 232
 233                 % Chorus
 234
 235                 e1 |   % 23
 236                 a1 |   % 24
 237                 cs1:m7 |   % 25
 238                 b1:sus4 |   % 26
 239                 e1 |   % 27
 240                 a1 |   % 28
 241         }
 242         \alternative
 243         {
 244                 {
 245                         cs1:m7 |   % 29
 246                         b1:sus4 |   % 30
 247                 }
 248                 {
 249                         cs1:m7 |   % 31
 250                         b1:sus4 |   % 32
 251                 }
 252                 {
 253                         cs1:m7 |   % 33
 254                         b1:sus4 |   % 34
 255                 }
 256         }
 257
 258         e1:^3 |   % 35
 259 }
 260
 261
 262 %
 263 % Chord rhythms
 264 %
 265
 266 % Use a RhythmicStaff on the chords instead of this?
 267 % It almost works, but not quite. Doesn't collapse chords above to single notes...
 268
 269 StaffC = \relative c
 270 {
 271 %       \set Voice.autoBeaming = ##f
 272 %       \set Staff.instrument = #"Rhythm"
 273         \override Staff.TimeSignature #'style = #'()
 274         \time 4/4
 275         \override NoteHead #'style = #'slash
 276
 277         % Intro
 278
 279         \repeat volta 2
 280         {
 281                 c4 c c c |   % 1
 282                 c4 c c c |   % 2
 283         }
 284
 285         \repeat volta 3
 286         {
 287                 % Verse
 288
 289                 c4 c c c |   % 3
 290                 c4 c c c |   % 4
 291                 c4 c c c |   % 5
 292                 c4 c c c |   % 6
 293                 c4 c c c |   % 7
 294                 c4 c c c |   % 8
 295                 c4 c c c |   % 9
 296                 c4 c c c |   % 10
 297                 c4 c c c |   % 11
 298                 c4 c c c |   % 12
 299                 c4 c c c |   % 13
 300                 c4 c c c |   % 14
 301                 c4 c c c |   % 15
 302                 c4 c c c |   % 16
 303                 c4 c c c |   % 17
 304                 c4 c c c \bar "||"   % 18
 305
 306                 % Prechorus
 307
 308                 c4 c c c |   % 19
 309                 c4 c c c |   % 20
 310                 c4 c c c |   % 21
 311                 c4 c c c \bar "||"   % 22
 312
 313                 % Chorus
 314
 315                 c4 c c c |   % 23
 316                 c4 c c c |   % 24
 317                 c4 c c c |   % 25
 318                 c4 c c c |   % 26
 319                 c4 c c c |   % 27
 320                 c4 c c c |   % 28
 321         }
 322         \alternative
 323         {
 324                 {
 325                         c4 c c c |   % 29
 326                         c4 c c c |   % 30
 327                 }
 328                 {
 329                         c4 c c c |   % 31
 330                         c4 c c c |   % 32
 331                 }
 332                 {
 333                         c4 c c c |   % 33
 334                         c4 c c c |   % 34
 335                 }
 336         }
 337
 338         c1-\fermata \bar "|."   % 35
 339 }
 340
 341
 342 Dynamics =
 343 {
 344 %{
 345         \override TextScript #'extra-offset = #'( 0.0 . -1.0 )
 346
 347         \partial 4*1 s4_\markup { \italic { lite snare, arp. gtr. } } |   % 0
 348         s2.*23
 349         s4_\markup { \italic { a capella } } s2 |   % 24
 350 %}
 351 }
 352
 353
 354 \score
 355 {
 356         <<
 357                 <<
 358 %                       \new Staff = leadStaff { \new Voice = "lead" \LeadVox }
 359                         \new Staff = leadStaff { << \new Voice = "lead" \LeadVox \new Voice = "riffs" \Riffs >> }
 360                         \new Lyrics \lyricsto "lead" \LeadVoxText
 361                 >>
 362
 363                 \new ChoirStaff = "Rhythm"
 364                 <<
 365                         \new ChordNames = "chords" \Chords
 366                         \new RhythmicStaff = "chordRhythm" << \StaffC \Dynamics >>
 367                 >>
 368
 369                 \set Score.skipBars = ##t
 370                 \set Score.melismaBusyProperties = #'()
 371         >>
 372
 373         \layout
 374         {
 375                 \context { \Staff \RemoveEmptyStaves }
 376 %               ragged-last-bottom = ##t
 377 %               ragged-last = ##t
 378         }
 379 }
 380
 381
 382 \paper
 383 {
 384   #(define fonts (make-pango-font-tree
 385     "Times New Roman"
 386     "DomCasual BT"
 387     "Luxi Mono"
 388     (/ staffSize 20)))
 389 }