Shamusworld >> Repos - music/blob - o-for-a-thousand-tongues.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 "O For A Thousand Tongues" }
  16 %       composer = \markup { \override #'(font-family . sans) \fontsize #1.3 "Twila Paris" }
  17         arranger = \markup { \override #'(font-family . sans) \fontsize #1.3 "arr. Ed Smart" }
  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 3/4
  34 \override Score.SpacingSpanner #'average-spacing-wishes = ##f
  35
  36         % Intro
  37
  38         s2. |   % 1
  39         s2. |   % 2
  40         s2. |   % 3
  41         s2. |   % 4
  42         s2. |   % 5
  43         s2. |   % 6
  44         s2. |   % 7
  45         r2 c4 \bar "||:"   % 8
  46
  47         \repeat volta 2
  48         {
  49                 % Verse
  50
  51 \mark \markup { \override #'(font-family . sans) { \box { A } } }
  52
  53                 f8 f g4 g |   % 9
  54                 a8 g f4 g |   % 10
  55                 a8 a bf4 a |   % 11
  56                 g4. r8 c4 |   % 12
  57                 c8 a a4 f |   % 13
  58                 f8 d d4 f8 ( d ) |   % 14
  59                 c8 f f4 g |   % 15
  60
  61                 \voiceTwo f2. |   % 16
  62                 s2. |   % 17
  63         }
  64         \alternative
  65         {
  66                 {
  67                         s2. |   % 18
  68                         r2 c4 |   % 19
  69                 }
  70                 {
  71                         s2. |   % 20
  72                 }
  73         }
  74
  75         r2 c4 \oneVoice \bar "||"   % 21
  76
  77         % Verse
  78
  79 \mark \markup { \override #'(font-family . sans) { \box { B } } }
  80
  81         f8 f g4 g |   % 22
  82         a8 g f4 g |   % 23
  83         a8 a bf4 a |   % 24
  84         g4. r8 c4 |   % 25
  85         c8 a a4 f |   % 26
  86         f8 d d4 f8 ( d ) |   % 27
  87         c8 f f4 g \bar "||"   % 28
  88
  89         \voiceTwo f2. |   % 29
  90         s2. |   % 30
  91
  92         \key g \major
  93
  94         s2. |   % 31
  95         r2 d4 \oneVoice \bar "||"   % 32
  96
  97         % Verse
  98
  99 \mark \markup { \override #'(font-family . sans) { \box { C } } }
 100
 101         g8 g a4 a |   % 22
 102         b8 a g4 a |   % 23
 103         b8 b c4 b |   % 24
 104         a4. r8 d4 |   % 25
 105         d8 b b4 g |   % 26
 106         g8 e e4 g8 ( e ) |   % 27
 107         d8 g g4 a \bar "||"   % 28
 108
 109         % Ending
 110
 111         \voiceTwo g2.^\markup { \hspace #0.0 \raise #3.0 \italic { Play figure throughout D } } |   % 40
 112         s2. |   % 41
 113         s2. |   % 42
 114         r2 d4 \oneVoice |   % 43
 115
 116         \repeat volta 2
 117         {
 118 \mark \markup { \override #'(font-family . sans) { \box { D } } }
 119
 120                 g8 g16 a ( ~ a4. g8 ) |   % 44
 121                 g2 r4 |   % 45
 122                 r4 a4. g8 |   % 46
 123                 g2 d4 |   % 47
 124                 g8 g16 a ( ~ a4. g8 ) |   % 48
 125                 g2 r4 |   % 49
 126                 r4 a4. b8 |   % 50
 127                 g2^\fermata d4 |   % 51
 128         }
 129 }
 130
 131 LeadVoxText = \lyricmode
 132 {
 133         O for a thou- sand tongues to sing
 134         my great re- dee- mer's praise;
 135         The glo- ries of my God and king,
 136         the __ _ tri- umphs of his grace.
 137
 138         My
 139
 140         Je- sus the name that charms our fears
 141         that bids our sor- rows cease;
 142         'Tis mu- sic in the sin- ner's ears,
 143         'Tis __ _ life and health and peace.
 144
 145         He breaks the power of can- celled sin
 146         he sets the pris'- ner free;
 147         His blood can make the foul- est clean,
 148         his __ _ blood a- vailed for me.
 149
 150         O for a thou- __ _ _ sand tongues to sing
 151         O for a thou- __ _ _ sand tongues to sing
 152         O
 153 }
 154
 155 LeadVoxTextB = \lyricmode
 156 {
 157         _ gra- cious mas- ter and my God
 158         a- ssist me to pro- claim;
 159         To spread through all the earth a- broad
 160         the __ _ ho- nors of thy name.
 161 }
 162
 163
 164 Riffs = \relative c''
 165 {
 166         \clef G
 167         \key f \major
 168         \override Staff.TimeSignature #'style = #'()
 169         \time 3/4
 170 \override Score.SpacingSpanner #'average-spacing-wishes = ##f
 171
 172         % Intro
 173
 174         \tiny
 175         \repeat "percent" 3   % 1 - 6
 176         {
 177                 << { \tiny f16 c f, <f' f,> ~ <f f,> f, c' f f8 e } \\ { \tiny f,,2 c'4 } >> |   % 1
 178                 << { \tiny f'16 c f, <f' f,> ~ <f f,> f, c' f f8 e } \\ { \tiny bf,2 c4 } >> |   % 2
 179         }
 180         << s2. \\ { \tiny d2 c4 } >> |   % 7
 181         << s2. \\ { \tiny bf2. } >> |   % 8
 182
 183         s2.*7
 184
 185         \voiceOne
 186         \repeat "percent" 6 { f''16 c f, <f' f,> ~ <f f,> f, c' f f8 e | }   % 16-21
 187         \oneVoice
 188
 189         s2.*7
 190
 191         \voiceOne
 192         \repeat "percent" 2 { f16 c f, f' ~ f f, c' f f8 e | }   % 29-30
 193         \oneVoice
 194
 195         \key g \major
 196
 197         \voiceOne
 198         \repeat "percent" 2 { g16 d g, g' ~ g g, d' g g8 fs | }   % 31-32
 199         \oneVoice
 200
 201         s2.*7
 202
 203         \voiceOne
 204         \repeat "percent" 4 { g16 d g, g' ~ g g, d' g g8 fs | }   % 40-43
 205         \oneVoice
 206         \normalsize
 207 }
 208
 209
 210 %
 211 % Chord names
 212 %
 213
 214 Chords = \chordmode
 215 {
 216 %Bah, can't we set this globally?
 217 %       \popChords
 218
 219         % Intro
 220
 221         f2. |   % 1
 222         bf2. |   % 2
 223         f2. |   % 3
 224         bf2. |   % 4
 225         f2. |   % 5
 226         bf2. |   % 6
 227         d2.:m9 |   % 7
 228         bf2. |   % 8
 229
 230         \repeat volta 2
 231         {
 232                 % Verse
 233
 234                 f4 c2/e |   % 9
 235                 d8:m c bf2 |   % 10
 236                 f4/c bf/c f/c |   % 11
 237                 c2 c4/e |   % 12
 238                 f2 f4/a |   % 13
 239                 bf2 g4:m7 |   % 14
 240                 f4/c bf/c c |   % 15
 241
 242                 f2. |   % 16
 243                 bf2. |   % 17
 244         }
 245         \alternative
 246         {
 247                 {
 248                         f2. |   % 18
 249                         bf2. |   % 19
 250                 }
 251                 {
 252                         d2.:m9 |   % 20
 253                 }
 254         }
 255
 256         bf2. |   % 21
 257
 258         % Verse
 259
 260         d4:m9 c2/e |   % 22
 261         ef4 bf2 |   % 23
 262         d2.:m9 |   % 24
 263         ef2:maj9 bf4/c |   % 25
 264         f4 g:m7 f/a |   % 26
 265         bf2 bf4:m/df |   % 27
 266         f4/c bf/c c |   % 28
 267
 268         f2. |   % 29
 269         bf2. |   % 30
 270
 271         g2. |   % 31
 272         c2. |   % 32
 273
 274         % Verse
 275
 276         g:^3 |   % 33
 277         e8:m d c2 |   % 34
 278         g4/d c/d g/d |   % 35
 279         d2 d4/fs |   % 36
 280         g2 g4/b |   % 37
 281         c2 a4:m7 |   % 38
 282         g4/d c/d d |   % 39
 283
 284         % Ending
 285
 286         g2. |   % 40
 287         c2. |   % 41
 288         e2.:m9 |   % 42
 289         c2. |   % 43
 290
 291         \repeat volta 2
 292         {
 293                 g2. |   % 44
 294                 c2. |   % 45
 295                 g2. |   % 46
 296                 c2. |   % 47
 297                 g2. |   % 48
 298                 c2. |   % 49
 299                 e2.:m9 |   % 50
 300                 c2. |   % 51
 301         }
 302 }
 303
 304 %
 305 % Alternate chord changes (2nd verse)
 306 %
 307 ChordsSup = \chordmode
 308 {
 309 %Bah, can't we set this globally?
 310         \popChords
 311
 312         % Intro
 313
 314         s2.*8 |   % 1-8
 315
 316         % Verse
 317
 318         bf4/d c2/e |   % 9
 319         f8 f/a bf2 |   % 10
 320         f4/g bf/g f/g |   % 11
 321         c2:sus4 c4 |   % 12
 322 }
 323
 324 %
 325 % Chord rhythms
 326 %
 327
 328 % Use a RhythmicStaff on the chords instead of this?
 329 % It almost works, but not quite. Doesn't collapse chords above to single notes...
 330
 331 StaffC = \relative c
 332 {
 333 %       \set Voice.autoBeaming = ##f
 334 %       \set Staff.instrumentName = #"Rhythm"
 335         \override Staff.TimeSignature #'style = #'()
 336         \time 3/4
 337         \override NoteHead #'style = #'slash
 338
 339         % Intro
 340
 341         r8. c16 r4 c |   % 1
 342         c4 c c |   % 2
 343         c4 c c |   % 3
 344         c4 c c |   % 4
 345         c4 c c |   % 5
 346         c4 c c |   % 6
 347         c4 c c |   % 7
 348         c4 c c \bar "||:"   % 8
 349
 350         \repeat volta 2
 351         {
 352                 % Verse
 353
 354                 c4 c2 |   % 9
 355                 c8 c c4 c |   % 10
 356                 c4 c c |   % 11
 357                 c4 c c-> |   % 12
 358                 c4 c c |   % 13
 359                 c4 c c |   % 14
 360                 c4 c c |   % 15
 361
 362                 c4 c c |   % 16
 363                 c4 c c |   % 17
 364         }
 365         \alternative
 366         {
 367                 {
 368                         c4 c c |   % 18
 369                         c4 c c |   % 19
 370                 }
 371                 {
 372                         c4 c c |   % 20
 373                 }
 374         }
 375
 376         c4 c c \bar "||"   % 21
 377
 378         % Verse
 379
 380         c4 c2 |   % 22
 381         c4 c2 |   % 23
 382         c2. |   % 24
 383         c2 c4-> |   % 25
 384         c4-> c-> c |   % 26
 385         c4 c c |   % 27
 386         c4 c c \bar "||"   % 28
 387
 388         c4 c c |   % 29
 389         c4 c c |   % 30
 390
 391         c4 c c |   % 31
 392         c4 c c \bar "||"   % 32
 393
 394         % Verse
 395
 396         c2.-> |   % 33
 397         c8-> c-> c4-> c |   % 34
 398         c4 c c |   % 35
 399         c4 c c |   % 36
 400         c4 c c |   % 37
 401         c4 c c |   % 38
 402         c4 c c \bar "||"   % 39
 403
 404         % Ending
 405
 406         c4 c c |   % 40
 407         c4 c c |   % 41
 408         c4 c c |   % 42
 409         c4 c c |   % 43
 410
 411         \repeat volta 2
 412         {
 413                 c4 c c |   % 44
 414                 c4 c c |   % 45
 415                 c4 c c |   % 46
 416                 c4 c c |   % 47
 417                 c4 c c |   % 48
 418                 c4 c c |   % 49
 419                 c4 c c |   % 50
 420                 c4^\fermata c c |   % 51
 421         }
 422 }
 423
 424
 425 Dynamics =
 426 {
 427         s4_\markup { \italic { snare pat. } } s2 |   % 1
 428         s4_\markup { \italic { simile } } s2 |   % 2
 429         s2.*19
 430         s4_\markup { \italic { spacy } } s2 |   % 22
 431         s2.*5
 432         s4 s \< s \! |   % 28
 433         s2.*22
 434         s4_\markup { \italic { Last time } } s2 |   % 51
 435 }
 436
 437
 438 \score
 439 {
 440         <<
 441                 <<
 442 %                       \new Staff = leadStaff { \new Voice = "lead" \LeadVox }
 443                         \new Staff = leadStaff { << \new Voice = "lead" \LeadVox \new Voice = "riffs" \Riffs >> }
 444                         \new Lyrics \lyricsto "lead" \LeadVoxText
 445                         \new Lyrics \lyricsto "lead" \LeadVoxTextB
 446                 >>
 447
 448                 \new ChoirStaff = "Rhythm"
 449                 <<
 450                         \new ChordNames = "chords" \Chords
 451                         \new ChordNames = "chords2" \ChordsSup
 452                         \new RhythmicStaff = "chordRhythm" << \StaffC \Dynamics >>
 453                 >>
 454
 455                 \set Score.skipBars = ##t
 456                 \set Score.melismaBusyProperties = #'()
 457         >>
 458
 459         \layout
 460         {
 461 %               \context { \Staff \RemoveEmptyStaves }
 462 %               ragged-last-bottom = ##t
 463                 ragged-last = ##t
 464         }
 465 }
 466
 467
 468 \paper
 469 {
 470   #(define fonts (make-pango-font-tree
 471     "Times New Roman"
 472     "DomCasual BT"
 473     "Luxi Mono"
 474     (/ staffSize 20)))
 475
 476 %  top-margin = -0.25 \in
 477 }