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