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 = #16
   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 %Bah, can't we set this globally?
 258 %       \popChords
 259
 260         % Intro/midtro
 261
 262         f4./a bf2:sus2 s8 |   % 1
 263         c4.:^3 d2:m7 s8 |   % 2
 264         f4./a bf2:sus2 s8 |   % 3
 265         c4.:^3 d2:m7 s8 |   % 4
 266
 267         \repeat volta 3
 268         {
 269                 % Verse
 270
 271                 f4./a bf2:sus2 s8 |   % 5
 272                 c4.:^3 d2:m7 s8 |   % 6
 273                 f4./a bf2:sus2 s8 |   % 7
 274                 c4.:^3 d2:m7 s8 |   % 8
 275                 f4./a bf2:sus2 s8 |   % 9
 276                 c4.:^3 d2:m7 s8 |   % 10
 277                 f4./a bf2:sus2 s8 |   % 11
 278                 c4.:^3 d2:m7 s8 |   % 12
 279
 280                 % Chorus
 281
 282                 f4. c2 s8 |   % 13
 283                 d4.:m7 f2 s8 |   % 14
 284                 bf4. f2/a s8 |   % 15
 285                 bf2 c |   % 16
 286                 f4./a bf2 s8 |   % 17
 287                 c4.:^3 d2:m7 s8 |   % 18
 288                 f4./a bf2 s8 |   % 19
 289                 c1:^3 |   % 20
 290         }
 291         \alternative
 292         {
 293                 {
 294                         f4./a bf2:sus2 s8 |   % 21
 295                         c4.:^3 d2:m7 s8 |   % 22
 296                         f4./a bf2:sus2 s8 |   % 23
 297                         c4.:^3 d2:m7 s8 |   % 24
 298                 }
 299                 {
 300                         f4./a bf2:sus2 s8 |   % 25
 301                 }
 302         }
 303
 304         c4.:^3 d2:m7 s8 |   % 26
 305
 306         % Outro
 307
 308         \repeat volta 2
 309         {
 310                 f4./a bf2:sus2 s8 |   % 27
 311                 c4.:^3 d2:m7 s8 |   % 28
 312                 f4./a bf2:sus2 s8 |   % 29
 313                 c4.:^3 d2:m7 s8 |   % 30
 314         }
 315
 316         % Ending
 317
 318         f4./a bf2:sus2 s8 |   % 31
 319         c4.:^3 f2 s8 |   % 32
 320 }
 321
 322
 323 %
 324 % Chord rhythms
 325 %
 326
 327 % Use a RhythmicStaff on the chords instead of this?
 328 % It almost works, but not quite. Doesn't collapse chords above to single notes...
 329
 330 StaffC = \relative c
 331 {
 332 %       \set Voice.autoBeaming = ##f
 333 %       \set Staff.instrumentName = #"Rhythm"
 334         \override Staff.TimeSignature #'style = #'()
 335         \time 4/4
 336         \override NoteHead #'style = #'slash
 337
 338         % Intro/midtro
 339
 340         c4. c8 ~ c4 c |   % 1
 341         c4. c8 ~ c4 c |   % 2
 342         c4. c8 ~ c4 c |   % 3
 343         c4. c8 ~ c4 c |   % 4
 344
 345         \repeat volta 3
 346         {
 347                 % Verse
 348
 349                 c4. c8 ~ c4 c |   % 5
 350                 c4. c8 ~ c4 c |   % 6
 351                 c4. c8 ~ c4 c |   % 7
 352                 c4. c8 ~ c4 c |   % 8
 353                 c4. c8 ~ c4 c |   % 9
 354                 c4. c8 ~ c4 c |   % 10
 355                 c4. c8 ~ c4 c |   % 11
 356                 c4. c8 ~ c4 c |   % 12
 357
 358                 % Chorus
 359
 360                 c4. c8 ~ c4 c |   % 13
 361                 c4. c8 ~ c4 c |   % 14
 362                 c4. c8 ~ c4 c |   % 15
 363                 c4 c c c |   % 16
 364                 c4. c8 ~ c4 c |   % 17
 365                 c4. c8 ~ c4 c |   % 18
 366                 c4. c8 ~ c4 c |   % 19
 367                 c4 c c c |   % 20
 368         }
 369         \alternative
 370         {
 371                 {
 372                         c4. c8 ~ c4 c |   % 21
 373                         c4. c8 ~ c4 c |   % 22
 374                         c4. c8 ~ c4 c |   % 23
 375                         c4. c8 ~ c4 c |   % 24
 376                 }
 377                 {
 378                         c4. c8 ~ c4 c |   % 25
 379                 }
 380         }
 381
 382         c4. c8 ~ c4 c |   % 26
 383
 384         % Outro
 385
 386         \repeat volta 2
 387         {
 388                 c4. c8 ~ c4 c |   % 27
 389                 c4. c8 ~ c4 c |   % 28
 390                 c4. c8 ~ c4 c |   % 29
 391                 c4. c8 ~ c4 c |   % 30
 392         }
 393
 394         % Ending
 395
 396         c4._\markup { \italic { on cue } } c8 ~ c4 c |   % 31
 397         c4. c8 ~ c2^\fermata \bar "|."   % 32
 398 }
 399
 400
 401 \score
 402 {
 403         <<
 404                 <<
 405                         \new Staff = leadStaff { \new Voice = "lead" \LeadVox }
 406                         \new Lyrics \lyricsto "lead" \LeadVoxText
 407                         \new Lyrics \lyricsto "lead" \LeadVoxTextB
 408                         \new Lyrics \lyricsto "lead" \LeadVoxTextC
 409                 >>
 410
 411                 \new ChoirStaff = "Rhythm"
 412                 <<
 413                         \new ChordNames = "chords" \Chords
 414                         \new RhythmicStaff = "chordRhythm" \StaffC
 415                 >>
 416
 417                 \set Score.skipBars = ##t
 418                 \set Score.melismaBusyProperties = #'()
 419         >>
 420
 421         \layout
 422         {
 423 %               \context { \Staff \RemoveEmptyStaves }
 424 %               ragged-last-bottom = ##t
 425                 ragged-last = ##t
 426         }
 427 }
 428
 429
 430 \paper
 431 {
 432   #(define fonts (make-pango-font-tree
 433     "Times New Roman"
 434     "DomCasual BT"
 435     "Luxi Mono"
 436     (/ staffSize 20)))
 437 }