Shamusworld >> Repos - music/blob - nothing-but-the-blood.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 "Nothing But The Blood" }
  16         composer = \markup { \override #'(font-family . sans) \fontsize #1.3 "Traditional" }
  17         arranger = \markup { \override #'(font-family . sans) \fontsize #1.3 "arr. Roger Freeland" }
  18         tagline  = "Engraved by JLH and Lilypond 2.8.2"
  19 }
  20
  21
  22 %
  23 % Lead vocal
  24 %
  25
  26 LeadVox = \relative c'
  27 {
  28         \set Voice.autoBeaming = ##f
  29 %       \set Staff.instrumentName = #"Lead vox"
  30         \clef G
  31         \key f \major
  32         \override Staff.TimeSignature #'style = #'()
  33         \time 4/4
  34 \override Score.SpacingSpanner #'average-spacing-wishes = ##f
  35
  36         % Intro/midtro
  37
  38         R1^\markup { \hspace #0.0 \raise #1.0 { Moderate folk-rock } } |   % 1
  39         R1 |   % 2
  40         R1 |   % 3
  41         R1 |   % 4
  42
  43         \repeat volta 3
  44         {
  45                 % Verse
  46
  47 \mark \markup { \override #'(font-family . sans) { \box { A } } }
  48
  49                 f4 f f g |   % 5
  50                 a4 c a2 |   % 6
  51                 f8 [ f f g ] a4 a |   % 7
  52                 g4. ( f8 ) f4 r |   % 8
  53                 f4 f f g |   % 9
  54                 a4 c a2 |   % 10
  55                 f8 [ f f g ] a4 a |   % 11
  56                 g4. ( f8 ) f4 r \bar "||"   % 12
  57
  58                 % Chorus
  59
  60 \mark \markup { \override #'(font-family . sans) { \box { B } } }
  61
  62 % Bah, some ppl don't like syncopation
  63 %{
  64                 c'4. a8 ~ a g4 a8 ~ |   % 13
  65                 a4 c8 [ a ] ~ a4 r |   % 14
  66                 g4. g8 ~ g8 f4 g8 ~ |   % 15
  67                 g8 g4 a8 ( \stemUp c4 ) \stemNeutral r |   % 16
  68                 c4. a8 ~ a g4 a8 ~ |   % 17
  69                 a8 c4 a8 ~ a4 r |   % 18
  70                 f8 [ f f g ] a4 a |   % 19
  71                 g4. ( f8 ) f4 r |   % 20
  72 %}
  73 % Straight as a stretched out wire... :-(
  74                 c'2 a4 g |   % 13
  75                 a4 c a r |   % 14
  76                 g2 g4 f |   % 15
  77                 g4 g a ( \stemUp c ) \stemNeutral |   % 16
  78                 c2 a4 g |   % 17
  79                 a4 c a r |   % 18
  80                 f8 [ f f g ] a4 a |   % 19
  81 %               g4. ( f8 ) f4 r |   % 20
  82                 g2.. ( f8 ) |   % 20
  83         }
  84         \alternative
  85         {
  86                 {
  87                         f4 r r2 |   % 21
  88                         R1 |   % 22
  89                         R1 |   % 23
  90                         R1 |   % 24
  91                 }
  92                 {
  93                         f4 r r2 |   % 25
  94                 }
  95         }
  96
  97         R1 |   % 26
  98
  99         % Outro
 100
 101         \repeat volta 2
 102         {
 103 \mark \markup { \override #'(font-family . sans) { \box { C } } }
 104
 105                 f8 [ f f g ] a4 a |   % 27
 106                 g4. ( f8 ) f4 r |   % 28
 107                 f8 [ f f g ] a4 a |   % 29
 108                 g4. ( f8 ) f4 r |   % 30
 109         }
 110
 111         % Ending
 112
 113         R1 |   % 31
 114         R1 \bar "|."   % 32
 115 }
 116
 117 % This isn't the hymnal melody, but I like it. So there! :-P
 118 LeadVoxAlt = \relative c''
 119 {
 120         \set Voice.autoBeaming = ##f
 121 %       \set Staff.instrumentName = #"Lead vox"
 122         \clef G
 123         \key f \major
 124         \override Staff.TimeSignature #'style = #'()
 125         \time 4/4
 126 \override Score.SpacingSpanner #'average-spacing-wishes = ##f
 127
 128         \repeat volta 3
 129         {
 130                 % Intro/midtro
 131
 132                 R1^\markup { Moderate folk-rock } |   % 1
 133                 R1 |   % 2
 134                 R1 |   % 3
 135                 R1 \bar "||"   % 4
 136
 137                 % Verse
 138
 139 \mark \markup { \override #'(font-family . sans) { \box { A } } }
 140                 c4 a8 [ a ] ~ a4 g8 [ a ] ~ |   % 5
 141                 a4 c8 [ c ] ~ c2 |   % 6
 142                 f,8 [ f f g ] a4 f |   % 7
 143                 g4. a8 ~ a4 r |   % 8
 144                 c4 a8 [ a ] ~ a4 g8 [ a ] ~ |   % 9
 145                 a4 c8 [ c ] ~ c2 |   % 10
 146                 f,8 [ f f g ] a4 f |   % 11
 147                 g4. f8 ~ f4 r \bar "||"   % 12
 148
 149                 % Chorus
 150
 151 \mark \markup { \override #'(font-family . sans) { \box { B } } }
 152                 c'4. a8 ~ a g4 a8 ~ |   % 13
 153                 a4 c8 [ c ] ~ c4 r |   % 14
 154                 d4. f8 ~ f8 d4 d8 ~ |   % 15
 155                 d8 c4 c8 ~ c4 r |   % 16
 156                 c4. a8 ~ a g4 a8 ~ |   % 17
 157                 a8 c4 c8 ~ c4 r |   % 18
 158                 f,8 [ f f g ] a4 f |   % 19
 159                 g4. f8 ~ f4 r |   % 20
 160         }
 161
 162         % Outro
 163
 164         \repeat volta 2
 165         {
 166 \mark \markup { \override #'(font-family . sans) { \box { C } } }
 167
 168                 f8 [ f f g ] a4 f |   % 21
 169                 g4. a8 ~ a4 r |   % 22
 170                 f8 [ f f g ] a4 f |   % 23
 171                 g4. f8 ~ f4 r |   % 24
 172         }
 173
 174         % Ending
 175
 176         R1 |   % 25
 177         R1 \bar "|."   % 26
 178 }
 179
 180 LeadVoxText = \lyricmode
 181 {
 182         What can wash a- way my sin?
 183         No- thing but the blood of Je- _ sus.
 184         What can make me whole a- gain?
 185         No- thing but the blood of Je- _ sus.
 186
 187 % Bah, some ppl don't like syncopation...
 188 %{
 189         Oh, pre- _ cious is _ the flow _
 190         That makes _ me white _ as snow; _
 191         No o- _ ther fount _ I know, _
 192         No- thing but the blood of Je- _ sus.
 193 %}
 194 % Straight as a stretched out wire... :-(
 195         Oh, pre- cious is the flow
 196         That makes me white as snow; _
 197         No o- ther fount I know,
 198         No- thing but the blood of Je- __ _ sus.
 199
 200         sus.
 201
 202         No- thing but the blood of Je- _ sus.
 203         No- thing but the blood of Je- _ sus.
 204 }
 205
 206 LeadVoxTextB = \lyricmode
 207 {
 208         No- thing can for sin a- tone,
 209         _ _ _ _ _ _ _ _ _
 210         Naught of good that I have done,
 211 }
 212
 213 LeadVoxTextC = \lyricmode
 214 {
 215         This is all my hope and peace,
 216         _ _ _ _ _ _ _ _ _
 217         This is all my right- eous- ness,
 218 }
 219
 220 % This isn't the hymnal rhythm, but I like it. So there! :-P
 221 LeadVoxTextAlt = \lyricmode
 222 {
 223         What can wash _ a- way _ my _ sin?
 224         No- thing but the blood of Je- _ sus.
 225         What can make _ me whole _ a- _ gain?
 226         No- thing but the blood of Je- _ sus.
 227
 228         Oh, pre- _ cious is _ the flow _
 229         That makes _ me white _ as snow; _
 230         No o- _ ther fount _ I know, _
 231         No- thing but the blood of Je- _ sus.
 232
 233         No- thing but the blood of Je- _ sus.
 234         No- thing but the blood of Je- _ sus.
 235 }
 236
 237 LeadVoxTextAltB = \lyricmode
 238 {
 239         No- thing can _ for sin _ a- _ tone,
 240         _ _ _ _ _ _ _ _ _
 241         Naught of good _ that I _ have _ done,
 242 }
 243
 244 LeadVoxTextAltC = \lyricmode
 245 {
 246         This is all _ my hope _ and _ peace,
 247         _ _ _ _ _ _ _ _ _
 248         This is all _ my right- _ eous- _ ness,
 249 }
 250
 251 %
 252 % Chord names
 253 %
 254
 255 Chords = \chordmode
 256 {
 257         % Intro/midtro
 258
 259         f4./a bf2:sus2 s8 |   % 1
 260         c4.:^3 d2:m7 s8 |   % 2
 261         f4./a bf2:sus2 s8 |   % 3
 262         c4.:^3 d2:m7 s8 |   % 4
 263
 264         \repeat volta 3
 265         {
 266                 % Verse
 267
 268                 f4./a bf2:sus2 s8 |   % 5
 269                 c4.:^3 d2:m7 s8 |   % 6
 270                 f4./a bf2:sus2 s8 |   % 7
 271                 c4.:^3 d2:m7 s8 |   % 8
 272                 f4./a bf2:sus2 s8 |   % 9
 273                 c4.:^3 d2:m7 s8 |   % 10
 274                 f4./a bf2:sus2 s8 |   % 11
 275                 c4.:^3 d2:m7 s8 |   % 12
 276
 277                 % Chorus
 278
 279                 f4. c2 s8 |   % 13
 280                 d4.:m7 f2 s8 |   % 14
 281                 bf4. f2/a s8 |   % 15
 282                 bf2 c |   % 16
 283                 f4./a bf2 s8 |   % 17
 284                 c4.:^3 d2:m7 s8 |   % 18
 285                 f4./a bf2 s8 |   % 19
 286                 c1:^3 |   % 20
 287         }
 288         \alternative
 289         {
 290                 {
 291                         f4./a bf2:sus2 s8 |   % 21
 292                         c4.:^3 d2:m7 s8 |   % 22
 293                         f4./a bf2:sus2 s8 |   % 23
 294                         c4.:^3 d2:m7 s8 |   % 24
 295                 }
 296                 {
 297                         f4./a bf2:sus2 s8 |   % 25
 298                 }
 299         }
 300
 301         c4.:^3 d2:m7 s8 |   % 26
 302
 303         % Outro
 304
 305         \repeat volta 2
 306         {
 307                 f4./a bf2:sus2 s8 |   % 27
 308                 c4.:^3 d2:m7 s8 |   % 28
 309                 f4./a bf2:sus2 s8 |   % 29
 310                 c4.:^3 d2:m7 s8 |   % 30
 311         }
 312
 313         % Ending
 314
 315         f4./a bf2:sus2 s8 |   % 31
 316         c4.:^3 f2 s8 |   % 32
 317 }
 318
 319
 320 %
 321 % Chord rhythms
 322 %
 323
 324 % Use a RhythmicStaff on the chords instead of this?
 325 % It almost works, but not quite. Doesn't collapse chords above to single notes...
 326
 327 StaffC = \relative c
 328 {
 329 %       \set Voice.autoBeaming = ##f
 330 %       \set Staff.instrumentName = #"Rhythm"
 331         \override Staff.TimeSignature #'style = #'()
 332         \time 4/4
 333         \override NoteHead #'style = #'slash
 334
 335         % Intro/midtro
 336
 337         c4. c8 ~ c4 c |   % 1
 338         c4. c8 ~ c4 c |   % 2
 339         c4. c8 ~ c4 c |   % 3
 340         c4. c8 ~ c4 c |   % 4
 341
 342         \repeat volta 3
 343         {
 344                 % Verse
 345
 346                 c4. c8 ~ c4 c |   % 5
 347                 c4. c8 ~ c4 c |   % 6
 348                 c4. c8 ~ c4 c |   % 7
 349                 c4. c8 ~ c4 c |   % 8
 350                 c4. c8 ~ c4 c |   % 9
 351                 c4. c8 ~ c4 c |   % 10
 352                 c4. c8 ~ c4 c |   % 11
 353                 c4. c8 ~ c4 c |   % 12
 354
 355                 % Chorus
 356
 357                 c4. c8 ~ c4 c |   % 13
 358                 c4. c8 ~ c4 c |   % 14
 359                 c4. c8 ~ c4 c |   % 15
 360                 c4 c c c |   % 16
 361                 c4. c8 ~ c4 c |   % 17
 362                 c4. c8 ~ c4 c |   % 18
 363                 c4. c8 ~ c4 c |   % 19
 364                 c4 c c c |   % 20
 365         }
 366         \alternative
 367         {
 368                 {
 369                         c4. c8 ~ c4 c |   % 21
 370                         c4. c8 ~ c4 c |   % 22
 371                         c4. c8 ~ c4 c |   % 23
 372                         c4. c8 ~ c4 c |   % 24
 373                 }
 374                 {
 375                         c4. c8 ~ c4 c |   % 25
 376                 }
 377         }
 378
 379         c4. c8 ~ c4 c |   % 26
 380
 381         % Outro
 382
 383         \repeat volta 2
 384         {
 385                 c4. c8 ~ c4 c |   % 27
 386                 c4. c8 ~ c4 c |   % 28
 387                 c4. c8 ~ c4 c |   % 29
 388                 c4. c8 ~ c4 c |   % 30
 389         }
 390
 391         % Ending
 392
 393         c4._\markup { \italic { on cue } } c8 ~ c4 c |   % 31
 394         c4. c8 ~ c2^\fermata \bar "|."   % 32
 395 }
 396
 397
 398 \score
 399 {
 400         <<
 401                 <<
 402                         \new Staff = leadStaff { \new Voice = "lead" \LeadVox }
 403                         \new Lyrics \lyricsto "lead" \LeadVoxText
 404                         \new Lyrics \lyricsto "lead" \LeadVoxTextB
 405                         \new Lyrics \lyricsto "lead" \LeadVoxTextC
 406                 >>
 407
 408                 \new ChoirStaff = "Rhythm"
 409                 <<
 410                         \new ChordNames = "chords" \Chords
 411                         \new RhythmicStaff = "chordRhythm" \StaffC
 412                 >>
 413
 414                 \set Score.skipBars = ##t
 415                 \set Score.melismaBusyProperties = #'()
 416         >>
 417
 418         \layout
 419         {
 420 %               \context { \Staff \RemoveEmptyStaves }
 421 %               ragged-last-bottom = ##t
 422                 ragged-last = ##t
 423         }
 424 }
 425
 426
 427 \paper
 428 {
 429   #(define fonts (make-pango-font-tree
 430     "Times New Roman"
 431     "JazzText"
 432     "Luxi Mono"
 433     (/ staffSize 20)))
 434 }