Shamusworld >> Repos - music/blob - take-my-life-and-let-it-be-consecrated.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 "Take My Life And Let It Be Consecrated" }
  16 %       composer = \markup { \override #'(font-family . sans) \fontsize #1.3 "" }
  17         arranger = \markup { \override #'(font-family . sans) \fontsize #1.3 "arr. Ed Smart" }
  18         tagline  = "Engraved by JLH and Lilypond 2.8.6"
  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 ef \major
  32         \override Staff.TimeSignature #'style = #'()
  33         \time 4/4
  34 \override Score.SpacingSpanner #'average-spacing-wishes = ##f
  35
  36         % Intro
  37
  38         s1 |   % 1
  39         s1 |   % 2
  40         s1 |   % 3
  41         s1 |   % 4
  42
  43         % Verse
  44
  45         \repeat volta 3
  46         {
  47 \mark \markup { \override #'(font-family . sans) { \box { A } } }
  48
  49                 ef4 ef ef8 ( bf ) ef ( g ) |   % 5
  50                 bf4 af g2 |   % 6
  51                 g4 g g8 ( f ) af ( f ) |   % 7
  52                 ef4 d8 ( f ) ef2 |   % 8
  53                 g4 g f f8 ( g ) |   % 9
  54                 af4 bf af ( g ) |   % 10
  55                 bf4 bf c bf |   % 11
  56                 bf8 ( af ) af ( g ) g4 ( f ) |   % 12
  57                 ef4 f g af8 ( f ) |   % 13
  58
  59                 \time 2/4
  60
  61                 ef4 d |   % 14
  62
  63                 \time 4/4
  64
  65 \voiceTwo
  66                 ef1 |   % 15
  67 \oneVoice
  68                 s1 |   % 16
  69         }
  70         \alternative
  71         {
  72                 {
  73                         s1 |   % 17
  74                         s1 |   % 18
  75                 }
  76                 {
  77                         s1 |   % 19
  78                 }
  79         }
  80
  81         s1 \bar "||"   % 20
  82
  83         \key f \major
  84
  85 \mark \markup { \override #'(font-family . sans) { \box { B } } }
  86
  87         f4 f f8 ( c ) f ( a ) |   % 21
  88         c4 bf a2 |   % 22
  89         a4 a a8 ( g ) bf ( g ) |   % 23
  90         f4 e8 ( g ) f2 |   % 24
  91         a4 a g g8 ( a ) |   % 25
  92         bf4 c bf ( a ) |   % 26
  93         c4 c d c |   % 27
  94         c8 ( bf ) bf ( a ) a4 ( g ) |   % 28
  95         f4 g a bf8 ( g ) |   % 29
  96         f2 e |   % 30
  97         f1 |   % 31
  98         s1 |   % 32
  99         s1 |   % 33
 100         s1 |   % 34
 101         r1^\fermata \bar "|."   % 35
 102 }
 103
 104 LeadVoxText = \lyricmode
 105 {
 106         Take my life _ and _ let it be
 107         con- se- cra- _ ted _ Lord, to _ thee;
 108         Take my hands and _ let them move, _
 109         at the im- pulse of _ thy _ love, _
 110         at the im- pulse _ of thy love.
 111
 112         Take my love, _ my _ God, I pour
 113         at thy feet _ its _ trea- sure _ store;
 114         Take my- self and _ I will be, _
 115         e- ver, on- ly, for _ my _ king, _
 116         e- ver, on- ly, _ for my king.
 117 }
 118
 119 LeadVoxTextB = \lyricmode
 120 {
 121         Take my feet _ and _ let them be
 122         swift and beau- _ ti- _ ful for _ thee;
 123         Take my voice and _ let me sing, _
 124         al- ways, on- ly for _ my _ king, _
 125         al- ways, on- ly _ for my king.
 126 }
 127
 128 LeadVoxTextC = \lyricmode
 129 {
 130         Take my lips _ and _ let them be
 131         filled with mes- _ sa- _ ges from _ thee;
 132         Take my sil- ver _ and my gold, _
 133         not a mite would I _ with- _ hold, _
 134         not a mite would _ I with- hold.
 135 }
 136
 137
 138 Riffs = \relative c'
 139 {
 140         \clef G
 141         \key ef \major
 142         \override Staff.TimeSignature #'style = #'()
 143         \time 4/4
 144
 145         % Intro
 146
 147         \tiny
 148         <ef g,>16 d bf f ~ f4 ~ f4. g16 bf |   % 1
 149         c1 |   % 2
 150         <ef' g,>16 d bf f ~ f4 ~ f4. g16 bf |   % 3
 151         c2 <ef, bf af> |   % 4
 152
 153         s1*9
 154         s2
 155
 156 \voiceOne
 157 \tieDown
 158         <ef g,>16 d bf f ~ f4 ~ f4. g16 bf |   % 14
 159 \tieNeutral
 160 \oneVoice
 161         c1 |   % 15
 162         <ef' g,>16 d bf f ~ f4 ~ f4. g16 bf |   % 16
 163         c2 <ef, bf af> |   % 17
 164
 165         <ef' g,>16 d bf f ~ f4 ~ f4. g16 bf |   % 18
 166         c2 r |   % 19
 167
 168         s1*10
 169
 170         \stemUp
 171         <f a,>16 e c g ~ g4 ~ g4. a16 c |   % 31
 172         \stemNeutral
 173         d2 r |   % 32
 174         <f a,>16 e c g ~ g4 ~ g4. a16 c |   % 33
 175         d2 r |   % 34
 176 }
 177
 178
 179 %
 180 % Chord names
 181 %
 182
 183 Chords = \chordmode
 184 {
 185         % Intro
 186
 187         c1:m11 |   % 1
 188         af1:sus2 |   % 2
 189         c1:m11 |   % 3
 190         af2 bf:sus4.7 |   % 4
 191
 192         % Verse
 193
 194         \repeat volta 4
 195         {
 196                 ef2 f:m11 |   % 5
 197                 af2:sus2 ef |   % 6
 198                 c2:m7 af:sus2 |   % 7
 199                 ef4/bf bf ef2 |   % 8
 200                 c2:m7 bf:11^9.7 |   % 9
 201                 f2:m11 af4/ef ef |   % 10
 202                 ef2/g af4  ef/g |   % 11
 203                 f2:m11 ef4/bf bf |   % 12
 204                 af4/c bf/d ef af:sus2 |   % 13
 205
 206                 \time 2/4
 207
 208                 ef4/bf bf |   % 14
 209
 210                 \time 4/4
 211
 212                 c1:m11 |   % 15
 213                 af1:sus2 |   % 16
 214         }
 215         \alternative
 216         {
 217                 {
 218                         c1:m11 |   % 17
 219                         af2 bf:sus4.7 |   % 18
 220                 }
 221                 {
 222                         c1:m11 |   % 19
 223                 }
 224         }
 225
 226         af2:sus2 g:m11 |   % 20
 227
 228         f2 g:m11 |   % 21
 229         bf2:sus2 f |   % 22
 230         d2:m7 bf:sus2 |   % 23
 231         f4/c c f2 |   % 24
 232         d2:m7 ef:6.9 |   % 25
 233         g2:m11 bf4/f f |   % 26
 234         f2/a bf4 f/a |   % 27
 235         g2:m11 f4/c c |   % 28
 236         bf4/d c/e f bf |   % 29
 237         f2/c c |   % 30
 238         f1 |   % 31
 239         bf1:sus2 |   % 32
 240         f1 |   % 33
 241         bf1:sus2 |   % 34
 242         f |   % 35
 243 }
 244
 245
 246 %
 247 % Chord rhythms
 248 %
 249
 250 % Use a RhythmicStaff on the chords instead of this?
 251 % It almost works, but not quite. Doesn't collapse chords above to single notes...
 252
 253 StaffC = \relative c
 254 {
 255 %       \set Voice.autoBeaming = ##f
 256 %       \set Staff.instrumentName = #"Rhythm"
 257         \override Staff.TimeSignature #'style = #'()
 258         \time 4/4
 259         \override NoteHead #'style = #'slash
 260
 261         % Intro
 262
 263         c4_\markup { \italic { perc. groove } } c c c |   % 1
 264         c4 c c c |   % 2
 265         c4 c c c |   % 3
 266         c4 c c c |   % 4
 267
 268         % Verse
 269
 270         \repeat volta 3
 271         {
 272                 c4_\markup { \italic { piano 1st X } } c c c |   % 5
 273                 c4 c c c |   % 6
 274                 c4 c c c |   % 7
 275                 c4 c c c |   % 8
 276                 c4 c c c |   % 9
 277                 c4 c c c |   % 10
 278                 c4 c c c |   % 11
 279                 c4 c c c |   % 12
 280                 c4 c c c |   % 13
 281
 282                 \time 2/4
 283
 284                 c4 c |   % 14
 285
 286                 \time 4/4
 287
 288                 c4_\markup { \italic { band in 1st X } } c c c |   % 15
 289                 c4 c c c |   % 16
 290         }
 291         \alternative
 292         {
 293                 {
 294                         c4 c c c |   % 17
 295                         c4 c c c |   % 18
 296                 }
 297                 {
 298                         c4 c c c |   % 19
 299                 }
 300         }
 301
 302         c4 c c \< c \! \bar "||"   % 20
 303
 304         c4_\markup { \italic { snare } } c c c |   % 21
 305         c4 c c c |   % 22
 306         c4 c c c |   % 23
 307         c4 c c c |   % 24
 308         c4 c c c |   % 25
 309         c4 c c c |   % 26
 310         c4 c c c |   % 27
 311         c4 c c c |   % 28
 312         c4 c c c |   % 29
 313         c4 c c c |   % 30
 314         c4 c c c |   % 31
 315         c4 c c c |   % 32
 316         c4 c c c |   % 33
 317         c4 c c_\markup { \italic { rit. } } c |   % 34
 318         c1^\fermata \bar "|."   % 35
 319 }
 320
 321
 322 \score
 323 {
 324         <<
 325                 <<
 326                         \new Staff = leadStaff
 327                         {
 328                                 <<
 329                                 \new Voice = "lead" \LeadVox
 330                                 \new Voice = "riffs" \Riffs
 331                                 >>
 332                         }
 333                         \new Lyrics \lyricsto "lead" \LeadVoxText
 334                         \new Lyrics \lyricsto "lead" \LeadVoxTextB
 335                         \new Lyrics \lyricsto "lead" \LeadVoxTextC
 336                 >>
 337
 338                 \new ChoirStaff = "Rhythm"
 339                 <<
 340                         \new ChordNames = "chords" \Chords
 341                         \new RhythmicStaff = "chordRhythm" \StaffC
 342                 >>
 343
 344                 \set Score.skipBars = ##t
 345                 \set Score.melismaBusyProperties = #'()
 346         >>
 347
 348         \layout
 349         {
 350 %               \context { \Staff \RemoveEmptyStaves }
 351 %               ragged-last-bottom = ##t
 352 %               ragged-last = ##t
 353         }
 354 }
 355
 356
 357 \paper
 358 {
 359   #(define fonts (make-pango-font-tree
 360     "Times New Roman"
 361     "DomCasual BT"
 362     "Luxi Mono"
 363     (/ staffSize 20)))
 364 }