From 7add1480813db617ee22ba3276c5b61649445f50 Mon Sep 17 00:00:00 2001 From: Shamus Hammons Date: Wed, 21 Nov 2012 15:46:00 +0000 Subject: [PATCH] Move to trunk in preparation for migration to GIT. --- above-all.ly | 347 ++++++++ agnus-dei.ly | 305 +++++++ all-creatures-of-our-god-and-king.ly | 213 +++++ almighty.ly | 459 ++++++++++ amazing-love.ly | 348 ++++++++ angels-we-have-heard-on-high.ly | 498 +++++++++++ as-the-deer.ly | 487 ++++++++++ away-in-a-manger.ly | 328 +++++++ be-still-and-know.ly | 472 ++++++++++ be-thou-my-vision.ly | 440 +++++++++ better-is-one-day.ly | 611 +++++++++++++ blessed-assurance.ly | 646 ++++++++++++++ blessed-be-your-name.ly | 543 +++++++++++ blessed-quietness-satb.ly | 272 ++++++ breathe.ly | 519 +++++++++++ brethren-we-have-met-to-worship.ly | 213 +++++ change-my-heart-o-god.ly | 275 ++++++ child-of-love.ly | 494 ++++++++++ come-and-see.ly | 511 +++++++++++ come-just-as-you-are.ly | 608 +++++++++++++ come-let-us-worship-and-bow-down.ly | 301 +++++++ come-now-is-the-time-to-worship.ly | 580 ++++++++++++ come-thou-fount-of-every-blessing.ly | 372 ++++++++ covers/brown-eyed-girl.ly | 541 +++++++++++ covers/don't-touch-me.ly | 348 ++++++++ covers/evermore.ly | 599 +++++++++++++ covers/give-me-love.ly | 577 ++++++++++++ covers/i-want-to-tell-you.ly | 492 ++++++++++ covers/le-nozze-di-figaro-voi-che-sapete.ly | 459 ++++++++++ covers/let-it-grow.ly | 483 ++++++++++ covers/let-it-rain.ly | 589 ++++++++++++ covers/listen-to-the-music.ly | 531 +++++++++++ covers/pinball-wizard.ly | 532 +++++++++++ covers/revolution.ly | 387 ++++++++ create-in-me-a-clean-heart.ly | 280 ++++++ creation-song.ly | 692 ++++++++++++++ do-you-know.ly | 371 ++++++++ doxology-v2.ly | 271 ++++++ doxology.ly | 270 ++++++ fall-on-me.ly | 527 +++++++++++ father's-will.ly | 424 +++++++++ forever.ly | 482 ++++++++++ fum-fum-fum.ly | 309 +++++++ give-thanks.ly | 282 ++++++ go-tell-it-on-the-mountain-chorus.ly | 352 ++++++++ go-tell-it-on-the-mountain.ly | 562 ++++++++++++ god-is-great.ly | 825 +++++++++++++++++ god-is-my-redeemer.ly | 300 +++++++ god-of-our-fathers.ly | 289 ++++++ god-of-wonders.ly | 529 +++++++++++ great-is-the-lord.ly | 389 ++++++++ hallelujah.ly | 479 ++++++++++ have-thine-own-way-lord-satb.ly | 223 +++++ he-knows-my-name.ly | 363 ++++++++ he-leadeth-me.ly | 534 +++++++++++ he-who-began-a-good-work-in-you.ly | 722 +++++++++++++++ holy-is-the-lord.ly | 332 +++++++ horizon-storm.ly | 676 ++++++++++++++ hosanna-loud-hosanna.ly | 225 +++++ i-could-sing-of-your-love-forever.ly | 423 +++++++++ i-have-decided-to-follow-jesus-shortened.ly | 359 ++++++++ i-have-decided-to-follow-jesus.ly | 367 ++++++++ i-see-the-lord.ly | 425 +++++++++ i-stand-amazed-in-the-presence.ly | 362 ++++++++ i-will-never-be.ly | 464 ++++++++++ i-will-praise-him-still.ly | 560 ++++++++++++ if-we-are-the-body.ly | 587 ++++++++++++ in-christ-alone.ly | 289 ++++++ in-the-secret.ly | 516 +++++++++++ infant-holy-infant-lowly.ly | 493 ++++++++++ jesus-all-for-jesus.ly | 601 +++++++++++++ jesus-draw-me-close.ly | 391 ++++++++ jesus-is-just-alright.ly | 698 +++++++++++++++ joy-to-the-world+hark-the-herald.ly | 581 ++++++++++++ leaning-on-the-everlasting-arms.ly | 502 +++++++++++ lo-how-a-rose-e'er-blooming.ly | 204 +++++ lord-i-lift-your-name-on-high.ly | 318 +++++++ lord-you-have-my-heart.ly | 463 ++++++++++ moonlight-1st.ly | 482 ++++++++++ more-love-more-power.ly | 545 ++++++++++++ mourning-into-dancing.ly | 465 ++++++++++ my-redeemer-lives.ly | 389 ++++++++ no-higher-calling.ly | 465 ++++++++++ nothing-but-the-blood.ly | 437 +++++++++ o-come-all-ye-faithful.ly | 452 ++++++++++ o-come-o-come-emmanuel.ly | 508 +++++++++++ o-for-a-thousand-tongues.ly | 477 ++++++++++ o-holy-night.ly | 462 ++++++++++ o-little-town-of-bethlehem.ly | 268 ++++++ one-small-child.ly | 437 +++++++++ open-the-eyes-of-my-heart.ly | 354 ++++++++ oxygen.ly | 890 +++++++++++++++++++ pachelbel-canon-in-d.ly | 215 +++++ pop-chords-test.ly | 149 ++++ pop-chords.ly | 167 ++++ refiner's-fire.ly | 315 +++++++ schubert-ave-maria.ly | 221 +++++ search-my-heart.ly | 598 +++++++++++++ she-loves-you.ly | 612 +++++++++++++ shout-to-the-lord-shortened.ly | 607 +++++++++++++ shout-to-the-lord.ly | 564 ++++++++++++ shout-to-the-north.ly | 614 +++++++++++++ show-me-your-glory.ly | 409 +++++++++ show-me-your-ways-o-lord.ly | 522 +++++++++++ silent-night.ly | 276 ++++++ spirit-of-god-descend-upon-my-heart-satb.ly | 267 ++++++ spirit-of-the-living-god.ly | 266 ++++++ stand-in-the-congregation.ly | 526 +++++++++++ take-my-life-and-let-it-be-consecrated-sa.ly | 492 ++++++++++ take-my-life-and-let-it-be-consecrated.ly | 364 ++++++++ template-chords-on-top.ly | 289 ++++++ template.ly | 479 ++++++++++ the-apostle's-creed.ly | 419 +++++++++ the-church's-one-foundation.ly | 228 +++++ the-first-noel.ly | 383 ++++++++ the-heart-of-worship.ly | 430 +++++++++ the-lord's-prayer.ly | 412 +++++++++ there's-a-sweet-sweet-spirit.ly | 382 ++++++++ there-is-a-rock.ly | 553 ++++++++++++ this-is-my-father's-world-satb.ly | 269 ++++++ this-little-light-of-mine.ly | 329 +++++++ we-are-an-offering.ly | 317 +++++++ we-are-one-in-the-spirit-vocals.ly | 366 ++++++++ we-are-one-in-the-spirit.ly | 417 +++++++++ we-three-kings.ly | 414 +++++++++ we-will-glorify.ly | 346 +++++++ we-will-worship-the-lamb-of-glory.ly | 330 +++++++ what-child-is-this.ly | 432 +++++++++ who-am-i.ly | 705 +++++++++++++++ wonderful-merciful-savior.ly | 576 ++++++++++++ word-of-god-speak.ly | 520 +++++++++++ worthy-of-my-praise.ly | 420 +++++++++ you-are-my-all-in-all.ly | 346 +++++++ you-have-been-good.ly | 379 ++++++++ 134 files changed, 58247 insertions(+) create mode 100755 above-all.ly create mode 100644 agnus-dei.ly create mode 100644 all-creatures-of-our-god-and-king.ly create mode 100755 almighty.ly create mode 100755 amazing-love.ly create mode 100644 angels-we-have-heard-on-high.ly create mode 100755 as-the-deer.ly create mode 100644 away-in-a-manger.ly create mode 100644 be-still-and-know.ly create mode 100644 be-thou-my-vision.ly create mode 100644 better-is-one-day.ly create mode 100755 blessed-assurance.ly create mode 100644 blessed-be-your-name.ly create mode 100644 blessed-quietness-satb.ly create mode 100644 breathe.ly create mode 100755 brethren-we-have-met-to-worship.ly create mode 100644 change-my-heart-o-god.ly create mode 100644 child-of-love.ly create mode 100644 come-and-see.ly create mode 100644 come-just-as-you-are.ly create mode 100755 come-let-us-worship-and-bow-down.ly create mode 100644 come-now-is-the-time-to-worship.ly create mode 100755 come-thou-fount-of-every-blessing.ly create mode 100644 covers/brown-eyed-girl.ly create mode 100644 covers/don't-touch-me.ly create mode 100644 covers/evermore.ly create mode 100644 covers/give-me-love.ly create mode 100644 covers/i-want-to-tell-you.ly create mode 100644 covers/le-nozze-di-figaro-voi-che-sapete.ly create mode 100644 covers/let-it-grow.ly create mode 100644 covers/let-it-rain.ly create mode 100644 covers/listen-to-the-music.ly create mode 100644 covers/pinball-wizard.ly create mode 100644 covers/revolution.ly create mode 100755 create-in-me-a-clean-heart.ly create mode 100644 creation-song.ly create mode 100755 do-you-know.ly create mode 100644 doxology-v2.ly create mode 100644 doxology.ly create mode 100755 fall-on-me.ly create mode 100644 father's-will.ly create mode 100644 forever.ly create mode 100644 fum-fum-fum.ly create mode 100755 give-thanks.ly create mode 100644 go-tell-it-on-the-mountain-chorus.ly create mode 100644 go-tell-it-on-the-mountain.ly create mode 100755 god-is-great.ly create mode 100755 god-is-my-redeemer.ly create mode 100644 god-of-our-fathers.ly create mode 100644 god-of-wonders.ly create mode 100755 great-is-the-lord.ly create mode 100644 hallelujah.ly create mode 100644 have-thine-own-way-lord-satb.ly create mode 100644 he-knows-my-name.ly create mode 100755 he-leadeth-me.ly create mode 100755 he-who-began-a-good-work-in-you.ly create mode 100644 holy-is-the-lord.ly create mode 100755 horizon-storm.ly create mode 100644 hosanna-loud-hosanna.ly create mode 100755 i-could-sing-of-your-love-forever.ly create mode 100644 i-have-decided-to-follow-jesus-shortened.ly create mode 100755 i-have-decided-to-follow-jesus.ly create mode 100644 i-see-the-lord.ly create mode 100755 i-stand-amazed-in-the-presence.ly create mode 100644 i-will-never-be.ly create mode 100755 i-will-praise-him-still.ly create mode 100644 if-we-are-the-body.ly create mode 100644 in-christ-alone.ly create mode 100644 in-the-secret.ly create mode 100644 infant-holy-infant-lowly.ly create mode 100755 jesus-all-for-jesus.ly create mode 100755 jesus-draw-me-close.ly create mode 100644 jesus-is-just-alright.ly create mode 100644 joy-to-the-world+hark-the-herald.ly create mode 100755 leaning-on-the-everlasting-arms.ly create mode 100644 lo-how-a-rose-e'er-blooming.ly create mode 100755 lord-i-lift-your-name-on-high.ly create mode 100755 lord-you-have-my-heart.ly create mode 100755 moonlight-1st.ly create mode 100755 more-love-more-power.ly create mode 100644 mourning-into-dancing.ly create mode 100644 my-redeemer-lives.ly create mode 100755 no-higher-calling.ly create mode 100755 nothing-but-the-blood.ly create mode 100644 o-come-all-ye-faithful.ly create mode 100755 o-come-o-come-emmanuel.ly create mode 100755 o-for-a-thousand-tongues.ly create mode 100644 o-holy-night.ly create mode 100644 o-little-town-of-bethlehem.ly create mode 100644 one-small-child.ly create mode 100755 open-the-eyes-of-my-heart.ly create mode 100644 oxygen.ly create mode 100644 pachelbel-canon-in-d.ly create mode 100755 pop-chords-test.ly create mode 100755 pop-chords.ly create mode 100755 refiner's-fire.ly create mode 100644 schubert-ave-maria.ly create mode 100644 search-my-heart.ly create mode 100644 she-loves-you.ly create mode 100644 shout-to-the-lord-shortened.ly create mode 100644 shout-to-the-lord.ly create mode 100644 shout-to-the-north.ly create mode 100644 show-me-your-glory.ly create mode 100755 show-me-your-ways-o-lord.ly create mode 100755 silent-night.ly create mode 100644 spirit-of-god-descend-upon-my-heart-satb.ly create mode 100755 spirit-of-the-living-god.ly create mode 100644 stand-in-the-congregation.ly create mode 100644 take-my-life-and-let-it-be-consecrated-sa.ly create mode 100755 take-my-life-and-let-it-be-consecrated.ly create mode 100644 template-chords-on-top.ly create mode 100755 template.ly create mode 100644 the-apostle's-creed.ly create mode 100644 the-church's-one-foundation.ly create mode 100755 the-first-noel.ly create mode 100755 the-heart-of-worship.ly create mode 100644 the-lord's-prayer.ly create mode 100644 there's-a-sweet-sweet-spirit.ly create mode 100644 there-is-a-rock.ly create mode 100644 this-is-my-father's-world-satb.ly create mode 100644 this-little-light-of-mine.ly create mode 100755 we-are-an-offering.ly create mode 100644 we-are-one-in-the-spirit-vocals.ly create mode 100644 we-are-one-in-the-spirit.ly create mode 100644 we-three-kings.ly create mode 100644 we-will-glorify.ly create mode 100755 we-will-worship-the-lamb-of-glory.ly create mode 100644 what-child-is-this.ly create mode 100644 who-am-i.ly create mode 100644 wonderful-merciful-savior.ly create mode 100755 word-of-god-speak.ly create mode 100755 worthy-of-my-praise.ly create mode 100755 you-are-my-all-in-all.ly create mode 100755 you-have-been-good.ly diff --git a/above-all.ly b/above-all.ly new file mode 100755 index 0000000..cf9c8d9 --- /dev/null +++ b/above-all.ly @@ -0,0 +1,347 @@ +\version "2.16.0" +\include "pop-chords.ly" +\include "english.ly" + +% Good sizes are 16, 18, & 20 +staffSize = #18 +#(set-default-paper-size "letter") +#(set-global-staff-size staffSize) +#(ly:set-option (quote no-point-and-click)) + +%{ Some useful characters: ‘ ’ “ ” – — † ‡ • … %} + +\header +{ +%Let's bump up the title size and switch to the chord font. :-) + + title = \markup { \override #'(font-family . sans) \fontsize #3.5 "Above All" } + composer = \markup { \override #'(font-family . sans) \fontsize #1.3 "Michael W. Smith" } + arranger = \markup { \override #'(font-family . sans) \fontsize #1.3 "arr. Ed Smart" } + tagline = $(string-append "Engraved by JLH and Lilypond " (lilypond-version)) +} + + +% +% Lead vocal +% + +LeadVox = \relative c'' +{ +% \set Voice.autoBeaming = ##f +% \set Staff.instrument = #"Lead vox" + \clef G + \key bf \major + \override Staff.TimeSignature #'style = #'() + \time 4/4 +\override Score.SpacingSpanner #'average-spacing-wishes = ##f + + % Intro + + \tiny r2 r8 d f bf | % 1 + c8.f,16 f4 ~ f ~ f8 bf16 a | % 2 + bf8. ef,16 ef4 ~ ef d | % 3 + 2 \normalsize r8 f,16 f ~ f bf8. \bar "||:" % 4 + + % Verse + + \repeat volta 2 + { +\once \override Score.RehearsalMark #'self-alignment-X = #left +\mark \markup { \override #'(font-family . sans) { \box { A } } \hspace #1.0 \raise #2.0 \musicglyph #"scripts.segno" } + + a8. g16 ~ g4 r8. ef16 ef g8. | % 5 + f2 r8. f16 f bf8. | % 6 + a8. g16 ~ g8 a bf a16 g ~ g f f8 ~ | % 7 + f2 r8. d16 d g8. | % 8 + g8 g4 a8 bf a16 f ~ f8 d16 g ( ~ | % 9 + g4. f8 ~ f2 ) | % 10 + } + \alternative + { + { + ef8 ef16 ef ~ ef8 f16 g ~ g8 f16 ef ~ ef8 d16 c ~ | % 11 + c2 r8 f16 f ~ f bf8. | % 12 + } + { + ef,8 ef16 ef ~ ef8 f16 g ~ g8 f16 ef ~ ef8 d16 d ~ | % 13 + } + } + + d2 r | % 14 + + % Chorus + + \repeat volta 3 + { +\mark \markup { \override #'(font-family . sans) { \box { B } } } + + d'4. c16 ef ~ ef2 | % 15 + c8 d16 ef ~ ef8 d16 d ~ d4 r8. bf16 | % 16 + d4. c16 ef ~ ef4. ~ ef16 c | % 17 + c8 d16 ef ~ ef8 d16 d ~ d4 d8 c16 bf ~ | % 18 + bf2 d8 c bf a16 g ~ | % 19 + g2 r8. c16 bf8 d,16 ef ~ | % 20 + ef2 r8. f16 bf8 a16 bf ~ | % 21 + bf2 r4 g16 a8 ( bf16 ) | % 22 + } + \alternative + { + { + << { \voiceOne bf1 } \context Voice = v { \voiceThree \tiny \tiny r2 r8 d f bf \normalsize } >> \oneVoice | % 23 + \tiny c8.f,16 f4 ~ f ~ f8 bf16 a | % 24 + bf8. ef,16 ef4 ~ ef d | % 25 + 2 \normalsize r8 f,16 f ~ f^\markup { \hspace #0.0 \raise #1.0 \bold D.S. } bf8. \bar "||" % 26 + } + { + bf1 | % 27 + } + { + bf2. d8 c16 bf ~ | % 28 + } + } + + bf2 d8 c bf a16 g ~ | % 29 + g2 r8. c16 bf8 d,16 ef ~ | % 30 + ef2 r8. f16 bf8 a16 bf ~ | % 31 + bf2 r4 g16 a8 ( bf16 ) | % 32 + bf1^\fermata \bar "|." % 33 +} + +LeadVoxText = \lyricmode +{ + _ _ _ _ _ _ _ _ + _ _ _ _ _ _ _ _ + + A -- bove _ all po -- wers _ a -- bove all kings + A -- bove all na -- ture _ and all cre -- a -- _ ted things _ + A -- bove all wis -- dom and all the ways _ of man __ _ _ _ + You were here _ be -- fore _ the world _ be -- gan _ + + A -- bove _ all + There's no way _ to mea -- _ sure what _ you're worth _ + + Cru -- ci -- fied, _ laid be -- hind _ the stone _ + You lived to die, __ _ _ re -- ject -- ed and _ a -- lone _ + Like a rose _ tra -- mpled on the ground _ + You took the fall _ and thought of me _ + A -- bove _ all + + _ _ _ _ _ + _ _ _ _ _ _ _ _ + + A -- bove _ all + all + all + + Like a rose _ tra -- mpled on the ground _ + You took the fall _ and thought of me _ + A -- bove _ all +} + +LeadVoxTextB = \lyricmode +{ + _ _ _ _ _ _ _ _ + _ _ _ _ _ _ _ _ + + _ _ _ _ king -- doms _ a -- bove all thrones + A -- bove all won -- ders _ the world has e -- _ ver known _ + A -- bove all wealth _ and trea -- sures of _ the earth __ _ _ +} + + +% +% Chord names +% + +Chords = \chordmode +{ +%Bah, can't we set this globally? +% \popChords + + % Intro + + bf1:sus2 | % 1 + f1/bf | % 2 + ef1/bf | % 3 + f2/bf bf/d | % 4 + + % Verse + + \repeat volta 2 + { + ef2 f | % 5 + bf2 bf/d | % 6 + ef2 f4:sus4 f | % 7 + bf1 | % 8 + g2:m bf:maj7/f | % 9 + ef2 bf/d | % 10 + } + \alternative + { + { + c2:m c:m/bf | % 11 + f2/a bf/d | % 12 + } + { + c2:m c:m/bf | % 13 + } + } + + a2:m11 d | % 14 + + % Chorus + + \repeat volta 3 + { + bf2 c:m11 | % 15 + f2/a bf | % 16 + bf2 c:m11 | % 17 + f2/a bf4 f/a | % 18 + g2:m bf:maj7/f | % 19 + ef2 bf/d | % 20 + c2:m7 bf/d | % 21 + ef2 f4:sus4 f | % 22 + } + \alternative + { + { + bf1 | % 23 + f1/bf | % 24 + ef1/bf | % 25 + f2/bf bf/d | % 26 + } + { + bf2 ef4/bf f/bf | % 27 + } + { + bf2 f/a | % 28 + } + } + + g2:m bf:maj7/f | % 29 + ef2 bf/d | % 30 + c2:m bf/d | % 31 + ef2 f4:sus4 f | % 32 + bf1 | % 33 +} + + +% +% Chord rhythms +% + +% Use a RhythmicStaff on the chords instead of this? +% It almost works, but not quite. Doesn't collapse chords above to single notes... + +StaffC = \relative c +{ +% \set Voice.autoBeaming = ##f +% \set Staff.instrument = #"Rhythm" + \override Staff.TimeSignature #'style = #'() + \time 4/4 + \override NoteHead #'style = #'slash + + % Intro + + c4 c c c | % 1 + c4 c c c | % 2 + c4 c c c | % 3 + c4 c c c \bar "||:" % 4 + + % Verse + + \repeat volta 2 + { + c4 c c c | % 5 + c4 c c c | % 6 + c4 c c c | % 7 + c4 c c c | % 8 + c4 c c c | % 9 + c4 c c c | % 10 + } + \alternative + { + { + c4 c c c | % 11 + c4 c c c | % 12 + } + { + c4 c c c | % 13 + } + } + + c4 c c \< c \! | % 14 + + % Chorus + + \repeat volta 3 + { + c4 c c c | % 15 + c4 c c c | % 16 + c4 c c c | % 17 + c4 c c c | % 18 + c4 c c c | % 19 + c4 c c c | % 20 + c4 c c c | % 21 + c4 c c c | % 22 + } + \alternative + { + { + c4 c c c | % 23 + c4 c c c | % 24 + c4 c c c | % 25 + c4 c c c \bar "||" % 26 + } + { + c4 c c \< c \! | % 27 + } + { + c4 c c c | % 28 + } + } + + c4 c c c | % 29 + c4 c c c | % 30 + c4 c c c | % 31 + c4_\markup { \italic { rit. } } c c c | % 32 + c1^\fermata \bar "|." % 33 +} + + +\score +{ + << + << + \new Staff = leadStaff { \new Voice = "lead" \LeadVox } + \new Lyrics \lyricsto "lead" \LeadVoxText + \new Lyrics \lyricsto "lead" \LeadVoxTextB + >> + + \new ChoirStaff = "Rhythm" + << + \new ChordNames = "chords" \Chords + \new RhythmicStaff = "chordRhythm" \StaffC + >> + + \set Score.skipBars = ##t + \set Score.melismaBusyProperties = #'() + >> + + \layout + { +% \context { \RemoveEmptyStaffContext } +% ragged-last-bottom = ##t + ragged-last = ##t + } +} + + +\paper +{ + #(define fonts (make-pango-font-tree + "Times New Roman" + "DomCasual BT" + "Luxi Mono" + (/ staffSize 20))) +} diff --git a/agnus-dei.ly b/agnus-dei.ly new file mode 100644 index 0000000..66420d2 --- /dev/null +++ b/agnus-dei.ly @@ -0,0 +1,305 @@ +\version "2.16.0" +\include "pop-chords.ly" +\include "english.ly" + +% Good sizes are 16, 18, & 20 +staffSize = #20 +#(set-default-paper-size "letter") +#(set-global-staff-size staffSize) +#(ly:set-option (quote no-point-and-click)) + +%{ Some useful characters: ‘ ’ “ ” – — † ‡ • … %} + +\header +{ +%Let's bump up the title size and switch to the chord font. :-) + + title = \markup { \override #'(font-family . sans) \fontsize #3.5 "Agnus Dei" } + composer = \markup { \override #'(font-family . sans) \fontsize #1.3 "Michael W. Smith" } +% arranger = \markup { \override #'(font-family . sans) \fontsize #1.3 "arr. Ed Smart" } + tagline = $(string-append "Engraved by JLH and Lilypond " (lilypond-version)) +% Let's try a chord dictionary +% subtitle = \markup { \center-column { "F#m" \fret-diagram-terse #"x;x;4;2;2;2;" } " " \center-column { "F#m/F" \fret-diagram-terse #"x;x;3;2;2;2;" } " " \center-column { "F#m/E" \fret-diagram-terse #"x;x;2;2;2;2;" } " " \center-column { "F#m/Eb" \fret-diagram-terse #"x;x;1;2;2;2;" } " " \center-column { "Em7" \fret-diagram-terse #"o;2;2;o;3;o;" } " " \center-column { "A13" \fret-diagram-terse #"x;o;2;o;2;2;" } } +} + +% Useful tweak abbreviations (hn = harmony note) + +hn = #(define-music-function (parser location arg) (ly:music?) +;; Harmony Note: Set the tweaks property of the passed in note to use a smaller font + + (set! (ly:music-property arg 'tweaks) + (acons 'font-size -3.0 (ly:music-property arg 'tweaks))) arg) + + +% +% Song's structure +% +Global = +{ + \key a \major + \override Staff.TimeSignature #'style = #'() + \time 4/4 + + \once \override TextScript #'padding = #2.0 + s1*0^\markup { \large \bold { Moderately } } +% Capo 4 version +% s1*0^\markup { \hspace #0.0 \raise #2.0 \larger \bold { "Moderate pop (*** CAPO 4 ***)" } } + + % Intro + + s1*4 \bar "||:" % 1-4 + + \repeat volta 2 + { + \mark \markup { \override #'(font-family . sans) { \box { A } } } + + s1*6 | % 5-10 + } + + s1*2 | % 11-12 + + \repeat volta 2 + { + \mark \markup { \override #'(font-family . sans) { \box { B } } } + + s1*5 | % 13-17 + } + \alternative + { + { + s1 | % 18 + } + { + s1 | % 19 + } + } + + s1*2 \bar "||" %20-21 +} + + +% +% Lead vocal +% +LeadVox = \relative c' +{ +% \set Staff.instrument = #"Lead vox" + \clef G + \override Staff.TimeSignature #'style = #'() +%Hm. Needed anymore? +% \override Score.SpacingSpanner #'average-spacing-wishes = ##f + + % Intro + + r1 | % 1 + r1 | % 2 + r1 | % 3 + r1 | % 4 + + 8. ( 16 ~ 8 ) 8. ( 16 ) 4 ~ | % 5 + 2 r | % 6 + 8. ( 16 ~ 8 ) 8. ( 16 ~ 8 ) ~ | % 7 + 4 r8 16 8 16 8 ( 16 ) | % 8 + 2 r | % 9 + r1 | % 10 + +% cs8. ( d16 ~ d8 ) e fs8. ( gs16 ~ gs8 ) a ~ | % 11 + 8. ( 16 ~ 8 ) 8. ( 16 ~ 8 ) ~ | % 11 + 4 r ( 8. 16) | % 12 + + 2 r4 8. ( 16 ) | % 13 + 2 r4 8 | % 14 + 8. 16 ~ 4 ~ 8 16 ( ) 8. ( 16 ) | % 15 + 2 r4 16 | % 16 + 2 r4 16 | % 17 + + 4 r 8 ( 16 ) | % 18 + + 4 r ( ) | % 19 + + 1-\fermata | % 20 + r1 | % 21 +} + +LeadVoxText = \lyricmode +{ + Al -- _ _ le -- lu -- _ ia, _ + Al -- _ _ le -- lu -- _ _ ia, _ + for the Lord God Al -- migh -- _ ty reigns. + + Al -- _ _ le -- lu -- _ _ ia, _ + Ho -- _ _ ly, ho -- _ ly + are you Lord God _ _ Al -- _ migh -- _ ty. + Wor -- thy is the Lamb, + Wor -- thy is the + + Lamb, + You are ho -- _ _ + + Lamb, + A -- _ men. +} + + +Riffs = \relative c +{ + \clef G +%Hm. Needed anymore? +% \override Score.SpacingSpanner #'average-spacing-wishes = ##f + + % Intro + +% \tiny +% \repeat percent 4 { e8_\markup { \italic { bass figure } } e e e e e e e } | % 1-4 +% \normalsize +} + + +% +% Chord names +% +Chords = \chordmode +{ + % Intro + + a2/cs a4:sus4/b a | % 1 + e2/gs d:sus2/fs | % 2 + a2:sus2/cs fs:m7 | % 3 + e2:sus4 e | % 4 + + a2 d4/a a | % 5 + s2 e4/a a | % 6 + s2 d8./a e/a d8/a | % 7 + s2 e4/a d/a | % 8 + a2. b4:m/a | % 9 + a2. b4:m/a | % 10 + + a8. b:m7 a8/cs d8. e d8/fs | % 11 + s2. e4/gs | % 12 + + a2. e4/gs | % 13 + a1 | % 14 + d8./a a s4. fs4:m | % 15 + e2:sus4 e4 b8:m a/cs | % 16 + d2. b8:m a/cs | % 17 + + d2. d8/fs e/gs | % 18 + + d2. e4 | % 19 + + a2. b4:m | % 20 + a2. b4:m | % 21 +} + + +% +% Chord rhythms +% +% Use a RhythmicStaff on the chords instead of this? +% It almost works, but not quite. Doesn't collapse chords above to single notes... +% +Rhythm = \relative c +{ +%% \set Voice.autoBeaming = ##f +%% \set Staff.instrument = #"Rhythm" + \override Staff.TimeSignature #'style = #'() + \override NoteHead #'style = #'slash + +%Not small enough... + \teeny +% \magnify #0.3 + % Intro + + c4 c c c | % 1 + c4 c c c | % 2 + c4 c c c | % 3 + c4 c c c | % 4 + + c4 c c c | % 5 + c4 c c c | % 6 + c4 c c8. c c8 ~ | % 7 + c4 c c c | % 8 + c4 c c c | % 9 + c4 c c c | % 10 + + c8. c c8 c8. c c8 ~ | % 11 + c4 c c c | % 12 + + c4 c c c | % 13 + c4 c c c | % 14 + c8. c ~ c8 c4 c | % 15 + c4 c c c8 c | % 16 + c4 c c c8 c | % 17 + + c4 c c c8 c | % 18 + + c4 c c c | % 19 + + c4-\fermata c c c | % 20 + c4 c c c | % 21 + \normalsize +} + + +Dynamics = +{ +%{ + s4_\markup { \italic { snare pat. } } s2 | % 1 + s4_\markup { \italic { simile } } s2 | % 2 + s2.*19 + s4_\markup { \italic { spacey } } s2 | % 22 + s2.*5 + s4 s \< s \! | % 28 + s2.*22 + s4_\markup { \italic { Last time } } s2 | % 51 +%} + s1*20 + s4_\markup { \italic \small { (Back to letter A if desired) } } s2. | % 21 +} + + +\score +{ + << + \set Score.skipBars = ##t + \set Score.melismaBusyProperties = #'() + +% \new Staff + << + \new ChordNames \Chords +%Capo 4 edition +% \new ChordNames \transpose b g \Chords + \new RhythmicStaff << \Rhythm \Dynamics >> + >> + + \new Staff + << + \Global % The "roadmap" that everything else depends on + \new Voice = "lead" \LeadVox + \new Voice \Riffs + \new Lyrics \lyricsto "lead" \LeadVoxText + >> + >> +} + + +\paper +{ + #(define fonts (make-pango-font-tree + "Times New Roman" + "DomCasual BT" + "Luxi Mono" + (/ staffSize 20))) + +% Spread staves vertically across last page (default: t) + ragged-last-bottom = ##f +% Don't spread staves vertically across the page (default: f) +% ragged-bottom = ##t +% Allow partial line for last stave (default: f) +% ragged-last = ##t + +% To find out what's eating the space at the top... +% annotate-spacing = ##t +%let's try this: [It works! Huzzah!] + obsolete-page-top-space = 0 top-system-spacing #'basic-distance = #(/ obsolete-page-top-space staff-space) +} diff --git a/all-creatures-of-our-god-and-king.ly b/all-creatures-of-our-god-and-king.ly new file mode 100644 index 0000000..bb806ea --- /dev/null +++ b/all-creatures-of-our-god-and-king.ly @@ -0,0 +1,213 @@ +\version "2.16.0" +\include "pop-chords.ly" +\include "english.ly" + +% Good sizes are 16, 18, & 20 +staffSize = #20 +#(set-default-paper-size "letter") +#(set-global-staff-size staffSize) +#(ly:set-option (quote no-point-and-click)) + +%{ Some useful characters: ‘ ’ “ ” – — † ‡ • … %} + +\header +{ + title = \markup { \override #'(font-family . sans) \fontsize #3.5 "All Creatures Of Our God And King" } + composer = \markup { \override #'(font-family . sans) \fontsize #1.3 "Francis of Assisi/William H. Draper" } + arranger = \markup { \override #'(font-family . sans) \fontsize #1.3 "arr. Shamus Hammons" } + tagline = $(string-append "Engraved by JLH and Lilypond " (lilypond-version)) +} + + +% +% Song's structure +% +Global = +{ + \key d \major + \override Staff.TimeSignature #'style = #'() + \time 6/4 + + s1.*8 \bar "|." % 1-16 +} + + +% +% Lead vocal +% +LeadVox = \relative c' +{ + \clef G + \override Score.SpacingSpanner #'average-spacing-wishes = ##f + + % Verse + + d4 d8 e fs d fs g a2 | % 1 + d,4 d8 e fs d fs g a2 | % 2 + d8 cs b4 a d8 cs b4 a | % 3 + d4 d8 a a g fs g a2 | % 4 + + d4 d8 a a g fs g a2 | % 5 + g8 ( fs ) e4 d g8 ( fs ) e4 d | % 6 +%bleh +\break + d'8 cs b4 a d8 cs b4 a | % 7 + g8 fs e2. d2 | % 8 +} + +LeadVoxText = \lyricmode +{ + All crea -- tures of our God and King, + Lift up your voice and with us sing, + Al -- le -- lu -- ia, al -- le -- lu -- ia! + Thou burn -- ing sun with gold -- en beam, + Thou sil -- ver moon with soft -- er gleam, + O _ praise him, O _ praise him, + Al -- le -- lu -- ia, al -- le -- lu -- ia, al -- le -- lu -- ia! +} + +LeadVoxTextB = \lyricmode +{ + Thou rush -- ing wind that art so strong, + Ye clouds that sail in heav’n a -- long, + Al -- le -- lu -- ia, al -- le -- lu -- ia! + Thou ris -- ing morn, in praise re -- joice, + Ye lights of eve -- ning, find a voice! +} + +LeadVoxTextC = \lyricmode +{ + Thou flow -- ing wa -- ter, pure and clear, + Make mu -- sic for thy Lord to hear, + Al -- le -- lu -- ia, al -- le -- lu -- ia! + Thou fire so mas -- ter -- ful and bright, + That giv -- est man both warmth and light, +} + +LeadVoxTextD = \lyricmode +{ + All crea -- tures, your cre -- a -- tor bless, + And wor -- ship God in hum -- ble -- ness, + Al -- le -- lu -- ia, al -- le -- lu -- ia! + Praise, praise the Fa -- ther, praise the Son, + And praise the Spi -- rit, three in one! +} + + +% +% Chord names +% +Chords = \chordmode +{ +%Bah, can't we set this globally? +% \popChords + + d2. b4:m a2 | % 1 + d2. b4:m a2 | % 2 + d4/fs g d b:m e a | % 3 + d2. b4:m a2 | % 4 + + d2. b4:m a2 | % 5 + g2 d4 e2:m b4:m | % 6 + b4:m e a b:m e a | % 7 + g4 a2. d2 | % 8 +} + + +% +% Chord rhythms +% +% Use a RhythmicStaff on the chords instead of this? +% It almost works, but not quite. Doesn't collapse chords above to single notes... +%Slash = { \override NoteHead #'style = #'slash } +%Cross = { \override NoteHead #'style = #'cross } +Rhythm = \relative c +{ + \override Staff.TimeSignature #'style = #'() + \override NoteHead #'style = #'slash + + % Verse + + c4 c c c c c | % 1 + c4 c c c c c | % 2 + c4 c c c c c | % 3 + c4 c c c c c | % 4 + + c4 c c c c c | % 5 + c4 c c c c c | % 6 + c4 c c c c c | % 7 + c4 c c c c c \bar "|." % 8 +} + + +Dynamics = +{ +%{ + s4_\markup { \italic { snare on 4, bass 8th notes } } s2. | % 1 + s1*26 | % 2-27 + s2 s4 \< s | % 28 + s4_\f s_\markup { \hspace #0.0 \raise #-2.0 \italic { snare 2 & 4 } } s2 | % 29 + s1*8 | % 30-37 + s2 s4 \< s \! | % 38 + s1 | % 39 + s2. s8 \> s \! | % 40 + s4_\markup { \hspace #0.0 \raise #-2.0 \italic { bass 8th notes, band builds each repeat } } s2. | % 41 + s1*8 | % 42-49 + s4 \< s2. | % 50 + s4_\f s2. | % 51 + s1*5 | % 52-56 + s4_\markup { \hspace #0.0 \raise #-2.0 \italic { rit. last time } } s2. | % 57 + s2 s4 \< s \! | % 58 +%} +} + + +\score +{ + << + \Global % The "roadmap" that everything else depends on + + \context Staff + << + \new Voice = "lead" \LeadVox +% \new Voice \Riffs + \new Lyrics \lyricsto "lead" \LeadVoxText + \new Lyrics \lyricsto "lead" \LeadVoxTextB + \new Lyrics \lyricsto "lead" \LeadVoxTextC + \new Lyrics \lyricsto "lead" \LeadVoxTextD + >> + + \new ChoirStaff + << + \new ChordNames \Chords +%Capo 4 edition +% \new ChordNames \transpose b g \Chords + \new RhythmicStaff << \Rhythm \Dynamics >> + >> + + \set Score.skipBars = ##t + \set Score.melismaBusyProperties = #'() + >> +} + + +\paper +{ + #(define fonts (make-pango-font-tree + "Times New Roman" + "DomCasual BT" + "Luxi Mono" + (/ staffSize 20))) + +% Spread staves vertically across last page (default: t) +% ragged-last-bottom = ##f +% Don't spread staves vertically across the page (default: f) +% ragged-bottom = ##t +% Allow partial line for last stave (default: f) +% ragged-last = ##t + +% To find out what's eating the space at the top... +% annotate-spacing = ##t +%let's try this: [It works! Huzzah!] + obsolete-page-top-space = 0 top-system-spacing #'basic-distance = #(/ obsolete-page-top-space staff-space) +} diff --git a/almighty.ly b/almighty.ly new file mode 100755 index 0000000..c209d90 --- /dev/null +++ b/almighty.ly @@ -0,0 +1,459 @@ +\version "2.16.0" +\include "pop-chords.ly" +\include "english.ly" + +% Good sizes are 16, 18, & 20 +staffSize = #20 +#(set-default-paper-size "letter") +#(set-global-staff-size staffSize) +#(ly:set-option (quote no-point-and-click)) + +%{ Some useful characters: ‘ ’ “ ” – — † ‡ • … %} + +\header +{ +%Let's bump up the title size and switch to the chord font. :-) + + title = \markup { \override #'(font-family . sans) \fontsize #3.5 "Almighty" } + composer = \markup { \override #'(font-family . sans) \fontsize #1.3 "Gary Oliver" } + arranger = \markup { \override #'(font-family . sans) \fontsize #1.3 "arr. Ed Smart" } + tagline = $(string-append "Engraved by JLH and Lilypond " (lilypond-version)) +} + + +% +% Lead vocal +% + +LeadVox = \relative c'' +{ +% \set Voice.autoBeaming = ##f +% \set Staff.instrument = #"Lead vox" + \clef G + \key f \major + \override Staff.TimeSignature #'style = #'() + \time 4/4 +\override Score.SpacingSpanner #'average-spacing-wishes = ##f + +% \set Score.markFormatter = #format-mark-box-letters + + % Intro + + r1^\markup { Moderately fast } \bar "||" + r1 | + r1 | % 3 + r1 | + \time 2/4 r2 | % 5 + \time 4/4 r1 | + r1 | % 7 + + % Verse + + \repeat volta 3 + { + % A section + +\mark \markup { \override #'(font-family . sans) { \box { A } } \italic { 3x } } + + r4 a g8 ([ f ]) f4 | + r4 c'4 bf8 ([ a ]) a [ c ] ~ | % 9 + c2 r | + bf8 [ a ] g [ f ] a4 g8 ([ f ]) | % 11 + r4 a g8 ([ f ]) f4 | + r4 c'4 bf8 ([ a ]) a [ c ] ~ | % 13 + c2 r | + \times 2/3 { bf8 [ a g ] ~ } g8 [ f ] a4 g8 ([ f ]) | % 15 +\once \override Score.RehearsalMark #'self-alignment-X = #left +\mark \markup { \musicglyph #"scripts.coda" \italic { to Coda 3rd time through } } + f2 r2 | % 16 + r2 r4. c8 \bar "||" % 17 + + % B section + +\mark \markup { \override #'(font-family . sans) { \box { B } } } + + e8. [ e16 ] ~ e8 [ f ] f4 r8 c16 [ c ] | + g'8. [ g16 ] ~ g8 [ a ] a4 r8 bf | % 19 + c8. [ c16 ] ~ c8 [ c ] c8. [ bf16 ] ~ bf8 [ a ] | + g4. r8 r4. c,8 | % 21 + e8. [ e16 ] ~ e8 [ f ] f4 r8 c | + g'8. [ g16 ] ~ g8 [ a ] a4 r8 a16 [ bf ] | % 23 + c8. [ c16 ] ~ c8 [ c ] c8. [ bf16 ] ~ bf8 [ a ] | + g4. r8 r4 g8 [ a ] \bar "||" % 25 + + bf8. [ bf16 ] ~ bf8 [ a ] g8. [ f16 ] ~ f8 [ g ] | + a4 f d g8 [ a ] | % 27 + bf8. [ bf16 ] ~ bf8 [ a ] g4 f8 [ g ] | + a4 c c2 | % 29 + } + + % Coda + +\stopStaff s1 \bar "" \startStaff % That removed the spurious floating bar line from line break +\break % Meh +\set Score.currentBarNumber = #30 + +\once \override Score.RehearsalMark #'self-alignment-X = #left +\mark \markup { { \musicglyph #"scripts.coda" } "Coda" } + f,2 r2 | + r1 \bar "||" % 31 + + \key g \major + +\mark \markup { \override #'(font-family . sans) { \box { C } } } + + r4 b a8 ([ g ]) g4 | + r4 d'4 c8 ([ b ]) b [ d ] ~ | % 33 + d2 r | + c8 [ b ] a [ g ] b4 a | % 35 + r4 b a8 ([ g ]) g4 | + r4 d'4 c8 ([ b ]) b [ d ] ~ | % 37 + d2 r | + \times 2/3 { c8 [ b a ] ~ } a8 [ g ] b4 a8 ([ g ]) | % 39 + + % Outro + + \repeat volta 2 + { +\mark \markup { \override #'(font-family . sans) { \box { D } } } + + g2 r2 | + \times 2/3 { c8 [ b a ] ~ } a8 [ g ] b4 a8 ([ g ]) | % 41 + g2 r2 | + \times 2/3 { c8 [ b a ] ~ } a8 [ g ] b4 a8 ([ g ]) | % 43 + } + + g1^\fermata^\markup { \italic { On cue } } \bar "|." +} + +LeadVoxText = \lyricmode +{ + Al -- migh -- _ ty, most ho -- _ ly God _ + Fai -- thful through the a -- ges _ + Al -- migh -- _ ty, most ho -- _ ly Lord _ + Glo -- ri -- ous _ Al -- migh -- ty _ God + + The beast of _ the field + The _ birds of _ the air + Are si -- lent _ to call out _ your name + + The earth has _ no voice + And I have _ no choice + But to mag -- ni -- _ fy God un -- _ a -- shamed + + Let the rocks be _ kept si -- lent _ + For one more day + Let the whole world _ sing out + Let the peo -- ple say: + + God + + Al -- migh -- _ ty, most ho -- _ ly God _ + Fai -- thful through the a -- ges + Al -- migh -- _ ty, most ho -- _ ly Lord _ + Glo -- ri -- ous _ Al -- migh -- ty _ God + + Glo -- ri -- ous _ Al -- migh -- ty _ God + Glo -- ri -- ous _ Al -- migh -- ty _ God +} + +LeadVoxTextB = \lyricmode +{ + _ _ _ _ _ _ _ _ _ _ + _ _ _ _ _ _ _ + _ _ _ _ _ _ _ _ _ _ + _ _ _ _ _ _ _ _ _ + + Well time mar -- _ ches on + With the in -- no -- _ cence gone + And dark -- ness _ has cov -- ered _ the Earth + + _ His spi -- _ it dwells + And speaks ‘It _ is well’ + And the hope -- less _ still of -- fered _ new birth + + He will break the _ leash of death + It will have no sting + Let the pris -- oner _ go free + Join the dance and sing! +} + + +% +% Instrumental lines +% + +RhythmB = \relative c' +{ + \set Voice.autoBeaming = ##f +% \set Staff.instrument = #"Rhythm" + \clef G + \key d \major + \time 4/4 + +%This structure, BTW, is totally wrong (from a different song) + % Intro + + r1 | + r1 | % 2 + r1 | + r1 | % 4 + r1 | + r1 | % 6 + r1 | + r1 | % 8 + + % Verse + + \repeat volta 3 + { + r1 | + r1 | % 10 + r1 | + r1 | % 12 + r1 | + r1 | % 14 + r1 | + r1 | % 16 + + r1 | + r1 | % 18 + r1 | + r1 | % 20 + r1 | + r1 | % 22 + } + \alternative + { + { + r1 | + r1 | + r1 | + r1 | + } + { + r1 | + r1 | + r1 | + r1 | + } + } + \bar "|:" + + % Tag + + r1 | + r1 | + r1 | + r1 | + r1 | + r1 | + r1 | + r1 \bar ":|" + + % Ending + +} + + +% +% Chord names +% + +Chords = \chordmode +{ +%Bah, can't we set this globally? +% \popChords + + % Intro + + s1 \bar "||" + f2.. f8:sus2/a | + s2.. a8:m | % 3 + s2 d:m7 | + \time 2/4 g:m7 | % 5 + \time 4/4 f2..:/c c8 | + s1 | % 7 + + % Verse + + \repeat volta 3 + { + % A section + + f2.. f8:sus2/a | + s2.. a8:m7 | % 9 + s2 d:m7 | + g:m7 f4/c c | % 11 + f2.. f8:sus2/a | + s2.. a8:m7 | % 13 + s2 d:m7 | + g:m7 f4/c c | % 15 + f4. bf:sus2 s4 | + bf4./d c8/e f2 \bar "||" % 17 + + % B section + + c2 f | + c:sus2/e f | % 19 + bf1:9^7 | + c4.:sus4 c8 s2 | % 21 + c2/e f | + c d:m7 | % 23 + g1:m11 | + c4.:sus4 c8 s2 | % 25 + + g2:m7 c | + f4 f/a bf f/a | % 27 + g2:m7 c | + f4 f/a c2 | % 29 + } + + % Coda + +s1 | + f4. bf:sus2 s4 | + bf2/d c4/e d | % 31 + + g2.. g8:sus2/b | + s2.. b8:m7 | % 33 + s2 e:m7 | + a:m7 g4/d d | % 35 + g2.. g8:sus2/b | + s2.. b8:m7 | % 37 + s2 e:m7 | + a:m7 g4/d d | % 39 + + % Outro + + g4. c:sus2 s4 | + a2:m7 g4/d d | % 41 + g4. c:sus2 s4 | + a2:m7 g4/d d | % 43 + + g1 \bar "|." +} + + +% +% Chord rhythms +% + +% Use a RhythmicStaff on the chords instead of this? +% It almost works, but not quite. Doesn't collapse chords above to single notes... + +StaffC = \relative c +{ + \set Voice.autoBeaming = ##f +% \set Staff.instrument = #"Rhythm" + \override Staff.TimeSignature #'style = #'() + \time 4/4 + \override NoteHead #'style = #'slash + + % Intro + + r2 c4^\markup { \italic { drum fill } } c \bar "||" + c2 ~ c4. c8 ~ | + c2 ~ c4. c8 ~ | % 3 + c4. c8 c4 c | + \time 2/4 c4 c | % 5 + \time 4/4 c2 ~ c4. c8 ~ | + c1 | % 7 + + % Verse + + \repeat volta 3 + { + % A section + + c4 c c c8 [ c ] ~ | + c4 c c c8 [ c ] ~ | % 9 + c4 c c c | + c4 c c c | % 11 + c4 c c c8 [ c ] ~ | + c4 c c c8 [ c ] ~ | % 13 + c4 c c c | + c4 c c c | % 15 + c8. [ c16 ] ~ c8 [ c8 ] ~ c4 c | + c8. [ c16 ] ~ c8 [ c8 ] c4 r | % 17 + + % B section + + c2 c | + c2 c | % 19 + c8. [ c16 ] ~ c8 [ c ] c8. [ c16 ] ~ c8 [ c ] | + c4. c8 ~ c4 c | % 21 + c2 c | + c2 c | % 23 + c8. [ c16 ] ~ c8 [ c ] c8. [ c16 ] ~ c8 [ c ] | + c4. c8 ~ c4 c | % 25 + + c4 c c c | + c4 c c c | % 27 + c4 c c c | + c4 c c c | % 29 + } + + % Coda + +\stopStaff s1 \startStaff | +\set Score.currentBarNumber = #30 + + c8. [ c16 ] ~ c8 [ c8 ] ~ c4 c | % 30 + c8. [ c16 ] ~ c8 [ c8 ] c4 c4 | % 31 + + c2 ~ c4. c8 ~ | + c2 ~ c4. c8 ~ | % 33 + c4 c c c | + c4 c c c | % 35 + c4 c c c8 [ c ] ~ | + c4 c c c8 [ c ] ~ | % 37 + c4 c c c | + c4 c c c | % 39 + + % Outro + + c8. [ c16 ] ~ c8 [ c ] ~ c4 c | + c4 c c c | % 41 + c8. [ c16 ] ~ c8 [ c ] ~ c4 c | + c4_\markup { \italic { rit. last time } } c c c | % 43 + + c1^\fermata \bar "|." +} + + +\score +{ + << +% \new ChoirStaff = "Vox" + << + \new Staff = leadStaff { \new Voice = "lead" \LeadVox } + \new Lyrics \lyricsto "lead" \LeadVoxText + \new Lyrics \lyricsto "lead" \LeadVoxTextB + >> + + \new ChoirStaff = "Rhythm" + << +% \new Staff = "riff" \RhythmB + \new ChordNames = "chords" \Chords + \new RhythmicStaff = "chordRhythm" \StaffC + >> + + \set Score.skipBars = ##t + \set Score.melismaBusyProperties = #'() + >> + \layout { +% ragged-last-bottom = ##t + ragged-last = ##t + } +} + + +\paper +{ + #(define fonts (make-pango-font-tree + "Times New Roman" + "DomCasual BT" + "Luxi Mono" + (/ staffSize 20))) +} diff --git a/amazing-love.ly b/amazing-love.ly new file mode 100755 index 0000000..5476994 --- /dev/null +++ b/amazing-love.ly @@ -0,0 +1,348 @@ +\version "2.16.0" +\include "pop-chords.ly" +\include "english.ly" + +% Good sizes are 16, 18, & 20 +staffSize = #18 +#(set-default-paper-size "letter") +#(set-global-staff-size staffSize) +#(ly:set-option (quote no-point-and-click)) + +%{ Some useful characters: ‘ ’ “ ” – — † ‡ • … %} + +\header +{ + title = \markup { \override #'(font-family . sans) \fontsize #3.5 "Amazing Love" } + composer = \markup { \override #'(font-family . sans) \fontsize #1.3 "Graham Kendrick" } + arranger = \markup { \override #'(font-family . sans) \fontsize #1.3 "arr. Shamus Hammons" } + tagline = $(string-append "Engraved by JLH and Lilypond " (lilypond-version)) +} + + +% +% Lead vocal +% + +LeadVox = \relative c' +{ +% \set Voice.autoBeaming = ##f +% \set Staff.instrument = #"Lead vox" + \override Staff.TimeSignature #'style = #'() + \clef G + \key d \major + \time 4/4 +\override Score.SpacingSpanner #'average-spacing-wishes = ##f + + % Intro + + R1^\markup { Moderate half time feel } | % 1 + r2 r4 e | % 2 + + \repeat volta 3 + { + % Verse + +\mark \markup { \override #'(font-family . sans) { \box { A } } } + + fs1 ~ | % 3 + fs2. fs4 | % 4 + fs4. e8 g2 ~ | % 5 + g2. e4 | % 6 + e1 ~ | % 7 + e2. g4 | % 8 + g4. ( fs8 ) fs2 | % 9 + r2 r4 e | % 10 + fs1 ~ | % 11 + fs2. fs4 | % 12 + fs4. e8 g2 ~ | % 13 + g2. r4 | % 14 + b1 | % 15 + a1 | % 16 + d1 ~ | % 17 + d2 r4 d \bar "||" % 18 + + % Chorus + +\mark \markup { \override #'(font-family . sans) { \box { B } } } + + c4. b8 a2 ~ | % 19 + a2 g4 a | % 20 + a4. d,8 d2 ~ | % 21 + d2 r4 d' | % 22 + c4. b8 a2 ~ | % 23 + a2 g8 g a4 | % 24 + a1 ~ | % 25 + a2 r4 d | % 26 + + c4. b8 a2 ~ | % 27 + a2 g4 a | % 28 + a4. d,8 d2 ~ | % 29 + d2. fs4 | % 30 + g4. ( fs8 e2 ) ~ | % 31 + e2 b'4. ( a8 ) | % 32 + a1 ~ | % 33 + a2. fs4 | % 34 + g4. ( fs8 e2 ) ~ | % 35 + e2 b'4. ( a8 ) | % 36 + } + \alternative + { + { + a1 | % 37 + r2 r4 e | % 38 + } + { + a1 ~ | % 39 + } + } + + % Ending + + a2. fs4 \bar "||" % 40 + +%\once \override Score.RehearsalMark #'self-alignment-X = #left +\mark \markup { \override #'(font-family . sans) { \box { C } } } + + g4. ( fs8 e2 ) ~ | % 41 + e2^\fermata \breathe d' | % 42 + d1 ~ | % 43 + d1 | % 44 + R1 | % 45 + R1 | % 46 + r1^\fermata \bar "|." % 47 +} + + +LeadVoxText = \lyricmode +{ + My Lord, __ _ what love is this _ + that pays __ _ so dear -- _ ly; + That I, __ _ the guil -- ty one _ + may go free? __ _ + + A -- ma -- zing love, __ _ O what sac -- ri -- fice __ _ + The Son of God __ _ gi -- ven for me; __ _ + My debt he pays __ _ and my death he dies __ _ + That I __ _ _ _ might _ live, __ _ that I __ _ _ _ might _ live. + + And + live, __ _ + + that I __ _ _ _ might live. __ _ +} + +LeadVoxTextB = \lyricmode +{ + _ so, __ _ they watched him die _ + de -- spised, __ _ re -- jec -- _ ted; + But O, __ _ the blood he shed _ + flowed for me! __ +} + +LeadVoxTextC = \lyricmode +{ + _ now __ _ this love of Christ _ + shall flow __ _ like ri -- _ vers; + Come wash __ _ your guilt a -- way, _ + live a -- gain! __ +} + + +% +% Chord names +% + +Chords = \chordmode +{ +%Bah, can't we set this globally? +% \popChords + + % Intro + + d1 | % 1 + a2:sus4.7 a:7 | % 2 + + % Verse + + d1 | % 3 + s1 | % 4 + s2 e:m7 | % 5 + s1 | % 6 + a1:sus4.7 | % 7 + a1:7 | % 8 + g2 d | % 9 + s2 a:sus4.7 | % 10 + d1 | % 11 + s1 | % 12 + s2 e:m7 | % 13 + s1 | % 14 + g1 | % 15 + a1 | % 16 + d1 | % 17 + d4.:sus4 d s4 | % 18 + + % Chorus + + a1:m7 | % 19 + s1 | % 20 + d2.. d8:sus4 | % 21 + s4. d2 s8 | % 22 + f1:maj7 | % 23 + s1 | % 24 + a2..:sus2 a8 | % 25 + s1 | % 26 + + a1:m7 | % 27 + s1 | % 28 + d2.. d8:sus4 | % 29 + s4. d2 s8 | % 30 + a1:m7 | % 31 + s2 g | % 32 + d1 | % 33 + s1 | % 34 + a1:m7 | % 35 + s2 g | % 36 + + d1 | % 37 + s2 a:sus4.7 | % 38 + + d1 | % 39 + + % Ending + + s1 | % 40 + a1:m7 | % 41 + c1 | % 42 + d1 | % 43 + s1 | % 44 + a1:m7 | % 45 + c1 | % 46 + d1 | % 47 +} + + +% +% Chord rhythms +% + +% Use a RhythmicStaff on the chords instead of this? +% It almost works, but not quite. Doesn't collapse chords above to single notes... + +StaffC = \relative c +{ +% \set Voice.autoBeaming = ##f +% \set Staff.instrument = #"Rhythm" + \override Staff.TimeSignature #'style = #'() + \time 4/4 + \override NoteHead #'style = #'slash + + % Intro + + c4 c c c | % 1 + c4. c c4 | % 2 + + \repeat volta 3 + { + % Verse + + c4_\markup { \italic { fingerpick throughout verses } } c c c | % 3 + c4 c c c | % 4 + c4 c c c | % 5 + c4 c c c | % 6 + c4 c c c | % 7 + c4 c c c | % 8 + c4 c c c | % 9 + c4 c c c | % 10 + c4 c c c | % 11 + c4 c c c | % 12 + c4 c c c | % 13 + c4 c c c | % 14 + c4 c c c | % 15 + c4 c c c | % 16 + c4 c c c | % 17 + c4. c c4 \bar "||" % 18 + + % Chorus + + c4 r8 c c4 r8 c ~ | % 19 + c8 c c4 c8 c c4 | % 20 + c4 r8 c c4 c8 c ~ | % 21 + c8 c4 c8 ~ c c c4 | % 22 + c4 r8 c c4 r8 c | % 23 + r8 c c4 c8 c c4 | % 24 + c4 c c8 c r c | % 25 + r8 c c4 c8 c c c | % 26 + + c4 r8 c c4 r8 c ~ | % 27 + c8 c c4 c8 c c4 | % 28 + c4 r8 c c4 c8 c ~ | % 29 + c8 c4 c8 c4 c | % 30 + c4 r8 c c4 r8 c ~ | % 31 + c8 c c c c4 c8 c | % 32 + c4 r8 c c4 r8 c | % 33 + r8 c c4 c8 c c4 | % 34 + c4 r8 c c4 r8 c ~ | % 35 + c8 c c c c4. c8 | % 36 + } + \alternative + { + { + c4 r8 c c4 r8 c ~ | % 37 + c8 c c4 c2 | % 38 + } + { + c4 r8 c c4 c8 c ~ | % 39 + } + } + + % Ending + + c8 c c4 c8 c c4 \bar "||" % 40 + + c4 r8 c c4 c8 c | % 41 + c1^\fermata | % 42 + c4_\markup { \italic { a tempo } } c c c | % 43 + c4 c c c | % 44 + c4 c c c_\markup { \italic { rit. } } | % 45 + c4 c c c | % 46 + c1^\fermata \bar "|." % 47 +} + + +\score +{ + << +% \new ChoirStaff = "Vox" + << + \new Staff = leadStaff { \new Voice = "lead" \LeadVox } + \new Lyrics \lyricsto "lead" \LeadVoxText + \new Lyrics \lyricsto "lead" \LeadVoxTextB + \new Lyrics \lyricsto "lead" \LeadVoxTextC + >> + + \new ChoirStaff = "Rhythm" + << +% \new Staff = "riff" \RhythmB + \new ChordNames = "chords" \Chords + \new RhythmicStaff = "chordRhythm" \StaffC + >> + + \set Score.skipBars = ##t + \set Score.melismaBusyProperties = #'() + >> + \layout + { +% ragged-last-bottom = ##t + ragged-last = ##t + } +} + + +\paper +{ + #(define fonts (make-pango-font-tree + "Times New Roman" + "DomCasual BT" + "Luxi Mono" + (/ staffSize 20))) +} diff --git a/angels-we-have-heard-on-high.ly b/angels-we-have-heard-on-high.ly new file mode 100644 index 0000000..a560c93 --- /dev/null +++ b/angels-we-have-heard-on-high.ly @@ -0,0 +1,498 @@ +\version "2.16.0" +\include "pop-chords.ly" +\include "english.ly" + +% Good sizes are 16, 18, & 20 +staffSize = #18 +#(set-default-paper-size "letter") +#(set-global-staff-size staffSize) +#(ly:set-option (quote no-point-and-click)) + +%{ Some useful characters: ‘ ’ “ ” – — † ‡ • … %} + +\header +{ +%Let's bump up the title size and switch to the chord font. :-) + + title = \markup { \override #'(font-family . sans) \fontsize #3.5 "Angels We Have Heard On High" } +% subtitle = \markup { \override #'(font-family . sans) \fontsize #1.5 "Capo 3 Version" } +% composer = \markup { \override #'(font-family . sans) \fontsize #1.3 "" } + arranger = \markup { \override #'(font-family . sans) \fontsize #1.3 "arr. Ed Smart" } + tagline = $(string-append "Engraved by JLH and Lilypond " (lilypond-version)) +} + + +% +% Lead vocal +% + +LeadVox = \relative c'' +{ +% \set Voice.autoBeaming = ##f +% \set Staff.instrument = #"Lead vox" + \clef G + \key f \major + \override Staff.TimeSignature #'style = #'() + \time 4/4 +\override Score.SpacingSpanner #'average-spacing-wishes = ##f + + % Intro + + r1 | % 1 + r1 | % 2 + r1 | % 3 + s1 \bar "||" % 4 + +\mark \markup { \override #'(font-family . sans) { \box { 1 } } } + + s1 | % 5 + s1 | % 6 + s1 | % 7 + s1 | % 8 + s1 | % 9 + s1 | % 10 + s1 | % 11 + s1 \bar "||:" % 12 + + \repeat volta 2 + { + % Verse + +\mark \markup { \override #'(font-family . sans) { \box { A } } } + + a4 a a c | % 13 + c4. bf8 a2 | % 14 + a4 g a c | % 15 + a4. g8 f2 | % 16 + a4 a a c | % 17 + c4. bf8 a2 | % 18 + a4 g a c | % 19 + a4. g8 f2 \bar "||" % 20 + + % Chorus + +\mark \markup { \override #'(font-family . sans) { \box { B } } } + + c'2 ( d8 c bf a | % 21 + bf2 c8 bf a g | % 22 + a2 bf8 a g f | % 23 + g4. ) c,8 c2 | % 24 + f4 g a bf | % 25 + a2 g4 r | % 26 + c2 ( d8 c bf a | % 27 + bf2 c8 bf a g | % 28 + a2 bf8 a g f | % 29 + g4. ) c,8 c2 | % 30 + f4 g a bf | % 31 + a2 ( g ) | % 32 + } + \alternative + { + { + f2. r4 | % 33 + r1 | % 34 + } + { + f2. r4 | % 35 + } + } + + r1 \bar "||" % 36 + + \key g \major + + % Verse + +\mark \markup { \override #'(font-family . sans) { \box { C } } } + + b4 b b d | % 37 + d4. c8 b2 | % 38 + b4 a b d | % 39 + b4. a8 g2 | % 40 + b4 b b d | % 41 + d4. c8 b2 | % 42 + b4 a b d | % 43 + b4. a8 g2 \bar "||" % 44 + + % Chorus + +\mark \markup { \override #'(font-family . sans) { \box { D } } } + + d'2 ( e8 d c b | % 45 + c2 d8 c b a | % 46 + b2 c8 b a g | % 47 + a4. ) d,8 d2 | % 48 + g4 a b c | % 49 + b2 a4 r | % 50 + d2 ( e8 d c b | % 51 + c2 d8 c b a | % 52 + b2 c8 b a g | % 53 + a4. ) d,8 d2 | % 54 + g4 a b c | % 55 + b2 ( a ) | % 56 + + % Outro + + \repeat volta 2 + { +\mark \markup { \override #'(font-family . sans) { \box { E } } } + + g2. r4 | % 57 + r1 | % 58 + r1 | % 59 + r1 | % 60 + } + + g4 a b c | % 61 + b2 ( a ) | % 62 + g1-\fermata \bar "|." % 63 +} + +LeadVoxText = \lyricmode +{ + An -- gels we have heard on high + sweet -- ly sing -- ing o’er the plains, + And the moun -- tains in re -- ply + e -- cho back their joy -- ous strains. + + Glo -- _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ ri -- a + in ex -- cel -- sis De -- o, + Glo -- _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ ri -- a + in ex -- cel -- sis De -- _ o. + + o. + + Come to Beth -- le -- hem and see + him whose birth the an -- gels sing; + Come a -- dore on bend -- ed knee, + Christ, the Lord, the new -- born king. + + Glo -- _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ ri -- a + in ex -- cel -- sis De -- o, + Glo -- _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ ri -- a + in ex -- cel -- sis De -- _ o. + + in ex -- cel -- sis De -- _ o. +} + +LeadVoxTextB = \lyricmode +{ + Shep -- herds why this ju -- bi -- lee? + Why your joy -- ous strains pro -- long? + Say what may the ti -- dings be + which in -- spire your heaven -- ly song? +} + + +Riffs = \relative c' +{ + \clef G + \key f \major + \override Staff.TimeSignature #'style = #'() + \time 4/4 +\override Score.SpacingSpanner #'average-spacing-wishes = ##f + + \tiny + s1*3 + r2 r4 f16 g a bf | % 4 + c2 d8 c bf a | % 5 + bf2 c8 bf a g | % 6 + a2 bf8 a g f | % 7 + g4. c,8 c2 | % 8 + + f4 g a bf | % 9 + a2 g | % 10 + f1 | % 11 + r1 | % 12 + \normalsize +} + + +% +% Chord names +% + +Chords = \chordmode +{ +%Bah, can't we set this globally? +% \popChords + + % Intro + + f4 s8. bf2:sus2/f s16 | % 1 + f4 s8. bf2:sus2/f s16 | % 2 + f4 s8. bf2:sus2/f s16 | % 3 + f4 s8. bf2:sus2/f s16 | % 4 + + f2 d:m7 | % 5 + g2:m7 c4 c/bf | % 6 + f2/a bf:sus2 | % 7 + c2:sus4 c | % 8 + bf4/d c/e f bf | % 9 + f2/c c | % 10 + f4 s8. bf2:sus2 s16 | % 11 + f4 s8. bf2:sus2 s16 | % 12 + + \repeat volta 2 + { + % Verse + + f2 bf:sus2 | % 13 + f2 bf:sus2 | % 14 + f2 bf:sus2 | % 15 + f2 bf:sus2 | % 16 + f2 bf:sus2 | % 17 + f2 bf:sus2 | % 18 + f2 bf:sus2 | % 19 + bf4/d c/e f2 | % 20 + + % Chorus + + f2 d:m7 | % 21 + g2:m7 c4 c/bf | % 22 + f2/a bf:sus2 | % 23 + c2:sus4 c | % 24 + f4/a c f bf/d | % 25 + f2/c c | % 26 + f2 d:m7 | % 27 + g2:m7 c4 c/bf | % 28 + f2/a bf:sus2 | % 29 + c2:sus4 c | % 30 + bf4/d c/e f bf | % 31 + f2/c c | % 32 + } + \alternative + { + { + f4 s8. bf2:sus2 s16 | % 33 + f4 s8. bf2:sus2 s16 | % 34 + } + { + f4 s8. bf2:sus2 s16 | % 35 + } + } + + f4 s8. bf4:sus2 s16 c4/d | % 36 + + % Verse + + g1:5^3 | % 37 + s1 | % 38 + g1:5^3 | % 39 + s1 | % 40 + e1:m7 | % 41 + s1 | % 42 + c1:sus2 | % 43 + c4/e d/fs g2 | % 44 + + % Chorus + + g2 e:m7 | % 45 + a2:m7 d4 d/c | % 46 + g2/b c:sus2 | % 47 + d2:sus4 d | % 48 + g4/b d g c/e | % 49 + g2/d d | % 50 + b2:m7.5- e:7.9- | % 51 + a2:m7 c4/d ds:dim7 | % 52 + e2:m7 a:m7 | % 53 + d2:sus4 d | % 54 + c4/e d/fs g c | % 55 + g2/d d | % 56 + + % Outro + + \repeat volta 2 + { + g4 s8. c2:sus2 s16 | % 57 + g4 s8. c2:sus2 s16 | % 58 + g4 s8. c2:sus2 s16 | % 59 + g4 s8. c2:sus2 s16 | % 60 + } + + c4/e d/fs g c | % 61 + g2/d d | % 62 + g1 | % 63 +} + + +% +% Chord rhythms +% + +% Use a RhythmicStaff on the chords instead of this? +% It almost works, but not quite. Doesn't collapse chords above to single notes... + +StaffC = \relative c +{ +% \set Voice.autoBeaming = ##f +% \set Staff.instrument = #"Rhythm" + \override Staff.TimeSignature #'style = #'() + \time 4/4 + \override NoteHead #'style = #'slash + + % Intro + + c4-> c8. c16-> ~ c4 c | % 1 + c4-> c8. c16-> ~ c4 c | % 2 + c4-> c8. c16-> ~ c4 c | % 3 + c4-> c8. c16-> ~ c4 c \bar "||" % 4 + + c4 c c c | % 5 + c4 c c c | % 6 + c4 c c c | % 7 + c4 c c c | % 8 + c4-> c-> c-> c-> | % 9 + c4 c c c | % 10 + c4-> c8. c16-> ~ c4 c | % 11 + c4-> c8. c16-> ~ c4 c \bar "||:" % 12 + + \repeat volta 2 + { + % Verse + + c4 c c c | % 13 + c4 c c c | % 14 + c4 c c c | % 15 + c4 c c c | % 16 + c4 c c c | % 17 + c4 c c c | % 18 + c4 c c c | % 19 + c4 c c c \bar "||" % 20 + + % Chorus + + c4 c c c | % 21 + c4 c c c | % 22 + c4 c c c | % 23 + c4 c c c | % 24 + c4-> c-> c-> c-> | % 25 + c4 c c c | % 26 + c4 c c c | % 27 + c4 c c c | % 28 + c4 c c c | % 29 + c4 c c c | % 30 + c4-> c-> c-> c-> | % 31 + c4 c c c | % 32 + } + \alternative + { + { + c4 c8. c16-> ~ c4 c | % 33 + c4 c8. c16-> ~ c4 c | % 34 + } + { + c4 c8. c16-> ~ c4 c | % 35 + } + } + + c4 c8. c16-> ~ c4 c \bar "||" % 36 + + % Verse + + c1-> ~ | % 37 + c1 | % 38 + c1-> ~ | % 39 + c1 | % 40 + c1-> ~ | % 41 + c1 | % 42 + c1-> | % 43 + c4-> c-> c c \bar "||" % 44 + + % Chorus + + c4 c c c | % 45 + c4 c c c | % 46 + c4 c c c | % 47 + c4 c c c | % 48 + c4-> c-> c-> c-> | % 49 + c4 c c c | % 50 + c4 c c c | % 51 + c4 c c c | % 52 + c4 c c c | % 53 + c4 c c c | % 54 + c4-> c-> c-> c-> | % 55 + c4 c c c | % 56 + + % Outro + + \repeat volta 2 + { + c4 c8. c16-> ~ c4 c | % 57 + c4 c8. c16-> ~ c4 c | % 58 + c4 c8. c16-> ~ c4 c | % 59 + c4 c8. c16-> ~ c4 c | % 60 + } + + c4-> c-> c-> c-> | % 61 + c4 c c c | % 62 + c1-\fermata \bar "|." % 63 +} + + +Dynamics = +{ + s4_\markup { \dynamic f \italic { bass sustain, hh 16ths, no snare } } s2. | % 1 + s1*2 + s2 s_\markup { \italic { dr. fill } } | % 4 + s4_\markup { \italic { snare 2&4, hh 16ths } } s2. | % 5 + s1*6 + s2 s4 \> s | % 12 + s4_\mf s2. | % 13 + s1*6 + s2 \once \override TextScript #'extra-offset = #'( 0.0 . -2.2 ) s4 \< _\markup { \italic { dr. fill } } s | % 20 + s4_\f s2. | % 21 + s1*12 + s2 s4 \> s \! | % 34 + s1 + s2 \once \override TextScript #'extra-offset = #'( 0.0 . -2.0 ) s4 \< _\markup { \italic { dr. fill } } s \! | % 36 + s4_\markup { \dynamic ff \italic { no snare } } s2. | % 37 + s1*6 + s2 \once \override TextScript #'extra-offset = #'( 0.0 . -2.0 ) s4 \< _\markup { \italic { dr. fill } } s \! | % 44 + s1*16 + s4_\markup { \italic { On Cue } } s2. | % 61 + s4 s2._\markup { \italic { rit. } } | % 62 +} + + +\score +{ + << + << +% \new Staff = leadStaff { \new Voice = "lead" \LeadVox } + \new Staff = leadStaff { << \new Voice = "lead" \LeadVox \new Voice = "riffs" \Riffs >> } + \new Lyrics \lyricsto "lead" \LeadVoxText + \new Lyrics \lyricsto "lead" \LeadVoxTextB + >> + + \new ChoirStaff = "Rhythm" + << + \new ChordNames = "chords" \Chords +% Capo 3 version +% \new ChordNames = "chords" \transpose f d \Chords + \new RhythmicStaff = "chordRhythm" << \StaffC \Dynamics >> + >> + + \set Score.skipBars = ##t + \set Score.melismaBusyProperties = #'() + >> + + \layout + { +% \context { \Staff \RemoveEmptyStaves } +% ragged-last-bottom = ##t + ragged-last = ##t + } +} + + +\paper +{ + #(define fonts (make-pango-font-tree + "Times New Roman" + "DomCasual BT" + "Luxi Mono" + (/ staffSize 20))) + +% top-margin = -0.25 \in +} diff --git a/as-the-deer.ly b/as-the-deer.ly new file mode 100755 index 0000000..86ebac9 --- /dev/null +++ b/as-the-deer.ly @@ -0,0 +1,487 @@ +\version "2.16.0" +\include "pop-chords.ly" +\include "english.ly" + +% Good sizes are 16, 18, & 20 +staffSize = #20 +#(set-default-paper-size "letter") +#(set-global-staff-size staffSize) +#(ly:set-option (quote no-point-and-click)) + +%{ Some useful characters: ‘ ’ “ ” – — † ‡ • … %} + +\header +{ +%Let's bump up the title size and switch to the chord font. :-) + + title = \markup { \override #'(font-family . sans) \fontsize #3.5 "As The Deer" } +% composer = \markup { \override #'(font-family . sans) \fontsize #1.3 "" } + arranger = \markup { \override #'(font-family . sans) \fontsize #1.3 "arr. Ed Smart" } + tagline = $(string-append "Engraved by JLH and Lilypond " (lilypond-version)) +} + + +%{ +tweak = #(define-music-function (parser location sym val arg) + (symbol? scheme? ly:music?) + + "Add @code{sym . val} to the @code{tweaks} property of @var{arg}." + + (set! + (ly:music-property arg 'tweaks) + (acons sym val + (ly:music-property arg 'tweaks))) + arg) +%} + +% Useful tweak abbreviations (hn = harmony note) + +hn = #(define-music-function (parser location arg) (ly:music?) +;; Harmony Note: Set the tweaks property of the passed in note to use a smaller font + + (set! (ly:music-property arg 'tweaks) + (acons 'font-size -3.5 (ly:music-property arg 'tweaks))) arg) + + +% +% Song's structure +% +Global = +{ + \key c \major + \override Staff.TimeSignature #'style = #'() + \time 4/4 + + % Intro + + \once \override TextScript #'padding = #2.0 + s1*0^\markup { \large { Moderate ballad } } + s1*4 | % 1-4 + + \repeat volta 2 + { + % A section + + \mark \markup { \override #'(font-family . sans) { \box { A } } } + + s1*7 | % 5-11 + s1 \bar "||" % 12 + + % B section + + \mark \markup { \override #'(font-family . sans) { \box { B } } } + + s1*7 | % 13-19 + } + \alternative + { + { + s1 | % 20 + } + { + s1 \bar "||" % 21 + } + } + + % A section (modulation) + + \key d \major + + \once \override Score.RehearsalMark #'padding = #2.0 + \mark \markup { \override #'(font-family . sans) { \box { C } } } + + s1*8 | % 22-29 + + % B section + + \repeat volta 2 + { + \mark \markup { \override #'(font-family . sans) { \box { D } } } + + s1*7 | % 30-36 + } + \alternative + { + { + s1 | % 37 + } + { + s1 | % 38 + } + } + + % Outro + + s1*5 | % 39-43 + s1 \bar "|." % 44 +} + + +% +% Lead vocal +% +LeadVox = \relative c' +{ + \clef G + \override Score.SpacingSpanner #'average-spacing-wishes = ##f + + s1 | % 1 + s1 | % 2 + s1 | % 3 + s1 | % 4 + + % A section + + e4 g g e8 d | % 5 + c4. d8 f e d c | % 6 + a'4 a8 a g4. f8 | % 7 + g1 | % 8 + e4 g g e8 d | % 9 + c4. d8 f ( e ) d c | % 10 + c4. e8 d4. c8 | % 11 + c2 ~ c4 r | % 12 + + % B section + + 4 8 | % 13 + 4 4. <\hn e c>8 | % 14 + 4 8 [ ] | % 15 + 4 + << { \voiceOne 2 } \new Voice = "v" { \voiceTwo <\hn a,>4 ( <\hn gs> ) } >> \oneVoice | % 16 + e'4 g g e8 d | % 17 + c4. d8 f ( e ) d c | % 18 + c4. e8 d4. c8 | % 19 + + c2 r | % 20 + + c2 r | % 21 + + % A section (modulation) + + fs4 a a fs8 e | % 22 + d4. e8 g fs e d | % 23 + b'4. b8 a4. g8 | % 24 + a1 | % 25 + fs4 a a fs8 e | % 26 + d4. e8 g fs e d | % 27 + d4. fs8 e4. d8 | % 28 + d2 ~ d4 r | % 29 + + % B section + + 4 8 | % 30 + 4 4. <\hn fs d>8 | % 31 + 4 8 | % 32 + 4 +% << { \voiceOne 2 } \new Voice = "v" { \voiceTwo \override NoteHead #'font-size = #-3.5 b,4 ( as ) \override NoteHead #'font-size = #1.0 } >> \oneVoice | % 33 + << { \voiceOne 2 } \new Voice = "v" { \voiceTwo <\hn b,>4 ( <\hn as> ) } >> \oneVoice | % 33 + fs'4 a a fs8 e | % 34 + d4. e8 g fs e d | % 35 + d4. fs8 e4. d8 | % 36 + + d1 | % 37 + + d2 ~ d4 fs8 e | % 38 + + % Outro + + d4. fs8 e4. d8 | % 39 + d2 ~ d4 fs8 e | % 40 + d4. fs8 e4. d8 | % 41 + << { \voiceOne d1 } \context Voice = v { \voiceThree s1 } >> \oneVoice | % 42 + + s1 | % 43 + s1 | % 44 +} + +LeadVoxText = \lyricmode +{ + As the deer pant -- eth for the wa -- ter + so my soul long -- eth a -- fter thee, + + You a -- lone are my heart’s de -- sire _ + and I long to wor -- ship thee. _ + + You a -- lone are my strength my shield; + To you a -- lone may my spi -- rit yield. + + You a -- lone are my heart’s de -- sire _ + and I long to wor -- ship thee. + + thee. + + I want you more than gold or sil -- ver, + on -- ly you can sa -- tis -- fy. + + You a -- lone are the real joy gi -- ver + and the ap -- ple of my eye. _ + + You a -- lone are my strength my shield; + To you a -- lone may my spi -- rit yield. + + You a -- lone are my heart’s de -- sire _ + and I long to wor -- ship thee. + + thee, _ + + and I long to wor -- ship thee, _ + and I long to wor -- ship thee. +} + +LeadVoxTextB = \lyricmode +{ + You’re my friend and you are my bro -- ther + e -- ven though you _ are a king, + + I love you more than a -- ny o -- ther + so much more than a -- ny -- thing. +} + +% +% Riffs +% +Riffs = \relative c' +{ + % Intro + + \tiny + e4 g g e8 d | % 1 + c4. d8 f e d c | % 2 + c4. e8 d4. c8 | % 3 + c1 | % 4 + + s1*37 | % 5-41 + + << { \voiceOne s1 } \context Voice = v { \voiceThree \tiny fs4 a a fs8 e \normalsize } >> \oneVoice | % 42 + d4. e8 g fs e d | % 43 + d1^\fermata | % 44 + \normalsize +} + + +% +% Chord names +% +Chords = \chordmode +{ +%Bah, can't we set this globally? +% \popChords + + % Intro + + c2 e:m/b | % 1 + a2:m c/g | % 2 + d2:m g4:sus4 g | % 3 + c2 g4/c f/c | % 4 + + % A section + + c2 e:m/b | % 5 + a2:m c/g | % 6 + f2 g:sus2/f | % 7 + c2 g4/c f/c | % 8 + c2 e:m/b | % 9 + a2:m c/g | % 10 + d2:m7 g4:sus4 g | % 11 + c2. g4/b | % 12 + + % B section + + a2:m a:m7/g | % 13 + f4 g:sus2/f c2/e | % 14 + d2:m d:m/c | % 15 + d2:m/b e4:sus4 e | % 16 + c2 e:m/b | % 17 + a2:m c/g | % 18 + d2:m g4:sus4 g | % 19 + + c2 g4/c f/c | % 20 + + c2 g/a | % 21 + + % A section (modulation) + + d2 fs:m/cs | % 22 + b2:m d/a | % 23 + g2 a:sus2/g | % 24 + d2 a4/d g/d | % 25 + d2 fs:m/cs | % 26 + b2:m d/a | % 27 + e2:m a4:sus4 a | % 28 + d2. a4/cs | % 29 + + % B section + + b2:m b:m/a | % 30 + g4 a:sus2/g d2/fs | % 31 + e2:m e:m/d | % 32 + e2:m/cs fs4:sus4 fs | % 33 + d2 fs:m/cs | % 34 + b2:m d/a | % 35 + e2:m7 a4:sus4 a | % 36 + + d2. a4/cs | % 37 + + b2:m b:m/a | % 38 + + % Outro + + e2:m7 a4:sus4 a | % 39 + b2.:m b4:m/a | % 40 + e2:m7 a4:sus4 a | % 41 + d2 fs:m/cs | % 42 + b2:m g:sus2 | % 43 + d1 | % 44 +} + + +% +% Chord rhythms +% + +% Use a RhythmicStaff on the chords instead of this? +% It almost works, but not quite. Doesn't collapse chords above to single notes... + +Rhythm = +{ + \override Staff.TimeSignature #'style = #'() + \override NoteHead #'style = #'slash + + % Intro + + c4 c c c | % 1 + c4 c c c | % 2 + c4 c c c | % 3 + c4 c c c | % 4 + + % A section + + c4 c c c | % 5 + c4 c c c | % 6 + c4 c c c | % 7 + c4 c c c | % 8 + c4 c c c | % 9 + c4 c c c | % 10 + c4 c c c | % 11 + c4 c c c | % 12 + + % B section + + c4 c c c | % 13 + c4 c c c | % 14 + c4 c c c | % 15 + c4 c c c | % 16 + c4 c c c | % 17 + c4 c c c | % 18 + c4 c c c | % 19 + + c4 c c c | % 20 + + c4 c c c | % 21 + + % A section (modulation) + + c4 c c c | % 22 + c4 c c c | % 23 + c4 c c c | % 24 + c4 c c c | % 25 + c4 c c c | % 26 + c4 c c c | % 27 + c4 c c c | % 28 + c4 c c c | % 29 + + % B section + + c4 c c c | % 30 + c4 c c c | % 31 + c4 c c c | % 32 + c4 c c c | % 33 + c4 c c c | % 34 + c4 c c c | % 35 + c4 c c c | % 36 + + c4 c c c | % 37 + + c4 c c c | % 38 + + % Outro + + c4 c c c | % 39 + c4 c c c | % 40 + c4 c c c | % 41 + c4 c c c | % 42 + c4 c c c | % 43 + c1-\fermata | % 44 +} + +Dynamics = +{ + % Intro + + s1*17 | % 1-17 + + s2 s4_\markup { \italic { rit. } } s | % 18 + s4_\markup { \italic { A tempo } } s2. | % 19 + + s1*13 | % 20-32 + + s2 s4_\markup { \italic { rit. } } s | % 33 + s4_\markup { \italic { A tempo } } s2. | % 34 + + s1*6 | % 35-40 + + s2 s4_\markup { \italic { rit. } } s | % 41 + + s1*3 | % 42-44 +} + + +\score +{ + << + \Global % The "roadmap" that everything else depends on + + \context Staff + << + \context Staff << \new Voice = "lead" \LeadVox \new Voice \Riffs >> + \new Lyrics \lyricsto "lead" \LeadVoxText + \new Lyrics \lyricsto "lead" \LeadVoxTextB + >> + + \new ChoirStaff + << + \new ChordNames \Chords + \new RhythmicStaff << \Rhythm \Dynamics >> + >> + + \set Score.skipBars = ##t + \set Score.melismaBusyProperties = #'() + >> +} + + +\paper +{ + #(define fonts (make-pango-font-tree + "Times New Roman" + "DomCasual BT" + "Luxi Mono" + (/ staffSize 20))) + #(define fonts (make-pango-font-tree + "Times New Roman" + "DomCasual BT" + "Luxi Mono" + (/ staffSize 20))) + +% Spread staves vertically across last page (default: t) +% ragged-last-bottom = ##f +% Don't spread staves vertically across the page (default: f) +% ragged-bottom = ##t +% Allow partial line for last stave (default: f) + ragged-last = ##t + +% To find out what's eating the space at the top... +% annotate-spacing = ##t +%let's try this: [It works! Huzzah!] + obsolete-page-top-space = 0 top-system-spacing #'basic-distance = #(/ obsolete-page-top-space staff-space) +} diff --git a/away-in-a-manger.ly b/away-in-a-manger.ly new file mode 100644 index 0000000..5f7051f --- /dev/null +++ b/away-in-a-manger.ly @@ -0,0 +1,328 @@ +\version "2.16.0" +\include "pop-chords.ly" +\include "english.ly" + +% Good sizes are 16, 18, & 20 +staffSize = #20 +#(set-default-paper-size "letter") +#(set-global-staff-size staffSize) +#(ly:set-option (quote no-point-and-click)) + +%{ Some useful characters: ‘ ’ “ ” – — † ‡ • … %} + +\header +{ +%Let's bump up the title size and switch to the chord font. :-) + + title = \markup { \override #'(font-family . sans) \fontsize #3.5 "Away In A Manger" } + composer = \markup { \override #'(font-family . sans) \fontsize #1.3 "James R. Murray" } + arranger = \markup { \override #'(font-family . sans) \fontsize #1.3 "arr. Craig Harris" } + tagline = $(string-append "Engraved by JLH and Lilypond " (lilypond-version)) +} + + +% +% Song's structure +% +Global = +{ + \key f \major + \override Staff.TimeSignature #'style = #'() + \time 3/4 + + % Intro + + \partial 4*1 s4 \bar "||" % 0 + s2.*5 \bar "||:" % 1-5 + + \repeat volta 2 + { + % Verse + + s2.*15 | % 6-20 + } + \alternative + { + { + s2.*2 | % 21-22 + } + { + s2. | % 23 + } + } + + s2. \bar "||" % 24 + + % Last verse + + s2.*16 \bar "|." % 25-40 +} + + +% +% Lead vocal +% + +LeadVox = \relative c'' +{ +% \set Voice.autoBeaming = ##f +% \set Staff.instrument = #"Lead vox" + \clef G + \override Staff.TimeSignature #'style = #'() + + % Intro + + \partial 4*1 s4 \bar "||" % 0 + s2. | % 1 + s2. | % 2 + s2. | % 3 + s2. | % 4 + s2 c4 \bar "||:" % 5 + + % Verse + + c4. bf8 a4 | % 6 + a4 g f | % 7 + f4 e d | % 8 + c2 c4 | % 9 + c4. d8 c4 | % 10 + c4 g' e | % 11 + d4 c f | % 12 + a2 c4 | % 13 + c4. bf8 a4 | % 14 + a4 ( g ) f | % 15 + f4 e d | % 16 + c2 c4 | % 17 + bf'4. a8 g4 | % 18 + a4 g f | % 19 + g d e | % 20 + + f2. ~ | % 21 + f2 c'4 | % 22 + + f,2. ~ | % 23 + + f2 c'4 \bar "||" % 24 + + % Last verse + + c4. bf8 a4 | % 25 + a4 g f | % 26 + f4 e d | % 27 + c2 c4 | % 28 + c4. d8 c4 | % 29 + c4 g' e | % 30 + d4 c f | % 31 + a2 c4 | % 32 + c4. bf8 a4 | % 33 + a4 g f | % 34 + f4 e d | % 35 + c2 c4 | % 36 + bf'4. a8 g4 | % 37 + a4 g f | % 38 + g d e | % 39 + f2.^\fermata \bar "|." % 40 +} + +LeadVoxText = \lyricmode +{ + A -- way in a man -- ger no crib for a bed, + the lit -- tle Lord Je -- sus lay down his sweet head; + The stars in the sky _ look down where he lay, + the lit -- tle Lord Je -- sus a -- sleep on the hay. _ + + The + + nigh. _ + + Be near me Lord Je -- sus! I ask thee to stay + close by me for -- e -- ver, and love me, I pray. + Bless all the dear chil -- dren in thy ten -- der care, + and fit us for hea -- ven, to live with thee there. +} + +LeadVoxTextB = \lyricmode +{ + _ cat -- tle are low -- ing, the ba -- by a -- wakes, + the lit -- tle Lord Je -- sus, no cry -- ing he makes. + I love thee, Lord Je -- sus! Look down from the sky, + and stay by my side un -- til mor -- ning is +} + + +Riffs = \relative c' +{ + \clef G + + % Intro + + \tiny + \partial 4*1 c4 | % 0 + bf'4. a8 g4 | % 1 + a4 g f | % 2 + g4 d e | % 3 + f2. ~ | % 4 + f2 s4 | % 5 + \normalsize +} + + +% +% Chord names +% + +Chords = \chordmode +{ +%Bah, can't we set this globally? +% \popChords + + % Intro + + \partial 4*1 s4 | % 0 + c2:7 a4:7/cs | % 1 + d4:m g2:9 | % 2 + g2:m7 c4:7 | % 3 + f2. | % 4 + g2.:m7/c | % 5 + + % Verse + + f2. | % 6 + s2. | % 7 + bf2. | % 8 + f2. | % 9 + c2.:sus4 | % 10 + c2.:7 | % 11 + bf4/f f2 | % 12 + g2.:m9/c | % 13 + a2.:m7 | % 14 + d2.:m7 | % 15 + g4:m7 g2:m7/c | % 16 + f2. | % 17 + c2:7 a4:7/cs | % 18 + d4:m g2:9 | % 19 + g2:m7 c4:7 | % 20 + + f2. | % 21 + g2.:m7/c | % 22 + + f2. | % 23 + + g2.:m7/c | % 24 + + % Last verse + + s2.*16 | % 25-40 +} + + +% +% Chord rhythms +% + +% Use a RhythmicStaff on the chords instead of this? +% It almost works, but not quite. Doesn't collapse chords above to single notes... + +Rhythm = \relative c +{ +% \set Voice.autoBeaming = ##f +% \set Staff.instrument = #"Rhythm" + \override Staff.TimeSignature #'style = #'() + \override NoteHead #'style = #'slash + + % Intro + + \partial 4*1 s4 \bar "||" % 0 + c4 c c | % 1 + c4 c c | % 2 + c4 c c | % 3 + c4 c c | % 4 + c4 c c \bar "||:" % 5 + + % Verse + + c4 c c | % 6 + c4 c c | % 7 + c4 c c | % 8 + c4 c c | % 9 + c4 c c | % 10 + c4 c c | % 11 + c4 c c | % 12 + c4 c c | % 13 + c4 c c | % 14 + c4 c c | % 15 + c4 c c | % 16 + c4 c c | % 17 + c4 c c | % 18 + c4 c c | % 19 + c4 c c | % 20 + + c4 c c | % 21 + c4 c c | % 22 + + c4 c c | % 23 + + c2. | % 24 + + % Last verse + +% s2.*16 \bar "|." % 25-40 +} + + +Dynamics = +{ + \override TextScript #'extra-offset = #'( 0.0 . -1.0 ) + + \partial 4*1 s4_\markup { \italic { lite snare, arp. gtr. } } | % 0 + s2.*23 + s4_\markup { \italic { a capella } } s2 | % 24 +} + + +\score +{ + << + \set Score.skipBars = ##t + \set Score.melismaBusyProperties = #'() + +% \new Staff + << + \new ChordNames \Chords +%Capo 4 edition +% \new ChordNames \transpose b g \Chords + \new RhythmicStaff << \Rhythm \Dynamics >> + >> + + \new Staff + << + \Global % The "roadmap" that everything else depends on + \new Voice = "lead" \LeadVox + \new Voice \Riffs + \new Lyrics \lyricsto "lead" \LeadVoxText + \new Lyrics \lyricsto "lead" \LeadVoxTextB + >> + >> +} + + +\paper +{ + #(define fonts (make-pango-font-tree + "Times New Roman" + "DomCasual BT" + "Luxi Mono" + (/ staffSize 20))) + +% Spread staves vertically across last page (default: t) +% ragged-last-bottom = ##f +% Don't spread staves vertically across the page (default: f) +% ragged-bottom = ##t +% Allow partial line for last stave (default: f) + ragged-last = ##t + +% To find out what's eating the space at the top... +% annotate-spacing = ##t +%let's try this: [It works! Huzzah!] + obsolete-page-top-space = 0 top-system-spacing #'basic-distance = #(/ obsolete-page-top-space staff-space) +} diff --git a/be-still-and-know.ly b/be-still-and-know.ly new file mode 100644 index 0000000..e39ada7 --- /dev/null +++ b/be-still-and-know.ly @@ -0,0 +1,472 @@ +\version "2.16.0" +\include "pop-chords.ly" +\include "english.ly" + +% Good sizes are 16, 18, & 20 (23 & 26 are available too) +staffSize = #23 +#(set-default-paper-size "letter") +#(set-global-staff-size staffSize) +#(ly:set-option (quote no-point-and-click)) + +%{ Some useful characters: ‘ ’ “ ” – — † ‡ • … %} + +\header +{ +%Let's bump up the title size and switch to the chord font. :-) + + title = \markup { \override #'(font-family . sans) \fontsize #3.5 "Be Still And Know" } +% composer = \markup { \override #'(font-family . sans) \fontsize #1.3 "???" } + arranger = \markup { \override #'(font-family . sans) \fontsize #1.3 "arr. Ed Smart/Deborah Hammons" } + tagline = $(string-append "Engraved by JLH and Lilypond " (lilypond-version)) +% Let's try a chord dictionary +% subtitle = \markup { \center-align { "F#m" \fret-diagram-terse #"x;x;4;2;2;2;" } " " \center-align { "F#m/F" \fret-diagram-terse #"x;x;3;2;2;2;" } " " \center-align { "F#m/E" \fret-diagram-terse #"x;x;2;2;2;2;" } " " \center-align { "F#m/Eb" \fret-diagram-terse #"x;x;1;2;2;2;" } " " \center-align { "Em7" \fret-diagram-terse #"o;2;2;o;3;o;" } " " \center-align { "A13" \fret-diagram-terse #"x;o;2;o;2;2;" } } +} + +% Useful tweak abbreviations (hn = harmony note) + +hn = #(define-music-function (parser location arg) (ly:music?) +;; Harmony Note: Set the tweaks property of the passed in note to use a smaller font + + (set! (ly:music-property arg 'tweaks) + (acons 'font-size -3.0 (ly:music-property arg 'tweaks))) arg) + + +% +% Song's structure +% +Global = +{ + \key b \major + \override Staff.TimeSignature #'style = #'() + \time 3/4 + + % Intro + +% \once \override TextScript #'padding = #2.0 +% s1*0^\markup { \large \bold { Not too fast } } +% Capo 4 version +% s1*0^\markup { \hspace #0.0 \raise #2.0 \bigger \bold { "Moderate pop (*** CAPO 4 ***)" } } + + % Intro + + s2.*8 \bar "||:" % 1-8 + + \repeat volta 2 + { + % Verse + + \mark \markup { \override #'(font-family . sans) { \box { A } } } + s2.*11 | % 9-19 + } + \alternative + { + { + s2.*4 | % 20-23 + } + { + s2.*2 | % 24-25 + } + } + + s2.*2 \bar "||" % 26-27 + + % Modulation + + \key c \major + \mark \markup { \override #'(font-family . sans) { \box { B } } } + s2.*4 \bar "||" % 28-31 + + % Verse + + \mark \markup { \override #'(font-family . sans) { \box { C } } } + s2.*16 \bar "||" % 32-47 + + % Outro + + s2.*5 \bar "|." % 48-52 +} + + +% +% Lead vocal +% +LeadVox = \relative c' +{ +% \set Staff.instrument = #"Lead vox" + \clef G + \override Staff.TimeSignature #'style = #'() +%Hm. Needed anymore? +% \override Score.SpacingSpanner #'average-spacing-wishes = ##f + + % Intro + + s2.*7 | % 1-7 + r2 4 | % 8 + + % Verse + + 4 ( ) | % 9 + 2 4 | % 10 + 4 ( ) | % 11 + 2 4 | % 12 + 4 ( ) | % 13 + 2 4 | % 14 + << { \voiceOne gs4 ( as ) } \new Voice = "v" { \voiceTwo e2 } >> \oneVoice 4 | % 15 + 2 4 | % 16 + << { \voiceOne b ( fs ) } \context Voice = "v" { \voiceTwo ds2 } >> \oneVoice 4 | % 17 + << { \voiceOne fs ( ds ) } \context Voice = "v" { \voiceTwo ds2 } >> \oneVoice 4 | % 18 + << { \voiceOne ds ( b ) } \context Voice = "v" { \voiceTwo b2 } >> \oneVoice 4 | % 19 + +\voiceTwo + b2. ~ | % 20 + b2. | % 21 +\oneVoice + s2. | % 22 + r2 fs'4 | % 23 + +\voiceTwo + b,2. ~ | % 24 + b2. | % 25 +\oneVoice + + s2. | % 26 + s2. | % 27 + + % Modulation + + s2. | % 28 + s2. | % 29 + s2. | % 30 + r2 4 | % 31 + + % Verse + + 4 ( ) | % 32 + 2 4 | % 33 + ( ) | % 34 + 2 4 | % 35 + ( ) | % 36 + 2 4 | % 37 + << { \voiceOne a4 ( b ) } \context Voice = "v" { \voiceTwo f2 } >> \oneVoice 4 | % 38 + 2 4 | % 39 + << { \voiceOne c4 ( g ) } \context Voice = "v" { \voiceTwo e2 } >> \oneVoice 4 | % 40 + << { \voiceOne g4 ( e ) } \context Voice = "v" { \voiceTwo e2 } >> \oneVoice 4 | % 41 + << { \voiceOne e4 ( c ) } \context Voice = "v" { \voiceTwo c2 } >> \oneVoice 4 | % 42 + c2. ~ | % 43 + c2 4 | % 44 + << { \voiceOne c4 ( g ) } \context Voice = "v" { \voiceTwo c,2 } >> \oneVoice 4 | % 45 + << { \voiceOne g4 ( e ) } \context Voice = "v" { \voiceTwo c2 } >> \oneVoice 4 | % 46 + << { \voiceOne e4 ( c ) } \context Voice = "v" { \voiceTwo c2 } >> \oneVoice 4 | % 47 + + % Outro + +\voiceTwo + c2. ~ | % 48 + c2. | % 49 +\oneVoice + s2.*3 | % 50-52 +} + +LeadVoxText = \lyricmode +{ + Be still _ and know that I _ am God, + Be still _ and know that I _ am God, + Be still _ and know _ that I _ am God. __ _ + + I + + thee. __ _ + + Be still _ and know that I _ am Lord, + Be still _ and know that I _ am Lord, + Be still _ and know _ that I _ am Lord, __ _ + Be still _ and know _ that I _ am Lord. +} + +LeadVoxTextB = \lyricmode +{ + _ am _ the Lord that heal -- _ eth thee, + I am _ the Lord that heal -- _ eth thee, + I am _ the Lord _ that heal -- _ eth +} + + +Riffs = \relative c'' +{ + \clef G +%Hm. Needed anymore? +% \override Score.SpacingSpanner #'average-spacing-wishes = ##f + + % Intro + + \tiny + b4. fs8 b fs' | % 1 + fs4 e2 | % 2 + ds4. b8 cs ds | % 3 + b2. | % 4 + b4. fs8 b fs' | % 5 + fs4 e2 | % 6 + ds4. b8 cs ds | % 7 + b2. | % 8 + + s2.*11 | % 9-19 + +\voiceOne + b4. fs8 b fs' | % 20 + fs4 e2 | % 21 +\oneVoice + ds4. b8 cs ds | % 22 + b2. | % 23 + +\voiceOne + b4. fs8 b fs' | % 24 + fs4 e2 | % 25 +\oneVoice + ds4. b8 cs ds | % 26 + b2. | % 27 + + c4. g8 c g' | % 28 + g4 f2 | % 29 + e4. c8 d e | % 30 + c2. | % 31 + + s2.*16 | % 32-47 + +\voiceOne + c4. g8 c g' | % 48 + g4 f2 | % 49 +\oneVoice + e4. c8 d e | % 50 + c2. ~ | % 51 + c2.-\fermata | % 52 + \normalsize +} + + +% +% Chord names +% +Chords = \chordmode +{ + % Intro + + b2.:sus2 | % 1 + e2.:5.9 | % 2 + b2.:sus2 | % 3 + e2.:5.9 | % 4 + b2.:sus2 | % 5 + e2.:5.9 | % 6 + gs2:m7 fs4 | % 7 + e2.:5.9 | % 8 + + % Verse + + b2 e4/b | % 9 + b2. | % 10 + fs2. | % 11 + b2. | % 12 + b4 cs:m7 b/ds | % 13 + e2. | % 14 + cs2. | % 15 + fs2 e4/fs | % 16 + b2 e4/b | % 17 + b2 e4 | % 18 + b2/fs fs4 | % 19 + + b2.:sus2 | % 20 + e2.:5.9 | % 21 + gs2:m7 fs4 | % 22 + e2.:5.9 | % 23 + + b2.:sus2 | % 24 + e2.:5.9 | % 25 + + b2.:sus2 | % 26 + e2.:5.9 | % 27 + + % Modulation + + c2.:sus2 | % 28 + f2.:5.9 | % 29 + a2:m7 g4 | % 30 + f2.:5.9 | % 31 + + % Verse + + c2 f4/c | % 32 + c2. | % 33 + g2./c | % 34 + c2. | % 35 + c4 d:m7 c/e | % 36 + f2. | % 37 + d2./fs | % 38 + g2 f4:sus2 | % 39 + c2/e f4 | % 40 + c2/g f4/g | % 41 + c2/g g4 | % 42 + a2.:m7 | % 43 + f2. | % 44 + c2/g f4/g | % 45 + c2/g f4 | % 46 + c2/g g4 | % 47 + + % Outro + + c2.:sus2 | % 48 + f2.:5.9 | % 49 + a2:m7 g4 | % 50 + f2.:5.9 | % 51 + c2.:sus2 | % 52 +} + + +% +% Chord rhythms +% +% Use a RhythmicStaff on the chords instead of this? +% It almost works, but not quite. Doesn't collapse chords above to single notes... +% +Rhythm = \relative c +{ +%% \set Voice.autoBeaming = ##f +%% \set Staff.instrument = #"Rhythm" + \override Staff.TimeSignature #'style = #'() + \override NoteHead #'style = #'slash + + % Intro + + c2. | % 1 + c2. | % 2 + c2. | % 3 + c2. | % 4 + c2. | % 5 + c2. | % 6 + c2 c4 | % 7 + c4 c c | % 8 + + % Verse + + c4 c c | % 9 + c4 c c | % 10 + c4 c c | % 11 + c4 c c | % 12 + c4 c c | % 13 + c4 c c | % 14 + c4 c c | % 15 + c4 c c | % 16 + c4 c c | % 17 + c4 c c | % 18 + c4 c c | % 19 + + c4 c c | % 20 + c4 c c | % 21 + c4 c c | % 22 + c4 c c | % 23 + + c4 c c | % 24 + c4 c c | % 25 + + c4 c c | % 26 + c4 c c | % 27 + + % Modulation + + c4 c c | % 28 + c4 c c | % 29 + c4 c c | % 30 + c4 c c | % 31 + + % Verse + + c4 c c | % 32 + c4 c c | % 33 + c4 c c | % 34 + c4 c c | % 35 + c4 c c | % 36 + c4 c c | % 37 + c4 c c | % 38 + c4 c c | % 39 + c4 c c | % 40 + c4 c c | % 41 + c4 c c | % 42 + c4 c c | % 43 + c4 c c | % 44 + c2. ~ | % 45 + c2 c4 | % 46 + c2 c4 | % 47 + + % Outro + + c4 c c | % 48 + c4 c c | % 49 + c4 c c | % 50 + c4 c c | % 51 + c2.-\fermata | % 52 +} + + +Dynamics = +{ + s4_\mp s2 | % 1 + s2.*7 | % 2-8 + s4_\markup { \italic { (1st X piano, Ac gtr) } } s2 | % 9 + s2.*10 | % 10-19 + s4_\markup { \italic { (Add bass, drums) } } s2 | % 20 + s2.*6 | % 21-26 + s4 \< s2 | % 27 + s4_\mf s2 | % 28 + s2.*15 | % 29-43 + s4 \> s s_\mp | % 44 + s2.*2 | % 45-46 + s4_\markup { \italic { rit. } } s2 | % 47 + s2.*3 | % 48-50 + s4_\markup { \italic { rit. } } s2 | % 51 +} + + +\score +{ + << + \set Score.skipBars = ##t + \set Score.melismaBusyProperties = #'() + +% \new Staff + << + \new ChordNames \Chords +%Capo 4 edition +% \new ChordNames \transpose b g \Chords + \new RhythmicStaff << \Rhythm \Dynamics >> + >> + + \new Staff + << + \Global % The "roadmap" that everything else depends on + \new Voice = "lead" \LeadVox + \new Voice \Riffs + \new Lyrics \lyricsto "lead" \LeadVoxText + \new Lyrics \lyricsto "lead" \LeadVoxTextB + >> + >> +} + + +\paper +{ + #(define fonts (make-pango-font-tree + "Times New Roman" + "DomCasual BT" + "Luxi Mono" + (/ staffSize 20))) + +% Spread staves vertically across last page (default: t) + ragged-last-bottom = ##f +% Don't spread staves vertically across the page (default: f) +% ragged-bottom = ##t +% Allow partial line for last stave (default: f) + ragged-last = ##t + +% To find out what's eating the space at the top... +% annotate-spacing = ##t +%let's try this: [It works! Huzzah!] +% obsolete-page-top-space = 0 top-system-spacing #'basic-distance = #(/ obsolete-page-top-space staff-space) +} diff --git a/be-thou-my-vision.ly b/be-thou-my-vision.ly new file mode 100644 index 0000000..dcf768c --- /dev/null +++ b/be-thou-my-vision.ly @@ -0,0 +1,440 @@ +\version "2.16.0" +\include "pop-chords.ly" +\include "english.ly" + +% Good sizes are 16, 18, & 20 +staffSize = #20 +#(set-default-paper-size "letter") +#(set-global-staff-size staffSize) +#(ly:set-option (quote no-point-and-click)) + +%{ Some useful characters: ‘ ’ “ ” – — † ‡ • … %} + +\header +{ +%Let's bump up the title size and switch to the chord font. :-) + + title = \markup { \override #'(font-family . sans) \fontsize #3.5 "Be Thou My Vision" } + composer = \markup { \override #'(font-family . sans) \fontsize #1.3 "Traditional" } + arranger = \markup { \override #'(font-family . sans) \fontsize #1.3 "arr. Ed Smart" } + tagline = $(string-append "Engraved by JLH and Lilypond " (lilypond-version)) +} + + +% +% Lead vocal +% + +LeadVox = \relative c' +{ + \set Voice.autoBeaming = ##f +% \set Staff.instrument = #"Lead vox" + \clef G + \key d \major + \override Staff.TimeSignature #'style = #'() + \time 3/4 +\override Score.SpacingSpanner #'average-spacing-wishes = ##f + + \set Score.markFormatter = #format-mark-box-letters + + % Intro + + r2.^\markup { \italic { Gentle waltz } } | % 1 + r2. | % 2 + r2. | % 3 + r2. | % 4 + + % Verses 1-2 + + \repeat volta 3 + { +\once \override Score.RehearsalMark #'self-alignment-X = #left +\mark \markup { \override #'(font-family . sans) { \box { A } } \small \italic { Piano 1st time } } + + d4 d e8 ( [ d ] ) | % 5 + b4 a b | % 6 + d4 d e | % 7 + fs2. | % 8 + e4 e e | % 9 + e4 fs a | % 10 + b4 a fs | % 11 + a2. | % 12 + +\mark \markup { \override #'(font-family . sans) { \box { A9 } } } + + b4 b8 ( [ cs ] ) d ( [ cs ] ) | % 13 + b4 ( a ) fs | % 14 + a d, cs | % 15 + b2 ( a4 ) | % 16 + d4 fs a | % 17 + b8 ( [ a ] ) fs4 d8 ( [ fs ] ) | % 18 + e4 d d | % 19 + } + \alternative + { + { + d2.^\markup { \italic { Band in 1st time } } ~ | % 20 + d2. | % 21 + r2. | % 22 + r2. | % 23 + } + { + d2. ~ | % 24 + } + } + + d2. ~ | % 25 + d2. | % 26 + r2. \bar "||" % 27 + + % Verse 3 + +\once \override Score.RehearsalMark #'padding = #2.0 +\mark \markup { \override #'(font-family . sans) { \box { B } } } + + \key e \major + e4 e fs8 ( [ e ] ) | % 28 + cs4 b cs | % 29 + e4 e fs | % 30 + gs2. | % 31 + fs4 fs fs | % 32 + fs4 gs b | % 33 + cs4 b gs | % 34 + b2. \bar "||" % 35 + +\mark \markup { \override #'(font-family . sans) { \box { B9 } } } + + cs4 cs8 ([ ds ] ) e ( [ ds ] ) | % 36 + cs4 b gs | % 37 + b4 e, ds | % 38 + cs2 ( b4 ) | % 39 + e4 gs b | % 40 + cs8 ( [ b ] ) gs4 e8 ( [ gs ] ) | % 41 + fs4 e e | % 42 + e2. ~ | % 43 + + e2 fs8 ( [ gs ] ) | % 44 + fs4 e e | % 45 + e2. ~ | % 46 + e2 fs8 ( [ gs ] ) | % 47 + fs4 e e | % 48 + + % Ending + + e2. ~ | % 49 + e2. | % 50 + r2. | % 51 + r2.^\fermata \bar "|." % 52 +} + +LeadVoxText = \lyricmode +{ + Be thou my _ vi -- sion, O Lord of my heart + Naught be all else to me, save that thou art + Thou my _ best _ thought _ by day or by night _ + Wa -- king or slee -- _ ping, thy _ pres -- ence my light. _ + + art. __ _ _ + + High King of _ Hea -- ven, my vic -- to -- ry won + May I reach hea -- ven’s joys, O bright heaven’s sun! + Heart of _ my _ own heart, what -- e -- ver be -- fall _ + Still be my vi -- _ sion, O _ ru -- ler of all. _ + + O _ ru -- ler of all. _ + O _ ru -- ler of all. _ +} + +LeadVoxTextB = \lyricmode +{ + Be thou my _ wis -- dom, and thou my true word + I e -- ver with thee and thou with me Lord + Thou my _ great _ fa -- _ ther, I thy true son _ + Thou in me dwel -- _ ling, and _ I with thee one. _ +} + +LeadVoxTextC = \lyricmode +{ + Ri -- ches I _ heed not, nor man’s em -- pty praise + Thou mine in -- her -- i -- tance, now and al -- ways + Thou and _ thou _ on -- _ ly, first in my heart _ + High King of Hea -- _ ven, my _ trea -- sure thou +} + + +% +% Riff/rhythm figures +% + +StaffRiffs = \relative c' +{ + \set Voice.autoBeaming = ##f +% \set Staff.instrument = #"Rhythm" + \key d \major + \override Staff.TimeSignature #'style = #'() + \time 3/4 + + % Intro + + d'4 d e8 [ d ] | % 1 + b4 a2 | % 2 + d4 d e8 [ fs ] | % 3 + d2. | % 4 +\stopStaff + + s2.*15 | % 5 - 19 + +\startStaff + d4 d e8 [ d ] | % 20 + b4 a2 | % 21 + d4 d e8 [ fs ] | % 22 + d2. | % 23 + + d4 d e8 [ d ] | % 24 + b4 a2 | % 25 + d4 d e8 [ fs ] | % 26 + fs2. | % 27 +\stopStaff + + s2.*21 | % 28 - 48 + +\startStaff + e4 e fs8 [ e ] | % 49 + cs4 b2 | % 50 + e4 e fs | % 51 + e2.-\fermata % 52 +\stopStaff + +} + + +% +% Chord names +% + +Chords = \chordmode +{ +%Bah, can't we set this globally? +% \popChords + + % Intro + + d2. | % 1 + e2.:m11 | % 2 + d2. | % 3 + e2.:m11 | % 4 + + % Verses 1-2 + + \repeat volta 3 + { + d2. | % 5 + e2.:m11 | % 6 + g2.:sus2 | % 7 + d2. | % 8 + a2. | % 9 + a4:sus4 a2 | % 10 + g2.:sus2 | % 11 + a4:sus4 a2 | % 12 + b2.:m | % 13 + a4:sus4 a2 | % 14 + d2.:sus2/fs | % 15 + g2:sus2 a4 | % 16 + b2.:m | % 17 + g2.:sus2 | % 18 + e2:m7 g4:sus2 | % 19 + } + \alternative + { + { + d2. | % 20 + e2.:m11 | % 21 + d2. | % 22 + e2.:m11 | % 23 + } + { + d2. | % 24 + } + } + + e2.:m7 | % 25 + d2./fs | % 26 + b2:sus4 b4 \bar "||" % 27 + + % Verse 3 + + e2. | % 28 + fs2.:m7 | % 29 + a2.:sus2 | % 30 + e2. | % 31 + b2. | % 32 + b4:sus4 b2 | % 33 + a2.:sus2 | % 34 + b4:sus4 b2 \bar "||" % 35 + + cs2.:m | % 36 + b4:sus4 b2 | % 37 + e2./gs | % 38 + a2:sus2 b4 | % 39 + cs2.:m | % 40 + a2.:sus2 | % 41 + fs2:m a4:sus2 | % 42 + cs2.:m | % 43 + b2.:11^9.7 | % 44 + a2.:sus2 | % 45 + cs2.:m | % 46 + b2.:11^9.7 | % 47 + fs2.:m | % 48 + + % Ending + + e2. | % 49 + fs2.:m11 | % 50 + a2.:sus2 | % 51 + e2. \bar "|." % 52 +} + + +% +% Chord rhythms +% + +% Use a RhythmicStaff on the chords instead of this? +% It almost works, but not quite. Doesn't collapse chords above to single notes... + +StaffC = \relative c +{ + \set Voice.autoBeaming = ##f +% \set Staff.instrument = #"Rhythm" + \override Staff.TimeSignature #'style = #'() + \time 3/4 + \override NoteHead #'style = #'slash + + % Intro + + c4 c c | % 1 + c4 c c | % 2 + c4 c c | % 3 + c4 c c | % 4 + + % Verses 1-2 + + \repeat volta 3 + { + c4 c c | % 5 + c4 c c | % 6 + c4 c c | % 7 + c4 c c | % 8 + c4 c c | % 9 + c4 c c | % 10 + c4 c c | % 11 + c4 c c | % 12 + c4 c c | % 13 + c4 c c | % 14 + c4 c c | % 15 + c4 c c | % 16 + c4 c c | % 17 + c4 c c | % 18 + c4 c c | % 19 + } + \alternative + { + { + c4 c c | % 20 + c4 c c | % 21 + c4 c c | % 22 + c4 c c | % 23 + } + { + c4 c c | % 24 + } + } + + c4 c c | % 25 + c4 c c | % 26 + c4 \< c c \! \bar "||" % 27 + + % Verse 3 + + c4 c c | % 28 + c4 c c | % 29 + c4 c c | % 30 + c4 c c | % 31 + c4 c c | % 32 + c4 c c | % 33 + c4 c c | % 34 + c4 c c \bar "||" % 35 + + c4 c c | % 36 + c4 c c | % 37 + c4 c c | % 38 + c4 c c | % 39 + c4 c c | % 40 + c4 c c | % 41 + c4 c c | % 42 + c4 c c | % 43 + c4 c c | % 44 + c4 c c | % 45 + c4 c c | % 46 + c4 c c | % 47 + c2.-\markup { \italic { rit. } } | % 48 + + % Ending + + c4-\markup { \italic { A tempo } } c c | % 49 + c4 c c | % 50 + c4 c-\markup { \italic { rit. } } c | % 51 + c2.-\fermata \bar "|." % 52 +} + + +\score +{ + << +% \new ChoirStaff = "Vox" + << + \new Staff = leadStaff { \new Voice = "lead" \LeadVox } + \new Lyrics \lyricsto "lead" \LeadVoxText + \new Lyrics \lyricsto "lead" \LeadVoxTextB + \new Lyrics \lyricsto "lead" \LeadVoxTextC + >> + + \new Staff \with + { + \remove "Time_signature_engraver" + \remove "Clef_engraver" +%Hmm, removing this screws up the formatting... +% \remove "Key_engraver" + fontSize = #-3.0 + \override StaffSymbol #'staff-space = #(magstep -3.0) +% firstClef = ##f + } + \StaffRiffs + + \new ChoirStaff = "Rhythm" + << + \new ChordNames = "chords" \Chords + \new RhythmicStaff = "chordRhythm" \StaffC + >> + + \set Score.skipBars = ##t + \set Score.melismaBusyProperties = #'() + >> + + \layout + { + \context { \Staff \RemoveEmptyStaves } +% ragged-last-bottom = ##t + ragged-last = ##t + } +} + + +\paper +{ + #(define fonts (make-pango-font-tree + "Times New Roman" + "DomCasual BT" + "Luxi Mono" + (/ staffSize 20))) +} diff --git a/better-is-one-day.ly b/better-is-one-day.ly new file mode 100644 index 0000000..39022f4 --- /dev/null +++ b/better-is-one-day.ly @@ -0,0 +1,611 @@ +\version "2.16.0" +\include "pop-chords.ly" +\include "english.ly" + +% Good sizes are 16, 18, & 20 +staffSize = #16 +#(set-default-paper-size "letter") +#(set-global-staff-size staffSize) +#(ly:set-option (quote no-point-and-click)) + +%{ Some useful characters: ‘ ’ “ ” – — † ‡ • … %} + +\header +{ +%Let's bump up the title size and switch to the chord font. :-) + + title = \markup { \override #'(font-family . sans) \fontsize #3.5 "Better Is One Day" } + composer = \markup { \override #'(font-family . sans) \fontsize #1.3 "Matt Redman" } + arranger = \markup { \override #'(font-family . sans) \fontsize #1.3 "arr. Ed Smart" } + tagline = $(string-append "Engraved by JLH and Lilypond " (lilypond-version)) +} + +% Useful tweak abbreviations (hn = harmony note) + +hn = #(define-music-function (parser location arg) (ly:music?) +;; Harmony Note: Set the tweaks property of the passed in note to use a smaller font + + (set! (ly:music-property arg 'tweaks) + (acons 'font-size -3.5 (ly:music-property arg 'tweaks))) arg) + + +% +% Song's structure +% +Global = +{ + \key e \major + \override Staff.TimeSignature #'style = #'() + \time 4/4 + + % Intro + + s1*4 | % 1-4 + + \repeat volta 2 + { + % Verse + + \mark \markup { \override #'(font-family . sans) { \box { A } } } + + s1*16 \bar "||" % 5-20 +%bleh +\break + % Chorus + +% \mark \markup { \override #'(font-family . sans) { \box { B } } } + \once \override Score.RehearsalMark #'self-alignment-X = #left + \mark \markup { \override #'(font-family . sans) { \box { B } } \hspace #1.0 \raise #2.0 \musicglyph #"scripts.segno" } + + s1*6 | % 21-26 + s1 | % 27 + + \once \override Score.RehearsalMark #'self-alignment-X = #right + \mark \markup { \italic { to Coda } \musicglyph #"scripts.coda" } + } + \alternative + { + { + s1*3 | % 28-30 + } + { + s1 | % 31 + } + } + + % Bridge + + \mark \markup { \override #'(font-family . sans) { \box { C } } } + + s1*10 \bar "||" % 32-41 + + \mark \markup { \override #'(font-family . sans) { \box { D } } } + + s1^\markup { \italic { Repeat figure thru to D.S. } } | % 42 + s1*10 | % 43-52 + s1 \bar "||" % 53 + + \once \override Score.RehearsalMark #'self-alignment-X = #right + \mark \markup { \hspace #0.0 \raise #1.0 \italic { D.S. al Coda } } + + % Coda + + % blank measure between last measure and coda +% \stopStaff s1 \bar "" \startStaff % That removed the spurious floating bar line from line break + \stopStaff s1 \startStaff % That removed the spurious floating bar line from line break +% \break % Meh + \set Score.currentBarNumber = #54 + + \once \override Score.RehearsalMark #'self-alignment-X = #left + \mark \markup { { \musicglyph #"scripts.coda" } "Coda" } + + s1 | % 54 + + \repeat volta 2 + { + % Chorus + + \mark \markup { \override #'(font-family . sans) { \box { E } } } + + s1*3 | % 55-57 + } + \alternative + { + { + s1 | % 58 + } + { + s1 | % 59 + } + } + + % Outro + + \mark \markup { \override #'(font-family . sans) { \box { F } } } + + s1*7 \bar "|." % 60-66 + +%{ + +% \once \override TextScript #'padding = #2.0 +% s1*0^\markup { \large \bold { Moderately fast pop } } +%%Capo 3 version +%% s1*0^\markup { \large \bold { Moderately fast pop "(*** CAPO 3 ***)" } } +% s1*13 \bar "||:" % 1-13 + +%} +} + + +% +% Lead vocal +% +LeadVox = \relative c' +{ + \clef G + \override Score.SpacingSpanner #'average-spacing-wishes = ##f + + % Intro + + r1 | % 1 + r1 | % 2 + r1 | % 3 + r2 r4 r8 e | % 4 + + % Verse + + e4 ds cs r8 e | % 5 + e4 fs e2 | % 6 + r4 r8 e e4 cs8 cs ~ | % 7 + cs8 b ~ b4 r r8 e8 | % 8 + e4 ds cs4. e8 | % 9 + e4 fs e4. b8 | % 10 + b1 | % 11 + r2 r4 r8 e | % 12 + e4 ds cs r8 e | % 13 + e4 fs e2 | % 14 + r4 r8 e e4 gs8 gs ~ | % 15 + gs8 fs ~ fs4 r r8 e | % 16 + e4 ds cs r8 e | % 17 + e4 fs e4. gs8 | % 18 + gs8 ( fs ) ~ fs2. | % 19 + r2 r4 16 8 | % 20 + + % Chorus + + 8 4 16 8 | % 21 + 8 4 16 8 | % 22 + 8 8. e16 a8 gs | % 23 + gs8 fs ~ fs2 16 8 | % 24 + 8 4 16 8 | % 25 + 8 4 16 8 | % 26 + 8 8. e16 8 | % 27 + + 8 ~ 4 ~ 8. e16 fs8. e16 | % 28 + fs8 gs ~ gs2. | % 29 + r2 r4 r8 e | % 30 + + 8 ~ 2. | % 31 + + % Bridge + + r8 gs gs gs gs gs b4 | % 32 + r8 gs gs gs b cs gs16 ( fs ) ~ fs8 | % 33 + r8 gs gs gs gs gs gs fs | % 34 + fs16 ( e ) ~ e8 ~ e2 r4 | % 35 + r8 gs gs gs gs gs b4 | % 36 + r8 gs gs gs b cs gs16 ( fs ) ~ fs8 | % 37 + r8 gs gs gs gs fs e4 | % 38 + r8 8 4 8 ~ | % 39 + 2. 8 ~ | % 40 + 1 | % 41 + + % Chorus + + s1 | % 42 + s1 | % 43 + s1 | % 44 + r2 r4 gs,16 b b8 | % 45 + << { \voiceOne cs4. b8 ~ b2 ~ } \new Voice = "v2" { \voiceTwo r2 r4 gs16 b b8 } >> | % 46 +% << { \voiceOne b2. } \context Voice = "v2" { \voiceTwo cs4. b8 ~ b4 } >> gs16 b b8 | % 47 +%bleh, unnecessary crap but doesn't work otherwise (lyrics go missing) + << { b2. gs16 b b8 } \context Voice = "v2" { \voiceTwo cs4. b8 ~ b4 s } >> | % 47 + << { \stemDown cs4. b8 ~ \stemNeutral b8. gs16 a8. gs16 } \context Voice = "v2" { \voiceTwo s1 } >> | % 48 + << { gs8 fs ~ fs2 gs16 b b8 } \context Voice = "v2" { \voiceTwo s1 } >> | % 49 +%endbleh + << { \voiceOne cs4. b8 ~ b2 ~ } \context Voice = "v2" { \voiceTwo r2 r4 gs16 b b8 } >> | % 50 + << { \voiceOne b2. } \context Voice = "v2" { \voiceTwo cs4. b8 ~ b4 } >> \oneVoice gs16 b b8 | % 51 + cs4. b8 ~ b8. gs16 a8. gs16 | % 52 + gs8 fs ~ fs2 16 8 | % 53 + + % Coda + + s1 | % blank measure for coda + + 8 ~ 2 16 8 | % 54 + + 8 4 16 8 | % 55 + 8 4 16 8 | % 56 + 8 8. e16 8 | % 57 + + 8 ~ 2 16 8 | % 58 + + 8 ~ 4 ~ 8. e16 fs8. gs16 | % 59 + + % Outro + + fs8 e ~ e2. | % 60 + r2 r8 r16 e fs8. gs16 | % 61 + fs8 e ~ e2. | % 62 + r2 r8 r16 e fs8. gs16 | % 63 + fs8 e ~ e2. | % 64 + r2 r8 r16 e fs8. gs16 | % 65 + fs8 e ~ e2.-\fermata | % 66 +} + +LeadVoxText = \lyricmode +{ + How love -- ly is your dwell -- ing place, + O lord Al -- migh -- _ ty. _ + For my soul longs and e -- ven faints for you. + For here my heart is sat -- is -- fied + with -- in your pres -- _ ence. _ + I sing be -- neath the sha -- dow of your wings. _ _ + + Bet -- ter is one day in your courts, + bet -- ter is one day in your house, + Bet -- ter is one day in your courts + than thou -- sands else -- where, _ + Bet -- ter is one day in your courts, + bet -- ter is one day in your house, + Bet -- ter is one day in your courts + than thou -- sands else -- where, _ _ + than thou -- sands else -- where. _ + + One + else -- where. _ + + My heart and flesh cry out + for you, the liv -- ing God, _ _ + Your spi -- rit's wa -- ter to my soul. _ _ _ + I've tast -- ed and I've seen; + Come once a -- gain to me, _ _ + I will draw near to you, + I will draw near to you, _ + to you. _ + + Bet -- ter is one day, __ _ _ + Bet -- ter is one day _ + than thou -- sands else -- where, _ + Bet -- ter is one day, __ _ _ + Bet -- ter is one day _ + than thou -- sands else -- where, _ + + Bet -- ter is + else -- where, _ + + Bet -- ter is one day in your courts, + bet -- ter is one day in your house, + Bet -- ter is one day in your courts + than thou -- sands else -- where, _ + + Bet -- ter is + else -- where, _ _ + + than thou -- sands else -- where. _ + Than thou -- sands else -- where. _ + Than thou -- sands else -- where. _ + Than thou -- sands else -- where. _ +} + +LeadVoxTextB = \lyricmode +{ + _ thing I ask and I would seek, + to see your beau -- _ ty, _ + to find you in the place your glo -- ry dwells. + One thing I sak and I would seek, + to see your beau -- _ ty, _ + to find you in the place your glo -- ry dwells. _ _ +} + +LeadVoxEcho = \lyricmode +{ + Bet -- ter is one day _ + Bet -- ter is one day +} + + +% +% Riffs +% +Riffs = \relative c'' +{ + % Intro + + s1*41 | % 1-41 + + \tiny + e8 b ds b cs b ds b | % 42 + e8 b ds b cs b ds b | % 43 + e8 b ds b cs b ds b | % 44 +} + + +% +% Chord names +% +Chords = \chordmode +{ +%Bah, can't we set this globally? +% \popChords + + % Intro + + e1:sus2 | % 1 + s1 | % 2 + e1:sus2 | % 3 + s1 | % 4 + + % Verse + + e1:sus2 | % 5 + s1 | % 6 + a1:sus2 | % 7 + b1:sus4 | % 8 + e1:sus2 | % 9 + s1 | % 10 + b1:sus4 | % 11 + b1 | % 12 + cs1:m7 | % 13 + s1 | % 14 + a1:sus2 | % 15 + b1:sus4 | % 16 + cs1:m7 | % 17 + a1:sus2 | % 18 + b1:sus4 | % 19 + b1 | % 20 + + % Chorus + + a1:sus2 | % 21 + b2:sus4 b | % 22 + a2.:sus2 a4/cs | % 23 + b2:sus4 b4 e/gs | % 24 + a1:sus2 | % 25 + b2:sus4 b | % 26 + a2.:sus2 a4/cs | % 27 + + b2:sus4 b | % 28 + e1:sus2 | % 29 + s1 | % 30 + + b2:sus4 b | % 31 + + % Bridge + + cs2.:m7 b4 | % 32 + a2.:sus2 b4:sus4 | % 33 + cs2.:m7 b4 | % 34 + a2.:sus2 b4:sus4 | % 35 + cs2.:m7 b4 | % 36 + a2.:sus2 b4:sus4 | % 37 + e1/gs | % 38 + fs1:m7 | % 39 + b1:sus4 | % 40 + b1:sus4 | % 41 + + a1:sus2 | % 42 + b1:sus4 | % 43 + a1:sus2 | % 44 + b1:sus4 | % 45 + a1:sus2 | % 46 + b1:sus4 | % 47 + a2.:sus2 a4/cs | % 48 + b1:sus4 | % 49 + a1:sus2 | % 50 + b2.:sus4 e4/gs | % 51 + a1:sus2 | % 52 + b2.:sus4 e4/gs | % 53 + + % Coda + + % blank measure between last measure and coda + s1 + + b2:sus4 b4 e/gs | % 54 + + a1:sus2 | % 55 + b2:sus4 b | % 56 + a2.:sus2 a4/cs | % 57 + + b2:sus4 b4 e/gs | % 58 + + b2:sus4 b | % 59 + + % Outro + + e1:sus2 | % 60 + a1:sus2 | % 61 + e1:sus2 | % 62 + a1:sus2 | % 63 + e1:sus2 | % 64 + a1:sus2 | % 65 + e1:sus2 | % 66 +} + + +% +% Chord rhythms +% + +% Use a RhythmicStaff on the chords instead of this? +% It almost works, but not quite. Doesn't collapse chords above to single notes... + +Rhythm = +{ + \override Staff.TimeSignature #'style = #'() + \override NoteHead #'style = #'slash + + % Intro + + c1 ~ | % 1 + c1 | % 2 + c1 ~ | % 3 + c1 | % 4 + + % Verse + + c1 ~ | % 5 + c1 | % 6 + c1 | % 7 + c1 | % 8 + c1 ~ | % 9 + c1 | % 10 + c1 | % 11 + c1 | % 12 + c1 ~ | % 13 + c1 | % 14 + c1 | % 15 + c1 | % 16 + c1 | % 17 + c1 | % 18 + c1 | % 19 + c1 | % 20 + + % Chorus + + c1 | % 21 + c2 c | % 22 + c2. c4 | % 23 + c2 c4 c | % 24 + c1 | % 25 + c2 c | % 26 + c2. c4 | % 27 + + c2 c | % 28 + c1 ~ | % 29 + c1 | % 30 + + c2 c | % 31 + + % Bridge + + c2.-> c4-> | % 32 + c2. c4-> | % 33 + c2. c4-> | % 34 + c2. c4-> | % 35 + c2. c4-> | % 36 + c2.-> c4-> | % 37 + c1-> | % 38 + c1-> | % 39 + c1-> | % 40 + c1-> | % 41 + + c1 | % 42 + c1 | % 43 + c1 | % 44 + c1 | % 45 + c1 | % 46 + c1 | % 47 + c2. c4 | % 48 + c1 | % 49 + c1 | % 50 + c2. c4 | % 51 + c1 | % 52 + c4 c c c-> | % 53 + + % Coda + + % blank measure between last measure and coda +%hm. Shouldn't need /startStaff /stopStaff... !!! FIX !!! + \stopStaff s1 \startStaff + + c2 c4 c-> | % 54 + + c1-> | % 55 + c2 c | % 56 + c2. c4 | % 57 + + c2 c4 c-> | % 58 + + c2 c | % 59 + + % Outro + + c1 | % 60 + c1 | % 61 + c1 | % 62 + c1 | % 63 + c1 | % 64 + c1 | % 65 + c1-\fermata | % 66 +} + + +Dynamics = +{ +%Hmm, this is throwin off the layout... + s4_\mf s2. | % 1 + s1*18 | % 2-19 + s4 s \< s2 | % 20 + s4_\f s2. | % 21 + s1*9 | % 22-30 + s2 s4 \< s \! | % 31 + s1*9 | % 32-40 + s2 s4 \> s | % 41 + s4_\mp s2. | % 42 + s1*3 | % 43-45 + s4_\mf s2. | % 46 + s1*6 | % 47-52 + s2 s4 \< s \! | % 53 +} + + +\score +{ + << + \Global % The "roadmap" that everything else depends on + + \context Staff + << + \new Voice = "lead" \LeadVox + \new Voice \Riffs + \new Lyrics \lyricsto "lead" \LeadVoxText + \new Lyrics \lyricsto "lead" \LeadVoxTextB + \new Lyrics \lyricsto "v2" \LeadVoxEcho + >> + + \new ChoirStaff + << + \new ChordNames \Chords +%Capo 3 edition +% \new ChordNames \transpose f d \Chords + \new RhythmicStaff << \Rhythm \Dynamics >> + >> + + \set Score.skipBars = ##t + \set Score.melismaBusyProperties = #'() + >> +} + + +\paper +{ + #(define fonts (make-pango-font-tree + "Times New Roman" + "DomCasual BT" + "Luxi Mono" + (/ staffSize 20))) + +% Don't spread staves vertically across last page (default: t) + ragged-last-bottom = ##f +% Don't spread staves vertically across the page (default: f) +% ragged-bottom = ##t +% Allow partial line for last stave (default: f) + ragged-last = ##t + +% To find out what's eating the space at the top... +% annotate-spacing = ##t +%let's try this: [It works! Huzzah!] + obsolete-page-top-space = 0 top-system-spacing #'basic-distance = #(/ obsolete-page-top-space staff-space) +} diff --git a/blessed-assurance.ly b/blessed-assurance.ly new file mode 100755 index 0000000..0054755 --- /dev/null +++ b/blessed-assurance.ly @@ -0,0 +1,646 @@ +\version "2.16.0" +\include "pop-chords.ly" +\include "english.ly" + +% Good sizes are 16, 18, & 20 +staffSize = #16 +#(set-default-paper-size "letter") +#(set-global-staff-size staffSize) +#(ly:set-option (quote no-point-and-click)) + +%{ Some useful characters: ‘ ’ “ ” – — † ‡ • … %} + +\header +{ +%Let's bump up the title size and switch to the chord font. :-) + + title = \markup { \override #'(font-family . sans) \fontsize #3.5 "Blessed Assurance, Jesus Is Mine" } + composer = \markup { \override #'(font-family . sans) \fontsize #1.3 "Fanny J. Crosby/Phoebe P. Knapp" } + arranger = \markup { \override #'(font-family . sans) \fontsize #1.3 "arr. Ed Smart" } + tagline = $(string-append "Engraved by JLH and Lilypond " (lilypond-version)) +} + +% Useful tweak abbreviations (hn = harmony note) + +hn = #(define-music-function (parser location arg) (ly:music?) +;; Harmony Note: Set the tweaks property of the passed in note to use a smaller font + + (set! (ly:music-property arg 'tweaks) + (acons 'font-size -3.5 (ly:music-property arg 'tweaks))) arg) + + +% +% Lead vocal +% + +LeadVox = \relative c' +{ +% \set Voice.autoBeaming = ##f +% \set Staff.instrument = #"Lead vox" + \clef G + \key c \major + \override Staff.TimeSignature #'style = #'() + \time 4/4 +\override Score.SpacingSpanner #'average-spacing-wishes = ##f + + % Intro + + \repeat volta 2 + { + R1^\markup { Half-time soul feel } | % 1 + R1 | % 2 + } + \alternative + { + { + R1 | % 3 + R1 | % 4 + } + { + R1 | % 5 + } + } + + r2 e8 d c4 | % 6 + + \repeat volta 2 + { + % Verse + +\mark \markup { \override #'(font-family . sans) { \box { A } } } + + g'4. g8 ~ g2 | % 7 + r2 f8 g a4 | % 8 + g1 | % 9 + r2 g8 e g4 | % 10 + c4. b8 ~ b2 | % 11 + r4 a a8 g fs g ~ | % 12 + g1 | % 13 + r2 e8 d c4 \bar "||" % 14 + +\mark \markup { \override #'(font-family . sans) { \box { A9 } } } + + g'4. g8 ~ g2 | % 15 + r2 f8 g a4 | % 16 + g1 | % 17 + r2 c,8 d e4 | % 18 + f4. d8 ~ d2 | % 19 + r2 c8 d b4 | % 20 + c1 | % 21 + r2 8 4 \bar "||" % 22 + + % Chorus + +\mark \markup { \override #'(font-family . sans) { \box { B } } } + + 4. 8 ~ 2 | % 23 + r2 8 4 | % 24 + 2. r4 | % 25 + r2 8 4 | % 26 + 4. 8 ~ 2 ~ | % 27 + 2 8 ~ | % 28 + 2. r4 | % 29 + r2 8 4 | % 30 + + 4. 8 ~ 2 | % 31 + r2 8 4 | % 32 + 1 | % 33 + r2 c,8 d e4 | % 34 + f4. d8 ~ d2 | % 35 + r2 c8 d b4 \bar "||" % 36 + + c1 | % 37 + R1 | % 38 + } + \alternative + { + { + R1 | % 39 + r2 e8 d c4 | % 40 + } + { + R1 | % 41 + } + } + + r2 fs8 e d4 \bar "||" % 42 + + \key d \major + + % Verse + +\mark \markup { \override #'(font-family . sans) { \box { C } } } + + a'4. a8 ~ a2 | % 43 + r2 g8 a b4 | % 44 + a1 | % 45 + r2 a8 fs a4 | % 46 + d4. cs8 ~ cs2 | % 47 + r4. b8 b a gs a ~ | % 48 + a1 | % 49 + r2 fs8 e d4 \bar "||" % 50 + +\mark \markup { \override #'(font-family . sans) { \box { C9 } } } + + a'4. a8 ~ a2 | % 51 + r2 g8 a b4 | % 52 + a1 | % 53 + r2 d,8 e fs4 | % 54 + g4. e8 ~ e2 | % 55 + r2 d8 e cs4 | % 56 + d1 | % 57 + r2 8 4 | % 58 + + % Chorus + + \repeat volta 2 + { +\mark \markup { \override #'(font-family . sans) { \box { D } } } + + 4. 8 ~ 2 | % 59 + r2 8 4 | % 60 + 2. r4 | % 61 + r2 8 4 | % 62 + 4. 8 ~ 2 ~ | % 63 + 2 8 ~ | % 64 + 2. r4 | % 65 + + r2 8 4 | % 66 + 4. 8 ~ 2 | % 67 + r2 8 4 | % 68 + 1 | % 69 + r2 d,8 e fs4 | % 70 + } + \alternative + { + { + g4. e8 ~ e2 | % 71 + r2 d8 e cs4 | % 72 + d1 | % 73 + r2 a'8 a a4 | % 74 + } + { + g4. e8 ~ e2 | % 75 + } + } + + r2 d8 e cs4 | % 76 + d1 | % 77 + r2 d8 e fs4 | % 78 + g4. e8 ~ e2 | % 79 + r2 d8 e cs4 | % 80 + + % Outro + + \repeat volta 2 + { +\mark \markup { \override #'(font-family . sans) { \box { E } } } + + d1 | % 81 + R1 | % 82 + R1 | % 83 + R1 | % 84 + } + + r1^\fermata \bar "|." % 85 +} + +LeadVoxText = \lyricmode +{ + Bless -- ed as -- sur -- ance, _ Je -- sus is mine! + O what a fore -- taste _ of glo -- ry di -- vine; _ + Heir of sal -- va -- tion, _ pur -- chase of God, + born of his spi -- rit, _ washed in his blood. + + This is my sto -- ry, _ this is my song, + prais -- ing my sa -- vior, __ _ _ all the day long; _ + This is my sto -- ry, _ this is my song, + prais -- ing my sa -- vior, _ all the day long. + + Per -- fect sub- + + Per -- fect sub -- mis -- sion, _ all is at rest, + I in my sav -- ior _ am hap -- py and blest; _ + Watch -- ing and wai -- ting, _ look -- ing a -- bove, + filled with his good -- ness, _ lost in his love. + + This is my sto -- ry, _ this is my song, + prais -- ing my sa -- vior, __ _ _ all the day long; _ + This is my sto -- ry, _ this is my song, + prais -- ing my sa -- vior, _ all the day long. + + This is my + sav -- ior, _ all the day long; + prais -- ing my sa -- vior, _ all the day long. +} + +LeadVoxTextB = \lyricmode +{ + _ _ _ + mis -- sion, _ per -- fect de -- light, + vi -- sions of rap -- ture _ now burst on my sight; _ + An -- gels de -- scend -- ing _ bring from a -- bove + e -- choes of mer -- cy. _ whis -- pers of love. +} + + +% +% Chord names +% + +Chords = \chordmode +{ +%Bah, can't we set this globally? +% \popChords + + % Intro + + \repeat volta 2 + { + c2..:maj7 bf8:sus4.7 | % 1 + s4. bf8:7 s2 | % 2 + } + \alternative + { + { + c2..:maj7 bf8:sus4.7 | % 3 + s4. bf8:7 s2 | % 4 + } + { + c2..:maj7 f8:/g | % 5 + } + } + + s1 | % 6 + + \repeat volta 2 + { + % Verse + + c2..:maj7 d8:m7 | % 7 + s1 | % 8 + c2../e c8 | % 9 + s1 | % 10 + a4.:m a2:m7+ d8:sus4.7 | % 11 + s2 d:7 | % 12 + f2../g g8 | % 13 + s1 | % 14 + + c2..:maj7 d8:m7 | % 15 + s1 | % 16 + e2..:m7 a8:m7 | % 17 + s1 | % 18 + d2..:m7 f8/g | % 19 + s1 | % 20 + c2.. f8/g | % 21 + s1 | % 22 + + % Chorus + + c2.. d8:m7 | % 23 + s1 | % 24 + c2..:sus2/e c8 | % 25 + s1 | % 26 + a2..:m7 d8:sus4.7 | % 27 + s2 d:7 | % 28 + g2.. f8/g | % 29 + s2 g | % 30 + + c2..:maj7 d8:m7 | % 31 + s1 | % 32 + e2..:m7 a8:7.9- | % 33 + s1 | % 34 + d2..:m7 f8/g | % 35 + s1 | % 36 + + c2..:maj7 bf8:sus4.7 | % 37 + s4. bf8:7 s2 | % 38 + } + \alternative + { + { + c2..:maj7 f8/g | % 39 + s1 | % 40 + } + { + c2..:maj7 g8/a | % 41 + } + } + + s4. a8 s2 | % 42 + + % Verse + + d2..:maj7 e8:m7 | % 43 + s1 | % 44 + d1/fs | % 45 + s1 | % 46 + b2..:m7 e8:sus4 | % 47 + s2 e | % 48 + g2../a a8 | % 49 + s1 | % 50 + + d2..:maj7 e8:m7 | % 51 + s1 | % 52 + fs2..:m7 b8:m7 | % 53 + s1 | % 54 + e2..:m7 g8/a | % 55 + s1 | % 56 + d2.. g8/a | % 57 + s1 | % 58 + + % Chorus + + \repeat volta 2 + { + d2.. e8:m7 | % 59 + s1 | % 60 + d2../fs d8 | % 61 + s1 | % 62 + b2..:m7 e8:sus4 | % 63 + s2 e:7 | % 64 + a2.. g8/a | % 65 + s2 a | % 66 + + d2.. e8:m7 | % 67 + s1 | % 68 + fs2..:m7 b8:7.9- | % 69 + s1 | % 70 + } + \alternative + { + { + e2..:m7 g8/a | % 71 + s1 | % 72 + d2.. g8/a | % 73 + s1 | % 74 + } + { + e2..:m7 g8/a | % 75 + } + } + + s1 | % 76 + c2..:sus4.7 c8:7 | % 77 + s1 | % 78 + e2..:m7 g8/a | % 79 + s1 | % 80 + + % Outro + + \repeat volta 2 + { + d2..:maj7 c8:sus4.7 | % 81 + s4. c8:7 s2 | % 82 + d2..:maj7 c8:sus4.7 | % 83 + s4. c8:7 s2 | % 84 + } + + d1:maj7 | % 85 +} + + +% +% Chord rhythms +% + +% Use a RhythmicStaff on the chords instead of this? +% It almost works, but not quite. Doesn't collapse chords above to single notes... + +StaffC = \relative c +{ +% \set Voice.autoBeaming = ##f +% \set Staff.instrument = #"Rhythm" + \override Staff.TimeSignature #'style = #'() + \time 4/4 + \override NoteHead #'style = #'slash + + % Intro + + \repeat volta 2 + { + c2 c4-> r8 c ~ | % 1 + c4. c8 ~ c2 | % 2 + } + \alternative + { + { + c2 c4-> r8 c ~ | % 3 + c4. c8 ~ c2 | % 4 + } + { + c2 c4-> r8 c-> ~ | % 5 + } + } + + c4 c c c | % 6 + + \repeat volta 2 + { + % Verse + + c4 c c r8 c ~ | % 7 + c2 c4 c | % 8 + c4 c c r8 c ~ | % 9 + c2 c4 c | % 10 + c4. c8 ~ c4. c8 ~ | % 11 + c2 c4 c | % 12 + c4 c c r8 c ~ | % 13 + c2 c4 c \bar "||" % 14 + + c4 c c r8 c ~ | % 15 + c2 c4 c | % 16 + c4 c c r8 c ~ | % 17 + c2 c4 c | % 18 + c4 c c r8 c ~ | % 19 + c2 c4 c | % 20 + c4 c c r8 c-> ~ | % 21 + c4 c c c \bar "||" % 22 + + % Chorus + + c4 c c r8 c ~ | % 23 + c2 c4 c | % 24 + c4 c c r8 c-> ~ | % 25 + c2 c4 c | % 26 + c4. c8 ~ c4. c8 ~ | % 27 + c2 c4 c | % 28 + c4 c c r8 c ~ | % 29 + c2 c4 c | % 30 + + c4 c c r8 c ~ | % 31 + c2 c4 c | % 32 + c4 c c r8 c ~ | % 33 + c2 c4 c | % 34 + c4 c c r8 c-> ~ | % 35 + c1 \bar "||" % 36 + + c2 c4-> r8 c ~ | % 37 + c4. c8 ~ c2 | % 38 + } + \alternative + { + { + c2 c4-> r8 c ~ | % 39 + c1 | % 40 + } + { + c2 c4-> r8 c ~ | % 41 + } + } + + c4. c8 ~ c4 c \bar "||" % 42 + + % Verse + + c2. ~ c8 c8 ~ | % 43 + c1 | % 44 + c1 ~ | % 45 + c1 | % 46 + c2. r8 c ~ | % 47 + c2 c | % 48 + c2. ~ c8 c-> ~ | % 49 + c2 c4 c \bar "||" % 50 + + c4 c c r8 c ~ | % 51 + c2 c4 c | % 52 + c4 c c r8 c ~ | % 53 + c2 c4 c | % 54 + c4 c c r8 c ~ | % 55 + c2 c4 c | % 56 + c4 c c r8 c-> ~ | % 57 + c8 c c c c c c c | % 58 + + % Chorus + + \repeat volta 2 + { + c4 c c r8 c ~ | % 59 + c2 c4 c | % 60 + c4 c c r8 c ~ | % 61 + c2 c4 c | % 62 + c4 c c r8 c ~ | % 63 + c2 c4 c | % 64 + c4 c c r8 c ~ | % 65 + + c2 c4 c | % 66 + c4 c c r8 c ~ | % 67 + c2 c4 c | % 68 + c4 c c r8 c ~ | % 69 + c2 c4 c | % 70 + } + \alternative + { + { + c4 c c r8 c ~ | % 71 + c2 c4 c | % 72 + c4 c c r8 c-> ~ | % 73 + c8 c c c c c c c | % 74 + } + { + c4 c c r8 c ~ | % 75 + } + } + + c4 c c c | % 76 + c4 c c r8 c ~ | % 77 + c4 c c c | % 78 + c4 c c r8 c ~ | % 79 + c1 | % 80 + + % Outro + + \repeat volta 2 + { + c2 c4-> r8 c ~ | % 81 + c4. c8 ~ c2 | % 82 + c2 c4-> r8 c ~ | % 83 + c4. c8 ~ c2 | % 84 + } + + c1^\fermata \bar "|." % 85 +} + + +Dynamics = +{ + s4_\mf s2. | % 1 + s1*4 | % 2-5 + s2 s4_\markup { \italic { drum fill } } s | % 6 + s1*15 | % 7-21 + s4 s \< s s \! | % 22 + s1*17 | % 23-39 + s2 s_\markup { \italic { drum fill } } | % 40 + s1 | % 41 + s2 s4 \< s | % 42 + s8 \f s s4_\markup { \hspace #0.0 \raise #-2.0 \italic { floating } } s2 | % 43 + s1*6 | % 44-49 + s2 s4 \< s \! | % 50 + s4_\markup { \italic { orig. groove } } s2. | % 51 + s1*6 | % 52-57 + s2 s8 \< s4 s8 \! | % 58 + s4_\markup { \italic { snare 2&4 } } s2. | % 59 + s1*14 | % 60-73 + s2 s8 \< s4 s8 \! | % 74 + s1*5 | % 75-79 + s2 s4 \> s \! | % 80 + s4_\markup { \hspace #0.0 \raise #-2.0 \italic { orig. half-time groove } } s2. | % 81 + s1*2 | % 82-83 + s2 s4_\markup { \hspace #0.0 \raise #-2.0 \italic { last X rit. } } s | % 84 + +%{ + s4_\mf s2. | % 1 + s1*22 | % 2-23 + s4 s \> | % 24 + s4 \! s2. | % 25 + s1*2 | % 26-27 + s4 \< s s \! s | % 28 + s1*4 | % 29-32 + s4 \< s s \! s | % 33 + s1*23 | % 34-56 + s2 s2_\markup { \italic { rit. } } | % 57 +%} +} + + +\score +{ + << + << + \new Staff = leadStaff { << \new Voice = "lead" \LeadVox >> } + \new Lyrics \lyricsto "lead" \LeadVoxText + \new Lyrics \lyricsto "lead" \LeadVoxTextB + >> + + \new ChoirStaff = "Rhythm" + << + \new ChordNames = "chords" \Chords + \new RhythmicStaff = "chordRhythm" << \StaffC \Dynamics >> + >> + + \set Score.skipBars = ##t + \set Score.melismaBusyProperties = #'() + >> +} + + +\paper +{ + #(define fonts (make-pango-font-tree + "Times New Roman" + "DomCasual BT" + "Luxi Mono" + (/ staffSize 20))) + +% Spread staves vertically across last page (default: t) +% ragged-last-bottom = ##f +% Don't spread staves vertically across the page (default: f) +% ragged-bottom = ##t +% Allow partial line for last stave (default: f) + ragged-last = ##t + +% To find out what's eating the space at the top... +% annotate-spacing = ##t +%let's try this: [It works! Huzzah!] + obsolete-page-top-space = 0 top-system-spacing #'basic-distance = #(/ obsolete-page-top-space staff-space) +} diff --git a/blessed-be-your-name.ly b/blessed-be-your-name.ly new file mode 100644 index 0000000..0250643 --- /dev/null +++ b/blessed-be-your-name.ly @@ -0,0 +1,543 @@ +\version "2.16.0" +\include "pop-chords.ly" +\include "english.ly" + +% Good sizes are 16, 18, & 20 +staffSize = #16 +#(set-default-paper-size "letter") +#(set-global-staff-size staffSize) +#(ly:set-option (quote no-point-and-click)) + +%{ Some useful characters: ‘ ’ “ ” – — † ‡ • … %} + +\header +{ +%Let's bump up the title size and switch to the chord font. :-) + + title = \markup { \override #'(font-family . sans) \fontsize #3.5 "Blessed Be Your Name" } + composer = \markup { \override #'(font-family . sans) \fontsize #1.3 "Matt and Beth Redman" } + arranger = \markup { \override #'(font-family . sans) \fontsize #1.3 "arr. Ed Smart" } + tagline = $(string-append "Engraved by JLH and Lilypond " (lilypond-version)) +} + + +% +% Lead vocal +% + +LeadVox = \relative c' +{ +% \set Voice.autoBeaming = ##f +% \set Staff.instrument = #"Lead vox" + \clef G + \key b \major + \override Staff.TimeSignature #'style = #'() + \time 4/4 +\override Score.SpacingSpanner #'average-spacing-wishes = ##f + + % Intro + + r1 | % 1 + r1 | % 2 + r1 | % 3 + r1 | % 4 + + \repeat volta 3 + { + % Verse + +\mark \markup { \override #'(font-family . sans) { \box { A } } } + + r4 r8 ds ~ ds fs4 ds8 ~ | % 5 + ds8 fs4 fs8 ~ fs4. ds16 cs | % 6 + ds4. ds8 ~ ds fs4 ds8 ~ | % 7 + ds8 fs4 fs8 ~ fs4 r8 ds16 cs | % 8 + ds4. ds8 ~ ds fs4 ds8 ~ | % 9 + ds8 fs4 fs8 ~ fs4 r8 ds16 cs ~ | % 10 + cs8 ds cs b ~ b2 | % 11 + r1 | % 12 + + r4 r8 ds ~ ds fs4 ds8 ~ | % 13 + ds8 fs4 fs8 ~ fs4. ds16 cs | % 14 + ds4. ds8 ~ ds fs4 ds8 ~ | % 15 + ds8 fs4 fs8 ~ fs4 r8 ds16 cs | % 16 + ds4. ds8 ~ ds fs4 ds8 ~ | % 17 + ds8 fs4 fs8 ~ fs4 r8 ds16 cs ~ | % 18 + cs8 ds cs b ~ b2 | % 19 + r1 \bar "||" % 20 + + % Prechorus + +\mark \markup { \override #'(font-family . sans) { \box { A17 } } } + + r4 b'8 b b4 fs | % 21 + fs4 gs as b | % 22 + r4 cs cs b | % 23 + gs2 r | % 24 + r4 b8 b b4 fs | % 25 + fs4 gs as b | % 26 + r4 cs cs b | % 27 + gs2 ds'8 cs cs b \bar "||" % 28 + + % Chorus + +\mark \markup { \override #'(font-family . sans) { \box { B } } \hspace #1.0 \raise #2.0 \musicglyph #"scripts.segno" } + + b4. b8 ~ b b ( cs ) cs ~ | % 29 + cs2 ds8 cs cs b | % 30 + b1 | % 31 + r2 ds8 cs cs b | % 32 + b4. b8 ~ b b ( cs ) cs ~ | % 33 + cs2 ds8 cs cs b | % 34 + ds4 ( e8 ) ds ~ ds cs4 b8 ~ | % 35 + } + \alternative + { + { + b1 | % 36 + r1 | % 37 + } + { + b2 \repeatTie ds8 cs cs b \bar "||" % 38 + +\once \override Score.RehearsalMark #'self-alignment-X = #right +\mark \markup { \italic { D.S. } } + + } + { + b1 \repeatTie | % 39 + } + } + + r2 r4 r8 b | % 40 + + \repeat volta 3 + { + % Bridge + +\mark \markup { \override #'(font-family . sans) { \box { C } } } + + ds4 ds ds4. cs8 | % 41 + cs2 r4 r8 b | % 42 + ds4 ds ds4. cs8 | % 43 + cs2 r4 r8 b | % 44 + ds4 ds ds4. cs8 | % 45 + cs2 r4 r8 b | % 46 + ds4 ds ds4. cs8 | % 47 + } + \alternative + { + { + cs8 ( b4 ) r8 r4 r8 b | % 48 + } + { + cs8 ( b4 ) r8 r2 | % 49 + } + } + + r2 ds8 cs cs b | % 50 + + \repeat volta 3 + { + % Chorus + +\mark \markup { \override #'(font-family . sans) { \box { D } } } + + b4. b8 ~ b b ( cs ) cs ~ | % 51 + cs2 ds8 cs cs b | % 52 + b1 | % 53 + r2 ds8 cs cs b | % 54 + b4. b8 ~ b b ( cs ) cs ~ | % 55 + cs2 ds8 cs cs b | % 56 + ds4 ( e8 ) ds ~ ds cs4 b8 ~ | % 57 + } + \alternative + { + { + b2 ds8 cs cs b | % 58 + } + { + b2 \repeatTie ds8 cs cs b | % 59 + } + } + + b1-\fermata \bar "|." % 60 +} + +LeadVoxText = \lyricmode +{ + Bless -- _ ed be _ your name, _ + in the land that _ is plen -- _ ti -- ful, _ + where your streams of _ a -- bun -- _ dance flow, _ + bless -- ed _ be your name. _ + + Bless -- _ ed be _ your name, _ + when I’m found in _ the de -- _ sert place, _ + Though I walk through _ the wild -- _ er -- ness, _ + bless -- ed _ be your name. _ + + Ev -- ’ry bless -- ing you pour out + I'll turn back to praise + When the dark -- ness clos -- es in Lord, + still I will say + + Bless -- ed be the name of _ the __ _ Lord, _ + Bless -- ed be your name! + Bless -- ed be the name of _ the __ _ Lord, _ + Bless -- ed be your glor -- _ i -- _ ous name! _ + + _ + Bless -- ed be the + _ + + You give and take a -- way, + You give and take a -- way, + My heart will choose to say, + Lord bless -- ed be your name. _ + + You + name. _ + + Bless -- ed be the name of _ the __ _ Lord, _ + Bless -- ed be your name! + Bless -- ed be the name of _ the __ _ Lord, _ + Bless -- ed be your glor -- _ i -- _ ous name! __ _ + + Bless -- ed be the + _ + Bless -- ed be your name! +} + +LeadVoxTextB = \lyricmode +{ + Bless -- _ ed be _ your name, _ + when the sun’s shin -- _ ing down _ on me, _ + when the world’s all _ as it _ should be, _ + bless -- ed _ be your name. _ + + Bless -- _ ed be _ your name, _ + on the road marked _ with suf -- _ fer -- ing, _ + though there's pain in _ the of -- _ fer -- ing, _ + bless -- ed _ be your name. _ +} + + +% +% Chord names +% + +Chords = \chordmode +{ +%Bah, can't we set this globally? +% \popChords + + % Intro + + b1 | % 1 + s1 | % 2 + s1 | % 3 + s1 | % 4 + + \repeat volta 3 + { + % Verse + + b1 | % 5 + fs1 | % 6 + gs1:m | % 7 + e1 | % 8 + b1 | % 9 + fs1 | % 10 + e1 | % 11 + s1 | % 12 + + b1 | % 13 + fs1 | % 14 + gs1:m | % 15 + e1 | % 16 + b1 | % 17 + fs1 | % 18 + e1 | % 19 + s1 | % 20 + + % Prechorus + + b1 | % 21 + fs1 | % 22 + gs1:m | % 23 + e1 | % 24 + b1 | % 25 + fs1 | % 26 + gs1:m | % 27 + e1 | % 28 + + % Chorus + + b1 | % 29 + fs1 | % 30 + gs1:m | % 31 + e1 | % 32 + b1 | % 33 + fs1 | % 34 + gs4.:m fs2 e8 | % 35 + } + \alternative + { + { + s1 | % 36 + s1 | % 37 + } + { + s1 | % 38 + } + { + s1 | % 39 + } + } + + s1 | % 40 + + \repeat volta 3 + { + % Bridge + + b1 | % 41 + fs1 | % 42 + gs1:m | % 43 + e1 | % 44 + b1 | % 45 + fs1 | % 46 + gs2:m fs | % 47 + } + \alternative + { + { + e1 | % 48 + } + { + e1 | % 49 + } + } + + s1 | % 50 + + \repeat volta 3 + { + % Chorus + + b1 | % 51 + fs1 | % 52 + gs1:m | % 53 + e1 | % 54 + b1 | % 55 + fs1 | % 56 + gs4.:m fs2 e8 | % 57 + } + \alternative + { + { + s1 | % 58 + } + { + s1 | % 59 + } + } + + b1 | % 60 +} + + +% +% Chord rhythms +% + +% Use a RhythmicStaff on the chords instead of this? +% It almost works, but not quite. Doesn't collapse chords above to single notes... + +Slash = { \override NoteHead #'style = #'slash } +Cross = { \override NoteHead #'style = #'cross } + +StaffC = \relative c +{ +% \set Voice.autoBeaming = ##f +% \set Staff.instrument = #"Rhythm" + \override Staff.TimeSignature #'style = #'() + \time 4/4 +% \override NoteHead #'style = #'slash + + % Intro + + \Slash c8-> \Cross c c \Slash c-> \Cross c c c c | % 1 + \Slash c8-> \Cross c c \Slash c-> \Cross c c c c | % 2 + \Slash c8-> \Cross c c \Slash c-> \Cross c c c c | % 3 + \Slash c8-> \Cross c c \Slash c-> \Cross c c c c | % 4 + + \repeat volta 3 + { + % Verse + + \Slash c8-> \Cross c c \Slash c-> \Cross c c c c | % 5 + \Slash c8-> \Cross c c \Slash c-> \Cross c c c c | % 6 + \Slash c8-> \Cross c c \Slash c-> \Cross c c c c | % 7 + \Slash c8-> \Cross c c \Slash c-> \Cross c c c c | % 8 + \Slash c8-> \Cross c c \Slash c-> \Cross c c c c | % 9 + \Slash c8-> \Cross c c \Slash c-> \Cross c c c c | % 10 + \Slash c8-> \Cross c c \Slash c-> \Cross c c c c | % 11 + \Slash c8-> \Cross c c \Slash c-> \Cross c c c c | % 12 + + \Slash c8-> \Cross c c \Slash c-> \Cross c c c c | % 13 + \Slash c8-> \Cross c c \Slash c-> \Cross c c c c | % 14 + \Slash c8-> \Cross c c \Slash c-> \Cross c c c c | % 15 + \Slash c8-> \Cross c c \Slash c-> \Cross c c c c | % 16 + \Slash c8-> \Cross c c \Slash c-> \Cross c c c c | % 17 + \Slash c8-> \Cross c c \Slash c-> \Cross c c c c | % 18 + \Slash c8-> \Cross c c \Slash c-> \Cross c c c c | % 19 + \Slash c8 c c c c c c c \bar "||" % 20 + + % Prechorus + + c1 | % 21 + c1 | % 22 + c1 | % 23 + c1 | % 24 + c1 | % 25 + c1 | % 26 + c1 | % 27 + c8 c c c c c c c \bar "||" % 28 + + % Chorus + + c4. c8 ~ c c c c | % 29 + c4 c8 c ~ c c c4 | % 30 + c4. c8 ~ c c c c | % 31 + c4 c8 c ~ c c c4 | % 32 + c4. c8 ~ c c c c | % 33 + c4 c8 c ~ c c c4 | % 34 + c4.-> c8-> ~ c4. c8-> ~ | % 35 + } + \alternative + { + { + c1 ~ | % 36 + c1 | % 37 + } + { + c8 \repeatTie c c c c c c c \bar "||" % 38 + } + { + c1 \repeatTie ~ | % 39 + } + } + + c1 | % 40 + + \repeat volta 3 + { + % Bridge + + c1 | % 41 + c1 | % 42 + c1 | % 43 + c1 | % 44 + c1 | % 45 + c1 | % 46 + c2 c | % 47 + } + \alternative + { + { + c1 | % 48 + } + { + c1 | % 49 + } + } + + c8 c c c c c c c | % 50 + + \repeat volta 3 + { + % Chorus + + c4. c8 ~ c c c c | % 51 + c4 c8 c ~ c c c4 | % 52 + c4. c8 ~ c c c c | % 53 + c4 c8 c ~ c c c4 | % 54 + c4. c8 ~ c c c c | % 55 + c4 c8 c ~ c c c4 | % 56 + c4.-> c8-> ~ c4. c8-> ~ | % 57 + } + \alternative + { + { + c8 c c c c c c c | % 58 + } + { + c1 \repeatTie | % 59 + } + } + + c1-\fermata \bar "|." % 60 +} + + +Dynamics = +{ + s4_\markup { \italic { snare on 4, bass 8th notes } } s2. | % 1 + s1*26 | % 2-27 + s2 s4 \< s | % 28 + s4_\f s_\markup { \hspace #0.0 \raise #-2.0 \italic { snare 2 & 4 } } s2 | % 29 + s1*8 | % 30-37 + s2 s4 \< s \! | % 38 + s1 | % 39 + s2. s8 \> s \! | % 40 + s4_\markup { \hspace #0.0 \raise #-2.0 \italic { bass 8th notes, band builds each repeat } } s2. | % 41 + s1*8 | % 42-49 + s4 \< s2. | % 50 + s4_\f s2. | % 51 + s1*5 | % 52-56 + s4_\markup { \hspace #0.0 \raise #-2.0 \italic { rit. last time } } s2. | % 57 + s2 s4 \< s \! | % 58 +} + + +\score +{ + << + << +% \new Staff = leadStaff { \new Voice = "lead" \LeadVox } + \new Staff = leadStaff { \new Voice = "lead" \transpose b a \LeadVox } + \new Lyrics \lyricsto "lead" \LeadVoxText + \new Lyrics \lyricsto "lead" \LeadVoxTextB + >> + + \new ChoirStaff = "Rhythm" + << +% \new ChordNames = "chords" \Chords + \new ChordNames = "chords" \transpose b a \Chords + \new RhythmicStaff = "chordRhythm" << \StaffC \Dynamics >> + >> + + \set Score.skipBars = ##t + \set Score.melismaBusyProperties = #'() + >> + + \layout + { +% \context { \Staff \RemoveEmptyStaves } +% ragged-last-bottom = ##t + ragged-last = ##t + } +} + + +\paper +{ + #(define fonts (make-pango-font-tree + "Times New Roman" + "DomCasual BT" + "Luxi Mono" + (/ staffSize 20))) + +% top-margin = -0.25 \in +} diff --git a/blessed-quietness-satb.ly b/blessed-quietness-satb.ly new file mode 100644 index 0000000..c75eba4 --- /dev/null +++ b/blessed-quietness-satb.ly @@ -0,0 +1,272 @@ +\version "2.16.0" +\include "pop-chords.ly" +\include "english.ly" + +% Good sizes are 16, 18, & 20 +staffSize = #18 +#(set-default-paper-size "letter") +#(set-global-staff-size staffSize) +#(ly:set-option (quote no-point-and-click)) + +%{ Some useful characters: ‘ ’ “ ” – — † ‡ • … %} + +\header +{ + title = \markup { \override #'(font-family . sans) \fontsize #3.5 "Blessed Quietness" } +% subtitle = \markup { \override #'(font-family . sans) \fontsize #1.3 "Genevan Psalter, 1551" } + composer = \markup { \override #'(font-family . sans) \fontsize #1.3 "W. S. Marshall" } + arranger = \markup { \override #'(font-family . sans) \fontsize #1.3 "arr. James M. Kirk" } + poet = \markup { \override #'(font-family . sans) \fontsize #1.3 "Manie P. Ferguson" } + tagline = $(string-append "Engraved by JLH and Lilypond " (lilypond-version)) +} + + +% +% Lead vocal +% + +LeadVox = \relative c' +{ + \set Staff.instrumentName = #"Sop." + \clef G + \key a \major + \override Staff.TimeSignature #'style = #'() + \time 3/4 + + % Verse + + \partial 4 cs8 d | % 0 + e8 a a4 cs8 b | % 1 + a8 fs a4 gs8 fs | % 2 + e4. cs8 e a | % 3 + b2 gs8 fs | % 4 + + e8 a a4 cs8 b | % 5 + a8 fs a4 gs8 fs | % 6 + e4. a8 gs b | % 7 + a2 cs,8 d \bar "||" % 8 + + e8 cs e4 a8 gs | % 9 + fs8 d fs4 a8 fs | % 10 + e4. cs8 e a | % 11 + b2 gs8 fs | % 12 + + e8 cs e4 a8 gs | % 13 + fs8 d fs4 a8 fs | % 14 + e8 e4. gs8 b | % 15 + a2 \bar "|." % 16 +} + +AltoVox = \relative c' +{ + \set Staff.instrumentName = #"Alto" + \clef G + \key a \major + \override Staff.TimeSignature #'style = #'() + \time 3/4 + + % Verse + + \partial 4 a8 b | % 0 + cs4 cs e8 e | % 1 + fs8 d fs4 e8 d | % 2 + cs4. a8 cs cs | % 3 + e2 e8 d | % 4 + + cs4 cs e8 e | % 5 + fs8 d fs4 e8 d | % 6 + cs4. cs8 d d | % 7 + cs2 a8 b \bar "||" % 8 + + cs8 a cs4 cs8 e | % 9 + d8 d d4 fs8 d | % 10 + cs4. a8 cs cs | % 11 + d2 e8 d | % 12 + + cs8 a cs4 cs8 e | % 13 + d8 d d4 fs8 d | % 14 + cs8 cs4. d8 d | % 15 + cs2 \bar "|." % 16 +} + +TenorVox = \relative c +{ + \set Staff.instrumentName = #"Tenor" + \clef F + \key a \major + \override Staff.TimeSignature #'style = #'() + \time 3/4 + + % Verse + + \partial 4 e8 e | % 0 + a8e e4 a8 cs | % 1 + d4 d a8 a | % 2 + a4. e8 a a | % 3 + gs2 b8 gs | % 4 + + a8 e e4 a8 cs | % 5 + d4 d a8 a | % 6 + a4. a8 b gs | % 7 + a2 e8 e \bar "||" % 8 + + a8 e a4 a8 a | % 9 + a8 fs a4 a8 a | % 10 + a4. e8 a a | % 11 + gs2 b8 gs | % 12 + + a8 e a4 a8 a | % 13 + a8 fs a4 a8 a | % 14 + a8 a4. b8 gs | % 15 + a2 \bar "|." % 16 +} + +BassVox = \relative c +{ + \set Staff.instrumentName = #"Bass" + \clef F + \key a \major + \override Staff.TimeSignature #'style = #'() + \time 3/4 + + % Verse + + \partial 4 a8 a | % 0 + a4 a a8 a | % 1 + d4 d d8 d | % 2 + a4. a8 a a | % 3 + e'2 e8 e | % 4 + + a,4 a a8 a | % 5 + d4 d d8 d | % 6 + e4. e8 e e | % 7 + a,2 a8 a \bar "||" % 8 + + a8 a a4 a8 cs | % 9 + d8 d d4 d8 d | % 10 + a4. a8 a a | % 11 + e'2 e8 e | % 12 + + a,8 a a4 a8 cs | % 13 + d8 d d4 d8 d | % 14 + e8 e4. e8 e | % 15 + a,2 \bar "|." % 16 +} + + +Riffs = \relative c' +{ + \teeny +} + + +LeadVoxText = \lyricmode +{ + Joys are flow -- _ ing like a riv -- _ er + Since the Com -- fort -- er has come; + He a -- bides _ with us for -- ev -- _ er, + Makes the trust -- in heart His home. + + Bless -- ed qui -- et -- ness, ho -- ly qui -- et -- ness, + What as -- sur -- ance in my soul! + On the storm -- y sea He speaks peace to me, + How the bil -- lows cease to roll! +} + +LeadVoxTextB = \lyricmode +{ + Bring -- ing life _ and health and glad -- _ ness + All a -- round, this heav'n -- ly Guest + Ban -- ished un -- _ be -- lief and sad -- _ ness, + Changed our wea -- ri -- ness to rest. +} + +LeadVoxTextC = \lyricmode +{ + Like the rain _ that fall from heav -- _ en, + Like the sun -- light from the sky, + So the Ho -- _ ly Ghost is giv -- _ en, + Com -- ing on us from on high. +} + +LeadVoxTextD = \lyricmode +{ + See, a fruit -- _ ful field is grow -- _ ing, + Bless -- ed fruit of right -- eous -- ness; + And the streams _ of life are flow -- _ ing + In the lone -- ly wil -- der -- ness. +} + +LeadVoxTextE = \lyricmode +{ + What a won -- _ der -- ful sal -- va -- _ tion, + Where we al -- ways see His face! + What a per -- _ fect hab -- i -- ta -- _ tion, + What a qui -- et rest -- ing place! +} + + +Dynamics = +{ +%{ + s4_\markup { \italic { snare on 4, bass 8th notes } } s2. | % 1 + s1*26 | % 2-27 + s2 s4 \< s | % 28 + s4_\f s_\markup { \hspace #0.0 \raise #-2.0 \italic { snare 2 & 4 } } s2 | % 29 + s1*8 | % 30-37 + s2 s4 \< s \! | % 38 + s1 | % 39 + s2. s8 \> s \! | % 40 + s4_\markup { \hspace #0.0 \raise #-2.0 \italic { bass 8th notes, band builds each repeat } } s2. | % 41 + s1*8 | % 42-49 + s4 \< s2. | % 50 + s4_\f s2. | % 51 + s1*5 | % 52-56 + s4_\markup { \hspace #0.0 \raise #-2.0 \italic { rit. last time } } s2. | % 57 + s2 s4 \< s \! | % 58 +%} +} + + +\score +{ + << + \new ChoirStaff = "Rhythm" + << + \new Staff = UpperStaffA { \new Voice = "lead" \LeadVox } + \new Lyrics \lyricsto "lead" \LeadVoxText + \new Lyrics \lyricsto "lead" \LeadVoxTextB + \new Lyrics \lyricsto "lead" \LeadVoxTextC + \new Lyrics \lyricsto "lead" \LeadVoxTextD + \new Lyrics \lyricsto "lead" \LeadVoxTextE + \new Staff = UpperStaffB { \new Voice = "alto" \AltoVox } + \new Staff = LowerStaffA { \new Voice = "tenor" \TenorVox } + \new Staff = LowerStaffB { \new Voice = "bass" \BassVox } + >> + + \set Score.skipBars = ##t + \set Score.melismaBusyProperties = #'() + >> +} + + +\paper +{ + #(define fonts (make-pango-font-tree + "Times New Roman" + "DomCasual BT" + "Luxi Mono" + (/ staffSize 20))) + +% Spread staves vertically across last page (default: t) + ragged-last-bottom = ##f +% Don't spread staves vertically across the page (default: f) +% ragged-bottom = ##t +% Allow partial line for last stave (default: f) + ragged-last = ##t + +% To find out what's eating the space at the top... +% annotate-spacing = ##t +%let's try this: [It works! Huzzah!] + obsolete-page-top-space = 0 top-system-spacing #'basic-distance = #(/ obsolete-page-top-space staff-space) +} diff --git a/breathe.ly b/breathe.ly new file mode 100644 index 0000000..37995f1 --- /dev/null +++ b/breathe.ly @@ -0,0 +1,519 @@ +\version "2.16.0" +\include "pop-chords.ly" +\include "english.ly" + +% Good sizes are 16, 18, & 20 +staffSize = #20 +#(set-default-paper-size "letter") +#(set-global-staff-size staffSize) +#(ly:set-option (quote no-point-and-click)) + +%{ Some useful characters: ‘ ’ “ ” – — † ‡ • … %} + +\header +{ +%Let's bump up the title size and switch to the chord font. :-) + + title = \markup { \override #'(font-family . sans) \fontsize #3.5 "Breathe" } + composer = \markup { \override #'(font-family . sans) \fontsize #1.3 "M. Barnett" } + arranger = \markup { \override #'(font-family . sans) \fontsize #1.3 "arr. Ed Smart" } + tagline = $(string-append "Engraved by JLH and Lilypond " (lilypond-version)) +% Let's try a chord dictionary +% subtitle = \markup { \center-align { "F#m" \fret-diagram-terse #"x;x;4;2;2;2;" } " " \center-align { "F#m/F" \fret-diagram-terse #"x;x;3;2;2;2;" } " " \center-align { "F#m/E" \fret-diagram-terse #"x;x;2;2;2;2;" } " " \center-align { "F#m/Eb" \fret-diagram-terse #"x;x;1;2;2;2;" } " " \center-align { "Em7" \fret-diagram-terse #"o;2;2;o;3;o;" } " " \center-align { "A13" \fret-diagram-terse #"x;o;2;o;2;2;" } } +} + +% Useful tweak abbreviations (hn = harmony note) + +hn = #(define-music-function (parser location arg) (ly:music?) +;; Harmony Note: Set the tweaks property of the passed in note to use a smaller font + + (set! (ly:music-property arg 'tweaks) + (acons 'font-size -3.0 (ly:music-property arg 'tweaks))) arg) + + +% +% Song's structure +% +Global = \transpose a g +{ + \key a \major + \override Staff.TimeSignature #'style = #'() + \time 4/4 + +% \once \override TextScript #'padding = #2.0 + s1*0^\markup { \italic \bold { 8th-note ballad } } +% Capo 4 version +% s1*0^\markup { \hspace #0.0 \raise #2.0 \bigger \bold { "Moderate pop (*** CAPO 4 ***)" } } + + % Intro + + s1*4 | % 1-4 + + % Verse + + \repeat volta 2 + { + \mark \markup { \override #'(font-family . sans) { \box { A } } } + s1*7 | % 5-11 + } + \alternative + { + { + s1 | % 12 + } + { + s1 \bar "||" % 13 + } + } + + % Chorus + + \mark \markup { \override #'(font-family . sans) { \box { B } } } + s1*8 | % 14-21 + + \key b \major + + % Verse + + \repeat volta 2 + { + \mark \markup { \override #'(font-family . sans) { \box { C } } } + s1*7 | % 22-28 + } + \alternative + { + { + s1 | % 29 + } + { + s1 \bar "||" % 30 + } + } + + % Chorus + + \mark \markup { \override #'(font-family . sans) { \box { D } } } + s1*6 | % 31-36 + + \repeat volta 2 + { + \mark \markup { \override #'(font-family . sans) { \box { E } } } + s1*4 | % 37-40 + } + + s1*2 \bar "||" % 41-42 + + % Outro + + \mark \markup { \override #'(font-family . sans) { \box { F } } } + s1*7 \bar "|." % 43-49 +} + + +% +% Lead vocal +% +LeadVox = \relative c' +{ +% \set Staff.instrument = #"Lead vox" + \clef G + \override Staff.TimeSignature #'style = #'() +%Hm. Needed anymore? +% \override Score.SpacingSpanner #'average-spacing-wishes = ##f + \set tupletSpannerDuration = #(ly:make-moment 1 4) + + % Intro + + s1 | % 1 + s1 | % 2 + s1 | % 3 + s1 | % 4 + + % Verse + + r2 r8 cs16 e ~ e a8 a16 ~ | % 5 + a16 d,8 d16 ~ d4 r2 | % 6 + r2 r8 cs16 e ~ e a8 a16 ~ | % 7 + a16 d,8 d16 ~ d4 r2 | % 8 + r4 r8 a' b4 gs8 gs ~ | % 9 + gs8 a ~ a4 r2 | % 10 + gs8 a ~ a2 cs,8 e ~ | % 11 + + e2 r | % 12 + + e2-\repeatTie r4 r8 | % 13 + + % Chorus + + 2 ( 4. 16 a32 gs | % 14 + 2 ) r8 \times 2/3 { 8 ~ } | % 15 + 8 ~ 4 r2 | % 16 + r2 r4 r8 | % 17 + 2 ( 4. 16 a32 gs | % 18 + 2 ) r8 \times 2/3 { 8 ~ } | % 19 + 8 ~ 4 r2 | % 20 + r1 | % 21 + + % Verse + + r2 r8 16 ~ 8 16 ~ | % 22 + 16 8 16 ~ 2 r4 | % 23 + r2 r8 16 ~ 8 16 ~ | % 24 + 16 8 16 ~ 2 r4 | % 25 + r4 r8 4 8 ~ | % 26 + 8 ~ 4 r2 | % 27 + as8 b ~ b2 ds,8 fs ~ | % 28 + + fs2 r | % 29 + + fs2-\repeatTie r4 r8 | % 30 + + % Chorus + + 2 ( 4. ~ 16 b32 as | % 31 + 2 ) r8 \times 2/3 { 8 ~ } | % 32 + 8 ~ 4 r2 | % 33 + r2 r4 r8 | % 34 + 2 ( 4. ~ 16 b32 as | % 35 + 2 ) r8 \times 2/3 { 8 ~ } | % 36 + + 8 ~ 4 r2 | % 37 + r2 r8 \times 2/3 { 8 ~ } | % 38 + 8 ~ 4 r2 | % 39 + r2 r8 \times 2/3 { 8 ~ } | % 40 + + 8 ~ 4 r2 | % 41 + r1-\fermata | % 42 + + % Outro + + r2 r8 ds,16 fs ~ fs b8 b16 ~ | % 43 + b16 e,8 e16 ~ e2. | % 44 + r2 r8 ds16 fs ~ fs b8 b16 ~ | % 45 + b2. cs8. ( b16 ) | % 46 + b1 | % 47 + r1 | % 48 + r1-\fermata | % 49 +} + + +LeadVoxText = \lyricmode +{ + This is _ the air _ I breathe, _ + This is _ the air _ I breathe, _ + Your ho -- ly pres -- _ cence, _ + liv -- ing _ in me. _ + + _ + + And I __ _ _ _ _ _ + I’m des -- p’rate for _ you, _ + And I __ _ _ _ _ _ + I’m lost with -- out _ you. _ + + This is _ the air _ I breathe, _ + This is _ the air _ I breathe, _ + Your ho -- ly pres -- _ cence, _ + liv -- ing _ in me. _ + + _ + + And I __ _ _ _ _ _ + I’m des -- p’rate for _ you, _ + And I __ _ _ _ _ _ + I’m lost with -- out _ you. _ + + I’m lost with -- out _ you. _ + I’m lost with -- out _ you. _ + + This is _ the air _ I breathe. _ + This is _ the air __ _ I __ _ breathe. +} + +LeadVoxTextB = \lyricmode +{ + This is _ my dai -- _ ly bread, _ + This is _ my dai -- _ ly bread, _ + Your ve -- ry word __ _ _ _ + spo -- ken _ to me. _ + + _ + + _ _ _ _ _ _ _ + _ _ _ _ _ _ _ + _ _ _ _ _ _ _ + _ _ _ _ _ _ _ + + This is _ my dai -- _ ly bread, _ + This is _ my dai -- _ ly bread, _ + Your ve -- ry word __ _ _ _ + spo -- ken _ to me. _ +} + + +Riffs = \relative c' +{ +% \clef G +%Hm. Needed anymore? +% \override Score.SpacingSpanner #'average-spacing-wishes = ##f + \set tupletSpannerDuration = #(ly:make-moment 1 4) + + % Intro + + \tiny + 4 + 4 + 4 + 4 + \normalsize +} + + +% +% Chord names +% +Chords = \chordmode +{ + % Intro + + a1:sus2 | % 1 + d1:sus2/a | % 2 + a1:sus2 | % 3 + d1:sus2/a | % 4 + + % Verse + + a1:sus2 | % 5 + d1:sus2/a | % 6 + a1:sus2 | % 7 + d1:sus2/a | % 8 + a2:sus2 e/gs | % 9 + fs2:m7 e:5.11 | % 10 + d2 fs:m7 | % 11 + + e2 e:sus4 | % 12 + + e2 e:sus4 | % 13 + + % Chorus + + a2 e/gs | % 14 + fs2:m7 e | % 15 + d2 fs:m7 | % 16 + e2 e:sus4 | % 17 + a2 e/gs | % 18 + fs2:m7 e | % 19 + d2 fs:m7 | % 20 + e1 | % 21 + + % Verse + + b1:sus2 | % 22 + e1:sus2/b | % 23 + b8:sus2 \parenthesize fs/b s2. | % 24 + e1:sus2/b | % 25 + b2 fs/as | % 26 + gs2:m7 fs:5.11 | % 27 + e2 gs:m7 | % 28 + + fs2 fs4:sus4 fs | % 29 + + fs2 fs4:sus4 fs | % 30 + + % Chorus + + b2 fs/as | % 31 + gs2:m7 fs | % 32 + e2 gs:m7 | % 33 + fs2 fs4:sus4 fs | % 34 + b2 fs/as | % 35 + gs2:m7 fs | % 36 + + e2 gs:m7 | % 37 + fs2 fs4:sus4 fs | % 38 + e2 gs:m7 | % 39 + fs2 fs4:sus4 fs | % 40 + + e2 gs:m7 | % 41 + fs1 | % 42 + + % Outro + + b1:sus2 | % 43 + e1:sus2/b | % 44 + fs1/b | % 45 + e1:sus2/b | % 46 + b1:sus2 | % 47 + e1:sus2/b | % 48 + b1:sus2 | % 49 +} + + +% +% Chord rhythms +% +% Use a RhythmicStaff on the chords instead of this? +% It almost works, but not quite. Doesn't collapse chords above to single notes... +% +Rhythm = \relative c +{ +%% \set Voice.autoBeaming = ##f +%% \set Staff.instrument = #"Rhythm" + \override Staff.TimeSignature #'style = #'() + \override NoteHead #'style = #'slash + +%Not small enough... + \teeny +% \magnify #0.3 + + % Intro + + c4 c c c | % 1 + c4 c c c | % 2 + c4 c c c | % 3 + c4 c c c | % 4 + + % Verse + + c4 c c c | % 5 + c4 c c c | % 6 + c4 c c c | % 7 + c4 c c c | % 8 + c4 c c c | % 9 + c4 c c c | % 10 + c4 c c c | % 11 + + c4 c c c | % 12 + + c4 c c c | % 13 + + % Chorus + + c4 c c c | % 14 + c4 c c c | % 15 + c4 c c c | % 16 + c4 c c c | % 17 + c4 c c c | % 18 + c4 c c c | % 19 + c4 c c c | % 20 + c1 | % 21 + + % Verse + + c4 c c c | % 22 + c4 c c c | % 23 + c4 c c c | % 24 + c4 c c c | % 25 + c4 c c c | % 26 + c4 c c c | % 27 + c4 c c c | % 28 + + c4 c c c | % 29 + + c4 c c c | % 30 + + % Chorus + + c4 c c c | % 31 + c4 c c c | % 32 + c4 c c c | % 33 + c4 c c c | % 34 + c4 c c c | % 35 + c4 c c c | % 36 + + c4 c c c | % 37 + c4 c c c | % 38 + c4 c c c | % 39 + c4 c c c | % 40 + + c4 c c c | % 41 + c1-\fermata | % 42 + + % Outro + + c4 c c c | % 43 + c4 c c c | % 44 + c4 c c c | % 45 + c4 c c2 | % 46 + c4 c c c | % 47 + c4 c c c | % 48 + c1-\fermata | % 49 +} + + +Dynamics = +{ +% s1*4 | % 1-4 +% s4_\markup { \italic { 1st X: Melody, 2nd X+: Solos } } s2. | % 5 +% s1*38 | % 1-38 +% s4_\markup { \bold \italic { Double Chorus 2nd X } } s2. | % 39 +% s1*7 | % 40-46 +% s4_\markup { \bold { Tutti } } s2. | % 47 +% s4 | % 0 +% s2.*39 | % 1-39 +% s4_\markup { \large \bold \italic { Solo } } s2 | % 40 + s4_\mp s2. | % 1 + s1*20 | % 2-21 + s4_\f s2. | % 22 + s1*8 | % 23-30 + s4_\ff s2. | % 31 + s1*5 | % 32-36 + s4_\mp s2. | % 37 + s1*3 | % 38-40 + s4_\ff s2. | % 41 + s1 | % 42 + s4_\mp s2. | % 43 + s1*2 | % 44-45 + s4_\markup { \bold \italic { rit. } } s2. | % 46 + s4_\markup { \bold \italic { a tempo } } s2. | % 47 + s2 s4_\markup { \bold \italic { rit. } } s | % 48 + s4_\markup { \bold \italic { tutti } } s2. | % 49 +} + + +\score +{ + << + \set Score.skipBars = ##t + \set Score.melismaBusyProperties = #'() + +% \new Staff + << + \new ChordNames \transpose a g \Chords +%Capo 4 edition +% \new ChordNames \transpose b g \Chords + \new RhythmicStaff << \Rhythm \Dynamics >> + >> + + \new Staff + << + \Global % The "roadmap" that everything else depends on + \new Voice = "lead" \transpose a g \LeadVox + \new Voice \transpose a g \Riffs + \new Lyrics \lyricsto "lead" \LeadVoxText + \new Lyrics \lyricsto "lead" \LeadVoxTextB + >> + >> +} + + +\paper +{ + #(define fonts (make-pango-font-tree + "Times New Roman" + "DomCasual BT" + "Luxi Mono" + (/ staffSize 20))) + +% Spread staves vertically across last page (default: t) + ragged-last-bottom = ##f +% Don't spread staves vertically across the page (default: f) +% ragged-bottom = ##t +% Allow partial line for last stave (default: f) + ragged-last = ##t + +% To find out what's eating the space at the top... +% annotate-spacing = ##t +%let's try this: [It works! Huzzah!] + obsolete-page-top-space = 0 top-system-spacing #'basic-distance = #(/ obsolete-page-top-space staff-space) +} diff --git a/brethren-we-have-met-to-worship.ly b/brethren-we-have-met-to-worship.ly new file mode 100755 index 0000000..cc14665 --- /dev/null +++ b/brethren-we-have-met-to-worship.ly @@ -0,0 +1,213 @@ +\version "2.16.0" +\include "pop-chords.ly" +\include "english.ly" + +% Good sizes are 16, 18, & 20 +staffSize = #20 +#(set-default-paper-size "letter") +#(set-global-staff-size staffSize) +#(ly:set-option (quote no-point-and-click)) + +%{ Some useful characters: ‘ ’ “ ” – — † ‡ • … %} + +\header +{ +%Let's bump up the title size and switch to the chord font. :-) + + title = \markup { \override #'(font-family . sans) \fontsize #3.5 "Brethren, We Have Met To Worship" } + composer = \markup { \override #'(font-family . sans) \fontsize #1.3 "William Moore" } + poet = \markup { \override #'(font-family . sans) \fontsize #1.3 "George Atkins" } + arranger = \markup { \override #'(font-family . sans) \fontsize #1.3 "arr. Shamus Hammons" } + tagline = $(string-append "Engraved by JLH and Lilypond " (lilypond-version)) +} + + +% +% Lead vocal +% + +LeadVox = \relative c' +{ +% \set Voice.autoBeaming = ##f +% \set Staff.instrument = #"Lead vox" + \clef G + \key g \major + \override Staff.TimeSignature #'style = #'() + \time 4/4 +\override Score.SpacingSpanner #'average-spacing-wishes = ##f + + d4 d8 ( e ) g4 g | % 1 + a4 a8 ( g ) b ( a ) g ( e ) | % 2 + d4 d8 ( e ) g4 g | % 3 + b4 a g2 | % 4 + \break + + d4 d8 ( e ) g4 g | % 5 + a4 a8 ( g ) b ( a ) g ( e ) | % 6 + d4 d8 ( e ) g4 g | % 7 + b4 a g2 | % 8 + \break + + b4 d d d | % 9 + b4 b8 ( g ) a4 g | % 10 + b4 d d d | % 11 + b b8 ( g ) a2 | % 12 + \break + + d,4 d8 ( e ) g4 g | % 13 + a4 a8 ( g ) b ( a ) g ( e ) | % 14 + d4 d8 ( e ) g4 g | % 15 + b4 a g2-\fermata \bar "|." % 16 +} + +LeadVoxText = \lyricmode +{ + Breth -- ren, _ we have met to _ wor -- _ ship, _ + to a -- _ dore the Lord and God; + + Will you _ pray with ex -- pec -- _ ta -- _ tion, _ + as we _ preach the liv -- ing word? + + All is vain un -- less the _ Spi -- rit + of the Ho -- ly One comes _ down; + + Breth -- ren, _ pray and God’s great _ bless -- _ ing _ + will be _ show -- ered all a -- round. +} + + +% +% Chord names +% + +Chords = \chordmode +{ +%Bah, can't we set this globally? +% \popChords + + g1 | % 1 + d2 g4 c | % 2 +%{ +d f# d a D 4 + +d f# d a D 8 +d g b g G 8 + +g d b G 8 +g c a Am7 8 + +g g d g G5 8 +g g c e C 8 +%} + g1 | % 3 + g4 d:7 g2 | % 4 + + g1 | % 5 + d2 g4 c | % 6 + g1 | % 7 + g4 d:7 g2 | % 8 + + g1 | % 9 + g2 d4:7 g | % 10 + g1 | % 11 + g2 d | % 12 + + g1 | % 13 + d2 g4 c | % 14 + g1 | % 15 + g4 d:7 g2 | % 16 +} + + +% +% Chord rhythms +% + +% Use a RhythmicStaff on the chords instead of this? +% It almost works, but not quite. Doesn't collapse chords above to single notes... + +StaffC = \relative c +{ +% \set Voice.autoBeaming = ##f +% \set Staff.instrument = #"Rhythm" + \override Staff.TimeSignature #'style = #'() + \time 4/4 + \override NoteHead #'style = #'slash + + c4 c c c | % 1 + c4 c c c | % 2 + c4 c c c | % 3 + c4 c c c | % 4 + + c4 c c c | % 5 + c4 c c c | % 6 + c4 c c c | % 7 + c4 c c c | % 8 + + c4 c c c | % 9 + c4 c c c | % 10 + c4 c c c | % 11 + c4 c c c | % 12 + + c4 c c c | % 13 + c4 c c c | % 14 + c4 c c c | % 15 + c4 c c2-\fermata | % 16 +} + + +Dynamics = +{ +%{ + s4_\markup { \italic { snare pat. } } s2 | % 1 + s4_\markup { \italic { simile } } s2 | % 2 + s2.*19 + s4_\markup { \italic { spacy } } s2 | % 22 + s2.*5 + s4 s \< s \! | % 28 + s2.*22 + s4_\markup { \italic { Last time } } s2 | % 51 +%} +} + + +\score +{ + << + << + \new Staff = leadStaff { \new Voice = "lead" \LeadVox } +% \new Staff = leadStaff { << \new Voice = "lead" \LeadVox \new Voice = "riffs" \Riffs >> } + \new Lyrics \lyricsto "lead" \LeadVoxText +% \new Lyrics \lyricsto "lead" \LeadVoxTextB + >> + + \new ChoirStaff = "Rhythm" + << + \new ChordNames = "chords" \Chords +% \new ChordNames = "chords2" \ChordsSup + \new RhythmicStaff = "chordRhythm" << \StaffC \Dynamics >> + >> + + \set Score.skipBars = ##t + \set Score.melismaBusyProperties = #'() + >> + + \layout + { +% \context { \Staff \RemoveEmptyStaves } +% ragged-last-bottom = ##t +% ragged-last = ##t + } +} + + +\paper +{ + #(define fonts (make-pango-font-tree + "Times New Roman" + "DomCasual BT" + "Luxi Mono" + (/ staffSize 20))) + +% top-margin = -0.25 \in +} diff --git a/change-my-heart-o-god.ly b/change-my-heart-o-god.ly new file mode 100644 index 0000000..8b39d0d --- /dev/null +++ b/change-my-heart-o-god.ly @@ -0,0 +1,275 @@ +\version "2.16.0" +\include "pop-chords.ly" +\include "english.ly" + +% Good sizes are 16, 18, & 20 +staffSize = #20 +#(set-default-paper-size "letter") +#(set-global-staff-size staffSize) +#(ly:set-option (quote no-point-and-click)) + +%{ Some useful characters: ‘ ’ “ ” – — † ‡ • … %} + +\header +{ +%Let's bump up the title size and switch to the chord font. :-) + + title = \markup { \override #'(font-family . sans) \fontsize #3.5 "Change My Heart, O God" } + composer = \markup { \override #'(font-family . sans) \fontsize #1.3 "Eddie Espinosa" } +% arranger = \markup { \override #'(font-family . sans) \fontsize #1.3 "arr. " } + tagline = $(string-append "Engraved by JLH and Lilypond " (lilypond-version)) +% Let's try a chord dictionary +% subtitle = \markup { \center-column { "F#m" \fret-diagram-terse #"x;x;4;2;2;2;" } " " \center-column { "F#m/F" \fret-diagram-terse #"x;x;3;2;2;2;" } " " \center-column { "F#m/E" \fret-diagram-terse #"x;x;2;2;2;2;" } " " \center-column { "F#m/Eb" \fret-diagram-terse #"x;x;1;2;2;2;" } " " \center-column { "Em7" \fret-diagram-terse #"o;2;2;o;3;o;" } " " \center-column { "A13" \fret-diagram-terse #"x;o;2;o;2;2;" } } +} + +% Useful tweak abbreviations (hn = harmony note) + +hn = #(define-music-function (parser location arg) (ly:music?) +;; Harmony Note: Set the tweaks property of the passed in note to use a smaller font + + (set! (ly:music-property arg 'tweaks) + (acons 'font-size -3.0 (ly:music-property arg 'tweaks))) arg) + + +% +% Song's structure +% +Global = +{ + \key c \major + \override Staff.TimeSignature #'style = #'() + \time 4/4 + + % Intro + + \once \override TextScript #'padding = #2.0 + s1*0^\markup { \large \bold { Not too slow } } +% Capo 4 version +% s1*0^\markup { \hspace #0.0 \raise #2.0 \larger \bold { "Moderate pop (*** CAPO 4 ***)" } } + + s1*4 \bar "||:" % 1-4 + + \repeat volta 2 + { + \mark \markup { \override #'(font-family . sans) { \box { A } } } + s1*7 | % 5-11 + s1^\markup { \large \bold \italic { Fine } } \bar "||" % 12 + + \mark \markup { \override #'(font-family . sans) { \box { B } } } + s1*8 | % 13-20 + } +} + + +% +% Lead vocal +% +LeadVox = \relative c' +{ +% \set Staff.instrument = #"Lead vox" + \clef G + \override Staff.TimeSignature #'style = #'() +%Hm. Needed anymore? +% \override Score.SpacingSpanner #'average-spacing-wishes = ##f + + % Intro + + s1*4 | % 1-4 + + % A section + + r4 e8 f g a4 f8 ~ | % 5 + f1 | % 6 + r4 d8 e f g4 e8 ~ | % 7 + e1 | % 8 + r4 e8 f g a4 f8 ~ | % 9 + f1 | % 10 + r4 f8 e d e4. | % 11 + c1 | % 12 + + % B section + + r2 \times 2/3 { gs'4 a b } | % 13 + c4. ( b8 ) a2 | % 14 + r4 a g a8 e ~ | % 15 + e1 | % 16 + r2 \times 2/3 { gs4 a b } | % 17 + c4. ( b8 ) a2 | % 18 + r4 a8 a g4 fs | % 19 + g1 | % 20 +} + +LeadVoxText = \lyricmode +{ + Change my heart, O God, _ + Make it e -- ver true. _ + Change my heart, O God, _ + May I be like you. + + You are the pot -- _ ter, + I am the clay, _ + Mold me and make _ me, + This is what I pray. _ +} + + +Riffs = \relative c' +{ + \clef G +%Hm. Needed anymore? +% \override Score.SpacingSpanner #'average-spacing-wishes = ##f + + % Intro + + \tiny + r4 e8 f g a4 f8 ~ | % 1 + f1 | % 2 + r4 f8 e d e4. | % 3 + c1 | % 4 + \normalsize +} + + +% +% Chord names +% +Chords = \chordmode +{ +%Bah, can't we set this globally? +% \popChords + + % Intro + + s1 | % 1 + d1:m7 | % 2 + g1:7 | % 3 + c1 | % 4 + + % A section + + s1 | % 5 + d1:m7 | % 6 + g1 | % 7 + c1 | % 8 + a1:m7 | % 9 + d1:m7 | % 10 + g1:7 | % 11 + c1 | % 12 + + % B section + + e2:sus4 \times 2/3 { e4 e:sus4/fs e/gs } | % 13 + a1:m | % 14 + d2:m7 g:7 | % 15 + c1 | % 16 + e2:sus4 \times 2/3 { e4 e:sus4/fs e/gs } | % 17 + a1:m | % 18 + c2./d d4:7 | % 19 + g2:sus4 g | % 20 +} + + +% +% Chord rhythms +% +% Use a RhythmicStaff on the chords instead of this? +% It almost works, but not quite. Doesn't collapse chords above to single notes... +% +Rhythm = \relative c +{ +%% \set Voice.autoBeaming = ##f +%% \set Staff.instrument = #"Rhythm" + \override Staff.TimeSignature #'style = #'() + \override NoteHead #'style = #'slash + + % Intro + + r1 | % 1 + c4 c c c | % 2 + c4 c c c | % 3 + c4 c c c | % 4 + + % A section + + r1 | % 5 + c4 c c c | % 6 + c4 c c c | % 7 + c4 c c c | % 8 + c4 c c c | % 9 + c4 c c c | % 10 + c4 c c c | % 11 + c4 c c c | % 12 + + % B section + + c2 \times 2/3 { c4 c c } | % 13 + c4 c c c | % 14 + c4 c c c | % 15 + c4 c c c | % 16 + c2 \times 2/3 { c4 c c } | % 17 + c4 c c c | % 18 + c4 c c c | % 19 + c4 c c c | % 20 +} + + +Dynamics = +{ +%{ + s4_\markup { \italic { snare pat. } } s2 | % 1 + s4_\markup { \italic { simile } } s2 | % 2 + s2.*19 + s4_\markup { \italic { spacey } } s2 | % 22 + s2.*5 + s4 s \< s \! | % 28 + s2.*22 + s4_\markup { \italic { Last time } } s2 | % 51 +%} +} + + +\score +{ + << + \set Score.skipBars = ##t + \set Score.melismaBusyProperties = #'() + +% \new Staff + << + \new ChordNames \Chords +%Capo 4 edition +% \new ChordNames \transpose b g \Chords + \new RhythmicStaff << \Rhythm \Dynamics >> + >> + + \new Staff + << + \Global % The "roadmap" that everything else depends on + \new Voice = "lead" \LeadVox + \new Voice \Riffs + \new Lyrics \lyricsto "lead" \LeadVoxText + >> + >> +} + + +\paper +{ + #(define fonts (make-pango-font-tree + "Times New Roman" + "DomCasual BT" + "Luxi Mono" + (/ staffSize 20))) + +% Spread staves vertically across last page (default: t) + ragged-last-bottom = ##f +% Don't spread staves vertically across the page (default: f) + ragged-bottom = ##t +% Allow partial line for last stave (default: f) + ragged-last = ##t + +% To find out what's eating the space at the top... +% annotate-spacing = ##t +%let's try this: [It works! Huzzah!] + obsolete-page-top-space = 0 top-system-spacing #'basic-distance = #(/ obsolete-page-top-space staff-space) +} diff --git a/child-of-love.ly b/child-of-love.ly new file mode 100644 index 0000000..7329450 --- /dev/null +++ b/child-of-love.ly @@ -0,0 +1,494 @@ +\version "2.16.0" +\include "pop-chords.ly" +\include "english.ly" + +% Good sizes are 16, 18, & 20 +staffSize = #18 +#(set-default-paper-size "letter") +#(set-global-staff-size staffSize) +#(ly:set-option (quote no-point-and-click)) + +%{ Some useful characters: ‘ ’ “ ” – — † ‡ • … %} + +\header +{ +%Let's bump up the title size and switch to the chord font. :-) + + title = \markup { \override #'(font-family . sans) \fontsize #3.5 "Child of Love" } + composer = \markup { \override #'(font-family . sans) \fontsize #1.3 "Sara Groves/Mark Lee, Matthew West, Steve Hindalong" } +% arranger = \markup { \override #'(font-family . sans) \fontsize #1.3 "arr. " } + tagline = $(string-append "Engraved by JLH and Lilypond " (lilypond-version)) +% Let's try a chord dictionary +% subtitle = \markup { \center-column { "F#m" \fret-diagram-terse #"x;x;4;2;2;2;" } " " \center-column { "F#m/F" \fret-diagram-terse #"x;x;3;2;2;2;" } " " \center-column { "F#m/E" \fret-diagram-terse #"x;x;2;2;2;2;" } " " \center-column { "F#m/Eb" \fret-diagram-terse #"x;x;1;2;2;2;" } " " \center-column { "Em7" \fret-diagram-terse #"o;2;2;o;3;o;" } " " \center-column { "A13" \fret-diagram-terse #"x;o;2;o;2;2;" } } +} + +% Useful tweak abbreviations (hn = harmony note) + +hn = #(define-music-function (parser location arg) (ly:music?) +;; Harmony Note: Set the tweaks property of the passed in note to use a smaller font + + (set! (ly:music-property arg 'tweaks) + (acons 'font-size -3.0 (ly:music-property arg 'tweaks))) arg) + + +% +% Song's structure +% +Global = +{ + \key b \minor + \override Staff.TimeSignature #'style = #'() + \time 2/2 + + % Intro + + \once \override TextScript #'padding = #2.0 + s1*0^\markup { \large \bold { Not too fast } } +% Capo 4 version +% s1*0^\markup { \hspace #0.0 \raise #2.0 \larger \bold { "Moderate pop (*** CAPO 4 ***)" } } + + \repeat volta 2 + { + % Intro + + s1*7 \bar "||" % 1-7 + + % Verse + + \mark \markup { \override #'(font-family . sans) { \box { A } } } + s1*18 \bar "||" % 8-25 + + % Chorus + + \mark \markup { \override #'(font-family . sans) { \box { B } } } + s1*14 | % 26-39 + } + + % Chorus + + \mark \markup { \override #'(font-family . sans) { \box { C } } } + s1*14 \bar "||" % 40-53 + + % Midtro + + s1*7 \bar "||" % 54-60 + + % Outro + + \mark \markup { \override #'(font-family . sans) { \box { D } } } + s1*5 \bar "|." % 61-65 +} + + +% +% Lead vocal +% +LeadVox = \relative c' +{ +% \set Staff.instrument = #"Lead vox" + \clef G + \override Staff.TimeSignature #'style = #'() +%Hm. Needed anymore? +% \override Score.SpacingSpanner #'average-spacing-wishes = ##f + + % Intro + + s1*7 | % 1-7 + + % Verse + + b2 cs | % 8 + d2 cs | % 9 + b2. a8 fs ~ | % 10 + fs2 r | % 11 + + b2 cs | % 12 + d2 fs | % 13 + e2. d8 d ~ | % 14 + d2 r4 r8 \tiny fs, \normalsize | % 15 + + b2 cs | % 16 + d2 cs | % 17 + b2. a8 fs ~ | % 18 + fs2 r | % 19 + + b2 cs | % 20 + d2 fs | % 21 + e2 b | % 22 + e2 b | % 23 + d1 | % 24 + cs1 | % 25 + + % Chorus + + d2 fs4 a | % 26 + a4 d,8 d ~ d e4 e8 ~ | % 27 + e2 r | % 28 + fs2 e4. d8 ~ | % 29 + + d2 fs4 a8 a ~ | % 30 + a4 d,8 d ~ d e4 e8 ~ | % 31 + e2 r4 e8 d | % 32 + fs4. e8 ~ e4 d8 d ~ | % 33 + + d4 r8 a d e d4 | % 34 + a8 fs'4 e8 ~ e8 d4 r8 | % 35 + d8 e4 fs8 ~ fs4. e8 ~ | % 36 + e4 d8 b8 ~ b4 r | % 37 + r1 | % 38 + d8 ( e fs e ~ e4 ) d8 d ~ | % 39 + + % Chorus + + d4 r4 fs4 a | % + a4 d,8 d ~ d e4 e8 ~ | % + e2 r | % + fs2 e4. d8 ~ | % + + d2 fs4 a8 a ~ | % + a4 d,8 d ~ d e4 e8 ~ | % + e2 r4 e8 d | % + fs4. e8 ~ e4 d8 d ~ | % + + d4 r8 a d e d4 | % + a8 fs'4 e8 ~ e8 d4 a8 | % + d8 e4 fs8 ~ fs4. e8 ~ | % + e4 d8 b8 ~ b4 r | % + r1 | % + d8 ( e fs e ~ e4 ) d8 d ~ | % + + % Midtro + +\voiceTwo + d4 s2. | % +\oneVoice + s1*6 | % + + % Verse + + b2 cs | % + d2 cs | % + b2. a8 fs ~ | % + fs2 r | % + r1-\fermata | % +} + +LeadVoxText = \lyricmode +{ + Child of won -- der, close Your eyes _ + Rest here in my arms to -- night _ + _ Some -- day You will save the world _ + But to -- night I’ll hold You right here in my arms + + Pre -- cious mir -- a -- cle _ of life, _ child of love _ + Gift of hope, _ the gift _ of light _ from the Fa -- ther _ a -- bove _ + And You were made for all man -- _ kind + You will al -- _ ways _ be mine, _ child __ _ _ _ _ of love _ + + Pre -- cious mir -- a -- cle _ of life, _ child of love _ + Gift of hope, _ the gift _ of light _ from the Fa -- ther _ a -- bove _ + And You were made for all man -- _ kind + But You will al -- _ ways _ be mine, _ child __ _ _ _ _ of love _ + + Child of won -- der, close Your eyes. _ +} + +LeadVoxTextB = \lyricmode +{ + Ga -- briel’s pro -- mise has come true _ + God has blessed this world with You _ + And as I hum -- bly hold You now _ + In my heart I know I’m hold -- ing Hea -- ven’s child +} + + +Riffs = \relative c' +{ + \clef G +%Hm. Needed anymore? +% \override Score.SpacingSpanner #'average-spacing-wishes = ##f + + % Intro + + \tiny + b8 fs' d' b a, fs' d' b | % 1 + g,8 fs' d' b ~ b2 | % 2 + b,8 fs' d' b a, fs' d' b | % 3 + g,8 fs' d' b ~ b2 | % 4 + b,8 fs' d' b a, fs' d' b | % 5 + g,8 fs' d' b ~ b2 ~ | % 6 + b1 | % 7 + + s1*46 | % 8-53 + +\voiceOne + b,8 fs' d' b a, fs' d' b | % 54 +\oneVoice + g,8 fs' d' b ~ b2 | % 55 + b,8 fs' d' b a, fs' d' b | % 56 + g,8 fs' d' b ~ b2 | % 57 + b,8 fs' d' b a, fs' d' b | % 58 + g,8 fs' d' b ~ b2 ~ | % 59 + b1 | % 60 + \normalsize +} + + +% +% Chord names +% +Chords = \chordmode +{ +%Bah, can't we set this globally? +% \popChords + + % Intro + + b2:m b:m/a | % 1 + b1:m/g | % 2 + b2:m b:m/a | % 3 + b1:m/g | % 4 + b2:m b:m/a | % 5 + b1:m/g | % 6 + s1 | % 7 + + % Verse + + b2:m b:m/a | % 8 + b2:m/g b:m/fs | % 9 + e2:m a | % 10 + d1 | % 11 + + b2:m b:m/a | % 12 + b2:m/g b:m/fs | % 13 + e2:m a | % 14 + d1 | % 15 + + b2:m b:m/a | % 16 + b2:m/g b:m/fs | % 17 + e2:m a | % 18 + d1 | % 19 + + b2:m b:m/a | % 20 + b2:m/g b:m/fs | % 21 + e1 | % 22 + s1 | % 23 + g1 | % 24 + a1 | % 25 + + % Chorus + + d1 | % 22 + g1 | % 23 + a1 | % 24 + g1 | % 25 + + d1 | % 26 + g1 | % 27 + a1 | % 28 + g1 | % 29 + + d1 | % 30 + g1 | % 31 + b2:m b:m/a | % 32 + b2:m/g b:m/fs | % 33 + e1:m | % 34 + a1 | % 35 + + % Chorus + + d1 | % 22 + g1 | % 23 + a1 | % 24 + g1 | % 25 + + d1 | % 26 + g1 | % 27 + a1 | % 28 + g1 | % 29 + + d1 | % 30 + g1 | % 31 + b2:m b:m/a | % 32 + b2:m/g b:m/fs | % 33 + e1:m | % 34 + a1 | % 35 + + % Midtro + + b2:m b:m/a | % 1 + b1:m/g | % 2 + b2:m b:m/a | % 3 + b1:m/g | % 4 + b2:m b:m/a | % 5 + b1:m/g | % 6 + s1 | % 7 + + % Outro + + b2:m b:m/a | % 8 + b2:m/g b:m/fs | % 9 + e2:m a | % 10 + d1 | % 11 +} + + +% +% Chord rhythms +% +% Use a RhythmicStaff on the chords instead of this? +% It almost works, but not quite. Doesn't collapse chords above to single notes... +% +Rhythm = \relative c +{ +%% \set Voice.autoBeaming = ##f +%% \set Staff.instrument = #"Rhythm" + \override Staff.TimeSignature #'style = #'() + \override NoteHead #'style = #'slash + + % Intro + + c4 c c c | % 1 + c4 c c c | % 2 + c4 c c c | % 3 + c4 c c c | % 4 + c4 c c c | % 5 + c4 c c c | % 6 + c4 c c c | % 7 + + % Verse + + c4 c c c | % + c4 c c c | % + c4 c c c | % + c4 c c c | % + c4 c c c | % + c4 c c c | % + c4 c c c | % + c4 c c c | % + c4 c c c | % + c4 c c c | % + c4 c c c | % + c4 c c c | % + c4 c c c | % + c4 c c c | % + c4 c c c | % + c4 c c c | % + c4 c c c | % + c4 c c c | % + + % Chorus + + c4 c c c | % + c4 c c c | % + c4 c c c | % + c4 c c c | % + c4 c c c | % + c4 c c c | % + c4 c c c | % + c4 c c c | % + c4 c c c | % + c4 c c c | % + c4 c c c | % + c4 c c c | % + c4 c c c | % + c4 c c c | % + + % Chorus + + c4 c c c | % + c4 c c c | % + c4 c c c | % + c4 c c c | % + c4 c c c | % + c4 c c c | % + c4 c c c | % + c4 c c c | % + c4 c c c | % + c4 c c c | % + c4 c c c | % + c4 c c c | % + c4 c c c | % + c4 c c c | % + + % Midtro + + c4 c c c | % + c4 c c c | % + c4 c c c | % + c4 c c c | % + c4 c c c | % + c4 c c c | % + c4 c c c | % + + % Outro + + c4 c c c | % + c4 c c c | % + c4 c c c | % + c4 c c c ~ | % + c1-\fermata | % +} + + +Dynamics = +{ +%{ + s4_\markup { \italic { snare pat. } } s2 | % 1 + s4_\markup { \italic { simile } } s2 | % 2 + s2.*19 + s4_\markup { \italic { spacey } } s2 | % 22 + s2.*5 + s4 s \< s \! | % 28 + s2.*22 + s4_\markup { \italic { Last time } } s2 | % 51 +%} +} + + +\score +{ + << + \set Score.skipBars = ##t + \set Score.melismaBusyProperties = #'() + +% \new Staff + << + \new ChordNames \Chords +%Capo 4 edition +% \new ChordNames \transpose b g \Chords + \new RhythmicStaff << \Rhythm \Dynamics >> + >> + + \new Staff + << + \Global % The "roadmap" that everything else depends on + \new Voice = "lead" \LeadVox + \new Voice \Riffs + \new Lyrics \lyricsto "lead" \LeadVoxText + \new Lyrics \lyricsto "lead" \LeadVoxTextB + >> + >> +} + + +\paper +{ + #(define fonts (make-pango-font-tree + "Times New Roman" + "DomCasual BT" + "Luxi Mono" + (/ staffSize 20))) + +% Spread staves vertically across last page (default: t) +% ragged-last-bottom = ##f +% Don't spread staves vertically across the page (default: f) +% ragged-bottom = ##t +% Allow partial line for last stave (default: f) + ragged-last = ##t + +% To find out what's eating the space at the top... +% annotate-spacing = ##t +%let's try this: [It works! Huzzah!] + obsolete-page-top-space = 0 top-system-spacing #'basic-distance = #(/ obsolete-page-top-space staff-space) +} diff --git a/come-and-see.ly b/come-and-see.ly new file mode 100644 index 0000000..44166bd --- /dev/null +++ b/come-and-see.ly @@ -0,0 +1,511 @@ +% Still need hairpins, directions, dynamics, etc... + +\version "2.16.0" +\include "pop-chords.ly" +\include "english.ly" + +% Good sizes are 16, 18, & 20 +staffSize = #18 +#(set-default-paper-size "letter") +#(set-global-staff-size staffSize) +#(ly:set-option (quote no-point-and-click)) + +%{ Some useful characters: ‘ ’ “ ” – — † ‡ • … %} + +\header +{ +%Let's bump up the title size and switch to the chord font. :-) + + title = \markup { \override #'(font-family . sans) \fontsize #3.5 "Come And See" } + composer = \markup { \override #'(font-family . sans) \fontsize #1.3 "Lenny LeBlanc" } + arranger = \markup { \override #'(font-family . sans) \fontsize #1.3 "arr. Ed Smart" } + tagline = $(string-append "Engraved by JLH and Lilypond " (lilypond-version)) +} + + +% +% Song's structure +% +Global = +{ + \key f \major + \override Staff.TimeSignature #'style = #'() + \time 4/4 + + % Intro + + s1*4 | % 1-4 + + % Verse + + \repeat volta 2 + { + \once \override Score.RehearsalMark #'self-alignment-X = #left + \mark \markup { \override #'(font-family . sans) { \box { A } } \hspace #1.0 \raise #2.0 \musicglyph #"scripts.segno" } + + s1*7 | % 5-11 + } + \alternative + { + { + s1 | % 12 + } + { + s1 \bar "||" % 13 + } + } + + % Chorus + + \mark \markup { \override #'(font-family . sans) \box { B } } + + s1*3 | % 14-16 + + \once \override Score.RehearsalMark #'self-alignment-X = #right + \once \override Score.RehearsalMark #'break-visibility = #begin-of-line-invisible + \mark \markup { \italic { to Coda } \hspace #1.0 \musicglyph #"scripts.coda" } + + \time 2/4 s2 \time 4/4 | % 17 + + s1 \bar "||" % 18 + + \mark \markup { \override #'(font-family . sans) \box { C } } + + s1*3 | % 19-21 + + \time 2/4 s2 \time 4/4 | % 22 + + s1 \bar "||" % 23 + + \once \override Score.RehearsalMark #'self-alignment-X = #right + \mark \markup { \italic { D.S. al Coda (2nd end.) } } + + \stopStaff s1 \startStaff + \set Score.currentBarNumber = #24 + + % Coda + + \once \override Score.RehearsalMark #'self-alignment-X = #left + \mark \markup { { \musicglyph #"scripts.coda" } "Coda" } + + s1*2 \bar "||" % 24-25 + + \mark \markup { \override #'(font-family . sans) \box { D } } + + s1*4 | % 26-29 + + \repeat volta 4 + { + \mark \markup { \override #'(font-family . sans) \box { E } } + + s1*3 | % 30-32 + } + \alternative + { + { + s1 | % 33 + } + { + \time 2/4 s2 \time 4/4 | % 34 + } + } + + % Verse + + s1 \bar "||" % 35 + + \mark \markup { \override #'(font-family . sans) \box { F } } + + s1*11 \bar "||" % 36-46 + + % Outro + + s1*4 \bar "|." % 47-50 +} + + +% +% Lead vocal +% + +LeadVox = \relative c' +{ +% \set Voice.autoBeaming = ##f +% \set Staff.instrument = #"Lead vox" + \clef G +\override Score.SpacingSpanner #'average-spacing-wishes = ##f + + % Intro + + R1 | % 1 + R1 | % 2 + R1 | % 3 + R1 | % 4 + + % Verse + + f4. c8 g'4. ~ g16 a | % 5 + bf8 a16 g ~ g f f8 ~ f4 r | % 6 + r4 f8 f e4 ( d8. ) c16 | % 7 + c2 r | % 8 + f4. c8 g'4. ~ g16 a | % 9 + a8 bf16 a ~ a8 g16 ( f ) f4 r | % 10 + d8 e16 f ~ f8 g16 ( f ) a8 ( g16 f e8. f16 ) | % 11 + + f2 r | % 12 + + f2 r8. f16 a c8. \bar "||" % 13 + + % Chorus + + c8 c16 c ~ c8 g16 g ( ~ g8. a16 ) a4 | % 14 + bf8 bf16 bf ( ~ bf a ) a a ~ a4 r | % 15 + c8 c16 c ~ c8 g16 g ( ~ g8. a16 ) a4 | % 16 + bf8 bf16 bf ( ~ bf a ) a8 | % 17 + a2. r4 \bar "||" % 18 + + bf4. ( ~ bf16 a32 g ) bf4 r | % 19 + a4 ( ~ a16 bf a g ) g4 r | % 20 + bf4. ( ~ bf16 a32 g ) bf4 r | % 21 + a4 ( ~ a16 bf a g ) | % 22 + g1 \bar "||" % 23 + + s1 % coda spacer + + % Coda + + bf8 bf r bf bf a16 g ~ g8 f | % 24 + a1 \bar "||" % 25 + + R1 | % 26 + R1 | % 27 + R1 | % 28 + R1 | % 29 + + bf4. ( ~ bf16 a32 g ) bf4 r | % 30 + a4 ( ~ a16 bf a g ) g4 r | % 31 + bf4. ( ~ bf16 a32 g ) bf4 r | % 32 + + a4 ( ~ a16 bf a g ) g4 r | % 33 + + a4 ( ~ a16 bf a g ) | % 34 + + % Verse + + g1 \bar "||" % 35 + + f4. c8 g'4. ~ g16 a | % 36 + bf8 a16 g ~ g f f8 ~ f4 r | % 37 + r4 f8 f e4 ( d8. ) c16 | % 38 + c2 r | % 39 + f4. c8 g'4. ~ g16 a | % 40 + a8 bf16 a ~ a8 g16 ( f ) f4 r | % 41 + d8 e16 f ~ f8 g16 ( f ) a8 ( g16 f e8. f16 ) | % 42 + f2 r | % 43 + d8 e16 f ~ f8 g16 ( f ) a8 ( g16 f e8. f16 ) | % 44 + f2 r | % 45 + d8 e16 f ~ f8 g16 ( f ) a8 ( g16 f e8. f16 ) \bar "||" % 46 + + % Outro + + f2 r | % 47 + R1 | % 48 + R1 | % 49 + r1^\fermata \bar "|." % 50 +} + +LeadVoxText = \lyricmode +{ + Come and see _ the glo -- ry of _ the Lord _ + Come be -- hold __ _ the Lamb + Come and know _ the mer -- cy of _ the __ _ King + Bow -- ing down _ be -- _ fore __ _ _ _ _ him + + him + + For he is Lord of all _ the hea -- _ _ vens + Lord in all __ _ _ the earth; _ + Lord of all _ cre -- a -- _ _ tion + Wor -- thy to __ _ _ be served + + Ha -- _ _ _ le -- lu -- _ _ _ _ jah + Ha -- _ _ _ le -- lu -- _ _ _ _ jah + + Wor -- thy, so wor -- thy to _ be served. + + Ha -- _ _ _ le -- lu -- _ _ _ _ jah + Ha -- _ _ _ le -- lu -- _ _ _ _ jah + + lu -- _ _ _ _ jah + + Come and see _ the glo -- ry of _ the Lord _ + Come be -- hold __ _ the Lamb + Come and know _ the mer -- cy of _ the __ _ King + Bow -- ing down _ be -- _ fore __ _ _ _ _ him + Bow -- ing down _ be -- _ fore __ _ _ _ _ him + Bow -- ing down _ be -- _ fore __ _ _ _ _ him +} + +LeadVoxTextB = \lyricmode +{ + Come and give _ _ thanks un -- to _ the Lord _ + Come be -- hold __ _ the Lamb + Come and sing _ _ prais -- es of _ the __ _ King + Bow -- ing down _ be -- _ fore __ _ _ _ +} + + +% +% Riffs +% + +Riffs = \relative c'' +{ +%{ + % Intro + + s1*41 | % 1-41 + + \tiny + e8 b ds b cs b ds b | % 42 + e8 b ds b cs b ds b | % 43 + e8 b ds b cs b ds b | % 44 +%} +} + + +% +% Chord names +% + +Chords = \chordmode +{ + % Intro + + f2 c/e | % 1 + bf2:sus2/d f/c | % 2 + bf2:sus2 f4/c c:7 | % 3 + f2:sus4 f | % 4 + + % Verse + + f2 c/e | % 5 + bf2:sus2/d f/c | % 6 + bf2:sus2 c4:11^9.7 bf/c | % 7 + f2 bf/c | % 8 + f2 c | % 9 + a4:sus4 a d:m d:m/c | % 10 + bf2:sus2 f4/c c:7 | % 11 + + f2 bf/f | % 12 + + f1 | % 13 + + % Chorus + + c2 c4/e f | % 14 + bf2 f | % 15 + c2 c4/e f | % 16 + bf2 | % 17 + a2:sus4 a | % 18 + g2:m11 bf:sus2 | % 19 + f2/c c | % 20 + g2:m11 bf:sus2 | % 21 + f2/c | % 22 + c1 | % 23 + +s1 + % Coda + + bf2 g:m7 | % 24 + a2:sus4 a | % 25 + g2:m11 bf | % 26 + f2/c c | % 27 + g2:m11 bf/d | % 28 + f2/c c/e | % 29 + + g2:m11 bf | % 30 + f2/c c | % 31 + g2:m11 bf/d | % 32 + + f2/c c/e | % 33 + + f2/c | % 34 + + % Verse + + c1 | % 35 + + f2 c/e | % 36 + bf2:sus2/d f/c | % 37 + bf2:sus2 c4:11^9.7 bf/c | % 38 + f2 bf/c | % 39 + f2 c | % 40 + a4:sus4 a d:m d:m/c | % 41 + bf2:sus2 f4/c c:7 | % 42 + f2 f/a | % 43 + bf2:sus2 f4/c c:7 | % 44 + d2:m d:m/c | % 45 + bf2:sus2 f4/c c:7 | % 46 + + % Outro + + f2 c/e | % 47 + bf2:sus2/d f/c | % 48 + bf2:sus2 f4/c c:7 | % 49 + f1 | % 50 +} + + +% +% Chord rhythms +% + +Rhythm = \relative c +{ +% \set Voice.autoBeaming = ##f +% \set Staff.instrument = #"Rhythm" + \override Staff.TimeSignature #'style = #'() + \time 4/4 + \override NoteHead #'style = #'slash +\tiny + + % Intro + + c4 c c c | % 1 + c4 c c c | % 2 + c4 c c c | % 3 + c4 c c c | % 4 + + % Verse + + c4 c c c | % 5 + c4 c c c | % 6 + c4 c c c | % 7 + c4 c c c | % 8 + c4 c c c | % 9 + c4 c c c | % 10 + c4 c c c | % 11 + + c4 c c c | % 12 + + c4 c c c \bar "||" % 13 + + % Chorus + + c2-> c4-> c-> | % 14 + c4 c c c | % 15 + c2-> c4-> c-> | % 16 + c4 c | % 17 + c4 c c c \bar "||" % 18 + c4 c c c | % 19 + c4 c c c | % 20 + c4 c c c | % 21 + c4 c | % 22 + c4 c c2 \bar "||" % 23 + + % Coda + + % blank measure between last measure and coda +%hm. Shouldn't need /startStaff /stopStaff... !!! FIX !!! + \stopStaff s1 \startStaff + + c4 c c c | % 24 + c4 c c c \bar "||" % 25 + c4 c c c | % 26 + c4 c c c | % 27 + c4 c c c | % 28 + c4 c c c | % 29 + + c4 c c c | % 30 + c4 c c c | % 31 + c4 c c c | % 32 + + c4 c c c | % 33 + + c4 c | % 34 + + % Verse + + c4 c c2 \bar "||" % 35 + + c4 c c c | % 36 + c4 c c c | % 37 + c4 c c c | % 38 + c4 c c c | % 39 + c4 c c c | % 40 + c4 c c c | % 41 + c4 c c c | % 42 + c4 c c c | % 43 + c4 c c c | % 44 + c4 c c c | % 45 + c4 c c c \bar "||" % 46 + + % Outro + + c4 c c c | % 47 + c4 c c c | % 48 + c4 c c c | % 49 + c1^\fermata \bar "|." % 50 +} + + +Dynamics = +{ +%{ + % Intro + s4_\markup { \italic { Ac. gtr only } } s2. | % 1 + + s1*3 | % 2-4 + + s4_\markup { \italic { Band in } } s2. | % 5 +%} +} + + +\score +{ + << + \set Score.skipBars = ##t + \set Score.melismaBusyProperties = #'() + +% \new ChoirStaff + << + \new ChordNames \Chords +%Capo 3 edition +% \new ChordNames \transpose f d \Chords + \new RhythmicStaff << \Rhythm \Dynamics >> + >> + + \new Staff + << + \Global % The "roadmap" that everything else depends on + \new Voice = "lead" \LeadVox + \new Voice \Riffs + \new Lyrics \lyricsto "lead" \LeadVoxText + \new Lyrics \lyricsto "lead" \LeadVoxTextB + >> + >> +} + + +\paper +{ + #(define fonts (make-pango-font-tree + "Times New Roman" + "DomCasual BT" + "Luxi Mono" + (/ staffSize 20))) + +% Don't spread staves vertically across last page (default: t) +% ragged-last-bottom = ##f +% Don't spread staves vertically across the page (default: f) +% ragged-bottom = ##t +% Allow partial line for last stave (default: f) + ragged-last = ##t + +% To find out what's eating the space at the top... +% annotate-spacing = ##t +%let's try this: [It works! Huzzah!] + obsolete-page-top-space = 0 top-system-spacing #'basic-distance = #(/ obsolete-page-top-space staff-space) +} diff --git a/come-just-as-you-are.ly b/come-just-as-you-are.ly new file mode 100644 index 0000000..958c329 --- /dev/null +++ b/come-just-as-you-are.ly @@ -0,0 +1,608 @@ +\version "2.16.0" +\include "pop-chords.ly" +\include "english.ly" + +% Good sizes are 16, 18, & 20 +staffSize = #16 +#(set-default-paper-size "letter") +#(set-global-staff-size staffSize) +#(ly:set-option (quote no-point-and-click)) + +%{ Some useful characters: ‘ ’ “ ” – — † ‡ • … %} + +\header +{ +%Let's bump up the title size and switch to the chord font. :-) + + title = \markup { \override #'(font-family . sans) \fontsize #3.5 "Come Just As You Are" } + composer = \markup { \override #'(font-family . sans) \fontsize #1.3 "Joseph Sabolick" } +% arranger = \markup { \override #'(font-family . sans) \fontsize #1.3 "" } + tagline = $(string-append "Engraved by JLH and Lilypond " (lilypond-version)) +} + +% Useful tweak abbreviations (hn = harmony note) + +hn = #(define-music-function (parser location arg) (ly:music?) +;; Harmony Note: Set the tweaks property of the passed in note to use a smaller font + + (set! (ly:music-property arg 'tweaks) + (acons 'font-size -3.5 (ly:music-property arg 'tweaks))) arg) + + +% +% Song's structure +% +Global = +{ + \key e \major + \override Staff.TimeSignature #'style = #'() + \time 4/4 + + % Intro + + s1*4 | % 1-4 + + \repeat volta 2 + { + % Verse + + \mark \markup { \override #'(font-family . sans) { \box { A } } } + + s1*16 \bar "||" % 5-20 + + % Chorus + +% \mark \markup { \override #'(font-family . sans) { \box { B } } } + \once \override Score.RehearsalMark #'self-alignment-X = #left + \mark \markup { \override #'(font-family . sans) { \box { B } } \hspace #1.0 \raise #2.0 \musicglyph #"scripts.segno" } + + s1*6 | % 21-26 + s1 | % 27 + +\once \override Score.RehearsalMark #'self-alignment-X = #right +\mark \markup { \italic { to Coda } \musicglyph #"scripts.coda" } + + } + \alternative + { + { + s1*3 | % 28-30 + } + { + s1 | % 31 + } + } + + % Bridge + + \mark \markup { \override #'(font-family . sans) { \box { C } } } + + s1*10 \bar "||" % 32-41 + + \mark \markup { \override #'(font-family . sans) { \box { D } } } + + s1^\markup { \italic { Repeat figure thru to D.S. } } | % 42 + s1*10 | % 43-52 + s1 \bar "||" % 53 + + \once \override Score.RehearsalMark #'self-alignment-X = #right + \mark \markup { \italic { D.S. al Coda } } + + % Coda + + % blank measure between last measure and coda +% \stopStaff s1 \bar "" \startStaff % That removed the spurious floating bar line from line break + \stopStaff s1 \startStaff % That removed the spurious floating bar line from line break +% \break % Meh + \set Score.currentBarNumber = #54 + + \once \override Score.RehearsalMark #'self-alignment-X = #left + \mark \markup { { \musicglyph #"scripts.coda" } "Coda" } + + s1 | % 54 + + \repeat volta 2 + { + % Chorus + + \mark \markup { \override #'(font-family . sans) { \box { E } } } + + s1*3 | % 55-57 + } + \alternative + { + { + s1 | % 58 + } + { + s1 | % 59 + } + } + + % Outro + + \mark \markup { \override #'(font-family . sans) { \box { F } } } + + s1*7 \bar "|." % 60-66 + +%{ + +% \once \override TextScript #'padding = #2.0 +% s1*0^\markup { \large \bold { Moderately fast pop } } +%%Capo 3 version +%% s1*0^\markup { \large \bold { Moderately fast pop "(*** CAPO 3 ***)" } } +% s1*13 \bar "||:" % 1-13 + +%} +} + + +% +% Lead vocal +% +LeadVox = \relative c' +{ + \clef G + \override Score.SpacingSpanner #'average-spacing-wishes = ##f + + % Intro + + r1 | % 1 + r1 | % 2 + r1 | % 3 + r2 r4 r8 e | % 4 + + % Verse + + e4 ds cs r8 e | % 5 + e4 fs e2 | % 6 + r4 r8 e e4 cs8 cs ~ | % 7 + cs8 b ~ b4 r r8 e8 | % 8 + e4 ds cs4. e8 | % 9 + e4 fs e4. b8 | % 10 + b1 | % 11 + r2 r4 r8 e | % 12 + e4 ds cs r8 e | % 13 + e4 fs e2 | % 14 + r4 r8 e e4 gs8 gs ~ | % 15 + gs8 fs ~ fs4 r r8 e | % 16 + e4 ds cs r8 e | % 17 + e4 fs e4. gs8 | % 18 + gs8 ( fs ) ~ fs2. | % 19 + r2 r4 16 8 | % 20 + + % Chorus + + 8 4 16 8 | % 21 + 8 4 16 8 | % 22 + 8 8. e16 a8 gs | % 23 + gs8 fs ~ fs2 16 8 | % 24 + 8 4 16 8 | % 25 + 8 4 16 8 | % 26 + 8 8. e16 8 | % 27 + + 8 ~ 4 ~ 8. e16 fs8. e16 | % 28 + fs8 gs ~ gs2. | % 29 + r2 r4 r8 e | % 30 + + 8 ~ 2. | % 31 + + % Bridge + + r8 gs gs gs gs gs b4 | % 32 + r8 gs gs gs b cs gs16 ( fs ) ~ fs8 | % 33 + r8 gs gs gs gs gs gs fs | % 34 + fs16 ( e ) ~ e8 ~ e2 r4 | % 35 + r8 gs gs gs gs gs b4 | % 36 + r8 gs gs gs b cs gs16 ( fs ) ~ fs8 | % 37 + r8 gs gs gs gs fs e4 | % 38 + r8 8 4 8 ~ | % 39 + 2. 8 ~ | % 40 + 1 | % 41 + + % Chorus + + s1 | % 42 + s1 | % 43 + s1 | % 44 + r2 r4 gs,16 b b8 | % 45 + << { \voiceOne cs4. b8 ~ b2 ~ } \new Voice = "v2" { \voiceTwo r2 r4 gs16 b b8 } >> | % 46 + << { \voiceOne b2. } \context Voice = "v2" { \voiceTwo cs4. b8 ~ b4 } >> \oneVoice gs16 b b8 | % 47 + cs4. b8 ~ b8. gs16 a8. gs16 | % 48 + gs8 fs ~ fs2 gs16 b b8 | % 49 + << { \voiceOne cs4. b8 ~ b2 ~ } \context Voice = "v2" { \voiceTwo r2 r4 gs16 b b8 } >> | % 50 + << { \voiceOne b2. } \context Voice = "v2" { \voiceTwo cs4. b8 ~ b4 } >> \oneVoice gs16 b b8 | % 51 + cs4. b8 ~ b8. gs16 a8. gs16 | % 52 + gs8 fs ~ fs2 16 8 | % 53 + + % Coda + + s1 | % blank measure for coda + + 8 ~ 2 16 8 | % 54 + + 8 4 16 8 | % 55 + 8 4 16 8 | % 56 + 8 8. e16 8 | % 57 + + 8 ~ 2 16 8 | % 58 + + 8 ~ 4 ~ 8. e16 fs8. gs16 | % 59 + + % Outro + + fs8 e ~ e2. | % 60 + r2 r8 r16 e fs8. gs16 | % 61 + fs8 e ~ e2. | % 62 + r2 r8 r16 e fs8. gs16 | % 63 + fs8 e ~ e2. | % 64 + r2 r8 r16 e fs8. gs16 | % 65 + fs8 e ~ e2.-\fermata | % 66 +} + +LeadVoxText = \lyricmode +{ + How love -- ly is your dwell -- ing place, + O lord Al -- migh -- _ ty. _ + For my soul longs and e -- ven faints for you. + For here my heart is sat -- is -- fied + with -- in your pres -- _ ence. _ + I sing be -- neath the sha -- dow of your wings. _ _ + + Bet -- ter is one day in your courts, + bet -- ter is one day in your house, + Bet -- ter is one day in your courts + than thou -- sands else -- where, _ + Bet -- ter is one day in your courts, + bet -- ter is one day in your house, + Bet -- ter is one day in your courts + than thou -- sands else -- where, _ _ + than thou -- sands else -- where. _ + + One + else -- where. _ + + My heart and flesh cry out + for you, the liv -- ing God, _ _ + Your spi -- rit's wa -- ter to my soul. _ _ _ + I've tast -- ed and I've seen; + Come once a -- gain to me, _ _ + I will draw near to you, + I will draw near to you, _ + to you. _ + + Bet -- ter is one day, __ _ _ + Bet -- ter is one day _ + than thou -- sands else -- where, _ + Bet -- ter is one day, __ _ _ + Bet -- ter is one day _ + than thou -- sands else -- where, _ + + Bet -- ter is + else -- where, _ + + Bet -- ter is one day in your courts, + bet -- ter is one day in your house, + Bet -- ter is one day in your courts + than thou -- sands else -- where, _ + + Bet -- ter is + else -- where, _ _ + + than thou -- sands else -- where. _ + Than thou -- sands else -- where. _ + Than thou -- sands else -- where. _ + Than thou -- sands else -- where. _ +} + +LeadVoxTextB = \lyricmode +{ + _ thing I ask and I would seek, + to see your beau -- _ ty, _ + to find you in the place your glo -- ry dwells. + One thing I sak and I would seek, + to see your beau -- _ ty, _ + to find you in the place your glo -- ry dwells. _ _ +} + +LeadVoxEcho = \lyricmode +{ + Bet -- ter is one day _ + Bet -- ter is one day +} + + +% +% Riffs +% +Riffs = \relative c'' +{ + % Intro + + s1*41 | % 1-41 + + \tiny + e8 b ds b cs b ds b | % 42 + e8 b ds b cs b ds b | % 43 + e8 b ds b cs b ds b | % 44 +} + + +% +% Chord names +% +Chords = \chordmode +{ +%Bah, can't we set this globally? +% \popChords + + % Intro + + e1:sus2 | % 1 + s1 | % 2 + e1:sus2 | % 3 + s1 | % 4 + + % Verse + + e1:sus2 | % 5 + s1 | % 6 + a1:sus2 | % 7 + b1:sus4 | % 8 + e1:sus2 | % 9 + s1 | % 10 + b1:sus4 | % 11 + b1 | % 12 + cs1:m7 | % 13 + s1 | % 14 + a1:sus2 | % 15 + b1:sus4 | % 16 + cs1:m7 | % 17 + a1:sus2 | % 18 + b1:sus4 | % 19 + b1 | % 20 + + % Chorus + + a1:sus2 | % 21 + b2:sus4 b | % 22 + a2.:sus2 a4/cs | % 23 + b2:sus4 b4 e/gs | % 24 + a1:sus2 | % 25 + b2:sus4 b | % 26 + a2.:sus2 a4/cs | % 27 + + b2:sus4 b | % 28 + e1:sus2 | % 29 + s1 | % 30 + + b2:sus4 b | % 31 + + % Bridge + + cs2.:m7 b4 | % 32 + a2.:sus2 b4:sus4 | % 33 + cs2.:m7 b4 | % 34 + a2.:sus2 b4:sus4 | % 35 + cs2.:m7 b4 | % 36 + a2.:sus2 b4:sus4 | % 37 + e1/gs | % 38 + fs1:m7 | % 39 + b1:sus4 | % 40 + b1:sus4 | % 41 + + a1:sus2 | % 42 + b1:sus4 | % 43 + a1:sus2 | % 44 + b1:sus4 | % 45 + a1:sus2 | % 46 + b1:sus4 | % 47 + a2.:sus2 a4/cs | % 48 + b1:sus4 | % 49 + a1:sus2 | % 50 + b2.:sus4 e4/gs | % 51 + a1:sus2 | % 52 + b2.:sus4 e4/gs | % 53 + + % Coda + + % blank measure between last measure and coda + s1 + + b2:sus4 b4 e/gs | % 54 + + a1:sus2 | % 55 + b2:sus4 b | % 56 + a2.:sus2 a4/cs | % 57 + + b2:sus4 b4 e/gs | % 58 + + b2:sus4 b | % 59 + + % Outro + + e1:sus2 | % 60 + a1:sus2 | % 61 + e1:sus2 | % 62 + a1:sus2 | % 63 + e1:sus2 | % 64 + a1:sus2 | % 65 + e1:sus2 | % 66 +} + + +% +% Chord rhythms +% + +% Use a RhythmicStaff on the chords instead of this? +% It almost works, but not quite. Doesn't collapse chords above to single notes... + +Rhythm = +{ + \override Staff.TimeSignature #'style = #'() + \override NoteHead #'style = #'slash + + % Intro + + c1 ~ | % 1 + c1 | % 2 + c1 ~ | % 3 + c1 | % 4 + + % Verse + + c1 ~ | % 5 + c1 | % 6 + c1 | % 7 + c1 | % 8 + c1 ~ | % 9 + c1 | % 10 + c1 | % 11 + c1 | % 12 + c1 ~ | % 13 + c1 | % 14 + c1 | % 15 + c1 | % 16 + c1 | % 17 + c1 | % 18 + c1 | % 19 + c1 | % 20 + + % Chorus + + c1 | % 21 + c2 c | % 22 + c2. c4 | % 23 + c2 c4 c | % 24 + c1 | % 25 + c2 c | % 26 + c2. c4 | % 27 + + c2 c | % 28 + c1 ~ | % 29 + c1 | % 30 + + c2 c | % 31 + + % Bridge + + c2.-> c4-> | % 32 + c2. c4-> | % 33 + c2. c4-> | % 34 + c2. c4-> | % 35 + c2. c4-> | % 36 + c2.-> c4-> | % 37 + c1-> | % 38 + c1-> | % 39 + c1-> | % 40 + c1-> | % 41 + + c1 | % 42 + c1 | % 43 + c1 | % 44 + c1 | % 45 + c1 | % 46 + c1 | % 47 + c2. c4 | % 48 + c1 | % 49 + c1 | % 50 + c2. c4 | % 51 + c1 | % 52 + c4 c c c-> | % 53 + + % Coda + + % blank measure between last measure and coda +%hm. Shouldn't need /startStaff /stopStaff... !!! FIX !!! + \stopStaff s1 \startStaff + + c2 c4 c-> | % 54 + + c1-> | % 55 + c2 c | % 56 + c2. c4 | % 57 + + c2 c4 c-> | % 58 + + c2 c | % 59 + + % Outro + + c1 | % 60 + c1 | % 61 + c1 | % 62 + c1 | % 63 + c1 | % 64 + c1 | % 65 + c1-\fermata | % 66 +} + + +Dynamics = +{ +%Hmm, this is throwin off the layout... + s4_\mf s2. | % 1 + s1*18 | % 2-19 + s4 s \< s2 | % 20 + s4_\f s2. | % 21 +%{ + % Intro + s4_\markup { \italic { Ac. gtr only } } s2. | % 1 + + s1*3 | % 2-4 + + s4_\markup { \italic { Band in } } s2. | % 5 +%} +} + + +\score +{ + << + \Global % The "roadmap" that everything else depends on + + \context Staff + << + \new Voice = "lead" \LeadVox + \new Voice \Riffs + \new Lyrics \lyricsto "lead" \LeadVoxText + \new Lyrics \lyricsto "lead" \LeadVoxTextB + \new Lyrics \lyricsto "v2" \LeadVoxEcho +% \new Lyrics \lyricsto "v2" \LeadVoxEcho + >> + + \new ChoirStaff + << + \new ChordNames \Chords +%Capo 3 edition +% \new ChordNames \transpose f d \Chords + \new RhythmicStaff << \Rhythm \Dynamics >> + >> + + \set Score.skipBars = ##t + \set Score.melismaBusyProperties = #'() + >> +} + + +\paper +{ + #(define fonts (make-pango-font-tree + "Times New Roman" + "DomCasual BT" + "Luxi Mono" + (/ staffSize 20))) + +% Don't spread staves vertically across last page (default: t) +% ragged-last-bottom = ##f +% Don't spread staves vertically across the page (default: f) +% ragged-bottom = ##t +% Allow partial line for last stave (default: f) + ragged-last = ##t + +% To find out what's eating the space at the top... +% annotate-spacing = ##t +%let's try this: [It works! Huzzah!] + obsolete-page-top-space = 0 top-system-spacing #'basic-distance = #(/ obsolete-page-top-space staff-space) +} diff --git a/come-let-us-worship-and-bow-down.ly b/come-let-us-worship-and-bow-down.ly new file mode 100755 index 0000000..821b326 --- /dev/null +++ b/come-let-us-worship-and-bow-down.ly @@ -0,0 +1,301 @@ +\version "2.16.0" +\include "pop-chords.ly" +\include "english.ly" + +% Good sizes are 16, 18, & 20 +staffSize = #20 +#(set-default-paper-size "letter") +#(set-global-staff-size staffSize) +#(ly:set-option (quote no-point-and-click)) + +%{ Some useful characters: ‘ ’ “ ” – — † ‡ • … %} + +\header +{ +%Let's bump up the title size and switch to the chord font. :-) + + title = \markup { \override #'(font-family . sans) \fontsize #3.5 "Come Let Us Worship And Bow Down" } + composer = \markup { \override #'(font-family . sans) \fontsize #1.3 "Dave Doherty" } + arranger = \markup { \override #'(font-family . sans) \fontsize #1.3 "arr. Ed Smart" } + tagline = $(string-append "Engraved by JLH and Lilypond " (lilypond-version)) +} + + +% +% Lead vocal +% + +LeadVox = \relative c' +{ +% \set Voice.autoBeaming = ##f +% \set Staff.instrument = #"Lead vox" + \clef G + \key d \major + \override Staff.TimeSignature #'style = #'() + \time 4/4 +\override Score.SpacingSpanner #'average-spacing-wishes = ##f + + % Intro + + \repeat volta 2 + { + R1^\markup { Easy 8th note feel } | % 1 + R1 | % 2 + } + + % A section + +\mark \markup { \override #'(font-family . sans) { \box { A } } } + + r8 fs fs16 fs8. fs e16 d8 fs | % 3 + fs2 r4 e8 fs | % 4 + g8. g16 g8. g16 g8 fs e d | % 5 + fs8 ( e ) e4 r2 | % 6 + r8 fs fs16 fs8. fs e16 d8 fs | % 7 + fs2 r4 e8 fs | % 8 + g8. g16 g8. g16 g8 fs e d | % 9 + fs8 ( e ) e4 r4. fs8 \bar "||" % 10 + + % B section + +\mark \markup { \override #'(font-family . sans) { \box { B } } } + + g2 ( fs4 ) g8 fs | % 11 + e2 r4. fs8 | % 12 + g4 g8. g16 g8 fs e d | % 13 + fs8 ( e ) e4 r fs8 e | % 14 + d4. ( fs8 e4 ) d8 e | % 15 + fs2 r4 fs8 e | % 16 + d4. ( fs8 e4 ) d8 cs | % 17 + d2 r | % 18 + R1 \bar "||" % 19 + + % A section + + \key f \major + +\mark \markup { \override #'(font-family . sans) { \box { C } } } + + r8 a' a16 a8. a g16 f8 a | % 20 + a2 r4 g8 a | % 21 + bf8. bf16 bf8. bf16 bf8 a g f | % 22 + a8 ( g ) g4 r2 | % 23 + r8 a a16 a8. a g16 f8 a | % 24 + a2 r4 g8 a | % 25 + bf8. bf16 bf8. bf16 bf8 a g f | % 26 + a8 ( g ) g4 r4. a8 \bar "||" % 27 + + % B section + +\mark \markup { \override #'(font-family . sans) { \box { D } } } + + bf2 ( a4 ) bf8 a | % 28 + g2 r4. a8 | % 29 + bf4 bf8. bf16 bf8 a g f | % 30 + a8 ( g ) g4 r a8 g | % 31 + f4. ( a8 g4 ) f8 g | % 32 + a2 r4 a8 g | % 33 + f4. ( a8 g4 ) f8 g | % 34 + a2 r4 a8 g | % 35 + f4. ( a8 g4 ) f8 e | % 36 + f1^\fermata \bar "|." % 37 +} + +LeadVoxText = \lyricmode +{ + Come let us wor -- ship and bow down + Let us kneel be -- fore the Lord our God our ma -- _ ker + Come let us wor -- ship and bow down + Let us kneel be -- fore the Lord our God our ma -- _ ker + + For he __ _ is our God + And we are the peo -- ple of his pas -- _ ture + And the sheep __ _ _ of his hand + Just the sheep __ _ _ of his hand. + + Come let us wor -- ship and bow down + Let us kneel be -- fore the Lord our God our ma -- _ ker + Come let us wor -- ship and bow down + Let us kneel be -- fore the Lord our God our ma -- _ ker + + For he __ _ is our God + And we are the peo -- ple of his pas -- _ ture + And the sheep __ _ _ of his hand + Just the sheep __ _ _ of his hand + Just the sheep __ _ _ of his hand. +} + + +% +% Chord names +% + +Chords = \chordmode +{ +%Bah, can't we set this globally? +% \popChords + + % Intro + + \repeat volta 2 + { + d2 g:maj7 | % 1 + d2 g:maj7 | % 2 + } + + % A section + + d2 g:maj7 | % 3 + d1 | % 4 + g4 g/fs e2 | % 5 + d4/a a2. | % 6 + d2 g:maj7 | % 7 + d1 | % 8 + g4 g/fs e2 | % 9 + d4/a a2. | % 10 + + % B section + + e2:m d/g | % 11 + a2:sus4 a | % 12 + e2:m g | % 13 + d4/a a2. | % 14 + g2 a | % 15 + d4 a/cs b:m b:m/a | % 16 + e2:m a | % 17 + d2 g:maj7 | % 18 + d2 c4:sus4 c | % 19 + + % A section + + f2 bf:maj7 | % 20 + f1 | % 21 + bf4 bf/a g2:m7 | % 22 + f4/c c2. | % 23 + f2 bf:maj7 | % 24 + f1 | % 25 + bf4 bf/a g2:m7 | % 26 + f4/c c2. | % 27 + + % B section + + g2:m7 f/bf | % 28 + c2:sus4 c | % 29 + g2:m bf | % 30 + f4/c c2. | % 31 + bf2 c | % 32 + f4 f/e d:m d:m/c | % 33 + bf2 c | % 34 + f4 f/e d:m d:m/c | % 35 + g2:m7 c | % 36 + f1 | % 37 +} + + +% +% Chord rhythms +% + +% Use a RhythmicStaff on the chords instead of this? +% It almost works, but not quite. Doesn't collapse chords above to single notes... + +StaffC = \relative c +{ +% \set Voice.autoBeaming = ##f +% \set Staff.instrument = #"Rhythm" + \override Staff.TimeSignature #'style = #'() + \time 4/4 + \override NoteHead #'style = #'slash + + % Intro + + \repeat volta 2 + { + c4 c c8. c16 ~ c4 | % 1 + c4 c c8. c16 ~ c4 | % 2 + } + + % A section + + c4 c c c | % 3 + c4 c c c | % 4 + c4 c c c | % 5 + c4 c c c | % 6 + c4 c c c | % 7 + c4 c c c | % 8 + c4 c c c | % 9 + c4 c c c \bar "||" % 10 + + % B section + + c4 c c c | % 11 + c4 c c c | % 12 + c4 c c c | % 13 + c4 c c c | % 14 + c4 c c c | % 15 + c4 c c c | % 16 + c4 c c c | % 17 + c4 c c8. c16 ~ c4 | % 18 + c4 c c c \bar "||" % 19 + + % A section + + c4 c c c | % 20 + c4 c c c | % 21 + c4 c c c | % 22 + c4 c c c | % 23 + c4 c c c | % 24 + c4 c c c | % 25 + c4 c c c | % 26 + c4 c c c \bar "||" % 27 + + % B section + + c4 c c c | % 28 + c4 c c c | % 29 + c4 c c c | % 30 + c4 c c c | % 31 + c4 c c c | % 32 + c4 c c c | % 33 + c4 c c c | % 34 + c4 c c c | % 35 + c4_\markup { \italic { rit. } } c c2 | % 36 + c1^\fermata \bar "|." % 37 +} + + +\score +{ + << + << + \new Staff = leadStaff { \new Voice = "lead" \LeadVox } + \new Lyrics \lyricsto "lead" \LeadVoxText + >> + + \new ChoirStaff = "Rhythm" + << + \new ChordNames = "chords" \Chords + \new RhythmicStaff = "chordRhythm" \StaffC + >> + + \set Score.skipBars = ##t + \set Score.melismaBusyProperties = #'() + >> + + \layout + { +% \context { \Staff \RemoveEmptyStaves } +% ragged-last-bottom = ##t + ragged-last = ##t + } +} + + +\paper +{ + #(define fonts (make-pango-font-tree + "Times New Roman" + "DomCasual BT" + "Luxi Mono" + (/ staffSize 20))) +} diff --git a/come-now-is-the-time-to-worship.ly b/come-now-is-the-time-to-worship.ly new file mode 100644 index 0000000..4b9267c --- /dev/null +++ b/come-now-is-the-time-to-worship.ly @@ -0,0 +1,580 @@ +\version "2.16.0" +\include "pop-chords.ly" +\include "english.ly" + +% Good sizes are 16, 18, & 20 +staffSize = #20 +#(set-default-paper-size "letter") +#(set-global-staff-size staffSize) +#(ly:set-option (quote no-point-and-click)) + +%{ Some useful characters: ‘ ’ “ ” – — † ‡ • … %} + +\header +{ +%Let's bump up the title size and switch to the chord font. :-) + + title = \markup { \override #'(font-family . sans) \fontsize #3.5 "Come, Now is the Time to Worship" } +% composer = \markup { \override #'(font-family . sans) \fontsize #1.3 "M. Barnett" } + arranger = \markup { \override #'(font-family . sans) \fontsize #1.3 "arr. Ed Smart" } + tagline = $(string-append "Engraved by JLH and Lilypond " (lilypond-version)) +% Let's try a chord dictionary +% subtitle = \markup { \center-align { "F#m" \fret-diagram-terse #"x;x;4;2;2;2;" } " " \center-align { "F#m/F" \fret-diagram-terse #"x;x;3;2;2;2;" } " " \center-align { "F#m/E" \fret-diagram-terse #"x;x;2;2;2;2;" } " " \center-align { "F#m/Eb" \fret-diagram-terse #"x;x;1;2;2;2;" } " " \center-align { "Em7" \fret-diagram-terse #"o;2;2;o;3;o;" } " " \center-align { "A13" \fret-diagram-terse #"x;o;2;o;2;2;" } } +} + +% Useful tweak abbreviations (hn = harmony note) + +hn = #(define-music-function (parser location arg) (ly:music?) +;; Harmony Note: Set the tweaks property of the passed in note to use a smaller font + + (set! (ly:music-property arg 'tweaks) + (acons 'font-size -3.0 (ly:music-property arg 'tweaks))) arg) + + +% +% Song's structure +% +Global = +{ + \key d \major + \override Staff.TimeSignature #'style = #'() + \time 4/4 + +% \once \override TextScript #'padding = #2.0 + s1*0^\markup { \italic \bold { Spacey, but imply 16ths } } +% Capo 4 version +% s1*0^\markup { \hspace #0.0 \raise #2.0 \bigger \bold { "Moderate pop (*** CAPO 4 ***)" } } + + % Intro + + s1*4 | % 1-4 + + % Verse + + \repeat volta 2 + { + \mark \markup { \override #'(font-family . sans) { \box { A } } } + s1*16 | % 5-20 + } + \alternative + { + { + s1*2 | % 21-22 + } + { + s1 | % 23 + } + } + + s1 \bar "||" % 24 + + % Chorus + + \mark \markup { \override #'(font-family . sans) { \box { B } } } + s1*9 \bar "||" % 25-33 + + \key e \major + + % Verse + + \mark \markup { \override #'(font-family . sans) { \box { C } } } + s1*18 | % 34-51 + + % Chorus + + \repeat volta 2 + { + \mark \markup { \override #'(font-family . sans) { \box { D } } } + s1*8 | % 52-59 + } + \alternative + { + { + s1 | % 60 + } + { + s1 \bar "||" % 61 + } + } + + \mark \markup { \override #'(font-family . sans) { \box { E } } } + s1*16 | % 62-77 + + \repeat volta 2 + { + \mark \markup { \override #'(font-family . sans) { \box { F } } } + s1*4 | % 78-81 + } + + s1 \bar "|." % 82 +} + + +% +% Lead vocal +% +LeadVox = \relative c' +{ +% \set Staff.instrument = #"Lead vox" + \clef G + \override Staff.TimeSignature #'style = #'() +%Hm. Needed anymore? +% \override Score.SpacingSpanner #'average-spacing-wishes = ##f + \set tupletSpannerDuration = #(ly:make-moment 1 4) + + % Intro + + r1 | % 1 + r1 | % 2 + r1 | % 3 + r1 | % 4 + + % Verse + + 2 r | % 5 + 8 ( ~ ) ( ~ | % 6 + 2. 8 ) ~ | % 7 + 2. r4 | % 8 + 2 r | % 9 + 8 ( ~ ) ~ | % 10 + 2 4. ( 8 ) | % 11 + 2. r4 | % 12 + 2 r | % 13 + 8 ( ~ ) ( ~ | % 14 + 2. 8 ) ~ | % 15 + 2. r4 | % 16 + 1 | % 17 + 8 ( ~ ) ~ | % 18 + 2 4. ( 8 ) | % 19 + 2. r4 | % 20 + + d1 | % 21 + r1 | % 22 + + 1 | % 23 + + r1 | % 24 + + % Chorus + + 8 ~ | % 25 + 8 ~ 4 r | % 26 + 8 16 ( ) 8 ~ | % 27 + 2. r4 | % 28 + 8 ~ | % 29 + 8 4 8 ~ 4 8 ~ | % 30 + 8 r ~ 4 8 ~ | % 31 + 1 | % 32 + r1 | % 33 + + % Verse + + 2 r | % 34 + 8 ( ~ ) ( ~ | % 35 + 2. 8 ) ~ | % 36 + 2. r4 | % 37 + 2 r | % 38 + 8 ( ~ ) ~ | % 39 + 2 4. ( 8 ) | % 40 + 2. r4 | % 41 + 2 r | % 42 + 8 ( ~ ) ( ~ | % 43 + 2. 8 ) ~ | % 44 + 2. r4 | % 45 + 1 | % 46 + 8 ( ~ ) ~ | % 47 + 2 4. ( 8 ) | % 48 + 2. r4 | % 49 + 2. r4 | % 50 + r1 | % 51 + + % Chorus + + 8 ~ | % 52 + 8 ~ 4 r | % 53 + 8 16 ( ) 8 ~ | % 54 + 2. r4 | % 55 + 8 ~ | % 56 + 8 4 8 ~ 4 8 ~ | % 57 + 8 r ~ 4 8 ~ | % 58 + 1 | % 59 + + r1 | % 60 + + r1 | % 61 + + 2 r | % 62 + 8 ( ~ ) ( ~ | % 63 + 2. 8 ) ~ | % 64 + 2. r4 | % 65 + 2 r | % 66 + 8 ( ~ ) ~ | % 67 + 2 4. ( 8 ) | % 68 + 2. r4 | % 69 + gs1 | % 70 + fs8 gs a gs ( ~ gs fs ) fs a ( ~ | % 71 + a2. gs8 ) gs ~ | % 72 + gs1 | % 73 + fs1 | % 74 + fs8 gs a gs ( ~ gs fs ) fs a ~ | % 75 + a2 gs4. ( e8 ) | % 76 + e1 | % 77 + + 1 | % 78 + s1 | % 79 + 1 | % 80 + s1 | % 81 + + 1-\fermata | % 82 +} + + +LeadVoxText = \lyricmode +{ + Come, now is the time _ _ to wor -- _ _ ship, _ + Come, now is the time _ _ to give _ your _ heart, + Come, just as you are _ _ to wor -- _ _ ship, _ + Come, just as you are _ _ be -- fore _ your _ God, + Come, + + Come. + + One day ev’ -- ry tongue will con -- fess _ you are God, _ + One day ev’ -- ry knee will bow _ down, _ + Still the great -- est trea -- sure re -- mains _ for those _ + who glad -- _ ly choose _ you now. _ + + Come, now is the time _ _ to wor -- _ _ ship, _ + Come, now is the time _ _ to give _ your _ heart, + Come, just as you are _ _ to wor -- _ _ ship, _ + Come, just as you are _ _ be -- fore _ your _ God, + Come, + + One day ev’ -- ry tongue will con -- fess _ you are God, _ + One day ev’ -- ry knee will bow _ down, _ + Still the great -- est trea -- sure re -- mains _ for those _ + who glad -- _ ly choose _ you now. _ + + Come, now is the time _ _ to wor -- _ _ ship, _ + Come, now is the time _ _ to give _ your _ heart, + Come, just as you are _ _ to wor -- _ _ ship, _ + Come, just as you are _ _ be -- fore _ your _ God, + Come, + Come, + Come. +} + + +Riffs = \relative c' +{ +% \clef G +%Hm. Needed anymore? +% \override Score.SpacingSpanner #'average-spacing-wishes = ##f + \set tupletSpannerDuration = #(ly:make-moment 1 4) + + % Intro + + \tiny + s1*78 | % 1-78 + fs8 gs a gs ~ gs fs ~ fs4 | % 79 + s1 | % 80 + fs8 gs a gs ~ gs fs ~ fs4 | % 81 + \normalsize +} + + +% +% Chord names +% +Chords = \chordmode +{ + % Intro + + d1:sus2 | % 1 + s1 | % 2 + s1 | % 3 + s1 | % 4 + + % Verse + + d1 | % 5 + s2.. e8:m7/d | % 6 + s2.. d8 | % 7 + s1 | % 8 + a1 | % 9 + s2.. e8:m7 | % 10 + s2 d/e | % 11 + g1:sus2 | % 12 + d1 | % 13 + s2.. e8:m7/d | % 14 + s2.. d8 | % 15 + s1 | % 16 + a1 | % 17 + s2.. e8:m7 | % 18 + s2 d/e | % 19 + g1:sus2 | % 20 + + d1:sus2 | % 21 + s2 e:m7/d | % 22 + + d1:sus2 | % 23 + + s2 d/fs | % 24 + + % Chorus + + g1 | % 25 + d1 | % 26 + g1 | % 27 + d1 | % 28 + g2.. b8:m7 | % 29 + s2.. e8:m7 | % 30 + s4. g8:sus2 s4. a8:sus4 | % 31 + s1 | % 32 + a2 b4:sus4 b | % 33 + + % Verse + + e1 | % 34 + s2.. fs8:m7/e | % 35 + s2.. e8 | % 36 + s1 | % 37 + b1 | % 38 + s2.. fs8:m7 | % 39 + s2 e/fs | % 40 + a1:sus2 | % 41 + e1 | % 42 + s2.. fs8:m7/e | % 43 + s2.. e8 | % 44 + s1 | % 45 + b1 | % 46 + s2.. fs8:m7 | % 47 + s2 e/fs | % 48 + a1:sus2 | % 49 + e1 | % 50 + s2 e/gs | % 51 + + % Chorus + + a1 | % 52 + e1 | % 53 + a1 | % 54 + e1 | % 55 + a2.. cs8:m7 | % 56 + s2.. fs8:m7 | % 57 + s4. a2:sus2 b8:sus4 | % 58 + s1 | % 59 + + b2 e/gs | % 60 + + b1 | % 61 + + e1 | % 62 + s2.. fs8:m7/e | % 63 + s2.. e8 | % 64 + s1 | % 65 + b1 | % 66 + s2.. fs8:m7 | % 67 + s2 e/fs | % 68 + a1:sus2 | % 69 + e1 | % 70 + s2.. fs8:m7/e | % 71 + s2.. e8 | % 72 + s1 | % 73 + b1 | % 74 + s2.. fs8:m7 | % 75 + s2 e/fs | % 76 + a1:sus2 | % 77 + + e1 | % 78 + s1 | % 79 + s1 | % 80 + s1 | % 81 + + e1 | % 82 +} + + +% +% Chord rhythms +% +% Use a RhythmicStaff on the chords instead of this? +% It almost works, but not quite. Doesn't collapse chords above to single notes... +% +Rhythm = \relative c +{ +%% \set Voice.autoBeaming = ##f +%% \set Staff.instrument = #"Rhythm" + \override Staff.TimeSignature #'style = #'() + \override NoteHead #'style = #'slash + +%Not small enough... + \teeny +% \magnify #0.3 + + % Intro + + c1 ~ | % 1 + c1 | % 2 + c1 ~ | % 3 + c1 | % 4 + + % Verse + + | % 5 + | % 6 + | % 7 + | % 8 + | % 9 + | % 10 + | % 11 + | % 12 + | % 13 + | % 14 + | % 15 + | % 16 + | % 17 + | % 18 + | % 19 + | % 20 + + | % 21 + | % 22 + + | % 23 + + | % 24 + + % Chorus + + | % 25 + | % 26 + | % 27 + | % 28 + | % 29 + | % 30 + | % 31 + | % 32 + | % 33 + + % Verse + + | % 34 + | % 35 + | % 36 + | % 37 + | % 38 + | % 39 + | % 40 + | % 41 + | % 42 + | % 43 + | % 44 + | % 45 + | % 46 + | % 47 + | % 48 + | % 49 + | % 50 + | % 51 + + % Chorus + + | % 52 + | % 53 + | % 54 + | % 55 + | % 56 + | % 57 + | % 58 + | % 59 + + | % 60 + + | % 61 + + | % 62 + | % 63 + | % 64 + | % 65 + | % 66 + | % 67 + | % 68 + | % 69 + | % 70 + | % 71 + | % 72 + | % 73 + | % 74 + | % 75 + | % 76 + | % 77 + + | % 78 + | % 79 + | % 80 + | % 81 + + | % 82 +} + + +Dynamics = +{ +% s1*4 | % 1-4 +% s4_\markup { \italic { 1st X: Melody, 2nd X+: Solos } } s2. | % 5 +% s1*38 | % 1-38 +% s4_\markup { \bold \italic { Double Chorus 2nd X } } s2. | % 39 +% s1*7 | % 40-46 +% s4_\markup { \bold { Tutti } } s2. | % 47 +% s4 | % 0 +% s2.*39 | % 1-39 +% s4_\markup { \large \bold \italic { Solo } } s2 | % 40 +} + + +\score +{ + << + \set Score.skipBars = ##t + \set Score.melismaBusyProperties = #'() + +% \new Staff + << + \new ChordNames \Chords +%Capo 4 edition +% \new ChordNames \transpose b g \Chords + \new RhythmicStaff << \Rhythm \Dynamics >> + >> + + \new Staff + << + \Global % The "roadmap" that everything else depends on + \new Voice = "lead" \LeadVox + \new Voice \Riffs + \new Lyrics \lyricsto "lead" \LeadVoxText + >> + >> +} + + +\paper +{ + #(define fonts (make-pango-font-tree + "Times New Roman" + "DomCasual BT" + "Luxi Mono" + (/ staffSize 20))) + +% Spread staves vertically across last page (default: t) + ragged-last-bottom = ##f +% Don't spread staves vertically across the page (default: f) +% ragged-bottom = ##t +% Allow partial line for last stave (default: f) + ragged-last = ##t + +% To find out what's eating the space at the top... +% annotate-spacing = ##t +%let's try this: [It works! Huzzah!] + obsolete-page-top-space = 0 top-system-spacing #'basic-distance = #(/ obsolete-page-top-space staff-space) +} diff --git a/come-thou-fount-of-every-blessing.ly b/come-thou-fount-of-every-blessing.ly new file mode 100755 index 0000000..0efaed9 --- /dev/null +++ b/come-thou-fount-of-every-blessing.ly @@ -0,0 +1,372 @@ +\version "2.16.0" +\include "pop-chords.ly" +\include "english.ly" + +% Good sizes are 16, 18, & 20 +staffSize = #18 +#(set-default-paper-size "letter") +#(set-global-staff-size staffSize) +#(ly:set-option (quote no-point-and-click)) + +%{ Some useful characters: ‘ ’ “ ” – — † ‡ • … %} + +\header +{ +%Let's bump up the title size and switch to the chord font. :-) + + title = \markup { \override #'(font-family . sans) \fontsize #3.5 "Come Thou Fount Of Every Blessing" } +% composer = \markup { \override #'(font-family . sans) \fontsize #1.3 "" } + arranger = \markup { \override #'(font-family . sans) \fontsize #1.3 "arr. Roger Freeland" } + tagline = $(string-append "Engraved by JLH and Lilypond " (lilypond-version)) +} + + +% +% Lead vocal +% + +LeadVox = \relative c' +{ +% \set Voice.autoBeaming = ##f +% \set Staff.instrument = #"Lead vox" + \clef G + \key d \major + \override Staff.TimeSignature #'style = #'() + \time 3/4 +\override Score.SpacingSpanner #'average-spacing-wishes = ##f + + % Intro + + \partial 4*1 s4 | % pickup + + \repeat volta 3 + { + s2. | % 1 + s2. | % 2 + s2. | % 3 + s2 fs8 e \bar "||" % 4 + + % Verse + + d4 d fs8 a | % 5 + e4 e fs8 a | % 6 + b4 a fs8 e | % 7 + d2 fs8 e | % 8 + d4 d fs8 a | % 9 + e4 e fs8 a | % 10 + b4 a fs8 e | % 11 + d2 a'8 b16 ( cs ) | % 12 + d4 cs b8 a | % 13 + b8 a fs4 a8 b16 ( cs ) | % 14 + d4 cs b8 a | % 15 + d2 fs,8 e | % 16 + d4 d fs8 a | % 17 + e4 e fs8 a | % 18 + b4 a fs8 e | % 19 + } + \alternative + { + { + d2 s4 | % 20 + } + { + d2 s4 | % 21 + } + } + + % Outro + + s2. | % 22 + s2. | % 23 + s2. | % 24 + s2. \bar "|." % 25 +} + +LeadVoxText = \lyricmode +{ + Come thou fount of ev -- ery bless -- ing + tune my heart to sing thy grace; + Streams of mer -- cy nev -- er ceas -- ing + call for songs of loud -- est praise. + Teach me _ some me -- lo -- dious son -- _ net + sung by _ fla -- ming tongues a -- bove; + Praise the mount! I’m fixed u -- pon it, + mount of thy re -- deem -- ing love. +} + +LeadVoxTextB = \lyricmode +{ + This my glad com -- mem -- o -- ra -- tion + that ’til now I’ve safe -- ly come; + And I hope, by thy good pleas -- ure, + safe -- ly to ar -- rive at home. + Je -- sus _ sought me when a stran -- _ ger, + Wan -- dering _ from the fold of God; + He to res -- cue me from dan -- ger, + in -- ter -- posed his pre -- cious blood. +} + +LeadVoxTextC = \lyricmode +{ + O to grace how great a debt -- or + dai -- ly I’m con -- strained to be! + Let thy good -- ness, like a fet -- ter, + bind my wan -- dering heart to thee: + Prone to _ wan -- der, Lord, I feel _ it, + Prone to _ leave the God I love: + Here’s my heart, O take and seal it, + seal it for thy courts a -- _ bove. +} + + +Riffs = \relative c' +{ + \clef G + \key d \major + \override Staff.TimeSignature #'style = #'() + \time 3/4 +\override Score.SpacingSpanner #'average-spacing-wishes = ##f + + % Intro + + \partial 4*1 \tiny fs8 e | % partial + + \repeat volta 3 + { + d4 d fs8 a | % 1 + e4 e fs8 a | % 2 + b4 a fs8 e | % 3 + d2 s4 | % 4 + s2.*15 | % 5-19 + } + \alternative + { + { + s2 fs8 e | % 20 + } + { + s2 fs8 e | % 21 + } + } + + % Outro + + d4 d fs8 a | % 22 + e4 e fs8 a | % 23 + b4 a fs8 e | % 24 + d2.^\fermata | % 25 + \normalsize + +%{ + \tiny + \repeat "percent" 3 % 1 - 6 + { + << { \tiny f16 c f, ~ f, c' f f8 e } \\ { \tiny f,,2 c'4 } >> | % 1 + << { \tiny f'16 c f, ~ f, c' f f8 e } \\ { \tiny bf,2 c4 } >> | % 2 + } + << s2. \\ { \tiny d2 c4 } >> | % 7 + << s2. \\ { \tiny bf2. } >> | % 8 + + s2.*7 + + \voiceOne + \repeat "percent" 6 { f''16 c f, ~ f, c' f f8 e | } % 16-21 + \oneVoice + + s2.*7 + + \voiceOne + \repeat "percent" 2 { f16 c f, f' ~ f f, c' f f8 e | } % 29-30 + \oneVoice + + \key g \major + + \voiceOne + \repeat "percent" 2 { g16 d g, g' ~ g g, d' g g8 fs | } % 31-32 + \oneVoice + + s2.*7 + + \voiceOne + \repeat "percent" 4 { g16 d g, g' ~ g g, d' g g8 fs | } % 40-43 + \oneVoice + \normalsize +%} +} + + +% +% Chord names +% + +Chords = \chordmode +{ +%Bah, can't we set this globally? +% \popChords + + % Intro + + s4 | % pickup + + \repeat volta 3 + { + d2. | % 1 + a2. | % 2 + g2 a4 | % 3 + d2. \bar "||" % 4 + + % Verse + + d2. | % 5 + a2 d4 | % 6 + g2 a4 | % 7 + d2. | % 8 + b2:m d4/fs | % 9 + a2 d4 | % 10 + g2 a4 | % 11 + d2. | % 12 + d2. | % 13 + g4 d2 | % 14 + b2:m d4 | % 15 + g2 a4 | % 16 + b2:m d4/fs | % 17 + a2 d4 | % 18 + g2 a4 | % 19 + } + \alternative + { + { + d2. | % 20 + } + { + d2.| % 21 + } + } + + % Outro + + d2. | % 22 + a2 d4 | % 23 + g2 a4 | % 24 + d2. | % 25 +} + + +% +% Chord rhythms +% + +% Use a RhythmicStaff on the chords instead of this? +% It almost works, but not quite. Doesn't collapse chords above to single notes... + +StaffC = \relative c +{ +% \set Voice.autoBeaming = ##f +% \set Staff.instrument = #"Rhythm" + \override Staff.TimeSignature #'style = #'() + \time 3/4 + \override NoteHead #'style = #'slash + + % Intro + + \partial 4*1 s4 | % pickup + + \repeat volta 3 + { + c4 c c | % 1 + c4 c c | % 2 + c4 c c | % 3 + c4 c c \bar "||" % 4 + + % Verse + + c4 c c | % 5 + c4 c c | % 6 + c4 c c | % 7 + c4 c c | % 8 + c4 c c | % 9 + c4 c c | % 10 + c4 c c | % 11 + c4 c c | % 12 + c4 c c | % 13 + c4 c c | % 14 + c4 c c | % 15 + c4 c c | % 16 + c4 c c | % 17 + c4 c c | % 18 + c4 c c | % 19 + } + \alternative + { + { + c4 c c | % 20 + } + { + c4 c c | % 21 + } + } + + % Outro + + c4 c c | % 22 + c4 c c | % 23 + c4 c c | % 24 + c2.^\fermata | % 25 +} + + +Dynamics = +{ +%{ + s4_\markup { \italic { snare pat. } } s2 | % 1 + s4_\markup { \italic { simile } } s2 | % 2 + s2.*19 + s4_\markup { \italic { spacy } } s2 | % 22 + s2.*5 + s4 s \< s \! | % 28 + s2.*22 + s4_\markup { \italic { Last time } } s2 | % 51 +%} +} + + +\score +{ + << + << +% \new Staff = leadStaff { \new Voice = "lead" \LeadVox } + \new Staff = leadStaff { << \new Voice = "lead" \LeadVox \new Voice = "riffs" \Riffs >> } + \new Lyrics \lyricsto "lead" \LeadVoxText + \new Lyrics \lyricsto "lead" \LeadVoxTextB + \new Lyrics \lyricsto "lead" \LeadVoxTextC + >> + + \new ChoirStaff = "Rhythm" + << + \new ChordNames = "chords" \Chords + \new RhythmicStaff = "chordRhythm" << \StaffC \Dynamics >> + >> + + \set Score.skipBars = ##t + \set Score.melismaBusyProperties = #'() + >> + + \layout + { +% \context { \Staff \RemoveEmptyStaves } +% ragged-last-bottom = ##t + ragged-last = ##t + } +} + + +\paper +{ + #(define fonts (make-pango-font-tree + "Times New Roman" + "DomCasual BT" + "Luxi Mono" + (/ staffSize 20))) + +% top-margin = -0.25 \in +} diff --git a/covers/brown-eyed-girl.ly b/covers/brown-eyed-girl.ly new file mode 100644 index 0000000..d2fd6a3 --- /dev/null +++ b/covers/brown-eyed-girl.ly @@ -0,0 +1,541 @@ +\version "2.16.0" +\include "../pop-chords.ly" +\include "english.ly" + +% Good sizes are 16, 18, & 20 +staffSize = #16 +#(set-default-paper-size "letter") +#(set-global-staff-size staffSize) +#(ly:set-option (quote no-point-and-click)) + +% UTF chars: ‘’“”–—…†‡• + +\header +{ + title = \markup { \override #'(font-family . sans) \fontsize #3.5 "Brown Eyed Girl" } + composer = \markup { \override #'(font-family . sans) \fontsize #1.3 "Van Morrison" } +% arranger = \markup { \override #'(font-family . sans) \fontsize #1.3 "arr. Ed Smart" } + tagline = $(string-append "Engraved by JLH and Lilypond " (lilypond-version)) +} + + +% +% Lead vocal +% + +LeadVox = \relative c'' +{ +% \set Voice.autoBeaming = ##f +% \set Staff.instrument = #"Lead vox" + \clef G + \key g \major + \override Staff.TimeSignature #'style = #'() + \time 4/4 +\override Score.SpacingSpanner #'average-spacing-wishes = ##f + + % Intro + + s1 | % + s1 | % + s1 | % + s1 | % + s1 | % + s1 | % + s1 | % + s1 | % + s1 | % + + +%{ + % Intro + + r1 | % 1 + r1 | % 2 + r1 | % 3 + r1 | % 4 + r1 | % 5 + r1 | % 6 + r1 | % 7 + r1 \bar "||:" % 8 + + \repeat volta 2 + { + % Verse + +\mark \markup { \override #'(font-family . sans) { \box { A } } } + + b16 b b8 ~ b16 b b8 ~ b r4 b16 b | % 9 + b8 b b b ~ b4 r | % 10 + b16 b8 b16 ~ b8 b16 b ~ b b8 b16 ~ b8 b8 | % 11 + b8 b16 b ~ b b b8 ~ b4 r | % 12 + b16 b b8 ~ b8 b16 b ~ b b8 b16 ~ b8 r | % 13 + r1 | % 14 + r1 | % 15 + r2. g'8 fs \bar "||" % 16 + + % Chorus + +\mark \markup { \override #'(font-family . sans) { \box { B } } } + + e8 d4 d8 ~ d4 r8 g,16 b | % 17 + a16 g g4 b8 ~ b4 g'8 fs | % 18 + e8 d4 d8 ~ d8 r16 g, b8 g | % 19 + a8 g16 a ~ a g b8 ~ b4 r8 b16 d | % 20 + c8 d16 d ~ d d8 d16 ~ d b8. r8 a16 g | % 21 + a8 g4 b8 ~ b8 r4. | % 22 + r1 | % 23 + r1 | % 24 + } + \alternative + { + { + r1 | % 25 + r1 | % 26 + r1 | % 27 + r1 | % 28 + } + { + r1 | % 29 + } + } + + % Bridge + +\mark \markup { \override #'(font-family . sans) { \box { C } } } + + r1 | % 30 + r1 | % 31 + r1 | % 32 + r1 \bar "||" % 33 + + % Chorus + +\mark \markup { \override #'(font-family . sans) { \box { D } } } + + r1 | % 34 + r1 | % 35 + r1 | % 36 + r1 | % 37 + r1 | % 38 + r1 | % 39 + r1 | % 40 + r1 | % 41 + + r1 | % 42 + r1 | % 43 + r1 \bar "||" % 44 + + % Outro + +\mark \markup { \override #'(font-family . sans) { \box { E } } } + + r1 | % 45 + r1 | % 46 + r1 | % 47 + r1 | % 48 + r1 | % 49 + r1 | % 50 + r1 | % 51 + r1-\fermata \bar "|." % 52 +%} +} + +LeadVoxText = \lyricmode +{ + Hey, where did we go, days when the rain came, + Down in the hollow, playing a new game. + Laughing and a running, hey hey, skippin’ and a jumping, + In the misty morning fog with our, our hearts a thumpin’ and you, + my brown eyed girl. + You my brown eyed girl. + + Whatever happened to Tuesday and so slow, + Going down the old mine with a transistor radio. + Standing in the sunlight laughing, hiding behind a rainbow’s wall, + Slipping and a sliding all along the waterfall with you, + my brown eyed girl. + You my brown eyed girl. + + Do you remember when we used to sing: + Sha la la la la la la la la la la te da + Sha la la la la la la la la la la te da + La te da. +} + +LeadVoxTextB = \lyricmode +{ + It’s so hard to find my way now that I’m on my own, + I saw you just the other day, my, how you have grown. + Cast my memory back there Lord, sometimes I’m overcome thinkin’ ’bout it. + Laughing and a running hey hey, behind the stadium with you, + my brown eyed girl. + You my brown eyed girl. +} + + +% +% Riffs & whatnot +% + +Riffs = \relative c, +{ + \clef F + \key g \major + \override Staff.TimeSignature #'style = #'() + \time 4/4 +\override Score.SpacingSpanner #'average-spacing-wishes = ##f + + \tiny + r2 r8 e fs4 | % 1 + g4 r4 r8 g b b | % 2 + c4 r8 c e e fs4 | % 3 + g4 r r8 b, c c | % 4 + d4 r8 e, ~ e e fs4 | % 5 + g4 r4 r8 g b b | % 6 + c4 r8 c e e fs4 | % 7 + g4 r r8 b, c c | % 8 + d4 r8 e, ~ e e fs4 | % 9 + + s1*58 | % 10-68 + + g'4. g8 g2 | % 69 + g4. g8 g2 | % 70 + g4. g8 g2 | % 71 + g4. g8 g d e d | % 72 + + g,4 r4 r8 g b b | % 73 + c4 r8 c e e fs4 | % 74 + g4 r r8 b, c c | % 75 + d4 r8 e, ~ e e fs4 | % 76 + + s1*6 + + \normalsize +} + + +% +% Chord names +% + +Chords = \chordmode +{ + % Intro + + s1 | % 1 + s1 | % 2 + s1 | % 3 + s1 | % 4 + s1 | % 5 + s1 | % 6 + s1 | % 7 + s1 | % 8 + s1 | % 9 + + % Verse + + g1 | % 10 + c1 | % 11 + g1 | % 12 + d1:7 | % 13 + g1 | % 14 + c1 | % 15 + g1 | % 16 + + d1:7 | % 17 + g1 | % 18 + c1 | % 19 + g1 | % 20 + d1:7 | % 21 + g1 | % 22 + c1 | % 23 + g1 | % 24 + d1:7 | % 25 + + c1 | % 26 + d1 | % 27 + g1 | % 28 + e1:m | % 29 + c1 | % 30 + d1 | % 31 + g1 | % 32 + d1:7 | % 33 + + \repeat volta 2 + { + % Verse + + g1 | % 34 + c1 | % 35 + g1 | % 36 + d1:7 | % 37 + g1 | % 38 + c1 | % 39 + g1 | % 40 + d1:7 | % 41 + + g1 | % 42 + c1 | % 43 + g1 | % 44 + d1:7 | % 45 + g1 | % 46 + c1 | % 47 + g1 | % 48 + d1:7 | % 49 + + c1 | % 50 + d1 | % 51 + g1 | % 52 + e1:m | % 53 + c1 | % 54 + d1 | % 55 + g1 | % 56 + d1:7 | % 57 + + % Chorus + + d1:7 | % 58 + s1 | % 59 + + g1 | % 60 + c1 | % 61 + g1 | % 62 + d1:7 | % 63 + g1 | % 64 + c1 | % 65 + } + \alternative + { + { + g1 | % 66 + d1:7 | % 67 + + g1 | % 68 + s1 | % 69 + s1 | % 70 + s1 | % 71 + + % Mid-tro + + s1 | % 72 + s1 | % 73 + s1 | % 74 + s1 | % 75 + } + { + g1 | % 76 + } + } + + % Chorus (outro) + + d1:7 | % 77 + + \repeat volta 2 + { + g1 | % 78 + c1 | % 79 + g1 | % 80 + d1:7 | % 81 + } +} + + +% +% Chord rhythms +% + +% Use a RhythmicStaff on the chords instead of this? +% It almost works, but not quite. Doesn't collapse chords above to single notes... + +%Slash = { \override NoteHead #'style = #'slash } +%Cross = { \override NoteHead #'style = #'cross } + +StaffC = \relative c +{ + \override Staff.TimeSignature #'style = #'() + \time 4/4 + \override NoteHead #'style = #'slash + + % Intro + + r1 | % 1 + r1_\markup { \italic { tamb. 2 & 4 } } | % 2 + r1 | % 3 + r1 | % 4 + r1 | % 5 + r1 | % 6 + r1 | % 7 + r1 | % 8 + r1 \bar "||" % 9 + + % Verse + + c4 c c c | % 10 + c4 c c c | % 11 + c4 c c c | % 12 + c4 c c c | % 13 + c4 c c c | % 14 + c4 c c c | % 15 + c4 c c c | % 16 + + c4 c c c | % 17 + c4 c c c | % 18 + c4 c c c | % 19 + c4 c c c | % 20 + c4 c c c | % 21 + c4 c c c | % 22 + c4 c c c | % 23 + c4 c c c | % 24 + c4 c c c | % 25 + + c4 c c c | % 26 + c4 c c c | % 27 + c4 c c c | % 28 + c4 c c c | % 29 + c4 c c c | % 30 + c4 c c c | % 31 + c4 c c c | % 32 + c4 c c c \bar "||:" % 33 + + \repeat volta 2 + { + % Verse + + c4 c c c | % 34 + c4 c c c | % 35 + c4 c c c | % 36 + c4 c c c | % 37 + c4 c c c | % 38 + c4 c c c | % 39 + c4 c c c | % 40 + c4 c c c | % 41 + + c4 c c c | % 42 + c4 c c c | % 43 + c4 c c c | % 44 + c4 c c c | % 45 + c4 c c c | % 46 + c4 c c c | % 47 + c4 c c c | % 48 + c4 c c c | % 49 + + c4 c c c | % 50 + c4 c c c | % 51 + c4 c c c | % 52 + c4 c c c | % 53 + c4 c c c | % 54 + c4 c c c | % 55 + c4 c c c | % 56 + c4 c c c \bar "||" % 57 + + % Chorus + + c4 c c c | % 58 + c4 c c c \bar "||" % 59 + + c4 c c c | % 60 + c4 c c c | % 61 + c4 c c c | % 62 + c4 c c c | % 63 + c4 c c c | % 64 + c4 c c c | % 65 + } + \alternative + { + { + c4 c c c | % 66 + c4 c c c | % 67 + + c4 c c c | % 68 + c4 c c c | % 69 + r1 | % 70 + r1 \bar "||" % 71 + + % Mid-tro + + c4 c c c | % 72 + c4 c c c | % 73 + c4 c c c | % 74 + c4 c c c | % 75 + } + { + c4 c c c | % 76 + } + } + + % Chorus (outro) + + c4 c c c | % 77 + + \repeat volta 2 + { + c4 c c c | % 78 + c4 c c c | % 79 + c4 c c c | % 80 + c4 c c c | % 81 + } +} + + +Dynamics = +{ +%{ + s4_\markup { \italic { snare on 4, bass 8th notes } } s2. | % 1 + s1*26 | % 2-27 + s2 s4 \< s | % 28 + s4_\f s_\markup { \hspace #0.0 \raise #-2.0 \italic { snare 2 & 4 } } s2 | % 29 + s1*8 | % 30-37 + s2 s4 \< s \! | % 38 + s1 | % 39 + s2. s8 \> s \! | % 40 + s4_\markup { \hspace #0.0 \raise #-2.0 \italic { bass 8th notes, band builds each repeat } } s2. | % 41 + s1*8 | % 42-49 + s4 \< s2. | % 50 + s4_\f s2. | % 51 + s1*5 | % 52-56 + s4_\markup { \hspace #0.0 \raise #-2.0 \italic { rit. last time } } s2. | % 57 + s2 s4 \< s \! | % 58 +%} +} + + +\score +{ + << + << +% \new Staff = leadStaff { \new Voice = "lead" \LeadVox } + \new Staff = leadStaff { << \new Voice = "lead" \LeadVox \new Voice = "riffs" \Riffs >> } + \new Lyrics \lyricsto "lead" \LeadVoxText + \new Lyrics \lyricsto "lead" \LeadVoxTextB + >> + + \new ChoirStaff = "Rhythm" + << + \new ChordNames = "chords" \Chords + \new RhythmicStaff = "chordRhythm" << \StaffC \Dynamics >> + >> + + \set Score.skipBars = ##t + \set Score.melismaBusyProperties = #'() + >> + + \layout + { +% \context { \Staff \RemoveEmptyStaves } +% ragged-last-bottom = ##t + ragged-last = ##t + } +} + + +\paper +{ + #(define fonts (make-pango-font-tree + "Times New Roman" + "DomCasual BT" + "Luxi Mono" + (/ staffSize 20))) + +% top-margin = -0.25 \in +} diff --git a/covers/don't-touch-me.ly b/covers/don't-touch-me.ly new file mode 100644 index 0000000..c48df1d --- /dev/null +++ b/covers/don't-touch-me.ly @@ -0,0 +1,348 @@ +\version "2.16.0" +\include "../pop-chords.ly" +\include "english.ly" + +% Good sizes are 16, 18, & 20 +staffSize = #18 +#(set-default-paper-size "letter") +#(set-global-staff-size staffSize) +#(ly:set-option (quote no-point-and-click)) + +%{ Some useful characters: ‘ ’ “ ” – — † ‡ • … %} + +\header +{ +%Let's bump up the title size and switch to the chord font. :-) + + title = \markup { \override #'(font-family . sans) \fontsize #3.5 "Don’t Touch Me" } + composer = \markup { \override #'(font-family . sans) \fontsize #1.3 "Robert Cray" } + arranger = \markup { \override #'(font-family . sans) \fontsize #1.3 "arr. S. Hammons" } + tagline = $(string-append "Engraved by JLH and Lilypond " (lilypond-version)) +% Let's try a chord dictionary + subtitle = \markup { \center-align { "F13" \fret-diagram-terse #"x;8;7;8;8;10;" } " " \center-align { "F7#9" \fret-diagram-terse #"x;8;7;8;9;x;" } } % " " \center-align { "F#m/E" \fret-diagram-terse #"x;x;2;2;2;2;" } " " \center-align { "F#m/Eb" \fret-diagram-terse #"x;x;1;2;2;2;" } " " \center-align { "Em7" \fret-diagram-terse #"o;2;2;o;3;o;" } " " \center-align { "A13" \fret-diagram-terse #"x;o;2;o;2;2;" } } +} + +% Useful tweak abbreviations (hn = harmony note) + +hn = #(define-music-function (parser location arg) (ly:music?) +;; Harmony Note: Set the tweaks property of the passed in note to use a smaller font + + (set! (ly:music-property arg 'tweaks) + (acons 'font-size -3.0 (ly:music-property arg 'tweaks))) arg) + + +% +% Song's structure +% +Global = +{ + \key bf \major + \override Staff.TimeSignature #'style = #'() + \time 4/4 + + % Intro + +% Capo 4 version +% s1*0^\markup { \hspace #0.0 \raise #2.0 \bigger \bold { "Moderate pop (*** CAPO 4 ***)" } } + + s1 | % 1 + \once \override TextScript #'padding = #2.0 + s1*0^\markup { \large \bold { Moderate shuffle } } + + \repeat volta 2 + { + \mark \markup { \override #'(font-family . sans) { \box { A } } } + s1*7 \bar "||" % 2-8 + } + \alternative + { + { + s1 | % 9 + } + { + s1 | % 10 + } + } + + \repeat volta 2 + { + \mark \markup { \override #'(font-family . sans) { \box { B } } } + s1*8 \bar "||" % 11-18 + \mark \markup { \override #'(font-family . sans) { \box { C } } } + s1*7 | % 19-25 + } + \alternative + { + { + s1 | % 26 + } + { + s1 \bar "|." % 27 + } + } +} + + +% +% Lead vocal +% +LeadVox = \relative c' +{ +% \set Staff.instrument = #"Lead vox" + \clef G + \override Staff.TimeSignature #'style = #'() +%Hm. Needed anymore? +% \override Score.SpacingSpanner #'average-spacing-wishes = ##f + + | % 1 + + | % 2 + | % 3 + | % 4 + | % 5 + | % 6 + | % 7 + | % 8 + + | % 9 + + | % 10 + + | % 11 + | % 12 + | % 13 + | % 14 + | % 15 + | % 16 + | % 17 + | % 18 + + | % 19 + | % 20 + | % 21 + | % 22 + | % 23 + | % 24 + | % 25 + + | % 26 + + | % 27 +} + +LeadVoxText = \lyricmode +{ +%{ +Don't touch me baby, no +Just leave me alone +Because the way you treat me baby +You know that's wrong +I'm leaving you, baby +Gonna hit that highway back home + +When I took you off the streets +And gave you everything that I had +When I ask you for some love baby +You haul off and get mad +I'm gone baby, hey baby +Gonna hit that highway back home + +(Now check this out) +You don't appreciate +Not one thing that I do +And you're always talking about +How you and I are through +You take all of my money +And you take it so much pride +Baby you, +Darling I know that you're never satisfied + +I'm leaving you baby +And there's no need to cry, no +I'm gonna grab my coat and put on my hat +And wave you bye-bye +I'm gone baby, hey baby +Gonna hit that highway back home + +Well, I'm leaving you baby +Oh, there's no need to cry +When I grab my coat and put on my hat +It's just to say bye-bye +Gone baby, hey baby +Gonna hit that highway back home +%} +} + +LeadVoxTextB = \lyricmode +{ +} + + +Riffs = \relative c' +{ + \clef G +%Hm. Needed anymore? +% \override Score.SpacingSpanner #'average-spacing-wishes = ##f + + % Intro + + \tiny + f8 a ef' g d' r s4 + \normalsize +} + + +% +% Chord names +% +Chords = \chordmode +{ + f1:13 | % 1 + + bf1 | % 2 + bf1 | % 3 + ef1 | % 4 + af1 | % 5 + bf2 \times 2/3 { s8 g af a bf b } | % 6 + c4 s \times 2/3 { s8 f4:7 s4. } | % 7 + bf1 | % 8 + + f1:7 | % 9 + + bf1 | % 10 + + ef1 | % 11 + ef1 | % 12 + bf1 | % 13 + bf1 | % 14 + ef1 | % 15 + ef1 | % 16 + c1 | % 17 + f1:7.9+ | % 18 + + bf1 | % 19 + bf1 | % 20 + ef1 | % 21 + af1 | % 22 + bf2 \times 2/3 { s8 g af a bf b } | % 23 + c4 s \times 2/3 { s8 f4:7 s4. } | % 24 + bf1 | % 25 + + bf1 | % 26 + + bf1 | % 27 +} + + +% +% Chord rhythms +% +% Use a RhythmicStaff on the chords instead of this? +% It almost works, but not quite. Doesn't collapse chords above to single notes... +% +Rhythm = \relative c +{ +%% \set Voice.autoBeaming = ##f +%% \set Staff.instrument = #"Rhythm" + \override Staff.TimeSignature #'style = #'() + \override NoteHead #'style = #'slash + + c1-\fermata | % 1 + + c4 c c c | % 2 + c4 c c c | % 3 + c4 c c c | % 4 + c4 c c c | % 5 + c4 c \times 2/3 { r8 c c } \times 2/3 { c c c } | % 6 + c8-. r r4 \times 2/3 { r8 c c } \times 2/3 { c c c } | % 7 + c4 c c c | % 8 + + c4 c c c | % 9 + + c4 c c c | % 10 + + c4 c c c | % 11 + c4 c c c | % 12 + c4 c c c | % 13 + c4 c c c | % 14 + c4 c c c | % 15 + c4 c c c | % 16 + c4 c c c | % 17 + c4 c c c | % 18 + + c4 c c c | % 19 + c4 c c c | % 20 + c4 c c c | % 21 + c4 c c c | % 22 + c4 c \times 2/3 { r8 c c } \times 2/3 { c c c } | % 23 + c8-. r r4 \times 2/3 { r8 c c } \times 2/3 { c c c } | % 24 + c4 c c c | % 25 + + c4 c c c | % 26 + + c4 c c c | % 27 +} + + +Dynamics = +{ + s4_\markup { \italic { Let notes ring } } s2. | % 1 +%{ + s4_\markup { \italic { snare pat. } } s2 | % 1 + s4_\markup { \italic { simile } } s2 | % 2 + s2.*19 + s4_\markup { \italic { spacey } } s2 | % 22 + s2.*5 + s4 s \< s \! | % 28 + s2.*22 + s4_\markup { \italic { Last time } } s2 | % 51 +%} +} + + +\score +{ + << + \set Score.skipBars = ##t + \set Score.melismaBusyProperties = #'() + +% \new Staff + << + \new ChordNames \Chords +%Capo 4 edition +% \new ChordNames \transpose b g \Chords + \new RhythmicStaff << \Rhythm \Dynamics >> + >> + + \new Staff + << + \Global % The "roadmap" that everything else depends on + \new Voice = "lead" \LeadVox + \new Voice \Riffs + \new Lyrics \lyricsto "lead" \LeadVoxText + \new Lyrics \lyricsto "lead" \LeadVoxTextB + >> + >> +} + + +\paper +{ + #(define fonts (make-pango-font-tree + "Times New Roman" + "DomCasual BT" + "Luxi Mono" + (/ staffSize 20))) + +% Spread staves vertically across last page (default: t) + ragged-last-bottom = ##f +% Don't spread staves vertically across the page (default: f) +% ragged-bottom = ##t +% Allow partial line for last stave (default: f) +% ragged-last = ##t + +% To find out what's eating the space at the top... +% annotate-spacing = ##t +%let's try this: [It works! Huzzah!] + obsolete-page-top-space = 0 top-system-spacing #'basic-distance = #(/ obsolete-page-top-space staff-space) +} diff --git a/covers/evermore.ly b/covers/evermore.ly new file mode 100644 index 0000000..21afd1a --- /dev/null +++ b/covers/evermore.ly @@ -0,0 +1,599 @@ +\version "2.16.0" +\include "../pop-chords.ly" +\include "english.ly" + +% Good sizes are 16, 18, & 20 +staffSize = #16 +#(set-default-paper-size "letter") +#(set-global-staff-size staffSize) +#(ly:set-option (quote no-point-and-click)) + +%{ Some useful characters: ‘ ’ “ ” – — † ‡ • … %} + +\header +{ + title = \markup { \override #'(font-family . sans) \fontsize #3.5 "Evermore" } + composer = \markup { \override #'(font-family . sans) \fontsize #1.3 "Sandra Boynton/Michael Ford" } +% arranger = \markup { \override #'(font-family . sans) \fontsize #1.3 "arr. Shamus Hammons" } + tagline = $(string-append "Engraved by JLH and Lilypond " (lilypond-version)) +} + + +% +% Lead vocal +% + +LeadVox = \relative c' +{ +% \set Voice.autoBeaming = ##f +% \set Staff.instrument = #"Lead vox" + \clef G + \key df \major + \override Staff.TimeSignature #'style = #'() + \time 4/4 +\override Score.SpacingSpanner #'average-spacing-wishes = ##f + + % Intro + + s1^\markup { \hspace #0.0 \raise #2.0 { Fast 4, moderate half-time feel } } | % 1 + s1 | % 2 + s1 | % 3 + s1 | % 4 + s1 | % 5 + s1 | % 6 + s1 | % 7 + s2.. af8 \bar "||" % 8 + + % Verse + +\mark \markup { \override #'(font-family . sans) { \box { A } } } + + f'2 f4 af | % 9 + gf2 f4 ef | % 10 + df2 ef4 df8 f ~ | % 11 + f4 r r af, | % 12 + f'4 f r f | % 13 + gf2 f4 df | % 14 + ef1 | % 15 + r2 r4 f8 gf | % 16 + af2 bf8 c8 ~ c4 | % 17 + bf2. af8 gf | % 18 + f8 af ~ af4. r8 gf4 | % 19 + ef2. af,8 df | % 20 + f2 gf4 af | % 21 + af2 gf4 f | % 22 + ef2. r4 | % 23 + r1 | % 24 + r2 r4 af | % 25 + af2 gf8 f ~ f4 | % 26 + ef1 | % 27 + r2 r4 af,8 df \bar "||" % 28 + + % Chorus + +%\mark \markup { \override #'(font-family . sans) { \box { B } } } +\once \override Score.RehearsalMark #'self-alignment-X = #left +\mark \markup { \override #'(font-family . sans) { \box { B } } \hspace #1.0 \raise #2.0 \musicglyph #"scripts.segno" } + + f4 r af gf | % 29 + f4 df r df8 df | % 30 + ef2 gf4 f | % 31 + df2 r4 f8 ef | % 32 + df2 af'4. bf8 | % 33 + af4 f r ef8 f | % 34 + gf4 gf2 af4 | % 35 + ef2 r4 af | % 36 + bf8 af4 gf8 ~ gf4 bf | % 37 + af8 bf f4 r af | % 38 + gf4 f ef df8 ef ~ | % 39 + ef4 r r af,8 df | % 40 + f2 af4 gf | % 41 + f4 df r df8 f | % 42 + \times 2/3 { ef2 df c } | % 43 + df1 \bar "||" % 44 + +\once \override Score.RehearsalMark #'self-alignment-X = #right +\mark \markup { \italic { to Coda } \hspace #1.0 \musicglyph #"scripts.coda" } + + % Midtro + +%\mark \markup { \override #'(font-family . sans) { \box { C } } } + + r1 | % 45 + r1 | % 46 + r1 | % 47 + r1 | % 48 + r1 | % 49 + r1 | % 50 + r2 r4 r8 af \bar "||" % 51 + + % Verse + +\mark \markup { \override #'(font-family . sans) { \box { C } } } + + f'2 f4 af | % 52 + gf2 f4 ef | % 53 + df2 ef4 df8 f ~ | % 54 + f4 r r af, | % 55 + f'4 f r f | % 56 + gf2 f4 df | % 57 + ef1 | % 58 + r2 r4 af4 | % 59 + bf8 c4 bf8 ~ bf4 af8 f ~ | % 60 + f8 af4. r4 f | % 61 + gf2 gf8 af4. | % 62 + ef2 r | % 63 + gf2 gf4. f8 | % 64 + f8 ef4 r8 af, f'4. | % 65 + ef1 | % 66 + r2 r4 af,8 df \bar "||" % 67 + +\once \override Score.RehearsalMark #'self-alignment-X = #right +\mark \markup { \italic { D.S. al Coda } } + + % Coda + +%\stopStaff s1 \bar "" \startStaff % That removed the spurious floating bar line from line break +\stopStaff s1 \startStaff +\set Score.currentBarNumber = #68 + +%meh +%\break + +\once \override Score.RehearsalMark #'self-alignment-X = #left +\mark \markup { { \musicglyph #"scripts.coda" } "Coda" } + + r1 | % 68 + r1 | % 69 + r1 | % 70 + r1 | % 71 + r1 | % 72 + r1 | % 73 + r2 r4 bf'8 ( c ) | % 74 + +\mark \markup { \override #'(font-family . sans) { \box { D } } } + + df8 c4 bf8 ~ bf4 df | % 75 + c8 bf af4 r r8 af | % 76 + bf4 af df, ef8 f ~ | % 77 + f2-\fermata r4 f8 ef | % 78 + f2 c'4 df | % 79 + af4 f r df8 f | % 80 + \times 2/3 { ef2 df c } \bar "||" % 81 + + % Outro + + df1 | % 82 + r1 | % 83 + r1 | % 84 + \times 2/3 { ef2 df c } | % 85 + + df1 | % 86 + r1 | % 87 + r1 | % 88 + \times 2/3 { ef2 df c } | % 89 + + af'1 | % 90 + r1 | % 91 + r1 | % 92 + r2 r4 r8 bf | % 93 + + af8 f ~ f2. | % 94 + r1 | % 95 + r1 | % 96 + r4 r8 ef4. df8 c | % 97 + + df1-\fermata \bar "|." % 98 +} + +LeadVoxText = \lyricmode +{ + The for -- ests of A -- pril a -- wa -- ken from sleep, _ + and flow -- ers un -- fold through the snow, + And the wind rush -- es _ high, and the ri -- ver _ runs deep, + and it sings what you al -- rea -- dy know. + You al -- rea -- dy _ know. + + E -- ver -- more I will love you. + E -- ver -- more I will stay + e -- ver right here to hold you. + Ne -- ver so far a -- way. + And though I know _ some -- times you go + to find your way a -- lone, _ + e -- ver -- more I will love you. + You are e -- ver my own. + + Though no -- thing’s as cer -- tain as sea -- sons and time, _ + though no -- thing will be as be -- fore, + still e -- v’ry way _ and al -- _ ways it’s cer -- tain that I’m + with you for -- e -- ver, e -- ver -- more. + + E -- ver + + And _ though I know _ some -- times you go + to find your way a -- lone, _ + e -- ver -- more I will love you. + You are e -- ver my own. + + E -- ver my own. + E -- ver my own. + For -- e -- ver _ + and e -- ver -- more. +} + + +Riffs = \relative c'' +{ + \clef G + \key df \major + \override Staff.TimeSignature #'style = #'() + \time 4/4 +\override Score.SpacingSpanner #'average-spacing-wishes = ##f + + % Intro + + \tiny + << { \tiny r4 r8 af4 df4. } \\ { \tiny df,1 } >> | % 1 + << { \tiny r4 r8 af'4 df4. } \\ { \tiny ef,8 ( f ) ~ f2. } >> | % 2 + << { \tiny r4 r8 df'4 af4. } \\ { \tiny gf4. gf8 ~ gf f ( ef4 ) } >> | % 3 + << { \tiny r4 r8 af4 df4. } \\ { \tiny ef,2. ef8 ( df ) } >> | % 4 + << { \tiny r4 r8 af'4 df4. } \\ { \tiny df,1 } >> | % 5 + << { \tiny r4 r8 af'4 df4. } \\ { \tiny ef,8 ( f ) ~ f2. } >> | % 6 + << { \tiny r4 r8 df'4 af4. } \\ { \tiny gf4. gf8 ~ gf f ( ef4 ) } >> | % 7 + << { \tiny r4 r8 gf4 af4. } \\ { \tiny af,1 } >> | % 1 + \normalsize +} + + +% +% Chord names +% + +Chords = \chordmode +{ + % Intro + + s1 | % 1 + s1 | % 2 + s1 | % 3 + s1 | % 4 + s1 | % 5 + s1 | % 6 + s1 | % 7 + s1 | % 8 + + % Verse + + df1 | % 9 + df1/f | % 10 + gf2 af | % 11 + df1 | % 12 + bf1:m | % 13 + gf1 | % 14 + af1 | % 15 + s1 | % 16 + df1/f | % 17 + bf1:m7 | % 18 + af1:sus4 | % 19 + af1 | % 20 + bf1:m7 | % 21 + gf1 | % 22 + af1 | % 23 + af1/gf | % 24 + df1:sus4/f | % 25 + af1/gf | % 26 + af1 | % 27 + af1:7 | % 28 + + % Chorus + + df1 | % 29 + df1/f | % 30 + gf1 | % 31 + af1 | % 32 + df1/f | % 33 + bf1:m | % 34 + gf1 | % 35 + af1 | % 36 + gf1 | % 37 + df1/f | % 38 + ef1:m | % 39 + af1 | % 40 + df1 | % 41 + df1/f | % 42 + af1 | % 43 + df1 | % 44 + + % Midtro + + df1/f | % 45 + gf1 | % 46 + af1 | % 47 + df1 | % 48 + df1/f | % 49 + gf1 | % 50 + af1 | % 51 + + % Verse + + df1 | % 52 + df1/f | % 53 + gf2 af | % 54 + df1 | % 55 + bf1:m | % 56 + gf1 | % 57 + af1 | % 58 + s1 | % 59 + bf1:m | % 60 + df1/f | % 61 + gf1 | % 62 + af1 | % 63 + ef1:m | % 64 + df1 | % 65 + af1/c | % 66 + af1:7 | % 67 + + % Coda + +%\stopStaff s1 \bar "" \startStaff % That removed the spurious floating bar line from line break +%\stopStaff s1 \startStaff +%\set Score.currentBarNumber = #68 +s1 + + df1/f | % 68 + gf1 | % 69 + af1 | % 70 + df1/f | % 71 + bf1:m | % 72 + gf1 | % 73 + af1 | % 74 + + bf1:m | % 75 + df1/af | % 76 + ef1:m/gf | % 77 + f1 | % 78 + gf1 | % 79 + df1/f | % 80 + af1 | % 81 + + % Outro + + df1 | % 82 + df1/f | % 83 + gf1 | % 84 + af1 | % 85 + + df1 | % 86 + df1/f | % 87 + gf1 | % 88 + af1 | % 89 + + df1 | % 90 + df1/f | % 91 + gf1 | % 92 + af1 | % 93 + + df1 | % 94 + df1/f | % 95 + gf1 | % 96 + af1 | % 97 + + df1 | % 98 +} + + +% +% Chord rhythms +% + +% Use a RhythmicStaff on the chords instead of this? +% It almost works, but not quite. Doesn't collapse chords above to single notes... + +%Slash = { \override NoteHead #'style = #'slash } +%Cross = { \override NoteHead #'style = #'cross } + +StaffC = \relative c +{ + \override Staff.TimeSignature #'style = #'() + \time 4/4 + \override NoteHead #'style = #'slash + + % Intro + + r1 | % 1 + r1 | % 2 + r1 | % 3 + r1 | % 4 + r1 | % 5 + r1 | % 6 + r1 | % 7 + r1 \bar "||" % 8 + + % Verse + + c4 c c c | % 9 + c4 c c c | % 10 + c4 c c c | % 11 + c4 c c c | % 12 + c4 c c c | % 13 + c4 c c c | % 14 + c4 c c c | % 15 + c4 c c c | % 16 + c4 c c c | % 17 + c4 c c c | % 18 + c4 c c c | % 19 + c4 c c c | % 20 + c4 c c c | % 21 + c4 c c c | % 22 + c4 c c c | % 23 + c4 c c c | % 24 + c4 c c c | % 25 + c4 c c c | % 26 + c4 c c c | % 27 + c4 c c c \bar "||" % 28 + + % Chorus + + c4 c c c | % 29 + c4 c c c | % 30 + c4 c c c | % 31 + c4 c c c | % 32 + c4 c c c | % 33 + c4 c c c_\markup { "E F#" } | % 34 + c4 c c c | % 35 + c4 c c c | % 36 + c4 c c c | % 37 + c4 c c c | % 38 + c4 c c_\markup { G } c | % 39 + c4 c c c | % 40 + c4 c c c | % 41 + c4 c c c | % 42 + c4_\markup { "G (A)" } c c_\markup { A } c | % 43 + c4 c c c \bar "||" % 44 + + % Midtro + + c4 c c c | % 45 + c4 c c c | % 46 + c4 c c c | % 47 + c4 c c c | % 48 + c4 c c c | % 49 + c4 c c c | % 50 + c4 c c c \bar "||" % 51 + + % Verse + + c4 c c c | % 52 + c4 c c c | % 53 + c4 c c c | % 54 + c4 c c c | % 55 + c4 c c c | % 56 + c4 c c c | % 57 + c4 c c c | % 58 + c4 c c c | % 59 + c4 c c c | % 60 + c4 c c c | % 61 + c4 c c c | % 62 + c4 c c c_\markup { D } | % 63 + c4 c c c | % 64 + c4 c c c | % 65 + c4 c c c_\markup { B } | % 66 + c4 c c c \bar "||" % 67 + + % Coda + +%\stopStaff s1 \bar "" \startStaff % That removed the spurious floating bar line from line break +\stopStaff s1 \startStaff +\set Score.currentBarNumber = #68 + + c4 c c c | % 68 + c4 c c c | % 69 + c4 c c c | % 70 + c4 c c c | % 71 + c4 c c c | % 72 + c4 c c c | % 73 + c4 c c c | % 74 + + c4 c c c | % 75 + c4 c c c | % 76 + c4 c c c | % 77 + c1-\fermata | % 78 + c4 c c c | % 79 + c4 c c c | % 80 + c4_\markup { E } c c_\markup { A } c \bar "||" % 81 + + % Outro + + c4 c c c | % 82 + c4 c c c | % 83 + c4 c c c | % 84 + c4 c c c | % 85 + + c4 c c c | % 86 + c4 c c c | % 87 + c4 c c c | % 88 + c4 c c c | % 89 + + c4 c c c | % 90 + c4 c c c | % 91 + c4 c c c | % 92 + c4 c c c | % 93 + + c4 c c c | % 94 + c4 c c c | % 95 + c4 c c c | % 96 + c4 c c c | % 97 + + c1-\fermata \bar "|." % 98 +} + + +Dynamics = +{ + s4_\markup { \italic { Acoustic guitar only } } s2. | % 1 + s1*26 + s4_\markup { \italic { Piano in } } s2. | % 1 + s1*15 + s4_\markup { \italic { Band in } } s2. | % 1 + +%{ + s4_\markup { \italic { snare on 4, bass 8th notes } } s2. | % 1 + s1*26 | % 2-27 + s2 s4 \< s | % 28 + s4_\f s_\markup { \hspace #0.0 \raise #-2.0 \italic { snare 2 & 4 } } s2 | % 29 + s1*8 | % 30-37 + s2 s4 \< s \! | % 38 + s1 | % 39 + s2. s8 \> s \! | % 40 + s4_\markup { \hspace #0.0 \raise #-2.0 \italic { bass 8th notes, band builds each repeat } } s2. | % 41 + s1*8 | % 42-49 + s4 \< s2. | % 50 + s4_\f s2. | % 51 + s1*5 | % 52-56 + s4_\markup { \hspace #0.0 \raise #-2.0 \italic { rit. last time } } s2. | % 57 + s2 s4 \< s \! | % 58 +%} +} + + +\score +{ + << + << +% \new Staff = leadStaff { \new Voice = "lead" \LeadVox } +% \new Staff = leadStaff { << \new Voice = "lead" \LeadVox \new Voice = "riffs" \Riffs >> } + \new Staff = leadStaff { << \new Voice = "lead" \transpose df d \LeadVox \new Voice = "riffs" \transpose df d \Riffs >> } + \new Lyrics \lyricsto "lead" \LeadVoxText +% \new Lyrics \lyricsto "lead" \LeadVoxTextB + >> + + \new ChoirStaff = "Rhythm" + << +% \new ChordNames = "chords" \Chords + \new ChordNames = "chords" \transpose df d \Chords + \new RhythmicStaff = "chordRhythm" << \StaffC \Dynamics >> + >> + + \set Score.skipBars = ##t + \set Score.melismaBusyProperties = #'() + >> + + \layout + { +% \context { \Staff \RemoveEmptyStaves } +% ragged-last-bottom = ##t + ragged-last = ##t + } +} + + +\paper +{ + #(define fonts (make-pango-font-tree + "Times New Roman" + "DomCasual BT" + "Luxi Mono" + (/ staffSize 20))) + +% top-margin = -0.25 \in +} diff --git a/covers/give-me-love.ly b/covers/give-me-love.ly new file mode 100644 index 0000000..6792023 --- /dev/null +++ b/covers/give-me-love.ly @@ -0,0 +1,577 @@ +\version "2.16.0" +\include "../pop-chords.ly" +\include "english.ly" + +% Good sizes are 16, 18, & 20 +staffSize = #18 +#(set-default-paper-size "letter") +#(set-global-staff-size staffSize) +#(ly:set-option (quote no-point-and-click)) + +%{ Some useful characters: ‘ ’ “ ” – — † ‡ • … %} + +\header +{ +%Let's bump up the title size and switch to the chord font. :-) + + title = \markup { \override #'(font-family . sans) \fontsize #3.5 "Give Me Love" } + composer = \markup { \override #'(font-family . sans) \fontsize #1.3 "George Harrison" } +% arranger = \markup { \override #'(font-family . sans) \fontsize #1.3 "" } + tagline = $(string-append "Engraved by JLH and Lilypond " (lilypond-version)) +} + +% Useful tweak abbreviations (hn = harmony note) + +hn = #(define-music-function (parser location arg) (ly:music?) +;; Harmony Note: Set the tweaks property of the passed in note to use a smaller font + + (set! (ly:music-property arg 'tweaks) + (acons 'font-size -3.5 (ly:music-property arg 'tweaks))) arg) + + +% +% Song's structure +% +Global = +{ + \key f \major + \override Staff.TimeSignature #'style = #'() + \time 4/4 + + % Intro + + \once \override TextScript #'padding = #2.0 + s1*0^\markup { \large \bold { Moderately fast pop } } +%Capo 3 version +% s1*0^\markup { \large \bold { Moderately fast pop "(*** CAPO 3 ***)" } } + s1*13 \bar "||:" % 1-13 + + \repeat volta 2 + { + % A section + + \mark \markup { \override #'(font-family . sans) { \box { A } } } + + s1*15 | % 14-28 + s1 \bar "||" % 29 + + % B section + + \mark \markup { \override #'(font-family . sans) { \box { B } } } + + s1*7 | % 30-36 + \override TextSpanner #'(bound-details left text) = "Gtr. solo 2nd X " + \textSpannerUp + s4\startTextSpan s2. | % 37 + s1*8 | % 38-45 + s1*2 | % 46-47 + s2. s4\stopTextSpan | % 48 + s1 | % 49 + \time 2/4 s2 \time 4/4 | % 50 + s1 | % 51 + } + + \repeat volta 2 + { + % A section + + \mark \markup { \override #'(font-family . sans) { \box { C } } } + + s1*12 | % 52-63 + } + \alternative + { + { + s1*4 | % 64-67 + } + { + s1*2 | % 68-69 + } + } + + s1*5 | % 70-74 + s1 \bar "||" % 75 + + % B section + + \mark \markup { \override #'(font-family . sans) { \box { D } } } + + s1*15 | % 76-90 + s1 \bar "|." % 91 +} + + +% +% Lead vocal +% +LeadVox = \relative c' +{ + \clef G + \override Score.SpacingSpanner #'average-spacing-wishes = ##f + + % Intro + + s1*12 | % 1-12 + s2 c4 a8 c ~ | % 13 + + % A section + + c4 r c a8 c ~ | % 14 + c4 r c a | % 15 + r2 d8 c4 c8 ~ | % 16 + c4 r a8 c4 df8 ~ | % 17 + df4 r df8 ( c ) bf c ~ | % 18 + c4 r d c | % 19 + r2 ef8 ( d ) c d ~ | % 20 + d4 r c4 a ~ | % 21 + + c4 r c a8 c ~ | % 22 + c4 r c a | % 23 + r4 d ~ d8 d4 c8 ~ | % 24 + c4 r bf8 c4 df8 ~ | % 25 + df2 df8 ( c ) bf c ~ | % 26 + c2 d4 c | % 27 + r2 ef8 ( d ) c d ~ | % 28 + d1 | % 29 + + % B Section + + c1 ~ | % 30 + c1 ~ | % 31 + c1 ~ | % 32 + c1 ~ | % 33 + c2 c4 ( bf8 a ) | % 34 + R1 | % 35 + df8 ( c bf4 ) ~ bf2 | % 36 + R1 | % 37 + + r2 c ~ | % 38 + c1 ~ | % 39 + c1 ~ | % 40 + c1 ~ | % 41 + c2. c4 | % 42 + c8 ( bf a ) bf ~ bf c4 d8 ~ | % 43 + d1 | % 44 + r2 r4 r8 d | % 45 + + d2 ( b4. ) b8 ~ | % 46 + b4. c8 ~ c d4 e8 ( ~ | % 47 + e8 d c ) c ~ c2 | % 48 + \times 2/3 { d2 e e } | % 49 + c2 | % 50 + d8 ( e4 ) f8 ~ f2 | % 51 + + % A section + + c4 a8 c ~ c4 r8 c ~ | % 52 + c8 a c4 r8 c a4 | % 53 + r2 d8 c4 c8 ~ | % 54 + c4 r a8 c4 df8 ~ | % 55 + df4 r df8 ( c ) bf c ~ | % 56 + c4 r d c | % 57 + r2 ef8 ( d ) c d ~ | % 58 + d4 r c4 a ~ | % 59 + + c4 r c a8 c ~ | % 60 + c4 r c a | % 61 + r4 d ~ d8 d4 c8 ~ | % 62 + c4 r bf8 c4 df8 ~ | % 63 + + df2 df8 ( c ) bf c ~ | % 64 + c2 d4 c | % 65 + r2 ef8 ( d ) c d ~ | % 66 + d1 | % 67 + + df1\repeatTie ~ | % 68 + df2 df8 ( c ) bf c ~ | % 69 + + c2 d | % 70 + r2. c4 | % 71 + ef1 ~ | % 72 + ef2 ~ ef4. c8 | % 73 + d1 ( | % 74 + bf1 ) | % 75 + + % B Section + + c1 ~ | % 76 + c1 ~ | % 77 + c1 ~ | % 78 + c1 ~ | % 79 + c2 c4 ( bf8 a ) | % 80 + R1 | % 81 + df8 ( c bf4 ) ~ bf2 | % 82 +} + +LeadVoxText = \lyricmode +{ + Give me love, _ give me love, _ + give me peace on earth; _ + Give me light, _ give _ me life, _ + keep me free _ from birth. _ + Give me hope, help me cope _ + with this hea -- _ vy load. _ + Try -- ing to _ touch _ and reach _ you with + heart _ and soul. __ _ + + Oh, __ _ _ _ _ my _ _ Lord. __ _ _ _ + Please, __ _ _ _ _ take hold __ _ _ of _ my hand _ + that I __ _ might _ un -- _ der -- stand __ _ _ _ you _ + Won’t you please, oh won’t _ you _ + + Give me love, _ give _ me love, + give me peace on earth; _ + Give me light, _ give _ me life, _ + keep me free _ from birth. _ + Give me hope, help me cope _ + with this hea -- _ vy load. _ + Try -- ing to _ touch _ and reach _ you with + heart _ and soul. _ + + _ _ touch _ and reach _ you with + heart __ _ _ and soul. __ _ + + Oh, __ _ _ _ _ my _ _ Lord. __ _ _ _ +} + + +% +% Riffs +% +Riffs = \relative c'' +{ + % Intro + + \tiny + R1 | % 1 + R1 | % 2 + R1 | % 3 + R1 | % 4 + + c8 ( f ) ~ f2. | % 5 + e2 ~ e8 a4. | % 6 + d,1 ( | % 7 + c1 ) | % 8 + bf4 ( df2. ) | % 9 + df4 ( e2. ) | % 10 + ef1 | % 11 + d8 ef4 f8 ~ f4 bf-. | % 12 + d,2 s2 | % 13 + + s1*36 | % 14-49 + s2 | % 50 + s1*32 | % 51-82 + r8 df df df df ( c ) bf4 | % 83 + R1*8 | % 84-91 + \normalsize +} + + +% +% Chord names +% +Chords = \chordmode +{ +%Bah, can't we set this globally? +%Yes, we can! +% \popChords + + % Intro + + f4:sus2 f2. | % 1 + s1 | % 2 + f4:sus2 f2. | % 3 + s1 | % 4 + f1 | % 5 + f1:maj7 | % 6 + g1:m | % 7 + c1 | % 8 + bf1:m | % 9 + c1 | % 10 + ef1 | % 11 + bf1 | % 12 + s1 | % 13 + + % A section + + f1 | % 14 + f1:maj7 | % 15 + g1:m | % 16 + c1 | % 17 + bf1:m | % 18 + c1 | % 19 + ef1 | % 20 + bf1 | % 21 + + f1 | % 22 + f1:maj7 | % 23 + g1:m | % 24 + c1 | % 25 + bf1:m | % 26 + c1 | % 27 + ef1 | % 28 + bf1 | % 29 + + % B section + + f1 | % 30 + s1 | % 31 + f1:maj7 | % 32 + s1 | % 33 + f1:7 | % 34 + s1 | % 35 + bf1:7 | % 36 + s1 | % 37 + + f1 | % 38 + s1 | % 39 + f1:maj7 | % 40 + s1 | % 41 + f1:7 | % 42 + s1 | % 43 + bf1 | % 44 + s1 | % 45 + + g1:7 | % 46 + s1 | % 47 + c1 | % 48 + s1 | % 49 + s2 | % 50 + s1 | % 51 + + % A section + + f1 | % 52 + f1:maj7 | % 53 + g1:m | % 54 + c1 | % 55 + bf1:m | % 56 + c1 | % 57 + ef1 | % 58 + bf1 | % 59 + + f1 | % 60 + f1:maj7 | % 61 + g1:m | % 62 + c1 | % 63 + + bf1:m | % 64 + c1 | % 65 + ef1 | % 66 + bf1 | % 67 + + bf1:m | % 80 + s1 | % 81 + + c1 | % 82 + s1 | % 83 + ef1 | % 84 + s1 | % 85 + bf1 | % 86 + s1 | % 87 + + % B section + + f1 | % 88 + s1 | % 89 + f1:maj7 | % 90 + s1 | % 91 + f1:7 | % 92 + s1 | % 93 + bf1:7 | % 94 + s1 | % 95 + + f1 | % 96 + s1 | % 97 + f1:maj7 | % 98 + s1 | % 99 + f1:7 | % 100 + s1 | % 101 + bf1:7 | % 102 + s1 | % 103 +} + + +% +% Chord rhythms +% + +% Use a RhythmicStaff on the chords instead of this? +% It almost works, but not quite. Doesn't collapse chords above to single notes... + +Rhythm = +{ + \override Staff.TimeSignature #'style = #'() + \override NoteHead #'style = #'slash + + % Intro + + c8 c c4 c c | % 1 + c4 c c c | % 2 + c8 c c4 c c | % 3 + c4 c c c | % 4 + c4 c c c | % 5 + c4 c c c | % 6 + c4 c c c | % 7 + c4 c c c | % 8 + c4 c c c | % 9 + c4 c c c | % 10 + c4 c c c | % 11 + c4 c c c | % 12 + c4 c c c | % 13 + + % A section + + c4 c c c | % 14 + c4 c c c | % 15 + c4 c c c | % 16 + c4 c c c | % 17 + c4 c c c | % 18 + c4 c c c | % 19 + c4 c c c | % 20 + c4 c c c | % 21 + + c4 c c c | % 22 + c4 c c c | % 23 + c4 c c c | % 24 + c4 c c c | % 25 + c4 c c c | % 26 + c4 c c c | % 27 + c4 c c c | % 28 + c4 c c c | % 29 + + % B section + + c4 c c c | % 30 + c4 c c c | % 31 + c4 c c c | % 32 + c4 c c c | % 33 + c4 c c c | % 34 + c4 c c c | % 35 + c4 c c c | % 36 + c4 c c c | % 37 + + c4 c c c | % 38 + c4 c c c | % 39 + c4 c c c | % 40 + c4 c c c | % 41 + c4 c c c | % 42 + c4 c c c | % 43 + c4 c c c | % 44 + c4 c c c | % 45 + + c4 c c c | % 46 + c4 c c c | % 47 + c4 c c c | % 48 + \times 2/3 { c2 c c } | % 49 + c2 | % 50 + c4 c c c | % 51 + + % A section + + c4 c c c | % 52 + c4 c c c | % 53 + c4 c c c | % 54 + c4 c c c | % 55 + c4 c c c | % 56 + c4 c c c | % 57 + c4 c c c | % 58 + c4 c c c | % 59 + + c4 c c c | % 60 + c4 c c c | % 61 + c4 c c c | % 62 + c4 c c c | % 63 + + c4 c c c | % 64 + c4 c c c | % 65 + c4 c c c | % 66 + c4 c c c | % 67 + + c4 c c c | % 80 + c4 c c c | % 81 + + c4 c c c | % 82 + c4 c c c | % 83 + c4 c c c | % 84 + c4 c c c | % 85 + c4 c c c | % 86 + c4 c c c | % 87 + + % B section + + c4 c c c | % 88 + c4 c c c | % 89 + c4 c c c | % 90 + c4 c c c | % 91 + c4 c c c | % 92 + c4 c c c | % 93 + c4 c c c | % 94 + c4 c c c | % 95 + + c4 c c c | % 96 + c4 c c c | % 97 + c4 c c c | % 98 + c4 c c c | % 99 + c4 c c c | % 100 + c4 c c c | % 101 + c4 c c c | % 102 + c4 c c c-\fermata | % 103 +} + +Dynamics = +{ + % Intro + s4_\markup { \italic { Ac. gtr only } } s2. | % 1 + + s1*3 | % 2-4 + + s4_\markup { \italic { Band in } } s2. | % 5 +} + + +\score +{ + << + \Global % The "roadmap" that everything else depends on + + \context Staff + << + \context Staff << \new Voice = "lead" \LeadVox \new Voice \Riffs >> + \new Lyrics \lyricsto "lead" \LeadVoxText + >> + + \new ChoirStaff + << + \new ChordNames \Chords +%Capo 3 edition +% \new ChordNames \transpose f d \Chords + \new RhythmicStaff << \Rhythm \Dynamics >> + >> + + \set Score.skipBars = ##t + \set Score.melismaBusyProperties = #'() + >> +} + + +\paper +{ + #(define fonts (make-pango-font-tree + "Times New Roman" + "DomCasual BT" + "Luxi Mono" + (/ staffSize 20))) + +% Spread staves vertically across last page (default: t) +% ragged-last-bottom = ##f +% Don't spread staves vertically across the page (default: f) +% ragged-bottom = ##t +% Allow partial line for last stave (default: f) +% ragged-last = ##t + +% To find out what's eating the space at the top... +% annotate-spacing = ##t +%let's try this: [It works! Huzzah!] + obsolete-page-top-space = 0 top-system-spacing #'basic-distance = #(/ obsolete-page-top-space staff-space) +} diff --git a/covers/i-want-to-tell-you.ly b/covers/i-want-to-tell-you.ly new file mode 100644 index 0000000..f5fc353 --- /dev/null +++ b/covers/i-want-to-tell-you.ly @@ -0,0 +1,492 @@ +\version "2.16.0" +\include "../pop-chords.ly" +\include "english.ly" + +% Good sizes are 16, 18, & 20 +staffSize = #18 +#(set-default-paper-size "letter") +#(set-global-staff-size staffSize) +#(ly:set-option (quote no-point-and-click)) + +%{ Some useful characters: ‘ ’ “ ” – — † ‡ • … %} + +\header +{ +%Let's bump up the title size and switch to the chord font. :-) + + title = \markup { \override #'(font-family . sans) \fontsize #3.5 "I Want To Tell You" } + composer = \markup { \override #'(font-family . sans) \fontsize #1.3 "G. Harrison" } +% arranger = \markup { \override #'(font-family . sans) \fontsize #1.3 "arr. S. Hammons" } + tagline = $(string-append "Engraved by JLH and Lilypond " (lilypond-version)) + subtitle = \markup { \override #'(font-family . sans) \fontsize #1.3 "piano/vocal" } +% Let's try a chord dictionary +% subtitle = \markup { \center-align { "F13" \fret-diagram-terse #"x;8;7;8;8;10;" } " " \center-align { "F7#9" \fret-diagram-terse #"x;8;7;8;9;x;" } } % " " \center-align { "F#m/E" \fret-diagram-terse #"x;x;2;2;2;2;" } " " \center-align { "F#m/Eb" \fret-diagram-terse #"x;x;1;2;2;2;" } " " \center-align { "Em7" \fret-diagram-terse #"o;2;2;o;3;o;" } " " \center-align { "A13" \fret-diagram-terse #"x;o;2;o;2;2;" } } +} + +% Useful tweak abbreviations (hn = harmony note) + +hn = #(define-music-function (parser location arg) (ly:music?) +;; Harmony Note: Set the tweaks property of the passed in note to use a smaller font + + (set! (ly:music-property arg 'tweaks) + (acons 'font-size -3.0 (ly:music-property arg 'tweaks))) arg) + + +% +% Song's structure +% +Global = +{ + \key a \major + \override Staff.TimeSignature #'style = #'() + \time 4/4 + + % Intro + +% Capo 4 version +% s1*0^\markup { \hspace #0.0 \raise #2.0 \bigger \bold { "Moderate pop (*** CAPO 4 ***)" } } + +% \once \override TextScript #'padding = #2.0 +% s1*0^\markup { \large \bold { Moderate shuffle } } + \repeat volta 2 + { + s1*4 | % 1-4 + } + + \repeat volta 2 + { + \mark \markup { \override #'(font-family . sans) { \box { A } } } + s1*11 | % 5-15 + } + + \repeat volta 2 + { + \mark \markup { \override #'(font-family . sans) { \box { B } } } + s1*8 \bar "||" % 16-23 + \mark \markup { \override #'(font-family . sans) { \box { C } } } + s1*11 | % 24-34 + } + + s1*2 \bar "||" % 35-36 + s1*7 \bar "|." % 37-43 +% \mark \markup { \override #'(font-family . sans) { \box { A } } } +} + + +% +% Lead vocal +% +LeadVox = \relative c' +{ +% \set Staff.instrument = #"Lead vox" + \clef G + \override Staff.TimeSignature #'style = #'() +%Hm. Needed anymore? +% \override Score.SpacingSpanner #'average-spacing-wishes = ##f + + r1 | % 1 + r1 | % 2 + r1 | % 3 + r1 | % 4 + + r4 r8 e a b r8 cs ~ | % 5 + cs2 ( a4 ) r | % 6 + r4 r8 4 8 ~ | % 7 + 8 4 8 ~ 4 8 ~ | % 8 + 1 | % 9 + r2 d8 cs4 b8 ~ | % 10 + b4 r r2 | % 11 + r2 d8 cs4 b8 ~ | % 12 + b8 b4 a8 ~ a8 gs4. | % 13 + 8 ( ) ~ 2 ~ | % 14 + 2. r4 | % 15 + + r4 r8 b8 b b4 b8 ( | % 16 + cs4 ) b8 b ~ b b4 b8 ~ | % 17 + b8 ( a ) r a8 ~ \times 2/3 { a4 a a } | % 18 + \acciaccatura { a8 } b8 ( a4 ) a8 a gs4 a8 ( | % 19 + fs2 ) r | % 20 + r4 b8 a ~ a gs4 b8 ~ | % 21 + b8 a4 a8 ~ a2 ~ | % 22 + a4 r r2 | % 23 + + r4 r8 e a b r8 cs ~ | % 24 + cs2 ( a4 ) r | % 25 + r4 r8 4 8 ~ | % 26 + 8 4 8 ~ 4 8 ~ | % 27 + 1 | % 28 + r2 d8 cs4 b8 ~ | % 29 + b4 r r2 | % 30 + r2 d8 cs4 b8 ~ | % 31 + b8 b4 a8 ~ a8 gs4. | % 32 + 8 ( ) ~ 2 ~ | % 33 + 2. r4 | % 34 + + r1 | % 35 + r1 | % 36 + + 8 4 8 ~ 2 ~ | % 37 + 2. r4 | % 38 + 8 4 8 ~ 2 ~ | % 39 + 1 ~ | % 40 + 1 ~ | % 41 + 1 ~ | % 42 + 1 | % 43 +} + +LeadVoxText = \lyricmode +{ + I want to tell _ you + My head is filled _ with things _ to say _ + When you’re here _ + All those words _ they seem _ to slip a -- _ way _ _ + + But if I seem _ to act _ un -- kind _ _ + It’s _ on -- ly me, _ it’s not my mind _ + That is _ con -- fus -- _ ing things _ _ + + I want to tell _ you + I feel hung up _ and_I don’t know _ why _ + I don’t mind, _ + I could wait _ for -- e -- _ ver, I’ve got _ time _ _ + + I’ve got time _ _ + I’ve got time +} + +LeadVoxTextB = \lyricmode +{ + When I get near _ you + The games be -- gin _ to drag _ me down _ + It’s all right _ + I’ll make you _ may -- be _ next time a -- _ round _ _ + + Some -- times I wish _ I knew _ you well _ _ + Then _ I could speak my mind and tell you _ + May -- be _ you’d un -- _ der -- stand _ _ +} + + +PianoRightHand = \relative c' +{ + \clef G + \override Staff.TimeSignature #'style = #'() +%Hm. Needed anymore? +% \override Score.SpacingSpanner #'average-spacing-wishes = ##f + \key a \major + + % Intro + + \acciaccatura { c8 } cs1 | % 1 + \acciaccatura { gs'8 } 1 | % 2 + \acciaccatura { c8 } cs1 | % 1\3 + \acciaccatura { gs'8 } 1 | % 4 + + % Verse + + \repeat percent 3 + { + \acciaccatura { c8 } 4 \acciaccatura { c8 } 4 + \acciaccatura { c8 } 4 \acciaccatura { c8 } 4 | % 5-7 + } + \acciaccatura { c8 } 4 \acciaccatura { c8 } 4 + \acciaccatura { d8 } 4 \acciaccatura { d8 } 4 | % 8 + \acciaccatura { d8 } 4 \acciaccatura { d8 } 4 + \acciaccatura { d8 } 4 \acciaccatura { d8 } 4 | % 9 + \repeat percent 4 + { + 8. e16 8. e16 8. e16 8. e16 | % 10-13 + } + r1 | % 14 + r1 | % 15 + + % Bridge + + 4 | % 16 + 4 | % 17 + 4 | % 18 + 4 | % 19 + 4 | % 20 + 4 | % 21 + 4 8. d16 d2 | % 22 + \times 2/3 { r8 a' a } \times 2/3 { a a a } + \times 2/3 { a a a } \times 2/3 { a a a } | % 23 + + % Verse + + \repeat percent 3 + { + \acciaccatura { c,8 } 4 \acciaccatura { c8 } 4 + \acciaccatura { c8 } 4 \acciaccatura { c8 } 4 | % 24-26 + } + \acciaccatura { c8 } 4 \acciaccatura { c8 } 4 + \acciaccatura { d8 } 4 \acciaccatura { d8 } 4 | % 27 + \acciaccatura { d8 } 4 \acciaccatura { d8 } 4 + \acciaccatura { d8 } 4 \acciaccatura { d8 } 4 | % 28 + \repeat percent 4 + { + 8. e16 8. e16 8. e16 8. e16 | % 29-32 + } + r1 | % 33 + r1 | % 34 + + a,1 ~ | % 35 + a2 \times 2/3 { r8 a a } \times 2/3 { a a a } | % 36 + + a8 a4 a8 ~ a2 | % 37 + a2 \times 2/3 { r8 a' a } \times 2/3 { a a a } | % 38 + a8 a4 a8 a2 | % 39 + \times 2/3 { r8 a8 a } a4 r2 | % 40 + r1 | % 41 + r1 | % 42 + r1 | % 43 +} + + +PianoLeftHand = \relative c +{ + \clef F + \override Staff.TimeSignature #'style = #'() +%Hm. Needed anymore? +% \override Score.SpacingSpanner #'average-spacing-wishes = ##f + \key a \major + + % Intro + + 1 | % 1 + 1 | % 2 + 1 | % 3 + 1 | % 4 + + % Verse + + a4 a a a | % 5 + a4 a a a8. e'16 | % 6 + a,4 a a a | % 7 + a4 a b b | % 8 + b4 b b b | % 9 + \repeat percent 4 + { + e4 e e e | % 10-13 + } + 8 4. ~ 2 ~ | % 14 + 2. r4 | % 15 + + % Bridge + + \repeat percent 2 + { + 4 | % 16-17 + } + 4 | % 18 + 4 | % 19 + \repeat percent 2 + { + 4 | % 20-21 + } + 1 ~ | % 22 + 1 | % 23 + + % Verse + + a4 a a a | % 24 + a4 a a a8. e'16 | % 25 + a,4 a a a | % 26 + a4 a b b | % 27 + b4 b b b | % 28 + \repeat percent 4 + { + e4 e e e | % 29-32 + } + 8 4. ~ 2 ~ | % 33 + 2. r4 | % 34 + + 1 ~ | % 35 + 1 | % 36 + + 1 ~ | % 37 + 1 | % 38 + 1 ~ | % 39 + 1 | % 40 + 1 ~ | % 41 + 1 | % 42 + 1 | % 43 +} + + +Riffs = \relative c' +{ + \clef G +%Hm. Needed anymore? +% \override Score.SpacingSpanner #'average-spacing-wishes = ##f + + % Intro + +% \tiny +% f8 a ef' g d' r s4 +% \normalsize +} + + +% +% Chord names +% +Chords = \chordmode +{ + a1:7 | % 1 + a1:sus4 | % 2 + a1:7 | % 3 + a1:7sus4 | % 4 + + a1 | % 5 + s1 | % 6 + s1 | % 7 + a2 b:7 | % 8 + s1 | % 9 + e1:7 | % 10 + s1 | % 11 + s1 | % 12 + s1 | % 13 + a1:7 | % 14 + s1 | % 15 + + b1:m | % 16 + b1:dim | % 17 + a1 | % 18 + b1:7 | % 19 + b1:m | % 20 + b1:dim | % 21 + a1 | % 22 + s1 | % 23 + + a1 | % 24 + s1 | % 25 + s1 | % 26 + a2 b:7 | % 27 + s1 | % 28 + e1:7 | % 29 + s1 | % 30 + s1 | % 31 + s1 | % 32 + a1:7 | % 33 + s1 | % 34 + +} + + +% +% Chord rhythms +% +% Use a RhythmicStaff on the chords instead of this? +% It almost works, but not quite. Doesn't collapse chords above to single notes... +% +Rhythm = \relative c +{ +%% \set Voice.autoBeaming = ##f +%% \set Staff.instrument = #"Rhythm" + \override Staff.TimeSignature #'style = #'() + \override NoteHead #'style = #'slash + + c1 | % 1 + c1 | % 2 + c1 | % 3 + c1 | % 4 + + c4 c c c | % 5 + c4 c c c | % 6 + c4 c c c | % 7 + c4 c c c | % 8 + c4 c c c | % 9 + c4 c c c | % 10 + c4 c c c | % 11 + c4 c c c | % 12 + c4 c c c | % 13 + c4 c c c | % 14 + c4 c c c | % 15 + + c4 c c c | % 16 + c4 c c c | % 17 + c4 c c c | % 18 + c4 c c c | % 19 + c4 c c c | % 20 + c4 c c c | % 21 + c4 c c c | % 22 + c4 c \times 2/3 { r8 c c } \times 2/3 { c c c } | % 23 + c8-. r r4 \times 2/3 { r8 c c } \times 2/3 { c c c } | % 24 + c4 c c c | % 25 + + c4 c c c | % 26 + + c4 c c c | % 27 +} + + +Dynamics = +{ +% s4_\markup { \italic { Let notes ring } } s2. | % 1 +%{ + s4_\markup { \italic { snare pat. } } s2 | % 1 + s4_\markup { \italic { simile } } s2 | % 2 + s2.*19 + s4_\markup { \italic { spacey } } s2 | % 22 + s2.*5 + s4 s \< s \! | % 28 + s2.*22 + s4_\markup { \italic { Last time } } s2 | % 51 +%} +} + + +\score +{ + << + \set Score.skipBars = ##t + \set Score.melismaBusyProperties = #'() + +% \new Staff + << + \new ChordNames \Chords +%Capo 4 edition +% \new ChordNames \transpose b g \Chords +% \new RhythmicStaff << \Rhythm \Dynamics >> + >> + + \new Staff + << +% \new ChordNames \Chords + \Global % The "roadmap" that everything else depends on + \new Voice = "lead" \LeadVox + \new Voice \Riffs + \new Lyrics \lyricsto "lead" \LeadVoxText + \new Lyrics \lyricsto "lead" \LeadVoxTextB + >> + \new PianoStaff + << +% \set PianoStaff.instrumentName = #"Piano " + \new Staff = "right" \PianoRightHand + \new Staff = "left" \PianoLeftHand + >> + >> +} + + +\paper +{ + #(define fonts (make-pango-font-tree + "Times New Roman" + "DomCasual BT" + "Luxi Mono" + (/ staffSize 20))) + +% Spread staves vertically across last page (default: t) + ragged-last-bottom = ##f +% Don't spread staves vertically across the page (default: f) +% ragged-bottom = ##t +% Allow partial line for last stave (default: f) +% ragged-last = ##t + +% To find out what's eating the space at the top... +% annotate-spacing = ##t +%let's try this: [It works! Huzzah!] + obsolete-page-top-space = 0 top-system-spacing #'basic-distance = #(/ obsolete-page-top-space staff-space) +} diff --git a/covers/le-nozze-di-figaro-voi-che-sapete.ly b/covers/le-nozze-di-figaro-voi-che-sapete.ly new file mode 100644 index 0000000..4535f02 --- /dev/null +++ b/covers/le-nozze-di-figaro-voi-che-sapete.ly @@ -0,0 +1,459 @@ +\version "2.16.0" +%\include "pop-chords.ly" +\include "english.ly" + +% Good sizes are 16, 18, & 20 +staffSize = #16 +#(set-default-paper-size "letter") +#(set-global-staff-size staffSize) +#(ly:set-option (quote no-point-and-click)) + +%{ Some useful characters: ‘ ’ “ ” – — † ‡ • … è é ì í ò ó %} + +\header +{ +%Let's bump up the title size and switch to the chord font. :-) + + title = \markup { \override #'(font-family . sans) \fontsize #3.5 "Le Nozze di Figaro, Act II" } + subtitle = \markup { \override #'(font-family . sans) \fontsize #3.5 "Aria: “Voi che sapete” (Soprano)" } + composer = \markup { \override #'(font-family . sans) \fontsize #1.3 "W.A. Mozart" } +% arranger = \markup { \override #'(font-family . sans) \fontsize #1.3 "arr. Ed Smart" } + tagline = $(string-append "Engraved by JLH and Lilypond " (lilypond-version)) +} + + +% Useful tweak abbreviations (hn = harmony note) + +hn = #(define-music-function (parser location arg) (ly:music?) +;; Harmony Note: Set the tweaks property of the passed in note to use a smaller font + + (set! (ly:music-property arg 'tweaks) + (acons 'font-size -3.0 (ly:music-property arg 'tweaks))) arg) + + +% +% Song's structure +% +Global = +{ + \key bf \major + \override Staff.TimeSignature #'style = #'() + \time 2/4 + + % Intro + + s2^\markup { \bold { ATTO II. } \italic { Seguito della Scena II. } } | % 1 + s2*7 \bar "||" % 2-8 + + % Body + + s2^\markup { \bold { CHERUBINO. } } | % 9 + s2*70 \bar "|." % 10-78 +} + + +% +% Lead vocal +% +LeadVox = \relative c'' +{ + \key bf \major + \override Staff.TimeSignature #'style = #'() + \time 2/4 + +% \set Staff.instrument = #"Lead vox" + \clef G + + % Intro + + r2 | % 1 + r2 | % 2 + r2 | % 3 + r2 | % 4 + r2 | % 5 + r2 | % 6 + r2 | % 7 + r2 | % 8 + + % Verse + + bf4 f8 f | % 9 + c'4 f, | % 10 + d'4 bf16. c32 d16. ef32 | % 11 + c4 r | % 12 + d4 ef8 e | % 13 + f8. d16 bf8 r | % 14 + c4 df8 d | % 15 + ef4 r | % 16 + + f8 ( d ) f d | % 17 + c8 ( ef ) c ( ef ) | % 18 + bf4 a16. bf32 c16. d32 | % 19 + bf4 r | % 20 + c4 c8 c | % 21 + d16 ( e f d ) c4 | % 22 + g8. ( a16 ) bf8 c | % 23 + \appoggiatura { bf8 } a4 r | % 24 + + d4 e8 e | % 25 + f8. ( d16 ) a8 r | % 26 + a8. ( d16 ) c8 b | % 27 + c4 r | % 28 + c4 c8 f | % 29 + e8 ( c ) bf r | % 30 + a4 f8 bf | % 31 + \appoggiatura { a8 } g4 r | % 32 + + c4 c16 ( d ) e ( f ) | % 33 + f16 ( e d c ) bf8 r | % 34 + af4 g8 f | % 35 + c'4 r | % 36 + c4 c8 c | % 37 + ef4 df | % 38 + df8 ( bf ) g df | % 39 + c4 r | % 40 + + ef'8 c ef c | % 41 + bf8 ( df ) bf ( df ) | % 42 + af4 \appoggiatura { c8 } bf8. af16 | % 43 + af4 r | % 44 + c4 c8 c | % 45 + c16 ( d ef d ) c4 | % 46 + ef4 d8 c | % 47 + g2 | % 48 + + ef'4 d8 cs | % 49 + d4 bf | % 50 + a4 d8 d | % 51 + g,4 r16 bf bf bf | % 52 + c16 ( bf ) bf8 r16 bf bf bf | % 53 + g8 r c c16 c | % 54 + d16 ( c ) c8 r16 c c c | % 55 + a4 r16 d d d | % 56 + + ef16 ( d ) d8 d d16 d | % 57 + bf8 bf ef ef | % 58 + ef8. f16 d4 | % 59 + df4 c8 bf | % 60 + f2 | % 61 + bf4 f8 f | % 62 + c'4 f, | % 63 + d'4 bf16. c32 d16. ef32 | % 64 + + c4 r | % 65 + d4 ef8 e | % 66 + f8. ( d16 ) bf8 r | % 67 + c4 df8 d | % 68 + ef4 r | % 69 + f8 ( d ) f d | % 70 + c8 ( ef ) c ( ef ) | % 71 + bf4 f8. f16 | % 72 + + d4 r | % 73 + f'8 ( d ) f d | % 74 + c8 ( ef ) c ( ef ) | % 75 + bf4 a16. ( bf32 ) c16. ( d32 ) | % 76 + bf4 r | % 77 + r2 | % 78 + r2 | % 79 +} + + +LeadVoxText = \lyricmode +{ + Voi che sa -- pe -- te che co -- sa è a -- mor, + don -- ne ve -- de -- _ te s’io l’ho nel cor, + don -- _ ne ve -- de -- _ te _ s’io l’ho _ nel _ cor. + + Quel -- lo ch’io pro -- _ _ _ vo vi -- _ ri -- di -- rò, + è per me nuo -- _ vo, ca -- _ pir nol so. + + Sen -- to_un af -- fet -- _ to pien di de -- sir, + ch’o -- ra è di -- _ let -- _ _ _ to, + ch’o -- ra_è mar -- tir; + ge -- lo,è poi sen -- to l’al -- ma av vam -- par, + e in un mo -- men -- _ to _ tor -- no_a ge -- lar. + + Ri -- cer -- co_un be -- _ _ _ ne fuo -- ri di me; + non so chi_il tie -- ne, + non so co -- s’è; + so -- spi -- ro_e ge -- _ mo sen -- za vo -- ler, + pal -- pi -- to_e tre -- _ mo sen -- za sa -- per; + non tro -- vo pa -- _ ce not -- te nè di, + ma pur mi pia -- _ ce lan -- guir co -- sì. + + Voi che sa -- pe -- te che co -- sa è a -- mor, + don -- ne ve -- de -- _ te s’io l’ho nel cor, + don -- _ ne ve -- de -- _ te _ s’io l’ho nel cor, + don -- _ ne ve -- de -- _ te _ s’io l’ho _ nel _ cor. +} + + +RightHand = \relative c' +{ + \key bf \major + \clef G + + % Intro + + << { bf'4 ( f8 ) f } \\ { d2 } >> | % 1 + << { c'4 ( f,8 ) f } \\ { ef4. c8 } >> | % 2 + d'4 bf16. ( 32 16. 32 ) | % 3 + 8 f, f f | % 4 + 8 ( 16 ) r 8 ( 16 ) r | % 5 + 8 ( 16 ) r 8 ( 16 ) r | % 6 + 4 16. ( 32 ) 16. ( 32 ) | % 7 + 8-. -. -. r | % 8 + + % Verse + + r16 -. -. -. r -. -. -. | % 9 + r16 -. -. -. r -. -. -. | % 10 + r16 -. -. -. r -. -. -. | % 11 + r16 -. -. -. r -. -. -. | % 12 + << { r16 bf bf' bf, r bf bf' bf, } \\ { d4 ( ef8 e ) } >> | % 13 + << { f16 ( \times 2/3 { f32 g f } bf16-. ) -. -. -. -. -. } \\ { f16 d8 f16 ef d c bf } >> | % 14 + << { r16 r } \\ { c4 ( df8 d ) } >> | % 15 + ef16 ( \times 2/3 { 32 } 16 ) -. -. -. -. -. | % 16 + + r16 r | % 17 + r16 r | % 18 + 4 16. ( 32 ) 16. ( 32 ) | % 19 + 8-. -. 16 d, | % 20 + r16 r | % 21 + r16 r | % 22 + r16 r | % 23 + r8 a ( ) | % 24 + + << { a'2 ( } \\ { f4 ( cs } >> | % 25 + << { a'8 ) } \\ { d,8 ) } >> ( ) | % 26 + 8 ( d' c b ) | % 27 + << { c2 ( } \\ { r8 g ( bf e, } >> | % 28 + << { c'16 ) } \\ { f,16 ) } >> 16 r | % 29 + r16 r | % 30 + r16 r | % 31 + r8 << { 4 8 } \\ { g bf e, } >> | % 32 + + 16 r | % 33 + r16 r | % 34 + r16 r | % 35 + r16 r | % 36 + r16 r | % 37 + r16 r | % 38 + r16 r | % 39 + << { c''8 ( af ef c ) } \\ { ef ( ) } >> | % 40 + + r16 r | % 41 + r16 r | % 42 + 4 16. ( 32 ) 16. ( 32 ) | % 43 + 8 16 | % 44 + r16 r | % 45 + r16 r | % 46 + r16 r | % 47 + << { g'16 g g g g g g g } \\ { b,8 ( ) } >> | % 48 + + r16 | % 49 + r16 r | % 50 + r16 r | % 51 + r16 4 ~ | % 52 + 2 ~ | % 53 + 8 ( 4 ) ~ | % 54 + 2 ~ | % 55 + 8 << { d'4 ~ } \\ { d,4 ~ } >> | % 56 + + << { d'2 ~ } \\ { d,2 ~ } >> | % 57 + << { d'4 ef ( } \\ { d,8 ( g4 gf8 ) ( } >> | % 58 + << { ef'4 ) ( d ) } \\ { f,8 a bf4 ) } >> | % 59 + << { 4 8 } \\ { g2 } >> | % 60 + << { f2 } \\ { r16 } >> | % 61 + r16 r | % 62 + r16 r | % 63 + r16 r | % 64 + + r16 | % 65 + << { r16 bf bf' bf, r bf bf' bf, } \\ { d4 ( ef8 e ) } >> | % 66 + << { f16 ( \times 2/3 { f32 g f } bf16-. ) -. -. -. -. -. } \\ { f16 d8 f16 ef d c bf } >> | % 67 + << { r16 r } \\ { c4 ( df8 d ) } >> | % 68 + r16 \times 2/3 { 32 ( } 16 ) -. -. -. -. -. | % 69 + 16 r | % 70 + r16 r | % 71 + r16 r | % 72 + + << { r8 d' g bf } \\ { bf,4 d8 g } >> | % 73 + 2 | % 74 + 2 | % 75 + 4 a'16. ( bf32 ) c16. ( d32 ) | % 76 + bf4 << { a8.-\trill g32 a } \\ { c,4 } >> | % 77 + << { bf'8 r c8.-\trill bf32 c } \\ { bf,8 r 4 } >> | % 78 + << { bf'8 } \\ { d,8 } >> r r4 | % 79 +} + + +LeftHand = \relative c +{ + \key bf \major + \clef F + + % Intro + + << { r16 f16-. bf-. f-. r f-. bf-. f-. } \\ { bf,8 r bf r } >> | % 1 + << { r16 f'16-. bf-. f-. r f-. bf-. f-. } \\ { bf,8 r bf r } >> | % 2 + << { r16 f'16-. bf-. f-. } \\ { bf,8 r } >> g16-. g'-. ef,-. ef'-. | % 3 + f,16-. f'-. a-. c-. f,,-. f'-. a-. c-. | % 4 + bf,16-. f'-. bf-. d-. bf,-. f'-. bf-. d-. | % 5 + ef,,16-. ef'-. g-. c-. ef,,-. ef'-. g-. c-. | % 6 + f,,16 f' bf d << { c16. ( d32 ) ef16. ( f32 ) } \\ { f,8 r } >> | % 7 + 8-. -. -. -. | % 8 + + % Verse + + bf,8 r bf r | % 9 + a8 r a r | % 10 + bf8 r g ef | % 11 + f8 r f' r | % 12 + << { bf4 ( c8 cs ) } \\ { bf,8 r bf r } >> | % 13 + 8 r r | % 14 + << { a4 ( bf 8 b ) } \\ { f8 r f r } >> | % 15 + 8 r f, r | % 16 + + bf,8 r bf r | % 17 + ef8 r ef r | % 18 + f,16 f' bf d << { c16. ( d32 ) ef16. ( f32 ) } \\ { f,8 r } >> | % 19 + 8-. -. 16 r r8 | % 20 + 8 r r | % 21 + 8 r r | % 22 + 8 r r | % 23 + 16 16 | % 24 + + d,16 a,, | % 25 + d,16 f a d d, | % 26 + f,,16 g, g, | % 27 + c,16 bf, | % 28 + a,,8 r f r | % 29 + g8 r e r | % 30 + f8 r | % 31 + c16 bf, | % 32 + + 8 r r | % 33 + 8 r r | % 34 + 8 r r | % 35 + 8 r r | % 36 + 8 r r | % 37 + 8 r r | % 38 + ef8 r ef r | % 39 + af16 af,, ef' af c | % 40 + + c,8 r c r | % 41 + df8 r df r | % 42 + ef,16 ef' af c << { bf16. ( c32 ) df16. ( ef32 ) } \\ { ef,8 r } >> | % 43 + 8-. -. 16 r r8 | % 44 + 8 r r | % 45 + 8 r r | % 46 + 8 r r | % 47 + 8 r r | % 48 + + 8 r | % 49 + 8 r r | % 50 + 8 r r | % 51 + g,8 r g16 | % 52 + d,16 d, | % 53 + ef16 ef | % 54 + e16 e, | % 55 + f16 f | % 56 + + fs16 fs, | % 57 + g16 c bf | % 58 + a16 f, bf d g, | % 59 + e, e, | % 60 + f8 ef d c | % 61 + bf8 r bf r | % 62 + a8 r a r | % 63 + bf8 r g ef | % 64 + + << { r8 4 8 } \\ { f,8 r f' r } >> | % 65 + << { d'4 ( c8 cs ) } \\ { bf8 r bf r } >> | % 66 + 8 r bf, r | % 67 + << { a'4 ( bf8 b ) } \\ { f8 r f r } >> | % 68 + 8 r r | % 69 + bf,8 r bf r | % 70 + 8 r r | % 71 + 8 r r | % 72 + + g,16 g,, | % 73 + d,16 d | % 74 + ef16 ef, | % 75 + f,,16 f,, | % 76 + bf,16 f | % 77 + bf,16 f | % 78 + 8 r r4 | % 79 +} + + +Dynamics = +{ +% s1*4 | % 1-4 +% s4_\markup { \italic { 1st X: Melody, 2nd X+: Solos } } s2. | % 5 +% s1*38 | % 1-38 +% s4_\markup { \bold \italic { Double Chorus 2nd X } } s2. | % 39 +% s1*7 | % 40-46 +% s4_\markup { \bold { Tutti } } s2. | % 47 +} + + +\score +{ + << + \set Score.skipBars = ##t + \set Score.melismaBusyProperties = #'() + +%% \new Staff +% << +% \new ChordNames \Chords +%%Capo 4 edition +%% \new ChordNames \transpose b g \Chords +% \new RhythmicStaff << \Rhythm \Dynamics >> +% >> + + \new Staff + << + \transpose bf af \Global % The "roadmap" that everything else depends on + \new Voice = "lead" \transpose bf af \LeadVox +% \new Voice \Riffs + \new Lyrics \lyricsto "lead" \LeadVoxText + >> + + << + \context PianoStaff + << +%\override PianoStaff.VerticalAlignment #'forced-distance = #6.5 % gap between staves +%\set PianoStaff.midiInstrument = "acoustic grand" + + \context Staff = "RH" { \override Staff.DynamicLineSpanner #'staff-padding = #5.5 +<< \transpose bf af \RightHand \Dynamics >> } + \context Staff = "LH" { \transpose bf af \LeftHand } + >> + >> + >> +} + + +\paper +{ + #(define fonts (make-pango-font-tree + "Times New Roman" + "DomCasual BT" + "Luxi Mono" + (/ staffSize 20))) + +% Spread staves vertically across last page (default: t) + ragged-last-bottom = ##f +% Don't spread staves vertically across the page (default: f) +% ragged-bottom = ##t +% Allow partial line for last stave (default: f) + ragged-last = ##t + +% To find out what's eating the space at the top... +% annotate-spacing = ##t +%let's try this: [It works! Huzzah!] + obsolete-page-top-space = 0 top-system-spacing #'basic-distance = #(/ obsolete-page-top-space staff-space) +} diff --git a/covers/let-it-grow.ly b/covers/let-it-grow.ly new file mode 100644 index 0000000..3e6720f --- /dev/null +++ b/covers/let-it-grow.ly @@ -0,0 +1,483 @@ +\version "2.16.0" +\include "../pop-chords.ly" +\include "english.ly" + +% Good sizes are 16, 18, & 20 +staffSize = #18 +#(set-default-paper-size "letter") +#(set-global-staff-size staffSize) +#(ly:set-option (quote no-point-and-click)) + +%{ Some useful characters: ‘ ’ “ ” – — † ‡ • … %} + +\header +{ +%Let's bump up the title size and switch to the chord font. :-) + + title = \markup { \override #'(font-family . sans) \fontsize #3.5 "Let It Grow" } + composer = \markup { \override #'(font-family . sans) \fontsize #1.3 "Eric Clapton" } +% arranger = \markup { \override #'(font-family . sans) \fontsize #1.3 "arr. " } + tagline = $(string-append "Engraved by JLH and Lilypond " (lilypond-version)) +% Let's try a chord dictionary +% subtitle = \markup { \center-column { "F#m" \fret-diagram-terse #"x;x;4;2;2;2;" } " " \center-column { "F#m/F" \fret-diagram-terse #"x;x;3;2;2;2;" } " " \center-column { "F#m/E" \fret-diagram-terse #"x;x;2;2;2;2;" } " " \center-column { "F#m/Eb" \fret-diagram-terse #"x;x;1;2;2;2;" } " " \center-column { "Em7" \fret-diagram-terse #"o;2;2;o;3;o;" } " " \center-column { "A13" \fret-diagram-terse #"x;o;2;o;2;2;" } } +} + +% Useful tweak abbreviations (hn = harmony note) + +hn = #(define-music-function (parser location arg) (ly:music?) +;; Harmony Note: Set the tweaks property of the passed in note to use a smaller font + + (set! (ly:music-property arg 'tweaks) + (acons 'font-size -3.0 (ly:music-property arg 'tweaks))) arg) + + +% +% Song's structure +% +Global = +{ + \key b \minor + \override Staff.TimeSignature #'style = #'() + \time 4/4 + + % Intro + + \once \override TextScript #'padding = #2.0 + s1*0^\markup { \large \bold { Moderate pop } } +% Capo 4 version +% s1*0^\markup { \hspace #0.0 \raise #2.0 \larger \bold { "Moderate pop (*** CAPO 4 ***)" } } + + \repeat volta 2 + { + % Verse + + \mark \markup { \override #'(font-family . sans) { \box { A } } } + s1*6 | % 1-6 + \key b \major + s1 \bar "||" % 7 + + % Chorus + + \mark \markup { \override #'(font-family . sans) { \box { B } } } + s1*9 | % 8-16 + } + + % Bridge/Solo + + \repeat volta 2 + { + \mark \markup { \override #'(font-family . sans) { \box { C } } } + s1*2 | % 17-18 + } + \alternative + { + { + s1 | % 19 + } + { + \key b \minor + s1 | % 20 + } + } + + s1 | % 21 + + \repeat volta 2 + { + s1*3 | % 22-24 + } + + % Verse + + \mark \markup { \override #'(font-family . sans) { \box { D } } } + s1*6 | % 25-30 + \key b \major + s1 | % 31 + + % Chorus + + \repeat volta 2 + { + \mark \markup { \override #'(font-family . sans) { \box { E } } } + s1*8 | % 32-39 + } + + s1 | % 40 + + % Outro + + \repeat volta 2 + { + \key b \minor + \mark \markup { \override #'(font-family . sans) { \box { F } } } + s1*3 | % 41-43 + } +} + + +% +% Lead vocal +% +LeadVox = \relative c' +{ +% \set Staff.instrument = #"Lead vox" + \clef G + \override Staff.TimeSignature #'style = #'() +%Hm. Needed anymore? +% \override Score.SpacingSpanner #'average-spacing-wishes = ##f + + % Verse + + b8 fs' fs fs16 fs ~ fs fs8. r4 | % 1 + fs8 fs16 g8. fs16 ( e ) e4 r | % 2 + r8 r16 d d8 d e e d cs | % 3 + b8 fs' fs fs16 fs ~ fs fs8. r8 r16 b, | % 4 + fs'8 fs16 g8. fs16 ( e ) e4 r | % 5 + r4 d8 d e e d cs16 ( b ) | % 6 + b2 r | % 7 + + % Chorus + + r4 fs'16 fs8. fs4 cs'16 ds8. | % 8 + ds2 r | % 9 + r4 e16 e8. ds8 ds ds16 ( cs ) b8 | % 10 + cs2 r | % 11 + r4 b8 b16 b ~ b8 b cs ds | % 12 + ds2 r | % 13 + r4 e8 e ds cs16 ( b ) ~ b4 | % 14 + r2 r4 ds16 ( cs ) b8 | % 15 + cs2. r4 | % 16 + + % Bridge/Solo + + r1 | % 17 + r1 | % 18 + + r1 | % 19 + + r1 | % 20 + r1 | % 21 + + r1 | % 22 + r1 | % 23 + r1 | % 24 + + % Verse + + b,8 fs' fs fs16 fs ~ fs fs8. r8 r16 b, | % 25 + fs'8 fs16 g8. fs16 ( e ) e4 r | % 26 + r4 d8 d e e d cs | % 27 + b8 fs' fs fs16 fs ~ fs fs8. r8 r16 b, | % 28 + fs'8 fs16 g8. fs16 ( e ) e4 r | % 29 + r4 d8 d e e d cs16 ( b ) | % 30 + b2 r | % 31 + + % Chorus + + r4 fs'16 fs8. fs4 cs'16 ds8. | % 32 + ds2 r | % 33 + r4 e16 e8. ds8 ds ds16 ( cs ) b8 | % 34 + cs2 r | % 35 + r4 b8 b16 b ~ b8 b cs ds | % 36 + ds2 r | % 37 + r4 e8 e ds cs16 ( b ) ~ b4 | % 38 + r2 r4 ds16 ( cs ) b8 | % 39 + + cs2. r4 | % 30 + + % Outro + + r1 | % 41 + r1 | % 42 + r1 | % 43 +} + +LeadVoxText = \lyricmode +{ + Stand -- ing at the cross -- _ roads + tryin’ to read the _ signs, + to tell me which way I should + Go to find the ans -- _ wer + and all the time I _ know: + plant your love and let it _ grow. + + Let it grow, let it grow. + Let it blos -- som, let _ it flow. + In the sun, _ the rain, the snow, + love is love -- ly; _ _ let _ it grow. + + Time is get -- ting short -- _ er, + there’s much for me to _ do; + on -- ly ask and you will + Get what you are need -- _ ing, + the rest is up to _ you; + plant your love and let it _ grow. + + Let it grow, let it grow. + Let it blos -- som, let _ it flow. + In the sun, _ the rain, the snow, + love is love -- ly; _ _ let _ it grow. +} + +LeadVoxTextB = \lyricmode +{ + Look -- ing for a rea -- _ son + to check out of my _ mind, + try -- ing hard to get a + friend that I can count _ on + there’s noth -- ing left to _ show; +} + + +Riffs = \relative c'' +{ + \clef G +%Hm. Needed anymore? + \override Score.SpacingSpanner #'average-spacing-wishes = ##f + + % Intro + +%{ + \tiny + e4 e e8 d e g ~ | % 1 + g8 d ~ d2. | % 2 + g4 g g8 fs d-\glissando a' ~ | % 3 + + a4 r8 e16 fs a8 a fs16 fs e8 | % 4 + + a8-\repeatTie g4 fs8 ~ fs e4. | % 5 + + s1*17 | % 6-22 + + e4 e e8 d e g ~ | % 23 + g8 d ~ d2. | % 24 + g4 g g8 fs d-\glissando a' ~ | % 25 + + a4 r8 e16 fs a8 a fs16 fs e8 | % 26 + + a8-\repeatTie g4 fs8 ~ fs e4. | % 27 + + s1*23 | % 28-50 + + e4 e e8 d e g ~ | % 51 + g8 d ~ d2. | % 52 + g4 g g8 fs d-\glissando a' ~ | % 53 + a2 r | % 54 + + \normalsize +%} +} + + +% +% Chord names +% +Chords = \chordmode +{ + % Verse + + b2:m fs:7 | % 1 + d2 e | % 2 + g2 a | % 3 + b2:m fs:7 | % 4 + d2 e | % 5 + g2 a | % 6 + b1 | % 7 + + % Chorus + + b2 b/as | % 8 + b2/gs b/fs | % 9 + e2 b | % 10 + a1 | % 11 + b2 b/as | % 12 + b2/gs b/fs | % 13 + e2 b | % 14 + a1 | % 15 + fs1 | % 16 + + % Bridge/Solo + + g2 d/fs | % 17 + e2:m b:m/d | % 18 + + a1 | % 19 + + fs1 | % 20 + s1 | % 21 + + b2:m fs:7 | % 22 + d2 e | % 23 + g2 a | % 24 + + % Verse + + b2:m fs:7 | % 25 + d2 e | % 26 + g2 a | % 27 + b2:m fs:7 | % 28 + d2 e | % 29 + g2 a | % 30 + b1 | % 31 + + % Chorus + + b2 b/as | % 32 + b2/gs b/fs | % 33 + e2 b | % 34 + a1 | % 35 + b2 b/as | % 36 + b2/gs b/fs | % 37 + e2 b | % 38 + a1 | % 39 + fs1 | % 40 + + % Outro + + b2:m fs:7 | % 41 + d2 e | % 42 + g2 a | % 43 +} + + +% +% Chord rhythms +% +% Use a RhythmicStaff on the chords instead of this? +% It almost works, but not quite. Doesn't collapse chords above to single notes... +% +Rhythm = \relative c +{ +%% \set Voice.autoBeaming = ##f +%% \set Staff.instrument = #"Rhythm" + \override Staff.TimeSignature #'style = #'() + \override NoteHead #'style = #'slash + + % Verse + + c4 c c c | % 1 + c4 c c c | % 2 + c4 c c c | % 3 + c4 c c c | % 4 + c4 c c c | % 5 + c4 c c c | % 6 + c4 c c c | % 7 + + % Chorus + + c4 c c c | % 8 + c4 c c c | % 9 + c4 c c c | % 10 + c4 c c c | % 11 + c4 c c c | % 12 + c4 c c c | % 13 + c4 c c c | % 14 + c4 c c c | % 15 + c4 c c c | % 16 + + % Bridge/Solo + + c4 c c c | % 17 + c4 c c c | % 18 + + c4 c c c | % 19 + + c4 c c c | % 20 + + c4 c c c | % 21 + + c4 c c c | % 22 + c4 c c c | % 23 + c4 c c c | % 24 + + % Verse + + c4 c c c | % 25 + c4 c c c | % 26 + c4 c c c | % 27 + c4 c c c | % 28 + c4 c c c | % 29 + c4 c c c | % 30 + c4 c c c | % 31 + + % Chorus + + c4 c c c | % 32 + c4 c c c | % 33 + c4 c c c | % 34 + c4 c c c | % 35 + c4 c c c | % 36 + c4 c c c | % 37 + c4 c c c | % 38 + c4 c c c | % 39 + c4 c c c | % 40 + + % Outro + + c4 c c c | % 41 + c4 c c c | % 42 + c4 c c c | % 43 +} + + +Dynamics = +{ +%{ + s4_\markup { \italic { snare pat. } } s2 | % 1 + s4_\markup { \italic { simile } } s2 | % 2 + s2.*19 + s4_\markup { \italic { spacey } } s2 | % 22 + s2.*5 + s4 s \< s \! | % 28 + s2.*22 + s4_\markup { \italic { Last time } } s2 | % 51 +%} +} + + +\score +{ + << + \set Score.skipBars = ##t + \set Score.melismaBusyProperties = #'() + +% \new Staff + << + \new ChordNames \Chords +%Capo 4 edition +% \new ChordNames \transpose b g \Chords + \new RhythmicStaff << \Rhythm \Dynamics >> + >> + + \new Staff + << + \Global % The "roadmap" that everything else depends on + \new Voice = "lead" \LeadVox + \new Voice \Riffs + \new Lyrics \lyricsto "lead" \LeadVoxText + \new Lyrics \lyricsto "lead" \LeadVoxTextB + >> + >> +} + + +\paper +{ + #(define fonts (make-pango-font-tree + "Times New Roman" + "DomCasual BT" + "Luxi Mono" + (/ staffSize 20))) + +% Spread staves vertically across last page (default: t) +% ragged-last-bottom = ##f +% Don't spread staves vertically across the page (default: f) +% ragged-bottom = ##t +% Allow partial line for last stave (default: f) + ragged-last = ##t + +% To find out what's eating the space at the top... +% annotate-spacing = ##t +%let's try this: [It works! Huzzah!] + obsolete-page-top-space = 0 top-system-spacing #'basic-distance = #(/ obsolete-page-top-space staff-space) +} diff --git a/covers/let-it-rain.ly b/covers/let-it-rain.ly new file mode 100644 index 0000000..921ddc6 --- /dev/null +++ b/covers/let-it-rain.ly @@ -0,0 +1,589 @@ +\version "2.16.0" +\include "../pop-chords.ly" +\include "english.ly" + +% Good sizes are 16, 18, & 20 +staffSize = #18 +#(set-default-paper-size "letter") +#(set-global-staff-size staffSize) +#(ly:set-option (quote no-point-and-click)) + +%{ Some useful characters: ‘ ’ “ ” – — † ‡ • … %} + +\header +{ +%Let's bump up the title size and switch to the chord font. :-) + + title = \markup { \override #'(font-family . sans) \fontsize #3.5 "Let It Rain" } + composer = \markup { \override #'(font-family . sans) \fontsize #1.3 "Eric Clapton/Bonnie Bramlett" } +% arranger = \markup { \override #'(font-family . sans) \fontsize #1.3 "arr. " } + tagline = $(string-append "Engraved by JLH and Lilypond " (lilypond-version)) +% Let's try a chord dictionary + subtitle = \markup { \center-column { "F#m" \fret-diagram-terse #"x;x;4;2;2;2;" } " " \center-column { "F#m/F" \fret-diagram-terse #"x;x;3;2;2;2;" } " " \center-column { "F#m/E" \fret-diagram-terse #"x;x;2;2;2;2;" } " " \center-column { "F#m/Eb" \fret-diagram-terse #"x;x;1;2;2;2;" } " " \center-column { "Em7" \fret-diagram-terse #"o;2;2;o;3;o;" } " " \center-column { "A13" \fret-diagram-terse #"x;o;2;o;2;2;" } } +} + +% Useful tweak abbreviations (hn = harmony note) + +hn = #(define-music-function (parser location arg) (ly:music?) +;; Harmony Note: Set the tweaks property of the passed in note to use a smaller font + + (set! (ly:music-property arg 'tweaks) + (acons 'font-size -3.0 (ly:music-property arg 'tweaks))) arg) + + +% +% Song's structure +% +Global = +{ + \key d \major + \override Staff.TimeSignature #'style = #'() + \time 4/4 + + % Intro + + \once \override TextScript #'padding = #2.0 + s1*0^\markup { \large \bold { Moderately fast pop } } +% Capo 4 version +% s1*0^\markup { \hspace #0.0 \raise #2.0 \larger \bold { "Moderate pop (*** CAPO 4 ***)" } } + + % Intro + + \repeat volta 2 + { + s1*3 | % 1-3 + } + \alternative + { + { + s1 | % 4 + } + { + s1 | % 5 + } + } + + \repeat volta 2 + { + % Verse + + \mark \markup { \override #'(font-family . sans) { \box { A } } } + s1*8 \bar "||" % 6-13 + + % Chorus + + \mark \markup { \override #'(font-family . sans) { \box { B } } } + s1*6 | % 14-19 + } + \alternative + { + { + s1*2 | % 20-21 + } + { + s1 | % 22 + } + } + + % Midtro + + \repeat volta 2 + { + \mark \markup { \override #'(font-family . sans) { \box { C } } } + s1*3 | % 23-25 + } + \alternative + { + { + s1 | % 26 + } + { + s1 | % 27 + } + } + + % Bridge + + \mark \markup { \override #'(font-family . sans) { \box { D } } } + s1*4 | % 28-31 + \repeat volta 3 + { + s1*0^\markup { \large \bold { 3X } } + s1*2 | % 32-33 + } + + % Verse + + \mark \markup { \override #'(font-family . sans) { \box { E } } } + s1*8 | % 34-41 + + \repeat volta 2 + { + % Chorus + + \mark \markup { \override #'(font-family . sans) { \box { F } } } + s1*6 | % 42-47 + } + \alternative + { + { + s1*2 | % 48-49 + } + { + s1 | % 50 + } + } + + % Outro + + \repeat volta 2 + { + \mark \markup { \override #'(font-family . sans) { \box { G } } } + s1*4 | % 51-54 + } + + \repeat volta 2 + { + \mark \markup { \override #'(font-family . sans) { \box { H } } } + s1*4 | % 55-58 + } +} + + +% +% Lead vocal +% +LeadVox = \relative c'' +{ +% \set Staff.instrument = #"Lead vox" + \clef G + \override Staff.TimeSignature #'style = #'() +%Hm. Needed anymore? +% \override Score.SpacingSpanner #'average-spacing-wishes = ##f + + % Intro + + s1*4 | % 1-4 + r2 r4 r8 a | % 5 + + % Verse + + fs'8 e4 d8 ~ d8 fs4 e8 ~ | % 6 + e8 d4 c8 ~ c4 r8 a | % 7 + c4 c8 d ~ d4 d8 e ~ | % 8 + e8 d4 d8 ~ d4 r8 a | % 9 + fs'8 e4 d8 ~ d8 fs4 e8 ~ | % 10 + e8 d4 c8 ~ c4 r8 a | % 11 + c4 c8 c ~ c4 d8 e ( | % 12 + d ) d4. r8 d e fs ~ | % 13 + + % Chorus + + fs4 r r8 d e fs16 ( e | % 14 + d4 ) r r8 d d e ~ | % 15 + e4 e d8 ( b ) b a ~ | % 16 + a2 r8 d e fs ~ | % 17 + fs4 r r8 d e fs16 ( e | % 18 + d4 ) r r8 d d e ~ | % 19 + + e2 d4. d8 ~ | % 20 + d2 r4 r8 a | % 21 + + e'2-\repeatTie d4. ( cs8 ) | % 22 + + % Midtro + + cs2 r | % 23 + s1*4 | % 24-27 + + % Bridge + + r1 | % 28 + r1 | % 29 + r1 | % 30 + r1 | % 31 + r1 | % 32 + r1 | % 33 + + % Verse + + fs8 e4 d8 ~ d8 fs4 e8 ~ | % 34 + e8 d4 c8 ~ c a4 r8 | % 35 + c8 c4 d8 ~ d e4 d8 ~ | % 36 + d4 r r2 | % 37 + fs8 e4 d8 ~ d8 fs4 e8 ~ | % 38 + e8 d4 c8 ~ c4 r8 a8 | % 39 + c4 c8 d ~ d e4 d8 ~ | % 40 + d4 r r8 d e fs ~ | % 41 + + % Chorus + + fs4 r r8 d e fs16 ( e | % 42 + d4 ) r r8 d d e ~ | % 43 + e4 e d8 ( b ) b a ~ | % 44 + a2 r8 d e fs ~ | % 45 + fs4 r r8 d e fs16 ( e | % 46 + d4 ) r r8 d d e ~ | % 47 + + e2 d4. d8 ~ | % 48 + d2 r8 d e fs ~ | % 49 + + e2-\repeatTie d4. ( cs8 ) | % 50 + + % Outro + + cs2 r | % 51 + s1*3 | % 52-54 + + e2.. ( d8 ~ | % 55 + d2 ) r | % 56 + fs2 ~ ( fs8 g fs e ~ | % 57 + e2 ) r | % 58 +} + +LeadVoxText = \lyricmode +{ + The rain is fal -- _ ling through _ the mist _ + of sor -- row that _ sur -- round -- _ ed me. _ + The sun could ne -- _ ver thaw _ a -- way _ + the bliss that lays _ a -- round _ me. + + Let it rain, _ let it rain, _ _ + let your love _ rain down _ on me. _ + Let it rain, _ let it rain, _ _ + let it rain, _ rain, rain! _ + + My + _ rain, _ rain! + + Now I know _ the sec -- _ ret + there _ is no -- thing that _ I lack. _ + If I give _ my love _ to you _ + you'll sure -- ly give _ it back. _ + + Let it rain, _ let it rain, _ _ + let your love _ rain down _ on me. _ + Let it rain, _ let it rain, _ _ + let it rain, _ rain, rain! _ + + Let it rain, + _ rain, _ rain! + + Rain, __ _ _ rain! __ _ _ _ _ _ + dummy +} + +LeadVoxTextB = \lyricmode +{ + _ life was like _ a des -- _ ert flo -- _ wer + burn -- ing in _ the sun. _ _ _ _ + Un -- til I found _ the way _ to love _ + was hard -- er said _ than done. +} + + +Riffs = \relative c'' +{ + \clef G +%Hm. Needed anymore? + \override Score.SpacingSpanner #'average-spacing-wishes = ##f + + % Intro + + \tiny + e4 e e8 d e g ~ | % 1 + g8 d ~ d2. | % 2 + g4 g g8 fs d-\glissando a' ~ | % 3 + + a4 r8 e16 fs a8 a fs16 fs e8 | % 4 + + a8-\repeatTie g4 fs8 ~ fs e4. | % 5 + + s1*17 | % 6-22 + + e4 e e8 d e g ~ | % 23 + g8 d ~ d2. | % 24 + g4 g g8 fs d-\glissando a' ~ | % 25 + + a4 r8 e16 fs a8 a fs16 fs e8 | % 26 + + a8-\repeatTie g4 fs8 ~ fs e4. | % 27 + + s1*23 | % 28-50 + + e4 e e8 d e g ~ | % 51 + g8 d ~ d2. | % 52 + g4 g g8 fs d-\glissando a' ~ | % 53 + a2 r | % 54 + + \normalsize +} + + +% +% Chord names +% +Chords = \chordmode +{ + % Intro + + a1 | % 1 + g1 | % 2 + g2.. a8 | % 3 + + s1 | % 4 + + s1 | % 5 + + % Verse + + d1 | % 6 + a1:m | % 7 + c2 g | % 8 + d1 | % 9 + d1 | % 10 + a1:m | % 11 + c2 g | % 12 + d1 | % 13 + + % Chorus + + d4. a2 s8 | % 14 + d4. a2 s8 | % 15 + c2 g | % 16 + d1 | % 17 + d4. a2 s8 | % 18 + d4. a2 s8 | % 19 + + c2 g | % 20 + d1 | % 21 + + c2 g | % 22 + + % Midtro + + a1 | % 23 + g1 | % 24 + g2.. a8 | % 25 + + s1 | % 26 + + s1 | % 27 + + % Bridge + + fs:m | % 28 + fs:m/f | % 29 + fs:m/e | % 30 + fs:m/ef | % 31 + + e:m7 | % 32 + a:13 | % 33 + + % Verse + + d1 | % 34 + a1:m | % 35 + c2 g | % 36 + d1 | % 37 + d1 | % 38 + a1:m | % 39 + c2 g | % 40 + d1 | % 41 + + % Chorus + + d4. a2 s8 | % 42 + d4. a2 s8 | % 43 + c2 g | % 44 + d1 | % 45 + d4. a2 s8 | % 46 + d4. a2 s8 | % 47 + + c2 g | % 48 + d1 | % 49 + + c2 g | % 50 + + % Outro + + a1 | % 51 + g1 | % 52 + g1 | % 53 + a1 | % 54 + + a1 | % 55 + g1 | % 56 + g1 | % 57 + a1 | % 58 +} + + +% +% Chord rhythms +% +% Use a RhythmicStaff on the chords instead of this? +% It almost works, but not quite. Doesn't collapse chords above to single notes... +% +Rhythm = \relative c +{ +%% \set Voice.autoBeaming = ##f +%% \set Staff.instrument = #"Rhythm" + \override Staff.TimeSignature #'style = #'() + \override NoteHead #'style = #'slash + + % Intro + + c4 c c2 | % 1 + c8 c ~ c2. | % 2 + c4 c c4. c8 ~ | % 3 + + c1 | % 4 + + c8-\repeatTie c4 c8 ~ c8 c4. | % 5 + + % Verse + + c4 c c c | % 6 + c4 c c c | % 7 + c4 c c c | % 8 + c4 c c c | % 9 + c4 c c c | % 10 + c4 c c c | % 11 + c4 c c c | % 12 + c4 c c c | % 13 + + % Chorus + + c4 c8 c ~ c4 c | % 14 + c4 c8 c ~ c4 c | % 15 + c4 c c c | % 16 + c4 c c c | % 17 + c4 c8 c ~ c4 c | % 18 + c4 c8 c ~ c4 c | % 19 + + c4 c c c | % 20 + c4 c c c | % 21 + + c4 c c c | % 22 + + % Midtro + + c4 c c2 | % 23 + c8 c ~ c2. | % 24 + c4 c c4. c8 ~ | % 25 + + c1 | % 26 + + c8-\repeatTie c4 c8 ~ c8 c4. | % 27 + + % Bridge + + c4 c c c | % 28 + c4 c c c | % 29 + c4 c c c | % 30 + c4 c c c | % 31 + + c4 c c c | % 32 + c4 c c c | % 33 + + % Verse + + c4 c c c | % 34 + c4 c c c | % 35 + c4 c c c | % 36 + c4 c c c | % 37 + c4 c c c | % 38 + c4 c c c | % 39 + c4 c c c | % 40 + c4 c c c | % 41 + + % Chorus + + c4 c8 c ~ c4 c | % 42 + c4 c8 c ~ c4 c | % 43 + c4 c c c | % 44 + c4 c c c | % 45 + c4 c8 c ~ c4 c | % 46 + c4 c8 c ~ c4 c | % 47 + + c4 c c c | % 48 + c4 c c c | % 49 + + c4 c c c | % 50 + + % Outro + + c4 c c c | % 51 + c4 c c c | % 52 + c4 c c c | % 53 + c4 c c c | % 54 + + c4 c c c | % 55 + c4 c c c | % 56 + c4 c c c | % 57 + c4 c c c | % 58 +} + + +Dynamics = +{ +%{ + s4_\markup { \italic { snare pat. } } s2 | % 1 + s4_\markup { \italic { simile } } s2 | % 2 + s2.*19 + s4_\markup { \italic { spacey } } s2 | % 22 + s2.*5 + s4 s \< s \! | % 28 + s2.*22 + s4_\markup { \italic { Last time } } s2 | % 51 +%} +} + + +\score +{ + << + \set Score.skipBars = ##t + \set Score.melismaBusyProperties = #'() + +% \new Staff + << + \new ChordNames \Chords +%Capo 4 edition +% \new ChordNames \transpose b g \Chords + \new RhythmicStaff << \Rhythm \Dynamics >> + >> + + \new Staff + << + \Global % The "roadmap" that everything else depends on + \new Voice = "lead" \LeadVox + \new Voice \Riffs + \new Lyrics \lyricsto "lead" \LeadVoxText + \new Lyrics \lyricsto "lead" \LeadVoxTextB + >> + >> +} + + +\paper +{ + #(define fonts (make-pango-font-tree + "Times New Roman" + "DomCasual BT" + "Luxi Mono" + (/ staffSize 20))) + +% Spread staves vertically across last page (default: t) +% ragged-last-bottom = ##f +% Don't spread staves vertically across the page (default: f) +% ragged-bottom = ##t +% Allow partial line for last stave (default: f) + ragged-last = ##t + +% To find out what's eating the space at the top... +% annotate-spacing = ##t +%let's try this: [It works! Huzzah!] + obsolete-page-top-space = 0 top-system-spacing #'basic-distance = #(/ obsolete-page-top-space staff-space) +} diff --git a/covers/listen-to-the-music.ly b/covers/listen-to-the-music.ly new file mode 100644 index 0000000..3050d02 --- /dev/null +++ b/covers/listen-to-the-music.ly @@ -0,0 +1,531 @@ +\version "2.16.0" +\include "../pop-chords.ly" +\include "english.ly" + +% Good sizes are 16, 18, & 20 +staffSize = #18 +#(set-default-paper-size "letter") +#(set-global-staff-size staffSize) +#(ly:set-option (quote no-point-and-click)) + +%{ Some useful characters: ‘ ’ “ ” – — † ‡ • … %} + +\header +{ +%Let's bump up the title size and switch to the chord font. :-) + + title = \markup { \override #'(font-family . sans) \fontsize #3.5 "Listen To The Music" } + composer = \markup { \override #'(font-family . sans) \fontsize #1.3 "Tom Johnston" } +% arranger = \markup { \override #'(font-family . sans) \fontsize #1.3 "arr. " } + tagline = $(string-append "Engraved by JLH and Lilypond " (lilypond-version)) +% Let's try a chord dictionary +% Hrm, it's screwed up (not columnar) :-( +% subtitle = \markup { \center-align { "F#m" \fret-diagram-terse #"x;x;4;2;2;2;" } " " \center-align { "F#m/F" \fret-diagram-terse #"x;x;3;2;2;2;" } " " \center-align { "F#m/E" \fret-diagram-terse #"x;x;2;2;2;2;" } " " \center-align { "F#m/Eb" \fret-diagram-terse #"x;x;1;2;2;2;" } " " \center-align { "Em7" \fret-diagram-terse #"o;2;2;o;3;o;" } " " \center-align { "A13" \fret-diagram-terse #"x;o;2;o;2;2;" } } +} + +% Useful tweak abbreviations (hn = harmony note) + +hn = #(define-music-function (parser location arg) (ly:music?) +;; Harmony Note: Set the tweaks property of the passed in note to use a smaller font + + (set! (ly:music-property arg 'tweaks) + (acons 'font-size -3.0 (ly:music-property arg 'tweaks))) arg) + + +% +% Song's structure +% +Global = +{ + \key e \major + \override Staff.TimeSignature #'style = #'() + \time 4/4 + + % Intro + + \once \override TextScript #'padding = #2.0 + s1*0^\markup { \large \bold { Ac. Guitar solo } } +% Capo 4 version +% s1*0^\markup { \hspace #0.0 \raise #2.0 \bigger \bold { "Moderate pop (*** CAPO 4 ***)" } } + + s1*9 \bar "||:" % 1-9 + + \key b \major + + \mark \markup { \override #'(font-family . sans) { \box { A } } } + \repeat volta 2 + { + s1*2 | % 10-11 + } + + \mark \markup { \override #'(font-family . sans) { \box { B } } } + \repeat volta 2 + { + s1*2 | % 12-13 + } + + % Verse + + \mark \markup { \override #'(font-family . sans) { \box { C } } } + s1*12 \bar "||:" % 14-25 + + \repeat volta 2 + { + % Verse + + \mark \markup { \override #'(font-family . sans) { \box { D } } } + s1*12 \bar "||" % 26-37 + + % Chorus + + s1*3 | % 38-40 + \key g \major + s1*3 | % 41-43 + } + \alternative + { + { + s1*4 | % 44-47 + } + { + \key d \major + s1 | % 48 + } + } + + % Midtro + + s1*3 | % 49-51 + + \mark \markup { \override #'(font-family . sans) { \box { E } } } + \repeat volta 2 + { + s1*2 | % 52-53 + } + + % Verse + + \mark \markup { \override #'(font-family . sans) { \box { F } } } + s1*8 \bar "||" % 54-61 + + % Outro + + s1*6 \bar "|." % 62-67 +} + + +% +% Lead vocal +% +LeadVox = \relative c'' +{ +% \set Staff.instrument = #"Lead vox" + \clef G + \override Staff.TimeSignature #'style = #'() +%Hm. Needed anymore? +% \override Score.SpacingSpanner #'average-spacing-wishes = ##f + + % Intro + + s1*9 | % 1-9 + r1 | % 10 + r1 | % 11 + r1 | % 12 + r2 r4 r8 b16 b | % 13 + + % Verse + + fs'8 fs fs fs16 fs ~ fs fs8. r8 fs | % 14 + fs8 e ds16 cs8 b16 ~ b8 r4 e8 | % 15 + e8 e e e16 e ~ e e8. r8 e | % 16 + e8 d cs16 d8 e16 ~ e8 r4 d16 d | % 17 + d8 d d d16 d ~ d d8. r8 d | % 18 + d16 d c8 b16 c8 d16 ~ d8 r4 d8 | % 19 + cs8. cs16 b8 cs ~ cs b4 r8 | % 20 + d4 b8. b16 a4 a | % 21 + + b2 r | % 22 + r1 | % 23 + r1 | % 24 + r2 r4 r8 b | % 25 + + % Verse + + fs'8 fs fs fs16 fs ~ fs fs8. r8 fs16 \tiny fs \normalsize | % 26 + fs8 e ds16 cs8 b16 ~ b8 r4 e8 | % 27 + e8 e e e16 e ~ e e8. r4 | % 28 + e8 d cs16 d8 e16 ~ e8 r4. | % 29 + d8 d d d16 d ~ d d8. r8 d | % 30 + d16 c8 b8 c8. d8 r4 d8 | % 32 + cs8. cs16 b8 cs ~ cs b4 r8 | % 32 + d4 b8. b16 a4 a | % 33 + + b2 r | % 34 + r1 | % 35 + r1 | % 36 + r2 r4 b8 gs | % 37 + + % Chorus + + b4 cs ds8 ds gs, b ~ | % 38 + b8 b cs b ds4 r8 gs, | % 39 + b4 cs ds8 ds b4 | % 40 + g'4 g g g | % 41 + fs8 ( e d4 ) r2 | % 42 + r1 | % 43 + + c'8 b a g ~ g a4 \voiceTwo f8 ( | % 44 + << { \voiceTwo e8 ) d4. r2 } \new Voice = "idk" { \voiceOne \tiny r4 a'8 fs ~ fs d4 r8 \normalsize } >> \oneVoice | % 45 + a'8 g4 fs8 ~ fs d4. | % 46 + b8 ( a4. ) r2 | % 47 + + r1 | % 48 + + % Midtro + + r1 | % 49 + r1 | % 50 + r1 | % 51 + r1 | % 52 + r2 r4 r8 d16 d | % 53 + + % Verse + + a'8 a a a16 a ~ a a8. r4 | % 54 + a8 g fs e d4 r8 d | % 55 + g8 g g g16 g ~ g g8. r8 g | % 56 + g8 f e16 f8 g16 ~ g8 r4 f16 f | % 57 + f8 f f f16 f ~ f f8. r4 | % 58 + f16 ef8. d8 ef8 f4 r8 f | % 59 + e8. e16 d8 e ~ e d4 r8 | % 60 + f4 d8. d16 c4 c | % 61 + + % Outro + + d2 r | % 62 + r1 | % 63 + r1 | % 64 + r1 | % 65 + r1 | % 66 + r1-\fermata | % 67 +} + +LeadVoxText = \lyricmode +{ + E -- ver since I was a young _ boy + I played the sil -- ver ball, _ + From So -- ho down to Brigh -- _ ton + I must have played them all, _ + But I ain’t seen noth -- ing like _ him + in a -- ny a -- muse -- ment hall, _ + That deaf, dumb and blind _ kid + Sure plays a mean pin -- ball. + + He stands just like a sta -- _ tue + be -- comes part of the ma -- chine, _ + _ Feel -- ing all the bump -- _ ers, + al -- ways play -- ing clean, _ + Plays by in -- tu -- i -- _ tion, + the di -- git count -- ers fall, + That deaf, dumb and blind _ kid + Sure plays a mean pin -- ball. + + He’s a pin -- ball wi -- zard + it has _ to be a twist. + A pin -- ball wi -- zard’s got + such a sup -- ple wrist. __ _ _ + + How do you think _ he does _ it? + What makes him _ so good? __ _ + + E -- ven on my fav -- ’rite ta -- _ ble + he can beat my best. + His dis -- ci -- ples lead him _ in, + and he just does the rest. _ + He’s got cra -- zy flip -- per fin -- _ gers, + ne -- ver seen him fall, + that deaf, dumb and blind _ kid + sure plays a mean pin -- ball. +} + +LeadVoxTextB = \lyricmode +{ + _ _ _ _ _ _ _ _ _ _ + _ _ _ _ _ _ _ + _ _ _ _ _ _ _ _ + _ _ _ _ _ _ _ + _ _ _ _ _ _ _ _ _ + _ _ _ _ _ _ _ + _ _ _ _ _ _ _ + _ _ _ _ _ _ + + _ Ain’t got no dis -- trac -- _ tions, + can’t _ hear no buzzers and bells. _ + Don’t see no lights a -- flash -- _ in’, + plays by sense of smell. _ + Al -- ways gets a re -- _ play, + I’ve ne -- ver seen him fall, + _ _ _ _ _ _ _ + _ _ _ _ _ _ + + _ I thought I was _ _ + the Bal -- ly ta -- ble King + But I just hand -- ed my + pin -- ball crown to him. _ _ +} + +LeadVoxTextIDK = \lyricmode +{ + I don’t _ know +} + +Riffs = \relative c'' +{ + \clef G +%Hm. Needed anymore? + \override Score.SpacingSpanner #'average-spacing-wishes = ##f + + % Intro + + \tiny + << { \voiceOne 1^\markup { \fret-diagram-terse #"x;x;4;4;3;2;" } } \new Voice = "v" { \voiceTwo \tiny fs8 fs fs fs fs fs fs fs } >> \oneVoice | % 1 + << { \voiceOne 1^\markup { \fret-diagram-terse #"x;x;4;4;3;o;" } } \context Voice = "v" { \voiceTwo fs8 fs fs fs fs fs fs fs } >> \oneVoice | % 2 + << { \voiceOne 1^\markup { \fret-diagram-terse #"x;x;4;4;2;o;" } } \context Voice = "v" { \voiceTwo fs8 fs fs fs fs fs fs fs } >> \oneVoice | % 3 + << { \voiceOne 1^\markup { \fret-diagram-terse #"x;x;4;3;2;o;" } } \context Voice = "v" { \voiceTwo fs8 fs fs fs fs fs fs fs } >> \oneVoice | % 4 + << { \voiceOne 1^\markup { \fret-diagram-terse #"x;x;4;2;2;o;" } } \context Voice = "v" { \voiceTwo fs8 fs fs fs fs fs fs fs } >> \oneVoice | % 5 + << { \voiceOne 1^\markup { \fret-diagram-terse #"x;x;4;o;o;o;" } } \context Voice = "v" { \voiceTwo fs8 fs fs fs fs fs fs fs } >> \oneVoice | % 6 + 8^\markup { \fret-diagram-terse #"x;x;5;4;o;x;" } | % 7 + 8 | % 8 + r1 | % 9 + + \normalsize +} + + +% +% Chord names +% +Chords = \chordmode +{ + % Intro + + s1*7 | % 1-7 + fs1:sus4 | % 8 + fs1 | % 9 + + b1:sus4 | % 10 + b1 | % 11 + b1:sus4 | % 12 + b1 | % 13 + + % Verse + + b1:sus4 | % 14 + b1 | % 15 + a1:sus4 | % 16 + a1 | % 17 + g1:sus4 | % 18 + g1 | % 19 + fs1:sus4 | % 20 + fs1 | % 21 + + b4. a4 d e8 | % 22 + s1 | % 23 + b4. a4 d e8 | % 24 + s1 | % 25 + + % Verse + + b1:sus4 | % 26 + b1 | % 27 + a1:sus4 | % 28 + a1 | % 29 + g1:sus4 | % 30 + g1 | % 31 + fs1:sus4 | % 32 + fs1 | % 33 + + b4. a4 d e8 | % 34 + s1 | % 35 + b4. a4 d e8 | % 36 + s1 | % 37 + + % Chorus + + e4 fs b2 | % 38 + e4 fs b2 | % 39 + e4 fs b2 | % 40 + g1 | % 41 + d2 d:sus4 | % 42 + d1 | % 43 + + d4. c4 g4. | % 44 + d4. c4 g4. | % 45 + d4. c4 g4. | % 46 + d4. c4 g4. | % 47 + + d1:sus4 | % 48 + + % Midtro + + d1 | % 49 + d1:sus4 | % 50 + d1 | % 51 + d1:sus4 | % 52 + d1 | % 53 + + % Verse + + d1:sus4 | % 54 + d1 | % 55 + c1:sus4 | % 56 + c1 | % 57 + bf:sus4 | % 58 + bf | % 59 + a1:sus4 | % 60 + a1 | % 61 + + % Outro + + d4. c4 f s8 | % 62 + bf1:7 | % 63 + s1 | % 64 + s1 | % 65 + s1 | % 66 + s1 | % 67 +} + + +% +% Chord rhythms +% +% Use a RhythmicStaff on the chords instead of this? +% It almost works, but not quite. Doesn't collapse chords above to single notes... +% +Rhythm = \relative c +{ +%% \set Voice.autoBeaming = ##f +%% \set Staff.instrument = #"Rhythm" + \override Staff.TimeSignature #'style = #'() + \override NoteHead #'style = #'slash + + % Intro + + s1*8 | % 1-8 + c16-> c c c-> c c c-> c c c-> c c c8 c | % 9 + + \repeat percent 11 { c16-> c c c-> c c c-> c c c-> c c c8 c } | % 10-20 + c8-> r2.. | % 21 + + c8 c r c r c r c | % 22 + c4 ~ c16 c c c c2| % 23 + c8 c r c r c r c | % 24 + c2 c8 c c c | % 25 + + % Verse + + \repeat percent 7 { c16-> c c c-> c c c-> c c c-> c c c8 c } | % 26-32 + c8-> r2.. | % 33 + + c8 c r c r c r c | % 34 + c4 ~ c16 c c c c2| % 35 + c8 c r c r c r c | % 36 + c2 c8 c c c | % 37 + + % Chorus + + c4 c c2 | % 38 + c4 c c2 | % 39 + c4 c c2 | % 40 + c4 c c c | % 41 + c4 c c c | % 42 + c4 c c c | % 43 + + c4. c8 ~ c8 c4. | % 44 + c4. c8 ~ c8 c4. | % 45 + c4. c8 ~ c8 c4. | % 46 + c4. c8 ~ c8 c4. | % 47 + + \repeat percent 13 { c16-> c c c-> c c c-> c c c-> c c c8 c } | % 48-60 + + % Midtro + % Verse + + c8-> r2.. | % 61 + + % Outro + + c8 c r c r c r4 | % 62 + c4 c c c | % 63 + c4 c c c | % 64 + c4 c c c | % 65 + c4 c c c | % 66 + c1-\fermata | % 67 +} + + +Dynamics = +{ + s1*11 + s4_\markup { \bold \column { "Bass, El." "guitar IN" } } s2. + s1*8 + s4_\markup { \bold { DRUMS IN } } s2. + s1*26 + s4_\markup { \bold { BAND OUT, Ac. guit. solo } } s2. + s1*3 + s4_\markup { \bold { Bass, El. guitar IN } } s2. + s1*8 + s4_\markup { \bold { DRUMS IN } } s2. + s1 + s4_\markup { \bold { TAKE ENERGY DOWN... } } s2. +} + + +\score +{ + << + \set Score.skipBars = ##t + \set Score.melismaBusyProperties = #'() + +% \new Staff + << +%nowok \Staff \RemoveEmptyStaves + \new ChordNames \Chords +%Capo 4 edition +% \new ChordNames \transpose b g \Chords + \new RhythmicStaff << \Rhythm \Dynamics >> + >> + + \new Staff + << + \Global % The "roadmap" that everything else depends on + \new Voice = "lead" \LeadVox + \new Voice \Riffs + \new Lyrics \lyricsto "lead" \LeadVoxText + \new Lyrics \lyricsto "lead" \LeadVoxTextB + \new Lyrics \lyricsto "idk" \LeadVoxTextIDK + >> + >> +} + + +\paper +{ + #(define fonts (make-pango-font-tree + "Times New Roman" + "DomCasual BT" + "Luxi Mono" + (/ staffSize 20))) + +% Spread staves vertically across last page (default: t) +% ragged-last-bottom = ##f +% Don't spread staves vertically across the page (default: f) +% ragged-bottom = ##t +% Allow partial line for last stave (default: f) + ragged-last = ##t + +% To find out what's eating the space at the top... +% annotate-spacing = ##t +%let's try this: [It works! Huzzah!] + obsolete-page-top-space = 0 top-system-spacing #'basic-distance = #(/ obsolete-page-top-space staff-space) +} diff --git a/covers/pinball-wizard.ly b/covers/pinball-wizard.ly new file mode 100644 index 0000000..0d10532 --- /dev/null +++ b/covers/pinball-wizard.ly @@ -0,0 +1,532 @@ +\version "2.16.0" +\include "../pop-chords.ly" +\include "english.ly" + +% Good sizes are 16, 18, & 20 +staffSize = #18 +#(set-default-paper-size "letter") +#(set-global-staff-size staffSize) +#(ly:set-option (quote no-point-and-click)) + +%{ Some useful characters: ‘ ’ “ ” – — † ‡ • … %} + +\header +{ +%Let's bump up the title size and switch to the chord font. :-) + + title = \markup { \override #'(font-family . sans) \fontsize #3.5 "Pinball Wizard" } + subtitle = \markup { \override #'(font-family . sans) \fontsize #1.3 "from “Tommy”" } + composer = \markup { \override #'(font-family . sans) \fontsize #1.3 "Pete Townsend" } +% arranger = \markup { \override #'(font-family . sans) \fontsize #1.3 "arr. " } + tagline = $(string-append "Engraved by JLH and Lilypond " (lilypond-version)) +% Let's try a chord dictionary +% Hrm, it's screwed up (not columnar) :-( +% subtitle = \markup { \center-align { "F#m" \fret-diagram-terse #"x;x;4;2;2;2;" } " " \center-align { "F#m/F" \fret-diagram-terse #"x;x;3;2;2;2;" } " " \center-align { "F#m/E" \fret-diagram-terse #"x;x;2;2;2;2;" } " " \center-align { "F#m/Eb" \fret-diagram-terse #"x;x;1;2;2;2;" } " " \center-align { "Em7" \fret-diagram-terse #"o;2;2;o;3;o;" } " " \center-align { "A13" \fret-diagram-terse #"x;o;2;o;2;2;" } } +} + +% Useful tweak abbreviations (hn = harmony note) + +hn = #(define-music-function (parser location arg) (ly:music?) +;; Harmony Note: Set the tweaks property of the passed in note to use a smaller font + + (set! (ly:music-property arg 'tweaks) + (acons 'font-size -3.0 (ly:music-property arg 'tweaks))) arg) + + +% +% Song's structure +% +Global = +{ + \key b \minor + \override Staff.TimeSignature #'style = #'() + \time 4/4 + + % Intro + + \once \override TextScript #'padding = #2.0 + s1*0^\markup { \large \bold { Ac. Guitar solo } } +% Capo 4 version +% s1*0^\markup { \hspace #0.0 \raise #2.0 \bigger \bold { "Moderate pop (*** CAPO 4 ***)" } } + + s1*9 \bar "||:" % 1-9 + + \key b \major + + \mark \markup { \override #'(font-family . sans) { \box { A } } } + \repeat volta 2 + { + s1*2 | % 10-11 + } + + \mark \markup { \override #'(font-family . sans) { \box { B } } } + \repeat volta 2 + { + s1*2 | % 12-13 + } + + % Verse + + \mark \markup { \override #'(font-family . sans) { \box { C } } } + s1*12 \bar "||:" % 14-25 + + \repeat volta 2 + { + % Verse + + \mark \markup { \override #'(font-family . sans) { \box { D } } } + s1*12 \bar "||" % 26-37 + + % Chorus + + s1*3 | % 38-40 + \key g \major + s1*3 | % 41-43 + } + \alternative + { + { + s1*4 | % 44-47 + } + { + \key d \major + s1 | % 48 + } + } + + % Midtro + + s1*3 | % 49-51 + + \mark \markup { \override #'(font-family . sans) { \box { E } } } + \repeat volta 2 + { + s1*2 | % 52-53 + } + + % Verse + + \mark \markup { \override #'(font-family . sans) { \box { F } } } + s1*8 \bar "||" % 54-61 + + % Outro + + s1*6 \bar "|." % 62-67 +} + + +% +% Lead vocal +% +LeadVox = \relative c'' +{ +% \set Staff.instrument = #"Lead vox" + \clef G + \override Staff.TimeSignature #'style = #'() +%Hm. Needed anymore? +% \override Score.SpacingSpanner #'average-spacing-wishes = ##f + + % Intro + + s1*9 | % 1-9 + r1 | % 10 + r1 | % 11 + r1 | % 12 + r2 r4 r8 b16 b | % 13 + + % Verse + + fs'8 fs fs fs16 fs ~ fs fs8. r8 fs | % 14 + fs8 e ds16 cs8 b16 ~ b8 r4 e8 | % 15 + e8 e e e16 e ~ e e8. r8 e | % 16 + e8 d cs16 d8 e16 ~ e8 r4 d16 d | % 17 + d8 d d d16 d ~ d d8. r8 d | % 18 + d16 d c8 b16 c8 d16 ~ d8 r4 d8 | % 19 + cs8. cs16 b8 cs ~ cs b4 r8 | % 20 + d4 b8. b16 a4 a | % 21 + + b2 r | % 22 + r1 | % 23 + r1 | % 24 + r2 r4 r8 b | % 25 + + % Verse + + fs'8 fs fs fs16 fs ~ fs fs8. r8 fs16 \tiny fs \normalsize | % 26 + fs8 e ds16 cs8 b16 ~ b8 r4 e8 | % 27 + e8 e e e16 e ~ e e8. r4 | % 28 + e8 d cs16 d8 e16 ~ e8 r4. | % 29 + d8 d d d16 d ~ d d8. r8 d | % 30 + d16 c8 b8 c8. d8 r4 d8 | % 32 + cs8. cs16 b8 cs ~ cs b4 r8 | % 32 + d4 b8. b16 a4 a | % 33 + + b2 r | % 34 + r1 | % 35 + r1 | % 36 + r2 r4 b8 gs | % 37 + + % Chorus + + b4 cs ds8 ds gs, b ~ | % 38 + b8 b cs b ds4 r8 gs, | % 39 + b4 cs ds8 ds b4 | % 40 + g'4 g g g | % 41 + fs8 ( e d4 ) r2 | % 42 + r1 | % 43 + + c'8 b a g ~ g a4 \voiceTwo f8 ( | % 44 + << { \voiceTwo e8 ) d4. r2 } \new Voice = "idk" { \voiceOne \tiny r4 a'8 fs ~ fs d4 r8 \normalsize } >> \oneVoice | % 45 + a'8 g4 fs8 ~ fs d4. | % 46 + b8 ( a4. ) r2 | % 47 + + r1 | % 48 + + % Midtro + + r1 | % 49 + r1 | % 50 + r1 | % 51 + r1 | % 52 + r2 r4 r8 d16 d | % 53 + + % Verse + + a'8 a a a16 a ~ a a8. r4 | % 54 + a8 g fs e d4 r8 d | % 55 + g8 g g g16 g ~ g g8. r8 g | % 56 + g8 f e16 f8 g16 ~ g8 r4 f16 f | % 57 + f8 f f f16 f ~ f f8. r4 | % 58 + f16 ef8. d8 ef8 f4 r8 f | % 59 + e8. e16 d8 e ~ e d4 r8 | % 60 + f4 d8. d16 c4 c | % 61 + + % Outro + + d2 r | % 62 + r1 | % 63 + r1 | % 64 + r1 | % 65 + r1 | % 66 + r1-\fermata | % 67 +} + +LeadVoxText = \lyricmode +{ + E -- ver since I was a young _ boy + I played the sil -- ver ball, _ + From So -- ho down to Brigh -- _ ton + I must have played them all, _ + But I ain’t seen noth -- ing like _ him + in a -- ny a -- muse -- ment hall, _ + That deaf, dumb and blind _ kid + Sure plays a mean pin -- ball. + + He stands just like a sta -- _ tue + be -- comes part of the ma -- chine, _ + _ Feel -- ing all the bump -- _ ers, + al -- ways play -- ing clean, _ + Plays by in -- tu -- i -- _ tion, + the di -- git count -- ers fall, + That deaf, dumb and blind _ kid + Sure plays a mean pin -- ball. + + He’s a pin -- ball wi -- zard + it has _ to be a twist. + A pin -- ball wi -- zard’s got + such a sup -- ple wrist. __ _ _ + + How do you think _ he does _ it? + What makes him _ so good? __ _ + + E -- ven on my fav -- ’rite ta -- _ ble + he can beat my best. + His dis -- ci -- ples lead him _ in, + and he just does the rest. _ + He’s got cra -- zy flip -- per fin -- _ gers, + ne -- ver seen him fall, + that deaf, dumb and blind _ kid + sure plays a mean pin -- ball. +} + +LeadVoxTextB = \lyricmode +{ + _ _ _ _ _ _ _ _ _ _ + _ _ _ _ _ _ _ + _ _ _ _ _ _ _ _ + _ _ _ _ _ _ _ + _ _ _ _ _ _ _ _ _ + _ _ _ _ _ _ _ + _ _ _ _ _ _ _ + _ _ _ _ _ _ + + _ Ain’t got no dis -- trac -- _ tions, + can’t _ hear no buzzers and bells. _ + Don’t see no lights a -- flash -- _ in’, + plays by sense of smell. _ + Al -- ways gets a re -- _ play, + I’ve ne -- ver seen him fall, + _ _ _ _ _ _ _ + _ _ _ _ _ _ + + _ I thought I was _ _ + the Bal -- ly ta -- ble King + But I just hand -- ed my + pin -- ball crown to him. _ _ +} + +LeadVoxTextIDK = \lyricmode +{ + I don’t _ know +} + +Riffs = \relative c'' +{ + \clef G +%Hm. Needed anymore? + \override Score.SpacingSpanner #'average-spacing-wishes = ##f + + % Intro + + \tiny + << { \voiceOne 1^\markup { \fret-diagram-terse #"x;x;4;4;3;2;" } } \new Voice = "v" { \voiceTwo \tiny fs8 fs fs fs fs fs fs fs } >> \oneVoice | % 1 + << { \voiceOne 1^\markup { \fret-diagram-terse #"x;x;4;4;3;o;" } } \context Voice = "v" { \voiceTwo fs8 fs fs fs fs fs fs fs } >> \oneVoice | % 2 + << { \voiceOne 1^\markup { \fret-diagram-terse #"x;x;4;4;2;o;" } } \context Voice = "v" { \voiceTwo fs8 fs fs fs fs fs fs fs } >> \oneVoice | % 3 + << { \voiceOne 1^\markup { \fret-diagram-terse #"x;x;4;3;2;o;" } } \context Voice = "v" { \voiceTwo fs8 fs fs fs fs fs fs fs } >> \oneVoice | % 4 + << { \voiceOne 1^\markup { \fret-diagram-terse #"x;x;4;2;2;o;" } } \context Voice = "v" { \voiceTwo fs8 fs fs fs fs fs fs fs } >> \oneVoice | % 5 + << { \voiceOne 1^\markup { \fret-diagram-terse #"x;x;4;o;o;o;" } } \context Voice = "v" { \voiceTwo fs8 fs fs fs fs fs fs fs } >> \oneVoice | % 6 + 8^\markup { \fret-diagram-terse #"x;x;5;4;o;x;" } | % 7 + 8 | % 8 + r1 | % 9 + + \normalsize +} + + +% +% Chord names +% +Chords = \chordmode +{ + % Intro + + s1*7 | % 1-7 + fs1:sus4 | % 8 + fs1 | % 9 + + b1:sus4 | % 10 + b1 | % 11 + b1:sus4 | % 12 + b1 | % 13 + + % Verse + + b1:sus4 | % 14 + b1 | % 15 + a1:sus4 | % 16 + a1 | % 17 + g1:sus4 | % 18 + g1 | % 19 + fs1:sus4 | % 20 + fs1 | % 21 + + b4. a4 d e8 | % 22 + s1 | % 23 + b4. a4 d e8 | % 24 + s1 | % 25 + + % Verse + + b1:sus4 | % 26 + b1 | % 27 + a1:sus4 | % 28 + a1 | % 29 + g1:sus4 | % 30 + g1 | % 31 + fs1:sus4 | % 32 + fs1 | % 33 + + b4. a4 d e8 | % 34 + s1 | % 35 + b4. a4 d e8 | % 36 + s1 | % 37 + + % Chorus + + e4 fs b2 | % 38 + e4 fs b2 | % 39 + e4 fs b2 | % 40 + g1 | % 41 + d2 d:sus4 | % 42 + d1 | % 43 + + d4. c4 g4. | % 44 + d4. c4 g4. | % 45 + d4. c4 g4. | % 46 + d4. c4 g4. | % 47 + + d1:sus4 | % 48 + + % Midtro + + d1 | % 49 + d1:sus4 | % 50 + d1 | % 51 + d1:sus4 | % 52 + d1 | % 53 + + % Verse + + d1:sus4 | % 54 + d1 | % 55 + c1:sus4 | % 56 + c1 | % 57 + bf:sus4 | % 58 + bf | % 59 + a1:sus4 | % 60 + a1 | % 61 + + % Outro + + d4. c4 f s8 | % 62 + bf1:7 | % 63 + s1 | % 64 + s1 | % 65 + s1 | % 66 + s1 | % 67 +} + + +% +% Chord rhythms +% +% Use a RhythmicStaff on the chords instead of this? +% It almost works, but not quite. Doesn't collapse chords above to single notes... +% +Rhythm = \relative c +{ +%% \set Voice.autoBeaming = ##f +%% \set Staff.instrument = #"Rhythm" + \override Staff.TimeSignature #'style = #'() + \override NoteHead #'style = #'slash + + % Intro + + s1*8 | % 1-8 + c16-> c c c-> c c c-> c c c-> c c c8 c | % 9 + + \repeat percent 11 { c16-> c c c-> c c c-> c c c-> c c c8 c } | % 10-20 + c8-> r2.. | % 21 + + c8 c r c r c r c | % 22 + c4 ~ c16 c c c c2| % 23 + c8 c r c r c r c | % 24 + c2 c8 c c c | % 25 + + % Verse + + \repeat percent 7 { c16-> c c c-> c c c-> c c c-> c c c8 c } | % 26-32 + c8-> r2.. | % 33 + + c8 c r c r c r c | % 34 + c4 ~ c16 c c c c2| % 35 + c8 c r c r c r c | % 36 + c2 c8 c c c | % 37 + + % Chorus + + c4 c c2 | % 38 + c4 c c2 | % 39 + c4 c c2 | % 40 + c4 c c c | % 41 + c4 c c c | % 42 + c4 c c c | % 43 + + c4. c8 ~ c8 c4. | % 44 + c4. c8 ~ c8 c4. | % 45 + c4. c8 ~ c8 c4. | % 46 + c4. c8 ~ c8 c4. | % 47 + + \repeat percent 13 { c16-> c c c-> c c c-> c c c-> c c c8 c } | % 48-60 + + % Midtro + % Verse + + c8-> r2.. | % 61 + + % Outro + + c8 c r c r c r4 | % 62 + c4 c c c | % 63 + c4 c c c | % 64 + c4 c c c | % 65 + c4 c c c | % 66 + c1-\fermata | % 67 +} + + +Dynamics = +{ + s1*11 + s4_\markup { \bold \column { "Bass, El." "guitar IN" } } s2. + s1*8 + s4_\markup { \bold { DRUMS IN } } s2. + s1*26 + s4_\markup { \bold { BAND OUT, Ac. guit. solo } } s2. + s1*3 + s4_\markup { \bold { Bass, El. guitar IN } } s2. + s1*8 + s4_\markup { \bold { DRUMS IN } } s2. + s1 + s4_\markup { \bold { TAKE ENERGY DOWN... } } s2. +} + + +\score +{ + << + \set Score.skipBars = ##t + \set Score.melismaBusyProperties = #'() + +% \new Staff + << +%nowok \Staff \RemoveEmptyStaves + \new ChordNames \Chords +%Capo 4 edition +% \new ChordNames \transpose b g \Chords + \new RhythmicStaff << \Rhythm \Dynamics >> + >> + + \new Staff + << + \Global % The "roadmap" that everything else depends on + \new Voice = "lead" \LeadVox + \new Voice \Riffs + \new Lyrics \lyricsto "lead" \LeadVoxText + \new Lyrics \lyricsto "lead" \LeadVoxTextB + \new Lyrics \lyricsto "idk" \LeadVoxTextIDK + >> + >> +} + + +\paper +{ + #(define fonts (make-pango-font-tree + "Times New Roman" + "DomCasual BT" + "Luxi Mono" + (/ staffSize 20))) + +% Spread staves vertically across last page (default: t) +% ragged-last-bottom = ##f +% Don't spread staves vertically across the page (default: f) +% ragged-bottom = ##t +% Allow partial line for last stave (default: f) + ragged-last = ##t + +% To find out what's eating the space at the top... +% annotate-spacing = ##t +%let's try this: [It works! Huzzah!] + obsolete-page-top-space = 0 top-system-spacing #'basic-distance = #(/ obsolete-page-top-space staff-space) +} diff --git a/covers/revolution.ly b/covers/revolution.ly new file mode 100644 index 0000000..7b5dcf5 --- /dev/null +++ b/covers/revolution.ly @@ -0,0 +1,387 @@ +\version "2.16.0" +\include "../pop-chords.ly" +\include "../rhythm-mark.ly" +\include "english.ly" + +% Good sizes are 16, 18, & 20 +staffSize = #18 +#(set-default-paper-size "letter") +#(set-global-staff-size staffSize) +#(ly:set-option (quote no-point-and-click)) + +%{ Some useful characters: ‘ ’ “ ” – — † ‡ • … %} + +\header +{ +%Let's bump up the title size and switch to the chord font. :-) + + title = \markup { \override #'(font-family . sans) \fontsize #3.5 "Revolution" } + composer = \markup { \override #'(font-family . sans) \fontsize #1.3 "John Lennon/Paul McCartney" } +% arranger = \markup { \override #'(font-family . sans) \fontsize #1.3 "arr. Ed Smart" } + tagline = $(string-append "Engraved by JLH and Lilypond " (lilypond-version)) +} + + +% +% Lead vocal +% + +LeadVox = \relative c' +{ +% \set Voice.autoBeaming = ##f +% \set Staff.instrumentName = #"Lead vox" + \clef G + \key bf \major + \override Staff.TimeSignature #'style = #'() + \time 4/4 +\override Score.SpacingSpanner #'average-spacing-wishes = ##f + + \override TupletBracket #'transparent = ##t + \set tupletSpannerDuration = #(ly:make-moment 1 4) + + \rhythmMark #"" \rhyMarkIIEighths \rhyMarkTriplets + R1 | % 1 + R1 | % 2 + R1 | % 3 + r2 r4 r8 ef \bar "||:" % 4 + + \repeat volta 2 + { +\mark \markup { \override #'(font-family . sans) { \box { A } } } + + f8 f f f bf c ( bf ) f' ~ | % 5 + f8 d4 ( c8 ~ c bf ) d ( c ~ | % 6 + \time 2/4 c8 bf ) g c ( ~ \time 4/4 | % 7 + c8 bf g4 ) r2 | % 8 + r8 df' c c ~ c bf c bf | % 9 + f2 r | % 10 + r2 r4 r8 ef \bar "||" % 11 + +\mark \markup { \override #'(font-family . sans) { \box { B } } } + + f8 f f f bf c ( bf ) f' ~ | % 12 + f8 d4 c8 ( ~ c bf ) d c ( ~ | % 13 + \time 2/4 c8 bf ) g c ( ~ \time 4/4 | % 14 + c8 bf g4 ) r2 | % 15 + r8 df' c c ~ c bf c bf | % 16 + c4 ( ~ c8 a16 g f2 ) | % 17 + R1 \bar "||" % 18 + +\mark \markup { \override #'(font-family . sans) { \box { C } } } + + r8 g << { \tiny \times 2/3 { \stemUp c8 c bf c c bf c c bf \stemNeutral } \normalsize } \context Voice = vb { \voiceTwo c8 bf c bf c bf } >> | % 19 + d8 d4 c8 ( ~ c bf g4 ) | % 20 + << { \tiny \stemUp r8 f \times 2/3 { c'8 c bf c c bf c c bf \stemNeutral } \normalsize } \context Voice = vb { s4 c8 bf c bf c bf } >> | % 21 + } +} + +LeadVoxText = \lyricmode +{ + You say you want a re -- vo -- _ lu -- _ tion __ _ _ _ well __ _ _ _ you know __ _ _ _ + We all want _ to change the world + You tell me that it’s e -- vo -- _ lu -- _ tion __ _ _ _ well __ _ _ _ you know __ _ _ _ + We all want _ to change the world __ _ _ _ _ + + But when _ you talk _ a -- bout _ de -- stuc -- tion __ _ _ _ _ + _ Don’t _ you know _ that you _ can count me out _ +} + +LeadVoxTextB = \lyricmode +{ + _ say you got a real so -- _ lu -- _ tion __ _ _ _ well __ _ _ _ you know __ _ _ _ + We’d all love _ to see the plan + You ask me for a con -- tri -- _ bu -- _ tion __ _ _ _ well __ _ _ _ you know __ _ _ _ + We’re all do -- _ ing what we can __ _ _ _ _ + + But when you want mo -- ney for peo -- ple with minds that hate __ _ _ _ + All I can tell you is bro -- ther you have to wait +} + +LeadVoxTextC = \lyricmode +{ + _ say you’ll change the con -- sti -- _ tu -- _ tion __ _ _ _ well __ _ _ _ you know __ _ _ _ + We all want _ to change your head + You tell me it’s the in -- sti -- _ tu -- _ tion __ _ _ _ well __ _ _ _ you know __ _ _ _ + You better free _ your mind in -- stead __ _ _ _ _ + + But if you go car -- ry -- ing pic -- tures of Chair -- man Mao __ _ _ _ + You ain’t gon -- na make it with a -- ny -- one a -- ny -- how +} + + +% +% Guitar I +% + +GuitarI = \relative c'' +{ + \clef G + \key bf \major + \override Staff.TimeSignature #'style = #'() + \time 4/4 +\override Score.SpacingSpanner #'average-spacing-wishes = ##f + + \override TupletBracket #'transparent = ##t + \set tupletSpannerDuration = #(ly:make-moment 1 4) + + \times 2/3 { 8 } | % 1 + \repeat percent 2 + { + \times 2/3 { \acciaccatura { } 8 } | % 2-3 + } + \acciaccatura { g } af4 ~ \times 2/3 { af8 f af \acciaccatura { bf } c8 ef4 ~ ef8 f, c } + +} + +GuitarITab = \relative c' +{ + \override Staff.TimeSignature #'style = #'() + \time 4/4 + + \override TupletBracket #'transparent = ##t + \set tupletSpannerDuration = #(ly:make-moment 1 4) + + \times 2/3 { 8 } | % 1 + \repeat percent 2 + { + \times 2/3 { \acciaccatura { } 8 } | % 2-3 + } +} + +% +% Guitar II +% + +GuitarII = \relative c' +{ + \clef G + \key bf \major + \override Staff.TimeSignature #'style = #'() + \time 4/4 +\override Score.SpacingSpanner #'average-spacing-wishes = ##f + + +} + + +% +% Bass +% + +Bass = \relative c +{ +} + + +% +% Drums +% + +Drums = \drummode +{ + \override Staff.TimeSignature #'style = #'() + \time 4/4 + + R1 | % 1 + R1 | % 2 + << { \voiceOne toml4^> r r2 } \context DrumVoice = dvb { \voiceTwo bd4 r r2 } >> | % 3 + << { r2 r8 sn sn [ sn ] } \context DrumVoice = dvb { R1 } >> | % 4 + + \repeat percent 2 + { + << { r4 sn r sn } \context DrumVoice = dvb { bd8 bd r bd bd [ bd ] r bd } >> | % 5-6 + } + << { r4 sn } \context DrumVoice = dvb { \voiceTwo bd8 bd r bd } >> | % 7 + \repeat percent 6 + { + << { r4 sn r sn } \context DrumVoice = dvb { bd8 bd r bd bd [ bd ] r bd } >> | % 8-13 + } + +} + + +% +% Chord names +% + +Chords = \chordmode +{ +%Bah, can't we set this globally? +%YES! \popChords + + % Intro + +} + + +% +% Chord rhythms +% + +% Use a RhythmicStaff on the chords instead of this? +% It almost works, but not quite. Doesn't collapse chords above to single notes... + +StaffC = \relative c +{ +%{ +% \set Voice.autoBeaming = ##f +% \set Staff.instrumentName = #"Rhythm" + \override Staff.TimeSignature #'style = #'() + \time 3/4 + \override NoteHead #'style = #'slash + + % Intro + + r8. c16 r4 c | % 1 + c4 c c | % 2 + c4 c c | % 3 + c4 c c | % 4 + c4 c c | % 5 + c4 c c | % 6 + c4 c c | % 7 + c4 c c \bar "||:" % 8 + + \repeat volta 2 + { + % Verse + + c4 c2 | % 9 + c8 c c4 c | % 10 + c4 c c | % 11 + c4 c c-> | % 12 + c4 c c | % 13 + c4 c c | % 14 + c4 c c | % 15 + + c4 c c | % 16 + c4 c c | % 17 + } + \alternative + { + { + c4 c c | % 18 + c4 c c | % 19 + } + { + c4 c c | % 20 + } + } + + c4 c c \bar "||" % 21 + + % Verse + + c4 c2 | % 22 + c4 c2 | % 23 + c2. | % 24 + c2 c4-> | % 25 + c4-> c-> c | % 26 + c4 c c | % 27 + c4 c c \bar "||" % 28 + + c4 c c | % 29 + c4 c c | % 30 + + c4 c c | % 31 + c4 c c \bar "||" % 32 + + % Verse + + c2.-> | % 33 + c8-> c-> c4-> c | % 34 + c4 c c | % 35 + c4 c c | % 36 + c4 c c | % 37 + c4 c c | % 38 + c4 c c \bar "||" % 39 + + % Ending + + c4 c c | % 40 + c4 c c | % 41 + c4 c c | % 42 + c4 c c | % 43 + + \repeat volta 2 + { + c4 c c | % 44 + c4 c c | % 45 + c4 c c | % 46 + c4 c c | % 47 + c4 c c | % 48 + c4 c c | % 49 + c4 c c | % 50 + c4^\fermata c c | % 51 + } +%} +} + + +Dynamics = +{ +%{ + s4_\markup { \italic { snare pat. } } s2 | % 1 + s4_\markup { \italic { simile } } s2 | % 2 + s2.*19 + s4_\markup { \italic { spacy } } s2 | % 22 + s2.*5 + s4 s \< s \! | % 28 + s2.*22 + s4_\markup { \italic { Last time } } s2 | % 51 +%} +} + + +\score +{ + << + << + \new Staff = leadStaff { \new Voice = "lead" \LeadVox } +% \new Staff = leadStaff { << \new Voice = "lead" \LeadVox \new Voice = "riffs" \Riffs >> } + \new Lyrics \lyricsto "lead" \LeadVoxText + \new Lyrics \lyricsto "lead" \LeadVoxTextB + \new Lyrics \lyricsto "lead" \LeadVoxTextC + >> + + \new StaffGroup = "Rhythm Guitar" + << + \new Staff = rhythmGuitar { \GuitarI } + \new TabStaff = rhythmGuitarTab { \GuitarITab } + >> + + << + \new DrumStaff = drumNotes { \Drums } + >> + +% \new ChoirStaff = "Rhythm" +% << +% \new ChordNames = "chords" \Chords +% \new RhythmicStaff = "chordRhythm" << \StaffC \Dynamics >> +% >> + + \set Score.skipBars = ##t + \set Score.melismaBusyProperties = #'() + >> +} + + +\paper +{ + #(define fonts (make-pango-font-tree + "Times New Roman" + "DomCasual BT" + "Luxi Mono" + (/ staffSize 20))) + +% Don't spread staves vertically across last page (default: t) +% ragged-last-bottom = ##f +% Don't spread staves vertically across the page (default: f) +% ragged-bottom = ##t +% Allow partial line for last stave (default: f) + ragged-last = ##t + +% To find out what's eating the space at the top... +% annotate-spacing = ##t +%let's try this: [It works! Huzzah!] + obsolete-page-top-space = 0 top-system-spacing #'basic-distance = #(/ obsolete-page-top-space staff-space) +} diff --git a/create-in-me-a-clean-heart.ly b/create-in-me-a-clean-heart.ly new file mode 100755 index 0000000..19aed0a --- /dev/null +++ b/create-in-me-a-clean-heart.ly @@ -0,0 +1,280 @@ +\version "2.16.0" +\include "pop-chords.ly" +\include "english.ly" + +% Good sizes are 16, 18, & 20 +staffSize = #16 +#(set-default-paper-size "letter") +#(set-global-staff-size staffSize) +#(ly:set-option (quote no-point-and-click)) + +%{ Some useful characters: ‘ ’ “ ” – — † ‡ • … %} + +\header +{ +%Let's bump up the title size and switch to the chord font. :-) + + title = \markup { \override #'(font-family . sans) \fontsize #3.5 "Create In Me A Clean Heart" } +% composer = \markup { \override #'(font-family . sans) \fontsize #1.3 "" } + arranger = \markup { \override #'(font-family . sans) \fontsize #1.3 "arr. Ed Smart" } + tagline = $(string-append "Engraved by JLH and Lilypond " (lilypond-version)) +} + + +% +% Lead vocal +% + +LeadVox = \relative c' +{ +% \set Voice.autoBeaming = ##f +% \set Staff.instrument = #"Lead vox" + \clef G + \key g \major + \override Staff.TimeSignature #'style = #'() + \time 4/4 +\override Score.SpacingSpanner #'average-spacing-wishes = ##f + + % Intro + + R1^\markup { 8th note ballad, s. stick & colors } | % 1 + R1 | % 2 + R1 | % 3 + r2 r4. d8 \bar "||" % 4 + + % Verse + +\once \override Score.RehearsalMark #'self-alignment-X = #left +\mark \markup { \override #'(font-family . sans) { \box { A } } \hspace #1.0 \raise #2.0 \musicglyph #"scripts.segno" } + + g8 g g g fs4 d8 ( fs | % 5 + e4 ) e16 ( d e8 ) d4 r | % 6 + r8 g16 g g a g8 fs fs g16 a8 ( g16 ) | % 7 + g2 r4. d8 | % 8 + g8 g g g fs4 d8 ( fs | % 9 + e4 ) e16 ( d e8 ) d4 r | % 10 + r8 g16 g g a g8 fs fs g16 a8 ( g16 ) | % 11 + g2 r \bar "||:" % 12 + + % Chorus + + \repeat volta 3 + { +\mark \markup { \override #'(font-family . sans) { \box { B } } } + + c8.^\markup { \italic { 2nd time snare } } c16 c8 b a4 g8 a | % 13 + b8 b4 a16 ( g ) g4 r8 g | % 14 + c4 c8 b a a a16 g a8 | % 15 + b2 r4. g8 | % 16 + c4. b16 ( a ) a4. r16 g | % 17 + b8. c16 b8 a g e ~ e4 | % 18 + r8 g16 g g a g8 fs fs g16 a8 ( g16 ) | % 19 + } + \alternative + { + { + g2 r | % 20 + r2 r4.^\markup { \hspace #0.0 \raise #0.65 \bold D.S. } d8 \bar "||" % 21 + } + { + g2 r | % 22 + } + { + g2 r | % 23 + } + } + + % Ending + + r8 g16 g g a g8 fs fs fs16 a ( g8 ) | % 24 + g2 r | % 25 + r8 g16 g g a g8 fs fs fs16 a ( g8 ) | % 26 + g1^\fermata \bar "|." % 27 +} + +LeadVoxText = \lyricmode +{ + Cre -- ate in me a clean heart __ _ _ O __ _ _ God + And re -- new a right spi -- rit wi -- thin _ me + Cre -- ate in me a clean heart __ _ _ O __ _ _ God + And re -- new a right spi -- rit wi -- thin _ me + + Cast me not a -- way from your pre -- sence O _ Lord + And take not your Ho -- ly Spi -- rit from me + Re -- store to _ me the joy of your sal -- va -- tion _ + And re -- new a right spi -- rit wi -- thin _ me + + Cre -- + me + me + + And re -- new a right spi -- rit wi -- thin _ me + And re -- new a right spi -- rit wi -- thin _ me +} + + +% +% Chord names +% + +Chords = \chordmode +{ +%Bah, can't we set this globally? +% \popChords + + % Intro + + g2 d/g | % 1 + c2/g d/g | % 2 + g2 d/g | % 3 + c2/g d/g | % 4 + + % Verse + + g2 d/g | % 5 + c2/g g | % 6 + c2 d | % 7 + g2:sus4 g | % 8 + g2 b:m7 | % 9 + a2:m7 g | % 10 + a2:m7 d | % 11 + g2:sus4 g8. a:m7 g8/b | % 12 + + % Chorus + + \repeat volta 3 + { + c2 d/c | % 13 + b2:m7 e:m7 | % 14 + a2:m7 d | % 15 + g1:maj7 | % 16 + fs2:m7.5- b:7.9- | % 17 + e4:m7 e:m7/d c:maj7 g/b | % 18 + a2:m7 d | % 19 + } + \alternative + { + { + g2 d/g | % 20 + c2/g d/g | % 21 + } + { + g2 g8. a:m7 g8/b | % 22 + } + { + g2 b:m7 | % 23 + } + } + + % Ending + + a2:m7 d | % 24 + g2 b:m7 | % 25 + a2:m7 d | % 26 + g1 | % 27 +} + + +% +% Chord rhythms +% + +% Use a RhythmicStaff on the chords instead of this? +% It almost works, but not quite. Doesn't collapse chords above to single notes... + +StaffC = \relative c +{ +% \set Voice.autoBeaming = ##f +% \set Staff.instrument = #"Rhythm" + \override Staff.TimeSignature #'style = #'() + \time 4/4 + \override NoteHead #'style = #'slash + + % Intro + + c4_\mp c c c | % 1 + c4 c c c | % 2 + c4 c c c | % 3 + c4 c c c \bar "||" % 4 + + % Verse + + c4 c c c | % 5 + c4 c c c | % 6 + c4 c c c | % 7 + c4 c c c | % 8 + c4 c c c | % 9 + c4 c c c | % 10 + c4 c c c | % 11 + c4 c c8.-> c16-> \< ~ c8 c \! \bar "||:" % 12 + + % Chorus + + \repeat volta 3 + { + c4_\mf c c c | % 13 + c4 c c c | % 14 + c4 c c c | % 15 + c4 c c c | % 16 + c4 c c c | % 17 + c4 c c c | % 18 + c4 c c c | % 19 + } + \alternative + { + { + c4 c c c | % 20 + c4 c c c \bar "||" % 21 + } + { + c4 c c8.-> c16-> \< ~ c8 c \! | % 22 + } + { + c4 c c c | % 23 + } + } + + % Ending + + c4 c c c | % 24 + c4 c c c | % 25 + c2 c_\markup { \italic { rit. } } | % 26 + c1^\fermata \bar "|." % 27 +} + + +\score +{ + << + << + \new Staff = leadStaff { \new Voice = "lead" \LeadVox } + \new Lyrics \lyricsto "lead" \LeadVoxText + >> + + \new ChoirStaff = "Rhythm" + << + \new ChordNames = "chords" \Chords + \new RhythmicStaff = "chordRhythm" \StaffC + >> + + \set Score.skipBars = ##t + \set Score.melismaBusyProperties = #'() + >> + + \layout + { +% \context { \Staff \RemoveEmptyStaves } +% ragged-last-bottom = ##t +% ragged-last = ##t + } +} + + +\paper +{ + #(define fonts (make-pango-font-tree + "Times New Roman" + "DomCasual BT" + "Luxi Mono" + (/ staffSize 20))) +} diff --git a/creation-song.ly b/creation-song.ly new file mode 100644 index 0000000..4804a05 --- /dev/null +++ b/creation-song.ly @@ -0,0 +1,692 @@ +\version "2.16.0" +\include "pop-chords.ly" +\include "english.ly" + +% Good sizes are 16, 18, & 20 +staffSize = #16 +#(set-default-paper-size "letter") +#(set-global-staff-size staffSize) +#(ly:set-option (quote no-point-and-click)) + +%{ Some useful characters: ‘ ’ “ ” – — † ‡ • … %} + +\header +{ +%Let's bump up the title size and switch to the chord font. :-) + + title = \markup { \override #'(font-family . sans) \fontsize #3.5 "Creation Song (Glory to the Lamb)" } +% composer = \markup { \override #'(font-family . sans) \fontsize #1.3 "" } + arranger = \markup { \override #'(font-family . sans) \fontsize #1.3 "Arr. John Wierick/Ed Smart" } + tagline = $(string-append "Engraved by JLH and Lilypond " (lilypond-version)) +% Let's try a chord dictionary + subtitle = \markup { \center-column { G2 \fret-diagram-terse #"x;x;x;7;8;10;" } " " \center-column { F2 \fret-diagram-terse #"x;x;x;5;6;8;" } } +} + +% Useful tweak abbreviations (hn = harmony note) + +hn = #(define-music-function (parser location arg) (ly:music?) +;; Harmony Note: Set the tweaks property of the passed in note to use a smaller font + + (set! (ly:music-property arg 'tweaks) + (acons 'font-size -3.5 (ly:music-property arg 'tweaks))) arg) + + +% +% Song's structure +% +Global = +{ + \key g \major + \override Staff.TimeSignature #'style = #'() + \time 6/4 + + % Intro + + \once \override TextScript #'padding = #2.0 + s1*0^\markup { \large \bold { Not too fast } } +%Capo 3 version +% s1*0^\markup { \large \bold { Not too fast "(*** CAPO 3 ***)" } } + + \repeat volta 2 + { + s1.*2 | % 1-2 + } + + % Verse + + \mark \markup { \override #'(font-family . sans) { \box { A } } } + s1.*16 \bar "||" % 3-18 + + % Chorus + + \once \override Score.RehearsalMark #'self-alignment-X = #left + \mark \markup { \override #'(font-family . sans) { \box { B } } \hspace #1.0 \raise #2.0 \musicglyph #"scripts.segno" } + s1.*10 | % 19-28 + \once \override Score.RehearsalMark #'self-alignment-X = #left + \mark \markup { \musicglyph #"scripts.coda" \italic { to Coda } } + s1.*8 \bar "||" % 29-36 + + % Verse + + \mark \markup { \override #'(font-family . sans) { \box { C } } } + s1.*16 \bar "||" % 37-52 + \once \override Score.RehearsalMark #'self-alignment-X = #right + \mark \markup { \large \bold { D.S. al Coda } } + + % Coda + + % blank measure between last measure and coda +% \stopStaff s1. \bar "" \startStaff % That removed the spurious floating bar line from line break + \stopStaff s1. \startStaff % That removed the spurious floating bar line from line break +% \break % Meh + \set Score.currentBarNumber = #53 + + \once \override Score.RehearsalMark #'self-alignment-X = #left + \mark \markup { { \musicglyph #"scripts.coda" } "Coda" } + + s1.*10 \bar "||" % 53-62 + + % Interlude + + \mark \markup { \override #'(font-family . sans) { \box { D } } } + s1.*14 | % 63-76 + \key a \major + s1.*2 | % 77-78 + + % Chorus + + \repeat volta 2 + { + \mark \markup { \override #'(font-family . sans) { \box { E } } } + s1.*15 \bar "||" % 79-93 + } + \alternative + { + { + s1. % 94 + } + { + s1. % 95 + } + } + + s1.*5 \bar "|." % 96-100 +} + + +% +% Lead vocal +% +LeadVox = \relative c' +{ + \clef G + \override Score.SpacingSpanner #'average-spacing-wishes = ##f + + % Intro + + s1. | % 1 + s1 s4 d | % 2 + + % Verse + + b'4. b b d | % 3 + d2. c4 b g | % 4 + a2 ( \times 2/3 { b8 a g ) } a2. | % 5 + r2 r8 g c4 b g8 g ~ | % 6 + g4 f2 r4 r r8 f | % 7 + c'4 c c8 c ~ c4 b g8 g ~ | % 8 + g1. | % 9 + r2 r r4 | % 10 + 4 8 ~ 4 | % 11 + 4 4. 8 4 8 4. | % 12 + 2 ( \times 2/3 { 8 ) } 2. | % 13 + r2 r8 8 4 << { \voiceTwo g8 g ~ } \context Voice = vb { \voiceOne <\hn b> <\hn c> ~ } >> | % 14 + << { \voiceTwo g8 f ~ f2 } \context Voice = vb { \voiceOne <\hn c'>2. } >> \oneVoice 4 8 ~ | % 15 + 8 ~ 2 8 4 8 ~ 4 | % 16 + 4 8 ( ) 2. | % 17 + r2 r2 g4 b | % 18 + + % Chorus + + 1. | % 19 + 2. r4 r2 | % 20 + 1. | % 21 + 2. r4 r2 | % 22 + << { \voiceTwo b2. b } \context Voice = vb { \voiceOne <\hn d \hn g>2. <\hn d>4 ~ <\hn d>8 <\hn e> <\hn g>4 } >> | % 23 + << { \voiceTwo c,2 ( b4 ) b2 ( a4 ) } \context Voice = vb { \voiceOne <\hn e' \hn a>2. <\hn d \hn g> } >> \oneVoice | % 24 + 1. | % 25 + r2 r2 4 | % 26 + 1 ( ~ 8 16 4 ) | % 27 + 2. r4 r | % 28 + 1. | % 29 + 2. r4 r | % 30 + << { \voiceTwo d1 ~ d4 c8 b } \context Voice = vb { \voiceOne <\hn fs' \hn a>2. ( <\hn e \hn g> } >> | % 31 + << { \voiceTwo a,1 ~ a8 b16 a g4 } \context Voice = vb { \voiceOne <\hn d' \hn fs>1 ~ <\hn d \hn fs>8 <\hn g>16 <\hn fs> <\hn d>4 ) } >> \oneVoice | % 32 + 1. | % 33 + R1. | % 34 + R1. | % 35 + R1. | % 36 + + % Verse + + b4 b a8 b ~ b4 b d | % 37 + d4 b r8 b c4 b g | % 38 + a2 ( \times 2/3 { b8 a g ) } a2. | % 39 + r2 r8 4 | % 40 + 4 2 | % 41 + r2 r8 4 8 ~ 4 | % 42 + 4 8 2. | % 43 + r2 r 4 | % 44 + 4 8 8 ~ 4 | % 45 + 4 r r | % 46 + 4 8 2 r4 | % 47 + r2 r8 4 | % 48 + 2. r4 r2 | % 49 + 4. | % 50 + 4 2. | % 51 + r2 r 4 | % 52 + + s1. % for Coda spacing + + % Coda + + 1. | % 53 + 2. r4 r | % 54 + 1. | % 55 + << { \voiceTwo 1. ~ } \context Voice = vc { \voiceOne <\hn f>1 ~ <\hn f>4 <\hn f> } >> | % 56 + << { \voiceTwo 1. } \context Voice = vc { \voiceOne <\hn bf'>2. <\hn a>2 <\hn g> 4 } >> | % 57 + << { \voiceTwo r2 r bf,4 ( c ) } \context Voice = vc { \voiceOne <\hn bf'>2. <\hn a>2 <\hn g>4 } >> \oneVoice | % 58 + 1. | % 59 + 1. ~ | % 60 + 1. | % 61 + R1. | % 62 + + % Interlude + + s1. | % 63 + s1. | % 64 + s1. | % 65 + s1. | % 66 + s1. | % 67 + s1. | % 68 + s1. | % 69 + s1. | % 70 + s1. | % 71 + s1. | % 72 + s1. | % 73 + s1. | % 74 + s1. | % 75 + R1. | % 76 + R1. | % 77 + r2 r 4 | % 78 + + % Chorus + + 1. | % 79 + 2. r4 | % 80 + 1. | % 81 + 1 r2 | % 82 + 2. | % 83 + << { \voiceTwo d2 ( cs4 ) cs2 ( b4 ) } \context Voice = vb { \voiceOne <\hn b \hn fs' \hn d'>2. <\hn a \hn e' \hn cs'> } >> \oneVoice | % 84 + 1. | % 85 + r2 r 4 ( ) | % 86 + 1 ~ ( 8 16 4 ) | % 87 + 2. r4 r 4 | % 88 + 1. | % 89 + 2. r4 r | % 90 + 1 ( 8 4 ) | % 91 + 1 ~ 4 | % 92 + 2. ( 4 ~ 8 16 4 ) | % 93 + + 2. r4 | % 94 + + 2. 4 ~ ( 8 16 4 ) | % 95 + + % Outro + + 1. | % 96 + s1. | % 97 + s1. | % 98 + s1. | % 99 + s1. | % 100 +} + +LeadVoxText = \lyricmode +{ + He wraps him -- self in light + as with a gar -- _ _ _ ment, + He spreads out the hea -- _ vens, + and walks on the wings _ of the wind. _ + He sends forth the springs _ from the val -- leys, + they flow be -- tween moun -- _ _ _ tains, + The birds of the air, __ _ _ _ dwell by the wa -- _ ters, _ + lift -- ing their _ voi -- ces in _ song, + + Sing -- ing glo -- ry, glo -- ry, + glo -- ry to _ the _ lamb, + All _ prai -- _ _ _ _ ses, and ho -- nor, for -- e -- _ _ _ _ _ _ _ _ ver. + + He made the moon _ for its sea -- sons, + the sun knows its set -- _ _ _ tings, + He looks at the Earth and it trem -- bles, + He touch -- es the _ moun -- tains and they smoke, + I will sing to the Lord _ all my life, + I will sing prai -- ses to my God, + As long as I live, + prai -- ses to the Lord, O my soul, + + Sing -- ing + + ho -- nor, for -- e -- ver, _ and _ e -- ver. _ + + Sing -- ing glo -- ry, hal -- le -- lu -- jah, + glo -- ry to _ our _ God, + All _ prais -- _ _ _ _ es, and ho -- nor, for -- e -- _ _ _ ver _ + and e -- _ _ _ _ _ ver + + Sing -- ing + + ver, A -- _ _ _ _ men. +} + +DescantText = \lyricmode +{ + _ _ and e -- ver and e -- ver _ +} + +% +% Riffs +% +Riffs = \relative c'' +{ + \tiny + + s1.*63 | % 1-62 (plus blank for Coda) + + b1 a4 g | % 63 + e1 fs4 g | % 64 + e1 d4 c | % 65 + b1 g'4 a | % 66 + b1 a4 g | % 67 + e1 a4 g | % 68 + d1 fs4 g | % 69 + a1 g4 a | % 70 + b1 a4 g | % 71 + e1 fs4 g | % 72 + e1 d4 c | % 73 + b1 d4 e | % 74 + d1. | % 75 + + s1.*20 | % 76-95 + + s1. | % 96 + 2. 4 | % 97 + 1. ~ | % 98 + 2. 4 | % 99 + 1.-\fermata | % 100 +} + + +% +% Chord names +% +Chords = \chordmode +{ +%Bah, can't we set this globally? +% \popChords + + % Intro + + g1.:sus2 | % 1 + s1. | % 2 + + % Verse + + g1.:sus2 | % 3 + s1. | % 4 + s1. | % 5 + s1. | % 6 + f1.:sus2 | % 7 + s1. | % 8 + g1.:sus2 | % 9 + s1. | % 10 + s1. | % 11 + s1. | % 12 + s1. | % 13 + s1. | % 14 + f1.:sus2 | % 15 + s1. | % 16 + g1.:sus2 | % 17 + s1. | % 18 + + % Chorus + + g1. | % 19 + s1. | % 20 + c1.:maj7 | % 21 + s1. | % 22 + g1. | % 23 + a2.:m7 g | % 24 + d1. | % 25 + s1. | % 26 + g1. | % 27 + d1./fs | % 28 + e1.:m | % 29 + c1.:maj7 | % 30 + d2. c/d | % 31 + d1. | % 32 + g1.:sus2 | % 33 + s1. | % 34 + s1. | % 35 + s1. | % 36 + + % Verse + + g1.:sus2 | % 37 + s1. | % 38 + s1. | % 39 + s1. | % 40 + f1.:sus2 | % 41 + s1. | % 42 + g1.:sus2 | % 43 + s1. | % 44 + s1. | % 45 + s1. | % 46 + s1. | % 47 + s1. | % 48 + f1.:sus2 | % 49 + s1. | % 50 + g1.:sus2 | % 51 + s1. | % 52 + + s1. % for Coda spacing + + % Coda + + e1.:m | % 53 + c1.:maj7 | % 54 + bf1. | % 55 + s1. | % 56 + g1.:m7 | % 57 + s1. | % 58 + f1. | % 59 + s1. | % 60 + s1. | % 61 + s1. | % 62 + + % Interlude + + e1.:m | % 63 + d1.:sus2/fs | % 64 + c1./g | % 65 + g1. | % 66 + e1.:m | % 67 + c1.:maj7 | % 68 + g1. | % 69 + d1. | % 70 + e1.:m | % 71 + d1.:sus2/fs | % 72 + c1./g | % 73 + g1. | % 74 + d1.:sus4 | % 75 + d1. | % 76 + e1.:sus4 | % 77 + e1. | % 78 + + % Chorus + + a1. | % 79 + s1. | % 80 + d1.:maj7 | % 81 + s1. | % 82 + a1. | % 83 + b2.:m7 a | % 84 + e1. | % 85 + s1. | % 86 + a1. | % 87 + e1./gs | % 88 + fs1.:m | % 89 + d1.:maj7 | % 90 + e2. e:sus4 | % 91 + e1. | % 92 + e2.:7 a/e | % 93 + + e1. | % 94 + + e1. | % 95 + + % Outro + + a1. | % 96 + s1. | % 97 + s1. | % 98 + s1. | % 99 + s1. | % 100 +} + + +% +% Chord rhythms +% + +% Use a RhythmicStaff on the chords instead of this? +% It almost works, but not quite. Doesn't collapse chords above to single notes... + +Rhythm = +{ + \override Staff.TimeSignature #'style = #'() + \override NoteHead #'style = #'slash + + % Intro + + c4. c8 c c c4. c8 c c | % 1 + c4. c8 c c c4. c8 c c | % 2 + + % Verse + + c4 c c c c c | % 3 + c4 c c c c c | % 4 + c4 c c c c c | % 5 + c4 c c c c c | % 6 + c4 c c c c c | % 7 + c4 c c c c c | % 8 + c4 c c c c c | % 9 + c4 c c c c c | % 10 + c4 c c c c c | % 11 + c4 c c c c c | % 12 + c4 c c c c c | % 13 + c4 c c c c c | % 14 + c4 c c c c c | % 15 + c4 c c c c c | % 16 + c4 c c c c c | % 17 + c4 c c c c c | % 18 + + % Chorus + + c4 c c c c c | % 19 + c4 c c c c c | % 20 + c4 c c c c c | % 21 + c4 c c c c c | % 22 + c4 c c c c c | % 23 + c4 c c c c c | % 24 + c4 c c c c c | % 25 + c4 c c c c c | % 26 + c4 c c c c c | % 27 + c4 c c c c c | % 28 + c4 c c c c c | % 29 + c4 c c c c c | % 30 + c4 c c c c c | % 31 + c4 c c c c c | % 32 + c4. c8 c c c4. c8 c c | % 33 + c4. c8 c c c4. c8 c c | % 34 + c4. c8 c c c4. c8 c c | % 35 + c4. c8 c c c4. c8 c c | % 36 + + % Verse + + c4 c c c c c | % 37 + c4 c c c c c | % 38 + c4 c c c c c | % 39 + c4 c c c c c | % 40 + c4 c c c c c | % 41 + c4 c c c c c | % 42 + c4 c c c c c | % 43 + c4 c c c c c | % 44 + c4 c c c c c | % 45 + c4 c c c c c | % 46 + c4 c c c c c | % 47 + c4 c c c c c | % 48 + c4 c c c c c | % 49 + c4 c c c c c | % 50 + c4 c c c c c | % 51 + c4 c c c c c | % 52 + + s1. % for Coda spacing + + % Coda + + c4 c c c c c | % 53 + c4 c c c c c | % 54 + c4 c c c c c | % 55 + c4 c c c c c | % 56 + c4 c c c c c | % 57 + c4 c c c c c | % 58 + c4 c c c c c | % 59 + c4 c c c c c | % 60 + c4 c c c c c | % 61 + c1. | % 62 + + % Interlude + + c4 c c c c c | % 63 + c4 c c c c c | % 64 + c4 c c c c c | % 65 + c4 c c c c c | % 66 + c4 c c c c c | % 67 + c4 c c c c c | % 68 + c4 c c c c c | % 69 + c4 c c c c c | % 70 + c4 c c c c c | % 71 + c4 c c c c c | % 72 + c4 c c c c c | % 73 + c4 c c c c c | % 74 + c4 c c c c c | % 75 + c4 c c c c c | % 76 + c4 c c c c c | % 77 + c4 c c c c c | % 78 + + % Chorus + + c4 c c c c c | % 79 + c4 c c c c c | % 80 + c4 c c c c c | % 81 + c4 c c c c c | % 82 + c4 c c c c c | % 83 + c4 c c c c c | % 84 + c4 c c c c c | % 85 + c4 c c c c c | % 86 + c4 c c c c c | % 87 + c4 c c c c c | % 88 + c4 c c c c c | % 89 + c4 c c c c c | % 90 + c4 c c c c c | % 91 + c4 c c c c c | % 92 + c4 c c c c c | % 93 + + c4 c c c c c | % 94 + + c4 c c c c c | % 95 + + % Outro + + c4 c c c c c | % 96 + c4 c c c c c | % 97 + c4 c c c c c | % 98 + c4 c c c c c | % 99 + c1.-\fermata | % 100 +} + + +Dynamics = +{ +%{ + % Intro + + s4_\f s2. | % 1 + s1*5 | % 2-6 + s4_\fp s s \< s | % 7 + s1 | % 8 + + % Verse + + s4_\mf s2. | % 9 + s1*8 | % 10-17 + s2. s8 s_\fp | % 18 + s4 \< s2. | % 19 + + % Chorus + + s4_\f s2. | % 20 + s1*5 | % 21-25 + s4_\fp s2. | % 26 + s8 \< s2.. | % 27 + s4_\f s2. | % 28 + s1*21 | % 29-49 + + s4_\fp s2. | % 50 + s8 \< s2. s8 \! | % 51 + s1*9 | % 52-60 + s4_\markup { \italic { rit. } } s2. | % 61 + s1*3 | % 62-64 + s2 s4_\markup { \italic { rit. } } s | % 65 +%} +} + + +\score +{ + << + \Global % The "roadmap" that everything else depends on + + \context Staff + << + \new Voice = "lead" \LeadVox + \new Voice \Riffs + \new Lyrics \lyricsto "lead" \LeadVoxText + \new Lyrics \lyricsto "vc" \DescantText + >> + + \new ChoirStaff + << + \new ChordNames \Chords +%Capo 3 edition +% \new ChordNames \transpose f d \Chords + \new RhythmicStaff << \Rhythm \Dynamics >> + >> + + \set Score.skipBars = ##t + \set Score.melismaBusyProperties = #'() + >> +} + + +\paper +{ + #(define fonts (make-pango-font-tree + "Times New Roman" + "DomCasual BT" + "Luxi Mono" + (/ staffSize 20))) + +% Don't spread staves vertically across last page (default: t) +% ragged-last-bottom = ##f +% Don't spread staves vertically across the page (default: f) +% ragged-bottom = ##t +% Allow partial line for last stave (default: f) + ragged-last = ##t + +% To find out what's eating the space at the top... +% annotate-spacing = ##t +%let's try this: [It works! Huzzah!] + obsolete-page-top-space = 0 top-system-spacing #'basic-distance = #(/ obsolete-page-top-space staff-space) +} diff --git a/do-you-know.ly b/do-you-know.ly new file mode 100755 index 0000000..6ae20a7 --- /dev/null +++ b/do-you-know.ly @@ -0,0 +1,371 @@ +\version "2.16.0" +\include "pop-chords.ly" +\include "english.ly" + +% Good sizes are 16, 18, & 20 +staffSize = #16 +#(set-default-paper-size "letter") +#(set-global-staff-size staffSize) +#(ly:set-option (quote no-point-and-click)) + +%{ Some useful characters: ‘ ’ “ ” – — † ‡ • … %} + +\header +{ +%Let's bump up the title size and switch to the chord font. :-) + + title = \markup { \override #'(font-family . sans) \fontsize #3.5 "Do You Know" } +% composer = \markup { \override #'(font-family . sans) \fontsize #1.3 "Traditional" } + arranger = \markup { \override #'(font-family . sans) \fontsize #1.3 "arr. Ed Smart" } + tagline = $(string-append "Engraved by JLH and Lilypond " (lilypond-version)) +} + + +% +% Lead vocal +% + +LeadVox = \relative c' +{ +% \set Voice.autoBeaming = ##f +% \set Staff.instrument = #"Lead vox" + \clef G + \key a \major + \override Staff.TimeSignature #'style = #'() + \time 4/4 +\override Score.SpacingSpanner #'average-spacing-wishes = ##f + + % Intro + + R1^\markup { \italic { Light ballad } } | % 1 + R1 | % 2 + R1 | % 3 + r2 r4. cs16 [ d ] | % 4 + + \repeat volta 4 + { + % Verse + +\once \override Score.RehearsalMark #'self-alignment-X = #left +\mark \markup { \override #'(font-family . sans) { \box { A } } \small \italic { Solo 3rd time } } + + e8 [ e e fs ] ~ fs4 fs | % 5 + e4 d cs r8 cs16 [ d ] | % 6 +%\break + e8 [ e e fs ] ~ fs4 fs | % 7 + e4 b' a r8 a16 [ b ] | % 8 + cs2 b4 r8 b16 [ cs ] | % 9 + d4. cs8 cs4 r8 a16 [ gs ] | % 10 + fs8 [ gs a a ] ~ a4 b | % 11 + cs4 gs a2 \bar "||" % 12 + + % Refrain + + \time 2/4 + +\mark \markup { \musicglyph #"scripts.segno" } + + r4^\markup { \hspace #0.0 \raise #1.0 \italic { end solo } } a8 [ b ] \bar "||" % 13 + + \time 4/4 + +\once \override Score.RehearsalMark #'self-alignment-X = #left +\mark \markup { \override #'(font-family . sans) { \box { B } } \small \italic { No groove on D.S. } } + + cs2 b4 b8 [ cs ] | % 14 + d2 cs4 r8 e, | % 15 + fs8 [ gs a cs ] ~ cs [ a ] a4 | % 16 + fs8 [ gs a cs ] ~ cs [ a ] a4 | % 17 +%\break + fs8 [ gs a cs ] ~ cs [ a ] a4 | % 18 + } + \alternative + { + { + \time 2/4 + + b8 [ cs ] gs8. ([ a16 ]) | % 19 + + \time 4/4 + + a2 r | % 20 + r2 r4. cs,16 [ d ] | % 21 + } + { + b'8 [ cs ] gs8. ([ a16 ]) a2^\markup { \hspace #1.8 \raise #0.6 { D.S. } } \bar "||" % 22 + } + { + b8 [ cs ] gs8. ([ a16 ]) a2-\fermata \bar "|." | % 23 + } + } +} + +LeadVoxText = \lyricmode +{ + Do you know what the blood _ has done for me, + Do you know what the blood _ has done for me? + It has cleansed me, it has set me free + Do you know what the blood _ has done for me? + + Thank you Je -- sus, thank you Sa -- vior + for com -- ing and wash -- _ ing me + com -- ing and cleans -- _ ing me + com -- ing and set -- _ ting me set -- ting me __ _ free. + + Do you + + set -- ting me __ _ free + + set -- ting me __ _ free. +} + + +% +% Riff/rhythm figures +% + +StaffRiffs = \relative c' +{ +% \set Voice.autoBeaming = ##f +% \set Staff.instrument = #"Rhythm" + \key a \major + \override Staff.TimeSignature #'style = #'() + \time 4/4 + + % Intro + + 8 [ a, a, ] [ a, a, ] | % 1 + 8 [ a, a, ] [ a, a, ] | % 2 + 8 [ a, a, ] [ a, a, ] | % 3 + 8 [ a, a, ] [ a, a, ] | % 4 +\stopStaff + + s1*7 | % 5 - 12 + \time 2/4 + s2 | % 13 + \time 4/4 + s1*6 | % 14 - 18 + \time 2/4 + s2 | % 19 + \time 4/4 + +\startStaff + 8 [ a, a, ] [ a, a, ] | % 20 + 8 [ a, a, ] [ a, a, ] | % 21 +\stopStaff +} + + +% +% Chord names +% + +Chords = \chordmode +{ +% Bah, can't we set this globally? +% \popChords + + % Intro + + a1:sus2 | % 1 + d1:6.9 | % 2 + a1:sus2 | % 3 + d2:6.9 e:sus4 | % 4 + + \repeat volta 4 + { + % Verse + + a2 d | % 5 + a4/e e:7 a2 | % 6 + a2 d | % 7 + a4/e f:dim7 fs2:m7 | % 8 + a2/e e | % 9 + b2:m7 fs:m7 | % 10 + b2:m7 a/cs | % 11 + d4:maj7 e a2 \bar "||" % 12 + + % Refrain + + \time 2/4 + + e2/gs \bar "||" % 13 + + \time 4/4 + + fs2:m7 e | % 14 + b2:m7 fs:m7 | % 15 + d4. a8/cs s2 | % 16 + b4.:m7 fs8:m7 s2 | % 17 + d4. a8/cs s2 | % 18 + } + \alternative + { + { + \time 2/4 + + b4:m7 e | % 19 + + \time 4/4 + + a1:sus2 | % 20 + d2:6.9 e:sus4 | % 21 + } + { + b4:m7 e a2 \bar "||" % 22 + } + { + b4:m7 e a2 \bar "|." | % 23 + } + } +} + + +% +% Chord rhythms +% + +% Use a RhythmicStaff on the chords instead of this? +% It almost works, but not quite. Doesn't collapse chords above to single notes... + +StaffC = \relative c +{ +% \set Voice.autoBeaming = ##f +% \set Staff.instrument = #"Rhythm" + \override Staff.TimeSignature #'style = #'() + \time 4/4 + \override NoteHead #'style = #'slash + + % Intro + + c4 c c c | % 1 + c4 c c c | % 2 + c4 c c c | % 3 + c4 c c c | % 4 + + \repeat volta 4 + { + % Verse + + c4 c c c | % 5 + c4 c c c | % 6 + c4 c c c | % 7 + c4 c c c | % 8 + c4 c c c | % 9 + c4 c c c | % 10 + c4 c c c | % 11 + c4 c c c \bar "||" % 12 + + % Refrain + + \time 2/4 + + c4 c \bar "||" % 13 + + \time 4/4 + + c4 c c c | % 14 + c4 c c c | % 15 + c4. c8 ~ c2 | % 16 + c4. c8 ~ c2 | % 17 + c4. c8 ~ c2 | % 18 + } + \alternative + { + { + \time 2/4 + + c4 c | % 19 + + \time 4/4 + + c4 c c c | % 20 + c4 c c c | % 21 + } + { + c4 c c c \bar "||" % 22 + } + { + c4-\markup { \italic { rit. } } c c2-\fermata \bar "|." | % 23 + } + } +} + + +\score +{ + << + << + \new Staff = leadStaff { \new Voice = "lead" \LeadVox } + \new Lyrics \lyricsto "lead" \LeadVoxText + >> + + \new Staff \with + { + \remove "Time_signature_engraver" + \remove "Clef_engraver" +%Hmm, removing this screws up the formatting... +% \remove "Key_engraver" + fontSize = #-3.0 + \override StaffSymbol #'staff-space = #(magstep -3.0) + } + \StaffRiffs + + \new ChoirStaff = "Rhythm" + << + \new ChordNames = "chords" \Chords + \new RhythmicStaff = "chordRhythm" \StaffC + >> + + \set Score.melismaBusyProperties = #'() + >> + + \layout + { +% \context { \Staff \RemoveEmptyStaves } +% ragged-last-bottom = ##t +% ragged-last = ##t + + \context + { + \Score + \remove "Timing_translator" + \remove "Default_bar_line_engraver" + \remove "Repeat_acknowledge_engraver" + } + \context + { +% \Staff + \Staff \RemoveEmptyStaves + \consists "Timing_translator" + \consists "Default_bar_line_engraver" + \consists "Repeat_acknowledge_engraver" + } + \context + { + \RhythmicStaff + \consists "Timing_translator" + \consists "Default_bar_line_engraver" + \consists "Repeat_acknowledge_engraver" + } +%{ + \context + { + \ChordNames + \consists "Timing_translator" + \consists "Default_bar_line_engraver" + \consists "Repeat_acknowledge_engraver" + } +%} + } +} + + +\paper +{ + #(define fonts (make-pango-font-tree + "Times New Roman" + "DomCasual BT" + "Luxi Mono" + (/ staffSize 20))) +} diff --git a/doxology-v2.ly b/doxology-v2.ly new file mode 100644 index 0000000..dd18485 --- /dev/null +++ b/doxology-v2.ly @@ -0,0 +1,271 @@ +\version "2.16.0" +\include "pop-chords.ly" +\include "english.ly" + +% Good sizes are 16, 18, & 20 +staffSize = #20 +#(set-default-paper-size "letter") +#(set-global-staff-size staffSize) +#(ly:set-option (quote no-point-and-click)) + +%{ Some useful characters: ‘ ’ “ ” – — † ‡ • … %} + +\header +{ + title = \markup { \override #'(font-family . sans) \fontsize #3.5 "Doxology" } + subtitle = \markup { \override #'(font-family . sans) \fontsize #1.3 "Genevan Psalter, 1551" } + composer = \markup { \override #'(font-family . sans) \fontsize #1.3 "Old 100th" } + arranger = \markup { \override #'(font-family . sans) \fontsize #1.3 "arr. Louis Bourgeois" } + tagline = $(string-append "Engraved by JLH and Lilypond " (lilypond-version)) +} + + +% +% Lead vocal +% + +LeadVox = \relative c'' +{ + \set Staff.instrumentName = #"Sop." + \clef G + \key g \major + \override Staff.TimeSignature #'style = #'() + \time 4/4 +%\override Score.SpacingSpanner #'average-spacing-wishes = ##f + + % Verse + + \partial 4*1 g4 | % 0 + g4 fs e d | % 1 + g4 a b b | % 2 + + b4 b a g | % 3 + c4 b a g | % 4 + + a4 b a g | % 5 + d4 fs g d' | % 6 + + b4 g a c | % 7 + b4 a g2-\fermata \bar "||" % 8 + + g2-\fermata g-\fermata \bar "|." % 9 +} + +AltoVox = \relative c' +{ + \set Staff.instrumentName = #"Alto" + \clef G + \key g \major + \override Staff.TimeSignature #'style = #'() + \time 4/4 +%\override Score.SpacingSpanner #'average-spacing-wishes = ##f + + % Verse + + \partial 4*1 d4 | % 0 + d4 d b b | % 1 + b4 d d d | % 2 + + d4 g fs g | % 3 + g4 g fs e | % 4 + + fs4 g fs d | % 5 + e4 d d d | % 6 + + d4 g fs e8 fs | % 7 + g4 fs g2-\fermata \bar "||" % 8 + + e2-\fermata d-\fermata \bar "|." % 9 +} + +TenorVox = \relative c' +{ + \set Staff.instrumentName = #"Tenor" + \clef F + \key g \major + \override Staff.TimeSignature #'style = #'() + \time 4/4 +%\override Score.SpacingSpanner #'average-spacing-wishes = ##f + + % Verse + + \partial 4*1 b4 | % 0 + b4 a g fs | % 1 + g4 fs g g | % 2 + + b4 d d8 c b4 | % 3 + e4 d d b | % 4 + + d4 d d d | % 5 + c8 b a4 b b | % 6 + + g4 b d e | % 7 + d4 d8 c b2-\fermata \bar "||" % 8 + + c2-\fermata b-\fermata \bar "|." % 9 +} + +BassVox = \relative c' +{ + \set Staff.instrumentName = #"Bass" + \clef F + \key g \major + \override Staff.TimeSignature #'style = #'() + \time 4/4 +%\override Score.SpacingSpanner #'average-spacing-wishes = ##f + + % Verse + + \partial 4*1 g4 | % 0 + g4 d e b | % 1 + e4 d g, g' | % 2 + + g4 g d e | % 3 + c4 g d' e | % 4 + + d4 g d b | % 5 + c4 d g, g' | % 6 + + g4 e d a | % 7 + b8 c d4 g,2-\fermata \bar "||" % 8 + + c2-\fermata g-\fermata \bar "|." % 9 +} + +LeadVoxText = \lyricmode +{ + Praise God from whom all bles -- sings flow; + Praise Him all crea -- tures here be -- low; + Praise Him a -- bove ye heaven -- ly host; + Praise Fa -- ther, Son, and Ho -- ly Ghost. + A -- men. +} + + +% +% Chord names +% + +Chords = \chordmode +{ +% \override SeparatingGroupSpanner #'padding = #'2.0 +%Bah, can't we set this globally? +% \popChords + + \partial 4*1 g4 | % 0 + \time 6/4 s4 d e2.:m d4 | % 1 + \time 4/4 g2. g4 | % 2 + + \time 6/4 b2:7 e:m c4 g | % 3 + \time 4/4 d2. e4:m | % 4 + + \time 6/4 d4 g2. c4 b:7 | % 5 + \time 4/4 e2.:m d4 | % 6 + + \time 6/4 g2 d4 a:m g d | % 7 + \time 4/4 g1 | % 8 + + c2 g | % 9 +} + + +% +% Chord rhythms +% + +% Use a RhythmicStaff on the chords instead of this? +% It almost works, but not quite. Doesn't collapse chords above to single notes... + +%Slash = { \override NoteHead #'style = #'slash } +%Cross = { \override NoteHead #'style = #'cross } + +StaffC = \relative c +{ + \override Staff.TimeSignature #'style = #'() + \time 4/4 + \override NoteHead #'style = #'slash + + % Verse + + \partial 4*1 c4 | % 0 + \time 6/4 c4 c c c c c | % 1 + \time 4/4 c2. c4 | % 2 + + \time 6/4 c4 c c c c c | % 3 + \time 4/4 c2. c4 | % 4 + + \time 6/4 c4 c c c c c | % 5 + \time 4/4 c2. c4 | % 6 + + \time 6/4 c4 c c c c c | % 7 + \time 4/4 c1 | % 8 + + c2-\fermata c-\fermata \bar "|." % 9 +} + + +Dynamics = +{ +%{ + s4_\markup { \italic { snare on 4, bass 8th notes } } s2. | % 1 + s1*26 | % 2-27 + s2 s4 \< s | % 28 + s4_\f s_\markup { \hspace #0.0 \raise #-2.0 \italic { snare 2 & 4 } } s2 | % 29 + s1*8 | % 30-37 + s2 s4 \< s \! | % 38 + s1 | % 39 + s2. s8 \> s \! | % 40 + s4_\markup { \hspace #0.0 \raise #-2.0 \italic { bass 8th notes, band builds each repeat } } s2. | % 41 + s1*8 | % 42-49 + s4 \< s2. | % 50 + s4_\f s2. | % 51 + s1*5 | % 52-56 + s4_\markup { \hspace #0.0 \raise #-2.0 \italic { rit. last time } } s2. | % 57 + s2 s4 \< s \! | % 58 +%} +} + + +\score +{ + << + \new ChoirStaff = "Rhythm" +% << +% \new ChordNames = "chords" \Chords +% \new RhythmicStaff = "chordRhythm" << \StaffC \Dynamics >> +% >> + + << + \new Staff = UpperStaffA { \new Voice = "lead" \LeadVox } + \new Lyrics \lyricsto "lead" \LeadVoxText + \new Staff = UpperStaffB { \new Voice = "alto" \AltoVox } + \new Staff = LowerStaffA { \new Voice = "tenor" \TenorVox } + \new Staff = LowerStaffB { \new Voice = "bass" \BassVox } + >> + + \set Score.skipBars = ##t + \set Score.melismaBusyProperties = #'() + >> +} + + +\paper +{ + #(define fonts (make-pango-font-tree + "Times New Roman" + "DomCasual BT" + "Luxi Mono" + (/ staffSize 20))) + +% Spread staves vertically across last page (default: t) + ragged-last-bottom = ##f +% Don't spread staves vertically across the page (default: f) +% ragged-bottom = ##t +% Allow partial line for last stave (default: f) + ragged-last = ##t + +% To find out what's eating the space at the top... +% annotate-spacing = ##t +%let's try this: [It works! Huzzah!] + obsolete-page-top-space = 0 top-system-spacing #'basic-distance = #(/ obsolete-page-top-space staff-space) +} diff --git a/doxology.ly b/doxology.ly new file mode 100644 index 0000000..e93b2ca --- /dev/null +++ b/doxology.ly @@ -0,0 +1,270 @@ +\version "2.16.0" +\include "pop-chords.ly" +\include "english.ly" + +% Good sizes are 16, 18, & 20 +staffSize = #20 +#(set-default-paper-size "letter") +#(set-global-staff-size staffSize) +#(ly:set-option (quote no-point-and-click)) + +%{ Some useful characters: ‘ ’ “ ” – — † ‡ • … %} + +\header +{ + title = \markup { \override #'(font-family . sans) \fontsize #3.5 "Doxology" } + composer = \markup { \override #'(font-family . sans) \fontsize #1.3 "Old 100th" } + arranger = \markup { \override #'(font-family . sans) \fontsize #1.3 "arr. S. Hammons" } + tagline = $(string-append "Engraved by JLH and Lilypond " (lilypond-version)) +} + + +% +% Lead vocal +% + +LeadVox = \relative c'' +{ + \set Staff.instrumentName = #"Sop." + \clef G + \key g \major + \override Staff.TimeSignature #'style = #'() + \time 4/4 +%\override Score.SpacingSpanner #'average-spacing-wishes = ##f + + % Verse + + \partial 4*1 g4 | % 0 + \time 6/4 g4 fs e d g a | % 1 + \time 4/4 b2. b4 | % 2 + + \time 6/4 b4 b a g c b | % 3 + \time 4/4 a2. g4 | % 4 + + \time 6/4 a4 b a g d fs | % 5 + \time 4/4 g2. d'4 | % 6 + + \time 6/4 b4 g a c b a | % 7 + \time 4/4 g1 | % 8 + + g2-\fermata g-\fermata \bar "|." % 9 +} + +AltoVox = \relative c' +{ + \set Staff.instrumentName = #"Alto" + \clef G + \key g \major + \override Staff.TimeSignature #'style = #'() + \time 4/4 +%\override Score.SpacingSpanner #'average-spacing-wishes = ##f + + % Verse + + \partial 4*1 d4 | % 0 + \time 6/4 d4 d b b b d | % 1 + \time 4/4 d2. d4 | % 2 + + \time 6/4 ds4 e fs g g g | % 3 + \time 4/4 fs2. e4 | % 4 + + \time 6/4 d4 d d d e ds | % 5 + \time 4/4 e2. d4 | % 6 + + \time 6/4 d4 e fs e8 fs g4 fs | % 7 + \time 4/4 g1 | % 8 + + e2-\fermata d-\fermata \bar "|." % 9 +} + +TenorVox = \relative c' +{ + \set Staff.instrumentName = #"Tenor" + \clef F + \key g \major + \override Staff.TimeSignature #'style = #'() + \time 4/4 +%\override Score.SpacingSpanner #'average-spacing-wishes = ##f + + % Verse + + \partial 4*1 b4 | % 0 + \time 6/4 b4 a g fs g fs | % 1 + \time 4/4 g2. g4 | % 2 + + \time 6/4 a4 g b b e d | % 3 + \time 4/4 d2. b4 | % 4 + + \time 6/4 a4 g fs g g b | % 5 + \time 4/4 b2. a4 | % 6 + + \time 6/4 g4 b d e d d8 c | % 7 + \time 4/4 b1 | % 8 + + c2-\fermata b-\fermata \bar "|." % 9 +} + +BassVox = \relative c +{ + \set Staff.instrumentName = #"Bass" + \clef F + \key g \major + \override Staff.TimeSignature #'style = #'() + \time 4/4 +%\override Score.SpacingSpanner #'average-spacing-wishes = ##f + + % Verse + + \partial 4*1 g4 | % 0 + \time 6/4 g'4 d e b e d | % 1 + \time 4/4 g,2. g'4 | % 2 + + \time 6/4 fs4 e ds e c g | % 3 + \time 4/4 d'2. e4 | % 4 + + \time 6/4 fs4 g d b c b | % 5 + \time 4/4 e2. fs4 | % 6 + + \time 6/4 g4 e d a b8 c d4 | % 7 + \time 4/4 g1 | % 8 + + c,2-\fermata g-\fermata \bar "|." % 9 +} + +LeadVoxText = \lyricmode +{ + Praise God from whom all bles -- sings flow; + Praise Him all crea -- tures here be -- low; + Praise Him a -- bove ye heaven -- ly host; + Praise Fa -- ther, Son, and Ho -- ly Ghost. + A -- men. +} + + +% +% Chord names +% + +Chords = \chordmode +{ +% \override SeparatingGroupSpanner #'padding = #'2.0 +%Bah, can't we set this globally? +% \popChords + + \partial 4*1 g4 | % 0 + \time 6/4 s4 d e2.:m d4 | % 1 + \time 4/4 g2. g4 | % 2 + + \time 6/4 b2:7 e:m c4 g | % 3 + \time 4/4 d2. e4:m | % 4 + + \time 6/4 d4 g2. c4 b:7 | % 5 + \time 4/4 e2.:m d4 | % 6 + + \time 6/4 g2 d4 a:m g d | % 7 + \time 4/4 g1 | % 8 + + c2 g | % 9 +} + + +% +% Chord rhythms +% + +% Use a RhythmicStaff on the chords instead of this? +% It almost works, but not quite. Doesn't collapse chords above to single notes... + +%Slash = { \override NoteHead #'style = #'slash } +%Cross = { \override NoteHead #'style = #'cross } + +StaffC = \relative c +{ + \override Staff.TimeSignature #'style = #'() + \time 4/4 + \override NoteHead #'style = #'slash + + % Verse + + \partial 4*1 c4 | % 0 + \time 6/4 c4 c c c c c | % 1 + \time 4/4 c2. c4 | % 2 + + \time 6/4 c4 c c c c c | % 3 + \time 4/4 c2. c4 | % 4 + + \time 6/4 c4 c c c c c | % 5 + \time 4/4 c2. c4 | % 6 + + \time 6/4 c4 c c c c c | % 7 + \time 4/4 c1 | % 8 + + c2-\fermata c-\fermata \bar "|." % 9 +} + + +Dynamics = +{ +%{ + s4_\markup { \italic { snare on 4, bass 8th notes } } s2. | % 1 + s1*26 | % 2-27 + s2 s4 \< s | % 28 + s4_\f s_\markup { \hspace #0.0 \raise #-2.0 \italic { snare 2 & 4 } } s2 | % 29 + s1*8 | % 30-37 + s2 s4 \< s \! | % 38 + s1 | % 39 + s2. s8 \> s \! | % 40 + s4_\markup { \hspace #0.0 \raise #-2.0 \italic { bass 8th notes, band builds each repeat } } s2. | % 41 + s1*8 | % 42-49 + s4 \< s2. | % 50 + s4_\f s2. | % 51 + s1*5 | % 52-56 + s4_\markup { \hspace #0.0 \raise #-2.0 \italic { rit. last time } } s2. | % 57 + s2 s4 \< s \! | % 58 +%} +} + + +\score +{ + << + \new ChoirStaff = "Rhythm" + << + \new ChordNames = "chords" \Chords + \new RhythmicStaff = "chordRhythm" << \StaffC \Dynamics >> + >> + + << + \new Staff = UpperStaffA { \new Voice = "lead" \LeadVox } + \new Lyrics \lyricsto "lead" \LeadVoxText + \new Staff = UpperStaffB { \new Voice = "alto" \AltoVox } + \new Staff = LowerStaffA { \new Voice = "tenor" \TenorVox } + \new Staff = LowerStaffB { \new Voice = "bass" \BassVox } + >> + + \set Score.skipBars = ##t + \set Score.melismaBusyProperties = #'() + >> +} + + +\paper +{ + #(define fonts (make-pango-font-tree + "Times New Roman" + "DomCasual BT" + "Luxi Mono" + (/ staffSize 20))) + +% Spread staves vertically across last page (default: t) + ragged-last-bottom = ##f +% Don't spread staves vertically across the page (default: f) +% ragged-bottom = ##t +% Allow partial line for last stave (default: f) + ragged-last = ##t + +% To find out what's eating the space at the top... +% annotate-spacing = ##t +%let's try this: [It works! Huzzah!] + obsolete-page-top-space = 0 top-system-spacing #'basic-distance = #(/ obsolete-page-top-space staff-space) +} diff --git a/fall-on-me.ly b/fall-on-me.ly new file mode 100755 index 0000000..7fea863 --- /dev/null +++ b/fall-on-me.ly @@ -0,0 +1,527 @@ +\version "2.16.0" +\include "pop-chords.ly" +\include "english.ly" + +% Good sizes are 16, 18, & 20 +staffSize = #18 +#(set-default-paper-size "letter") +#(set-global-staff-size staffSize) +#(ly:set-option (quote no-point-and-click)) + +%{ Some useful characters: ‘ ’ “ ” – — † ‡ • … %} + +\header +{ +%Let's bump up the title size and switch to the chord font. :-) + + title = \markup { \override #'(font-family . sans) \fontsize #3.5 "Fall On Me" } +% composer = \markup { \override #'(font-family . sans) \fontsize #1.3 "" } + arranger = \markup { \override #'(font-family . sans) \fontsize #1.3 "arr. Ed Smart" } + tagline = $(string-append "Engraved by JLH and Lilypond " (lilypond-version)) +} + +% Useful tweak abbreviations (hn = harmony note) + +hn = #(define-music-function (parser location arg) (ly:music?) +;; Harmony Note: Set the tweaks property of the passed in note to use a smaller font + + (set! (ly:music-property arg 'tweaks) + (acons 'font-size -3.5 (ly:music-property arg 'tweaks))) arg) + + +% +% Song's structure +% +Global = +{ + \key e \major + \override Staff.TimeSignature #'style = #'() + \time 4/4 + + % Intro + + \repeat volta 2 + { + s1*4 | % 1-4 + } + +% \once \override TextScript #'padding = #2.0 +% s1*0^\markup { \large \bold { Moderately fast pop } } +%%Capo 3 version +%% s1*0^\markup { \large \bold { Moderately fast pop "(*** CAPO 3 ***)" } } +% s1*13 \bar "||:" % 1-13 + + % A section + + \mark \markup { \override #'(font-family . sans) { \box { A } } } + + s1*20 | % 5-24 + + \repeat volta 2 + { + % A Section + + \mark \markup { \override #'(font-family . sans) { \box { B } } } + + s1*16 | % 25-40 +\once \override Score.RehearsalMark #'self-alignment-X = #left +\mark \markup { \musicglyph #"scripts.coda" \italic { to Coda } } + s1*2 \bar "||" % 41-42 + + % B section + + \mark \markup { \override #'(font-family . sans) { \box { C } } } + + s1*16 | % 43-58 + } + + % Coda + + % blank measure between last measure and coda +% \stopStaff s1 \bar "" \startStaff % That removed the spurious floating bar line from line break + \stopStaff s1 \startStaff % That removed the spurious floating bar line from line break +% \break % Meh + \set Score.currentBarNumber = #59 + + \once \override Score.RehearsalMark #'self-alignment-X = #left + \mark \markup { { \musicglyph #"scripts.coda" } "Coda" } + + \repeat volta 2 + { +% \mark \markup { \override #'(font-family . sans) { \box { D } } } + + s1*4 | % 59-62 + } + + s1 \bar "|." % 63 +} + + +% +% Lead vocal +% +LeadVox = \relative c' +{ + \clef G + \override Score.SpacingSpanner #'average-spacing-wishes = ##f + + % Intro + + s1*3 | % 1-3 + s2. e8 fs | % 4 + + % A section + + 8 ~ 2 r4 | % 5 + 4. ( 8 ) ~ 2 | % 6 + r2 4 << { \voiceOne gs8 ( fs ) } \new Voice = "v" { \voiceTwo \once \override NoteHead #'font-size = #-3.5 a,4 } >> \oneVoice | % 7 +%disnowok r2 4 << { \voiceOne gs8 ( fs ) } \new Voice = "v" { \voiceTwo \hn a,4 } >> \oneVoice | % +%Also, the << \\ >> notation doesn't track lyrics correctly... Grrrrrrrrrrrrrr + 2. 8 | % 8 + 8 ~ 2 r4 | % 9 + 4. ( 8 ) ~ 2 | % 10 + r2 4 << { \voiceOne gs8 ( fs ) } \new Voice = "v" { \voiceTwo \once \override NoteHead #'font-size = #-3.5 a,4 } >> \oneVoice | % 11 + 2 r4 8 ( | % 12 + + 8 ) ~ 2. | % 13 + r2 r4 8 ( | % 14 + 8 ) ~ 2. | % 15 + r2 r4 8 ( | % 16 + 8 ) ~ 2. | % 17 + r2 r4 gs8 fs | % 18 + e2. e8 fs ~ | % 19 + fs1 | % 20 + + e1 | % 21 + r1 | % 22 + r1 | % 23 + r2 r4 8 | % 24 + + % A section + + 8 ~ 2 r4 | % 25 + 4. ( 8 ) ~ 2 | % 26 + r2 4 << { \voiceOne gs8 ( fs ) } \new Voice = "v" { \voiceTwo \once \override NoteHead #'font-size = #-3.5 a,4 } >> \oneVoice | % 27 +%disnowok r2 4 << { \voiceOne gs8 ( fs ) } \new Voice = "v" { \voiceTwo \hn a,4 } >> \oneVoice | % +%Also, the << \\ >> notation doesn't track lyrics correctly... Grrrrrrrrrrrrrr + 2. 8 | % 28 + 8 ~ 2 r4 | % 29 + 4. ( 8 ) ~ 2 | % 30 + r2 4 << { \voiceOne gs8 ( fs ) } \new Voice = "v" { \voiceTwo \once \override NoteHead #'font-size = #-3.5 a,4 } >> \oneVoice | % 31 + 2 r4 8 ( | % 32 + + 8 ) ~ 2. | % 33 + r2 r4 8 ( | % 34 + 8 ) ~ 2. | % 35 + r2 r4 8 ( | % 36 + 8 ) ~ 2. | % 37 + r2 r4 gs8 fs | % 38 + e2. e8 fs ~ | % 49 + fs1 | % 40 + + e1 | % 41 + r1 | % 42 + + % B section + + r2 gs8. fs16 ~ fs e e8 ~ | % 43 + e1 | % 44 + r2 \times 2/3 { b'4 a gs } | % 45 + a8 gs4 e8 ~ e2 | % 46 + r4 e8 e a gs fs fs ~ | % 47 + fs8 gs ~ gs4 r b,8 gs' ~ | % 48 + gs8 fs ~ fs2. | % 49 + r1 | % 50 + + r2 8. 16 ~ 8 ~ | % 51 + 1 | % 52 + r4 r8 8 4. 16 | % 53 + 8 2. | % 54 + r4 r8 16 4. 16 | % 55 + 8 ~ 4 r b,8 ~ | % 56 + 8 ~ ( 2. | % 57 + 2 ) r4 8 | % 58 + + % Coda + + s1 + + e1 | % 59 + r1 | % 60 + r1 | % 61 + r1 | % 62 + + r1 | % 63 +} + +LeadVoxText = \lyricmode +{ + Ho -- ly Spi -- rit, _ fall, _ _ + fall on _ me, + Ho -- ly Spi -- rit, _ fall, _ _ + fall on _ me. + + On my _ hands, _ on my _ feet, _ + on my _ heart, _ ev’ -- ry part + of me, _ fall. + + Ho -- ly Spi -- rit, _ fall, _ _ + fall on _ me, + Ho -- ly Spi -- rit, _ fall, _ _ + fall on _ me. + + On my _ hands, _ on my _ feet, _ + on my _ heart, _ ev’ -- ry part + of me, _ fall. + + Spi -- rit _ of peace, _ + sent by the Fa -- ther’s hand, _ + Change my life with your pre -- _ sence, _ + make me _ whole. _ + + Pour o -- _ ver me, _ + like rain on a thirs -- ty land, + Make a stream in the de -- sert _ + of my _ soul. __ _ _ + + Ho -- ly + + fall. +} + + +% +% Riffs +% +Riffs = \relative c' +{ + % Intro + + \tiny + r8 b e fs ~ fs e ~ e4 | % 1 + r8 b e fs ~ fs e ~ e4 | % 2 + r8 a, e' fs ~ fs e ~ e4 | % 3 + r8 b e fs ~ fs4 s | % 4 + +%{ + % Intro + + \tiny + R1 | % 1 + R1 | % 2 + R1 | % 3 + R1 | % 4 + + c8 ( f ) ~ f2. | % 5 + e2 ~ e8 a4. | % 6 + d,1 ( | % 7 + c1 ) | % 8 + bf4 ( df2. ) | % 9 + df4 ( e2. ) | % 10 + ef1 | % 11 + d8 ef4 f8 ~ f4 bf-. | % 12 + d,2 s2 | % 13 + + s1*36 | % 14-49 + s2 | % 50 + s1*32 | % 51-82 + r8 df df df df ( c ) bf4 | % 83 + R1*8 | % 84-91 + \normalsize +%} +} + + +% +% Chord names +% +Chords = \chordmode +{ +%Bah, can't we set this globally? +% \popChords + + % Intro + + e1:sus2 | % 1 + cs1:m11 | % 2 + fs1:m7 | % 3 + b1:sus4.7 | % 4 + + % A section + + e1:sus2 | % 5 + cs1:m11 | % 6 + fs1:m7 | % 7 + b1:sus4.7 | % 8 + e1:sus2 | % 9 + cs1:m11 | % 10 + fs1:m7 | % 11 + b1:sus4.7 | % 12 + + gs1:m7 | % 13 + cs1:m7 | % 14 + fs1:m7 | % 15 + c1:dim7 | % 16 + cs1:m7 | % 17 + fs2:sus4 fs | % 18 + fs2:m7 e:sus2/gs | % 19 + a2:6 b:sus4 | % 20 + + e1:sus2 | % 21 + cs1:m11 | % 22 + fs1:m7 | % 23 + b1:sus4.7 | % 24 + + % A section + + e1:sus2 | % 25 + cs1:m11 | % 26 + fs1:m7 | % 27 + b1:sus4.7 | % 28 + e1:sus2 | % 29 + cs1:m11 | % 30 + fs1:m7 | % 31 + b1:sus4.7 | % 32 + + gs1:m7 | % 33 + cs1:m7 | % 34 + fs1:m7 | % 35 + c1:dim7 | % 36 + cs1:m7 | % 37 + fs2:sus4 fs | % 38 + fs2:m7 e:sus2/gs | % 39 + a2:6 b:sus4 | % 40 + + e1:sus2 | % 41 + s1 | % 42 + + % B section + + a1:maj7 | % 43 + e1:sus2/gs | % 44 + d1:sus2 | % 45 + a1/cs | % 46 + a1:m6/c | % 47 + e1:sus2/b | % 48 + b1:sus4 | % 49 + b1 | % 50 + + a1:maj7 | % 51 + e1:sus2/gs | % 52 + d1:sus2 | % 53 + a1/cs | % 54 + a1:m6/c | % 55 + e1/b | % 56 + b1:sus4 | % 57 + b1 | % 58 + + % Coda + + s1 + + e1:sus2 | % 59 + cs1:m11 | % 60 + fs1:m7 | % 61 + b1:sus4.7 | % 62 + + e1:sus2 | % 63 +} + + +% +% Chord rhythms +% + +% Use a RhythmicStaff on the chords instead of this? +% It almost works, but not quite. Doesn't collapse chords above to single notes... + +Rhythm = +{ + \override Staff.TimeSignature #'style = #'() + \override NoteHead #'style = #'slash + + % Intro + + c4 c c c | % 1 + c4 c c c | % 2 + c4 c c c | % 3 + c4 c c c | % 4 + + % A section + + c4 c c c | % 5 + c4 c c c | % 6 + c4 c c c | % 7 + c4 c c c | % 8 + c4 c c c | % 9 + c4 c c c | % 10 + c4 c c c | % 11 + c4 c c c | % 12 + + c4 c c c | % 13 + c4 c c c | % 14 + c4 c c c | % 15 + c4 c c c | % 16 + c4 c c c | % 17 + c4 c c c | % 18 + c4 c c c | % 19 + c4 c c c | % 20 + + c4 c c c | % 21 + c4 c c c | % 22 + c4 c c c | % 23 + c4 c c c | % 24 + + % A section + + c4 c c c | % 25 + c4 c c c | % 26 + c4 c c c | % 27 + c4 c c c | % 28 + c4 c c c | % 29 + c4 c c c | % 30 + c4 c c c | % 31 + c4 c c c | % 32 + + c4 c c c | % 33 + c4 c c c | % 34 + c4 c c c | % 35 + c4 c c c | % 36 + c4 c c c | % 37 + c4 c c c | % 38 + c4 c c c | % 49 + c4 c c c | % 40 + + c4 c c c | % 41 + c4 c c c | % 42 + + % B section + + c4 c c c | % 43 + c4 c c c | % 44 + c4 c c c | % 45 + c4 c c c | % 46 + c4 c c c | % 47 + c4 c c c | % 48 + c4 c c c | % 49 + c4 c c c | % 50 + + c4 c c c | % 51 + c4 c c c | % 52 + c4 c c c | % 53 + c4 c c c | % 54 + c4 c c c | % 55 + c4 c c c | % 56 + c4 c c c | % 57 + c4 c c c | % 58 + + % Coda + +%Hmm, Global didn't affect this... + \stopStaff s1 \startStaff + + c4 c c c | % 59 + c4 c c c | % 60 + c4 c c c | % 61 + c4 c c c | % 62 + + c1-\fermata | % 63 +} + +Dynamics = +{ + s4_\mf s2. | % 1 +%{ + % Intro + s4_\markup { \italic { Ac. gtr only } } s2. | % 1 + + s1*3 | % 2-4 + + s4_\markup { \italic { Band in } } s2. | % 5 +%} +} + + +\score +{ + << + \Global % The "roadmap" that everything else depends on + + \context Staff + << + \context Staff << \new Voice = "lead" \LeadVox \new Voice \Riffs >> + \new Lyrics \lyricsto "lead" \LeadVoxText + >> + + \new ChoirStaff + << + \new ChordNames \Chords +%Capo 3 edition +% \new ChordNames \transpose f d \Chords + \new RhythmicStaff << \Rhythm \Dynamics >> + >> + + \set Score.skipBars = ##t + \set Score.melismaBusyProperties = #'() + >> +} + + +\paper +{ + #(define fonts (make-pango-font-tree + "Times New Roman" + "DomCasual BT" + "Luxi Mono" + (/ staffSize 20))) + +% Spread staves vertically across last page (default: t) +% ragged-last-bottom = ##f +% Don't spread staves vertically across the page (default: f) +% ragged-bottom = ##t + +% To find out what's eating the space at the top... +% annotate-spacing = ##t +%let's try this: [It works! Huzzah!] + obsolete-page-top-space = 0 top-system-spacing #'basic-distance = #(/ obsolete-page-top-space staff-space) +} diff --git a/father's-will.ly b/father's-will.ly new file mode 100644 index 0000000..c085554 --- /dev/null +++ b/father's-will.ly @@ -0,0 +1,424 @@ +\version "2.16.0" +\include "pop-chords.ly" +\include "english.ly" + +% Good sizes are 16, 18, & 20 +staffSize = #16 +#(set-default-paper-size "letter") +#(set-global-staff-size staffSize) +#(ly:set-option (quote no-point-and-click)) + +%{ Some useful characters: ‘ ’ “ ” – — † ‡ • … %} + +\header +{ + title = \markup { \override #'(font-family . sans) \fontsize #3.5 "Father’s Will" } + composer = \markup { \override #'(font-family . sans) \fontsize #1.3 "Scott Dannemiller" } +% arranger = \markup { \override #'(font-family . sans) \fontsize #1.3 "arr. Ed Smart" } + tagline = $(string-append "Engraved by JLH and Lilypond " (lilypond-version)) +} + + +% +% Lead vocal +% + +LeadVox = \relative c'' +{ +% \set Voice.autoBeaming = ##f +% \set Staff.instrument = #"Lead vox" + \clef G + \key g \major + \override Staff.TimeSignature #'style = #'() + \time 4/4 +\override Score.SpacingSpanner #'average-spacing-wishes = ##f + + % Intro + + r1 | % 1 + r1 | % 2 + r1 | % 3 + r1 | % 4 + r1 | % 5 + r1 | % 6 + r1 | % 7 + r1 \bar "||:" % 8 + + \repeat volta 2 + { + % Verse + +\mark \markup { \override #'(font-family . sans) { \box { A } } } + + b16 d b8 ~ b16 a a8 ( g ) r4 e16 g | % 9 + a8 g e g ( e4 ) r | % 10 + b'16 d8 d16 ~ d8 b16 e ~ e d8 b16 ~ b8 \tiny g8 \normalsize | % 11 + a8 a16 b ~ b g e8 ( d4 ) r | % 12 + b'16 b d8 ~ d8 g16 e ( d ) d8 bf16 ( a g ) g8 | % 13 + a16 b8. a8 g16 g ( e4 ) r8 \tiny g16 \normalsize g | % 14 + b16 d8 b16 ~ ( b16 a ) a8 a d,16 b' ~ b b8 a16 ( | % 15 + g4 ) r2 g'16 fs8. \bar "||" % 16 + + % Chorus + +\mark \markup { \override #'(font-family . sans) { \box { B } } } + + e8 d4 b16 ( d b4 ) r8 g16 b | % 17 + a16 g g4 b8 ~ b4 g'16 fs8. | % 18 + e8 d4 bf16 ( a g4 ) r16 g b d | % 19 + e8 d16 d ~ d b b8 ( a4 ) r8 e'16 fs | % 20 + g8 fs16 e ~ e d8 bf16 ( a ) g8. r8 a16 g | % 21 + a8 g4 b8 ~ b4 r8 r16 d, | % 22 + b'8 b a g16 g ~ g4 r8 b16 d | % 23 + e8 d16 b ( a4 ) r b16 b b8 | % 24 + } + \alternative + { + { + a8 g4 g8 ~ g4 r | % 25 + r1 | % 26 + r1 | % 27 + r1 | % 28 + } + { + a8 g4 g8 ~ g4 r8 e'16 fs \bar "||" % 29 + } + } + + % Bridge + +\mark \markup { \override #'(font-family . sans) { \box { C } } } + + g8 ( fs16 ) e ~ e d8 b16 ( ~ b a g8 ) r8 e'16 d | % 30 + d8 d e d16 d ~ ( d e8. ) r8 e16 fs | % 31 + g8 fs16 e ~ e d8 d16 ~ d e8. r16 d e fs | % 32 + g8 fs16 e ~ e d8 d16 ~ ( d b8 a16 ~ ) a4 | % 33 + \time 2/4 r4 g'8 fs \time 4/4 \bar "||" % 34 + + % Chorus + +\mark \markup { \override #'(font-family . sans) { \box { D } } } + + e8 d4 b16 ( d b4 ) r16 g b8 | % 35 + a16 g g4 b8 ~ b4 g'8 fs | % 36 + e8 d4 bf16 ( a g4 ) r16 g b d | % 37 + e4 b8 b16 b ~ ( b a8 ) r16 r b16 e fs | % 38 + g8 fs16 e ~ e d8 bf16 ( a ) g8. r8 g16 a | % 39 + b8 d16 d ~ d8 e ~ e4 r8 r16 d, | % 40 + b'8 b a g16 g ~ g4 r8 b16 d | % 41 + e8 d16 b ( a4 ) r b16 b d8 | % 42 + + e8 g4 g8 ~ ( e4 ) r| % 43 + b8 b a g16 g ~ g4 r8 b16 d | % 44 + e8 d16 b ( a4 ) r b16 b b8 \bar "||" % 45 + + % Outro + +\mark \markup { \override #'(font-family . sans) { \box { E } } } + + a8 g4 b16 ( a g4 ) r | % 46 + r2 r4 b16 b d8 | % 47 + e8 d b16 ( a g8 ) r2 | % 48 + r1-\fermata \bar "|." % 49 +} + +LeadVoxText = \lyricmode +{ + Moon -- light casts _ a glow _ + on my fath -- er and me _ + Fish -- in’ ’til _ the sun _ fell down _ + _ much too dark _ to see _ + Lit -- tle boy _ so filled _ with joy _ _ + His he -- ro walks be -- hind; _ + _ The ma -- gic mo -- _ _ ment cap -- tured in _ my mind. _ + + Dad -- dy light my way _ _ + ’cause I’m trip -- pin’ on stones _ + Dad -- dy hold my hand _ _ + ’cause I can’t make it home _ a -- lone _ + Let me climb up -- on _ your shoul -- _ ders + when we walk that hill _ + ’Cause I’m not much to bear _ + and you hold me there _ + do -- in’ what fath -- ers will. _ + + fath -- ers will. _ + + At the end _ of _ my road __ _ _ _ + when it’s all been said and done _ _ + I’ll be proud to be _ your fa -- _ ther; + I hope you’re proud to be _ my son. __ _ _ _ _ + + Je -- sus light my way _ _ + I’ve been trip -- pin’ on stones _ + Je -- sus hold my hand _ _ + ’cause I can’t do this a -- lone; _ _ + Then let me climb up -- on _ your shoul -- _ ders + as we walk that last _ hill _ + + I’ve been your cross to bear _ + still you held me there _ + Do -- in’ your Fath -- er’s will _ + + I’m not much to bear _ + still you held me there _ + Do -- in’ what fath -- ers will. _ _ + + Do -- in’ what fa -- thers will. _ +} + +LeadVoxTextB = \lyricmode +{ + Fill -- in’ dad -- _ dy’s shoes _ + I’m the fath -- er to be _ + Clue -- less as _ a way -- _ ward cat _ + trapped high up in _ the trees _ + Won -- drin’ now _ I’m not _ sure how _ _ + a boy grows to a man; _ + But I pro -- mise son _ _ I’ll do all that _ I can. _ +} + + +% +% Chord names +% + +Chords = \chordmode +{ +%Bah, can't we set this globally? +% \popChords + + % Intro + + g1 | % 1 + c1 | % 2 + g1 | % 3 + d1/fs | % 4 + g1 | % 5 + c1 | % 6 + g2 d/fs | % 7 + g4. c8 g2 | % 8 + + \repeat volta 2 + { + % Verse + + g1 | % 9 + c1 | % 10 + g1 | % 11 + d1/fs | % 12 + g1 | % 13 + c1 | % 14 + g2 d/fs | % 15 + g4. c8 g2 | % 16 + + % Chorus + + c4. g2 s8 | % 17 + c4. g2 s8 | % 18 + c4. g2 s8 | % 19 + d1/fs | % 20 + e4:m d/fs g2 | % 21 + b4.:m7 e2:m s8 | % 22 + c1 | % 23 + d1/fs | % 24 + } + \alternative + { + { + g1 | % 25 + c1 | % 26 + g2 d/fs | % 27 + g4. c8 g2 | % 28 + } + { + g2. d4/fs | % 29 + } + } + + % Bridge + + e1:m | % 30 + b1:m7 | % 31 + a2:m7 g/b | % 32 + c2 d | % 33 + \time 2/4 s2 \time 4/4 | % 34 + + % Chorus + + c4. g2 s8 | % 35 + c4. g2 s8 | % 36 + c4. g2 s8 | % 37 + d1/fs | % 38 + e4:m d/fs g2 | % 39 + b4.:m7 e2:m s8 | % 40 + c1 | % 41 + d1/fs | % 42 + + e1:m | % 43 + c1 | % 44 + d1/fs | % 45 + + g1 | % 46 + c1 | % 47 + g2 d/fs | % 48 + g4. c8 g2 | % 49 +} + + +% +% Chord rhythms +% + +% Use a RhythmicStaff on the chords instead of this? +% It almost works, but not quite. Doesn't collapse chords above to single notes... + +%Slash = { \override NoteHead #'style = #'slash } +%Cross = { \override NoteHead #'style = #'cross } + +StaffC = \relative c +{ + \override Staff.TimeSignature #'style = #'() + \time 4/4 + \override NoteHead #'style = #'slash + + % Intro + + c4 c c c | % 1 + c4 c c c | % 2 + c4 c c c | % 3 + c4 c c c | % 4 + c4 c c c | % 5 + c4 c c c | % 6 + c4 c c c | % 7 + c4. c8 c4 c \bar "||:" % 8 + + \repeat volta 2 + { + % Verse + + c4 c c c | % 9 + c4 c c c | % 10 + c4 c c c | % 11 + c4 c c c | % 12 + c4 c c c | % 13 + c4 c c c | % 14 + c4 c c c | % 15 + c4. c8 c4 c \bar "||" % 16 + + % Chorus + + c4. c8 ~ c4 c | % 17 + c4. c8 ~ c4 c | % 18 + c4. c8 ~ c4 c | % 19 + c4 c c c | % 20 + c4 c c c | % 21 + c4. c8 ~ c4 c | % 22 + c4 c c c | % 23 + c4 c c c | % 24 + } + \alternative + { + { + c4 c c c | % 25 + c4 c c c | % 26 + c4 c c c | % 27 + c4. c8 c4 c | % 28 + } + { + c4 c c c \bar "||" % 29 + } + } + + % Bridge + + c4 c c c | % 30 + c4 c c c | % 31 + c4 c c c | % 32 + c4 c c c | % 33 + \time 2/4 c2 \time 4/4 \bar "||" % 34 + + % Chorus + + c4. c8 ~ c4 c | % 35 + c4. c8 ~ c4 c | % 36 + c4. c8 ~ c4 c | % 37 + c4 c c c | % 38 + c4 c c c | % 39 + c4. c8 ~ c4 c | % 40 + c4 c c c | % 41 + c4 c c c | % 42 + + c4 c c c | % 43 + c4 c c c | % 44 + c4 c c c | % 45 + + % Outro + + c4 c c c | % 46 + c4 c c c | % 47 + c4 c c c | % 48 + c4. c8 c2-\fermata \bar "|." % 49 +} + + +Dynamics = +{ +%{ + s4_\markup { \italic { snare on 4, bass 8th notes } } s2. | % 1 + s1*26 | % 2-27 + s2 s4 \< s | % 28 + s4_\f s_\markup { \hspace #0.0 \raise #-2.0 \italic { snare 2 & 4 } } s2 | % 29 + s1*8 | % 30-37 + s2 s4 \< s \! | % 38 + s1 | % 39 + s2. s8 \> s \! | % 40 + s4_\markup { \hspace #0.0 \raise #-2.0 \italic { bass 8th notes, band builds each repeat } } s2. | % 41 + s1*8 | % 42-49 + s4 \< s2. | % 50 + s4_\f s2. | % 51 + s1*5 | % 52-56 + s4_\markup { \hspace #0.0 \raise #-2.0 \italic { rit. last time } } s2. | % 57 + s2 s4 \< s \! | % 58 +%} +} + + +\score +{ + << + << + \new Staff = leadStaff { \new Voice = "lead" \LeadVox } + \new Lyrics \lyricsto "lead" \LeadVoxText + \new Lyrics \lyricsto "lead" \LeadVoxTextB + >> + + \new ChoirStaff = "Rhythm" + << + \new ChordNames = "chords" \Chords + \new RhythmicStaff = "chordRhythm" << \StaffC \Dynamics >> + >> + + \set Score.skipBars = ##t + \set Score.melismaBusyProperties = #'() + >> + + \layout + { +% \context { \Staff \RemoveEmptyStaves } +% ragged-last-bottom = ##t + ragged-last = ##t + } +} + + +\paper +{ + #(define fonts (make-pango-font-tree + "Times New Roman" + "DomCasual BT" + "Luxi Mono" + (/ staffSize 20))) + +% top-margin = -0.25 \in +} diff --git a/forever.ly b/forever.ly new file mode 100644 index 0000000..aa6d206 --- /dev/null +++ b/forever.ly @@ -0,0 +1,482 @@ +\version "2.16.0" +\include "pop-chords.ly" +\include "english.ly" + +% Good sizes are 16, 18, & 20 +staffSize = #20 +#(set-default-paper-size "letter") +#(set-global-staff-size staffSize) +#(ly:set-option (quote no-point-and-click)) + +%{ Some useful characters: ‘ ’ “ ” – — † ‡ • … %} + +\header +{ +%Let's bump up the title size and switch to the chord font. :-) + + title = \markup { \override #'(font-family . sans) \fontsize #3.5 "Forever" } + composer = \markup { \override #'(font-family . sans) \fontsize #1.3 "Chris Tomlin/Jesse Reeves" } +% arranger = \markup { \override #'(font-family . sans) \fontsize #1.3 "arr. " } + tagline = $(string-append "Engraved by JLH and Lilypond " (lilypond-version)) +% Let's try a chord dictionary +% subtitle = \markup { \center-column { "F#m" \fret-diagram-terse #"x;x;4;2;2;2;" } " " \center-column { "F#m/F" \fret-diagram-terse #"x;x;3;2;2;2;" } " " \center-column { "F#m/E" \fret-diagram-terse #"x;x;2;2;2;2;" } " " \center-column { "F#m/Eb" \fret-diagram-terse #"x;x;1;2;2;2;" } " " \center-column { "Em7" \fret-diagram-terse #"o;2;2;o;3;o;" } " " \center-column { "A13" \fret-diagram-terse #"x;o;2;o;2;2;" } } +} + +% Useful tweak abbreviations (hn = harmony note) + +hn = #(define-music-function (parser location arg) (ly:music?) +;; Harmony Note: Set the tweaks property of the passed in note to use a smaller font + + (set! (ly:music-property arg 'tweaks) + (acons 'font-size -3.0 (ly:music-property arg 'tweaks))) arg) + + +% +% Song's structure +% +Global = +{ + \key g \major + \override Staff.TimeSignature #'style = #'() + \time 4/4 + + % Intro + + \once \override TextScript #'padding = #2.0 + s1*0^\markup { \large \bold { 8th Note Rock } } +% Capo 4 version +% s1*0^\markup { \hspace #0.0 \raise #2.0 \larger \bold { "Moderate pop (*** CAPO 4 ***)" } } + + s1*8 \bar "||:" % 1-8 + + % Verse + + \repeat volta 2 + { + \mark \markup { \override #'(font-family . sans) { \box { A } } } + s1*11 | % 9-19 + } + \alternative + { + { + s1 | % 20 + } + { + s1 | % 21 + } + } + + % Prechorus + + s1*4 \bar "||" % 22-25 + + % Chorus + + \mark \markup { \override #'(font-family . sans) { \box { B } } } + s1*10 \bar "||" % 26- + + % Verse + + \mark \markup { \override #'(font-family . sans) { \box { C } } } + s1*8 \bar "||" % - + + % Prechorus + + \mark \markup { \override #'(font-family . sans) { \box { D } } } + s1*8 \bar "||:" % - + + % Chorus + + \repeat volta 2 + { + \mark \markup { \override #'(font-family . sans) { \box { E } } } + s1*10 | % - + } + + % Bridge + + \mark \markup { \override #'(font-family . sans) { \box { F } } } + s1*7 | % - +% s1*0^\markup { \large \bold { "Repeat at [D], end at [F]" } } + \mark \markup { \large \bold { "Repeat at [D], end at [F]" } } + s1*1 \bar "||" % - +% \once \override Score.RehearsalMark #'self-alignment-X = #right +} + + +% +% Lead vocal +% +LeadVox = \relative c' +{ +% \set Staff.instrument = #"Lead vox" + \clef G + \override Staff.TimeSignature #'style = #'() +%Hm. Needed anymore? +% \override Score.SpacingSpanner #'average-spacing-wishes = ##f + + % Intro + + r1 | % 1 + r1 | % 2 + r1 | % 3 + r1 | % 4 + r1 | % 5 + r1 | % 6 + r1 | % 7 + r2 r4 d | % 8 + + % Verse + + b8 d d d ~ d d4 e8 ~ | % 9 + e8 d4 d8 ~ d4 r8 d8 | % 10 + b'4 b b a8 a ( | % 11 + g8 ) g ~ g2 g8 g | % 12 + e8 g4 g8 ~ g g g g | % 13 + a8 b4 g8 ~ g4 r8 d8 | % 14 + b'4 b b a8 a ( | % 15 + g8 ) g ~ g2 g4 | % 16 + + a1 ~ | % 17 + a2 ~ a8 b4. | % 18 + g1 ~ | % 19 + + g2. c,8 c | % 20 + + g'2 ~ g8 g4. | % 21 + + a1 ~ | % 22 + a2 ~ a8 b4. | % 23 + g1 ~ | % 24 + g2. d'8 d ~ | % 25 + + % Chorus + + d8 b4 a8 ~ a g4 a8 ~ | % 26 + a8 b2 ~ b8 d8 d ~ | % 27 + d8 b4 a8 ~ a b4 g8 ~ | % 28 + g2. d'8 d ~ | % 29 + d8 b4 a g a8 ~ | % 30 + a8 b ~ b2 a8 a ( | % 31 + g8 ) g ~ g2. | % 32 + r2 r4 a8 a ( | % 33 + g8 ) g ~ g2. | % 34 + r2 r4 d8 d | % 35 + + % Verse + + b8 d d d ~ d d4 e8 ~ | % 36 + e8 d4 d8 ~ d4 r8 d8 | % 37 + b'4 b b a8 a ( | % 38 + g8 ) g ~ g2 g8 g | % 39 + e8 g4 g8 ~ g g g g | % 40 + a8 b4 g8 ~ g4 r8 d8 | % 41 + b'4 b b a8 a ( | % 42 + g8 ) g ~ g2 g4 | % 43 + + % Prechorus + + a1 ~ | % 44 + a2 ~ a8 b4. | % 45 + g1 ~ | % 46 + g2 ~ g8 g4. | % 47 + a1 ~ | % 48 + a2 ~ a8 b4. | % 49 + g1 ~ | % 50 + g2. d'8 d ~ | % 51 + + % Chorus + + d8 b4 a8 ~ a g4 a8 ~ | % 52 + a8 b2 ~ b8 d8 d ~ | % 53 + d8 b4 a8 ~ a b4 g8 ~ | % 54 + g2. d'8 d ~ | % 55 + d8 b4 a g a8 ~ | % 56 + a8 b ~ b2 a8 a ( | % 57 + g8 ) g ~ g2. | % 58 + r2 r4 a8 a ( | % 59 + g8 ) g ~ g2. | % 60 + r2 r4 r8 d | % 61 + + % Bridge + + b'4 b b a8 a ( | % 62 + g8 ) g ~ g2 r8 d | % 63 + b'4 b b a8 a ( | % 64 + g8 ) g ~ g2 r8 d | % 65 + b'4 b b a8 a ( | % 66 + g8 ) g ~ g2 r8 d | % 67 + b'4 b b a8 a ( | % 68 + g8 ) g ~ g2 g4 | % 69 + + | % +} + +LeadVoxText = \lyricmode +{ + Give thanks to the Lord, _ our God _ and King, _ + His love en -- dures for -- e -- _ ver _ + For _ he is good, _ he is a -- bove all things, _ + His love en -- dures for -- e -- _ ver _ + + Sing praise, __ _ _ sing praise __ _ + + With a + _ _ + + Sing praise, __ _ _ sing praise __ _ + + For -- e -- _ ver God _ is faith -- _ ful _ + For -- e -- _ ver God _ is strong _ + For -- e -- _ ver God is with _ us _ + For -- e -- _ ver _ + For -- e -- _ ver _ + + From the ris -- ing _ to _ the set -- _ ting sun, _ + His love en -- dures for -- e -- _ ver _ + By the grace of God, _ we will car -- _ ry on, _ + His love en -- dures for -- e -- _ ver _ + + Sing praise, __ _ _ sing praise __ _ _ + Sing praise, __ _ _ sing praise __ _ + + For -- e -- _ ver God _ is faith -- _ ful _ + For -- e -- _ ver God _ is strong _ + For -- e -- _ ver God is with _ us _ + For -- e -- _ ver _ + For -- e -- _ ver _ + + His love en -- dures for -- e -- _ ver _ + His love en -- dures for -- e -- _ ver _ + His love en -- dures for -- e -- _ ver _ + His love en -- dures for -- e -- _ ver _ + + Sing +} + +LeadVoxTextB = \lyricmode +{ + _ might -- y _ hand _ and out -- _ stretched arm, _ + His love en -- dures for -- e -- _ ver _ + _ _ For the life _ _ _ that’s been re -- born, _ + His love en -- dures for -- e -- _ ver _ +} + +LeadVoxTextC = \lyricmode +{ +} + + +Riffs = \relative c'' +{ + \clef G +%Hm. Needed anymore? +% \override Score.SpacingSpanner #'average-spacing-wishes = ##f + + % Intro + +%{ + \tiny + \normalsize +%} +} + + +% +% Chord names +% +Chords = \chordmode +{ +%Bah, can't we set this globally? +% \popChords + + % Intro + + g1:sus2 | % + s1 | % + e1:m7 | % + s1 | % + d1 | % + s1 | % + c1:sus2 | % + s1 | % + + % Verse + + g1:sus2 | % + s1 | % + s1 | % + s1 | % + c1 | % + s1 | % + s1 | % + g1:sus2 | % + d1 | % + s1 | % + e1:m7 | % + + c1:sus2 | % + + c1:sus2 | % + + % Prechorus + + d1 | % + s1 | % + e1:m7 | % + c1 | % + + % Chorus + + g1:sus2 | % + s1 | % + e1:m7 | % + s1 | % + d1 | % + s1 | % + c1:sus2 | % + s1 | % + g1:sus2 | % + s2 c:sus2 | % + + % Verse + + g1:sus2 | % + s1 | % + s1 | % + s1 | % + c1 | % + s1 | % + s1 | % + g1:sus2 | % + + % Prechorus + + d1 | % + s1 | % + e1:m7 | % + c1:sus2 | % + d1 | % + s1 | % + e1:m7 | % + c1 | % + + % Chorus + + g1:sus2 | % + s1 | % + e1:m7 | % + s1 | % + d1 | % + s1 | % + c1:sus2 | % + s1 | % + g1:sus2 | % + s1 | % + + % Bridge + + g1 | % + | % +} + + +% +% Chord rhythms +% +% Use a RhythmicStaff on the chords instead of this? +% It almost works, but not quite. Doesn't collapse chords above to single notes... +% +Rhythm = \relative c +{ +%% \set Voice.autoBeaming = ##f +%% \set Staff.instrument = #"Rhythm" + \override Staff.TimeSignature #'style = #'() + \override NoteHead #'style = #'slash + + r4 r8 c c4 | % 0 + c4 c c | % 1 + c4 c c | % 2 + c4 c4. c8 | % 3 + c4 c c | % 4 + + c4 c c | % 5 + c4 c c | % 6 + c4 c4. c8 | % 7 + c4 c c | % 8 + + c4 c c | % 9 + c4 c c8 c | % 10 + c4 c c | % 11 + c4 c c | % 12 + + c4 c c | % 13 + c4 c c | % 14 + c4 c4. c8 | % 15 + c4. r | % 16 +} + + +Dynamics = +{ +%{ + s4_\markup { \italic { snare pat. } } s2 | % 1 + s4_\markup { \italic { simile } } s2 | % 2 + s2.*19 + s4_\markup { \italic { spacey } } s2 | % 22 + s2.*5 + s4 s \< s \! | % 28 + s2.*22 + s4_\markup { \italic { Last time } } s2 | % 51 +%} +} + + +\score +{ + << + \set Score.skipBars = ##t + \set Score.melismaBusyProperties = #'() + +% \new Staff + << + \new ChordNames \Chords +%Capo 4 edition +% \new ChordNames \transpose b g \Chords +% \new RhythmicStaff << \Rhythm \Dynamics >> + >> + + \new Staff + << + \Global % The "roadmap" that everything else depends on + \new Voice = "lead" \LeadVox + \new Voice \Riffs + \new Lyrics \lyricsto "lead" \LeadVoxText + \new Lyrics \lyricsto "lead" \LeadVoxTextB +% \new Lyrics \lyricsto "lead" \LeadVoxTextC +% \new Lyrics \lyricsto "lead" \LeadVoxTextD + >> + >> +} + + +\paper +{ + #(define fonts (make-pango-font-tree + "Times New Roman" + "DomCasual BT" + "Luxi Mono" + (/ staffSize 20))) + +% Spread staves vertically across last page (default: t) + ragged-last-bottom = ##f +% Don't spread staves vertically across the page (default: f) +% ragged-bottom = ##t +% Allow partial line for last stave (default: f) +% ragged-last = ##t + +% To find out what's eating the space at the top... +% annotate-spacing = ##t +%let's try this: [It works! Huzzah!] + obsolete-page-top-space = 0 top-system-spacing #'basic-distance = #(/ obsolete-page-top-space staff-space) +} diff --git a/fum-fum-fum.ly b/fum-fum-fum.ly new file mode 100644 index 0000000..1f0c78c --- /dev/null +++ b/fum-fum-fum.ly @@ -0,0 +1,309 @@ +\version "2.16.0" +\include "pop-chords.ly" +\include "english.ly" + +% Good sizes are 16, 18, & 20 +staffSize = #20 +#(set-default-paper-size "letter") +#(set-global-staff-size staffSize) +#(ly:set-option (quote no-point-and-click)) + +%{ Some useful characters: ‘ ’ “ ” – — † ‡ • … %} + +\header +{ +%Let's bump up the title size and switch to the chord font. :-) + + title = \markup { \override #'(font-family . sans) \fontsize #3.5 "Fum, Fum, Fum" } + composer = \markup { \override #'(font-family . sans) \fontsize #1.3 "Trad. Spanish Carol" } + arranger = \markup { \override #'(font-family . sans) \fontsize #1.3 "arr. Ed Smart" } + tagline = $(string-append "Engraved by JLH and Lilypond " (lilypond-version)) +% Let's try a chord dictionary +% subtitle = \markup { \center-column { "F#m" \fret-diagram-terse #"x;x;4;2;2;2;" } " " \center-column { "F#m/F" \fret-diagram-terse #"x;x;3;2;2;2;" } " " \center-column { "F#m/E" \fret-diagram-terse #"x;x;2;2;2;2;" } " " \center-column { "F#m/Eb" \fret-diagram-terse #"x;x;1;2;2;2;" } " " \center-column { "Em7" \fret-diagram-terse #"o;2;2;o;3;o;" } " " \center-column { "A13" \fret-diagram-terse #"x;o;2;o;2;2;" } } +} + +% Useful tweak abbreviations (hn = harmony note) + +hn = #(define-music-function (parser location arg) (ly:music?) +;; Harmony Note: Set the tweaks property of the passed in note to use a smaller font + + (set! (ly:music-property arg 'tweaks) + (acons 'font-size -3.0 (ly:music-property arg 'tweaks))) arg) + + +% +% Song's structure +% +Global = +{ + \key a \minor + \override Staff.TimeSignature #'style = #'() + \time 4/4 + + \once \override TextScript #'padding = #2.0 + s1*0^\markup { \large \bold { Not too fast } } +% Capo 4 version +% s1*0^\markup { \hspace #0.0 \raise #2.0 \larger \bold { "Moderate pop (*** CAPO 4 ***)" } } + + % Intro + + s1*4 \bar "||:" % 1-4 + + % The rest... + + \repeat volta 2 + { + \mark \markup { \override #'(font-family . sans) { \box { A } } } + + s1*4 \bar "||" % 5-8 + s1*7 | % 9-15 + } + \alternative + { + { + s1 | % 16 + } + { + s1 \bar "||" % 17 + } + } + + \key bf \minor + \mark \markup { \override #'(font-family . sans) { \box { B } } } + + s1*4 \bar "||" % 18-21 + s1*10 \bar "|." % 22-31 +} + + +% +% Lead vocal +% +LeadVox = \relative c'' +{ +% \set Staff.instrument = #"Lead vox" + \clef G + \override Staff.TimeSignature #'style = #'() +%Hm. Needed anymore? +% \override Score.SpacingSpanner #'average-spacing-wishes = ##f + + % Intro + + r1 | % 1 + r1 | % 2 + r1 | % 3 + r1 | % 4 + + a8. gs16 a c8 b16 ~ b a8 gs16 ~ gs e ~ e8 | % 5 + a4-^ gs8.-^ a16-> ~ a2 | % 6 + a8. gs16 a c8 b16 ~ b a8 gs16 ~ gs e ~ e8 | % 7 + a4-^ gs8.-^ a16-> ~ a4. a16 b | % 8 + + c8 c b b16 c ~ c g8 g16 ~ g g8 g16 ~ | % 9 + g8 c b b16 c ~ c4. b16 c | % 10 + d8. c16 b a8 gs16 ~ gs e ~ e8 a gs | % 11 + a8 c16 b ~ b a8 gs16 ~ gs e ~ e8 ~ e4 | % 12 + a4-^ gs8.-^ a16-> ~ a2 | % 13 + a4-^ gs8.-^ a16-> ~ a2 | % 14 + a4-^ gs8.-^ a16-> ~ a2 | % 15 + + a4-^ gs8.-^ a16-> ~ a2 | % 16 + + a4-^ gs8.-^ a16-> ~ a2 | % 17 + + bf8. a16 bf df8 c16 ~ c bf8 a16 ~ a f ~ f8 | % 18 + bf4-^ a8.-^ bf16-> ~ bf2 | % 19 + bf8. a16 bf df8 c16 ~ c bf8 a16 ~ a f ~ f8 | % 20 + bf4-^ a8.-^ bf16-> ~ bf4. bf16 c | % 21 + + df8 df c c16 df ~ df af8 af16 ~ af af8 af16 ~ | % 22 + af8 df c c16 df ~ df4. c16 df | % 23 + ef8. df16 c bf8 a16 ~ a f ~ f8 bf a | % 24 + bf8 df16 c ~ c bf8 a16 ~ a f ~ f8 ~ f4 | % 25 + bf4-^ a8.-^ bf16-> ~ bf2 | % 26 + bf4-^ a8.-^ bf16-> ~ bf2 | % 27 + bf4-^ a8.-^ bf16-> ~ bf2 | % 28 + bf4-^ a8.-^ bf16-> ~ bf2 | % 29 + bf8. a16 bf df8 c16 ~ c bf8 a16 ~ a f ~ f8 | % 30 + bf4-^ a8.-^ bf16-^ r2 | % 31 +} + +LeadVoxText = \lyricmode +{ +} + + +Riffs = \relative c +{ + \clef G +%Hm. Needed anymore? +% \override Score.SpacingSpanner #'average-spacing-wishes = ##f + + % Intro + +% \tiny +% \repeat percent 4 { e8_\markup { \italic { bass figure } } e e e e e e e } | % 1-4 +% \normalsize +} + + +% +% Chord names +% +Chords = \chordmode +{ + % Intro + + d4:m7 e8.:7.9- a16:m s2 | % 1 + f4:9 e8.:7.9- a16:m s2 | % 2 + d4:m7 e8.:7.9- a16:m s2 | % 3 + f4:9 e8.:7.9- a16:m s2 | % 4 + + a1:m | % 5 + d4:m7 e8.:7.9- a16:m s2 | % 6 + a1:m | % 7 + f4:9 e8.:7.9- a16:m s2 | % 8 + + d4:m7 g8.:7 c16:maj7 s2 | % 9 + d4:m7 g8.:7 c16:maj7 s2 | % 10 + b4..:m7.5- e16:7.9- s2 | % 11 + f4..:9 e16:7.9- s2 | % 12 + d4:m7 e8.:7.9- a16:m s2 | % 13 + f4:9 e8.:7.9- a16:m s2 | % 14 + d4:m7 e8.:7.9- a16:m s2 | % 15 + + f4:9 e8.:7.9- a16:m s2 | % 16 + + f4:9 e8.:7.9- a16:m s4 f:9 | % 17 + + bf1:m | % 18 + ef4:m7 f8.:7.9- bf16:m s2 | % 19 + bf1:m | % 20 + gf4:9 f8.:7.9- bf16:m s2 | % 21 + + ef4:m7 af8.:7 df16:maj7 s2 | % 22 + ef4:m7 af8.:7 df16:maj7 s2 | % 23 + c4..:m7.5- f16:7.9- s2 | % 24 + gf4..:9 f16:7.9- s2 | % 25 + ef4:m7 f8.:7.9- bf16:m s2 | % 26 + gf4:9 f8.:7.9- bf16:m s2 | % 27 + ef4:m7 f8.:7.9- bf16:m s2 | % 28 + gf4:9 f8.:7.9- bf16:m s2 | % 29 + bf1:m | % 30 + gf4:9 f8.:7.9- bf16:m s2 | % 31 +} + + +% +% Chord rhythms +% +% Use a RhythmicStaff on the chords instead of this? +% It almost works, but not quite. Doesn't collapse chords above to single notes... +% +Rhythm = \relative c +{ +%% \set Voice.autoBeaming = ##f +%% \set Staff.instrument = #"Rhythm" + \override Staff.TimeSignature #'style = #'() + \override NoteHead #'style = #'slash + +%Not small enough... + \teeny +% \magnify #0.3 + % Intro + + % Intro + + c4-^ c8.-^ c16-> ~ c4 c | % 1 + c4-^ c8.-^ c16-> ~ c4 c | % 2 + c4-^ c8.-^ c16-> ~ c4 c | % 3 + c4-^ c8.-^ c16-> ~ c4 c | % 4 + + c4-> r r2 | % 5 + c4-^ c8.-^ c16-> ~ c4 c | % 6 + c4-> r r2 | % 7 + c4-^ c8.-^ c16-> ~ c4 c | % 8 + + c4-^ c8.-^ c16-> ~ c4 c | % 9 + c4-^ c8.-^ c16-> ~ c4 c | % 10 + c4.. c16 ~ c4 c | % 11 + c4.. c16 ~ c4 c | % 12 + c4-^ c8.-^ c16-> ~ c4 c | % 13 + c4-^ c8.-^ c16-> ~ c4 c | % 14 + c4-^ c8.-^ c16-> ~ c4 c | % 15 + + c4-^ c8.-^ c16-> ~ c4 c | % 16 + + c4-^ c8.-^ c16-> ~ c4 c | % 17 + + c4-> r r2 | % 18 + c4-^ c8.-^ c16-> ~ c4 c | % 19 + c4-> r r2 | % 20 + c4-^ c8.-^ c16-> ~ c4 c | % 21 + + c4-^ c8.-^ c16-> ~ c4 c | % 22 + c4-^ c8.-^ c16-> ~ c4 c | % 23 + c4.. c16 ~ c4 c | % 24 + c4.. c16 ~ c4 c | % 25 + c4-^ c8.-^ c16-> ~ c4 c | % 26 + c4-^ c8.-^ c16-> ~ c4 c | % 27 + c4-^ c8.-^ c16-> ~ c4 c | % 28 + c4-^ c8.-^ c16-> ~ c4 c | % 29 + c4-> r r2 | % 30 + c4-^ c8.-^ c16-^ r2 | % 31 + \normalsize +} + + +Dynamics = +{ + s1*4 | % 1-4 + s4_\markup { \italic { 1st X: Melody, 2nd X+: Solos } } s2. | % 5 +} + + +\score +{ + << + \set Score.skipBars = ##t + \set Score.melismaBusyProperties = #'() + +% \new Staff + << + \new ChordNames \Chords +%Capo 4 edition +% \new ChordNames \transpose b g \Chords + \new RhythmicStaff << \Rhythm \Dynamics >> + >> + + \new Staff + << + \Global % The "roadmap" that everything else depends on + \new Voice = "lead" \LeadVox +% \new Voice \Riffs +% \new Lyrics \lyricsto "lead" \LeadVoxText + >> + >> +} + + +\paper +{ + #(define fonts (make-pango-font-tree + "Times New Roman" + "DomCasual BT" + "Luxi Mono" + (/ staffSize 20))) + +% Spread staves vertically across last page (default: t) + ragged-last-bottom = ##f +% Don't spread staves vertically across the page (default: f) +% ragged-bottom = ##t +% Allow partial line for last stave (default: f) +% ragged-last = ##t + +% To find out what's eating the space at the top... +% annotate-spacing = ##t +%let's try this: [It works! Huzzah!] + obsolete-page-top-space = 0 top-system-spacing #'basic-distance = #(/ obsolete-page-top-space staff-space) +} diff --git a/give-thanks.ly b/give-thanks.ly new file mode 100755 index 0000000..3d88cfd --- /dev/null +++ b/give-thanks.ly @@ -0,0 +1,282 @@ +\version "2.16.0" +\include "pop-chords.ly" +\include "english.ly" + +staffSize = #18 % or 16 +#(set-default-paper-size "letter") +#(set-global-staff-size staffSize) +#(ly:set-option (quote no-point-and-click)) + +\header +{ +%Let's bump up the title size and switch to the chord font. :-) + + title = \markup { \override #'(font-family . sans) + { \fontsize #3.5 "Give Thanks" } } + composer = \markup { \override #'(font-family . sans) "Henry Smith" } + arranger = \markup { \override #'(font-family . sans) "arr. Shamus Hammons" } + tagline = "Engraved by JLH and Lilypond 2.8.2" +} + + +% +% Lead vocal +% + +LeadVox = \relative c'' +{ + \set Voice.autoBeaming = ##f +% \set Staff.instrumentName = #"Lead vox" + \clef G + \key g \major + \override Staff.TimeSignature #'style = #'() + \time 4/4 +\override Score.SpacingSpanner #'average-spacing-wishes = ##f + + \set Score.markFormatter = #format-mark-box-letters + +\tiny + g2 ~ g8 [ b, d g ] | % 1 + g4. g8 fs4 +\normalsize + b | % 2 + + \repeat volta 2 + { +\once \override Score.RehearsalMark #'self-alignment-X = #left +\mark \markup { \override #'(font-family . sans) { \box { A } } \hspace #1.0 \raise #2.0 \musicglyph #"scripts.segno" } + + b2. a8 [ g ] | % 3 + a4 fs8 [ d ] ~ d4 a'4 | % 4 + g2. fs8 [ e ] | % 5 + fs4 d8 [ b ] ~ b4 fs'4 | % 6 + e2 ~ e8 [ g g e ] | % 7 + d8 [ g ] ~ g4 g b | % 8 + a2. g4 | % 9 + } + \alternative + { + { + a2. b4 | % 10 + } + { + a2. d4 | % 11 + } + } + + \repeat volta 2 + { +\mark \markup { \override #'(font-family . sans) { \box { B } } } + + d2. d8 [ d ] | % 12 + d4 g, a b | % 13 + c2. c8 [ c ] | % 14 + c4 fs, g a | % 15 + b2 ~ b8 [ b b b ] | % 16 + b4. e,8 fs4 g | % 17 + a2. g4 | % 18 + a2. d4 | % 19 + + d2. d8 [ d ] | % 20 + d4 g, a b | % 21 + c2. c8 [ c ] | % 22 + c4 fs, g a | % 23 + b2 ~ b8 [ b b b ] | % 24 + b4. e,8 fs4 g | % 25 + a2. g4 | % 26 + } + \alternative + { + { +%\once \override Score.RehearsalMark #'self-alignment-X = #right +%\mark \markup { \italic { D.S. } } + a2. b4^\markup { \bold \italic { D.S. } } \bar "||" % 27 + } + { + a2. g4 | % 28 + } + } + + g1 ~ | % 29 + g2. g4 | % 30 + g1 ~ | % 31 + g2. g4 | % 32 + g1-\fermata \bar "|." % 33 +} + +LeadVoxText = \lyricmode +{ + _ _ _ _ _ _ _ _ + + Give thanks with a gra- teful heart _ + Give thanks to the ho- ly one _ + Give thanks, _ be- cause he's gi- ven _ + Je- sus Christ, his son + + Give + son + + And now, let the weak say 'I am strong' + Let the poor say 'I am rich' _ + Be- cause of what the Lord has done for us + + And now, let the weak say 'I am strong' + Let the poor say 'I am rich' _ + Be- cause of what the Lord has done for us + + Give + us + + Give thanks __ _ + Give thanks __ _ + Give thanks. +} + + +% +% Chord names +% + +Chords = \chordmode +{ +%Bah, can't we set this globally? +% \popChords + + g1 | % 1 + d2:sus4 d | % 2 + + g1 | % 3 + b1:m7 | % 4 + e1:m7 | % 5 + b1:m | % 6 + c1 | % 7 + g1/b | % 8 + f1 | % 9 + + d2:sus4 d | % 10 + + d1 | % 11 + + b1:m | % 12 + e1:m7 | % 13 + a1:m | % 14 + d1:7 | % 15 + g1:maj7 | % 16 + e1:m | % 17 + f1 | % 18 + d1:7 | % 19 + + b1:m | % 20 + e1:m7 | % 21 + a1:m | % 22 + d1:7 | % 23 + g1:maj7 | % 24 + e1:m | % 25 + f1 | % 26 + + d1:7 | % 27 + + d1 | % 28 + + g1 | % 29 + c1/g | % 30 + g1 | % 31 + c1/g | % 32 + g1 | % 33 +} + + +% +% Chord rhythms +% + +% Use a RhythmicStaff on the chords instead of this? +% It almost works, but not quite. Doesn't collapse chords above to single notes... + +StaffC = \relative c +{ + \set Voice.autoBeaming = ##f +% \set Staff.instrumentName = #"Rhythm" + \override Staff.TimeSignature #'style = #'() + \time 4/4 + \override NoteHead #'style = #'slash + + c4 c c c | % 1 + c4 c c c | % 2 + + c4 c c c | % 3 + c4 c c c | % 4 + c4 c c c | % 5 + c4 c c c | % 6 + c4 c c c | % 7 + c4 c c c | % 8 + c4 c c c | % 9 + + c4 c c c | % 10 + + c4 c c c | % 11 + + c4 c c c | % 12 + c4 c c c | % 13 + c4 c c c | % 14 + c4 c c c | % 15 + c4 c c c | % 16 + c4 c c c | % 17 + c4 c c c | % 18 + c4 c c c | % 19 + + c4 c c c | % 20 + c4 c c c | % 21 + c4 c c c | % 22 + c4 c c c | % 23 + c4 c c c | % 24 + c4 c c c | % 25 + c4 c c c | % 26 + + c4 c c c | % 27 + + c4 c c c | % 28 + + c4 c c c | % 29 + c4 c c c | % 30 + c4 c c c | % 31 + c4 c c c | % 32 + c1-\fermata \bar "|." % 33 +} + + +\score +{ + << + << + \new Staff = leadStaff { \new Voice = "lead" \LeadVox } + \new Lyrics \lyricsto "lead" \LeadVoxText + >> + + \new ChoirStaff = "Rhythm" + << + \new ChordNames = "chords" \Chords + \new RhythmicStaff = "chordRhythm" \StaffC + >> + + \set Score.skipBars = ##t + \set Score.melismaBusyProperties = #'() + >> + + \layout + { + \context { \Staff \RemoveEmptyStaves } +% ragged-last-bottom = ##t +% ragged-last = ##t + } +} + + +\paper +{ + #(define fonts (make-pango-font-tree + "Times New Roman" + "DomCasual BT" + "Luxi Mono" + (/ staffSize 20))) +} diff --git a/go-tell-it-on-the-mountain-chorus.ly b/go-tell-it-on-the-mountain-chorus.ly new file mode 100644 index 0000000..07c344a --- /dev/null +++ b/go-tell-it-on-the-mountain-chorus.ly @@ -0,0 +1,352 @@ +\version "2.16.0" +\include "pop-chords.ly" +\include "english.ly" + +% Good sizes are 16, 18, & 20 +staffSize = #18 +#(set-default-paper-size "letter") +#(set-global-staff-size staffSize) +#(ly:set-option (quote no-point-and-click)) + +%{ Some useful characters: ‘ ’ “ ” – — † ‡ • … %} + +\header +{ +%Let's bump up the title size and switch to the chord font. :-) + + title = \markup { \override #'(font-family . sans) \fontsize #3.5 "Go Tell It On The Mountain" } + subtitle = \markup { \override #'(font-family . sans) \fontsize #1.3 "Key of E & Chorus Only Version" } + composer = \markup { \override #'(font-family . sans) \fontsize #1.3 "Traditional" } + arranger = \markup { \override #'(font-family . sans) \fontsize #1.3 "arr. Ed Smart/Shamus & Deborah Hammons/J. & Kat Michaels/Chris Craig" } + tagline = $(string-append "Engraved by JLH and Lilypond " (lilypond-version)) +} + + +% Useful tweak abbreviations (hn = harmony note) + +hn = #(define-music-function (parser location arg) (ly:music?) +;; Harmony Note: Set the tweaks property of the passed in note to use a smaller font + + (set! (ly:music-property arg 'tweaks) + (acons 'font-size -3.5 (ly:music-property arg 'tweaks))) arg) + + +% +% Lead vocal +% + +LeadVox = \relative c'' +{ +% \set Voice.autoBeaming = ##f +% \set Staff.instrument = #"Lead vox" + \clef G + \key g \major + \override Staff.TimeSignature #'style = #'() + \time 4/4 +\override Score.SpacingSpanner #'average-spacing-wishes = ##f + + % Intro + + \partial 4 { s4 } + + \repeat volta 2 + { + s1 | % 1 + s1 | % 2 + s1 | % 3 + s1 | % 4 + } + + \repeat volta 2 + { + r1^\markup { \bold { Vamp } } | % 5 + r1 | % 6 + r1 | % 7 + r1 | % 8 + } + + % Chorus + +\mark \markup { \override #'(font-family . sans) { \box { A } } } + + 2 8 | % 9 + d8. ( 16 ~ 8 ) ~ 2 | % 10 + 8 4 8 4 | % 11 + 4 ( ) | % 12 + 2 8 | % 13 + d8. ( 16 ~ 8 ) ~ 4 | % 14 + 4 8 ( ) 4 | % 15 + 2 r \bar "||" % 16 + +% \repeat volta 2 + { + % Chorus + +\mark \markup { \override #'(font-family . sans) { \box { B } } } + + 2 8 | % 17 + d8. ( 16 ~ 8 ) ~ 2 | % 18 + 8 4 8 4 | % 19 + 4 ( ) | % 20 + 2 8 | % 21 + d8. ( 16 ~ 8 ) ~ 4 | % 22 + 4 8 ( ) 4 | % 23 + + 2 r | % 24 + r1 | % 25 + r1 | % 26 + r1-\fermata \bar "|." % 27 + } +} + +LeadVoxText = \lyricmode +{ + Go tell it on the moun -- _ _ tain, _ + o -- ver the hills and e -- vr’y -- where, _ + Go tell it on the moun -- _ _ tain, _ + that Je -- sus Christ _ is born! + + Go tell it on the moun -- _ _ tain, _ + o -- ver the hills and e -- vr’y -- where, _ + Go tell it on the moun -- _ _ tain, _ + that Je -- sus Christ _ is born! +} + + +Riffs = \relative c'' +{ + \clef G + \key g \major + \override Staff.TimeSignature #'style = #'() + \time 4/4 +\override Score.SpacingSpanner #'average-spacing-wishes = ##f + + % Intro + + \tiny + \partial 4 { r8 d16 e } | % 0 + f8. e16 ~ e8 d8 ~ d4 r | % 1 + c8. b16 ~ b8 g8 ~ g8 f g d'16 e | % 2 + f8. e16 ~ e8 d8 ~ d4 c | % 3 + b4. f'16 f g8 f g16 f d e | % 4 + \normalsize +%{ + \tiny + \repeat "percent" 3 % 1 - 6 + { + << { \tiny f16 c f, ~ f, c' f f8 e } \\ { \tiny f,,2 c'4 } >> | % 1 + << { \tiny f'16 c f, ~ f, c' f f8 e } \\ { \tiny bf,2 c4 } >> | % 2 + } + << s2. \\ { \tiny d2 c4 } >> | % 7 + << s2. \\ { \tiny bf2. } >> | % 8 + + s2.*7 + + \voiceOne + \repeat "percent" 6 { f''16 c f, ~ f, c' f f8 e | } % 16-21 + \oneVoice + + s2.*7 + + \voiceOne + \repeat "percent" 2 { f16 c f, f' ~ f f, c' f f8 e | } % 29-30 + \oneVoice + + \key g \major + + \voiceOne + \repeat "percent" 2 { g16 d g, g' ~ g g, d' g g8 fs | } % 31-32 + \oneVoice + + s2.*7 + + \voiceOne + \repeat "percent" 4 { g16 d g, g' ~ g g, d' g g8 fs | } % 40-43 + \oneVoice + \normalsize +%} +} + + +% +% Chord names +% + +Chords = \chordmode +{ +%Bah, can't we set this globally? +% YES, WE CAN!!! :-D +% \popChords + + % Intro + + \partial 4 { s4 } + + \repeat volta 2 + { + f8. c g8 s2 | % 1 + f8. c g8 s2 | % 2 + f8. c g8 s2 | % 3 + f8. c g8 s2 | % 4 + } + + \repeat volta 2 + { + g2 a:m7 | % 5 + c2 d | % 6 + g2 a:m7 | % 7 + c2 d | % 8 + } + + % Chorus + + g2 a:m7 | % 9 + g4./b e8:m7 s2 | % 10 + a2:m7 d4:sus4 d | % 11 + g2 c:sus2 | % 12 + g2 d/fs | % 13 + e4.:m7 c8 s2 | % 14 + g2/d d | % 15 + g2 f4 c | % 16 + +% \repeat volta 2 + { + % Chorus + + g2 a:m7 | % 17 + g4./b e8:m7 s2 | % 18 + a2:m7 d4:sus4 d | % 19 + g2 c:sus2 | % 20 + g2 d/fs | % 21 + e4.:m7 c8 s2 | % 22 + g2/d d | % 23 + + f8. c g8 s2 | % 24 + f8. c g8 s2 | % 25 + f8. c g8 s2 | % 26 + f8. c g8 s2 | % 27 + } +} + + +% +% Chord rhythms +% + +% Use a RhythmicStaff on the chords instead of this? +% It almost works, but not quite. Doesn't collapse chords above to single notes... + +StaffC = \relative c +{ +% \set Voice.autoBeaming = ##f +% \set Staff.instrument = #"Rhythm" + \override Staff.TimeSignature #'style = #'() + \time 4/4 + \override NoteHead #'style = #'slash + + % Intro + + \partial 4 { s4 } + + \repeat volta 2 + { + c8.-> c16-> ~ c8 c8-> ~ c2 | % 1 + c8.-> c16-> ~ c8 c8-> ~ c2 | % 2 + c8.-> c16-> ~ c8 c8-> ~ c2 | % 3 + c8.-> c16-> ~ c8 c8-> ~ c2 | % 4 + } + + \repeat volta 2 + { + c4 c c c | % 5 + c4 c c c | % 6 + c4 c c c | % 7 + c4 c c c | % 8 + } + + % Chorus + + c4 c c c | % 9 + c4 c8 c8 ~ c4 c | % 10 + c4 c c c | % 11 + c4 c c c | % 12 + c4 c c c | % 13 + c4 c8 c8 ~ c4 c | % 14 + c4 c c c | % 15 + c4 c c-> c-> | % 16 + +% \repeat volta 2 + { + % Chorus + + c4 c c c | % 17 + c4 c8 c8 ~ c4 c | % 18 + c4 c c c | % 19 + c4 c c c | % 20 + c4 c c c | % 21 + c4 c8 c8 ~ c4 c | % 22 + c4 c c c | % 23 + + c8.-> c16-> ~ c8 c8-> ~ c2 | % 24 + c8.-> c16-> ~ c8 c8-> ~ c2 | % 25 + c8.-> c16-> ~ c8 c8-> ~ c2 | % 26 + c8.-> c16-> ~ c8 c8-> ~ c2 \bar "|." % 27 + } +} + + +Dynamics = +{ +%{ + s4_\markup { \italic { snare pat. } } s2 | % 1 + s4_\markup { \italic { simile } } s2 | % 2 + s2.*19 + s4_\markup { \italic { spacy } } s2 | % 22 + s2.*5 + s4 s \< s \! | % 28 + s2.*22 + s4_\markup { \italic { Last time } } s2 | % 51 +%} +} + + +\score +{ + << + << + \new Staff = leadStaff { << \new Voice = "lead" \transpose g e \LeadVox \new Voice = "riffs" \transpose g e \Riffs >> } + \new Lyrics \lyricsto "lead" \LeadVoxText + >> + + \new ChoirStaff = "Rhythm" + << + \new ChordNames = "chords" \transpose g e \Chords + \new RhythmicStaff = "chordRhythm" << \StaffC \Dynamics >> + >> + + \set Score.skipBars = ##t + \set Score.melismaBusyProperties = #'() + >> +} + + +\paper +{ + #(define fonts (make-pango-font-tree + "Times New Roman" + "DomCasual BT" + "Luxi Mono" + (/ staffSize 20))) + +% Spread staves vertically across last page (default: t) + ragged-last-bottom = ##f +% Don't spread staves vertically across the page (default: f) +% ragged-bottom = ##t +% Allow partial line for last stave (default: f) + ragged-last = ##t + +% To find out what's eating the space at the top... +% annotate-spacing = ##t +%let's try this: [It works! Huzzah!] + obsolete-page-top-space = 0 top-system-spacing #'basic-distance = #(/ obsolete-page-top-space staff-space) +} diff --git a/go-tell-it-on-the-mountain.ly b/go-tell-it-on-the-mountain.ly new file mode 100644 index 0000000..4800049 --- /dev/null +++ b/go-tell-it-on-the-mountain.ly @@ -0,0 +1,562 @@ +\version "2.16.0" +\include "pop-chords.ly" +\include "english.ly" + +% Good sizes are 16, 18, & 20 +staffSize = #18 +#(set-default-paper-size "letter") +#(set-global-staff-size staffSize) +#(ly:set-option (quote no-point-and-click)) + +%{ Some useful characters: ‘ ’ “ ” – — † ‡ • … %} + +\header +{ +%Let's bump up the title size and switch to the chord font. :-) + + title = \markup { \override #'(font-family . sans) \fontsize #3.5 "Go Tell It On The Mountain" } + composer = \markup { \override #'(font-family . sans) \fontsize #1.3 "Traditional" } + arranger = \markup { \override #'(font-family . sans) \fontsize #1.3 "arr. Ed Smart/Shamus & Deborah Hammons/J. & Kat Michaels/Chris Craig" } + tagline = $(string-append "Engraved by JLH and Lilypond " (lilypond-version)) +} + + +% Useful tweak abbreviations (hn = harmony note) + +hn = #(define-music-function (parser location arg) (ly:music?) +;; Harmony Note: Set the tweaks property of the passed in note to use a smaller font + + (set! (ly:music-property arg 'tweaks) + (acons 'font-size -3.5 (ly:music-property arg 'tweaks))) arg) + + +% +% Lead vocal +% + +LeadVox = \relative c'' +{ +% \set Voice.autoBeaming = ##f +% \set Staff.instrument = #"Lead vox" + \clef G + \key g \major + \override Staff.TimeSignature #'style = #'() + \time 4/4 +\override Score.SpacingSpanner #'average-spacing-wishes = ##f + + % Intro + + \repeat volta 2 + { + r1 | % 1 + r1 | % 2 + r1 | % 3 + r1 | % 4 + } + \time 2/4 r2 \time 4/4 | % 5 + + \repeat volta 2 + { + r1^\markup { \bold { Vamp } } | % 6 + r1 | % 7 + r1 | % 8 + r1 | % 9 + } + + % Chorus + +\mark \markup { \override #'(font-family . sans) { \box { A } } } + + 2 8 | % 10 + d8. ( 16 ~ 8 ) ~ 2 | % 11 + 8 4 8 4 | % 12 + 4 ( ) | % 13 + 2 8 | % 14 + d8. ( 16 ~ 8 ) ~ 4 | % 15 + 4 8 ( ) 4 | % 16 + 2 r | % 17 + + \repeat volta 2 + { + % Chorus + +\mark \markup { \override #'(font-family . sans) { \box { B } } } + + 2 8 | % 18 + d8. ( 16 ~ 8 ) ~ 2 | % 19 + 8 4 8 4 | % 20 + 4 ( ) | % 21 + 2 8 | % 22 + d8. ( 16 ~ 8 ) ~ 4 | % 23 + 4 8 ( ) 4 | % 24 + + 2 r | % 25 + r1 | % 26 + r1^\markup { \hspace #1.0 \raise #0.5 \italic { to Coda 4th time } \hspace #1.0 \musicglyph #"scripts.coda" } + | % 27 +%\once \override Score.RehearsalMark #'self-alignment-X = #right +%\mark \markup { \italic { to Coda 4th time } \hspace #1.0 \musicglyph #"scripts.coda" } +%Ick--only for size 18 +\break + r2 r4 r8 8 \bar "||" % 28 + + % Verse + +\mark \markup { \override #'(font-family . sans) { \box { C } } } + + 8 ~ 4 8 ~ | % 29 + 8 ~ 4 r r8 | % 30 + 4 8. 16 ~ 8 ~ | % 31 + 2 r4 r8 | % 32 + 4 r8 4 8 ~ | % 33 + 8 ~ 4 r r8 | % 34 + 4 8. 16 ~ 8 8 ~ ( | % 35 + 4. 8 ~ 4 ) r | % 36 + } + + % Coda + +%\stopStaff s1 \bar "" \startStaff % That removed the spurious floating bar line from line break +\stopStaff s1 \startStaff +\set Score.currentBarNumber = #37 + +\once \override Score.RehearsalMark #'self-alignment-X = #left +\mark \markup { { \musicglyph #"scripts.coda" } "Coda" } + + r1 | % 37 + \time 2/4 r2 \time 4/4 \bar "||" % 38 + + % Breakdown + +\mark \markup { \override #'(font-family . sans) { \box { D } } } + + r1^\markup { \hspace #0.0 \raise #1.0 \bold { Breakdown } } | % 39 + r1 | % 40 + r1 | % 41 + r1 | % 42 + + % Solos + + \repeat volta 2 + { +\mark \markup { \override #'(font-family . sans) { \box { E } } } + + r1^\markup { \hspace #1.0 \raise #1.0 \bold { Solos } } | % 43 + r1 | % 44 + r1 | % 45 + r1 | % 46 + } + + % Vocal outro + + \repeat volta 2 + { +\mark \markup { \override #'(font-family . sans) { \box { F } } } + + 4 r^\markup { \hspace #0.0 \raise #1.5 \bold { Vocals On Cue } } 8 | % 47 + 4. 8 ~ 2 | % 48 + 4 r 8 | % 49 + 8. 16 ~ 8 ~ 2 | % 50 + } + + % Finale + +\mark \markup { \override #'(font-family . sans) { \box { G } } } + + r1^\markup { \hspace #1.0 \raise #1.0 \bold { On Cue } } | % 51 + r1 | % 52 + r1 | % 53 + r1-\fermata \bar ".|" % 54 +} + +LeadVoxText = \lyricmode +{ + Go tell it on the moun -- _ _ tain, _ + o -- ver the hills and e -- vr’y -- where, _ + Go tell it on the moun -- _ _ tain, _ + that Je -- sus Christ _ is born! + + Go tell it on the moun -- _ _ tain, _ + o -- ver the hills and e -- vr’y -- where, _ + Go tell it on the moun -- _ _ tain, _ + that Je -- sus Christ _ is born! + + While shep -- herds _ kept their watch -- _ in' _ + o'er si -- lent flocks by _ night, _ + Be -- hold, through -- out the hea -- _ vens, _ + there shone a ho -- ly _ light, _ _ _ + + Go, tell it on the moun -- tain, _ + Go, tell it on the moun -- _ _ tain, _ +} + +LeadVoxTextB = \lyricmode +{ + _ _ _ _ _ _ _ _ _ _ + _ _ _ _ _ _ _ _ _ + _ _ _ _ _ _ _ _ _ _ + _ _ _ _ _ _ _ + + _ _ _ _ _ _ _ _ _ _ + _ _ _ _ _ _ _ _ _ + _ _ _ _ _ _ _ _ _ _ + _ _ _ _ _ _ _ + + The shep -- herds _ feared and trem -- _ bled _ + when lo, a -- bove the _ earth, _ + Rang out the an -- gel cho -- _ rus _ + that hailed our Sav -- ior's _ birth, _ _ _ +} + +LeadVoxTextC = \lyricmode +{ + _ _ _ _ _ _ _ _ _ _ + _ _ _ _ _ _ _ _ _ + _ _ _ _ _ _ _ _ _ _ + _ _ _ _ _ _ _ + + _ _ _ _ _ _ _ _ _ _ + _ _ _ _ _ _ _ _ _ + _ _ _ _ _ _ _ _ _ _ + _ _ _ _ _ _ _ + + Down in _ a low -- ly man -- _ ger _ + the hum -- ble Christ was _ born, _ + And God sent us sal -- va -- _ tion _ + that bless -- ed Christ -- mas _ morn, _ _ _ +} + + +Riffs = \relative c'' +{ + \clef G + \key g \major + \override Staff.TimeSignature #'style = #'() + \time 4/4 +\override Score.SpacingSpanner #'average-spacing-wishes = ##f + + % Intro + +%{ + \tiny + \repeat "percent" 3 % 1 - 6 + { + << { \tiny f16 c f, ~ f, c' f f8 e } \\ { \tiny f,,2 c'4 } >> | % 1 + << { \tiny f'16 c f, ~ f, c' f f8 e } \\ { \tiny bf,2 c4 } >> | % 2 + } + << s2. \\ { \tiny d2 c4 } >> | % 7 + << s2. \\ { \tiny bf2. } >> | % 8 + + s2.*7 + + \voiceOne + \repeat "percent" 6 { f''16 c f, ~ f, c' f f8 e | } % 16-21 + \oneVoice + + s2.*7 + + \voiceOne + \repeat "percent" 2 { f16 c f, f' ~ f f, c' f f8 e | } % 29-30 + \oneVoice + + \key g \major + + \voiceOne + \repeat "percent" 2 { g16 d g, g' ~ g g, d' g g8 fs | } % 31-32 + \oneVoice + + s2.*7 + + \voiceOne + \repeat "percent" 4 { g16 d g, g' ~ g g, d' g g8 fs | } % 40-43 + \oneVoice + \normalsize +%} +} + + +% +% Chord names +% + +Chords = \chordmode +{ +%Bah, can't we set this globally? +% \popChords + + % Intro + + \repeat volta 2 + { + f8. c g8 s2 | % 1 + f8. c g8 s2 | % 2 + f8. c g8 s2 | % 3 + f8. c g8 s2 | % 4 + } + \time 2/4 s2 \time 4/4 | % 5 + + \repeat volta 2 + { + g2 a:m7 | % 6 + c2 d | % 7 + g2 a:m7 | % 8 + c2 d | % 9 + } + + % Chorus + + g2 a:m7 | % 10 + g4./b e8:m7 s2 | % 11 + a2:m7 d4:sus4 d | % 12 + g2 c:sus2 | % 13 + g2 d/fs | % 14 + e4.:m7 c8 s2 | % 15 + g2/d d | % 16 + g2 f4 c | % 17 + + \repeat volta 2 + { + % Chorus + + g2 a:m7 | % 10 + g4./b e8:m7 s2 | % 11 + a2:m7 d4:sus4 d | % 12 + g2 c:sus2 | % 13 + g2 d/fs | % 14 + e4.:m7 c8 s2 | % 15 + g2/d d | % 16 + + f8. c g8 s2 | % 17 + f8. c g8 s2 | % 18 + f8. c g8 s2 | % 19 + f8. c g8 s2 | % 20 + + % Verse + + g2 a:m7 | % 21 + g2/b e:m7 | % 22 + a2:m7 d4:sus4 d | % 23 + g2 f4 c | % 24 + g2 a:m7 | % 25 + g2/b e:m7 | % 26 + a2.:7 s8 d:7 | % 27 + s1 | % 28 + } + +s1 + + % Coda + + f8. c g8 s2 | % 29 + \time 2/4 s2 \time 4/4 | % 30 + + % Breakdown + + g2 a:m7 | % 31 + c2 d | % 32 + g2 a:m7 | % 33 + c2 d | % 34 + + % Solos + + \repeat volta 2 + { + g2 a:m7 | % 35 + c2 d | % 36 + g2 a:m7 | % 37 + c2 d | % 38 + } + + % Vocal outro + + \repeat volta 2 + { + g2 a:m7 | % 39 + c2 d | % 40 + g2 a:m7 | % 41 + c2 d | % 42 + } + + % Finale + + f8. c g8 s2 | % 43 + f8. c g8 s2 | % 44 + f8. c g8 s2 | % 45 + f8. c g8 s2 | % 46 +} + + +% +% Chord rhythms +% + +% Use a RhythmicStaff on the chords instead of this? +% It almost works, but not quite. Doesn't collapse chords above to single notes... + +StaffC = \relative c +{ +% \set Voice.autoBeaming = ##f +% \set Staff.instrument = #"Rhythm" + \override Staff.TimeSignature #'style = #'() + \time 4/4 + \override NoteHead #'style = #'slash + + % Intro + + \repeat volta 2 + { + c8.-> c16-> ~ c8 c8-> ~ c2 | % 1 + c8.-> c16-> ~ c8 c8-> ~ c2 | % 2 + c8.-> c16-> ~ c8 c8-> ~ c2 | % 3 + c8.-> c16-> ~ c8 c8-> ~ c2 ~ | % 4 + } + \time 2/4 c2 \time 4/4 | % 5 + + \repeat volta 2 + { + c4 c c c | % 6 + c4 c c c | % 7 + c4 c c c | % 8 + c4 c c c | % 9 + } + + % Chorus + + c4 c c c | % 10 + c4 c8 c8 ~ c4 c | % 11 + c4 c c c | % 12 + c4 c c c | % 13 + c4 c c c | % 14 + c4 c8 c8 ~ c4 c | % 15 + c4 c c c | % 16 + c4 c c-> c-> | % 17 + + \repeat volta 2 + { + % Chorus + + c4 c c c | % 10 + c4 c8 c8 ~ c4 c | % 11 + c4 c c c | % 12 + c4 c c c | % 13 + c4 c c c | % 14 + c4 c8 c8 ~ c4 c | % 15 + c4 c c c | % 16 + + c8.-> c16-> ~ c8 c8-> ~ c2 | % 17 + c8.-> c16-> ~ c8 c8-> ~ c2 | % 18 + c8.-> c16-> ~ c8 c8-> ~ c2 | % 19 + c8.-> c16-> ~ c8 c8-> ~ c2 \bar "||" % 20 + + % Verse + + c4 c c c | % 21 + c4 c c c | % 22 + c4 c c c | % 23 + c4 c c-> c-> | % 24 + c4 c c c | % 25 + c4 c c c | % 26 + c4 c c r8 c ~ | % 27 + c4 c c c | % 28 + } + + % Coda + +%\stopStaff s1 \bar "" \startStaff % That removed the spurious floating bar line from line break +\stopStaff s1 \startStaff +\set Score.currentBarNumber = #37 + + c8.-> c16-> ~ c8 c8-> ~ c2 ~ | % 29 + \time 2/4 c2 \time 4/4 \bar "||" % 30 + + % Breakdown + + c4 c c c | % 31 + c4 c c c | % 32 + c4 c c c | % 33 + c4 c c c | % 34 + + % Solos + + \repeat volta 2 + { + c4 c c c | % 35 + c4 c c c | % 36 + c4 c c c | % 37 + c4 c c c | % 38 + } + + % Vocal outro + + \repeat volta 2 + { + c4 c c c | % 39 + c4 c c c | % 40 + c4 c c c | % 41 + c4 c c c | % 42 + } + + % Finale + + c8.-> c16-> ~ c8 c8-> ~ c2 | % 43 + c8.-> c16-> ~ c8 c8-> ~ c2 | % 44 + c8.-> c16-> ~ c8 c8-> ~ c2 | % 45 + c8.-> c16-> ~ c8 c8-> ~ c2-\fermata \bar "|." % 46 +} + + +Dynamics = +{ +%{ + s4_\markup { \italic { snare pat. } } s2 | % 1 + s4_\markup { \italic { simile } } s2 | % 2 + s2.*19 + s4_\markup { \italic { spacy } } s2 | % 22 + s2.*5 + s4 s \< s \! | % 28 + s2.*22 + s4_\markup { \italic { Last time } } s2 | % 51 +%} +} + + +\score +{ + << + << +% \new Staff = leadStaff { \new Voice = "lead" \LeadVox } + \new Staff = leadStaff { << \new Voice = "lead" \LeadVox \new Voice = "riffs" \Riffs >> } + \new Lyrics \lyricsto "lead" \LeadVoxText + \new Lyrics \lyricsto "lead" \LeadVoxTextB + \new Lyrics \lyricsto "lead" \LeadVoxTextC + >> + + \new ChoirStaff = "Rhythm" + << + \new ChordNames = "chords" \Chords + \new RhythmicStaff = "chordRhythm" << \StaffC \Dynamics >> + >> + + \set Score.skipBars = ##t + \set Score.melismaBusyProperties = #'() + >> + + \layout + { +% \context { \Staff \RemoveEmptyStaves } +% ragged-last-bottom = ##t + ragged-last = ##t + } +} + + +\paper +{ + #(define fonts (make-pango-font-tree + "Times New Roman" + "DomCasual BT" + "Luxi Mono" + (/ staffSize 20))) + +% top-margin = -0.25 \in +} diff --git a/god-is-great.ly b/god-is-great.ly new file mode 100755 index 0000000..92067b6 --- /dev/null +++ b/god-is-great.ly @@ -0,0 +1,825 @@ +%Numerous problems still exist... !!! FIX !!! + +\version "2.16.0" +\include "pop-chords.ly" +\include "english.ly" + +% Good sizes are 16, 18, & 20 +staffSize = #16 +#(set-default-paper-size "letter") +#(set-global-staff-size staffSize) +#(ly:set-option (quote no-point-and-click)) + +\header +{ +%Let's bump up the title size and switch to the chord font. :-) + + title = \markup { \override #'(font-family . sans) \fontsize #3.5 "God Is Great" } +% composer = \markup { \override #'(font-family . sans) \fontsize #1.3 "Twila Paris" } + arranger = \markup { \override #'(font-family . sans) \fontsize #1.3 "arr. Ed Smart" } + tagline = "Engraved by JLH and Lilypond 2.8.2" +} + + +% +% Lead vocal +% + +LeadVox = \relative c' +{ +% \set Voice.autoBeaming = ##f +% \set Staff.instrumentName = #"Lead vox" + \clef G + \key a \major + \override Staff.TimeSignature #'style = #'() + \time 4/4 +\override Score.SpacingSpanner #'average-spacing-wishes = ##f + + % Intro + + \partial 2 r2 | % 0 + + \repeat volta 2 + { + R1 | % 1 + R1 | % 2 + R1 | % 3 + R1 | % 4 + } + + % Verse + +\mark \markup { \override #'(font-family . sans) { \box { A } } } + + r2 cs8 e4 e8 ~ | % 5 + e8 a,4 d8 ~ d cs4 b8 ~ | % 6 + b4 r r2 | % 7 + R1 | % 8 + r4 cs8 e e e4 e8 ~ | % 9 + e8 a,4 d8 ~ d cs4 b8 ~ | % 10 + b4 r r2 | % 11 + R1 | % 12 + r2 cs8 e4 e8 ~ | % 13 + e8 a,4 d8 ~ d cs4 b8 ~ | % 14 + b4 r r2 | % 15 + cs4 b8 b8 ~ b8 a4 a8 ~ | % 16 + a4 r r2 | % 17 + R1 | % 18 + R1 | % 19 + R1 \bar "||" % 20 + + r2 cs8 e4 e8 ~ | % 21 + e8 a,4 d8 ~ d cs4 b8 ~ | % 22 + b4 r r2 | % 23 + R1 | % 24 + r2 cs8 e4 e8 ~ | % 25 + e8 a,4 d8 ~ d cs4 b8 ~ | % 26 + b4 r r2 | % 27 + R1 | % 28 + r2 cs8 e4 e8 ~ | % 29 + e8 a,4 d8 ~ d cs4 b8 ~ | % 30 + b4 r r2 | % 31 + cs4 b8 b8 ~ b4 a8 a ~ | % 32 + a4 r r2 | % 33 + R1 | % 34 + R1 | % 35 + r2 a4 cs \bar "||" % 36 + + % Chorus + +\once \override Score.RehearsalMark #'self-alignment-X = #left +\mark \markup { \override #'(font-family . sans) { \box { B } } \hspace #1.0 \raise #2.0 \musicglyph #"scripts.segno" } +%\musicglyph #"scripts.segno" \italic { band in } } + + cs4 r a cs | % 37 + cs4 r d cs8 b ~ | % 38 + b8 r r4 d cs8 b ( | % 39 + a8 ) a4 r8 a4 cs | % 40 + cs4 r8 a ~ a cs4 cs8 ~ | % 41 + cs4 a8 d ~ d4 cs8 cs ( | % 42 + b2 ) r | % 43 + r2 a4 cs | % 44 + cs4 r a cs | % 45 + cs4 r d cs8 b ~ | % 46 + b8 r r4 d cs8 b ( | % 47 + a8 ) a4 r8 a4 cs | % 48 + cs4 a8 a ~ a cs4 cs8 ~ | % 49 + cs8 a4 d8 ~ d cs ( b ) b ~ | % 50 + b2. r8 e, | % 51 + cs'4 b8 b ~ b a4 a8 ~ \bar "||" % 52 +\once \override Score.RehearsalMark #'self-alignment-X = #right +\mark \markup { \italic { To Coda } \hspace #1.0 \musicglyph #"scripts.coda" } + + % Midtro + + a1 | % 53 + R1 | % 54 + R1 | % 55 + R1 \bar "||" % 56 + + % Verse + +\mark \markup { \override #'(font-family . sans) { \box { C } } } + + r2 cs8 e4 e8 ~ | % 57 + e8 a,4 d8 ~ d cs4 b8 ~ | % 58 + b4 r r2 | % 59 + R1 | % 60 + r2 cs8 e4 e8 ~ | % 61 + e8 a,4 d8 ~ d cs4 b8 ~ | % 62 + b4 r r2 | % 63 + R1 | % 64 + r2 cs8 e4 e8 ~ | % 65 + e8 a,4 d8 ~ d cs4 b8 ~ | % 66 + b4 r r2 | % 67 + cs4 ( b8 ) b8 ~ b4 a8 a ~ | % 68 + a1 | % 69 + r2 r4 e8 d' ~ | % 70 + d8 cs ( b ) b ~ b2 | % 71 + r2 a4 cs \bar "||" % 72 + +\once \override Score.RehearsalMark #'self-alignment-X = #right +\mark \markup { \italic { D.S. al Coda } } + + % Coda + +%\stopStaff s1 \bar "" \startStaff % That removed the spurious floating bar line from line break +\stopStaff s1 \startStaff +\set Score.currentBarNumber = #73 + +\once \override Score.RehearsalMark #'self-alignment-X = #left +\mark \markup { { \musicglyph #"scripts.coda" } "Coda" } + + \repeat volta 2 + { + R1 | % 73 + R1 | % 74 + R1 | % 75 + R1 | % 76 + } + + % Bridge + + \repeat volta 2 + { + e2 e | % 77 + e a,4 ( b ) | % 78 + b1 | % 79 + r4 a8 d ~ d cs4 a8 ( | % 80 + fs1 ) | % 81 + r4 a8 d ~ d cs4 b8 ~ | % 82 + b1 | % 83 + R1 | % 84 + } + + e2 e | % 85 + e a,4 ( b ) | % 86 + b1 | % 87 + r4 a8 d ~ d cs4 a8 ( | % 88 + fs1 ) | % 89 + r4 a8 d ~ d cs4 b8 ~ | % 90 + b1 | % 91 + R1 \bar "||" % 92 + + e2 e | % 93 + e a,4 ( b ) | % 94 + b1 | % 95 + r4 a8 d ~ d cs4 a8 ( | % 96 + fs1 ) | % 97 + r4 a8 d ~ d cs4 b8 ~ | % 98 + b1 | % 99 + r2 a4 cs \bar "||" % 100 + + % Chorus + + \repeat volta 2 + { + cs4 r a cs | % 101 + cs4 r d cs8 b ~ | % 102 + b8 r r4 d cs8 b ( | % 103 + a8 ) a4 r8 a4 cs | % 104 + cs4 r8 a ~ a cs4 cs8 ~ | % 105 + cs4 a8 d ~ d4 cs8 cs ( | % 106 + b2 ) r | % 107 + r2 a4 cs \bar "||" % 108 + + cs4 r a cs | % 109 + cs4 r d cs8 b ~ | % 110 + b8 r r4 d cs8 b ( | % 111 + a8 ) a4 r8 a4 cs | % 112 + cs4 a8 a ~ a cs4 cs8 ~ | % 113 + cs8 a4 d8 ~ d cs ( b ) b ~ | % 114 + b2. r4 | % 115 +% cs'4 b8 b ~ b a4 a8 ~ | % 116 + } + \alternative + { + { + r2 a4 cs | % 116 + } + { + R1 | % 117 + } + } + + R1 | % 118 + R1 | % 119 + R1 | % 120 + R1 | % 121 + + % Outro + + \repeat volta 2 + { + R1 | % 122 + R1 | % 123 + R1 | % 124 + R1 | % 125 + } + + r1^\fermata | % 126 +} + +LeadVoxText = \lyricmode +{ + All cre- a- _ tion cries _ to you _ + Wor- ship- ping in spi- _ rit and _ in truth _ + Glo- ry to _ the faith- _ ful one _ + Je- sus Christ _ God's son _ + + All cre- a- _ tion gives _ you praise _ + You a- lone _ are tru- _ ly great _ + You a- lone _ are God _ who reigns _ + For e- ter- _ ni- ty _ + + God is great and his praise + fills the earth, _ fills the hea- _ vens + and your name will _ be praised _ + through all _ the world _ + + God is great, sing his praise + all the earth, _ all the hea- _ vens + 'cause we're li- ving for _ the glo- _ ry + of _ your _ name _ + The glo- ry of _ your name. _ + + All to you _ O God _ we bring _ + Je- sus teach _ us how _ to live _ + Let your fi- _ re burn _ in us _ + That _ all _ may hear _ + and all _ may _ see _ + + God is + + Ho- ly is the _ Lord + The whole _ earth sings _ + The whole _ earth sings _ + + Ho- ly is the _ Lord + The whole _ earth sings _ + The whole _ earth sings _ + + Ho- ly is the _ Lord + The whole _ earth sings _ + The whole _ earth sings _ + + God is great and his praise + fills the earth, _ fills the hea- _ vens + and your name will _ be praised _ + through all _ the world _ + + God is great, sing his praise + all the earth, _ all the hea- _ vens + 'cause we're li- ving for _ the glo- _ ry + of _ your _ name _ + + God is + + The glo- ry of _ your name. _ +} + +LeadVoxTextB = \lyricmode +{ +} + + +Riffs = \relative c'' +{ + \clef G + \key a \major + \override Staff.TimeSignature #'style = #'() + \time 4/4 +\override Score.SpacingSpanner #'average-spacing-wishes = ##f + + % Intro + +%{ + \tiny + \repeat "percent" 3 % 1 - 6 + { + << { \tiny f16 c f, ~ f, c' f f8 e } \\ { \tiny f,,2 c'4 } >> | % 1 + << { \tiny f'16 c f, ~ f, c' f f8 e } \\ { \tiny bf,2 c4 } >> | % 2 + } + << s2. \\ { \tiny d2 c4 } >> | % 7 + << s2. \\ { \tiny bf2. } >> | % 8 + + s2.*7 + + \voiceOne + \repeat "percent" 6 { f''16 c f, ~ f, c' f f8 e | } % 16-21 + \oneVoice + + s2.*7 + + \voiceOne + \repeat "percent" 2 { f16 c f, f' ~ f f, c' f f8 e | } % 29-30 + \oneVoice + + \key g \major + + \voiceOne + \repeat "percent" 2 { g16 d g, g' ~ g g, d' g g8 fs | } % 31-32 + \oneVoice + + s2.*7 + + \voiceOne + \repeat "percent" 4 { g16 d g, g' ~ g g, d' g g8 fs | } % 40-43 + \oneVoice + \normalsize +%} +} + + +% +% Chord names +% + +Chords = \chordmode +{ + % Intro + + \partial 2 s2 | % 0 + + \repeat volta 2 + { + a1 | % 1 + d1:sus2 | % 2 + e1:11^7.9 | % 3 + d1:sus2 | % 4 + } + + % Verse + + a2.. d8:sus2 | % 5 + s2.. e8:sus4 | % 6 + s2.. e8 | % 7 + s1 | % 8 + a2.. d8:sus2 | % 9 + s2.. e8:sus4 | % 10 + s2.. e8 | % 11 + s1 | % 12 + fs2..:m7 d8:sus2 | % 13 + s2.. e8:sus4 | % 14 + s1 | % 15 + fs4.:m7 e2 d8:sus2 | % 16 + s2.. e8 | % 17 + s1 | % 18 + d2..:sus2 e8 | % 19 + s2.. a8 | % 20 + + s2.. d8:sus2 | % 21 + s2.. e8:sus4 | % 22 + s2.. e8 | % 23 + s1 | % 24 + a2.. d8:sus2 | % 25 + s2.. e8:sus4 | % 26 + s2.. e8 | % 27 + s1 | % 28 + fs2..:m7 d8:sus2 | % 29 + s2.. e8:sus4 | % 30 + s1 | % 31 + fs4.:m7 e2 d8:sus2 | % 32 + s2.. e8:11^7.9 | % 33 + s1 | % 34 + d2.. e8:11^7.9 | % 35 + s1 | % 36 + + % Chorus + + a1 | % 37 + d1:sus2 | % 38 + e1:sus4 | % 39 + d1:sus2 | % 40 + a1 | % 41 + fs1:m7 | % 42 + e1:sus4 | % 43 + e1 | % 44 + a1 | % 45 + d1:sus2 | % 46 + e1:sus4 | % 47 + d1:sus2 | % 48 + fs1:m7 | % 49 + d1:sus2 | % 50 + e1:sus4 | % 51 + e1 | % 52 + + % Midtro + + d1 | % 53 + fs1:m7 | % 54 + e1:sus4 | % 55 + e1 | % 56 + + % Verse + + a2.. d8:sus2 | % 57 + s2.. e8:sus4 | % 58 + s2.. e8 | % 59 + s1 | % 60 + a2.. d8:sus2 | % 61 + s2.. e8:sus4 | % 62 + s2.. e8 | % 63 + s1 | % 64 + fs2..:m7 d8:sus2 | % 65 + s2.. e8:sus4 | % 66 + s1 | % 67 + fs4.:m7 e2 d8:sus2 | % 68 + s1 | % 69 + s2.. e8:sus4 | % 70 + s1 | % 71 + s1 | % 72 + + % Coda + +%\stopStaff s1 \startStaff +s1 + + \repeat volta 2 + { + d1 | % 73 + fs1:m7 | % 74 + e1:sus4 | % 75 + e1 | % 76 + } + + % Bridge + + \repeat volta 2 + { + a2.. d8:sus2 | % 77 + s2.. e8:sus4 | % 78 + s2.. e8 | % 79 + s1 | % 80 + fs2..:m7 d8:sus2 | % 81 + s2.. e8:sus4 | % 82 + s2.. e8 | % 83 + s1 | % 84 + } + + a1 | % 85 + d1:sus2 | % 86 + e1 | % 87 + e1 | % 88 + fs1:m7 | % 89 + d1:sus2 | % 90 + e1:sus4 | % 91 + e1 | % 92 + + a1 | % 93 + d1:sus2 | % 94 + e1 | % 95 + e1 | % 96 + fs1:m7 | % 97 + d1:sus2 | % 98 + e1:sus4 | % 99 + e1 | % 100 + + % Chorus + + \repeat volta 2 + { + a1 | % 101 + d1:sus2 | % 102 + e1:sus4 | % 103 + d1:sus2 | % 104 + a1 | % 105 + fs1:m7 | % 106 + e1:sus4 | % 107 + e1 | % 108 + + a1 | % 109 + d1:sus2 | % 110 + e1:sus4 | % 111 + d1:sus2 | % 112 + fs1:m7 | % 113 + d1:sus2 | % 114 + e1:sus4 | % 115 + } + \alternative + { + { + e1:sus4 | % 116 + } + { + e1:sus4 | % 117 + } + } + + fs1:m7 | % 118 + d1:sus2 | % 119 + e1:sus4 | % 120 + e1 | % 121 + + % Outro + + \repeat volta 2 + { + a1 | % 122 + d1:sus2 | % 123 + e1:11^7.9 | % 124 + d1:sus2 | % 125 + } + + a1 | % 126 +} + +% +% Alternate chord changes (2nd verse) +% +ChordsSup = \chordmode +{ + % Intro + +%{ + s2.*8 | % 1-8 + + % Verse + + bf4/d c2/e | % 9 + f8 f/a bf2 | % 10 + f4/g bf/g f/g | % 11 + c2:sus4 c4 | % 12 +%} +} + +% +% Chord rhythms +% + +% Use a RhythmicStaff on the chords instead of this? +% It almost works, but not quite. Doesn't collapse chords above to single notes... + +StaffC = \relative c +{ +% \set Voice.autoBeaming = ##f +% \set Staff.instrumentName = #"Rhythm" + \override Staff.TimeSignature #'style = #'() + \time 4/4 + \override NoteHead #'style = #'slash + + % Intro + + \partial 2 c4-> c-> | % 0 + + \repeat volta 2 + { + c4. c8 ~ c4 c | % 1 + c4. c8 ~ c4 c | % 2 + c4. c8 ~ c4 c | % 3 + c4. c8 ~ c4 c | % 4 + } + + % Verse + + c4 c-> c8 c c c ~ | % 5 + c4 c-> c8 c c c ~ | % 6 + c4 c-> c8 c c c ~ | % 7 + c4 c-> c8 c c c | % 8 + c4 c-> c8 c c c ~ | % 9 + c4 c-> c8 c c c ~ | % 10 + c4 c-> c8 c c c ~ | % 11 + c4 c-> c8 c c c | % 12 + c4 c-> c8 c c c ~ | % 13 + c4 c-> c8 c c c ~ | % 14 + c4 c-> c8 c c c | % 15 + c4. c8 ~ c4. c8 ~ | % 16 + c2. ~ c8 c ~ | % 17 + c1 | % 18 + c2. ~ c8 c ~ | % 19 + c2. ~ c8 c-> ~ \bar "||" % 20 + + c4 c-> c8 c c c ~ | % 21 + c4 c-> c8 c c c ~ | % 22 + c4 c-> c8 c c c ~ | % 23 + c4 c-> c8 c c c | % 24 + c4 c-> c8 c c c ~ | % 25 + c4 c-> c8 c c c ~ | % 26 + c4 c-> c8 c c c ~ | % 27 + c4 c-> c8 c c c | % 28 + c4 c-> c8 c c c ~ | % 29 + c4 c-> c8 c c c ~ | % 30 + c4 c-> c8 c c c | % 31 + c4. c8 ~ c4. c8 ~ | % 32 + c2. ~ c8 c ~ | % 33 + c1 | % 34 + c2. ~ c8 c ~ | % 35 + c1 \bar "||" % 36 + + % Chorus + + c4 c c c | % 37 + c4 c c c | % 38 + c4 c c c | % 39 + c4 c c c | % 40 + c4 c c c | % 41 + c4 c c c | % 42 + c4 c c c | % 43 + c4 c c c | % 44 + c4 c c c | % 45 + c4 c c c | % 46 + c4 c c c | % 47 + c4 c c c | % 48 + c4 c c c | % 49 + c4 c c c | % 50 + c4 c c c | % 51 + c4 c c c \bar "||" % 52 + + % Midtro + + c4 c c c | % 53 + c4 c c c | % 54 + c4 c c c | % 55 + c4 c c c | % 56 + + % Verse + + c4 c-> c8 c c c ~ | % 57 + c4 c-> c8 c c c ~ | % 58 + c4 c-> c8 c c c ~ | % 59 + c4 c-> c8 c c c | % 60 + c4 c-> c8 c c c ~ | % 61 + c4 c-> c8 c c c ~ | % 62 + c4 c-> c8 c c c ~ | % 63 + c4 c-> c8 c c c | % 64 + c4 c-> c8 c c c ~ | % 65 + c4 c-> c8 c c c ~ | % 66 + c4 c-> c8 c c c | % 67 + c4. c8 ~ c4. c8 ~ | % 68 + c4 c c c | % 69 + c4 c c c8 c ~ | % 70 + c4 c c c | % 71 + c4 c c c \bar "||" % 72 + + % Coda + +%\stopStaff s1 \bar "" \startStaff % That removed the spurious floating bar line from line break +\stopStaff s1 \startStaff +\set Score.currentBarNumber = #73 + + \repeat volta 2 + { + c4 c c c | % 73 + c4 c c c | % 74 + c4 c c c | % 75 + c4 c c c | % 76 + } + + % Bridge + + \repeat volta 2 + { + c4 c-> c8 c c c ~ | % 77 + c4 c-> c8 c c c ~ | % 78 + c4 c-> c8 c c c ~ | % 79 + c4 c-> c8 c c c | % 80 + c4 c-> c8 c c c ~ | % 81 + c4 c-> c8 c c c ~ | % 82 + c4 c-> c8 c c c ~ | % 83 + c4 c-> c8 c c c | % 84 + } + + c4 c c c | % 85 + c4 c c c | % 86 + c4 c c c | % 87 + c4 c c c | % 88 + c4 c c c | % 89 + c4 c c c | % 90 + c4 c c c | % 91 + c4 c c c \bar "||" % 92 + + c4 c c c | % 93 + c4 c c c | % 94 + c4 c c c | % 95 + c4 c c c | % 96 + c4 c c c | % 97 + c4 c c c | % 98 + c4 c c c | % 99 + c4 c c c \bar "||" % 100 + + % Chorus + + \repeat volta 2 + { + c4 c2.-> ~ | % 101 + c4 c2.-> ~ | % 102 + c4 c2.-> ~ | % 103 + c4 c2.-> ~ | % 104 + c4 c2.-> ~ | % 105 + c4 c2.-> | % 106 + c8 c c c c c c c | % 107 + r8 c-> c4-> r8 c-> c-> c-> \bar "||" % 108 + + c4 c c c | % 109 + c4 c c c | % 110 + c4 c c c | % 111 + c4 c c c | % 112 + c4 c c c | % 113 + c4 c c c | % 114 + c4 c c c | % 115 + } + \alternative + { + { + c4 c c c | % 116 + } + { + c4 c c c | % 117 + } + } + + c4 c c c | % 118 + c4 c c c | % 119 + c4 c c c | % 120 + c4 c c c | % 121 + + % Outro + + \repeat volta 2 + { + c4. c8 ~ c4 c | % 122 + c4. c8 ~ c4 c | % 123 + c4. c8 ~ c4 c | % 124 + c4. c8 ~ c4 c | % 125 + } + + c1^\fermata | % 126 +} + + +Dynamics = +{ + s4_\markup { \italic { drum fill } } s | % 0 +%{ + s4_\markup { \italic { snare pat. } } s2 | % 1 + s4_\markup { \italic { simile } } s2 | % 2 + s2.*19 + s4_\markup { \italic { spacy } } s2 | % 22 + s2.*5 + s4 s \< s \! | % 28 + s2.*22 + s4_\markup { \italic { Last time } } s2 | % 51 +%} +} + + +\score +{ + << + << +% \new Staff = leadStaff { \new Voice = "lead" \LeadVox } + \new Staff = leadStaff { << \new Voice = "lead" \LeadVox \new Voice = "riffs" \Riffs >> } + \new Lyrics \lyricsto "lead" \LeadVoxText + \new Lyrics \lyricsto "lead" \LeadVoxTextB + >> + + \new ChoirStaff = "Rhythm" + << + \new ChordNames = "chords" \Chords + \new ChordNames = "chords2" \ChordsSup + \new RhythmicStaff = "chordRhythm" << \StaffC \Dynamics >> + >> + + \set Score.skipBars = ##t + \set Score.melismaBusyProperties = #'() + >> + + \layout + { +% \context { \Staff \RemoveEmptyStaves } + ragged-last-bottom = ##t + ragged-last = ##t + } +} + + +\paper +{ + #(define fonts (make-pango-font-tree + "Times New Roman" + "DomCasual BT" + "Luxi Mono" + (/ staffSize 20))) + +% top-margin = -0.25 \in +} diff --git a/god-is-my-redeemer.ly b/god-is-my-redeemer.ly new file mode 100755 index 0000000..8bba748 --- /dev/null +++ b/god-is-my-redeemer.ly @@ -0,0 +1,300 @@ +\version "2.16.0" +\include "pop-chords.ly" +\include "english.ly" + +% Good sizes are 16, 18, & 20 +staffSize = #18 +#(set-default-paper-size "letter") +#(set-global-staff-size staffSize) +#(ly:set-option (quote no-point-and-click)) + +\header +{ + title = \markup { \override #'(font-family . sans) \fontsize #3.5 "God Is My Redeemer" } +% composer = \markup { \override #'(font-family . sans) \fontsize #1.3 "Traditional" } + arranger = \markup { \override #'(font-family . sans) \fontsize #1.3 "arr. Ed Smart" } + tagline = "Engraved by JLH and Lilypond 2.8.6" +} + + +% +% Lead vocal +% + +LeadVox = \relative c' +{ +% \set Voice.autoBeaming = ##f +% \set Staff.instrumentName = #"Lead vox" + \clef G + \key d \major + \override Staff.TimeSignature #'style = #'() + \time 4/4 +\override Score.SpacingSpanner #'average-spacing-wishes = ##f + + % Intro + + \tiny + r4 8 [ 16 16 ] ~ 8 [ ] 4 | % 1 + r4 8 [ 16 16 ] ~ 8 [ ] 4 | % 2 + r4 g, fs e | % 3 + d1 | % 4 + \normalsize + + % Verse + + \repeat volta 3 + { +\mark \markup { \override #'(font-family . sans) { \box { A } } } + + fs2^\markup { \italic { 3rd time instr. solo to B } } e | % 5 + d2 r4. a'8 | % 6 + b2 ~ b8 [ a g a ] | % 7 + a2 r | % 8 + fs2 e | % 9 + d2. ~ d8 [ fs ] | % 10 + g4. g8 g8. [ fs16 ] ~ fs8 [ d ] | % 11 + e2. r8 a, \bar"||" % 12 + +\mark \markup { \override #'(font-family . sans) { \box { B } } } + + fs'2 e | d2. ~ d8 [ a' ] | % 14 + b2 ~ b8 [ a g a ] | % 15 + a1 | % 16 + r4 8 [ 16 16 ] ~ 8 [ ] 4 | % 17 + r4 8 [ 16 16 ] ~ 8 [ ] 4 | % 18 + r4 g, fs e | % 19 + } + \alternative + { + { + d1 | % 20 + } + { + d2 r | % 21 + } + } + + % Outro + +\mark \markup { \override #'(font-family . sans) { \box { C } } } + r4 8 [ 16 16 ] ~ 8 [ ] 4 | % 22 + r4 8 [ 16 16 ] ~ 8 [ ] 4 | % 23 + r4 g, fs e | % 24 + d1 | % 25 + + \repeat volta 3 + { +\mark \markup { \override #'(font-family . sans) { \box { D } } } +% \mark \default + r4^\markup { \italic { 3x } } 8 [ 16 16 ] ~ 8 [ ] 4 | % 26 + r4 8 [ 16 16 ] ~ 8 [ ] 4 | % 27 + } + + % Ending + + r4 g, fs e | % 28 + d1^\fermata \bar "|." % 29 +} + +LeadVoxText = \lyricmode +{ + _ _ _ _ _ _ _ _ + _ _ _ _ _ _ _ _ + + God is my re- dee- __ _ _ _ _ mer + He heals me _ with re- a- ssu- __ _ _ ring love + And I love my _ re- dee- __ _ _ _ _ mer + O- ver- whel- __ _ _ ming + o- ver- co- __ _ _ ming + re- dee- ming love + + love + + O- ver- whel- __ _ _ ming + o- ver- co- __ _ _ ming + re- dee- ming love + + O- ver- whel- __ _ _ ming + o- ver- co- __ _ _ ming + + re- dee- ming love +} + + +% +% Chord names +% + +Chords = \chordmode +{ +%Bah, can't we set this globally? +% \popChords + + % Intro + + g1 | % 1 + d2./fs b4:m7 | % 2 + e2:m7 d4/a a | % 3 + d2 g/a | % 4 + + % Verse + + \repeat volta 3 + { + d2 a | % 5 + b2:m7 b:m7/a | % 6 + g1 | % 7 + d1 | % 8 + d2 a/cs | % 9 + b2:m7 b:m7/a | % 10 + e1:m7 | % 11 + a2:sus4 a | % 12 + + d2 a/cs | % 13 + b2:m7 b:m7/a | % 14 + g1 | % 15 + d2 e4:m11 d/fs | % 16 + g1 | % 17 + d2./fs b4:m7 | % 18 + e2:m7 d4/a a | % 19 + } + \alternative + { + { + d2 g/a | % 20 + } + { + d2 e4:m11 d/fs | % 21 + } + } + + % Outro + + g1 | % 22 + d2./fs b4:m7 | % 23 + e2:m7 d4/a a | % 24 + d2 e4:m11 d/fs | % 25 + + \repeat volta 3 + { + g1 | % 26 + d2./fs b4:m7 | % 27 + } + + % Ending + + e2:m7 d4/a a | % 28 + d1 \bar "|." % 29 +} + + +% +% Chord rhythms +% + +% Use a RhythmicStaff on the chords instead of this? +% It almost works, but not quite. Doesn't collapse chords above to single notes... + +StaffC = \relative c +{ +% \set Voice.autoBeaming = ##f +% \set Staff.instrumentName = #"Rhythm" + \override Staff.TimeSignature #'style = #'() + \time 4/4 + \override NoteHead #'style = #'slash + + % Intro + + c4 c c c | % 1 + c4 c c c | % 2 + c4 c c c | % 3 + c4 c c c | % 4 + + % Verse + + \repeat volta 3 + { + c4 c c c | % 5 + c4 c c c | % 6 + c4 c c c | % 7 + c4 c c c | % 8 + c4 c c c | % 9 + c4 c c c | % 10 + c4 c c c | % 11 + c4 c c c | % 12 + + c4 c c c | % 13 + c4 c c c | % 14 + c4 c c c | % 15 + c4 c c c | % 16 + c4 c c c | % 17 + c4 c c c | % 18 + c4 c c c | % 19 + } + \alternative + { + { + c4 c c c | % 20 + } + { + c4 c \< c c \! | % 21 + } + } + + % Outro + + c4 c c c | % 22 + c4 c c c | % 23 + c4 c c c | % 24 + c4 c \< c c \! | % 25 + + \repeat volta 3 + { + c4 c c c | % 26 + c4 c c c | % 27 + } + + % Ending + + c2_\markup { \italic { rit. } } c4 c | % 28 + c1^\fermata \bar "|." % 29 +} + + +\score +{ + << +% \new ChoirStaff = "Vox" + << + \new Staff = leadStaff { \new Voice = "lead" \LeadVox } + \new Lyrics \lyricsto "lead" \LeadVoxText + >> + + \new ChoirStaff = "Rhythm" + << + \new ChordNames = "chords" \Chords + \new RhythmicStaff = "chordRhythm" \StaffC + >> + + \set Score.skipBars = ##t + \set Score.melismaBusyProperties = #'() + >> + \layout + { +% linewidth = 170.000 \mm +% textheight = 250.000 \mm +% papersize = "letter" +% ragged-last-bottom = ##t + ragged-last = ##t + } +} + + +\paper +{ + #(define fonts (make-pango-font-tree + "Times New Roman" + "DomCasual BT" + "Luxi Mono" + (/ staffSize 20))) +} diff --git a/god-of-our-fathers.ly b/god-of-our-fathers.ly new file mode 100644 index 0000000..6ed62e3 --- /dev/null +++ b/god-of-our-fathers.ly @@ -0,0 +1,289 @@ +\version "2.16.0" +\include "pop-chords.ly" +\include "english.ly" + +% Good sizes are 16, 18, & 20 +staffSize = #20 +#(set-default-paper-size "letter") +#(set-global-staff-size staffSize) +#(ly:set-option (quote no-point-and-click)) + +%{ Some useful characters: ‘ ’ “ ” – — † ‡ • … %} + +\header +{ + title = \markup { \override #'(font-family . sans) \fontsize #3.5 "God of Our Fathers" } +% subtitle = \markup { \override #'(font-family . sans) \fontsize #1.3 "Genevan Psalter, 1551" } + composer = \markup { \override #'(font-family . sans) \fontsize #1.3 "George W. Warren" } + poet = \markup { \override #'(font-family . sans) \fontsize #1.3 "Daniel C. Roberts" } + tagline = $(string-append "Engraved by JLH and Lilypond " (lilypond-version)) +} + + +% +% Lead vocal +% + +LeadVox = \relative c' +{ + \set Staff.instrumentName = #"Sop." + \clef G + \key ef \major + \override Staff.TimeSignature #'style = #'() + \time 4/4 + + % Intro + + s1 | % 1 + s1 | % 2 + + % Verse + + ef2 ef4. f8 | % 3 + g2. af4 | % 4 + g4 ef ef d | % 5 + ef1 | % 6 + + g2 g4. g8 | % 7 + bf2. c4 | % 8 + d4 bf bf a | % 9 + bf1 | % 10 + + bf2 bf4. bf8 | % 11 + bf2. bf4 | % 12 + df4 bf bf a | % 13 + bf1 | % 14 + + ef2 d4. c8 | % 15 + bf2. bf4 | % 16 + af4 g f f | % 17 + ef1 \bar "||" % 18 + + ef2 ef \bar "|." % 19 +} + +AltoVox = \relative c' +{ + \set Staff.instrumentName = #"Alto" + \clef G + \key ef \major + \override Staff.TimeSignature #'style = #'() + \time 4/4 + + % Intro + + s1 | % 1 + s1 | % 2 + + % Verse + + bf2 c4. d8 | % 3 + ef2. ef4 | % 4 + ef4 bf bf bf | % 5 + bf1 | % 6 + + ef2 ef4. ef8 | % 7 + d2. e4 | % 8 + f4 f f f | % 9 + f1 | % 10 + + bf2 bf4. af8 | % 11 + gf2 ( f4 ) e | % 12 + f4 f f ef | % 13 + d1 | % 14 + + ef2 ef4. ef8 | % 15 + ef2. df4 | % 16 + c4 ef ef d | % 17 + ef1 \bar "||" % 18 + + c2 bf \bar "|." % 19 +} + +TenorVox = \relative c' +{ + \set Staff.instrumentName = #"Tenor" + \clef F + \key ef \major + \override Staff.TimeSignature #'style = #'() + \time 4/4 + + % Intro + + s1 | % 1 + s1 | % 2 + + % Verse + + g2 g4. bf8 | % 3 + bf2. c4 | % 4 + bf4 g f af | % 5 + g1 | % 6 + + bf2 c4. c8 | % 7 + bf2. bf4 | % 8 + bf4 d c ef | % 9 + d1 | % 10 + + bf2 bf4. bf8 | % 11 + bf2. bf4 | % 12 + bf4 df c c | % 13 + bf1 | % 14 + + bf2 bf4. af8 | % 15 + g2. g4 | % 16 + af4 bf bf af | % 17 + g1 \bar "||" % 18 + + af2 g \bar "|." % 19 +} + +BassVox = \relative c +{ + \set Staff.instrumentName = #"Bass" + \clef F + \key ef \major + \override Staff.TimeSignature #'style = #'() + \time 4/4 + + % Intro + + s1 | % 1 + s1 | % 2 + + % Verse + + ef2 c4. bf8 | % 3 + ef2. af,4 | % 4 + bf4 bf bf bf | % 5 + ef1 | % 6 + + ef2 c4. c8 | % 7 + g'2. g4 | % 8 + f4 f f f | % 9 + bf,1 | % 10 + + bf'2 bf4. af8 | % 11 + gf2. gf4 | % 12 + f4 f f f | % 13 + bf,2 ( af ) | % 14 + + g2 af4. af8 | % 15 + ef'2. e4 | % 16 + f4 g8 af bf4 bf, | % 17 + ef1 \bar "||" % 18 + + af,2 ef' \bar "|." % 19 +} + + +Riffs = \relative c' +{ + \teeny + 2. \times 2/3 { 8 } | % 1 + 4 | % 2 + s1*3 + r4 \times 2/3 { 8 } 4 | % 6 + s1*3 + r4 \times 2/3 { 8 } 4 | % 10 + s1*3 + r4 \times 2/3 { 8 } 4 | % 14 +} + + +LeadVoxText = \lyricmode +{ + God of our fa -- thers, whose al -- might -- y hand + Leads forth in beau -- ty all the star -- ry band + Of shin -- ing worlds in splen -- dor through the skies, + Our grate -- ful songs be -- fore Thy throne a -- rise. +} + +LeadVoxTextB = \lyricmode +{ + Thy love di -- vine hat led us in the past, + In this free land by Thee our lo is cast; + Be Thou our rul -- er, guard -- ian, guide, and stay, + Thy word our law, Thy paths our cho -- sen way. +} + +LeadVoxTextC = \lyricmode +{ + From war’s a -- larms, from dead -- ly pes -- ti -- lence, + Be Thy strong arm our ev -- er sure de -- fense; + Thy true re -- li -- gion in our hearts in -- crease, + Thy boun -- teous good -- ness nour -- ish us in peace. +} + +LeadVoxTextD = \lyricmode +{ + Re -- fresh Thy peo -- ple on their toil -- some way, + Lead us from night to nev -- er end -- ing day; + Fill all our lives with love and grace di -- vine, + And glo -- ry, laud, and praise be ev -- er Thine! A -- men. +} + + +Dynamics = +{ +%{ + s4_\markup { \italic { snare on 4, bass 8th notes } } s2. | % 1 + s1*26 | % 2-27 + s2 s4 \< s | % 28 + s4_\f s_\markup { \hspace #0.0 \raise #-2.0 \italic { snare 2 & 4 } } s2 | % 29 + s1*8 | % 30-37 + s2 s4 \< s \! | % 38 + s1 | % 39 + s2. s8 \> s \! | % 40 + s4_\markup { \hspace #0.0 \raise #-2.0 \italic { bass 8th notes, band builds each repeat } } s2. | % 41 + s1*8 | % 42-49 + s4 \< s2. | % 50 + s4_\f s2. | % 51 + s1*5 | % 52-56 + s4_\markup { \hspace #0.0 \raise #-2.0 \italic { rit. last time } } s2. | % 57 + s2 s4 \< s \! | % 58 +%} +} + + +\score +{ + << + \new ChoirStaff = "Rhythm" + << + \new Staff = UpperStaffA { << \new Voice = "lead" \LeadVox \new Voice \Riffs >> } + \new Lyrics \lyricsto "lead" \LeadVoxText + \new Lyrics \lyricsto "lead" \LeadVoxTextB + \new Lyrics \lyricsto "lead" \LeadVoxTextC + \new Lyrics \lyricsto "lead" \LeadVoxTextD + \new Staff = UpperStaffB { \new Voice = "alto" \AltoVox } + \new Staff = LowerStaffA { \new Voice = "tenor" \TenorVox } + \new Staff = LowerStaffB { \new Voice = "bass" \BassVox } + >> + + \set Score.skipBars = ##t + \set Score.melismaBusyProperties = #'() + >> +} + + +\paper +{ + #(define fonts (make-pango-font-tree + "Times New Roman" + "DomCasual BT" + "Luxi Mono" + (/ staffSize 20))) + +% Spread staves vertically across last page (default: t) + ragged-last-bottom = ##f +% Don't spread staves vertically across the page (default: f) +% ragged-bottom = ##t +% Allow partial line for last stave (default: f) + ragged-last = ##t + +% To find out what's eating the space at the top... +% annotate-spacing = ##t +%let's try this: [It works! Huzzah!] + obsolete-page-top-space = 0 top-system-spacing #'basic-distance = #(/ obsolete-page-top-space staff-space) +} diff --git a/god-of-wonders.ly b/god-of-wonders.ly new file mode 100644 index 0000000..c981850 --- /dev/null +++ b/god-of-wonders.ly @@ -0,0 +1,529 @@ +\version "2.16.0" +\include "pop-chords.ly" +\include "english.ly" + +% Good sizes are 16, 18, & 20 +staffSize = #16 +#(set-default-paper-size "letter") +#(set-global-staff-size staffSize) +#(ly:set-option (quote no-point-and-click)) + +%{ Some useful characters: ‘ ’ “ ” – — † ‡ • … %} + +\header +{ +%Let's bump up the title size and switch to the chord font. :-) + + title = \markup { \override #'(font-family . sans) \fontsize #3.5 "God of Wonders" } +% composer = \markup { \override #'(font-family . sans) \fontsize #1.3 "" } + arranger = \markup { \override #'(font-family . sans) \fontsize #1.3 "Arr. Ed Smart" } + tagline = $(string-append "Engraved by JLH and Lilypond " (lilypond-version)) +} + +% Useful tweak abbreviations (hn = harmony note) + +hn = #(define-music-function (parser location arg) (ly:music?) +;; Harmony Note: Set the tweaks property of the passed in note to use a smaller font + + (set! (ly:music-property arg 'tweaks) + (acons 'font-size -3.5 (ly:music-property arg 'tweaks))) arg) + + +% +% Song's structure +% +Global = +{ + \key a \major + \override Staff.TimeSignature #'style = #'() + \time 4/4 + + % Intro + + \once \override TextScript #'padding = #2.0 + s1*0^\markup { \large \bold { Moderate pop } } +%Capo 3 version +% s1*0^\markup { \large \bold { Moderate pop "(*** CAPO 3 ***)" } } + + \repeat volta 2 + { + % Intro/midtro + + s1*4 \bar "||" % 1-4 + + % Verse + +% \once \override Score.RehearsalMark #'self-alignment-X = #left + \mark \markup { \override #'(font-family . sans) { \box { A } } } + + s1*8 \bar "||" % 5-12 + + % Chorus + + \mark \markup { \override #'(font-family . sans) { \box { B } } } + + s1*8 \bar "||" % 13-20 + + \mark \markup { \override #'(font-family . sans) { \box { C } } } + + s1*4 | % 21-24 + } + + % Interlude + + \mark \markup { \override #'(font-family . sans) { \box { D } } } + + s1*6 \bar "||" % 25-30 + + % Solo + + \once \override TextScript #'padding = #2.0 + s1*0^\markup { \large \bold { Guitar Solo } } + \mark \markup { \override #'(font-family . sans) { \box { E } } } + + s1*8 | % 31-38 + + \repeat volta 2 + { + % Chorus + + \mark \markup { \override #'(font-family . sans) { \box { F } } } + + s1*8 | % 39-46 + } + + \mark \markup { \override #'(font-family . sans) { \box { G } } } + + s1*6 \bar "|." % 47-52 +} + + +% +% Lead vocal +% +LeadVox = \relative c'' +{ + \clef G + \override Score.SpacingSpanner #'average-spacing-wishes = ##f + + % Intro/midtro + + s1 | % 1 + s1 | % 2 + s1 | % 3 + s1 | % 4 + + % Verse + + r2 a8 fs16 a ~ a8 b16 a ~ | % 5 + a8 fs ~ fs4 r2 | % 6 + r4 r8 fs8 a16 fs8 a16 ~ a8 b ~ | % 7 + b8 fs ~ fs4 r2 | % 8 + r8. fs16 cs'8 b a fs a b16 a ~ | % 9 + a8 fs ~ fs4 r2 | % 10 + r4 cs'8 b a fs16 cs' ~ cs8 b ( | % 11 + a8 ) a ~ a2 r4 | % 12 + + % Chorus + + 8 16 8 16 8 | % 13 + 2 r4 16 8. | % 14 + 4. ( 16 ) ~ 4 r | % 15 + 4. ( 16 ) ~ 4 r8. 16 | % 16 + 8 16 ~ 8 16 16 ~ 8 | % 17 + 2 r4 16 8. | % 14 + 4. ( 16 ) ~ 4 r | % 15 + 4. ( 16 ) ~ 4 r | % 16 + + a4 b a16 e8 fs16 ~ fs8 fs ~ | % 21 + << { \voiceTwo fs2 r } \context Voice = vb { \voiceOne a4 b a16 e8 fs16 ~ fs8 fs ~ } >> | % 22 + << { \voiceOne a4 b a16 e8 fs16 ~ fs8 fs ~ } \context Voice = vb { \voiceTwo fs2 r } >> | % 23 + << { \voiceTwo fs2 r } \context Voice = vb { \voiceOne a4 b a16 e8 fs16 ~ fs8 fs ~ } >> | % 24 + + % Interlude + + \context Voice = vb { fs8 } r \stemUp 16 8 16 ~ 8 \stemNeutral << { \voiceOne a r a16 a } \context Voice = vb { \voiceTwo <\hn a \hn e \hn cs>8 ~ <\hn a \hn e \hn cs>4 ~ } >> | % 25 + << { \voiceOne e'4 cs b16 a8 b16 ~ b8 fs ~ } \context Voice = vb { \voiceTwo <\hn a \hn e \hn cs>1 } >> | % 26 + fs8 r \stemUp 16 8 16 ~ 8 \stemNeutral << { \voiceOne a r a16 a } \context Voice = vb { \voiceTwo <\hn a \hn e \hn cs>8 ~ <\hn a \hn e \hn cs>4 ~ } >> | % 27 + << { \voiceOne e'4 cs b16 a8 b16 ~ b8 fs ~ } \context Voice = vb { \voiceTwo <\hn a \hn e \hn cs>1 } >> \oneVoice | % 28 + fs8 r 16 8 16 ~ 8 ~ 16 | % 29 + 4 16 8 16 ~ 8 ~ | % 30 + + % Solo + + 1 | % 31 + R1 | % 32 + R1 | % 33 + R1 | % 34 + R1 | % 35 + R1 | % 36 + R1 | % 37 + R1 | % 38 + + % Chorus + + 8 16 8 16 8 | % 39 + 2 r4 16 8. | % 40 + 4. ( 16 ) ~ 4 r | % 41 + 4. ( 16 ) ~ 4 r8. 16 | % 42 + 8 16 ~ 8 16 16 ~ 8 | % 43 + 2 r4 16 8. | % 44 + 4. ( 16 ) ~ 4 r | % 45 + 4. ( 16 ) ~ 4 r | % 46 + + % Outro + + a4 b a16 e8 fs16 ~ fs8 fs ~ | % 47 + << { \voiceTwo fs2 r } \context Voice = vc { \voiceOne a4 b a16 e8 fs16 ~ fs8 fs ~ } >> | % 48 + << { \voiceOne a4 b a16 e8 fs16 ~ fs8 fs ~ } \context Voice = vc { \voiceTwo fs2 r } >> | % 49 + << { \voiceTwo fs2 r } \context Voice = vc { \voiceOne a4 b a16 e8 fs16 ~ fs8 fs ~ } >> | % 50 + << { \voiceOne a4 b } \context Voice = vc { \voiceTwo fs2 } >> \oneVoice a16 e8 fs16 ~ fs8 ~ | % 51 + 1-\fermata | % 52 +} + +LeadVoxText = \lyricmode +{ + Lord of all _ cre -- a -- _ tion, _ + of wa -- ter, earth, _ and _ sky, _ + The hea -- vens are your ta -- ber -- na -- _ cle, _ + glo -- ry to the Lord _ on _ high. _ + + God of won -- _ ders, be -- yond our gal -- ax -- y, + you are ho -- _ ly, _ ho -- _ ly, _ + The un -- i -- verse _ de -- clares - your ma -- jes -- ty, + you are ho -- _ ly, _ ho -- _ ly, _ + + Lord of hea -- ven and _ earth, _ + Lord of hea -- ven and _ earth, _ + + Hal -- le -- lu -- jah, _ + to the Lord of hea -- ven and _ earth, _ + Hal -- le -- lu -- jah, _ + to the Lord of hea -- ven and _ earth, _ + Hal -- le -- lu -- _ jah, _ + to the Lord of hea -- ven and _ earth! _ + + God of won -- _ ders, be -- yond our gal -- ax -- y, + you are ho -- _ ly, _ ho -- _ ly, _ + The un -- i -- verse _ de -- clares - your ma -- jes -- ty, + you are ho -- _ ly, _ ho -- _ ly, _ + + Lord of hea -- ven and _ earth, _ + Lord of hea -- ven and _ earth, _ + Lord of hea -- ven and _ earth, _ +} + +LeadVoxTextB = \lyricmode +{ + Ear -- ly in _ the morn -- _ ing, _ + I will cel -- e -- brate _ the light, _ + When I stum -- ble in _ the dark -- _ ness, _ + I will call your name _ by _ night. _ +} + +EchoText = \lyricmode +{ + Lord of hea -- ven and _ earth, _ + Lord of hea -- ven and _ earth, _ +} + +% This is this way because \oneVoice kills the lyric stream... +EchoTextB = \lyricmode +{ + Lord of hea -- ven and _ earth, _ + Lord of hea -- ven and _ earth, _ +} + +% +% Riffs +% +Riffs = \relative c' +{ + \tiny + + % Intro/midtro + +\repeat "percent" 2 { + 4 8 16 ~ 8 16 | % + 4 8 16 ~ 8 16 | % +} +%{ + % Intro + + \override NoteHead #'style = #'slash + r4 bf16 bf bf bf bf r bf8 r bf | % 1 + r4 r8 bf r4 bf | % 2 + r4 bf16 bf bf bf bf r bf8 r bf | % 3 + r4 r8 bf r4 bf | % 4 + r4 bf16 bf bf bf bf r bf8 r bf | % 5 + r4 r8 bf r4 bf | % 6 + \override NoteHead #'style = #'default + + s1*55 | % 7-61 + + r4 e f g | % 62 + r4 b, c d | % 63 + c'4. b8 ~ b g e a ~ | % 64 + a2 c8 b a4 | % 65 + g1-\fermata | % 66 +%} +} + + +% +% Chord names +% +Chords = \chordmode +{ +%Bah, can't we set this globally? +% \popChords + + % Intro/midtro + + e2:5.11 s16 fs4:m7 s16 d8:sus2 | % 1 + s1 | % 2 + e2:5.11 s16 fs4:m7 s16 d8:sus2 | % 3 + s1 | % 4 + + % Verse + + e2:5.11 s16 fs4:m7 s16 d8:sus2 | % 5 + s1 | % 6 + e2:5.11 s16 fs4:m7 s16 d8:sus2 | % 7 + s1 | % 8 + e2:5.11 s16 fs4:m7 s16 d8:sus2 | % 9 + s1 | % 10 + e2:5.11 s16 fs4:m7 s16 d8:sus2 | % 11 + s1 | % 12 + + % Chorus + + a1 | % 13 + e1 | % 14 + b1:m9 | % 15 + d1:maj7 | % 16 + a1 | % 17 + e1 | % 18 + b1:m9 | % 19 + d1:maj7 | % 20 + + d2:sus2 e:5.11 | % 21 + d2:sus2 e:5.11 | % 22 + d2:sus2 e:5.11 | % 23 + d1:sus2 | % 24 + + % Interlude + + b1:m7 | % 25 + d1:sus2 | % 26 + b1:m7 | % 27 + d1:sus2 | % 28 + b1:m7 | % 29 + d1:sus2 | % 30 + + % Solo + + a1 | % 31 + e1 | % 32 + b1:m9 | % 33 + d1:sus2 | % 34 + a1 | % 35 + e1 | % 36 + b1:m9 | % 37 + d2:sus2 e:sus4 | % 38 + + % Chorus + + a1 | % 39 + e1 | % 40 + b1:m9 | % 41 + d1:sus2 | % 42 + a1 | % 43 + e1 | % 44 + b1:m9 | % 45 + d1:sus2 | % 46 + + % Outro + + d2:sus2 e:5.11 | % 47 + d2:sus2 e:5.11 | % 48 + d2:sus2 e:5.11 | % 49 + d2:sus2 e:5.11 | % 50 + d2:sus2 e:5.11 | % 51 + d1:sus2 | % 52 +} + + +% +% Chord rhythms +% + +% Use a RhythmicStaff on the chords instead of this? +% It almost works, but not quite. Doesn't collapse chords above to single notes... + +Rhythm = +{ + \override Staff.TimeSignature #'style = #'() + \override NoteHead #'style = #'slash + + % Intro/midtro + + c4 c ~ c16 c8. c8 c ~ | % 1 + c4 c c c | % 2 + c4 c ~ c16 c8. c8 c ~ | % 3 + c4 c c c | % 4 + + % Verse + + c4 c ~ c16 c8. c8 c ~ | % 5 + c4 c c c | % 6 + c4 c ~ c16 c8. c8 c ~ | % 7 + c4 c c c | % 8 + c4 c ~ c16 c8. c8 c ~ | % 9 + c4 c c c | % 10 + c4 c ~ c16 c8. c8 c ~ | % 11 + c4 c c c | % 12 + + % Chorus + + c4 c c c | % 13 + c4 c c c | % 14 + c4 c c c | % 15 + c4 c c c | % 16 + c4 c c c | % 17 + c4 c c c | % 18 + c4 c c c | % 19 + c4 c c c | % 20 + + c4 c c c | % 21 + c4 c c c | % 22 + c4 c c c | % 23 + c4 c c c | % 24 + + % Interlude + + c4 c c c | % 25 + c4 c c c | % 26 + c4 c c c | % 27 + c4 c c c | % 28 + c4 c c c | % 29 + c4 c c c | % 30 + + % Solo + + c4 c c c | % 31 + c4 c c c | % 32 + c4 c c c | % 33 + c4 c c c | % 34 + c4 c c c | % 35 + c4 c c c | % 36 + c4 c c c | % 37 + c4 c c c | % 38 + + % Chorus + + c4 c c c | % 39 + c4 c c c | % 40 + c4 c c c | % 41 + c4 c c c | % 42 + c4 c c c | % 43 + c4 c c c | % 44 + c4 c c c | % 45 + c4 c c c | % 46 + + % Outro + + c4 c c c | % 47 + c4 c c c | % 48 + c4 c c c | % 49 + c4 c c c | % 50 + c4 c c c | % 51 + c1-\fermata | % 52 +} + + +Dynamics = +{ +%{ + % Intro + + s4_\f s2. | % 1 + s1*5 | % 2-6 + s4_\fp s s \< s | % 7 + s1 | % 8 + + % Verse + + s4_\mf s2. | % 9 + s1*8 | % 10-17 + s2. s8 s_\fp | % 18 + s4 \< s2. | % 19 + + % Chorus + + s4_\f s2. | % 20 + s1*5 | % 21-25 + s4_\fp s2. | % 26 + s8 \< s2.. | % 27 + s4_\f s2. | % 28 + s1*21 | % 29-49 + + s4_\fp s2. | % 50 + s8 \< s2. s8 \! | % 51 + s1*9 | % 52-60 + s4_\markup { \italic { rit. } } s2. | % 61 + s1*3 | % 62-64 + s2 s4_\markup { \italic { rit. } } s | % 65 +%} +} + + +\score +{ + << + \Global % The "roadmap" that everything else depends on + + \context Staff + << + \new Voice = "lead" \LeadVox + \new Voice \Riffs + \new Lyrics \lyricsto "lead" \LeadVoxText + \new Lyrics \lyricsto "lead" \LeadVoxTextB + \new Lyrics \lyricsto "vb" \EchoText + \new Lyrics \lyricsto "vc" \EchoTextB + >> + + \new ChoirStaff + << + \new ChordNames \Chords +%Capo 3 edition +% \new ChordNames \transpose f d \Chords + \new RhythmicStaff << \Rhythm \Dynamics >> + >> + + \set Score.skipBars = ##t + \set Score.melismaBusyProperties = #'() + >> +} + + +\paper +{ + #(define fonts (make-pango-font-tree + "Times New Roman" + "DomCasual BT" + "Luxi Mono" + (/ staffSize 20))) + +% Don't spread staves vertically across last page (default: t) +% ragged-last-bottom = ##f +% Don't spread staves vertically across the page (default: f) +% ragged-bottom = ##t +% Allow partial line for last stave (default: f) + ragged-last = ##t + +% To find out what's eating the space at the top... +% annotate-spacing = ##t +%let's try this: [It works! Huzzah!] + obsolete-page-top-space = 0 top-system-spacing #'basic-distance = #(/ obsolete-page-top-space staff-space) +} diff --git a/great-is-the-lord.ly b/great-is-the-lord.ly new file mode 100755 index 0000000..50707ca --- /dev/null +++ b/great-is-the-lord.ly @@ -0,0 +1,389 @@ +\version "2.16.0" +\include "pop-chords.ly" +\include "english.ly" + +% Good sizes are 16, 18, & 20 +staffSize = #20 +#(set-default-paper-size "letter") +#(set-global-staff-size staffSize) +#(ly:set-option (quote no-point-and-click)) + +%{ Some useful characters: ‘ ’ “ ” – — † ‡ • … %} + +\header +{ + title = \markup { \override #'(font-family . sans) \fontsize #3.5 "Great Is The Lord" } + composer = \markup { \override #'(font-family . sans) \fontsize #1.3 "Michael W. Smith" } + arranger = \markup { \override #'(font-family . sans) \fontsize #1.3 "arr. Ed Smart" } + tagline = $(string-append "Engraved by JLH and Lilypond " (lilypond-version)) +} + + +% +% Song's Structure +% +Global = +{ + \override Staff.TimeSignature #'style = #'() + \key c \major + \time 6/8 + + % Intro + + s2.*4 \bar "||:" % 1-4 + + \repeat volta 2 + { + % A section + + \mark \markup { \override #'(font-family . sans) { \box { A } } } + + s2.*8 \bar "||" % 5-12 + + % B section + + \mark \markup { \override #'(font-family . sans) { \box { B } } } + + s2.*13 | % 13-25 + } + \alternative + { + { + s2.*2 | % 26-27 + } + { + s2. | % 28 + } + } + + % Ending + + s2. \bar "|." % 29 +} + + +% +% Lead vocal +% + +LeadVox = \relative c' +{ +% \set Staff.instrument = #"Lead vox" +% \override Staff.TimeSignature #'style = #'() + \clef G + \override Score.SpacingSpanner #'average-spacing-wishes = ##f + + % Intro + + R2. | % 1 + R2. | % 2 + R2. | % 3 + R2. \bar "||:" % 4 + + % A section + + e8 d e f4 f16 e | % 5 + d8 g f e4 e16 d | % 6 + c8 f e d4 c16 b | % 7 + c4. r | % 8 + e8 d e f4 f16 e | % 9 + d8 g f e4 e16 d | % 10 + c8 f e d4 c16 b | % 11 + c4. r | % 12 + + % B section + + bf'8 bf a bf4 bf8 | % 13 + a8 g f g c,4 | % 14 + bf'8 bf a bf4 a8 | % 15 + g8 b d c4. | % 16 + bf8 bf a bf4 bf8 | % 17 + a8 d a b4 b8 | % 18 + b8 e b c4. | % 19 + d2. ~ | % 20 + d4. ~ d8 c b | % 21 + c2. ~ | % 22 + c2. | % 23 + d2. ~ | % 24 + d4. ~ d8 c b | % 25 + + c2. | % 26 + R2. | % 27 + + c2. | % 28 + + % Ending + + r2.^\fermata | % 29 +} + + +LeadVoxText = \lyricmode +{ + Great is the Lord, + he is ho -- ly and just; + By his po -- wer we trust + in his love. + + Great is the Lord + he is faith -- ful and true; + By his mer -- cy he proves + he is love. + + Great is the Lord! + And wor -- thy of glo -- ry, + Great is the Lord! + And wor -- thy of praise, + Great is the Lord! + Now lift up your voice, + Now lift up your voice, + Great __ _ _ is the Lord! __ _ + Great __ _ _ is the Lord! + + Lord! +} + + +% +% Riffs +% + +Riffs = \relative c''' +{ +% \set Voice.autoBeaming = ##f +% \set Staff.instrument = #"Lead vox" + \override Staff.TimeSignature #'style = #'() + \clef G +% \key c \major +% \time 6/8 +%\override Score.SpacingSpanner #'average-spacing-wishes = ##f + + % Intro + + c16 g f8 r f16 e c8 r | % 1 + c'16 g f8 r f16 e c g' c e | % 2 + 16 8 r 16 8 r | % 3 + c'16 g f e d e c4. | % 4 + + % A section + + R2. | % 5 + R2. | % 6 + R2. | % 7 + R2. | % 8 + R2. | % 9 + R2. | % 10 + R2. | % 11 + r4. r8 g16 c e g | % 12 + + % B section + + bf8-> r4 r4. | % 13 + r4. r8 g,16 c e g | % 14 + bf8-> r4 r4. | % 15 + r4. r8 g,16 c e g | % 16 + bf8-> r4 r4 bf8 | % 17 + a8 d a b4 b8 | % 18 + b8 e b c4. | % 19 + d2. ~ | % 20 + d4. ~ d8 c b | % 21 + << c2. ~ \\ { r4. a,8 b c } >> | % 22 + << c'2. \\ { c,4. b8. \tieUp c16 ~ c8 \tieNeutral } >> | % 23 + d'2. ~ | % 24 + d4. ~ d8 c b | % 25 + + c16 g f8 r f16 e c8 r | % 26 + c'16 g f e d e c4. | % 27 + + c'16 g f8 r f16 e c8 r | % 28 + + % Ending + + c'16 g f e d e c4.^\fermata | % 29 +} + + +% +% Chord names +% + +Chords = \chordmode +{ +%Bah, can't we set this globally? +% \popChords + + % Intro + + c2.:^3 | % 1 + s2. | % 2 + s2. | % 3 + s2. | % 4 + + % A section + + c4. d:m7 | % 5 + g4./b c | % 6 + f4./a g/b | % 7 + f8 c/e d:m7 c4. | % 8 + c4. d:m7 | % 9 + g4./b c | % 10 + f4./a g/b | % 11 + f8 c/e d:m7 c4. | % 12 + + % B section + + bf8/c s f/c bf4./c | % 13 + f4./c c | % 14 + bf8/c s f/c bf4./c | % 15 + g4./c c | % 16 + bf8/c s f/c bf4./c | % 17 + d4./fs g8 g4/f | % 18 + e4. a8:m a4:m/g | % 19 + d2.:m7 | % 20 + g4.:sus4 g | % 21 + a2.:m7 | % 22 + a2.:m7/g | % 23 + d2.:m7 | % 24 + g4.:sus4 g | % 25 + + c2.:^3 | % 26 + s2. | % 27 + + c2.:^3 | % 28 + + % Ending + + s2. | % 29 +} + + +% +% Chord rhythms +% + +% Use a RhythmicStaff on the chords instead of this? +% It almost works, but not quite. Doesn't collapse chords above to single notes... + +Rhythm = \relative c +{ +% \set Staff.instrument = #"Rhythm" + \override Staff.TimeSignature #'style = #'() + \override NoteHead #'style = #'slash + + % Intro + + c2. ~ | % 1 + c2. | % 2 + c2. ~ | % 3 + c2. | % 4 + + % A section + + c4. c | % 5 + c4. c | % 6 + c4. c | % 7 + c8 c c c4. | % 8 + c4. c | % 9 + c4. c | % 10 + c4. c | % 11 + c8 c c c4. | % 12 + + % B section + + c8 c c c4. | % 13 + c4. c | % 14 + c8 c c c4. | % 15 + c4. c | % 16 + c8 c c c4. | % 17 + c4. c8 c4 | % 18 + c4. c8 c4 | % 19 + c4. c | % 20 + c4. c | % 21 + c4. c | % 22 + c4. c | % 23 + c4. c | % 24 + c4. c | % 25 + + c2. ~ | % 26 + c2. | % 27 + + c2. | % 28 + + % Ending + + c4. c^\fermata | % 29 +} + + +Dynamics = +{ + % Intro + + s2._\f | % 1 + + s2.*3 | % 2-4 + + s4._\mf s | % 5 + + s2.*7 | % 6-12 + + s8_\f s4 s4. | % 13 +} + + +\score +{ + << + \Global % The "roadmap" that everything else depends on + + \context Staff + << + \new Voice = "lead" \LeadVox + \new Lyrics \lyricsto "lead" \LeadVoxText + >> + + \new Staff \with + { +% \remove "Time_signature_engraver" +% \remove "Clef_engraver" +%Hmm, removing this screws up the formatting... +% \remove "Key_engraver" + fontSize = #-3.0 + \override StaffSymbol #'staff-space = #(magstep -3.0) +% firstClef = ##f + } + \Riffs + + \new ChoirStaff = "Rhythm" + << +% \new Staff = "riff" \RhythmB + \new ChordNames = "chords" \Chords + \new RhythmicStaff << \Rhythm \Dynamics >> + >> + + \set Score.skipBars = ##t + \set Score.melismaBusyProperties = #'() + >> +} + + +\paper +{ + #(define fonts (make-pango-font-tree + "Times New Roman" + "DomCasual BT" + "Luxi Mono" + (/ staffSize 20))) + +% Don't spread staves vertically across last page (default: t) +% ragged-last-bottom = ##f +% Don't spread staves vertically across the page (default: f) +% ragged-bottom = ##t +% Allow partial line for last stave (default: f) + ragged-last = ##t + +% To find out what's eating the space at the top... +% annotate-spacing = ##t +%let's try this: [It works! Huzzah!] + obsolete-page-top-space = 0 top-system-spacing #'basic-distance = #(/ obsolete-page-top-space staff-space) +} diff --git a/hallelujah.ly b/hallelujah.ly new file mode 100644 index 0000000..4bb3827 --- /dev/null +++ b/hallelujah.ly @@ -0,0 +1,479 @@ +\version "2.16.0" +\include "pop-chords.ly" +\include "english.ly" + +% Good sizes are 16, 18, & 20 +staffSize = #20 +#(set-default-paper-size "letter") +#(set-global-staff-size staffSize) +#(ly:set-option (quote no-point-and-click)) + +%{ Some useful characters: ‘ ’ “ ” – — † ‡ • … %} + +\header +{ +%Let's bump up the title size and switch to the chord font. :-) + + title = \markup { \override #'(font-family . sans) \fontsize #3.5 "Hallelujah (Your Love Is Amazing)" } +% composer = \markup { \override #'(font-family . sans) \fontsize #1.3 "" } + arranger = \markup { \override #'(font-family . sans) \fontsize #1.3 "arr. Ed Smart" } + tagline = $(string-append "Engraved by JLH and Lilypond " (lilypond-version)) +% Let's try a chord dictionary +% subtitle = \markup { \center-align { "F#m" \fret-diagram-terse #"x;x;4;2;2;2;" } " " \center-align { "F#m/F" \fret-diagram-terse #"x;x;3;2;2;2;" } " " \center-align { "F#m/E" \fret-diagram-terse #"x;x;2;2;2;2;" } " " \center-align { "F#m/Eb" \fret-diagram-terse #"x;x;1;2;2;2;" } " " \center-align { "Em7" \fret-diagram-terse #"o;2;2;o;3;o;" } " " \center-align { "A13" \fret-diagram-terse #"x;o;2;o;2;2;" } } +} + +% Useful tweak abbreviations (hn = harmony note) + +hn = #(define-music-function (parser location arg) (ly:music?) +;; Harmony Note: Set the tweaks property of the passed in note to use a smaller font + + (set! (ly:music-property arg 'tweaks) + (acons 'font-size -3.0 (ly:music-property arg 'tweaks))) arg) + + +% +% Song's structure +% +Global = +{ + \key g \major + \override Staff.TimeSignature #'style = #'() + \time 4/4 + +% \once \override TextScript #'padding = #2.0 +% s1*0^\markup { \large \bold { Samba } } +% Capo 4 version +% s1*0^\markup { \hspace #0.0 \raise #2.0 \bigger \bold { "Moderate pop (*** CAPO 4 ***)" } } + + % Intro + + \repeat volta 2 + { + s1*4 | % 1-4 + } + + % Verse + + \repeat volta 3 + { + \mark \markup { \override #'(font-family . sans) { \box { A } } } + s1*8 \bar "||" % 5-12 + + \mark \markup { \override #'(font-family . sans) { \box { B } } } + s1*7 | % 13-19 + } + \alternative + { + { + s1*2 | % 20-21 + } + { + s1 \bar "||" % 22 + } + } + + % Bridge + + \mark \markup { \override #'(font-family . sans) { \box { C } } } + s1*7 | % 23-29 + + % Chorus + + \repeat volta 2 + { + \mark \markup { \override #'(font-family . sans) { \box { D } } } + s1*7 | % 30-36 + } + \alternative + { + { + s1 | % 37 + } + { + s1 | % 38 + } + } + + % Outro + + s1*5 \bar "|." % 39-43 +} + + +% +% Lead vocal +% +LeadVox = \relative c' +{ +% \set Staff.instrument = #"Lead vox" + \clef G + \override Staff.TimeSignature #'style = #'() +%Hm. Needed anymore? +% \override Score.SpacingSpanner #'average-spacing-wishes = ##f + \set tupletSpannerDuration = #(ly:make-moment 1 4) + + % Intro + + r1 | % 1 + r1 | % 2 + r1 | % 3 + r2 e16 g8 g16 ~ g e8 a16 ~ | % 4 + + % Verse + + a4 b e,16 g8 g16 ~ g e8 a16 ~ | % 5 + a4 b e,16 g8 g16 ~ g e8 a16 ~ | % 6 + a4 b e,8 g16 g ~ g e8 g16 ~ | % 7 + g4 r e16 g8 g16 ~ g e8 a16 ~ | % 8 + a4 b e,16 g8 g16 ~ g e8 a16 ~ | % 9 + a4 b8. \tiny e,16 \normalsize e16 g8 g16 ~ g e8 a16 ~ | % 10 + a4 b e,16 g8 g16 ~ g e8 e16 ~ | % 11 + e16 ( d c8 ) r4 r c'8 c16 c ~ | % 12 + + % Chorus + + c16 b ~ b8 ~ b4 r b8 b16 b ~ | % 13 + b16 a ~ a8 ~ a2 a8 g16 a ~ | % 14 + a16 b ~ b8 ~ b4 r2 | % 15 + a16 a8 b16 ~ b g8 g16 ~ g4 c8 c16 c ~ | % 16 + c16 b ~ b8 ~ b4 r b8 b16 b ~ | % 17 + b16 a ~ a8 ~ a2 a8 g16 a ~ | % 18 + a16 b ~ b8 ~ b4 r2 | % 19 + + a16 a8 b16 ~ b g8 g16 ~ g2 | % 20 + r2 e16 g8 g16 ~ g e8 a16 | % 21 + + a16 a8 b16 ~ b g8 g16 ~ g2 | % 22 + + % Bridge + + r2 a16 a8 b16 ~ b g ~ g8 ~ | % 23 + g8 e16 ( d ~ d4 ) r2 | % 24 + r2 a'16 a8 b16 ~ b g ~ g8 ~ | % 25 + g8 b4 a8 ( ~ a4 g8 ) fs ~ | % 26 + fs4 r a16 a8 b16 ~ b g ~ g8 ~ | % 27 + g8 e16 ( d ~ d2 ) r4 | % 28 + r2 r4 c'8 c16 c ~ | % 29 + + % Chorus + + c16 b ~ b8 ~ b4 r b8 b16 b ~ | % 30 + b16 a ~ a8 ~ a2 a8 g16 a ~ | % 31 + a16 b ~ b8 ~ b4 r2 | % 32 + a16 a8 b16 ~ b g8 g16 ~ g4 c8 c16 c ~ | % 33 + c16 b ~ b8 ~ b4 r b8 b16 b ~ | % 34 + b16 a ~ a8 ~ a2 a8 g16 a ~ | % 35 + a16 b ~ b8 ~ b4 r2 | % 36 + + a16 a8 b16 ~ b g8 g16 ~ g4 c8 c16 c | % 37 + + a16 a8 b16 ~ b g8 g16 ~ g2 | % 38 + + % Outro + + r1 | % 39 + r2 a16 a8 b16 ~ b g ~ g8 ~ | % 40 + g8 g8 ~ g4 r2 | % 41 + r2 a16 a8 b16 ~ b g ~ g8 ~ | % 42 + g8 g ~ g2.-\fermata | % 43 +} + + +LeadVoxText = \lyricmode +{ + Your love is _ a -- ma -- _ zing, + stea -- dy and _ un -- chang -- _ ing + Your love is _ a moun -- _ tain, + firm be -- neath _ my feet. _ + Your love is _ a mys -- _ t’ry + how you gent -- _ ly lift _ me + _ When I am _ sur -- round -- _ ed + your love car -- _ ries me. _ _ _ + + Hal -- le -- lu -- _ jah! _ _ + Hal -- le -- lu -- _ jah! _ _ + Hal -- le -- lu -- _ jah! _ _ + Your love makes _ me sing, _ + Hal -- le -- lu -- _ jah! _ _ + Hal -- le -- lu -- _ jah! _ _ + Hal -- le -- lu -- _ jah! _ _ + Your love makes _ me sing _ + + Your love is _ sur -- pri- + + Your love makes _ me sing! _ + + Yes you make _ me _ _ sing _ _ + Lord you make _ me _ _ sing, sing, _ _ sing _ + How you make _ me _ _ sing _ _ + + Hal -- le -- lu -- _ jah! _ _ + Hal -- le -- lu -- _ jah! _ _ + Hal -- le -- lu -- _ jah! _ _ + Your love makes _ me sing, _ + Hal -- le -- lu -- _ jah! _ _ + Hal -- le -- lu -- _ jah! _ _ + Hal -- le -- lu -- _ jah! _ _ + Your love makes _ me sing _ + + Hal -- le -- lu- + + Your love makes _ me sing _ + Your love makes _ me _ _ sing _ + Your love makes _ me _ _ sing! _ +} + +LeadVoxTextB = \lyricmode +{ + _ _ _ _ _ _ _ sing, + I can feel _ it ris -- _ ing + All the joy _ that’s grow -- _ ing, + deep in -- side _ of me. _ + Ev -- ’ry time _ I see _ you + all your good -- _ ness shines _ through, + and I can feel _ this God _ song + ris -- ing up _ in me. _ _ _ + + _ _ _ _ _ _ _ + _ _ _ _ _ _ _ + _ _ _ _ _ _ _ + _ _ _ _ _ _ _ + _ _ _ _ _ _ _ + _ _ _ _ _ _ _ + _ _ _ _ _ _ _ + _ _ _ _ _ _ _ + + Your love is _ a -- ma- +} + + +Riffs = \relative c' +{ +% \clef G +%Hm. Needed anymore? +% \override Score.SpacingSpanner #'average-spacing-wishes = ##f + \set tupletSpannerDuration = #(ly:make-moment 1 4) + + % Intro + + \tiny + \normalsize +} + + +% +% Chord names +% +Chords = \chordmode +{ + % Intro + + g1/b | % 1 + c1:sus2 | % 2 + d1:sus4 | % 3 + c1:sus2 | % 4 + + % Verse + + g1/b | % 5 + c1:sus2 | % 6 + d1:sus4 | % 7 + c1:sus2 | % 8 + g1/b | % 9 + c1:sus2 | % 10 + d1:sus4 | % 11 + c1:sus2 | % 12 + + % Chorus + + g1 | % 13 + d2:sus4 d | % 14 + e1:m7 | % 15 + c1:sus2 | % 16 + g1 | % 17 + d2:sus4 d | % 18 + e1:m7 | % 19 + + c1:sus2 | % 20 + c1:sus2 | % 21 + + c1:sus2 | % 22 + + % Bridge + + d1 | % 23 + e1:m7 | % 24 + d1/fs | % 25 + c1:sus2 | % 26 + d1 | % 27 + e1:m7 | % 28 + c2 d | % 29 + + % Chorus + + g1 | % 30 + d1 | % 31 + e1:m7 | % 32 + c1:sus2 | % 33 + g1 | % 34 + d1 | % 35 + e1:m7 | % 36 + + c1:sus2 | % 37 + + c1:sus2 | % 38 + + % Outro + + s1 | % 39 + s1 | % 40 + s1 | % 41 + s1 | % 42 + c1:sus2 | % 43 +} + + +% +% Chord rhythms +% +% Use a RhythmicStaff on the chords instead of this? +% It almost works, but not quite. Doesn't collapse chords above to single notes... +% +Rhythm = \relative c +{ +%% \set Voice.autoBeaming = ##f +%% \set Staff.instrument = #"Rhythm" + \override Staff.TimeSignature #'style = #'() + \override NoteHead #'style = #'slash + +%Not small enough... + \teeny +% \magnify #0.3 + + % Intro + + c1 | % 1 + c1 | % 2 + c1 | % 3 + c1 | % 4 + + % Verse + + c4 c c c | % 5 + c4 c c c | % 6 + c4 c c c | % 7 + c4 c c c | % 8 + c4 c c c | % 9 + c4 c c c | % 10 + c4 c c c | % 11 + c4 c c c | % 12 + + % Chorus + + c4 c c c | % 13 + c4 c c c | % 14 + c4 c c c | % 15 + c4 c c c | % 16 + c4 c c c | % 17 + c4 c c c | % 18 + c4 c c c | % 19 + + c4 c c c | % 20 + c1 | % 21 + + c4 c c c | % 22 + + % Bridge + + c4 c c c | % 23 + c4 c c c | % 24 + c4 c c c | % 25 + c4 c c c | % 26 + c4 c c c | % 27 + c4 c c c | % 28 + c4 c c c | % 29 + + % Chorus + + c4 c c c | % 30 + c4 c c c | % 31 + c4 c c c | % 32 + c4 c c c | % 33 + c4 c c c | % 34 + c4 c c c | % 35 + c4 c c c | % 36 + + c4 c c c | % 37 + + c4 c c c | % 38 + + % Outro + + c4 c c c | % 39 + c4 c c c | % 40 + c4 c c c | % 41 + c4 c c c | % 42 + c1-\fermata | % 43 +} + + +Dynamics = +{ +% s1*4 | % 1-4 +% s4_\markup { \italic { 1st X: Melody, 2nd X+: Solos } } s2. | % 5 +% s1*38 | % 1-38 +% s4_\markup { \bold \italic { Double Chorus 2nd X } } s2. | % 39 +% s1*7 | % 40-46 +% s4_\markup { \bold { Tutti } } s2. | % 47 +% s4 | % 0 +% s2.*39 | % 1-39 +% s4_\markup { \large \bold \italic { Solo } } s2 | % 40 +} + + +\score +{ + << + \set Score.skipBars = ##t + \set Score.melismaBusyProperties = #'() + +% \new Staff + << + \new ChordNames \Chords +%Capo 4 edition +% \new ChordNames \transpose b g \Chords + \new RhythmicStaff << \Rhythm \Dynamics >> + >> + + \new Staff + << + \Global % The "roadmap" that everything else depends on + \new Voice = "lead" \LeadVox + \new Voice \Riffs + \new Lyrics \lyricsto "lead" \LeadVoxText + \new Lyrics \lyricsto "lead" \LeadVoxTextB + >> + >> +} + + +\paper +{ + #(define fonts (make-pango-font-tree + "Times New Roman" + "DomCasual BT" + "Luxi Mono" + (/ staffSize 20))) + +% Spread staves vertically across last page (default: t) + ragged-last-bottom = ##f +% Don't spread staves vertically across the page (default: f) +% ragged-bottom = ##t +% Allow partial line for last stave (default: f) + ragged-last = ##t + +% To find out what's eating the space at the top... +% annotate-spacing = ##t +%let's try this: [It works! Huzzah!] + obsolete-page-top-space = 0 top-system-spacing #'basic-distance = #(/ obsolete-page-top-space staff-space) +} diff --git a/have-thine-own-way-lord-satb.ly b/have-thine-own-way-lord-satb.ly new file mode 100644 index 0000000..3f99be8 --- /dev/null +++ b/have-thine-own-way-lord-satb.ly @@ -0,0 +1,223 @@ +\version "2.16.0" +\include "pop-chords.ly" +\include "english.ly" + +% Good sizes are 16, 18, & 20 +staffSize = #20 +#(set-default-paper-size "letter") +#(set-global-staff-size staffSize) +#(ly:set-option (quote no-point-and-click)) + +%{ Some useful characters: ‘ ’ “ ” – — † ‡ • … %} + +\header +{ + title = \markup { \override #'(font-family . sans) \fontsize #3.5 "Have Thine Own Way, Lord!" } +% subtitle = \markup { \override #'(font-family . sans) \fontsize #1.3 "Genevan Psalter, 1551" } + composer = \markup { \override #'(font-family . sans) \fontsize #1.3 "George C. Stebbins, 1846-1945" } + poet = \markup { \override #'(font-family . sans) \fontsize #1.3 "Adelaide A. Pollard, 1862-1934" } + tagline = $(string-append "Engraved by JLH and Lilypond " (lilypond-version)) +} + + +% +% Lead vocal +% + +LeadVox = \relative c'' +{ + \set Staff.instrumentName = #"Sop." + \clef G + \key ef \major + \override Staff.TimeSignature #'style = #'() + \time 9/4 +%\override Score.SpacingSpanner #'average-spacing-wishes = ##f + + % Verse + + \partial 4*3 g4 f g | % 0 + af2. g ef4 d ef | % 1 + f2. ~ f f4 e f | % 2 + + g2. f f4 ef d | % 3 + ef2. ~ ef g4 f g | % 4 + + af2. g bf4 a bf | % 5 + c2. ~ c c4 d c | % 6 + + bf2. g f4 ef f | % 7 + ef2. ~ ef \bar "|." % 8 +} + +AltoVox = \relative c' +{ + \set Staff.instrumentName = #"Alto" + \clef G + \key ef \major + \override Staff.TimeSignature #'style = #'() + \time 9/4 +%\override Score.SpacingSpanner #'average-spacing-wishes = ##f + + % Verse + + \partial 4*3 ef4 ef ef | % 0 + ef2. ef bf4 bf bf | % 1 + d2. ~ d d4 d d | % 2 + + d2. d bf4 bf bf | % 3 + bf2. ~ bf ef4 ef ef | % 4 + + ef2. ef df4 c df | % 5 + ef2. ~ ef ef4 ef ef | % 6 + + ef2. ef bf4 bf bf | % 7 + bf2. ~ bf \bar "|." % 8 +} + +TenorVox = \relative c' +{ + \set Staff.instrumentName = #"Tenor" + \clef F + \key ef \major + \override Staff.TimeSignature #'style = #'() + \time 9/4 +%\override Score.SpacingSpanner #'average-spacing-wishes = ##f + + % Verse + + \partial 4*3 bf4 af bf | % 0 + c2. bf g4 f g | % 1 + af2. ~ af af4 g af | % 2 + + bf2. af af4 g f | % 3 + g2. ~ g bf4 af bf | % 4 + + c2. bf g4 g g | % 5 + af2. ~ af af4 bf af | % 6 + + g2. bf af4 g af | % 7 + g2. ~ g \bar "|." % 8 +} + +BassVox = \relative c +{ + \set Staff.instrumentName = #"Bass" + \clef F + \key ef \major + \override Staff.TimeSignature #'style = #'() + \time 9/4 +%\override Score.SpacingSpanner #'average-spacing-wishes = ##f + + % Verse + + \partial 4*3 ef4 ef ef | % 0 + ef2. ef ef4 ef ef | % 1 + bf2. ~ bf bf4 bf bf | % 2 + + bf2. bf bf4 bf bf | % 3 + ef2. ~ ef ef4 ef ef | % 4 + + ef2. ef ef4 ef ef | % 5 + af,2. ~ af af4 af af | % 6 + + bf2. bf bf4 bf bf | % 7 + ef2. ~ ef \bar "|." % 8 +} + + +LeadVoxText = \lyricmode +{ + Have thine own way, Lord! Have thine own way! _ + Thou art the pot -- ter, I am the clay: _ + Mould me and make me Aft -- er thy will, _ + While I am wait -- ing, Yield -- ed and still. +} + +LeadVoxTextB = \lyricmode +{ + Have thine own way, Lord! Have thine own way! _ + Search me and try me, Mas -- ter, to -- day! _ + Whit -- er than snow, Lord, Wash me just now, _ + As in thy pres -- ence Hum -- bly I bow. +} + +LeadVoxTextC = \lyricmode +{ + Have thine own way, Lord! Have thine own way! _ + Wound -- ed and wea -- ry, Help me, I pray! _ + Pow -- er, all pow -- er, Sure -- ly is thine! _ + Touch me and heal me, Sav -- ior di -- vine! +} + +LeadVoxTextD = \lyricmode +{ + Have thine own way, Lord! Have thine own way! _ + Hold o’er my be -- ing Ab -- so -- lute sway! _ + Fill with thy Spir -- it Till all shall see _ + Christ on -- ly, al -- ways, Liv -- ing in me! +} + + +Dynamics = +{ +%{ + s4_\markup { \italic { snare on 4, bass 8th notes } } s2. | % 1 + s1*26 | % 2-27 + s2 s4 \< s | % 28 + s4_\f s_\markup { \hspace #0.0 \raise #-2.0 \italic { snare 2 & 4 } } s2 | % 29 + s1*8 | % 30-37 + s2 s4 \< s \! | % 38 + s1 | % 39 + s2. s8 \> s \! | % 40 + s4_\markup { \hspace #0.0 \raise #-2.0 \italic { bass 8th notes, band builds each repeat } } s2. | % 41 + s1*8 | % 42-49 + s4 \< s2. | % 50 + s4_\f s2. | % 51 + s1*5 | % 52-56 + s4_\markup { \hspace #0.0 \raise #-2.0 \italic { rit. last time } } s2. | % 57 + s2 s4 \< s \! | % 58 +%} +} + + +\score +{ + << + \new ChoirStaff = "Rhythm" + << + \new Staff = UpperStaffA { \new Voice = "lead" \LeadVox } + \new Lyrics \lyricsto "lead" \LeadVoxText + \new Lyrics \lyricsto "lead" \LeadVoxTextB + \new Lyrics \lyricsto "lead" \LeadVoxTextC + \new Lyrics \lyricsto "lead" \LeadVoxTextD + \new Staff = UpperStaffB { \new Voice = "alto" \AltoVox } + \new Staff = LowerStaffA { \new Voice = "tenor" \TenorVox } + \new Staff = LowerStaffB { \new Voice = "bass" \BassVox } + >> + + \set Score.skipBars = ##t + \set Score.melismaBusyProperties = #'() + >> +} + + +\paper +{ + #(define fonts (make-pango-font-tree + "Times New Roman" + "DomCasual BT" + "Luxi Mono" + (/ staffSize 20))) + +% Spread staves vertically across last page (default: t) + ragged-last-bottom = ##f +% Don't spread staves vertically across the page (default: f) +% ragged-bottom = ##t +% Allow partial line for last stave (default: f) + ragged-last = ##t + +% To find out what's eating the space at the top... +% annotate-spacing = ##t +%let's try this: [It works! Huzzah!] + obsolete-page-top-space = 0 top-system-spacing #'basic-distance = #(/ obsolete-page-top-space staff-space) +} diff --git a/he-knows-my-name.ly b/he-knows-my-name.ly new file mode 100644 index 0000000..dad67db --- /dev/null +++ b/he-knows-my-name.ly @@ -0,0 +1,363 @@ +\version "2.16.0" +\include "pop-chords.ly" +\include "english.ly" + +% Good sizes are 16, 18, & 20 +staffSize = #20 +#(set-default-paper-size "letter") +#(set-global-staff-size staffSize) +#(ly:set-option (quote no-point-and-click)) + +\header +{ +%Let's bump up the title size and switch to the chord font. :-) + + title = \markup { \override #'(font-family . sans) \fontsize #3.5 "He Knows My Name" } +% composer = \markup { \override #'(font-family . sans) \fontsize #1.3 "" } + arranger = \markup { \override #'(font-family . sans) \fontsize #1.3 "arr. Ed Smart" } + tagline = $(string-append "Engraved by JLH and Lilypond " (lilypond-version)) +} + +% Useful tweak abbreviations (hn = harmony note) + +hn = #(define-music-function (parser location arg) (ly:music?) +;; Harmony Note: Set the tweaks property of the passed in note to use a smaller font + + (set! (ly:music-property arg 'tweaks) + (acons 'font-size -3.5 (ly:music-property arg 'tweaks))) arg) + + +% +% Lead vocal +% + +LeadVox = \relative c' +{ +% \set Voice.autoBeaming = ##f +% \set Staff.instrument = #"Lead vox" + \clef G + \key e \major + \override Staff.TimeSignature #'style = #'() + \time 4/4 +\override Score.SpacingSpanner #'average-spacing-wishes = ##f + + % Intro + + \partial 8*1 s8 | % 0 + s1 | % 1 + s1 | % 2 + s1 | % 3 + s1 | % 4 + + \repeat volta 2 + { + % Verse + +\mark \markup { \override #'(font-family . sans) { \box { A } } } + + r4 e8 fs ~ fs4 a8 gs ( ~ | % 5 + gs4 e8 ) cs ~ cs4 r | % 6 + r4 gs'8 a ( ~ a gs ) fs fs ~ | % 7 + fs2 r | % 8 + r4 e8 fs ~ fs4 gs8 a | % 9 + gs4 ( e8 ) cs ~ cs4. e8 | % 10 + gs4 gs8 fs ~ fs4 e8 e ~ | % 11 + e2 r \bar "||" % 12 + + % Chorus + +\mark \markup { \override #'(font-family . sans) { \box { B } } \hspace #1.0 \raise #2.0 \musicglyph #"scripts.segno" } + + r4 8 ~ 4 8 ( ~ | % 13 + 4. 8 ) ~ 2 | % 14 + r4 8 ~ 4 8 ~ | % 15 + 4 8 ~ 2 | % 16 + r4 8 ~ 4 8 ~ | % 17 + 4 8 ~ 4 r8 | % 18 +\once \override Score.RehearsalMark #'self-alignment-X = #right +\mark \markup { \italic { to Coda } \hspace #1.0 \musicglyph #"scripts.coda" } + 4 8 8 ~ 4 8 ~ | % 19 + } + \alternative + { + { + 2 r | % 20 + } + { + 2 \repeatTie r \bar "||" % 21 + +\once \override Score.RehearsalMark #'self-alignment-X = #right +\mark \markup { \italic { D.S. al Coda } } + } + } + + % Coda + +\stopStaff s1 \bar "" \startStaff % That removed the spurious floating bar line from line break +%\stopStaff s1 \startStaff +\set Score.currentBarNumber = #22 + +%blegh +\break + +\once \override Score.RehearsalMark #'self-alignment-X = #left +\mark \markup { { \musicglyph #"scripts.coda" } "Coda" } + + 4 8 8 ~ 4 8 ~ | % 22 + 2 r4 r8 | % 23 + 4 8 8 ~ 4 8 ~ | % 24 + 2. r8 e | % 25 + e4 gs8 fs ~ fs4 e | % 26 + \voiceTwo e1 \oneVoice | % 27 + s1 | % 28 + s1 | % 29 + s1 \bar "|." % 30 +} + +LeadVoxText = \lyricmode +{ + I have _ a mak -- _ _ er, _ + he formed __ _ _ my heart. _ + Be -- fore _ e -- ven time be -- gan _ + my life was in _ his hand. _ + + He knows _ my name, __ _ _ _ + He knows _ my ev -- _ ’ry thought, _ + He sees _ each tear _ that falls _ + and hears me when _ I call. _ + + _ + + hears me when _ I call. _ + and hears me when _ I call. _ + He hears me when _ I call. +} + +LeadVoxTextB = \lyricmode +{ + I have _ a Fa -- _ _ ther, _ + he calls _ me his own. _ + He’ll ne -- _ ver _ leave _ me _ + no mat -- ter where _ I go. _ +} + + +Riffs = \relative c'' +{ + \clef G + \key e \major + \override Staff.TimeSignature #'style = #'() + \time 4/4 +\override Score.SpacingSpanner #'average-spacing-wishes = ##f + + % Intro + + \tiny + \partial 8*1 cs16 ds | % 0 + e4 gs8 fs ~ fs4 e8 gs ~ | % 1 + gs2. r8 cs,,16 ds | % 2 + e4 gs8 fs ~ fs4 e8 e ~ | % 3 + e2 r | % 4 + s1*23 | % 5-26 (+ hidden measure) + \voiceOne r4 e'8 fs ~ fs4 a8 gs ~ \oneVoice | % 27 + gs4 e8 cs ~ cs4 r8 cs16 ds | % 28 + e4 gs8 fs ~ fs4 e | % 29 + e1-\fermata | % 30 + \normalsize +} + + +% +% Chord names +% + +Chords = \chordmode +{ +%Bah, can't we set this globally? +% \popChords + + % Intro + + \partial 8*1 s8 | % 0 + a4. b2 cs8:m7 | % 1 + r4. cs2:m7/b s8 | % 2 + fs4.:m7 b a8/b e | % 3 + s2 b4/e a/e | % 4 + + \repeat volta 2 + { + % Verse + + e4. fs2:m11 e8/gs | % 5 + s4. a2 s8 | % 6 + e4./b a2:sus2/cs b8:sus4 | % 7 + s4. b2 s8 | % 8 + e4. fs2:m11 e8/gs | % 9 + s4. a2 s8 | % 10 + e4./b b a8/b e | % 11 + s2 fs4:m7 e/gs | % 12 + + % Chorus + + a4. e2 b8 | % 13 + s4. e2 s8 | % 14 + a4. e2 b8 | % 15 + s4. e2 s8 | % 16 + a4. e2 b8 | % 17 + s4. cs2:m7 s8 | % 18 + fs4.:m7 b2 e8 | % 19 + } + \alternative + { + { + s2 a/b | % 20 + } + { + s2 fs4:m7 e/gs | % 21 + } + } + + % Coda + +s1 + + fs4.:m7 b2 cs8:m7 | % 22 + s2 cs:m7/b | % 23 + fs4.:m7 b2 cs8:m7 | % 24 + s2 cs:m7/b | % 25 + fs4.:m7 b a4/b | % 26 + e4. fs2:m11 e8/gs | % 27 + s4. a s4 | % 28 + fs2:m7 b4 a/b | % 29 + e1 | % 30 +} + + +% +% Chord rhythms +% + +% Use a RhythmicStaff on the chords instead of this? +% It almost works, but not quite. Doesn't collapse chords above to single notes... + +StaffC = \relative c +{ +% \set Voice.autoBeaming = ##f +% \set Staff.instrument = #"Rhythm" + \override Staff.TimeSignature #'style = #'() + \time 4/4 + \override NoteHead #'style = #'slash + + % Intro + + \partial 8*1 s8 | % 0 + c4. c8 ~ c4. c8 ~ | % 1 + c4. c8 ~ c4 c | % 2 + c4. c8 ~ c4 c8 c ~ | % 3 + c2 c4 c | % 4 + + \repeat volta 2 + { + % Verse + + c4. c8 ~ c4. c8 ~ | % 5 + c4. c8 ~ c4 c | % 6 + c4. c8 ~ c4. c8 ~ | % 7 + c4. c8 ~ c2 | % 8 + c4. c8 ~ c4. c8 ~ | % 9 + c4. c8 ~ c4 c | % 10 + c4. c8 ~ c4 c8 c ~ | % 11 + c2 c4 c \bar "||" % 12 + + % Chorus + + c4. c8 ~ c4. c8 ~ | % 13 + c4. c8 ~ c4 c | % 14 + c4. c8 ~ c4. c8 ~ | % 15 + c4. c8 ~ c4 c | % 16 + c4. c8 ~ c4. c8 ~ | % 17 + c4. c8 ~ c4 c | % 18 + c4. c8 ~ c4. c8 ~ | % 19 + } + \alternative + { + { + c4 c c c | % 20 + } + { + c4 \repeatTie c c c | % 21 + } + } + + % Coda + +\stopStaff s1 \bar "" \startStaff % That removed the spurious floating bar line from line break +%\stopStaff s1 \startStaff +\set Score.currentBarNumber = #22 + + c4. c8 ~ c4. c8 ~ | % 22 + c4 c c c | % 23 + c4. c8 ~ c4. c8 ~ | % 24 + c4 c c c | % 25 + c4. c8 ~ c4 c | % 26 + c4. c8 ~ c4. c8 ~ | % 27 + c4. c8 ~ c4 c | % 28 + c4 c c c | % 29 + c1-\fermata \bar "|." % 30 +} + + +Dynamics = +{ +%{ + s4_\markup { \italic { snare pat. } } s2 | % 1 + s4_\markup { \italic { simile } } s2 | % 2 + s2.*19 + s4_\markup { \italic { spacy } } s2 | % 22 + s2.*5 + s4 s \< s \! | % 28 + s2.*22 + s4_\markup { \italic { Last time } } s2 | % 51 +%} +} + + +\score +{ + << + << +% \new Staff = leadStaff { \new Voice = "lead" \LeadVox } + \new Staff = leadStaff { << \new Voice = "lead" \LeadVox \new Voice = "riffs" \Riffs >> } + \new Lyrics \lyricsto "lead" \LeadVoxText + \new Lyrics \lyricsto "lead" \LeadVoxTextB + >> + + \new ChoirStaff = "Rhythm" + << + \new ChordNames = "chords" \Chords + \new RhythmicStaff = "chordRhythm" << \StaffC \Dynamics >> + >> + + \set Score.skipBars = ##t + \set Score.melismaBusyProperties = #'() + >> + + \layout + { +% \context { \Staff \RemoveEmptyStaves } +% ragged-last-bottom = ##t + ragged-last = ##t + } +} + + +\paper +{ + #(define fonts (make-pango-font-tree + "Times New Roman" + "DomCasual BT" + "Luxi Mono" + (/ staffSize 20))) + +% top-margin = -0.25 \in +} diff --git a/he-leadeth-me.ly b/he-leadeth-me.ly new file mode 100755 index 0000000..67e1b99 --- /dev/null +++ b/he-leadeth-me.ly @@ -0,0 +1,534 @@ +\version "2.16.0" +\include "pop-chords.ly" +\include "english.ly" + +% Good sizes are 16, 18, & 20 +staffSize = #16 +#(set-default-paper-size "letter") +#(set-global-staff-size staffSize) +#(ly:set-option (quote no-point-and-click)) + +\header +{ +%Let's bump up the title size and switch to the chord font. :-) + + title = \markup { \override #'(font-family . sans) \fontsize #3.5 "He Leadeth Me" } +% composer = \markup { \override #'(font-family . sans) \fontsize #1.3 "Fernando Ortega" } + arranger = \markup { \override #'(font-family . sans) \fontsize #1.3 "arr. Ed Smart" } + tagline = "Engraved by JLH and Lilypond 2.8.2" +} + +% Useful tweak abbreviations (hn = harmony note) + +hn = #(define-music-function (parser location arg) (ly:music?) +;; Harmony Note: Set the tweaks property of the passed in note to use a smaller font + + (set! (ly:music-property arg 'tweaks) + (acons 'font-size -3.0 (ly:music-property arg 'tweaks))) arg) + + +% +% Lead vocal +% + +LeadVox = \relative c'' +{ +% \set Voice.autoBeaming = ##f +% \set Staff.instrumentName = #"Lead vox" + \clef G + \key c \major + \override Staff.TimeSignature #'style = #'() + \time 4/4 +\override Score.SpacingSpanner #'average-spacing-wishes = ##f + + % Intro + + s1 | % 1 + s1 | % 2 + s1 | % 3 + s1 | % 4 + s1 | % 5 + s1 | % 6 + s1 | % 7 + \voiceTwo r2 r4 g \oneVoice | % 8 + + \repeat volta 2 + { + % Verse + +\mark \markup { \override #'(font-family . sans) { \box { A } } } + + e4. d8 c4 g' | % 9 + a4 f f a | % 10 + g4. e8 e4 d8 ( c ) | % 11 + e4 e d g | % 12 + e4. d8 c4 g' | % 13 + a4 f c' b8 ( a ) | % 14 + g4 e e8 ( d ) c ( d ) | % 15 + e4. d8 c4 \bar "||" % 16 + + % Chorus + +\mark \markup { \override #'(font-family . sans) { \box { B } } } + + 4 | % 17 + 4 8 ( ) 4 | % 18 + 4 8 ( ) ( ) | % 19 + 4 | % 20 + 4 | % 21 + 4 8 ( ) 4 | % 22 + 4 << { \voiceOne 8 ( ) c ( d ) } \context Voice = "v2" { \voiceTwo \tiny a4 a8 b \normalsize } \oneVoice >> | % 23 + \time 2/4 4 \time 4/4 | % 24 + \voiceTwo c1 \oneVoice | % 25 + s1 | % 26 + } + \alternative + { + { + s1 | % 27 + \voiceTwo r2 r4 g' \oneVoice | % 28 + } + { + s1 | % 29 + } + } + + s1 | % 30 + s1 | % 31 + s1 | % 32 + \voiceTwo r2 r4 \oneVoice \bar "||" % 33 + + \key d \major + + % Verse + +\mark \markup { \override #'(font-family . sans) { \box { C } } } + + 4. 8 4 | % 34 + 4 | % 35 + 4. 8 4 8 ( ) | % 36 + 4 | % 37 + 4. 8 4 | % 38 + 4 8 ( ) | % 39 + 4 << { \voiceOne 8 ( ) d ( e ) } \context Voice = "v2" { \voiceTwo \tiny b4 b8 cs \normalsize } \oneVoice >> | % 40 + 4. 8 4 \bar "||" % 41 + + % Chorus + +\mark \markup { \override #'(font-family . sans) { \box { D } } } + + 4 | % 42 + 4 8 ( ) 4 | % 43 + 4 8 ( ) ( ) | % 44 + 4 | % 45 + 4 | % 46 + 4 8 ( ) 4 | % 47 + 4 << { \voiceOne 8 ( ) d ( ) } \context Voice = "v2" { \voiceTwo \tiny b4 b8 a \normalsize } \oneVoice >> | % 48 + 2 \bar "||" % 49 + + % Outro + +\mark \markup { \override #'(font-family . sans) { \box { E } } } + + \voiceTwo d1 \oneVoice | % 50 + s1 | % 51 + s1 | % 52 + s1 | % 53 + s1 | % 54 + s1 | % 55 + s1 | % 56 + s1 | % 57 + s1 \bar "|." % 58 +} + +LeadVoxText = \lyricmode +{ + He lead- eth me, O bless- ed thought, + O words with heav'n- ly _ com- fort fraught; + What- e'er I do, where- e'er I be, + still _ 'tis God's hand _ that _ lead- eth me. + + He lead- eth me, he lead- eth _ me, + by his own hand _ he _ lead- eth me, + His faith- ful fol- l'wer I would _ be, + for by his hand _ he _ lead- eth me. + + Lord, + + And when my task on earth is done, + when by thy grace the _ vic- try's won; + E'en death's cold wave I will not flee, + still _ God through Jor- _ dan _ lead- eth me. + + He lead- eth me, he lead- eth _ me, + by his own hand _ he _ lead- eth me, + His faith- ful fol- l'wer I would _ be, + for by his hand _ he _ lead- eth me. +} + +LeadVoxTextB = \lyricmode +{ + _ + + I would clasp thy hand in mine, + nor e- ver mur- mur _ nor re- pine; + Con- tent what- e- ver lot I see, + since _ 'tis my God _ that _ lead- eth me. +} + + +Riffs = \relative c'' +{ + \clef G + \key c \major + \override Staff.TimeSignature #'style = #'() + \time 4/4 +\override Score.SpacingSpanner #'average-spacing-wishes = ##f + + % Intro + +\tiny + r8 g16 d' ~ d c8 g16 ~ g8 g16 d' ~ d c8. ~ | % 1 + c8 g16 d' ~ d c8 b16 ~ b8. c16 ~ c16 d8. ~ | % 2 + d8 g,16 d' ~ d c8 g16 ~ g8 g16 d' ~ d c8. ~ | % 3 + c8 g16 d' ~ d c8 b16 ~ b8. c16 ~ c16 d8. ~ | % 4 + d8 g,16 d' ~ d c8 g16 ~ g8 g16 d' ~ d c8. ~ | % 5 + c8 g16 d' ~ d c8 b16 ~ b8. c16 ~ c16 d8. ~ | % 6 + d8 g,16 d' ~ d c8 g16 ~ g8 g16 d' ~ d c8. | % 7 + \voiceOne 1 \oneVoice | % 8 + + \repeat volta 2 + { + % Verse + + s1 | % 9 + s1 | % 10 + s1 | % 11 + s1 | % 12 + s1 | % 13 + s1 | % 14 + s1 | % 15 + s1 | % 16 + + % Chorus + + s1 | % 17 + s1 | % 18 + s1 | % 19 + s1 | % 20 + s1 | % 21 + s1 | % 22 + s1 | % 23 + \time 2/4 s2 \time 4/4 | % 24 + \voiceOne r8 g,16 d' ~ d c8 g16 ~ g8 g16 d' ~ d c8. ~ \oneVoice | % 25 + c8 g16 d' ~ d c8 b16 ~ b8. c16 ~ c16 d8. ~ | % 26 + } + \alternative + { + { + d8 g,16 d' ~ d c8 g16 ~ g8 g16 d' ~ d c8. | % 27 + \voiceOne 1 \oneVoice | % 28 + } + { + d8 \repeatTie g,16 d' ~ d c8 g16 ~ g8 g16 d' ~ d c8. | % 29 + } + } + + c8 bf16 f ~ f2. | % 30 + c'8 bf16 f ~ f4 ~ f8. af16 ~ af bf8. | % 31 + c1 | % 32 + \voiceOne d2 e \oneVoice | % 33 + + % Verse + + s1 | % 34 + s1 | % 35 + s1 | % 36 + s1 | % 37 + s1 | % 38 + s1 | % 39 + s1 | % 40 + s1 | % 41 + + % Chorus + + s1 | % 42 + s1 | % 43 + s1 | % 44 + s1 | % 45 + s1 | % 46 + s1 | % 47 + s1 | % 48 + s1 | % 49 + + % Outro + + \voiceOne r8 a,16 e' ~ e d8 a16 ~ a8 a16 e' ~ e d8. ~ \oneVoice | % 50 + d8 a16 e' ~ e d8 cs16 ~ cs8. d16 ~ d16 e8. ~ | % 51 + e8 a,16 e' ~ e d8 a16 ~ a8 a16 e' ~ e d8. ~ | % 52 + d8 a16 e' ~ e d8 cs16 ~ cs8. d16 ~ d16 e8. ~ | % 53 + e8 a,16 e' ~ e d8 a16 ~ a8 a16 e' ~ e d8. ~ | % 54 + d8 a16 e' ~ e d8 cs16 ~ cs8. d16 ~ d16 e8. ~ | % 55 + e8 a,16 e' ~ e d8 a16 ~ a8 a16 e' ~ e d8. ~ | % 56 + d8 a16 e' ~ e d8 cs16 ~ cs8. d16 ~ d16 cs8. ~ | % 57 + 1^\fermata | % 59 +\normalsize +} + + +% +% Chord names +% + +Chords = \chordmode +{ +%Bah, can't we set this globally? +% \popChords + + % Intro + + c2:sus2/a c:sus2/f | % 1 + g1:sus4 | % 2 + c2:sus2/a c:sus2/f | % 3 + g1:sus4 | % 4 + c2:sus2/a c:sus2/f | % 5 + g1:sus4 | % 6 + c2:sus2/e c:sus2/f | % 7 + g1:sus4 | % 8 + + \repeat volta 2 + { + % Verse + + c2 c/e | % 9 + f2 d:m7 | % 10 + c2/g a:m7 | % 11 + c2/f g4:sus4 g | % 12 + c2 c/e | % 13 + f2 fs:dim | % 14 + c2/g a:m7 | % 15 + c4/g g c g:sus4.7 \bar "||" % 16 + + % Chorus + + c2 g | % 17 + f4 e8:m7 d:m7 c4 f | % 18 + c2/g a:m7 | % 19 + d2:9 g4:sus4.7 g:7 | % 20 + c2 g | % 21 + f4 e8:m7 d:m7 c4 f | % 22 + c2/e a:m7 | % 23 + \time 2/4 c4/f g \time 4/4 | % 24 + c2:sus2/a c:sus2/f | % 25 + g1:sus4 | % 26 + } + \alternative + { + { + c2:sus2/e c:sus2/f | % 27 + g1:sus4 | % 28 + } + { + c2:sus2/e c:sus2/ef | % 29 + } + } + + bf1:sus2/d | % 30 + df1:maj7 | % 31 + f1/g | % 32 + g2/a a4 a:sus4.7 \bar "||" % 33 + + % Verse + + d2 d/fs | % 34 + g2 e:m7 | % 35 + d2/a b:m7 | % 36 + d2/a a | % 37 + d4. e8:m7 d2/fs | % 38 + g2 gs:dim | % 39 + d2/a b:m7 | % 40 + d4/a a d d:sus4.7 \bar "||" % 41 + + % Chorus + + d2 a | % 42 + g4 fs8:m7 e:m7 d4 g | % 43 + d2/a b:m7 | % 44 + e2:9 a4:sus4.7 a:7 | % 45 + d2 a | % 46 + g4 fs8:m7 e:m7 d4 g | % 47 + d2/fs b:m7 | % 48 + d2/g a \bar "||" % 49 + + % Outro + + d2:sus2 g:6.9 | % 50 + a1:sus4 | % 51 + d2:sus2/b g:6.9 | % 52 + a1:sus4 | % 53 + d2:sus2 g:6.9 | % 54 + a1:sus4 | % 55 + d2:sus2/fs g:6.9 | % 56 + a1:sus4 | % 57 + d1 | % 58 +} + + +% +% Chord rhythms +% + +% Use a RhythmicStaff on the chords instead of this? +% It almost works, but not quite. Doesn't collapse chords above to single notes... + +StaffC = \relative c +{ +% \set Voice.autoBeaming = ##f +% \set Staff.instrumentName = #"Rhythm" + \override Staff.TimeSignature #'style = #'() + \time 4/4 + \override NoteHead #'style = #'slash + + % Intro + + c4 c c c | % 1 + c4 c c c | % 2 + c4 c c c | % 3 + c4 c c c | % 4 + c4 c c c | % 5 + c4 c c c | % 6 + c4 c c c | % 7 + c1 | % 8 + + \repeat volta 2 + { + % Verse + + c4 c c c | % 9 + c4 c c c | % 10 + c4 c c c | % 11 + c4 c c c | % 12 + c4 c c c | % 13 + c4 c c c | % 14 + c4 c c c | % 15 + c4 c c c-> \bar "||" % 16 + + % Chorus + + c4 c c c | % 17 + c4 c8 c c4 c | % 18 + c4 c c c | % 19 + c4 c c c | % 20 + c4 c c c | % 21 + c4 c8 c c4 c | % 22 + c4 c c c | % 23 + \time 2/4 c4 c \time 4/4 | % 24 + c4 c c c | % 25 + c4 c c c | % 26 + } + \alternative + { + { + c4 c c c | % 27 + c4 c c c | % 28 + } + { + c4 c c c | % 29 + } + } + + c4 c c c | % 30 + c4 c c c | % 31 + c4 c c c | % 32 + c4 c c c \bar "||" % 33 + + % Verse + + c4 c c c | % 34 + c4 c c c | % 35 + c4 c c c | % 36 + c4 c c c | % 37 + c4. c8 c4 c | % 38 + c4 c c c | % 39 + c4 c c c | % 40 + c4 c c c-> \bar "||" % 41 + + % Chorus + + c4 c c c | % 42 + c4 c8 c c4 c | % 43 + c4 c c c | % 44 + c4 c c c | % 45 + c4 c c c | % 46 + c4 c8 c c4 c | % 47 + c4 c c c | % 48 + c2 c \bar "||" % 49 + + % Outro + + c4 c c c | % 50 + c4 c c c | % 51 + c4 c c c | % 52 + c4 c c c | % 53 + c4 c c c | % 54 + c4 c c c | % 55 + c4 c c c | % 56 + c4 c c c | % 57 + c1^\fermata \bar "|." % 58 +} + + +Dynamics = +{ + s4_\mf s2. | % 1 + s1*22 | % 2-23 + s4 s \> | % 24 + s4 \! s2. | % 25 + s1*2 | % 26-27 + s4 \< s s \! s | % 28 + s1*4 | % 29-32 + s4 \< s s \! s | % 33 + s1*23 | % 34-56 + s2 s2_\markup { \italic { rit. } } | % 57 +} + + +\score +{ + << + << +% \new Staff = leadStaff { \new Voice = "lead" \LeadVox } + \new Staff = leadStaff { << \new Voice = "lead" \LeadVox \new Voice = "riffs" \Riffs >> } + \new Lyrics \lyricsto "lead" \LeadVoxText + \new Lyrics \lyricsto "lead" \LeadVoxTextB + >> + + \new ChoirStaff = "Rhythm" + << + \new ChordNames = "chords" \Chords + \new RhythmicStaff = "chordRhythm" << \StaffC \Dynamics >> + >> + + \set Score.skipBars = ##t + \set Score.melismaBusyProperties = #'() + >> + + \layout + { +% \context { \Staff \RemoveEmptyStaves } +% ragged-last-bottom = ##t + ragged-last = ##t + } +} + + +\paper +{ + #(define fonts (make-pango-font-tree + "Times New Roman" + "DomCasual BT" + "Luxi Mono" + (/ staffSize 20))) + +% top-margin = -0.25 \in +} diff --git a/he-who-began-a-good-work-in-you.ly b/he-who-began-a-good-work-in-you.ly new file mode 100755 index 0000000..817908c --- /dev/null +++ b/he-who-began-a-good-work-in-you.ly @@ -0,0 +1,722 @@ +\version "2.16.0" +\include "pop-chords.ly" +\include "english.ly" + +% Good sizes are 16, 18, & 20 +staffSize = #16 +#(set-default-paper-size "letter") +#(set-global-staff-size staffSize) +#(ly:set-option (quote no-point-and-click)) + + +\header +{ + title = \markup { \override #'(font-family . sans) \fontsize #3.5 "He Who Began A Good Work In You" } + composer = \markup { \override #'(font-family . sans) \fontsize #1.3 "Words & music by Andre Crouch" } + arranger = \markup { \override #'(font-family . sans) \fontsize #1.3 "arr. Ed Smart/Shamus Hammons" } + tagline = "Engraved by JLH and Lilypond 2.8.2" +} + + +% +% Lead vocal +% + +LeadXvoxA = \relative c' +{ +% \set Voice.autoBeaming = ##f + \set Staff.instrumentName = #"Lead vox" + \clef G + \key a \major + \time 4/4 +\override Score.SpacingSpanner #'average-spacing-wishes = ##f + +% \set Score.markFormatter = #format-mark-box-letters + + \repeat volta 2 + { + R1^"Moderately, not too slow" | % 1 + R1 | % 2 + } + \alternative + { + { + R1 | % 3 + R1 | % 4 + } + { + R1 | % 5 + R1 \bar "||" % 6 + } + } + + % Chorus + +%\mark \markup { \override #'(font-family . sans) { \box { A } } } +\once \override Score.RehearsalMark #'self-alignment-X = #left +\mark \markup { \override #'(font-family . sans) { \box { A } } \hspace #1.0 \raise #2.0 \musicglyph #"scripts.segno" } + + \stemUp a'4. gs8 ~ gs4 r8 e | % 7 + fs [ gs ] a [ b ~ ] b gs4 e8 ~ | % 8 + e2 r | % 9 + R1 | % 10 + a4. gs8 ~ gs4 r8 e | % 11 + fs [ gs ] a [ b ~ ] b gs4 \stemDown cs8 ~ | % 12 + cs1 ~ | % 13 + cs2 r8 b cs [ d ~ ] | % 14 + d [ cs ] \stemUp b [ a ] a [ b ~ ] b4 | % 15 + r2 r8 \stemDown b cs [ d ~ ] | % 16 + d [ cs ] \stemUp b [ a ] \stemDown cs [ b ~ ] b4 | % 17 + r2 r8 b cs [ d ~ ] | % 18 + d [ cs ] \stemUp b [ a ~ ] a [ b ] \stemDown cs [ d ~ ] | % 19 +%\mark \markup { \musicglyph #"scripts.coda" } | % 19 +\once \override Score.RehearsalMark #'self-alignment-X = #right +\mark \markup { \italic { to Coda } \hspace #1.0 \musicglyph #"scripts.coda" } + + d [ cs ] \stemUp b [ a ] a [ b ] gs [ a ~ ] \bar "||" % 20 + + % Interlude + + a2 r | % 21 + R1 | % 22 + R1 | % 23 + r2. r8 cs,16 [ d ] \bar"||" % 24 + + % Verse + +\mark \markup { \override #'(font-family . sans) { \box { B } } } + + e8 [ e ] e [ e ~ ] e [ d ] cs4 | % 25 + e8 [ fs ] gs [ a ~ ] a [ gs ] e [ d ~ ] | % 26 + d4 r r8 e fs [ b, ] ~ | % 27 + b2 r4 r8 e16 [ fs ] | % 28 + gs8 [ gs ] gs [ gs ~ ] gs [ fs ] e4 | % 29 + gs8 [ gs ] gs [ gs ~ ] gs [ a ] b [ e, ~ ] | % 30 + e2. r4 | % 31 + R1 | % 32 + e8 [ e ] e [ e ~ ] e4 r8 cs16 [ d ] | % 33 + e8 [ fs ] gs [ a ~ ] a [ gs ] e4 | % 34 + fs8 [ fs ] fs [ fs ~ ] fs4 d8 [ e ] | % 35 + fs [ gs ] a [ b ~ ] b [ a ] fs4 | % 36 + gs8 [ gs ] gs [ gs ~ ] gs fs4 e8 | % 37 + \times 2/3 { gs4 gs gs } \times 2/3 { gs a \stemDown b } | % 38 + \stemUp a1 | % 39 + R1 +\once \override Score.RehearsalMark #'self-alignment-X = #right +\mark "D.S. al Coda" + \bar "||" % 40 +% \break + + % Coda (chorus again) + +%\stopStaff s1 \startStaff +s1 +\set Score.currentBarNumber = #41 + +\once \override Score.RehearsalMark #'self-alignment-X = #left +\mark \markup { { \musicglyph #"scripts.coda" } "Coda" } + + d8 \repeatTie [ cs ] \stemUp b [ a ] a [ b ] gs4 \bar "||" \mark \default % 43 + +\mark \markup { \override #'(font-family . sans) { \box { C } } } + + \stemUp a4. gs8 ~ gs4 r8 e | % 42 + fs [ gs ] a [ b ~ ] b gs4 e8 ~ | % 43 + e2 r | % 44 + R1 | % 45 + a4. gs8 ~ gs4 r8 e | % 46 + fs [ gs ] a [ b ~ ] b gs4 \stemDown cs8 ~ | % 47 + cs1 ~ | % 48 + cs2 r8 b cs [ d ~ ] | % 49 + d [ cs ] \stemUp b [ a ] a [ b ~ ] b4 | % 50 + r2 r8 \stemDown b cs [ d ~ ] | % 51 + d [ cs ] \stemUp b [ a ] \stemDown cs [ b ~ ] b4 | % 52 + r2 r8 b cs [ d ~ ] | % 53 + d [ cs ] \stemUp b [ a ~ ] a [ b ] \stemDown cs [ d ~ ] | % 54 +% d [ cs ] \stemUp b [ a ] a [ b ] gs [ a ~ ] \bar "|:" % 55 + d [ cs ] \stemUp b [ a ] a [ b ] gs4 | % 55 + + % Ending + + \repeat volta 2 + { + a2 r | % 56 + R1 | % 57 + } + \alternative + { + { + R1 | % 58 + R1 | % 59 + } + { + R1 | % 60 + } + } + + r1^\fermata \bar "|." % 61 +} + +LeadXvoxATextA = \lyricmode +{ + He who _ be- gan a good work _ in you _ + He who _ be- gan a good work _ in you _ + _ Will be fai- _ thful to com- plete it _ + Will be fai- _ thful to com- plete it _ + He who start- _ ed the work _ will be fai- + _ thful to com- plete it in you _ + + If the trou- ble you're fac- _ ing is + slow- ly re- pla- _ cing your hope _ with des- pair _ + And the pro- cess is long _ and you're + lo- sing your songs _ in the night _ + You can be sure _ that the Lord has his hand _ on you + Safe and se- cure _ He will ne- ver a- band- _ on you + You are his trea- _ sure And + He finds His plea- sure in you + + _ thful to com- plete it in + + He who _ be- gan a good work _ in you _ + He who _ be- gan a good work _ in you _ + _ Will be fai- _ thful to com- plete it _ + Will be fai- _ thful to com- plete it _ + He who start- _ ed the work _ will be fai- + _ thful to com- plete it in you _ +} + + +% +% Background vocals +% + +BgXvoxA = \relative c' +{ +% \set Voice.autoBeaming = ##f + \set Staff.instrumentName = #"BG vox" + \clef G + \key a \major + \time 4/4 + + \repeat volta 2 + { + R1 | % 1 + R1 | % 2 + } + \alternative + { + { + R1 | % 3 + R1 | % 4 + } + { + R1 | % 5 + R1 | % 6 + } + } + \bar "||" + + % Chorus + + R1_\markup { \italic { 1st time unison, 2nd harmony } } | % 7 + R1 | % 8 + R1 | % 9 + R1 | % 10 + +%But this does... FINALLY! +%{ +% lyrics follow voice above + R1 | % 11 + r2 r4 r8 << { \voiceOne fs'8 ~ } \context Voice = "v" { \voiceTwo ~ } >> | % 12 + << { \voiceOne fs'2 ~ fs4. f8 ~ } \context Voice = v { \voiceTwo 1 ~ } >> | % 13 + << { \voiceOne f'2 } \context Voice = v { \voiceTwo 2 } >> \oneVoice r2 | % 14 +%} + +% lyrics follow voice below + R1 | % 11 + r2 r4 r8 << { \voiceOne ~ } \context Voice = "v" { \voiceTwo fs8 ~ } >> | % 12 + << { \voiceOne 1 ~ } \context Voice = v { \voiceTwo fs2 ~ fs4. f8 ~ } >> | % 13 + << { \voiceOne 2 } \context Voice = v { \voiceTwo f2 } >> \oneVoice r2 | % 14 + + 1 | % 15 + 4. 8 ~ 4 r | % 16 + 1 | % 17 + 4. 8 ~ 4 r8 ~ | % 18 + 4. 8 ~ 4. 8 ~ | % 19 + 4 8 ~ | % 20 + + % Interlude + + 2 r | % 21 + R1 | % 22 + R1 | % 23 + R1 | % 24 + + % Verse + + R1 | % 25 + R1 | % 26 + R1 | % 27 + R1 | % 28 + R1 | % 29 + R1 | % 30 + R1 | % 31 + R1 | % 32 + + a8 [ a ] a [ a ~ ] a4 r8 a16 [ a ] | % 33 + a8 [ a ] b [ cs ~ ] cs [ a ] gs4 | % 34 + R1 | % 35 + R1 | % 36 + R1 | % 37 + R1 | % 38 + R1 | % 39 + R1 | % 40 + + % Coda (chorus again) + +\stopStaff s1 \startStaff +\set Score.currentBarNumber = #41 + + R1 \bar "||" % 41 + + R1 | % 42 + R1 | % 43 + R1 | % 44 + R1 | % 45 + R1 | % 46 + R1 | % 47 + R1 | % 48 + R1 | % 49 + R1 | % 50 + R1 | % 51 + R1 | % 52 + R1 | % 53 + R1 | % 54 + R1 | % 55 + + % Ending + + \repeat volta 2 + { + R1 | % 56 + R1 | % 57 + } + \alternative + { + { + R1 | % 58 + R1 | % 59 + } + { + R1 | % 60 + } + } + + r1^\fermata \bar "|." % 61 +} + +BgXvoxATextA = \lyricmode +{ +%\set associatedVoice = foo +% Not +% you __ _ _ _ _ + you __ _ _ +%\set associatedVoice = bg + ooo fai- thful _ ooo fai- thful _ + Ah __ _ _ _ _ _ to com- plete it in you _ +} + + +% +% Instrumental lines +% + +RhythmB = \relative c' +{ +% \set Voice.autoBeaming = ##f +% \set Staff.instrumentName = #"Rhythm" + \clef G + \key a \major + \time 4/4 + + \repeat volta 2 + { + \stemDown a'8 [ b cs b ~ ] b [ e ~ ] e4 | + d8 [ e cs b ~ ] b2 | % 4 + } + \alternative + { + { + a8 [ b cs b ~ ] b [ e cs a ~ ] | + \stemUp a1 | + } + { + \stemDown a8 [ b cs b ~ ] b [ e cs a ~ ] | + \stemUp a1 | + } + } + \bar "||" + + % Chorus + + R1 | % 9 + R1 | + R1 | % 11 + R1 | + R1 | % 13 + R1 | + R1 | % 15 + R1 | + R1 | % 17 + R1 | + R1 | % 19 + R1 | + R1 | % 21 + R1 | + + % Interlude + + \stemDown a8 [ b cs b ~ ] b [ e ~ ] e4 | + d8 [ e cs b ~ ] b2 | % 24 + a8 [ b cs b ~ ] b [ e cs a ~ ] | + \stemUp a1 | % 26 + + % Verse + + R1 | + R1 | + R1 | % 29 + R1 | + R1 | % 31 + R1 | + R1 | % 33 + R1 | + R1 | % 35 + R1 | + R1 | % 37 + R1 | + R1 | % 39 + R1 | + R1 | % 41 + R1 | + + % Coda (chorus again) + +\stopStaff s1 \startStaff +\set Score.currentBarNumber = #41 + + R1 \bar "||" % 43 + R1 | + R1 | % 45 + R1 | + R1 | % 47 + R1 | + R1 | % 49 + R1 | + R1 | % 51 + R1 | + R1 | % 53 + R1 | + R1 | % 55 + R1 | + R1 | % 57 + + % Ending + + \repeat volta 2 + { + \stemDown a8 [ b cs b ~ ] b [ e ~ ] e4 | + d8 [ e cs b ~ ] b2 | % 4 + } + \alternative + { + { + a8 [ b cs b ~ ] b [ e cs a ~ ] | + \stemUp a1 | + } + { + \stemDown a8 [ b cs b ~ ] b [ e cs a ~ ] | + } + } + + \stemUp a1^\fermata \bar "|." +} + + +% +% Chord names +% + +Chords = \chordmode +{ +%Bah, can't we set this globally? +%\set chordNameExceptions = #popChords +%\set chordRootNamer = #chord-name->pop-markup + +% \popChords + + \repeat volta 2 + { + a4. cs4.:m7 s4 | + d4. e4.:sus4 e4 | % 4 + } + \alternative + { + { + a4. cs2:m7 d8 | + s2 d/e | + } + { + fs4.:m7 e2 d8 | + s2 d/e | + } + } + + % Chorus + + a4. e4./gs s4 | + d4./fs e4./gs s8 cs8:m7 | % 10 + s1 | + b2:m7 d/e | % 12 + a4. e/gs s4 | + d4./fs e2/gs cs8:sus4.7 | % 14 + s2. s8 cs:7 | + s1 | % 16 + b1:m7 | + e4.:sus4 e s4 | % 18 + b1:m7 | + e4.:sus4 e s8 d8 | % 20 + s4. a2/cs b8:m7 | + s2 d4/e e | % 22 + + % Interlude + + a4. cs4.:m7 s4 | + d4. e4.:sus4 e4 | % 24 + fs4.:m7 e2 d8 | + s2 d/e | % 26 + + % Verse + + a4. e/gs s4 | + d4./fs a/e s4 | % 28 + d4. cs:m7 s8 b8:m7 | + s4. b:m7/a s4 | % 30 + e4./gs d/fs s4 | + e1 | % 32 + a1 | +% d1/e | % 34 +% alt: + c2/d d | % 34 + + a4. e/gs s4 | + d4./fs a/e s4 | % 36 + d4. cs:m7 s4 | + b4.:m7 b:m7/a s4 | % 38 + e4./gs d/fs s4 | + e4.:sus4 e s4 | % 40 + a1 | +% d1/e | % 42 +% alt: + c2/d d | % 42 + + % Coda (chorus again) + +s1 | + b2:m7 d4/e e | % 43 + a4. e4./gs s4 | + d4./fs e4./gs s8 cs8:m7 | % 45 + s1 | +% b2:m7 d/e | % 47 +% On Ed's chart it's like so: + d/e | % 47 + a4. e/gs s4 | + d4./fs e2/gs cs8:sus4.7 | % 49 + s2. s8 cs:7 | + s1 | % 51 + b1:m7 | + e4.:sus4 e s4 | % 53 + b1:m7 | + e4.:sus4 e s8 d8 | % 55 + s4. a2/cs b8:m7 | + s2 d4/e e | % 57 + + % Ending + + \repeat volta 2 + { + a4. cs4.:m7 s4 | + d4. e4.:sus4 e4 | % 59 + } + \alternative + { + { + a4. cs2:m7 d8 | + s2 d/e | + } + { + fs4.:m7 e2 d8 | + } + } + + s1 | +} + + +% +% Chord rhythms +% + +% Use a RhythmicStaff on the chords instead of this? +% It almost works, but not quite. Doesn't collapse chords to single notes... + +StaffC = \relative c +{ +% \set Voice.autoBeaming = ##f +% \set Staff.instrumentName = #"Rhythm" + \time 4/4 + + \override NoteHead #'style = #'slash + + \repeat volta 2 + { + \stemDown c'4. c8 ~ c4 c | %1 + c4. c8 ~ c4 c | % 2 + } + \alternative + { + { + c4. c8 ~ c4. c8 ~ | % 3 + c4 c c c | % 4 + } + { + c4. c8 ~ c4. c8 ~ | % 5 + c4 c c c | % 6 + } + } + \bar "||" + + % Chorus + + c4. c8 ~ c4 c | % 7 + c4. c8-> c4 r8 c8 ~ | % 8 + c4 c c c | % 9 + c4 c c c | % 10 + c4. c8 ~ c4 c | % 11 + c4. c8 ~ c4. c8 ~ | % 12 + c4 c c r8 c8 ~ | % 13 + c4 c c c | % 14 + + c4 c c c | % 15 + c4. c8 ~ c4 c | % 16 + c4 c c c | % 17 + c4. c8 ~ c4 r8 c8 ~ | % 18 + c4. c8 ~ c4. c8 ~ | % 19 + c4 c c c | % 20 + + % Interlude + + c4. c8 ~ c4 c | % 21 + c4. c8 ~ c4 c | % 22 + c4. c8 ~ c4. c8 ~ | % 23 + c4 c c c | % 24 + + % Verse + + c4. c8 ~ c4 c | % 25 + c4. c8 ~ c4 c | % 26 + c4. c8 ~ c4 r8 c8 ~ | % 27 + c4. c8 ~ c4 c | % 28 + c4. c8 ~ c4 c | % 29 + c4 c c c | % 30 + c4 c c c | % 31 + c4 c c c | % 32 + + c4. c8 ~ c4 c | % 33 + c4. c8 ~ c4 c | % 34 + c4. c8 ~ c4 c | % 35 + c4. c8 ~ c4 c | % 36 + c4. c8 ~ c4 c | % 37 + c4. c8 ~ c4 c | % 38 + c4 c c c | % 39 + c4 c c c | % 40 + + % Coda (chorus again) + +\stopStaff s1 \startStaff +\set Score.currentBarNumber = #41 + + c4 c c c \bar "||" % 41 + c4. c8 ~ c4 c | % 42 + c4. c8-> c4 r8 c8 ~ | % 43 + c4 c c c | % 44 + c4 c c c | % 45 + c4. c8 ~ c4 c | % 46 + c4. c8 ~ c4. c8 ~ | % 47 + c4 c c r8 c8 ~ | % 48 + c4 c c c | % 49 + + c4 c c c | % 50 + c4. c8 ~ c4 c | % 51 + c4 c c c | % 52 + c4. c8 ~ c4 r8 c8 ~ | % 53 + c4. c8 ~ c4. c8 ~ | % 54 + c4 c c c | % 55 + + % Ending + + \repeat volta 2 + { + \stemDown c4. c8 ~ c4 c | % 56 + c4. c8 ~ c4 c | % 57 + } + \alternative + { + { + c4. c8 ~ c4. c8 ~ | % 58 + c4 c c c | % 59 + } + { + c4._\markup { \italic { rit. } } c8 ~ c4. c8 ~ | % 60 + } + } + + c1 ^\fermata \bar "|." % 61 +} + + +\score +{ + << + \new ChoirStaff = "Vox" + << + \new Staff = LeadVox { \new Voice = "lead" \LeadXvoxA } + \new Lyrics \lyricsto "lead" \LeadXvoxATextA + \new Staff = BgVox { \new Voice = "bg" \BgXvoxA } + \new Lyrics \lyricsto "bg" \BgXvoxATextA + >> + + \new ChoirStaff = "Rhythm" + << + \new Staff = "riff" \RhythmB + \new ChordNames = "chords" \Chords + \new RhythmicStaff = "chordRhythm" \StaffC + >> + + \set Score.skipBars = ##t + \set Score.melismaBusyProperties = #'() + >> + \layout { +% ragged-last-bottom = ##t + ragged-last = ##t + } +} + +\paper +{ + #(define fonts (make-pango-font-tree + "Times New Roman" + "DomCasual BT" + "Luxi Mono" + (/ staffSize 20))) +} diff --git a/holy-is-the-lord.ly b/holy-is-the-lord.ly new file mode 100644 index 0000000..14d62fb --- /dev/null +++ b/holy-is-the-lord.ly @@ -0,0 +1,332 @@ +\version "2.16.0" +\include "pop-chords.ly" +\include "english.ly" + +% Good sizes are 16, 18, & 20 +staffSize = #20 +#(set-default-paper-size "letter") +#(set-global-staff-size staffSize) +#(ly:set-option (quote no-point-and-click)) + +\header +{ +%Let's bump up the title size and switch to the chord font. :-) + + title = \markup { \override #'(font-family . sans) \fontsize #3.5 "Holy Is The Lord" } +% subtitle = \markup { \override #'(font-family . sans) \fontsize #3.5 "SA version" } + composer = \markup { \override #'(font-family . sans) \fontsize #1.3 "Blake/Harriton" } +% arranger = \markup { \override #'(font-family . sans) \fontsize #1.3 "arr. Ed Smart/Deborah Hammons" } + tagline = $(string-append "Engraved by JLH and Lilypond " (lilypond-version)) +} + + +% +% Song's structure +% +Global = +{ + \key d \major + \override Staff.TimeSignature #'style = #'() + \time 4/4 + + % A section + + \mark \markup { \override #'(font-family . sans) { \box { A } } } + + s1*16 \bar "||" % 1-16 + + % B section + + \mark \markup { \override #'(font-family . sans) { \box { B } } } + + s1*16 \bar ":|" % 17-32 +} + + +% +% Lead vocal +% + +LeadVox = \relative c' +{ +% \set Voice.autoBeaming = ##f +% \set Staff.instrument = #"Lead vox" + \clef G + + % A section + + d4. ( a'8 ) a2 | % + d,4. ( a'8 ) a2 | % + fs4. ( b8 ) b2 | % + fs4. ( b8 ) b2 | % + b2. b4 | % + a2. e8 ( fs ) | % + fs1 ~ | % + fs2. r4 | % + + d4. ( a'8 ) a2 | % + d,4. ( a'8 ) a2 | % + fs4. ( b8 ) b2 | % + fs4. ( b8 ) b2 | % + b2. b4 | % + a2. e8 ( fs ) | % + fs1 ~ | % + fs4 d' cs4. a8 | % + + % B section + + b1 ~ | % + b4 d cs4. a8 | % + b1 ~ | % + b4 b a e | % + a2. fs8 g | % + a4. d,8 g4. fs8 | % + fs2 ( ~ fs8 g fs4 ) | % + e4 d' cs4. a8 | % + + b1 ~ | % + b4 d cs4. a8 | % + b1 ~ | % + b4 b a e | % + a2. fs8 g | % + a4. d,8 g4. fs8 | % + fs2 ( ~ fs8 g fs e ) | % + e2. r4 | % +} + +LeadVoxText = \lyricmode +{ + Ho -- _ ly, ho -- _ ly, + Ho -- _ ly, ho -- _ ly, + Ho -- ly is the _ Lord. _ + + Ho -- _ ly, ho -- _ ly, + Ho -- _ ly, ho -- _ ly, + Ho -- ly is the _ Lord. _ + + His name is high _ + and lift -- ed up, _ + and there is peace + in the sha -- dow of his glo -- _ _ _ ry. + + His name is high _ + and lift -- ed up, _ + and there is peace + in the sha -- dow of his glo -- _ _ _ _ ry. +} + + +Riffs = \relative c' +{ +%{ + \clef G + \key ef \major + \override Staff.TimeSignature #'style = #'() + \time 4/4 + + % Intro + + \tiny + 16 d bf f ~ f4 ~ f4. g16 bf | % 1 + c1 | % 2 + 16 d bf f ~ f4 ~ f4. g16 bf | % 3 + c2 | % 4 + + s1*9 + s2 + +\voiceOne +\tieDown + 16 d bf f ~ f4 ~ f4. g16 bf | % 14 +\tieNeutral +\oneVoice + c1 | % 15 + 16 d bf f ~ f4 ~ f4. g16 bf | % 16 + c2 | % 17 + + 16 d bf f ~ f4 ~ f4. g16 bf | % 18 + c2 r | % 19 + + s1*10 + + \stemUp + 16 e c g ~ g4 ~ g4. a16 c | % 31 + \stemNeutral + d2 r | % 32 + 16 e c g ~ g4 ~ g4. a16 c | % 33 + d2 r | % 34 +%} +} + + +% +% Chord names +% + +Chords = \chordmode +{ + % A section + + d1 | % 1 + s1 | % 2 + b1:m | % 3 + s1 | % 4 + g1 | % 5 + a2:sus4 a | % 6 + d1 | % 7 + s1 | % 8 + + d1 | % 9 + s1 | % 10 + b1:m | % 11 + s1 | % 12 + g1 | % 13 + a2:sus4 a | % 14 + d1 | % 15 + d2 fs:m7 | % 16 + + % B section + + g1:5.9 | % 17 + s2 fs:m7 | % 18 + g2.:5.9 fs4:m7 | % 19 + e2:m7 a/cs | % 20 + d4:sus4 d a/d d | % 21 + d2/fs g | % 22 + d1/a | % 23 + a2 fs:m7 | % 24 + + g1:5.9 | % 25 + s2 fs:m7 | % 26 + g2.:5.9 fs4:m7 | % 27 + e2:m7 a/cs | % 28 + d4:sus4 d a/d d | % 29 + d2/fs g | % 30 + d1/a | % 31 + a1 | % 32 +} + + +% +% Chord rhythms +% + +% Use a RhythmicStaff on the chords instead of this? +% It almost works, but not quite. Doesn't collapse chords above to single notes... + +Rhythm = \relative c +{ +% \set Voice.autoBeaming = ##f +% \set Staff.instrument = #"Rhythm" + \override Staff.TimeSignature #'style = #'() +% \time 4/4 + \override NoteHead #'style = #'slash + + % A section + + c4 c c c | % 1 + c4 c c c | % + c4 c c c | % + c4 c c c | % + c4 c c c | % 5 + c4 c c c | % + c4 c c c | % + c4 c c c | % + + c4 c c c | % 9 + c4 c c c | % + c4 c c c | % + c4 c c c | % + c4 c c c | % 13 + c4 c c c | % + c4 c c c | % + c4 c c c | % + + % B section + + c4 c c c | % 17 + c4 c c c | % + c4 c c c | % + c4 c c c | % + c4 c c c | % 21 + c4 c c c | % + c4 c c c | % + c4 c c c | % + + c4 c c c | % 25 + c4 c c c | % + c4 c c c | % + c4 c c c | % + c4 c c c | % 29 + c4 c c c | % + c4 c c c | % + c4 c c c | % +} + + + +Dynamics = +{ +%{ +%Hmm, this is throwin off the layout... + s4_\mf s2. | % 1 + s1*18 | % 2-19 + s4 s \< s2 | % 20 + s4_\f s2. | % 21 +%} +%{ + % Intro + s4_\markup { \italic { Ac. gtr only } } s2. | % 1 + + s1*3 | % 2-4 + + s4_\markup { \italic { Band in } } s2. | % 5 +%} +} + + +\score +{ + << +% \new Staff + << + \new ChordNames \Chords +%Capo 3 edition +% \new ChordNames \transpose f d \Chords + \new RhythmicStaff << \Rhythm \Dynamics >> + >> + + \new Staff + << + \Global % The "roadmap" that everything else depends on + \new Voice = "lead" \LeadVox + \new Voice \Riffs + \new Lyrics \lyricsto "lead" \LeadVoxText + >> + + \set Score.skipBars = ##t + \set Score.melismaBusyProperties = #'() + >> +} + + +\paper +{ + #(define fonts (make-pango-font-tree + "Times New Roman" + "DomCasual BT" + "Luxi Mono" + (/ staffSize 20))) + +% Don't spread staves vertically across last page (default: t) + ragged-last-bottom = ##f +% Don't spread staves vertically across the page (default: f) +% ragged-bottom = ##t +% Allow partial line for last stave (default: f) + ragged-last = ##t + +% To find out what's eating the space at the top... +% annotate-spacing = ##t +%let's try this: [It works! Huzzah!] + obsolete-page-top-space = 0 top-system-spacing #'basic-distance = #(/ obsolete-page-top-space staff-space) +} diff --git a/horizon-storm.ly b/horizon-storm.ly new file mode 100755 index 0000000..e800c44 --- /dev/null +++ b/horizon-storm.ly @@ -0,0 +1,676 @@ +\include "english.ly" % English note names, for cryin' out loud... + +\version "2.16.0" + +#(set-default-paper-size "letter") +#(set-global-staff-size 16) + +%flat = \markup { \raise #0.4 \smaller \musicglyph #"accidentals--2" } +%sharp = \markup { \raise #0.6 \smaller \musicglyph #"accidentals-2" } +%textcodaysym = \markup { \hspace #1 \raise #1.1 \musicglyph #"scripts-coda"} + +\header +{ + title = "Horizon Storm" + subtitle = "as recorded on 'The Harvest'" + composer = "Tom Howard" + arranger = "Transcribed by Shamus Hammons" + tagline = "Engraved by JLH and Lilypond 2.8.2" +} + +rightHand = \relative c'' +{ +% \set Voice.autoBeaming = ##f +% \set Staff.instrumentName = #"Lead vox" + \clef G + \key bf \minor + \time 3/4 + + r8^\markup { fast } bf-1 f'-3 ef-2 bf bf'-5 ~ | % 1 + bf8 bf, f' ef bf bf' ~ | % 2 + bf8 bf, ef d bf bf' ~ | % 3 + bf8 bf, ef d bf bf' ~ | % 4 + + bf8 bf, f' ef bf bf' ~ | % 5 + bf8 bf, f' ef bf bf' ~ | % 6 + bf8 bf, ef d bf bf' ~ | % 7 + bf8 bf, ef d bf bf' ~ | % 8 + + bf8 bf, f' ef bf bf' ~ | % 9 + bf8 bf, f' ef bf bf' ~ | % 10 + bf8 bf, ef d bf bf' ~ | % 11 + bf8 bf, ef d bf bf' ~ | % 12 + + bf8 bf, f' ef bf bf' ~ | % 13 + bf8 bf, f' ef bf bf' ~ | % 14 + bf8 bf, ef d bf bf' ~ | % 15 + bf8 bf, ef d bf bf' ~ | % 16 + + bf8 af,-1 ef'-3 df-2 cf-1 af'-5 ~ | % 17 + af8 af, ef' df cf af' ~ | % 18 + af8 af, ef' df cf af' ~ | % 19 + af8 af, ef' df cf af' ~ | % 20 + + af8 af, ef' df cf af' ~ | % 21 + af8 af, ef' df cf af' ~ | % 22 + af8 af, ef' df cf af' ~ | % 23 + af8 af, ef' df cf af' ~ | % 24 + + af8 bf, f' ef bf bf' ~ | % 25 + bf8 bf, f' ef bf bf' ~ | % 26 + bf8 bf, ef d bf bf' ~ | % 27 + bf8 bf, ef d bf bf' | % 28 + + \key ef \major + + g8-1 af-3 g ef-4 bf-2 g-1 | % 29 + af8 g ef bf g af-2 | % 30 +%Is this notated correctly? Not so sure... + bf4-3 gs8-2 b-1 e-2 fs-3 | % 31 + gs8 b e fs gs e | % 32 + + g8 af g ef bf g | % 33 + af8 g ef bf g af | % 34 + bf4-3 a8-1 bf-2 ef-3 g-5 | % 35 + f4-2 c8-1 f-2 g-3 a-4 | % 36 + + 4 df,8-1 ef-2 af-3 ef'-5 | % 37 + 4 af,8-1 ef'-2 g-4 bf-5 | % 38 + 4 cf,8-1 df-2 gf-3 df'-5 | % 39 + 2 df4 | % 40 + + \key cs \minor + + 4 | % 41 + 2. | % 42 + + 2. ~ | % 43 + 2. ~ | % 44 + 2. | % 45 + r8 e,-2 b'-1 cs-2 ds-3 fs-4 ~ | % 46 + + fs2. ~ | % 47 + fs2. | % 48 + ds8-2 e-1 b'-5 gs-3 fs-3 gs | % 49 + fs2. | % 50 + + \key d \minor + + f8-3 g a g f e | % 51 + d2. ~ | % 52 + d2. | % 53 + R2. | % 54 + + 4. f4.-3 | % 55 + 4. c4.-2 | % 56 + 4. f4.-3 | % 57 + 4. c4.-2 | % 58 + + \key ef \minor + + bf'8->-5 gf-3 ef-1 af->-4 f-2 df-1 | % 59 + bf'8-> gf ef af-> f df | % 60 + bf'8-> gf ef af-> f df | % 61 + bf'8-> gf ef af-> f df | % 62 + + bf'8-> gf ef af-> f df | % 63 + bf'8-> gf ef af-> f df | % 64 + bf'8-> gf ef af-> f df | % 65 + bf'8-> gf ef af-> f df | % 66 + + df'2.-5 ~ | % 67 + df2. | % 68 + r8 bf-2 gf-2 ef-1 df-2 ef-3 | % 69 + ef2. | % 70 + + \key af \major + + ef8-3 c-1 bf-3 g-2 f-1 ef | % 71 + f4. ef | % 72 + f4. ef | % 73 + f4. ef | % 74 + + \key b \major + + e4. ds | % 75 + e4. ds | % 76 + cs4. ds | % 77 + as4. b | % 78 + + as16 b as b as b as b as b as b | % 79 + as16 b as b as b as b as b as b | % 80 + as16 b as b as b as b as b as b | % 81 + as16 b as b as b as b as b as b | % 82 + + as16 b as b as b as b as b as b | % 83 + as16 b as b as b as b as b as b^\fermata^\markup { \italic { slight hesitation } } | % 84 + + \key bf \minor + + r8 bf f' ef bf bf' ~ | % 85 + bf8 bf, f' ef bf bf' ~ | % 86 + bf8 bf, ef d bf bf' ~ | % 87 + bf8 bf, ef d bf bf' ~ | % 88 + + bf8 bf, f' ef bf bf' ~ | % 89 + bf8 bf, f' ef bf bf' ~ | % 90 + bf8 bf, ef d bf bf' ~ | % 91 + bf8 bf, ef d bf bf' ~ | % 92 + + bf8 bf, f' ef bf bf' ~ | % 93 + bf8 bf, f' ef bf bf' ~ | % 94 + bf8 bf, ef d bf bf' ~ | % 95 + bf8 bf, ef d bf bf' ~ | % 96 + + bf8 bf, f' ef bf bf' ~ | % 97 + bf8 bf, f' ef bf bf' ~ | % 98 + bf8 bf, ef d bf bf' ~ | % 99 + bf8 bf, ef d bf bf' ~ | % 100 + + bf8 bf, f' ef bf bf' ~ | % 101 + bf8 bf, f' ef bf bf' ~ | % 102 + bf8 bf, ef d bf bf' ~ | % 103 + bf8 bf, ef d bf bf' ~ | % 104 + + bf8 bf, ef f gf af | % 105 + bf8 df bf gf ef af | % 106 + f8 df4 df4. ~ | % 107 + df2 r4 | % 108 + + r8 bf ef f gf af | % 109 + bf8 df bf gf ef af | % 110 + f8 df4 df4. ~ | % 111 + df8 df4 f8 gf af | % 112 + + bf8 c df ef df c | % 113 + df8 c af f4 ef8 | % 114 + af8 bf cf df cf bf | % 115 + cf8 bf gf ef4 df8 | % 116 + + \key e \major + + fs8-2 gs-3 a-4 gs-3 fs-2 e-1 | % 117 + ds8-1 e-2 fs-5 ds-4 b-2 a-1 | % 118 + gs4-2 b8-1 e-2 gs-3 b-1 | % 119 + 2. | % 120 + + fs8 gs a gs fs e | % 121 + ds8 e fs ds b a | % 122 + g2-2 b4-3 | % 123 + e2.-5 | % 124 + + \key cs \minor % Redundant, but oh well... + + r4 b8 e b' e, | % 125 + + \key d \minor + + a4 a,8 c f c | % 126 + + \key bf \minor + + bf'8 bf, f' ef bf bf' ~ | % 127 + bf8 bf, f' ef bf bf' ~ | % 128 + bf8 bf, ef d bf bf' ~ | % 129 + bf8 bf, ef d bf bf' ~ | % 130 + + bf8 bf, f' ef bf bf' ~ | % 131 + bf8 bf, f' ef bf bf' ~ | % 132 + bf8 bf, ef d bf bf' ~ | % 133 + bf8 bf, ef d bf4 ~ | % 134 + + bf8 bf, f' ef bf bf' ~ | % 135 + bf8 bf, f' ef bf bf' ~ | % 136 + bf8 bf, ef d bf bf' ~ | % 137 + bf8 bf, ef d bf bf' ~ | % 138 + + bf8 bf, f' ef bf bf' ~ | % 139 + bf8 bf, f' ef bf bf' ~ | % 140 + bf8 bf, ef d bf bf' ~ | % 141 + bf8 bf, ef d bf4 | % 142 + + r2 r8 bf | % 143 + ef8 f bf ef f4 | % 144 + r4 r8 4-> 8 | % 145 + r4 r8 4-> 8 | % 146 + + r2 \times 2/3 { r8 ef f } | % 147 + \times 2/3 { bf [ ef f ] } \times 2/3 { bf [ ef f ] } bf4-> | % 148 + r4 r8 4-> 8 | % 149 + r4 r8 4-> 8 | % 150 + + r4 -. ~ | % 151 + 4 -. ~ | % 152 + 4 -. ~ | % 153 + 4 -. ~ | % 154 + + 4 -. ~ | % 155 + 4 -. ~ | % 156 + 4 -. ~ | % 157 + 4 -. ~ | % 158 + + 4 -. ~ | % 159 + 4 -. ~ | % 160 + 4 -. ~ | % 161 + 4 -. ~ | % 162 + + 4 -. ~ | % 163 + 4 -. ~ | % 164 + 4 -. ~ | % 165 + 4 -. | % 166 + + r2 r8 bf | % 167 + ef8 f bf ef f4 | % 168 + r4 r8 4-> 8 | % 169 + r4 r8 4-> 8 | % 170 + + r2 \times 2/3 { r8 ef f } | % 171 + \times 2/3 { bf [ ef f ] } \times 2/3 { bf [ ef f ] } bf4-> | % 172 + r4 r8 4-> 8 | % 173 + r4 r8 4-> 8 | % 174 + + r4 -. ~ | % 175 + 4 -. ~ | % 176 + 4 -. ~ | % 177 + 4 -. ~ | % 178 + + 4 -. ~ | % 179 + 4 -. ~ | % 180 + 4 -. ~ | % 181 + 4 -. ~ | % 182 + + 4 ~ | % 183 + 4 ~ | % 184 + 4 ~ | % 185 + 4 ~ | % 186 + + 4 | % 187 + 4 ~ | % 188 + 4 | % 189 + 4 | % 190 + + r4 gf8 af bf df | % 191 + gf af bf ~ bf, | % 192 + r4 af,8 bf c ef | % 193 + af bf c ~ c, | % 194 + + r4 gf,8 af bf df | % 195 + gf af bf ~ bf, | % 196 + r4 af,8 bf c ef | % 197 + af bf c ~ c, | % 198 + + r4 gf,8 af bf df | % 199 + gf af bf ~ bf, | % 200 + r4 af,8 bf c ef | % 201 + af bf c ~ c, | % 202 + + bf'8 bf, f' ef bf bf' ~ | % 203 + bf8 bf, f' ef bf bf' ~ | % 204 + bf8 bf, ef d bf bf' ~ | % 205 + bf8 bf, ef d bf bf' ~ | % 206 + + bf8 bf, f' ef bf bf' ~ | % 207 + bf8 bf, f' ef bf bf' ~ | % 208 + bf8 bf, ef d bf bf' ~ | % 209 + bf8 bf, ef d bf bf' ~ | % 210 + + bf8 bf, f' ef bf bf' ~ | % 211 + bf8 bf, f' ef bf bf' ~ | % 212 + bf8 bf, ef d bf bf' ~ | % 213 + bf8 bf, ef d bf4 | % 214 + + \key ef \major + + \ottava #1 + g''8 af g ef + \ottava #0 + bf g | % 215 + af8 g ef bf ef f | % 216 + g8 af g ef bf g | % 217 + af8 g ef bf af g | % 218 + + R2. R2. R2. R2. R2. + \bar "|." +} + +leftHand = \relative c' +{ +% \set Voice.autoBeaming = ##f +% \set Staff.instrumentName = #"Lead vox" + \clef G + \key bf \minor + \time 3/4 + + bf4-5 af'-1 gf-2 | % 1 + bf,4 af' gf | % 2 + bf,4-5 gf'-2 f-1 | % 3 + bf,4 gf' f | % 4 + + bf,4 af' gf | % 5 + bf,4 af' gf | % 6 + bf,4 gf' f | % 7 + bf,4 gf' f | % 8 + + bf,4 af' gf | % 9 + bf,4 af' gf | % 10 + bf,4 gf' f | % 11 + bf,4 gf' f | % 12 + + bf,4 af' gf | % 13 + bf,4 af' gf | % 14 + bf,4 gf' f | % 15 + bf,4 gf' f | % 16 + + af,4-5 ff'-1 ef-2 | % 17 + af,4-5 gf'-2 ff-1 | % 18 + af,4 ff' ef | % 19 + af,4 gf' ff | % 20 + + af,4 ff' ef | % 21 + af,4 gf' ff | % 22 + af,4 ff' ef | % 23 + af,4 gf' ff | % 24 + + bf,4 af' gf | % 25 + bf,4 af' gf | % 26 + bf,4 gf' f | % 27 + bf,4 gf' f | % 28 + + \key ef \major + + ef2-1 ef4 | % 29 + bf4.-3 r8 r4 | % 30 + + \clef F + +% e,,8-1 ~ ~ 2 | % 31 + << { r8 b-5 ~ b2 } \\ e,,2.-1 >> | % 31 + b''2-2 e4 | % 32 + + ef,2-5 bf'4-2 | % 33 + ef4-1 r2 | % 34 + << { r8 c,-1 ~ c2 } \\ f,2.-5 >> | % 35 + << { r8 f'-1 ~ f2 } \\ c2.-3 >> | % 36 + + << { r8 f-4 ~ f2 } \\ bf,2.-1 >> | % 37 + << f'2.-1 \\ { r8 c-3 ~ c2 } >> | % 38 + << { r8 ef-2 ~ ef2 } \\ af,2.-5 >> | % 39 + df,8-5 af'-3 gf'2-1 | % 40 + + \key cs \minor + + f4-2 e-5 d'-1 | % 41 + d,2-5 d'4 | % 42 + + cs,8-5 gs'-3 e'-1 gs,-3 ds'-1 gs, | % 43 + cs,8 gs' e' gs, ds' gs, | % 44 + cs,8 gs' e' gs, ds' gs, | % 45 + cs,8 gs' e' gs, ds' gs, | % 46 + + cs,8 gs' e' gs, ds' gs, | % 47 + cs,8 gs' e' gs, ds' gs, | % 48 + cs,8 gs' e' gs, ds' gs, | % 49 + cs,8 gs' e' gs, ds' gs, | % 50 + + \key d \minor + + d8 a' f' a, e' a, | % 51 + d,8 a' f' a, e' a, | % 52 + d,8 a' f' a, e' a, | % 53 + d,8 a' f' a, e' a, | % 54 + + d,8 a' f' a, e' a, | % 55 + d,8 a' f' a, e' a, | % 56 + d,8 a' f' a, e' a, | % 57 + d,8 a' f' a, e' a, | % 58 + + \key ef \minor + + ef8 bf' gf' bf, f' bf, | % 59 + ef,8 bf' gf' bf, f' bf, | % 60 + ef,8 bf' gf' bf, f' bf, | % 61 + ef,8 bf' gf' bf, f' bf, | % 62 + + cf,8 gf' ef' gf, df' gf, | % 63 + cf,8 gf' ef' gf, df' gf, | % 64 + cf,8 gf' ef' gf, df' gf, | % 65 + cf,8 gf' ef' gf, df' gf, | % 66 + + af,8 ef' cf' ef, bf' ef, | % 67 + af,8 ef' cf' ef, bf' ef, | % 68 + af,8 ef' cf' ef, bf' ef, | % 69 + af,8 ef' cf' ef, bf' ef, | % 70 + + \key af \major + + f,8 c' af' c, g' c, | % 71 + f,8 c' af' c, g' c, | % 72 + f,8 c' af' c, g' c, | % 73 + f,8 c' af' c, g' c, | % 74 + + \key b \major + + e,8 b' gs' b, fs' b, | % 75 + e,8 b' gs' b, fs' b, | % 76 + e,8 b' gs' b, fs' b, | % 77 + e,8 b' gs' b, fs' b, | % 78 + + e,8 b' gs' b, fs' b, | % 79 + e,8 b' gs' b, fs' b, | % 80 + as16 b as b as b as b as b as b | % 81 + as16 b as b as b as b as b as b | % 82 + + as16 b as b as b as b as b as b | % 83 + as16 b as b as b as b as b as b_\fermata | % 84 + + \key bf \minor + + bf4 af' gf | % 85 + bf,4 af' gf | % 86 + bf,4 gf' f | % 87 + bf,4 gf' f | % 88 + + bf,4 af' gf | % 89 + bf,4 af' gf | % 90 + bf,4 gf' f | % 91 + bf,4 gf' f | % 92 + + bf,4 af' gf | % 93 + bf,4 af' gf | % 94 + bf,4 gf' f | % 95 + bf,4 gf' f | % 96 + + bf,4 af' gf | % 97 + bf,4 af' gf | % 98 + bf,4 gf' f | % 99 + bf,4 gf' f | % 100 + + cf4 af' gf | % 101 + cf,4 af' gf | % 102 + cf,4 af' gf | % 103 + cf,4 af' gf | % 104 + + cf,4 af' gf | % 105 + cf,4 af' gf | % 106 + cf,4 af' gf | % 107 + cf,4 af' gf | % 108 + + cf,4 af' gf | % 109 + cf,4 af' gf | % 110 + cf,4 af' gf | % 111 + cf,4 af' gf | % 112 + + bf,4-5 f'-3 df'-1 | % 113 + f,,4-5 c'-3 af'-1 | % 114 + af,4-5 ef'-3 c'-1 | % 115 + ef,,4-5 bf'-3 gf'-1 | % 116 + + \key e \major + + 2. | % 117 + 2. | % 118 + e,8-5 gs-3 b-1 gs'-3 b4-1 | % 119 + b2. | % 120 + + 2. | % 121 + 2. | % 122 + 2. ~ | % 123 + 2. | % 124 + + \key cs \minor + + << { r8 b'-2 ~ b2 } \\ gs2.-4 >> | % 125 + + \key d \minor + + << { r8 f'-1 ~ f2 } \\ a,2.-5 >> | % 126 + + \clef G + \key bf \minor + + bf4 af' gf | % 127 + bf,4 af' gf | % 128 + bf,4 gf' f | % 129 + bf,4 gf' f | % 130 + + bf,4 af' gf | % 131 + bf,4 af' gf | % 132 + bf,4 gf' f | % 133 + bf,4 gf' f | % 134 + + \clef F + + bf,,4 af' gf | % 135 + bf,4 af' gf | % 136 + bf,4 gf' f | % 137 + bf,4 gf' f | % 138 + + bf,4 af' gf | % 139 + bf,4 af' gf | % 140 + bf,4 gf' f | % 141 + bf,4 gf' f | % 142 + + 8 4 ef | % 143 + ef4 ef ef8 bf | % 144 + 8 ef, gf cf ef, cf' | % 145 + 8 af bf4 af8 bf | % 146 + + 8 4 ef | % 147 + ef4 ef ef | % 148 + 8 ef, gf cf ef, cf' | % 149 + 8 af bf4 af8 bf | % 150 + + af,8 af' r af r af | % 151 + af,8 af' r af r af | % 152 + af,8 af' r af r af | % 153 + af,8 af' r af r af | % 154 + + af,8 af' r af r af | % 155 + af,8 af' r af r af | % 156 + af,8 af' r af r af | % 157 + af,8 af' r af r af | % 158 + + bf,8 bf' r bf r bf | % 159 + bf,8 bf' r bf r bf | % 160 + bf,8 bf' r bf r bf | % 161 + bf,8 bf' r bf r bf | % 162 + + bf,8 bf' r bf r bf | % 163 + bf,8 bf' r bf r bf | % 164 + bf,8 bf' r bf r bf | % 165 + bf,8 bf' r bf r bf | % 166 + + 8 4 ef | % 167 + ef4 ef ef8 bf | % 168 + 8 ef, gf cf ef, cf' | % 169 + 8 af bf4 af8 bf | % 170 + + 8 4 ef | % 171 + ef4 ef ef | % 172 + 8 ef, gf cf ef, cf' | % 173 + 8 af bf4 af8 bf | % 174 + + af,8 af' r af r af | % 175 + af,8 af' r af r af | % 176 + af,8 af' r af r af | % 177 + af,8 af' r af r af | % 178 + + bf,8 bf' r bf r bf | % 179 + bf,8 bf' r bf r bf | % 180 + bf,8 bf' r bf r bf | % 181 + bf,8 bf' r bf r bf | % 182 + + bf,8 bf' ~ bf bf ~ bf bf | % 183 + bf,8 bf' ~ bf bf ~ bf bf | % 184 + bf,8 bf' ~ bf bf ~ bf bf | % 185 + bf,8 bf' ~ bf bf ~ bf bf | % 186 + + bf,8 bf' ~ bf bf ~ bf bf | % 187 + bf,8 bf' ~ bf bf ~ bf bf | % 188 + bf,8 bf' ~ bf bf ~ bf bf | % 189 + bf,8 bf' ~ bf bf ~ bf bf | % 190 + + << { r8 bf8 ~ bf2 } \\ ef,2. >> | % 191 + ef2 gf'4 | % 192 + << { r8 c,8 ~ c2 } \\ f,2. >> | % 193 + f2 af'4 | % 194 + + << { r8 bf,8 ~ bf2 } \\ ef,2. >> | % 195 + ef2 gf'4 | % 196 + << { r8 c,8 ~ c2 } \\ f,2. >> | % 197 + f2 af'4 | % 198 + + << { r8 bf,8 ~ bf2 } \\ ef,2. >> | % 199 + ef2 gf'4 | % 200 + << { r8 c,8 ~ c2 } \\ f,2. >> | % 201 + f2 af'4 | % 202 + + \clef G + + bf4 af' gf | % 203 + bf,4 af' gf | % 204 + bf,4 gf' f | % 205 + bf,4 gf' f | % 206 + + bf,4 af' gf | % 207 + bf,4 af' gf | % 208 + bf,4 gf' f | % 209 + bf,4 gf' f | % 210 + + bf,4 af' gf | % 211 + bf,4 af' gf | % 212 + bf,4 gf' f | % 213 + bf,4 gf' f | % 214 + + \clef F + \key ef \major + + ef2 ef4 | % 215 + bf2 ef4 | % 216 + ef2 ef4 | % 217 + bf4.r8 r4 | % 218 + + ef,,8 bf' ef4 g8 bf | % 219 + ef,4. r | % 220 + R2. | % 221 + R2. | % 222 + R2. | % 223 + + \bar "|." +} + + +\score +{ +% << + \new PianoStaff = "solo" + << + \new Staff = Right { \new Voice = "right" \rightHand } + \new Staff = Left { \new Voice = "left" \leftHand } + >> +% >> + \layout { +% ragged-last-bottom = ##t + ragged-last = ##t + } +} diff --git a/hosanna-loud-hosanna.ly b/hosanna-loud-hosanna.ly new file mode 100644 index 0000000..b47bcdb --- /dev/null +++ b/hosanna-loud-hosanna.ly @@ -0,0 +1,225 @@ +\version "2.16.0" +\include "pop-chords.ly" +\include "english.ly" + +% Good sizes are 16, 18, & 20 +staffSize = #20 +#(set-default-paper-size "letter") +#(set-global-staff-size staffSize) +#(ly:set-option (quote no-point-and-click)) + +%{ Some useful characters: ‘ ’ “ ” – — † ‡ • … %} + +\header +{ + title = \markup { \override #'(font-family . sans) \fontsize #3.5 "Hosanna, Loud Hosanna" } + subtitle = \markup { \override #'(font-family . sans) \fontsize #1.3 "(White bread vers.)" } + composer = \markup { \override #'(font-family . sans) \fontsize #1.3 "Jennette Threlfall" } + arranger = \markup { \override #'(font-family . sans) \fontsize #1.3 "arr. S. Hammons" } + tagline = $(string-append "Engraved by JLH and Lilypond " (lilypond-version)) +} + + +% +% Lead vocal +% + +LeadVox = \relative c' +{ +% \set Voice.autoBeaming = ##f +% \set Staff.instrument = #"Lead vox" + \clef G + \key bf \major + \override Staff.TimeSignature #'style = #'() + \time 4/4 +\override Score.SpacingSpanner #'average-spacing-wishes = ##f + + % Verse + + \partial 4*1 f4 | % 0 + bf4 a8 ( g ) f4 bf | % 1 + d,4 ( ef ) f f | % 2 + g8 ( a ) bf4 c c | % 3 + d2. f,4 | % 4 +\break % bleh + + bf4 a8 ( g ) f4 bf | % 5 + d,4 ( ef ) f f | % 6 + g8 ( a ) bf4 bf a | % 7 + bf2. bf8 ( c ) | % 8 +\break % bleh + + d4 c d ef | % 9 + c4 ( a8 bf ) c4 bf8 ( c ) | % 10 + d4 c d ef | % 11 + c2. f,4 | % 12 +\break % bleh + + bf4 a8 ( g ) f4 bf | % 13 + d,4 ( ef ) f f | % 14 + g8 ( a ) bf4 bf a | % 15 + \partial 4*3 bf2. \bar "|." % 16 +} + +LeadVoxText = \lyricmode +{ + Ho -- san -- na, _ loud ho -- san -- _ na, the lit -- _ tle chil -- dren sang; + Through pil -- lared _ court and tem -- _ ple the joy -- _ ful an -- them rang; + To _ Je -- sus, who had bles -- sed _ them close _ fold -- ed to his breast; + The chil -- dren _ sang their prais -- _ es, the sim -- _ plest and the best. +} + +LeadVoxTextB = \lyricmode +{ + From Ol -- i -- _ vet they fol -- _ lowed ’mid an _ ex -- ult -- ant crowd; + The vic -- tor _ palm branch wav -- _ ing, and chant -- _ int clear and loud; + The _ Lord of earth and heav -- _ _ en rode _ on in low -- ly state, + Nor scorned that _ lit -- tle chil -- _ dren should on _ his bid -- ding wait. +} + +LeadVoxTextC = \lyricmode +{ + “Ho -- san -- na _ in the high -- _ est!” that an -- _ cient song we sing, + For Christ is _ our re -- deem -- _ er, the Lord _ of heaven our King. + O _ may we e -- ver praise _ _ him with _ heart and life and voice, + And in his _ bliss -- ful pres -- _ ence e -- ter -- _ nal -- ly re -- joice. +} + + +% +% Chord names +% + +Chords = \chordmode +{ +%Bah, can't we set this globally? +% \popChords + + \partial 4*1 s4 | % 0 + bf1 | % 1 + g2:m bf | % 2 + ef2 f | % 3 + bf1 | % 4 + + bf1 | % 5 + g2:m bf | % 6 + ef2 f | % 7 + bf1 | % 8 + + bf4 f bf2 | % 9 + f2 f:7 | % 10 + bf4 f bf2 | % 11 + f2 f:7 | % 12 + + bf1 | % 13 + g2:m bf | % 14 + ef2 f | % 15 + \partial 4*3 bf2. | % 16 +} + + +% +% Chord rhythms +% + +% Use a RhythmicStaff on the chords instead of this? +% It almost works, but not quite. Doesn't collapse chords above to single notes... + +%Slash = { \override NoteHead #'style = #'slash } +%Cross = { \override NoteHead #'style = #'cross } + +StaffC = \relative c +{ + \override Staff.TimeSignature #'style = #'() + \time 4/4 + \override NoteHead #'style = #'slash + + % Verse + + \partial 4*1 r4 | % 0 + c4 c c c | % 1 + c4 c c c | % 2 + c4 c c c | % 3 + c4 c c c | % 4 + + c4 c c c | % 5 + c4 c c c | % 6 + c4 c c c | % 7 + c4 c c c | % 8 + + c4 c c c | % 9 + c4 c c c | % 10 + c4 c c c | % 11 + c4 c c c | % 12 + + c4 c c c | % 13 + c4 c c c | % 14 + c4 c c c | % 15 + \partial 4*3 c2. \bar "|." % 16 +} + + +Dynamics = +{ +%{ + s4_\markup { \italic { snare on 4, bass 8th notes } } s2. | % 1 + s1*26 | % 2-27 + s2 s4 \< s | % 28 + s4_\f s_\markup { \hspace #0.0 \raise #-2.0 \italic { snare 2 & 4 } } s2 | % 29 + s1*8 | % 30-37 + s2 s4 \< s \! | % 38 + s1 | % 39 + s2. s8 \> s \! | % 40 + s4_\markup { \hspace #0.0 \raise #-2.0 \italic { bass 8th notes, band builds each repeat } } s2. | % 41 + s1*8 | % 42-49 + s4 \< s2. | % 50 + s4_\f s2. | % 51 + s1*5 | % 52-56 + s4_\markup { \hspace #0.0 \raise #-2.0 \italic { rit. last time } } s2. | % 57 + s2 s4 \< s \! | % 58 +%} +} + + +\score +{ + << + << + \new Staff = leadStaff { \new Voice = "lead" \LeadVox } + \new Lyrics \lyricsto "lead" \LeadVoxText + \new Lyrics \lyricsto "lead" \LeadVoxTextB + \new Lyrics \lyricsto "lead" \LeadVoxTextC + >> + + \new ChoirStaff = "Rhythm" + << + \new ChordNames = "chords" \Chords + \new RhythmicStaff = "chordRhythm" << \StaffC \Dynamics >> + >> + + \set Score.skipBars = ##t + \set Score.melismaBusyProperties = #'() + >> +} + + +\paper +{ + #(define fonts (make-pango-font-tree + "Times New Roman" + "DomCasual BT" + "Luxi Mono" + (/ staffSize 20))) + +% Spread staves vertically across last page (default: t) +% ragged-last-bottom = ##f +% Don't spread staves vertically across the page (default: f) +% ragged-bottom = ##t +% Allow partial line for last stave (default: f) +% ragged-last = ##t + +% To find out what's eating the space at the top... +% annotate-spacing = ##t +%let's try this: [It works! Huzzah!] + obsolete-page-top-space = 0 top-system-spacing #'basic-distance = #(/ obsolete-page-top-space staff-space) +} diff --git a/i-could-sing-of-your-love-forever.ly b/i-could-sing-of-your-love-forever.ly new file mode 100755 index 0000000..33e78dd --- /dev/null +++ b/i-could-sing-of-your-love-forever.ly @@ -0,0 +1,423 @@ +\version "2.16.0" +\include "pop-chords.ly" +\include "english.ly" + +staffSize = #18 % or 16 +#(set-default-paper-size "letter") +#(set-global-staff-size staffSize) +#(ly:set-option (quote no-point-and-click)) + +\header +{ +%Let's bump up the title size and switch to the chord font. :-) + + title = \markup { \override #'(font-family . sans) + { \fontsize #3.5 "I Could Sing Of Your Love Forever" } } +% composer = \markup { \override #'(font-family . sans) "" } + arranger = \markup { \override #'(font-family . sans) "arr. Ed Smart" } + tagline = "Engraved by JLH and Lilypond 2.8.2" +} + + +% +% Lead vocal +% + +LeadVox = \relative c' +{ +% \set Voice.autoBeaming = ##f +% \set Staff.instrumentName = #"Lead vox" + \clef G + \key f \major + \override Staff.TimeSignature #'style = #'() + \time 4/4 +\override Score.SpacingSpanner #'average-spacing-wishes = ##f + + % Intro + + \repeat volta 2 + { + R1 | % 1 + R1 | % 2 + R1 | % 3 + R1 | % 4 + } + + \repeat volta 2 + { + % Verse + +\mark \markup { \override #'(font-family . sans) { \box { A } } } + + r8 c' c8 a16 a ~ a g8 g16 ~ g f f8 | % 5 + r8 c' c8 a16 a ~ a g8 g16 ~ g f f8 | % 6 + r8 c' c8 a16 a ~ a g8 g16 ~ g f8. | % 7 + g8 g g f16 a ~ a g8 g16 ~ g f f8 | % 8 + r8 c' c8 a16 a ~ a g8 g16 ~ g f f8 | % 9 + r8 c' c8 a16 a ~ a g8 g16 ~ g f f8 | % 10 + r8 c' c c c c c c | % 11 + d8 c c c a4 ( g8 f ) \bar "||" % 12 + + % Chorus + +\mark \markup { \override #'(font-family . sans) { \box { B } } } + + r4 f8 f f g a c ~ | % 13 + c4 f,8 g ~ g a ~ a4 | % 14 + r4 f8 f f g a c ~ | % 15 + c4 a8 a ~ a g4 ( f8 ) | % 16 + r4 f8 f f g a c ~ | % 17 + c4 f,8 g ~ g a ~ a4 | % 18 + r4 f8 f f g a c ~ | % 19 + c4 a8 a ~ a g4 ( f8 ) | % 20 + } + \alternative + { + { + R1 | % 21 + R1 | % 22 + R1 | % 23 + R1 | % 24 + } + { + r2 bf16 a8 g16 ~ g f8. | % 25 + } + } + + % Bridge + + d8 f4. r2 | % 26 + r4 r8 f d'16 c8 c16 ~ c8 c | % 27 + a4 ( g ) r2 | % 28 + r4 r8 f bf16 a8 g16 ~ g f8. | % 29 + d4 f8 f r f f d' ~ | % 30 + d8 c4 c8 ~ c a c d ~ | % 31 + d8 c4 a8 ( ~ a g4 f8 ) \bar "||" % 32 + + % Solo + +\mark \markup { \override #'(font-family . sans) { \box { C } } } + + \key g \major + + R1 | % 33 + R1 | % 34 + R1 | % 35 + R1 | % 36 + R1 | % 37 + R1 | % 38 + R1 | % 39 + R1 | % 40 + + % Chorus (redux) + + \key f \major + + \repeat volta 2 + { +\mark \markup { \override #'(font-family . sans) { \box { D } } } + + r4 f8 f f g a c ~ | % 41 + c4 f,8 g ~ g a ~ a4 | % 42 + r4 f8 f f g a c ~ | % 43 + c4 a8 a ~ a g4 ( f8 ) | % 44 + r4 f8 f f g a c ~ | % 45 + c4 f,8 g ~ g a ~ a4 | % 46 + r4 f8 f f g a c ~ | % 47 + c4 a8 a ~ a g4 ( f8 ) | % 48 + } + +\mark \markup { \override #'(font-family . sans) { \box { E } } } + + r4 f8 f f g a c ~ | % 49 + c4 f,8 g ~ g a ~ a4 | % 50 + r4 f8 f f g a c ~ | % 51 + c4 a8 a ~ a g4 ( f8 ) | % 52 + r4 f8 f f g a c ~ | % 53 + c4 f,8 g ~ g a ~ a4 | % 54 + r4 f8 f f g a c ~ | % 55 + c4 a8 a ~ a g4 ( f8 ) ~ | % 56 + f1^\fermata \bar "|." % 57 +} + +LeadVoxText = \lyricmode +{ + O- ver the moun- _ tains and _ the sea + Your ri- ver runs _ with love _ for me + And I will o- _ pen up _ my heart + and let the hea- _ ler set _ me free + + I'm hap- py to _ be in _ the truth + And I will dai- _ ly lift _ my hands + For I will al- ways sing of + when your love came down __ _ _ + + I could sing of your love _ for- e- _ ver _ + I could sing of your love _ for- e- _ ver _ + I could sing of your love _ for- e- _ ver _ + I could sing of your love _ for- e- _ ver _ + + Oh I feel _ like dan- cing + It's fool- ish- ness _ I know _ + But when the world _ has seen the light + they will dance _ with joy _ like we're dan- _ cing now __ _ _ _ + + I could sing of your love _ for- e- _ ver _ + I could sing of your love _ for- e- _ ver _ + I could sing of your love _ for- e- _ ver _ + I could sing of your love _ for- e- _ ver _ + + I could sing of your love _ for- e- _ ver _ + I could sing of your love _ for- e- _ ver _ + I could sing of your love _ for- e- _ ver _ + I could sing of your love _ for- e- _ ver _ +} + + +% +% Chord names +% + +Chords = \chordmode +{ +%Bah, can't we set this globally? +% \popChords + + % Intro + + \repeat volta 2 + { + f2.. g8:m11 | % 1 + s1 | % 2 + bf1:9^7 | % 3 + bf2/c c | % 4 + } + + \repeat volta 2 + { + % Verse + + f1 | % 5 + g1:m11 | % 6 + bf1:9^7 | % 7 + bf4..:/c c16 s2 | % 8 + f1 | % 9 + g1:m11 | % 10 + bf1:9^7 | % 11 + bf2/c c | % 12 + + % Chorus + + f2.. g8:m11 | % 13 + s1 | % 14 + bf2..:9^7 bf8/c | % 15 + s2 c | % 16 + f2.. g8:m11 | % 17 + s1 | % 18 + bf2..:9^7 bf8/c | % 19 + s2 c | % 20 + } + \alternative + { + { + f2.. g8:m11 | % 21 + s1 | % 22 + bf2..:9^7 bf8/c | % 23 + s2 c | % 24 + } + { + g1:m11 | % 25 + } + } + + % Bridge + + f1/a | % 26 + bf1:9^7 | % 27 + bf4./c c8 s2 | % 28 + ef1:maj7 | % 29 + d1:m9 | % 30 + g4.:m7 f8/a s2 | % 31 + bf4./c c/d d4 | % 32 + + % Solo + + g2.. a8:m11 | % 33 + s1 | % 34 + c1:maj7 | % 35 + c4../d d16 s2 | % 36 + g2.. a8:m11 | % 37 + s1 | % 38 + c1:maj7 | % 39 + bf2./c c4 | % 40 + + % Chorus (redux) + + \repeat volta 2 + { + f2.. g8:m11 | % 41 + s1 | % 42 + bf2..:maj7 bf8/c | % 43 + s4.. c16 s2 | % 44 + f2.. g8:m11 | % 45 + s1 | % 46 + bf2..:maj7 bf8/c | % 47 + s2 c | % 48 + } + + f2.. g8:m11 | % 49 + s1 | % 50 + bf2..:maj7 bf8/c | % 51 + s2 c | % 52 + f2.. g8:m11 | % 53 + s1 | % 54 + bf1:maj7 | % 55 + bf2/c c | % 56 + f1 | % 57 +} + + +% +% Chord rhythms +% + +% Use a RhythmicStaff on the chords instead of this? +% It almost works, but not quite. Doesn't collapse chords above to single notes... + +StaffC = \relative c +{ +% \set Voice.autoBeaming = ##f +% \set Staff.instrumentName = #"Rhythm" + \override Staff.TimeSignature #'style = #'() + \time 4/4 + \override NoteHead #'style = #'slash + + % Intro + + \repeat volta 2 + { + c4 c c c8 c ~ | % 1 + c4 c c c | % 2 + c4 c c c | % 3 + c4 c c c | % 4 + } + + \repeat volta 2 + { + % Verse + + c4 ~ c8. c16 ~ c4 c | % 5 + c4 ~ c8. c16 ~ c4 c | % 6 + c4 ~ c8. c16 ~ c4 c | % 7 + c4 ~ c8. c16 ~ c4 c | % 8 + c4 ~ c8. c16 ~ c4 c | % 9 + c4 c8. c16 ~ c4 c | % 10 + c4 c c c | % 11 + c8-> c c c c c c c | % 12 + + % Chorus + + c4 c c c8 c ~ | % 13 + c4 c c c | % 14 + c4 c c c8 c-> ~ | % 15 + c4 c c c | % 16 + c4 c c c8 c ~ | % 17 + c4 c c c | % 18 + c4 c c c8 c-> ~ | % 19 + c4 c c c | % 20 + } + \alternative + { + { + c4 c c c8 c ~ | % 21 + c4 c c c | % 22 + c4 c c c8 c ~ | % 23 + c4 c c c | % 24 + } + { + c4. c8 ~ c4 c | % 25 + } + } + + % Bridge + + c4. c8 ~ c4 c | % 26 + c4. c8 ~ c4 c | % 27 + c4. c8 ~ c4 c | % 28 + c4. c8 ~ c4 c | % 29 + c4. c8 ~ c4 c | % 30 + c4.-> c8-> ~ c4 c | % 31 + c4.-> c8-> ~ c4 c-> | % 32 + + % Solo + + c4 c c c8 c-> ~ | % 33 + c4 c8. c16 ~ c4 c | % 34 + c4 c8. c16 ~ c4 c | % 35 + c4 c8. c16 ~ c4 c | % 36 + c4 c c c8 c-> ~ | % 37 + c4 c8. c16 ~ c4 c | % 38 + c4 c8. c16 ~ c4 c | % 39 + c4 c c c | % 40 + + % Chorus (redux) + + \repeat volta 2 + { + c4 c c c8 c-> ~ | % 41 + c4 c8. c16 ~ c4 c | % 42 + c4 c c c8 c-> ~ | % 43 + c4 c8. c16 ~ c4 c | % 44 + c4 c c c8 c-> ~ | % 45 + c4 c8. c16 ~ c4 c | % 46 + c4 c c c8 c-> ~ | % 47 + c4 c c c | % 48 + } + + c4-> c c c8 c ~ | % 49 + c4 c-> c c-> | % 50 + c4 c-> c c8-> c ~ | % 51 + c4 c c c | % 52 + c4 c c c8 c-> ~ | % 53 + c4 c c c | % 54 + c4-> c c c | % 55 + c2->_\markup { \italic { rit. } } c-> | % 56 + c1^\fermata \bar "|." % 57 +} + + +\score +{ + << + << + \new Staff = leadStaff { \new Voice = "lead" \LeadVox } + \new Lyrics \lyricsto "lead" \LeadVoxText + >> + + \new ChoirStaff = "Rhythm" + << + \new ChordNames = "chords" \Chords + \new RhythmicStaff = "chordRhythm" \StaffC + >> + + \set Score.skipBars = ##t + \set Score.melismaBusyProperties = #'() + >> + + \layout + { +% \context { \Staff \RemoveEmptyStaves } +% ragged-last-bottom = ##t +% ragged-last = ##t + } +} + + +\paper +{ + #(define fonts (make-pango-font-tree + "Times New Roman" + "DomCasual BT" + "Luxi Mono" + (/ staffSize 20))) +} diff --git a/i-have-decided-to-follow-jesus-shortened.ly b/i-have-decided-to-follow-jesus-shortened.ly new file mode 100644 index 0000000..244c75d --- /dev/null +++ b/i-have-decided-to-follow-jesus-shortened.ly @@ -0,0 +1,359 @@ +\version "2.16.0" +\include "pop-chords.ly" +\include "english.ly" + +% Good sizes are 16, 18, & 20 +staffSize = #20 +#(set-default-paper-size "letter") +#(set-global-staff-size staffSize) +#(ly:set-option (quote no-point-and-click)) + +\header +{ + title = \markup { \override #'(font-family . sans) \fontsize #3.5 "I Have Decided To Follow Jesus" } + subtitle = \markup { \override #'(font-family . sans) \fontsize #1.5 "Slightly Shortened Version" } + composer = \markup { \override #'(font-family . sans) \fontsize #1.3 "Traditional" } + arranger = \markup { \override #'(font-family . sans) \fontsize #1.3 "arr. Roger Freeland/Shamus Hammons/Chris Craig" } + tagline = "Engraved by JLH and Lilypond 2.8.2" +} + + +% +% Lead vocal +% + +LeadVox = \relative c' +{ + \set Voice.autoBeaming = ##f +% \set Staff.instrumentName = #"Lead vox" + \override Staff.TimeSignature #'style = #'() + \clef G + \key d \major + \time 4/4 +\override Score.SpacingSpanner #'average-spacing-wishes = ##f + +% \set Score.markFormatter = #format-mark-box-letters + + % Intro + + r1^\markup { \italic { Ac. guitar } } | % 1 + r1 | % 2 + r1^\markup { \italic { Guitar II in } } | % 3 + r1 | % 4 + r1^\markup { \italic { Bass in } } | % 5 + r1 | % 6 + r1^\markup { \italic { Drums in } } | % 7 + r4 d d fs | % 8 + + % Verse + + \repeat volta 3 + { +\mark \markup { \override #'(font-family . sans) { \box { A } } } + + a4. a8 ~ a8 r8 r4 | % 9 + r4 a b a | % 10 + fs4. d8 ~ d8 r8 r4 | % 11 + r4 d' d d | % 12 + d4. d8 ~ d8 r8 r4 | % 13 + r4 d e d | % 14 + b4. a8 ~ a8 r8 r4 | % 15 + r4 d, d fs | % 16 + + a4. a8 ~ a8 r8 r4 | % 17 + r4 a b a | % 18 + fs4. d8 ~ d8 r8 r4 | % 19 + r4 a' b a | % 20 + fs4. r8 r2 | % 21 + r4 d fs e | % 22 + } + \alternative + { + { + d4. r8 r2 | % 23 +% r1 | % 24 +% r1 | % 25 + r4 d d fs | % 26 + } + { + d4. r8 r2 | % 27 + r1 | % 28 + r1 | % 29 + } + } + + r4 d' d fs \bar "|:" % 30 + + % Tag + +\once \override Score.RehearsalMark #'self-alignment-X = #left +\mark \markup { \override #'(font-family . sans) { \box { B } } \small \italic { Women 8vb throughout } } + + fs4 r r2 | % 31 + r4 d d fs | % 32 + fs4 r r2 | % 33 + r4 d d fs | % 34 + fs4 r r2 | % 35 + r4 d d fs | % 36 + fs4 r r2 | % 37 + r4 d d fs \bar ":|" % 38 + + % Ending + +\once \override Score.RehearsalMark #'self-alignment-X = #left +\mark \markup { \override #'(font-family . sans) { \box { C } } \small \italic { On cue } } + + r1 | % 39 + r1 | % 40 + r1 | % 41 + r1 | % 42 + r1 | % 43 +% r1 | % 44 +% r1 | % 45 + r1 | % 46 + r1^\fermata \bar "|." % 47 +} + + +LeadVoxText = \lyricmode +{ + I have de- ci- ded _ to fol- low Je- sus _ + I have de- ci- ded _ to fol- low Je- sus _ + I have de- ci- ded _ to fol- low Je- sus _ + No tur- ning back, no tur- ning back. + + Though none go + + back. + + No tur- ning back! No tur- ning back! + No tur- ning back! No tur- ning back! + No tur- ning +} + +LeadVoxTextB = \lyricmode +{ + _ _ _ with me, _ still I will fol- low _ + Though none go with me, _ still I will fol- low _ + Though none go with me, _ still I will fol- low _ + No tur- ning back, no tur- ning back. + + The world be- +} + +LeadVoxTextC = \lyricmode +{ + _ _ _ hind me, _ the cross be- fore me _ + The world be- hind me, _ the cross be- fore me _ + The world be- hind me, _ the cross be- fore me _ + No tur- ning back, no tur- ning _ +} + + +% +% Chord names +% + +Chords = \chordmode +{ +%Bah, can't we set this globally? +% \popChords + + % Intro + + c4.:9 b2:7.9+ bf8:7+ | % 1 + s4. a2:sus4.7 c8:9 | % 2 + s4. b2:7.9+ bf8:7+ | % 3 + s4. a2:sus4.7 c8:9 | % 4 + s4. b2:7.9+ bf8:7+ | % 5 + s4. a2:sus4.7 c8:9 | % 6 + s4. b2:7.9+ bf8:7+ | % 7 + s4. a2:sus4.7 s8 | % 8 + + % Verse + + \repeat volta 3 + { + d2..:7+ g8:/a | % 9 + s1 | % 10 + d2..:7+ fs8:aug7 | % 11 + s1 | % 12 + g4.:7+ d2:/fs e8:m7 | % 13 + s4. a2:sus4.7 s8 | % 14 + d2..:7+ g8:m/a | % 15 + s1 | % 16 + + d2..:7+ cs8:m11 | % 17 + s4. fs2:7.9+ b8:m7 | % 18 + s2.. e8:9 | % 19 + s1 | % 20 + e2..:m9 a8:13 | % 21 + s2.. c8:9 | % 22 + } + \alternative + { + { + s4. b2:7.9+ bf8:7+ | % 23 +% s4. a2:sus4.7 c8:9 | % 24 +% s4. b2:7.9+ bf8:7+ | % 25 + s4. a2:sus4.7 s8 | % 26 + } + { + s4. b2:7.9+ bf8:7+ | % 27 + s4. a2:sus4.7 c8:9 | % 28 + s4. b2:7.9+ bf8:7+ | % 29 + } + } + + s4 a:sus4.7 s2 | % 30 + + % Tag + + d2..:7+ af8:7.5- | % 31 + s1 | % 32 + g2..:7+ c8:9 | % 33 + s1 | % 34 + e2..:m7 a8:sus4.7 | % 35 + s1 | % 36 + c4.:9 b2:7.9+ bf8:7+ | % 37 + s4. a2:sus4.7 s8 | % 38 + + % Ending + + c4.:9 b2:7.9+ bf8:7+ | % 39 + s4. a2:sus4.7 c8:9 | % 40 + s4. b2:7.9+ bf8:7+ | % 41 + s4. a2:sus4.7 c8:9 | % 42 + s4. b2:7.9+ bf8:7+ | % 43 +% s4. a2:sus4.7 c8:9 | % 44 +% s4. b2:7.9+ bf8:7+ | % 45 + s4. a2:sus4.7 s8 | % 46 + d1:7+ | % 47 +} + + +% +% Chord rhythms +% + +% Use a RhythmicStaff on the chords instead of this? +% It almost works, but not quite. Doesn't collapse chords above to single notes... + +StaffC = \relative c +{ + \set Voice.autoBeaming = ##f +% \set Staff.instrumentName = #"Rhythm" + \override Staff.TimeSignature #'style = #'() + \time 4/4 + \override NoteHead #'style = #'slash + + % Intro + + c4. c8 ~ c4. c8 ~ | % 1 + c4. c8 ~ c4. c8 ~ | % 2 + c4. c8 ~ c4. c8 ~ | % 3 + c4. c8 ~ c4. c8 ~ | % 4 + c4. c8 ~ c4. c8 ~ | % 5 + c4. c8 ~ c4. c8 ~ | % 6 + c4. c8 ~ c4. c8 ~ | % 7 + c4. c8 ~ c2 | % 8 + + % Verse + + \repeat volta 3 + { + c4 c c r8 c ~ | % 9 + c4 c c c | % 10 + c4 c c r8 c ~ | % 11 + c4 c c c | % 12 + c4. c8 ~ c4. c8 ~ | % 13 + c4. c8 ~ c2 | % 14 + c4 c c c8 c ~ | % 15 + c4 c c c | % 16 + + c4 c c r8 c ~ | % 17 + c4. c8 ~ c4. c8 ~ | % 18 + c4 c c r8 c ~ | % 19 + c4 c c c | % 20 + c4 c c r8 c ~ | % 21 + c4 c c r8 c ~ | % 22 + } + \alternative + { + { + c4. c8 ~ c4. c8 ~ | % 23 +% c4. c8 ~ c4. c8 ~ | % 24 +% c4. c8 ~ c4. c8 ~ | % 25 + c4. c8 ~ c2 | % 26 + } + { + c4. c8 ~ c4. c8 ~ | % 27 + c4. c8 ~ c4. c8 ~ | % 28 + c4. c8 ~ c4. c8 ~ | % 29 + } + } + + c4 c r2 \bar "|:" % 30 + + % Tag + + c4 c c r8 c ~ | % 31 + c4 c c c | % 32 + c4 c c r8 c ~ | % 33 + c4 c c c | % 34 + c4 c c r8 c ~ | % 35 + c4 c c c | % 36 + c4. c8 ~ c4. c8 ~ | % 37 + c4. c8 ~ c2 \bar ":|" % 38 + + % Ending + + c4. c8 ~ c4. c8 ~ | % 39 + c4. c8 ~ c4. c8 ~ | % 40 + c4. c8 ~ c4. c8 ~ | % 41 + c4. c8 ~ c4. c8 ~ | % 42 + c4._\markup { \italic rit. } c8 ~ c4. c8 ~ | % 43 +% c4. c8 ~ c4. c8 ~ | % 44 +% c4. c8 ~ c4. c8 ~ | % 45 + c4. c8 ~ c2 | % 46 + c1^\fermata \bar "|." % 47 +} + + +\score +{ + << +% \new ChoirStaff = "Vox" + << + \new Staff = leadStaff { \new Voice = "lead" \LeadVox } + \new Lyrics \lyricsto "lead" \LeadVoxText + \new Lyrics \lyricsto "lead" \LeadVoxTextB + \new Lyrics \lyricsto "lead" \LeadVoxTextC + >> + + \new ChoirStaff = "Rhythm" + << +% \new Staff = "riff" \RhythmB + \new ChordNames = "chords" \Chords + \new RhythmicStaff = "chordRhythm" \StaffC + >> + + \set Score.skipBars = ##t + \set Score.melismaBusyProperties = #'() + >> + \layout + { +% ragged-last-bottom = ##t + ragged-last = ##t + } +} + + +\paper +{ + #(define fonts (make-pango-font-tree + "Times New Roman" + "DomCasual BT" + "Luxi Mono" + (/ staffSize 20))) +} diff --git a/i-have-decided-to-follow-jesus.ly b/i-have-decided-to-follow-jesus.ly new file mode 100755 index 0000000..ceeb0c0 --- /dev/null +++ b/i-have-decided-to-follow-jesus.ly @@ -0,0 +1,367 @@ +\version "2.16.0" +\include "pop-chords.ly" +\include "english.ly" + +% Good sizes are 16, 18, & 20 +staffSize = #20 +#(set-default-paper-size "letter") +#(set-global-staff-size staffSize) +#(ly:set-option (quote no-point-and-click)) + +\header +{ + title = \markup { \override #'(font-family . sans) \fontsize #3.5 "I Have Decided To Follow Jesus" } + composer = \markup { \override #'(font-family . sans) \fontsize #1.3 "Traditional" } + arranger = \markup { \override #'(font-family . sans) \fontsize #1.3 "arr. Roger Freeland" } + tagline = "Engraved by JLH and Lilypond 2.8.2" +% Let's try a chord dictionary + subtitle = \markup { \center-column { C9 \fret-diagram-terse #"x;3;2;3;3;x;" } " " \center-column { "B7#9" \fret-diagram-terse #"x;2;1;2;3;x;" } " " \center-column { Bbmaj7 \fret-diagram-terse #"x;1;3;2;3;x;" } " " \center-column { A7sus4 \fret-diagram-terse #"x;o;2;o;3;x;" } " " \center-column { "F#7#5" \fret-diagram-terse #"2;x;2;3;3;x;" } " " \center-column { "Ab7b5" \fret-diagram-terse #"4;5;4;5;x;x;" } " " \center-column { "A13" \fret-diagram-terse #"x;o;2;o;2;2;" } } +} + + +% +% Lead vocal +% + +LeadVox = \relative c' +{ + \set Voice.autoBeaming = ##f +% \set Staff.instrumentName = #"Lead vox" + \override Staff.TimeSignature #'style = #'() + \clef G + \key d \major + \time 4/4 +\override Score.SpacingSpanner #'average-spacing-wishes = ##f + +% \set Score.markFormatter = #format-mark-box-letters + + % Intro + + r1^\markup { \italic { Ac. guitar } } | % 1 + r1 | % 2 + r1^\markup { \italic { Guitar II in } } | % 3 + r1 | % 4 + r1^\markup { \italic { Bass in } } | % 5 + r1 | % 6 + r1^\markup { \italic { Drums in } } | % 7 + r4 d d fs | % 8 + + % Verse + + \repeat volta 3 + { +\mark \markup { \override #'(font-family . sans) { \box { A } } } + + a4. a8 ~ a8 r8 r4 | % 9 + r4 a b a | % 10 + fs4. d8 ~ d8 r8 r4 | % 11 + r4 d' d d | % 12 + d4. d8 ~ d8 r8 r4 | % 13 + r4 d e d | % 14 + b4. a8 ~ a8 r8 r4 | % 15 + r4 d, d fs | % 16 + + a4. a8 ~ a8 r8 r4 | % 17 + r4 a b a | % 18 + fs4. d8 ~ d8 r8 r4 | % 19 + r4 a' b a | % 20 + fs4. r8 r2 | % 21 + r4 d fs e | % 22 + } + \alternative + { + { + d4. r8 r2 | % 23 + r1 | % 24 + r1 | % 25 + r4 d d fs | % 26 + } + { + d4. r8 r2 | % 27 + r1 | % 28 + r1 | % 29 + } + } + + r4 d' d fs \bar "|:" % 30 + + % Tag + +\once \override Score.RehearsalMark #'self-alignment-X = #left +\mark \markup { \override #'(font-family . sans) { \box { B } } \small \italic { Women 8vb throughout } } + + fs4 r r2 | % 31 + r4 d d fs | % 32 + fs4 r r2 | % 33 + r4 d d fs | % 34 + fs4 r r2 | % 35 + r4 d d fs | % 36 + fs4 r r2 | % 37 + r4 d d fs \bar ":|" % 38 + + % Ending + +\once \override Score.RehearsalMark #'self-alignment-X = #left +\mark \markup { \override #'(font-family . sans) { \box { C } } \small \italic { On cue } } + + r1 | % 39 + r1 | % 40 + r1 | % 41 + r1 | % 42 + r1 | % 43 +% r1 | % 44 +% r1 | % 45 + r1 | % 46 + r1^\fermata \bar "|." % 47 +} + + +LeadVoxText = \lyricmode +{ + I have de- ci- ded _ to fol- low Je- sus _ + I have de- ci- ded _ to fol- low Je- sus _ + I have de- ci- ded _ to fol- low Je- sus _ + No tur- ning back, no tur- ning back. + + Though none go + + back. + + No tur- ning back! No tur- ning back! + No tur- ning back! No tur- ning back! + No tur- ning +} + +LeadVoxTextB = \lyricmode +{ + _ _ _ with me, _ still I will fol- low _ + Though none go with me, _ still I will fol- low _ + Though none go with me, _ still I will fol- low _ + No tur- ning back, no tur- ning back. + + The world be- +} + +LeadVoxTextC = \lyricmode +{ + _ _ _ hind me, _ the cross be- fore me _ + The world be- hind me, _ the cross be- fore me _ + The world be- hind me, _ the cross be- fore me _ + No tur- ning back, no tur- ning _ +} + + +% +% Chord names +% + +Chords = \chordmode +{ +%Bah, can't we set this globally? +% \popChords + + % Intro + + c4.:9 b2:7.9+ bf8:7+ | % 1 + s4. a2:sus4.7 c8:9 | % 2 + s4. b2:7.9+ bf8:7+ | % 3 + s4. a2:sus4.7 c8:9 | % 4 + s4. b2:7.9+ bf8:7+ | % 5 + s4. a2:sus4.7 c8:9 | % 6 + s4. b2:7.9+ bf8:7+ | % 7 + s4. a2:sus4.7 s8 | % 8 + + % Verse + + \repeat volta 3 + { + d2..:7+ g8:/a | % 9 + s1 | % 10 + d2..:7+ fs8:aug7 | % 11 + s1 | % 12 + g4.:7+ d2:/fs e8:m7 | % 13 + s4. a2:sus4.7 s8 | % 14 + d2..:7+ g8:m/a | % 15 + s1 | % 16 + + d2..:7+ cs8:m11 | % 17 + s4. fs2:7.9+ b8:m7 | % 18 + s2.. e8:9 | % 19 + s1 | % 20 + e2..:m9 a8:13 | % 21 + s2.. c8:9 | % 22 + } + \alternative + { + { + s4. b2:7.9+ bf8:7+ | % 23 + s4. a2:sus4.7 c8:9 | % 24 + s4. b2:7.9+ bf8:7+ | % 25 + s4. a2:sus4.7 s8 | % 26 + } + { + s4. b2:7.9+ bf8:7+ | % 27 + s4. a2:sus4.7 c8:9 | % 28 + s4. b2:7.9+ bf8:7+ | % 29 + } + } + + s4 a:sus4.7 s2 | % 30 + + % Tag + + d2..:7+ af8:7.5- | % 31 + s1 | % 32 + g2..:7+ c8:9 | % 33 + s1 | % 34 + e2..:m7 a8:sus4.7 | % 35 + s1 | % 36 + c4.:9 b2:7.9+ bf8:7+ | % 37 + s4. a2:sus4.7 s8 | % 38 + + % Ending + + c4.:9 b2:7.9+ bf8:7+ | % 39 + s4. a2:sus4.7 c8:9 | % 40 + s4. b2:7.9+ bf8:7+ | % 41 + s4. a2:sus4.7 c8:9 | % 42 + s4. b2:7.9+ bf8:7+ | % 43 +% s4. a2:sus4.7 c8:9 | % 44 +% s4. b2:7.9+ bf8:7+ | % 45 + s4. a2:sus4.7 s8 | % 46 + d1:7+ | % 47 +} + + +% +% Chord rhythms +% + +% Use a RhythmicStaff on the chords instead of this? +% It almost works, but not quite. Doesn't collapse chords above to single notes... + +StaffC = \relative c +{ + \set Voice.autoBeaming = ##f +% \set Staff.instrumentName = #"Rhythm" + \override Staff.TimeSignature #'style = #'() + \time 4/4 + \override NoteHead #'style = #'slash + + % Intro + + c4. c8 ~ c4. c8 ~ | % 1 + c4. c8 ~ c4. c8 ~ | % 2 + c4. c8 ~ c4. c8 ~ | % 3 + c4. c8 ~ c4. c8 ~ | % 4 + c4. c8 ~ c4. c8 ~ | % 5 + c4. c8 ~ c4. c8 ~ | % 6 + c4. c8 ~ c4. c8 ~ | % 7 + c4. c8 ~ c2 | % 8 + + % Verse + + \repeat volta 3 + { + c4 c c r8 c ~ | % 9 + c4 c c c | % 10 + c4 c c r8 c ~ | % 11 + c4 c c c | % 12 + c4. c8 ~ c4. c8 ~ | % 13 + c4. c8 ~ c2 | % 14 + c4 c c c8 c ~ | % 15 + c4 c c c | % 16 + + c4 c c r8 c ~ | % 17 + c4. c8 ~ c4. c8 ~ | % 18 + c4 c c r8 c ~ | % 19 + c4 c c c | % 20 + c4 c c r8 c ~ | % 21 + c4 c c r8 c ~ | % 22 + } + \alternative + { + { + c4. c8 ~ c4. c8 ~ | % 23 + c4. c8 ~ c4. c8 ~ | % 24 + c4. c8 ~ c4. c8 ~ | % 25 + c4. c8 ~ c2 | % 26 + } + { + c4. c8 ~ c4. c8 ~ | % 27 + c4. c8 ~ c4. c8 ~ | % 28 + c4. c8 ~ c4. c8 ~ | % 29 + } + } + + c4 c r2 \bar "|:" % 30 + + % Tag + + c4 c c r8 c ~ | % 31 + c4 c c c | % 32 + c4 c c r8 c ~ | % 33 + c4 c c c | % 34 + c4 c c r8 c ~ | % 35 + c4 c c c | % 36 + c4. c8 ~ c4. c8 ~ | % 37 + c4. c8 ~ c2 \bar ":|" % 38 + + % Ending + + c4. c8 ~ c4. c8 ~ | % 39 + c4. c8 ~ c4. c8 ~ | % 40 + c4. c8 ~ c4. c8 ~ | % 41 + c4. c8 ~ c4. c8 ~ | % 42 + c4._\markup { \italic rit. } c8 ~ c4. c8 ~ | % 43 +% c4. c8 ~ c4. c8 ~ | % 44 +% c4. c8 ~ c4. c8 ~ | % 45 + c4. c8 ~ c2 | % 46 + c1^\fermata \bar "|." % 47 +} + + +\score +{ + << +% \new ChoirStaff = "Vox" + << + \new Staff = leadStaff { \new Voice = "lead" \LeadVox } + \new Lyrics \lyricsto "lead" \LeadVoxText + \new Lyrics \lyricsto "lead" \LeadVoxTextB + \new Lyrics \lyricsto "lead" \LeadVoxTextC + >> + + \new ChoirStaff = "Rhythm" + << +% \new Staff = "riff" \RhythmB + \new ChordNames = "chords" \Chords + \new RhythmicStaff = "chordRhythm" \StaffC + >> + + \set Score.skipBars = ##t + \set Score.melismaBusyProperties = #'() + >> +} + + +\paper +{ + #(define fonts (make-pango-font-tree + "Times New Roman" + "DomCasual BT" + "Luxi Mono" + (/ staffSize 20))) + +% Don't spread staves vertically across last page (default: t) +% ragged-last-bottom = ##f +% Don't spread staves vertically across the page (default: f) +% ragged-bottom = ##t +% Allow partial line for last stave (default: f) + ragged-last = ##t + +% To find out what's eating the space at the top... +% annotate-spacing = ##t +%let's try this: [It works! Huzzah!] + obsolete-page-top-space = 0 top-system-spacing #'basic-distance = #(/ obsolete-page-top-space staff-space) +} diff --git a/i-see-the-lord.ly b/i-see-the-lord.ly new file mode 100644 index 0000000..f94ea13 --- /dev/null +++ b/i-see-the-lord.ly @@ -0,0 +1,425 @@ +\version "2.16.0" +\include "pop-chords.ly" +\include "english.ly" + +% Good sizes are 16, 18, & 20 +staffSize = #20 +#(set-default-paper-size "letter") +#(set-global-staff-size staffSize) +#(ly:set-option (quote no-point-and-click)) + +%{ Some useful characters: ‘ ’ “ ” – — † ‡ • … %} + +\header +{ +%Let's bump up the title size and switch to the chord font. :-) + + title = \markup { \override #'(font-family . sans) \fontsize #3.5 "I See The Lord" } + composer = \markup { \override #'(font-family . sans) \fontsize #1.3 "Chris Falson" } + arranger = \markup { \override #'(font-family . sans) \fontsize #1.3 "arr. Ed Smart" } + tagline = $(string-append "Engraved by JLH and Lilypond " (lilypond-version)) +% Let's try a chord dictionary +% subtitle = \markup { \center-column { "F#m" \fret-diagram-terse #"x;x;4;2;2;2;" } " " \center-column { "F#m/F" \fret-diagram-terse #"x;x;3;2;2;2;" } " " \center-column { "F#m/E" \fret-diagram-terse #"x;x;2;2;2;2;" } " " \center-column { "F#m/Eb" \fret-diagram-terse #"x;x;1;2;2;2;" } " " \center-column { "Em7" \fret-diagram-terse #"o;2;2;o;3;o;" } " " \center-column { "A13" \fret-diagram-terse #"x;o;2;o;2;2;" } } +} + +% Useful tweak abbreviations (hn = harmony note) + +hn = #(define-music-function (parser location arg) (ly:music?) +;; Harmony Note: Set the tweaks property of the passed in note to use a smaller font + + (set! (ly:music-property arg 'tweaks) + (acons 'font-size -3.0 (ly:music-property arg 'tweaks))) arg) + + +% +% Song's structure +% +Global = +{ + \key e \major + \override Staff.TimeSignature #'style = #'() + \time 4/4 + + % Intro + + \once \override TextScript #'padding = #2.0 + s1*0^\markup { \large \bold { Moderately } } +% Capo 4 version +% s1*0^\markup { \hspace #0.0 \raise #2.0 \larger \bold { "Moderate pop (*** CAPO 4 ***)" } } + + % Intro + + s1*4 \bar "||:" % 1-4 + + \repeat volta 2 + { + % Verse + + \mark \markup { \override #'(font-family . sans) { \box { A } } } + + s1*8 \bar "||" % 5-12 + s1*8 \bar "||" % 13-20 + + % Chorus + + \mark \markup { \override #'(font-family . sans) { \box { B } } } + + s1*14 | % 21-34 + } + \alternative + { + { + s1*2 | % 35-36 + } + { + s1 \bar "||" % 37 + } + } + + % Outro Chorus + + s1*15 \bar "|." % 38-52 +} + + +% +% Lead vocal +% +LeadVox = \relative c' +{ +% \set Staff.instrument = #"Lead vox" + \clef G + \override Staff.TimeSignature #'style = #'() +%Hm. Needed anymore? +% \override Score.SpacingSpanner #'average-spacing-wishes = ##f + + % Intro + + s1 | % 1 + s1 | % 2 + s1 | % 3 + s1 | % 4 + + % Verse + + e8 e e fs ~ fs4 r | % 5 + a4 a8 gs ~ gs e4 cs8 ~ | % 6 + cs2 r4 r8 e | % 7 + e4. ( fs8 ) fs4 r8 b,16 b | % 8 + e8 e e fs ~ fs2 | % 9 + a4 a8 gs ~ gs fs e4 | % 10 + cs'1 | % 11 + cs2 r4 e,8 e | % 12 + + b'4. gs8 ~ gs e4 fs8 ~ | % 13 + fs2 r4 e8 e | % 14 + b'4. gs8 ~ gs e4 fs8 ~ | % 15 + fs2. e8 e | % 16 + b'4. a8 ~ a gs4 fs8 ( | % 17 + e2. ) cs8 e | % 18 + fs1 | % 19 + e1 | % 20 + + % Chorus + + 4. 8 ~ 2 | % 21 + 4. 8 ~ 2 | % 22 + 4. 8 ~ 2 | % 23 + 4. 8 ~ 2 | % 24 + b4. ( e,8 ) e2 | % 25 + a2. gs4 | % 26 + fs1 ~ | % 27 + fs2 r | % 28 + + 4. 8 ~ 2 | % 29 + 4. 8 ~ 2 | % 30 + 4. 8 ~ 2 | % 31 + 4. 8 ~ 2 | % 32 + b4. ( e,8 ) e2 | % 33 + a2 ( gs4 ) fs | % 34 + + e1 | % 35 + r1 | % 36 + + e1 | % 37 + + 4. 8 ~ 2 | % 38 + 4. 8 ~ 2 | % 39 + 4. 8 ~ 2 | % 40 + 4. 8 ~ 2 | % 41 + b4. ( e,8 ) e2 | % 42 + a2. gs4 | % 43 + fs1 ~ | % 44 + fs2 r | % 45 + + 4. 8 ~ 2 | % 46 + 4. 8 ~ 2 | % 47 + 4. 8 ~ 2 | % 48 + 4. 8 ~ 2 | % 49 + b4. ( e,8 ) e2 | % 50 + a2 ( gs4 ) fs | % 51 + e1-\fermata | % 52 +} + +LeadVoxText = \lyricmode +{ + I see the Lord, _ seat -- ed on _ the throne, _ + ex -- al -- _ ted, + and the train of his robe, _ fills the tem -- _ ple + with glo -- ry; + + And the whole earth _ is filled, _ + and the whole earth _ is filled, _ + and the whole earth _ is filled _ + with his glo -- ry. + + Ho -- ly, _ Ho -- ly, _ Ho -- ly, _ Ho -- ly, _ + Ho -- _ ly is the Lord, _ + Ho -- ly, _ Ho -- ly, _ Ho -- ly, _ Ho -- ly, _ + Ho -- _ ly is _ the Lord. + + Lord. + + Ho -- ly, _ Ho -- ly, _ Ho -- ly, _ Ho -- ly, _ + Ho -- _ ly is the Lord, _ + Ho -- ly, _ Ho -- ly, _ Ho -- ly, _ Ho -- ly, _ + Ho -- _ ly is _ the Lord. +} + + +Riffs = \relative c +{ + \clef G +%Hm. Needed anymore? +% \override Score.SpacingSpanner #'average-spacing-wishes = ##f + + % Intro + + \tiny + \repeat percent 4 { e8_\markup { \italic { bass figure } } e e e e e e e } | % 1-4 + \normalsize +} + + +% +% Chord names +% +Chords = \chordmode +{ + % Intro + + s4. e8 s2 | % 1 + s4. fs8:m7/e s2 | % 2 + s4. e8 s2 | % 3 + s4. fs8:m7/e s2 | % 4 + + % Verse + + e4. b8/ds s2 | % 5 + fs4.:m7 e2/gs a8 | % 6 + s1 | % 7 + b2:sus4 b | % 8 + e4. b8/ds s2 | % 9 + fs4.:m7 e8/gs s2 | % 10 + a1 | % 11 + fs1:7/as | % 12 + + e2../b fs8:m7/b | % 13 + s1 | % 14 + e2../b fs8:m7/b | % 15 + s1 | % 16 + e4./gs cs2:m7 a8 | % 17 + s1 | % 18 + fs1:m7 | % 19 + e4. a8/b s2 | % 20 + + % Chorus + + e1 | % 21 + fs1:m7/e | % 22 + e1 | % 23 + fs1:m7 | % 24 + e2/gs cs:m7 | % 25 + fs2.:m7 cs4:m7 | % 26 + b1:sus4 | % 27 + b1 | % 28 + + e1 | % 29 + fs1:m7/e | % 30 + e1 | % 31 + fs1:m7 | % 32 + e2/gs cs:m7 | % 33 + fs2:m7 e4/b b | % 34 + + e1 | % 35 + fs4.:m7 a8/b s2 | % 36 + + e4. a8/b s2 | % 37 + + % Outro Chorus + + e1 | % 38 + fs1:m7/e | % 39 + e1 | % 40 + fs1:m7 | % 41 + e2/gs cs:m7 | % 42 + fs2.:m7 cs4:m7 | % 43 + b1:sus4 | % 44 + b1 | % 45 + + e1 | % 46 + fs1:m7/e | % 47 + e1 | % 48 + fs1:m7 | % 49 + e2/gs cs:m7 | % 50 + fs2:m7 e4/b b | % 51 + e1 | % 52 +} + + +% +% Chord rhythms +% +% Use a RhythmicStaff on the chords instead of this? +% It almost works, but not quite. Doesn't collapse chords above to single notes... +% +Rhythm = \relative c +{ +%% \set Voice.autoBeaming = ##f +%% \set Staff.instrument = #"Rhythm" + \override Staff.TimeSignature #'style = #'() + \override NoteHead #'style = #'slash + + % Intro + + \tiny + r4. c8 ~ c2 | % 1 + r4. c8 ~ c2 | % 2 + r4. c8 ~ c2 | % 3 + r4. c8 ~ c2 | % 4 + + % Verse + + c4. c8 ~ c4 c | % 5 + c4. c8 ~ c4. c8 ~ | % 6 + c4 c c c | % 7 + c4 c c c | % 8 + c4. c8 ~ c4 c | % 9 + c4. c8 ~ c2 | % 10 + c4 c c c | % 11 + c4 c c c | % 12 + + c4. c8 ~ c4. c8 ~ | % 13 + c4 c c c | % 14 + c4. c8 ~ c4. c8 ~ | % 15 + c4 c c c | % 16 + c4. c8 ~ c4. c8 ~ | % 17 + c4 c c c | % 18 + c4 c c c | % 19 + c4. c8 ~ c2 | % 20 + + % Chorus + + c4. c8 ~ c2 | % 21 + c4. c8 ~ c2 | % 22 + c4. c8 ~ c2 | % 23 + c4. c8 ~ c2 | % 24 + c4 c c c | % 25 + c4 c c c | % 26 + c4 c c c | % 27 + c4 c c c | % 28 + + c4. c8 ~ c2 | % 29 + c4. c8 ~ c2 | % 30 + c4. c8 ~ c2 | % 31 + c4. c8 ~ c2 | % 32 + c4 c c c | % 33 + c4 c c c | % 34 + + c4. c8 ~ c2 | % 35 + c4. c8 ~ c2 | % 36 + + c4. c8 ~ c2 | % 37 + + % Outro Chorus + + c4. c8 ~ c2 | % 38 + c4. c8 ~ c2 | % 39 + c4. c8 ~ c2 | % 40 + c4. c8 ~ c2 | % 41 + c4 c c c | % 42 + c4 c c c | % 43 + c4 c c c | % 44 + c4 c c c | % 45 + + c4. c8 ~ c2 | % 46 + c4. c8 ~ c2 | % 47 + c4. c8 ~ c2 | % 48 + c4. c8 ~ c2 | % 49 + c4 c c c | % 50 + c4 c c c | % 51 + c1-\fermata | % 52 + \normalsize +} + + +Dynamics = +{ +%{ + s4_\markup { \italic { snare pat. } } s2 | % 1 + s4_\markup { \italic { simile } } s2 | % 2 + s2.*19 + s4_\markup { \italic { spacey } } s2 | % 22 + s2.*5 + s4 s \< s \! | % 28 + s2.*22 + s4_\markup { \italic { Last time } } s2 | % 51 +%} +} + + +\score +{ + << + \set Score.skipBars = ##t + \set Score.melismaBusyProperties = #'() + +% \new Staff + << + \new ChordNames \Chords +%Capo 4 edition +% \new ChordNames \transpose b g \Chords + \new RhythmicStaff << \Rhythm \Dynamics >> + >> + + \new Staff + << + \Global % The "roadmap" that everything else depends on + \new Voice = "lead" \LeadVox + \new Voice \Riffs + \new Lyrics \lyricsto "lead" \LeadVoxText + >> + >> +} + + +\paper +{ + #(define fonts (make-pango-font-tree + "Times New Roman" + "DomCasual BT" + "Luxi Mono" + (/ staffSize 20))) + +% Spread staves vertically across last page (default: t) + ragged-last-bottom = ##f +% Don't spread staves vertically across the page (default: f) +% ragged-bottom = ##t +% Allow partial line for last stave (default: f) +% ragged-last = ##t + +% To find out what's eating the space at the top... +% annotate-spacing = ##t +%let's try this: [It works! Huzzah!] + obsolete-page-top-space = 0 top-system-spacing #'basic-distance = #(/ obsolete-page-top-space staff-space) +} diff --git a/i-stand-amazed-in-the-presence.ly b/i-stand-amazed-in-the-presence.ly new file mode 100755 index 0000000..dbc1f8a --- /dev/null +++ b/i-stand-amazed-in-the-presence.ly @@ -0,0 +1,362 @@ +\version "2.16.0" +\include "pop-chords.ly" +\include "english.ly" + +% Good sizes are 16, 18, & 20 (11, 13, 14, 23, 26) +% To fit on one page, use 16 +staffSize = #23 +#(set-default-paper-size "letter") +#(set-global-staff-size staffSize) +#(ly:set-option (quote no-point-and-click)) + +%{ Some useful characters: ‘ ’ “ ” – — † ‡ • … %} + +\header +{ +%Let's bump up the title size and switch to the chord font. :-) + + title = \markup { \override #'(font-family . sans) \fontsize #3.5 "I Stand Amazed In The Presence" } + composer = \markup { \override #'(font-family . sans) \fontsize #1.3 "Charles H. Gabriel" } + arranger = \markup { \override #'(font-family . sans) \fontsize #1.3 "arr. Ed Smart" } + tagline = $(string-append "Engraved by JLH and Lilypond " (lilypond-version)) +} + + +% +% Lead vocal +% + +LeadVox = \relative c' +{ +% \set Voice.autoBeaming = ##f +% \set Staff.instrument = #"Lead vox" + \clef G + \key g \major + \override Staff.TimeSignature #'style = #'() + \time 4/4 +\override Score.SpacingSpanner #'average-spacing-wishes = ##f + + % Intro + + \repeat volta 2 + { + R1 | % 1 + R1 | % 2 + R1 | % 3 + r2 r4 r8 d | % 4 + } + + \repeat volta 3 + { + % Verse + +\mark \markup { \override #'(font-family . sans) { \box { A } } } + + d4 b ( d ) g8 a16 g | % 5 + b4. ( a16 g ) g4 g | % 6 + fs4 fs8 fs g4 a | % 7 + g2. d4 | % 8 + e4. e8 g4 fs8 e | % 9 + d4. ( g8 ) g4 a | % 10 + b4 b8 b a4 a | % 11 + g1 \bar "||" % 12 + + % Chorus + +\mark \markup { \override #'(font-family . sans) { \box { B } } } + + b4 b b8 a g4 | % 13 + d'4 d d8 c b4 | % 14 + a4 a a4. b8 | % 15 + c4 b a2 | % 16 + b4 b b8 a g4 | % 17 + d'4 d d8 c b4 | % 18 + a4 b8 ( c ) b4 a | % 19 + \time 2/4 g4 fs \time 4/4 | % 20 + } + \alternative + { + { + g1 | % 21 + r2 r4 r8 d | % 22 + } + { + g1 \bar "||" % 23 + } + } + + % Chorus (redux) + +\mark \markup { \override #'(font-family . sans) { \box { C } } } + + b4 b b8 a g4 | % 24 + d'4 d d8 c b4 | % 25 + a4 a a4. b8 | % 26 + c4 b a2 | % 27 + b4 b b8 a g4 | % 28 + d'4 d d8 c b4 | % 29 + a4 b8 ( c ) b4 a | % 30 + g2 fs \bar "||" % 31 + + % Outro + + g1 | % 32 + R1 | % 33 + r1^\fermata \bar "|." % 34 +} + +LeadVoxText = \lyricmode +{ + I stand a -- _ mazed in the pre- __ _ _ sence + of Je -- sus the Na -- za -- rene; + And won -- der how he could love _ me + a sin -- ner con -- demned un -- clean + + Oh, how mar -- vel -- ous! + Oh, how won -- der- ful! + and my song shall e -- ver be: + Oh, how mar -- vel -- ous! + Oh, how won -- der -- ful! + is my _ sav -- ior’s love for me. + + He + me + + Oh, how mar -- vel -- ous! + Oh, how won -- der -- ful! + and my song shall e -- ver be: + Oh, how mar -- vel -- ous! + Oh, how won -- der -- ful! + is my _ sav -- ior’s love for me. +} + +LeadVoxTextB = \lyricmode +{ + _ + took my _ sins and my sor- __ _ _ rows + he made them his ver -- y own; + He bore the bur -- den to Cal -- _ vr’y + and suf -- ferred and died a -- lone. + + _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ + _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ + + When +} + +LeadVoxTextC = \lyricmode +{ + _ + with the _ ran -- somed in glo- __ _ _ ry + his face I at last shall see; + ’Twill be my joy through the a -- _ ges + to sing of his love for me. +} + + +% +% Chord names +% + +Chords = \chordmode +{ +%Bah, can't we set this globally? +% \popChords + + % Intro + + \repeat volta 2 + { + g2 s16 a4..:m11 | % 1 + c2:sus2 s16 d8.:sus4 d4 | % 2 + g2 s16 a4..:m11 | % 3 + c2:sus2 s16 d8.:sus4 d4 | % 4 + } + + \repeat volta 3 + { + % Verse + + g2 a:m11 | % 5 + g2/b e:m7 | % 6 + d2 c:sus2 | % 7 + g1 | % 8 + c2:sus2 a:m11 | % 9 + g2 e:m7 | % 10 + g2/d d | % 11 + g2 d4:sus4 d | % 12 + + % Chorus + + g2 a:m11 | % 13 + g2/b e:m7 | % 14 + a1:m7 | % 15 + d2:sus4 d | % 16 + g2 a:m11 | % 17 + g2/b e:m7 | % 18 + a2:m7 g4/b c:sus2 | % 19 + \time 2/4 g4/d d \time 4/4 | % 20 + } + \alternative + { + { + g2 a:m11 | % 21 + c2:sus2 d4:sus4 d | % 22 + } + { + g2 d4:sus4 d | % 23 + } + } + + % Chorus (redux) + + g2 a:m7 | % 24 + g2/b e:m7 | % 25 + a2:m7 a:m7/g | % 26 + f2 d4:sus4 d | % 27 + g2 a:m7 | % 28 + g2/b e:m7 | % 29 + a2:m7 g4/b c:sus2 | % 30 + g2/d d | % 31 + + % Outro + + g2 s16 a4..:m7 | % 32 + c2:sus2 s16 d8.:sus4 d4 | % 33 + g1 | % 34 +} + + +% +% Chord rhythms +% + +% Use a RhythmicStaff on the chords instead of this? +% It almost works, but not quite. Doesn't collapse chords above to single notes... + +StaffC = \relative c +{ +% \set Voice.autoBeaming = ##f +% \set Staff.instrument = #"Rhythm" + \override Staff.TimeSignature #'style = #'() + \time 4/4 + \override NoteHead #'style = #'slash + + % Intro + + \repeat volta 2 + { + c4 c r16 c c c c4 | % 1 + c4 c r16 c8. c4 | % 2 + c4 c r16 c c c c4 | % 3 + c4 c r16 c8. c4 | % 4 + } + + \repeat volta 3 + { + % Verse + + c4 c c c | % 5 + c4 c c c | % 6 + c4 c c c | % 7 + c4 c c c | % 8 + c4 c c c | % 9 + c4 c c c | % 10 + c4 c c c | % 11 + c4 c c c \bar "||" % 12 +\break + + % Chorus + + c4 c c c | % 13 + c4 c c c | % 14 + c4 c c c | % 15 + c4 c c c | % 16 + c4 c c c | % 17 + c4 c c c | % 18 + c4 c c c | % 19 + \time 2/4 c4 c \time 4/4 | % 20 + } + \alternative + { + { + c4 c c c | % 21 + c4 c c c | % 22 + } + { + c4 c c c \bar "||" % 23 + } + } + + % Chorus (redux) + + c2 c | % 24 + c2 c | % 25 + c2 c | % 26 + c2 c4 c | % 27 + c4 c c c | % 28 + c4 c c c | % 29 + c4 c c c | % 30 + c4 c c c \bar "||" % 31 + + % Outro + + c4 c r16 c c c c4 | % 32 + c4 c r16 c8. c4 | % 33 + c1^\fermata \bar "|." % 34 +} + + +Dynamics = +{ + s1*19 + s2 + s1*12 +%This causes lily to create an extra page for just 2 bars. It's not important. +%One one page perhaps? With two, it's OK + s2 s2_\markup { \italic { rit. } } | % 33 +} + + +\score +{ + << + << + \new Staff = leadStaff { << \new Voice = "lead" \LeadVox >> } + \new Lyrics \lyricsto "lead" \LeadVoxText + \new Lyrics \lyricsto "lead" \LeadVoxTextB + \new Lyrics \lyricsto "lead" \LeadVoxTextC + >> + + \new ChoirStaff = "Rhythm" + << + \new ChordNames = "chords" \Chords + \new RhythmicStaff = "chordRhythm" << \StaffC \Dynamics >> + >> + + \set Score.skipBars = ##t + \set Score.melismaBusyProperties = #'() + >> +} + + +\paper +{ + #(define fonts (make-pango-font-tree + "Times New Roman" + "DomCasual BT" + "Luxi Mono" + (/ staffSize 20))) + +% Don't spread staves vertically across last page (default: t) +% ragged-last-bottom = ##f +% Don't spread staves vertically across the page (default: f) +% ragged-bottom = ##t +% Allow partial line for last stave (default: f) + ragged-last = ##t + +% To find out what's eating the space at the top... +% annotate-spacing = ##t +%let's try this: [It works! Huzzah!] + obsolete-page-top-space = 0 top-system-spacing #'basic-distance = #(/ obsolete-page-top-space staff-space) +} diff --git a/i-will-never-be.ly b/i-will-never-be.ly new file mode 100644 index 0000000..fb6e511 --- /dev/null +++ b/i-will-never-be.ly @@ -0,0 +1,464 @@ +\version "2.16.0" +\include "pop-chords.ly" +\include "english.ly" + +% Good sizes are 16, 18, & 20 +staffSize = #16 +#(set-default-paper-size "letter") +#(set-global-staff-size staffSize) +#(ly:set-option (quote no-point-and-click)) + +%{ Some useful characters: ‘ ’ “ ” – — † ‡ • … %} + +\header +{ +%Let's bump up the title size and switch to the chord font. :-) + + title = \markup { \override #'(font-family . sans) \fontsize #3.5 "I Will Never Be (The Same Again)" } + composer = \markup { \override #'(font-family . sans) \fontsize #1.3 "Geoff Bullock" } + arranger = \markup { \override #'(font-family . sans) \fontsize #1.3 "arr. Ed Smart" } + tagline = $(string-append "Engraved by JLH and Lilypond " (lilypond-version)) +} + + +% +% Lead vocal +% + +LeadVox = \relative c' +{ +% \set Voice.autoBeaming = ##f +% \set Staff.instrument = #"Lead vox" + \clef G + \key d \major + \override Staff.TimeSignature #'style = #'() + \time 4/4 +\override Score.SpacingSpanner #'average-spacing-wishes = ##f + + % Intro + + s1 | % 1 + s1 | % 2 + + % A section + + \repeat volta 2 + { +\mark \markup { \override #'(font-family . sans) \box { A } } + r8 fs16 fs fs fs g8 ~ g4 r8 r16 g | % 3 + b4 a8 a ~ a4 r | % 4 + r8 d,16 d d e fs e ~ e4 r8 a | % 5 + a8 e4 fs8 ~ fs4 r | % 6 + r8 fs16 fs fs fs g8 ~ g4 r8 b | % 7 + b8 a4 a8 ~ a4 r8 fs | % 8 + d4 fs8 fs16 e ~ e4. d16 cs | % 9 + } + \alternative + { + { + d4 cs8 d ~ d4 r | % 10 + } + { + d4 cs8 d ~ d4 r | % 11 + } + } + + % B section + +\once \override Score.RehearsalMark #'self-alignment-X = #left +\mark \markup { \override #'(font-family . sans) { \box { B } } \hspace #1.0 \raise #2.0 \musicglyph #"scripts.segno" } +%\mark \markup { \override #'(font-family . sans) \box { B } } + + g8 g4 g8 ~ g4. a8 ~ | % 12 + a8 e4 fs8 ~ fs2 | % 13 + g8 g g g16 b ~ b b4. b16 | % 14 + a8 e fs fs ~ fs4 r | % 15 + f8 f16 f ~ f f g8 ~ g8. g16 ~ g4 | % 16 + g8 g16 g ~ g f a8 ~ a4 r8 fs | % 17 + d8 d16 b' ~ b8 a ~ a4 r8 fs | % 18 + \time 2/4 g8 fs16 g ~ g b8. ( \time 4/4 | % 19 +%\once \override Score.RehearsalMark #'self-alignment-X = #right +%\mark \markup { \hspace #4.0 \italic { to Coda } \hspace #1.0 \musicglyph #"scripts.coda" } +%Argh, needs to be adjusted by hand...! + a8 ) a2..^\markup { \hspace #9.0 \raise #0.0 \italic { \larger { to Coda } } \hspace #1.0 \musicglyph #"scripts.coda" } \bar "||" % 20 + + % A section + +\mark \markup { \override #'(font-family . sans) \box { C } } + r8 fs16 fs fs fs g8 ~ g4 r4 | % 21 + r8 g16 g b8 a ~ a a4 r16 fs | % 22 + d16 d b d ~ d fs8 e16 ~ e4 r8 a | % 23 + a8 e4 fs8 ~ fs4 r8 r16 d | % 24 + fs8 fs g g ~ g4 r8 b ~ | % 25 + b8 a4 a8 ~ a4 r8 fs | % 26 + d4 fs8 fs16 e ~ e4. d16 cs | % 27 + d4 cs8 d ~ d4 r \bar "||" % 28 + +\once \override Score.RehearsalMark #'self-alignment-X = #right +\mark \markup { \italic { D.S. al Coda } } + +% \stopStaff s1 \bar "" \startStaff % That removed the spurious floating bar line from line break +\stopStaff s1 \startStaff +\set Score.currentBarNumber = #29 + +\once \override Score.RehearsalMark #'self-alignment-X = #left +\mark \markup { { \musicglyph #"scripts.coda" } "Coda" } + + % Coda + + r8 fs16 fs fs fs g8 ~ g4 r8 r16 g | % 29 + b4 a8 a ~ a4 r | % 30 + r8 d,16 d d e fs e ~ e4 r8 a | % 31 + a8 e4 fs8 ~ fs4 r | % 32 + r8 fs16 fs fs fs g8 ~ g4 r8 b | % 33 + b8 a4 a8 ~ a4 r8 fs | % 34 + d4 fs8 fs16 e ~ e4. d16 cs | % 35 + d4 cs8 d ~ d4 r \bar "||" % 36 + + % Outro + + \key ef \major + +\mark \markup { \override #'(font-family . sans) \box { D } } + r8 g16 g g g af8 ~ af4 r8 r16 af | % 37 + c4 bf8 bf ~ bf4 r | % 38 + r8 ef,16 ef ef f g f ~ f4 r8 bf | % 39 + bf8 f4 g8 ~ g4 r | % 40 + r8 g16 g g af af8 ~ af4 r8 c | % 41 + c8 bf4 bf8 ~ bf4 r8 g | % 42 + ef4 g8 g16 f ~ f4. ef16 d | % 43 + ef4 d8 ef ~ ef4 r8 g | % 44 + + ef4 g8 g16 f ~ f4. ef16 d | % 45 + ef4 d8 ef ~ ef4 r8 g | % 46 + ef4 g8 g16 f ~ f4. ef16 d | % 47 + ef2. d4 | % 48 + \voiceTwo { ef2 r2 } \oneVoice | % 49 + s1 \bar "|." % 50 +} + +LeadVoxText = \lyricmode +{ + I will ne -- ver be _ the same a -- gain, _ + I can ne -- ver re -- turn, _ I’ve closed the door; _ + I will walk the path, _ I’ll run the race, _ + And I will ne -- ver _ be the same a -- again. _ + + same a -- gain. _ + + Fall like fire, _ soak _ like rain, _ + Flow like migh -- ty wa -- _ ters a -- gain and a -- gain. _ + Sweep a -- way _ the dark -- _ ness, _ burn a -- way _ the chaff, _ + And let a flame _ burn _ to glo -- ri -- fy _ your _ name! + + There are high -- er heights, _ there are deep -- er _ seas; + What -- e -- ver you want _ to do, _ Lord do in me. _ + The glo -- ry of God _ fills _ my life _ + And I will ne -- ver _ be the same a -- again. _ + + I will ne -- ver be _ the same a -- gain, _ + I can ne -- ver re -- turn, _ I’ve closed the door; _ + I will walk the path, _ I’ll run the race, _ + And I will ne -- ver _ be the same a -- again. _ + + I will ne -- ver be _ the same a -- gain, _ + I can ne -- ver re -- turn, _ I’ve closed the door; _ + I will walk the path, _ I’ll run the race, _ + And I will ne -- ver _ be the same a -- again. _ + + And I will ne -- ver _ be the same a -- again. _ + And I will ne -- ver _ be the same a -- again. _ +} + + +Riffs = \relative c' +{ + \clef G + \key d \major + \override Staff.TimeSignature #'style = #'() + \time 4/4 +\override Score.SpacingSpanner #'average-spacing-wishes = ##f + + % Intro + + \tiny + d4 fs8 fs16 e ~ e4. d16 cs | % 1 + d4 cs8 d ~ d2 | % 2 + + s1*16 + s2 + s1*9 + s1 % coda spacer + s1*20 + + \voiceOne { r8 g16 g g g af8 ~ af2 } \oneVoice | % 49 + c8 bf4. g2-\fermata | % 50 + \normalsize +} + + +% +% Chord names +% + +Chords = \chordmode +{ +%Bah, can't we set this globally? +% \popChords + + % Intro + + g4. a2 s8 | % 1 + g4/b a8/cs d2 s8 | % 2 + + % A section + + \repeat volta 2 + { + d4. g2/d s8 | % 3 + g4/b a8/cs d2 s8 | % 4 + g4.. a16 s2 | % 5 + g8/b a4/cs d4. a4:sus4 | % 6 + d4. e2:m11 s8 | % 7 + g8 a4 d4. d4/fs | % 8 + g4. a2 s8 | % 9 + } + \alternative + { + { + g4/b a8/cs d4. a4:sus4 | % 10 + } + { + g4/b a8/cs d2 s8 | % 11 + } + } + + % B section + + c4. g2/b a8:sus4 | % 12 + s8 a4/cs d2 s8 | % 13 + c4.. g16/b s2 | % 14 + a4:sus4 a8/cs d4. d4/c | % 15 + bf4. c2/bf s8 | % 16 + a4.:m7 d2/a s8 | % 17 + e4.:m11 d2/fs s8 | % 18 + \time 2/4 g2 \time 4/4 | % 19 + a2:sus4 a | % 20 + + % A section + + d4. g2/d s8 | % 21 + g8/b a4/cs d2 s8 | % 22 + g4.. a16 s2 | % 23 + g8/b a4/cs d4. a4:sus4 | % 24 + d4. e2:m11 g8/b | % 25 + s8 a4/cs d4. d4/fs | % 26 + g4. a2 s8 | % 27 + g4/b a8/cs d2 s8 | % 28 + +s1 + + % Coda + + d4. g2/d s8 | % 29 + g4/b a8/cs d2 s8 | % 30 + g4.. a16 s2 | % 31 + g8/b a4/cs d4. a4:sus4 | % 32 + d4. e2:m11 s8 | % 33 + g8 a4 d4. d4/fs | % 34 + g4. a2 s8 | % 35 + g4/b a8/cs d4. bf4 | % 36 + + % Outro + + ef4. af2/ef s8 | % 37 + af4/c bf8/d ef2 s8 | % 38 + af4.. bf16 s2 | % 39 + af8/c bf4/d ef4. bf4:sus4 | % 40 + ef4. f2:m11 s8 | % 41 + af8/c bf4/d ef4. ef4/g | % 42 + af4. bf2 s8 | % 43 + af4/c bf8/d ef4. ef4/g | % 44 + af4. bf2 s8 | % 45 + af4/c bf8/d ef2 s8 | % 46 + af4. bf2 s8 | % 47 + af2./c bf4/d | % 48 + ef4. af2/ef s8 | % 49 + af8/c bf4./d ef2 | % 50 +} + +% +% Chord rhythms +% + +% Use a RhythmicStaff on the chords instead of this? +% It almost works, but not quite. Doesn't collapse chords above to single notes... + +StaffC = \relative c +{ +% \set Voice.autoBeaming = ##f +% \set Staff.instrument = #"Rhythm" + \override Staff.TimeSignature #'style = #'() + \time 4/4 + \override NoteHead #'style = #'slash + + % Intro + + c4. c8 ~ c4 c | % 1 + c4 c8 c ~ c4 c | % 2 + + % A section + + \repeat volta 2 + { + c4. c8 ~ c4 c | % 3 + c4 c8 c ~ c4 c | % 4 + c4 ~ c8. c16 ~ c4 c | % 5 + c8 c4 c8 ~ c4 c | % 6 + c4. c8 ~ c4 c | % 7 + c8 c4 c8 ~ c4 c | % 8 + c4. c8 ~ c4 c | % 9 + } + \alternative + { + { + c4 c8 c ~ c4 c-> | % 10 + } + { + c4 c8 c ~ c4 c | % 11 + } + } + + % B section + + c4.-> c8-> ~ c4. c8-> ~ | % 12 + c8 c4 c8 ~ c4 c | % 13 + c4 c8. c16 ~ c4 c | % 14 + c4 c8 c-> ~ c4 c | % 15 + c4. c8-> ~ c4 c | % 16 + c4. c8 ~ c4 c | % 17 + c4.-> c8-> ~ c4 c | % 18 + \time 2/4 c4-> c \time 4/4 | % 19 + c4-> c c c \bar "||" % 20 + + % A section + + c4. c8 ~ c4 c | % 21 + c8 c4 c8 ~ c4 c | % 22 + c4 c8. c16 ~ c4 c | % 23 + c8 c4 c8 ~ c4 c | % 24 + c4. c8 ~ c4. c8 ~ | % 25 + c8 c4 c8 ~ c4 c | % 26 + c4. c8 ~ c4 c | % 27 + c4 c8 c ~ c4 c \bar "||" % 28 + +% \stopStaff s1 \bar "" \startStaff % That removed the spurious floating bar line from line break +\stopStaff s1 \startStaff +\set Score.currentBarNumber = #29 + + % Coda + + c4. c8 ~ c4 c | % 29 + c4 c8 c ~ c4 c | % 30 + c4 c8. c16 ~ c4 c | % 31 + c8 c4 c8 ~ c4 c | % 32 + c4. c8 ~ c4 c | % 33 + c8 c4 c8 ~ c4 c | % 34 + c4. c8 ~ c4 c | % 35 + c4 c8 c ~ c4 c \bar "||" % 36 + + % Outro + + c4. c8-> ~ c4 c | % 37 + c4 c8 c-> ~ c4 c | % 38 + c4 c8. c16 ~ c4 c | % 39 + c8 c4-> c8-> ~ c4 c | % 40 + c4. c8 ~ c4 c | % 41 + c8 c4-> c8-> ~ c4 c | % 42 + c4. c8 ~ c4 c | % 43 + c4 c8 c ~ c4 c | % 44 + c4. c8 ~ c4 c | % 45 + c4 c8 c ~ c4 c | % 46 + c4. c8 ~ c4 c | % 47 + c4 c c c-> | % 48 + c4. c8 ~ c4 c | % 49 + c8 c4. c2-\fermata \bar "|." % 50 +} + + +Dynamics = +{ + s4_\mp s2. | % 1 + s1*9 + s2 s4 \< s | % 11 + s4_\mf s2. | % 12 + s1*4 + s4. s8 \< s2 | % 17 + s4_\f s2. | % 18 + s2 | % 19 + s2 s4 \> s \! | % 20 + s1*7 + s2 s4 \< s \! | % 28 + s1 % coda filler + s4_\mf s2. | % 29 + s1*6 + s2 s4 \< s \! | % 36 + s1*11 + s4 s \< s2 | % 48 + s4_\f s2. | % 49 + s8 s_\markup { \italic { rit. } } s2. | % 50 + +%{ + s4_\markup { \italic { snare pat. } } s2 | % 1 + s4_\markup { \italic { simile } } s2 | % 2 + s2.*19 + s4_\markup { \italic { spacy } } s2 | % 22 + s2.*5 + s4 s \< s \! | % 28 + s2.*22 + s4_\markup { \italic { Last time } } s2 | % 51 +%} +} + + +\score +{ + << + << +% \new Staff = leadStaff { \new Voice = "lead" \LeadVox } + \new Staff = leadStaff { << \new Voice = "lead" \LeadVox \new Voice = "riffs" \Riffs >> } + \new Lyrics \lyricsto "lead" \LeadVoxText + >> + + \new ChoirStaff = "Rhythm" + << + \new ChordNames = "chords" \Chords + \new RhythmicStaff = "chordRhythm" << \StaffC \Dynamics >> + >> + + \set Score.skipBars = ##t + \set Score.melismaBusyProperties = #'() + >> +} + + +\paper +{ + #(define fonts (make-pango-font-tree + "Times New Roman" + "DomCasual BT" + "Luxi Mono" + (/ staffSize 20))) + +% Don't spread staves vertically across last page (default: t) +% ragged-last-bottom = ##f +% Don't spread staves vertically across the page (default: f) +% ragged-bottom = ##t +% Allow partial line for last stave (default: f) + ragged-last = ##t + +% To find out what's eating the space at the top... +% annotate-spacing = ##t +%let's try this: [It works! Huzzah!] + obsolete-page-top-space = 0 top-system-spacing #'basic-distance = #(/ obsolete-page-top-space staff-space) +} diff --git a/i-will-praise-him-still.ly b/i-will-praise-him-still.ly new file mode 100755 index 0000000..08b46f5 --- /dev/null +++ b/i-will-praise-him-still.ly @@ -0,0 +1,560 @@ +\version "2.16.0" +\include "pop-chords.ly" +\include "english.ly" + +% Good sizes are 16, 18, & 20 +staffSize = #18 +#(set-default-paper-size "letter") +#(set-global-staff-size staffSize) +#(ly:set-option (quote no-point-and-click)) + +%{ Some useful characters: ‘ ’ “ ” – — † ‡ • … %} + +\header +{ +%Let's bump up the title size and switch to the chord font. :-) + + title = \markup { \override #'(font-family . sans) \fontsize #3.5 "I Will Praise Him Still" } + composer = \markup { \override #'(font-family . sans) \fontsize #1.3 "Fernando Ortega" } + arranger = \markup { \override #'(font-family . sans) \fontsize #1.3 "arr. John Wierick" } + tagline = $(string-append "Engraved by JLH and Lilypond " (lilypond-version)) +} + +% Useful tweak abbreviations (hn = harmony note) + +hn = #(define-music-function (parser location arg) (ly:music?) +;; Harmony Note: Set the tweaks property of the passed in note to use a smaller font + + (set! (ly:music-property arg 'tweaks) + (acons 'font-size -3.0 (ly:music-property arg 'tweaks))) arg) + + +% +% Lead vocal +% + +LeadVox = \relative c'' +{ +% \set Voice.autoBeaming = ##f +% \set Staff.instrumentName = #"Lead vox" + \clef G + \key g \major + \override Staff.TimeSignature #'style = #'() + \time 4/4 +\override Score.SpacingSpanner #'average-spacing-wishes = ##f + + % Intro + + s1 | % 1 + s1 | % 2 + s1 | % 3 + s1 | % 4 + \time 2/4 s2 \time 4/4 | % 5 + r2 r4 g8 fs | % 6 + + \repeat volta 2 + { + % Verse + +\mark \markup { \override #'(font-family . sans) { \box { A } } } + + e4 e d d8 g | % 7 + a4 a b b8 a | % 8 + g4 e d d8 g | % 9 + \time 2/4 a4 a \time 4/4 | % 10 + g2 r4 g8 fs | % 11 + + e4 e d d8 g | % 12 + a4 a b b8 a | % 13 + g4 e d d8 g | % 14 + \time 2/4 a4 a \time 4/4 | % 15 + g2 r4 b8 d \bar "||" % 16 + + % Chorus + +\mark \markup { \override #'(font-family . sans) { \box { B } } } + + 4 4 b8 ( a16 g ) | % 17 + 4 b8 d | % 18 + 4 b8 a | % 19 + \time 2/4 g4 b \time 4/4 | % 20 + } + \alternative + { + { + a2 r4 g8 fs \bar "||" % 21 + e4 e d d8 g | % 22 + a4 a b b8 a | % 23 + g4 e d d8 g | % 24 + \time 2/4 a4 a \time 4/4 | % 25 + g2. r4 | % 26 + r2 r4 g8 fs | % 27 + } + { + a2 r4 e'8 e | % 28 + d4 d d b8 ( a16 g ) | % 29 + } + } + + a4 a b b8 d | % 30 + e4 e d b8 a | % 31 + \time 2/4 g4 b \time 4/4 | % 32 + a2 r4 g8 fs \bar "||" % 33 + + % Verse + + e4 e d d8 g | % 34 + a4 a b b8 a | % 35 + g4 e d d8 g | % 36 + \time 2/4 a4 a \time 4/4 | % 37 + g2. r4 | % 38 + R1 | % 39 + + \repeat volta 2 + { + % Interlude + +\mark \markup { \override #'(font-family . sans) { \box { C } } } + + s1 | % 40 + s1 | % 41 + s1 | % 42 + \voiceOne s2. 8 \oneVoice | % 43 + } + + % Chorus + +\mark \markup { \override #'(font-family . sans) { \box { D } } } + + d4 d d b8 ( a16 g ) | % 44 + a4 a b b8 d | % 45 + e4 e d b8 a | % 46 + \time 2/4 g4 b \time 4/4 | % 47 + a2 r4 e'8 e | % 48 + + d4 d d b8 ( a16 g ) | % 49 + a4 a b b8 d | % 50 + e4 e d b8 a | % 51 + \time 2/4 g4 b \time 4/4 | % 52 + a2 r4 g8 fs \bar "||" % 53 + + % Verse outro + +\mark \markup { \override #'(font-family . sans) { \box { E } } } + + e4 e d d8 g | % 54 + a4 a b b8 a | % 55 + g4 e d d8 g | % 56 + \time 2/4 a4 a \time 4/4 | % 57 + g1 ~ | % 58 + g1^\fermata \bar "|." % 59 +} + +LeadVoxText = \lyricmode +{ + When the mor- ning falls on the far- thest hill + I will sing his name, I will praise him still + + When dark tri- als come and my heart is filled + with the weight of doubt, I will praise him still + + For the Lord our God is __ _ _ strong to save, + from the arms of death, from the deep- est grave + + And he gave us life in his per- fect will + and by his good grace, I will praise him still. + + When the + grave + + For the Lord our God is __ _ _ strong to save, + from the arms of death, from the deep- est grave + + And he gave us life in his per- fect will + and by his good grace, I will praise him still. + + For the Lord our God is __ _ _ strong to save, + from the arms of death, from the deep- est grave + + For the Lord our God is __ _ _ strong to save, + from the arms of death, from the deep- est grave + + And he gave us life in his per- fect will + and by his good grace, I will praise him still. +} + + +Riffs = \relative c''' +{ + \clef G + \key g \major + \override Staff.TimeSignature #'style = #'() + \time 4/4 +\override Score.SpacingSpanner #'average-spacing-wishes = ##f + + % Intro + +\tiny + r2. g8 fs | % 1 + e4 e d d8 g | % 2 + a4 a b b16 c32 b a16 g | % 3 + g4 e d d8 g | % 4 + \time 2/4 a4 a \time 4/4 | % 5 + g1 | % 6 + + \repeat volta 2 + { + % Verse + + s1 | % 7 + s1 | % 8 + s1 | % 9 + \time 2/4 s2 \time 4/4 | % 10 + s1 | % 11 + + s1 | % 12 + s1 | % 13 + s1 | % 14 + \time 2/4 s2 \time 4/4 | % 15 + s1 | % 16 + + % Chorus + + s1 | % 17 + s1 | % 18 + s1 | % 19 + \time 2/4 s2 \time 4/4 | % 20 + } + \alternative + { + { + s1 | % 21 + s1 | % 22 + s1 | % 23 + s1 | % 24 + \time 2/4 s2 \time 4/4 | % 25 + s1 | % 26 + s1 | % 27 + } + { + s1 | % 28 + s1 | % 29 + } + } + + s1 | % 30 + s1 | % 31 + \time 2/4 s2 \time 4/4 | % 32 + s1 | % 33 + + % Verse + + s1 | % 34 + s1 | % 35 + s1 | % 36 + \time 2/4 s2 \time 4/4 | % 37 + s1 | % 38 + s1 | % 39 + + \repeat volta 2 + { + % Interlude + + << { \tiny e4 e d d8 g } \\ { \tiny 2 } >> | % 40 + << { a'4 a b b8 a } \\ { 2 b16 c b a g8 fs } >> | % 41 + << { g'4 e d d8 g } \\ { e,4. g16 a b8 g d b' } >> | % 42 + << { a'4 a b16 c b a s4 } \\ { a,4. g16 fs g4 b8 g } >> | % 43 + } + + % Chorus + + s1 | % 44 + s1 | % 45 + s1 | % 46 + \time 2/4 s2 \time 4/4 | % 47 + s1 | % 48 + s1 | % 49 + s1 | % 50 + s1 | % 51 + \time 2/4 s2 \time 4/4 | % 52 + s1 | % 53 + + % Verse outro + + s1 | % 54 + s1 | % 55 + s1 | % 56 + \time 2/4 s2 \time 4/4 | % 57 + s1 | % 58 + s1 \bar "|." % 59 +\normalsize +} + + +% +% Chord names +% + +Chords = \chordmode +{ +%Bah, can't we set this globally? +% \popChords + + % Intro + + s1 | % 1 + c2/g g | % 2 + d2/fs e:m | % 3 + a2:m g/b | % 4 + \time 2/4 d2 \time 4/4 | % 5 + g1 | % 6 + + \repeat volta 2 + { + % Verse + + c2 g/b | % 7 + d2 g | % 8 + a2:m g/b | % 9 + \time 2/4 d2 \time 4/4 | % 10 + g1 | % 11 + + c2/g g | % 12 + d2/fs e:m | % 13 + a2:m g/b | % 14 + \time 2/4 d2 \time 4/4 | % 15 + g1 | % 16 + + % Chorus + + d2 g | % 17 + d2/fs g | % 18 + e2:m b:m | % 19 + \time 2/4 c \time 4/4 | % 20 + } + \alternative + { + { + d1 | % 21 + c2 g/b | % 22 + d2 e:m | % 23 + a2:m g/b | % 24 + \time 2/4 d2 \time 4/4 | % 25 + g1 | % 26 + s1 | % 27 + } + { + d1 | % 28 + d2 g | % 29 + } + } + + d2/fs g | % 30 + e2:m b:m | % 31 + \time 2/4 c2 \time 4/4 | % 32 + d1 | % 33 + + % Verse + + c2 g/b | % 34 + d2 e:m | % 35 + a2:m7 g/b | % 36 + \time 2/4 d2 \time 4/4 | % 37 + g1 | % 38 + s1 | % 39 + + \repeat volta 2 + { + % Interlude + + c2/g g | % 40 + d2/fs g | % 41 + c2/g g | % 42 + d2/fs g | % 43 + } + + % Chorus + + d2 g | % 44 + d2:/fs g | % 45 + e2:m b:m7 | % 46 + \time 2/4 c2 \time 4/4 | % 47 + d1 | % 48 + d2 g | % 49 + d2/fs g | % 50 + e2:m b:m7 | % 51 + \time 2/4 c2 \time 4/4 | % 52 + d1 | % 53 + + % Verse outro + + c2 g/b | % 54 + d2 e:m | % 55 + a2:m g/b | % 56 + \time 2/4 d2 \time 4/4 | % 57 + g1 | % 58 + s1 | % 59 +} + + +% +% Chord rhythms +% + +% Use a RhythmicStaff on the chords instead of this? +% It almost works, but not quite. Doesn't collapse chords above to single notes... + +StaffC = \relative c +{ +% \set Voice.autoBeaming = ##f +% \set Staff.instrumentName = #"Rhythm" + \override Staff.TimeSignature #'style = #'() + \time 4/4 + \override NoteHead #'style = #'slash + + % Intro + + s1 | % 1 + c4 c c c | % 2 + c4 c c c | % 3 + c4 c c c | % 4 + \time 2/4 c4 c \time 4/4 | % 5 + c4 c c c | % 6 + + \repeat volta 2 + { + % Verse + + c4 c c c | % 7 + c4 c c c | % 8 + c4 c c c | % 9 + \time 2/4 c4 c \time 4/4 | % 10 + c4 c c c | % 11 + + c4 c c c | % 12 + c4 c c c | % 13 + c4 c c c | % 14 + \time 2/4 c4 c \time 4/4 | % 15 + c4 c c c | % 16 + + % Chorus + + c4 c c c | % 17 + c4 c c c | % 18 + c4 c c c | % 19 + \time 2/4 c4 c \time 4/4 | % 20 + } + \alternative + { + { + c4 c c c | % 21 + c4 c c c | % 22 + c4 c c c | % 23 + c4 c c c | % 24 + \time 2/4 c4 c \time 4/4 | % 25 + c4 c c c | % 26 + c4 c c c | % 27 + } + { + c4 c c c | % 28 + c4 c c c | % 29 + } + } + + c4 c c c | % 30 + c4 c c c | % 31 + \time 2/4 c4 c \time 4/4 | % 32 + c4 c c c | % 33 + + % Verse + + c4 c c c | % 34 + c4 c c c | % 35 + c4 c c c | % 36 + \time 2/4 c4 c \time 4/4 | % 37 + c4 c c c | % 38 + c4 c c c | % 39 + + \repeat volta 2 + { + % Interlude + + c4 c c c | % 40 + c4 c c c | % 41 + c4 c c c | % 42 + c4 c c c | % 43 + } + + % Chorus + + c4 c c c | % 44 + c4 c c c | % 45 + c4 c c c | % 46 + \time 2/4 c4 c \time 4/4 | % 47 + c4 c c c | % 48 + c4 c c c | % 49 + c4 c c c | % 50 + c4 c c c | % 51 + \time 2/4 c4 c \time 4/4 | % 52 + c1 | % 53 + + % Verse outro + + c2 c | % 54 + c2 c | % 55 + c2 c | % 56 + \time 2/4 c4 c \time 4/4 | % 57 + c1 ~ | % 58 + c1^\fermata \bar "|." % 59 +} + + +Dynamics = +{ + s1*31 s2*7 | % 1-38 + s4 \> s s s \! | % 39 + s1*11 s2*2 | % 40-52 + s4 \> s s s \! | % 53 +} + + +\score +{ + << + << + \new Staff = leadStaff { << \new Voice = "lead" \LeadVox \new Voice = "riffs" \Riffs >> } + \new Lyrics \lyricsto "lead" \LeadVoxText + >> + + \new ChoirStaff = "Rhythm" + << + \new ChordNames = "chords" \Chords + \new RhythmicStaff = "chordRhythm" << \StaffC \Dynamics >> + >> + + \set Score.skipBars = ##t + \set Score.melismaBusyProperties = #'() + >> +} + + +\paper +{ + #(define fonts (make-pango-font-tree + "Times New Roman" + "DomCasual BT" + "Luxi Mono" + (/ staffSize 20))) + +% Don't spread staves vertically across last page (default: t) +% ragged-last-bottom = ##f +% Don't spread staves vertically across the page (default: f) +% ragged-bottom = ##t +% Allow partial line for last stave (default: f) + ragged-last = ##t + +% To find out what's eating the space at the top... +% annotate-spacing = ##t +%let's try this: [It works! Huzzah!] + obsolete-page-top-space = 0 top-system-spacing #'basic-distance = #(/ obsolete-page-top-space staff-space) +} diff --git a/if-we-are-the-body.ly b/if-we-are-the-body.ly new file mode 100644 index 0000000..4437d33 --- /dev/null +++ b/if-we-are-the-body.ly @@ -0,0 +1,587 @@ +\version "2.16.0" +\include "pop-chords.ly" +\include "english.ly" + +% Good sizes are 16, 18, & 20 +staffSize = #18 +#(set-default-paper-size "letter") +#(set-global-staff-size staffSize) +#(ly:set-option (quote no-point-and-click)) + +%{ Some useful characters: ‘ ’ “ ” – — † ‡ • … %} + +\header +{ +%Let's bump up the title size and switch to the chord font. :-) + + title = \markup { \override #'(font-family . sans) \fontsize #3.5 "If We Are The Body" } + composer = \markup { \override #'(font-family . sans) \fontsize #1.3 "Casting Crowns" } +% arranger = \markup { \override #'(font-family . sans) \fontsize #1.3 "arr. Ed Smart" } + tagline = $(string-append "Engraved by JLH and Lilypond " (lilypond-version)) +} + +% Useful tweak abbreviations (hn = harmony note) + +hn = #(define-music-function (parser location arg) (ly:music?) +;; Harmony Note: Set the tweaks property of the passed in note to use a smaller font + + (set! (ly:music-property arg 'tweaks) + (acons 'font-size -3.5 (ly:music-property arg 'tweaks))) arg) + + +% +% Song's structure +% +Global = +{ +% \key fs \minor +% Transposed edition + \key e \minor + \override Staff.TimeSignature #'style = #'() + \time 4/4 + + % Intro + + \repeat volta 2 + { + s1*2 | % 1-2 + } + + \repeat volta 2 + { + % Verse + + s1*4 \bar "||" % 3-6 + + \mark \markup { \override #'(font-family . sans) { \box { A } } } + + s1*16 \bar "||" % 7-22 + + % Chorus + + \mark \markup { \override #'(font-family . sans) { \box { B } } } + + s1*15 | % 23-37 + } + \alternative + { + { + s1*5 | % 38-42 + } + { + s1 | % 43 + } + } + + % Bridge + + \mark \markup { \override #'(font-family . sans) { \box { C } } } + + s1*8 | % 44-51 + + \repeat volta 2 + { + % Chorus + + \mark \markup { \override #'(font-family . sans) { \box { D } } } + + s1*14 | % 52-65 + } + \alternative + { + { + s1*2 | % 66-67 + } + { + s1 | % 68 + } + } + + % Outro + + s1*3 | % 69-71 + + \repeat volta 2 + { + s1*2 | % 72-73 + } + + s1 \bar "|." % 74 + + +%{ + +% \once \override TextScript #'padding = #2.0 +% s1*0^\markup { \large \bold { Moderately fast pop } } +%%Capo 3 version +%% s1*0^\markup { \large \bold { Moderately fast pop "(*** CAPO 3 ***)" } } +% s1*13 \bar "||:" % 1-13 + +%} +} + + +% +% Lead vocal +% +LeadVox = \relative c' +{ + \clef G + \override Score.SpacingSpanner #'average-spacing-wishes = ##f + + % Intro + + s1*2 | % 1-2 + + % Verse + + s1*3 | % 3-5 + s2.. fs8 | % 6 + + a4. gs8 ~ gs a4. | % 7 + cs4. gs8 ~ gs4 a8 a ~ | % 8 + a4 r r2 | % 9 + r4 fs8 b ~ b a4 a8 ~ | % 10 + a4 r r r8 <\hn ds,> | % 11 + fs4. gs8 ~ gs a4. | % 12 + b4 a gs a8 cs ~ | % 13 + cs8 b4. r4 r8 cs,8 | % 14 + gs'4. a8 ~ a b4. | % 15 + gs4. a8 ~ a cs4. | % 16 + gs4. a8 ~ a b4. | % 17 + b4 a8 b ~ b cs4 << { \voiceTwo a8 ~ } \new Voice = "v" { \voiceOne <\hn b>8 ~ } >> | % 18 + << { \voiceTwo a2 } \context Voice = "v" { \voiceOne <\hn b>8 <\hn a>4. } >> \oneVoice r4 r8 <\hn fs> | % 19 + <\hn cs'>8 <\hn b> b a b a4 a8 ~ ( | % 20 + a8 fs4. ~ fs8 e4. ) | % 21 + r2 r4 a8 a | % 22 + + % Chorus + + cs8 b a b a4 r | % 23 + r4 e'8 e ~ e e4 e8 ~ | % 24 + e4.cs8 ~ cs b4. | % 25 + r4 e8 e ~ e fs4 e8 ~ | % 26 + e4. b8 ~ b a4. | % 27 + r4 a8 a ~ a b4 cs8 ~ | % 28 + cs4. b8 ~ b a4. | % 29 + r2 r4 a8 a | % 30 + cs8 b a b a4 r | % 31 + r4 e'8 e ~ e e4 e8 ~ | % 32 + e4. cs8 ~ cs b4. | % 33 + r4 e8 e ~ e e4 fs8 ~ | % 34 + fs4 cs b8 a4 e'8 ~ | % 35 + e4 cs8 d ~ d4 cs8 a ~ | % 36 + a2 r2 | % 37 + + r4 fs8 b ~ b4 a8 a ~ | % 38 + a4 s2. | % 39 + s1 | % 40 + s1 | % 41 + s1 | % 42 + + r1 | % 43 + + % Bridge + + e'4. e8 ~ e4 e | % 44 + fs4 cs b a8 a ~ | % 45 + a4 r r8 fs a fs | % 46 + cs'8 cs cs4 b a8 b ~ | % 47 + b4 r8 a cs e cs fs ~ | % 48 + fs4. b,8 ~ b a4 a8 ~ | % 49 + a4 r r2 | % 50 + r2 r4 r8 e | % 51 + + % Chorus + + cs'8 b a b a4 r | % 52 + r4 e'8 e ~ e e4 e8 ~ | % 53 + e4.cs8 ~ cs b4. | % 54 + r4 e8 e ~ e fs4 e8 ~ | % 55 + e4. b8 ~ b a4. | % 56 + r4 a8 a ~ a b4 cs8 ~ | % 57 + cs4. b8 ~ b a4. | % 58 + r2 r4 a8 a | % 59 + cs8 b a b a4 r | % 60 + r4 e'8 e ~ e e4 e8 ~ | % 61 + e4. cs8 ~ cs b4. | % 62 + r4 e8 e ~ e e4 fs8 ~ | % 63 + fs4 cs b8 a4 e'8 ~ | % 64 + e4 cs8 d ~ d4 cs8 a ~ | % 65 + + a2 r | % 66 + r2 r4 r8 a | % 67 + + a2 \repeatTie r | % 68 + + % Outro + + b4 a8 b ~ b4 cs8 a ~ ( | % 69 + a8 fs ) s2. | % 70 + s1 | % 71 + + s1*2 | % 72-73 + + s1 | % 74 +} + +LeadVoxText = \lyricmode +{ + It’s crowd -- ed _ in wor -- ship _ to -- day, _ + and she _ slips in, _ + _ try -- ing _ to fade in -- to the fac -- _ es. + The girls’ teas -- _ ing laugh -- ter _ is car -- ry -- _ ing + far -- ther than _ they know, _ + _ _ _ far -- ther than they know. __ _ _ _ _ + + But if we are the bo -- dy, + why aren’t _ his arms _ reach -- _ ing, + why aren’t _ his hands _ heal -- _ ing, + why aren’t _ his words _ teach -- _ ing? + And if we are the bo -- dy, + why aren’t _ his feet _ go -- _ ing, + why is _ his love _ not show -- ing them _ there is _ a way. _ + There is _ a way. _ + + Je -- sus _ paid much too high a price _ + for us to pick and choose who should come, _ + and we are the bo -- _ dy _ of Christ. _ + + If we are the bo -- dy, + why aren’t _ his arms _ reach -- _ ing, + why aren’t _ his hands _ heal -- _ ing, + why aren’t _ his words _ teach -- _ ing? + And if we are the bo -- dy, + why aren’t _ his feet _ go -- _ ing, + why is _ his love _ not show -- ing them _ there is _ a way. _ + + If + + _ + + Jes -- sus is _ the way. __ _ _ +} + +LeadVoxTextB = \lyricmode +{ + A trav -- ’ler _ is far a -- way from home; _ + he sheds _ his coat _ + and qui -- et -- _ ly sinks in -- to the back _ row. + The weight of _ their judg -- men -- _ tal glanc -- es _ + tells him _ that _ his chanc -- es + are bet -- ter out _ on the road. _ _ _ _ +} + + +% +% Riffs +% +Riffs = \relative c'' +{ + % Intro + + \tiny + 4 4 ~ 8 4 8 ~ | % 1 + 8 4 8 ~ 4. | % 2 + 4 4 ~ 8 4 8 ~ | % 3 + 8 4 8 ~ 4. | % 4 + 4 4 ~ 8 4 8 ~ | % 5 + 8 4 8 ~ 4 s8 | % 6 + + s1*32 | % 7-38 + + s4 4 ~ 8 4 8 ~ | % 39 + 8 4 8 ~ 4. | % 40 + 4 4 ~ 8 4 8 ~ | % 41 + 8 4 8 ~ 4. | % 42 + + s1*27 | % 43-69 + + s4 4 ~ 8 4 8 ~ | % 70 + 8 4 8 ~ 4. | % 71 + 4 4 ~ 8 4 8 ~ | % 72 + 8 4 8 ~ 4. | % 73 + 1-\fermata | % 74 +} + + +% +% Chord names +% +Chords = \chordmode +{ +%Bah, can't we set this globally? +% \popChords + + % Intro + + fs1:m7 | % 1 + s1 | % 2 + + % Verse + + fs1:m7 | % 3 + s1*3 | % 4-6 + + fs1:m7 | % 7 + s1 | % 8 + d1:sus2 | % 9 + s1 | % 10 + b1:sus4.7 | % 11 + b1:7 | % 12 + d1:sus2 | % 13 + e4.:sus4 e s4 | % 14 + fs1:m7 | % 15 + s1 | % 16 + d1:sus2 | % 17 + s1 | % 18 + b1:sus4.7 | % 19 + b1:7 | % 20 + d1:sus2 | % 21 + e4.:sus4 e s4 | % 22 + + % Chorus + + a1 | % 23 + s1 | % 24 + e2:sus4 e | % 25 + e2:sus4 e:5^3 | % 26 + fs1:m11 | % 27 + s1 | % 28 + d1 | % 29 + s1 | % 30 + a1 | % 31 + s1 | % 32 + e2:sus4 e | % 33 + e2:sus4 e:5^3 | % 34 + fs2..:m11 e8 | % 35 + s1 | % 36 + d1:9^7 | % 37 + + s1 | % 38 + fs1:m7 | % 39 + s1 | % 40 + s1 | % 41 + s1 | % 42 + + s1 | % 43 + + % Bridge + + e2.. fs8:m | % 44 + s4. e2 d8:sus2 | % 45 + s1 | % 46 + s2.. e8 | % 47 + s2.. fs8:m | % 48 + s4. e2 d8:sus2 | % 49 + s1 | % 50 + s1 | % 51 + + % Chorus + + a1 | % 52 + s1 | % 53 + e2:sus4 e | % 54 + e2:sus4 e:5^3 | % 55 + fs1:m11 | % 56 + s1 | % 57 + d1 | % 58 + s1 | % 59 + a1 | % 60 + s1 | % 61 + e2:sus4 e | % 62 + e2:sus4 e:5^3 | % 63 + fs2..:m11 e8 | % 64 + s1 | % 65 + + d1:9^7 | % 66 + s1 | % 67 + + d1:9^7 | % 68 + + % Outro + + s1 | % 69 + fs1:m7 | % 70 + s1 | % 71 + + s1*2 | % 72-73 + + s1 | % 74 +} + + +% +% Chord rhythms +% + +% Use a RhythmicStaff on the chords instead of this? +% It almost works, but not quite. Doesn't collapse chords above to single notes... + +Rhythm = +{ + \override Staff.TimeSignature #'style = #'() + \override NoteHead #'style = #'slash + + % Intro + + c4 c c c | % 1 + c4 c c c | % 2 + + % Verse + + c4 c c c | % 3 + c4 c c c | % 4 + c4 c c c | % 5 + c4 c c c | % 6 + + c4 c c c | % 7 + c4 c c c | % 8 + c4 c c c | % 9 + c4 c c c | % 10 + c4 c c c | % 11 + c4 c c c | % 12 + c4 c c c | % 13 + c4 c8 c ~ c4 c | % 14 + c4 c c c | % 15 + c4 c c c | % 16 + c4 c c c | % 17 + c4 c c c | % 18 + c4 c c c | % 19 + c4 c c c | % 20 + c4 c c c | % 21 + c4 c8 c ~ c4 c | % 22 + + % Chorus + + c4 c c c | % 23 + c4 c c c | % 24 + c4 c c c | % 25 + c4 c c c | % 26 + c4 c c c | % 27 + c4 c c c | % 28 + c4 c c c | % 29 + c4 c c c | % 30 + c4 c c c | % 31 + c4 c c c | % 32 + c4 c c c | % 33 + c4 c c c | % 34 + c4 c c c8 c ~ | % 35 + c4 c c c | % 36 + c4 c c c | % 37 + + c4 c c c | % 38 + c4 c c c | % 39 + c4 c c c | % 40 + c4 c c c | % 41 + c4 c c c | % 42 + + c8 \repeatTie c c c c c c c | % 43 + + % Bridge + + c4 c c c8 c ~ | % 44 + c4 c8 c ~ c4 c8 c ~ | % 45 + c4 c c c | % 46 + c4 c c c8 c ~ | % 47 + c4 c c c | % 48 + c4 c8 c ~ c4 c8 c ~ | % 49 + c4 c c c | % 50 + c4 c c c | % 51 + + % Chorus + + c4 c c c | % 52 + c4 c c c | % 53 + c4 c c c | % 54 + c4 c c c | % 55 + c4 c c c | % 56 + c4 c c c | % 57 + c4 c c c | % 58 + c4 c c c | % 59 + c4 c c c | % 60 + c4 c c c | % 61 + c4 c c c | % 62 + c4 c c c | % 63 + c4 c c c8 c ~ | % 64 + c4 c c c | % 65 + + c4 c c c | % 66 + c4 c c c | % 67 + + c4 c c c | % 68 + + % Outro + + c4 c c c | % 69 + c4 c c c | % 70 + c4 c c c | % 71 + + c4 c c c | % 72 + c4 c c c | % 73 + + c1-\fermata | % 74 +} + + +Dynamics = +{ +%{ + % Intro + s4_\markup { \italic { Ac. gtr only } } s2. | % 1 + + s1*3 | % 2-4 + + s4_\markup { \italic { Band in } } s2. | % 5 +%} +} + + +\score +{ + << + \Global % The "roadmap" that everything else depends on + + \context Staff + << +% \context Staff << \new Voice = "lead" \LeadVox \new Voice \Riffs >> +% Transposed edition + \context Staff << \new Voice = "lead" \transpose fs e \LeadVox \new Voice \transpose fs e \Riffs >> + \new Lyrics \lyricsto "lead" \LeadVoxText + \new Lyrics \lyricsto "lead" \LeadVoxTextB + >> + + \new ChoirStaff + << +% \new ChordNames \Chords +%Capo 3 edition + \new ChordNames \transpose fs e \Chords + \new RhythmicStaff << \Rhythm \Dynamics >> + >> + + \set Score.skipBars = ##t + \set Score.melismaBusyProperties = #'() + >> +} + + +\paper +{ + #(define fonts (make-pango-font-tree + "Times New Roman" + "DomCasual BT" + "Luxi Mono" + (/ staffSize 20))) + +% Don't spread staves vertically across last page (default: t) +% ragged-last-bottom = ##f +% Don't spread staves vertically across the page (default: f) +% ragged-bottom = ##t +% Allow partial line for last stave (default: f) + ragged-last = ##t + +% To find out what's eating the space at the top... +% annotate-spacing = ##t +%let's try this: [It works! Huzzah!] + obsolete-page-top-space = 0 top-system-spacing #'basic-distance = #(/ obsolete-page-top-space staff-space) +} diff --git a/in-christ-alone.ly b/in-christ-alone.ly new file mode 100644 index 0000000..e386812 --- /dev/null +++ b/in-christ-alone.ly @@ -0,0 +1,289 @@ +\version "2.16.0" +\include "pop-chords.ly" +\include "english.ly" + +% Good sizes are 16, 18, & 20 +staffSize = #18 +#(set-default-paper-size "letter") +#(set-global-staff-size staffSize) +#(ly:set-option (quote no-point-and-click)) + +%{ Some useful characters: ‘ ’ “ ” – — † ‡ • … %} + +\header +{ +%Let's bump up the title size and switch to the chord font. :-) + + title = \markup { \override #'(font-family . sans) \fontsize #3.5 "In Christ Alone" } + composer = \markup { \override #'(font-family . sans) \fontsize #1.3 "Stuart Townend/Keith Getty" } +% arranger = \markup { \override #'(font-family . sans) \fontsize #1.3 "arr. " } + tagline = $(string-append "Engraved by JLH and Lilypond " (lilypond-version)) +% Let's try a chord dictionary +% subtitle = \markup { \center-column { "F#m" \fret-diagram-terse #"x;x;4;2;2;2;" } " " \center-column { "F#m/F" \fret-diagram-terse #"x;x;3;2;2;2;" } " " \center-column { "F#m/E" \fret-diagram-terse #"x;x;2;2;2;2;" } " " \center-column { "F#m/Eb" \fret-diagram-terse #"x;x;1;2;2;2;" } " " \center-column { "Em7" \fret-diagram-terse #"o;2;2;o;3;o;" } " " \center-column { "A13" \fret-diagram-terse #"x;o;2;o;2;2;" } } +} + +% Useful tweak abbreviations (hn = harmony note) + +hn = #(define-music-function (parser location arg) (ly:music?) +;; Harmony Note: Set the tweaks property of the passed in note to use a smaller font + + (set! (ly:music-property arg 'tweaks) + (acons 'font-size -3.0 (ly:music-property arg 'tweaks))) arg) + + +% +% Song's structure +% +Global = +{ + \key d \major + \override Staff.TimeSignature #'style = #'() + \time 3/4 + + % Intro + + \once \override TextScript #'padding = #2.0 + s1*0^\markup { \large \bold { Not too fast } } +% Capo 4 version +% s1*0^\markup { \hspace #0.0 \raise #2.0 \larger \bold { "Moderate pop (*** CAPO 4 ***)" } } + + s2.*17 \bar "|." % 1-17 +% \mark \markup { \override #'(font-family . sans) { \box { A } } } +} + + +% +% Lead vocal +% +LeadVox = \relative c' +{ +% \set Staff.instrument = #"Lead vox" + \clef G + \override Staff.TimeSignature #'style = #'() +%Hm. Needed anymore? +% \override Score.SpacingSpanner #'average-spacing-wishes = ##f + + r4 r8 a b8. d16 | % 0 + d4. a8 b d | % 1 + e2 fs8 e16 d | % 2 + b8 fs' e4. d8 | % 3 + d4 r8 a b8. d16 | % 4 + + d4. a8 b d | % 5 + e2 fs8 e16 d | % 6 + b8 fs' e4. d8 | % 7 + d4 r8 d fs a | % 8 + + b4. b8 a fs | % 9 + e4 r8 d d' cs | % 10 + b4. b8 a fs | % 11 + e4 r8 a, b8. d16 | % 12 + + d4. a8 b d | % 13 + e2 fs8 e16 d | % 14 + b8 fs' e4. d8 | % 15 + d4. r8 r4 | % 16 +} + +LeadVoxText = \lyricmode +{ + In Christ a -- lone my hope is found, + he is my light, my strength, my song; + This cor -- ner -- stone, this so -- lid ground, + firm thro’ the fier -- cest drought and storm. + + What heights of love, what depths of peace, + when fears are stilled, when striv -- ing cease. + + My com -- for -- ter, my all in all, + here in the love of Christ I stand. +} + +LeadVoxTextB = \lyricmode +{ + In Christ a -- lone, who took on flesh, + full -- ness of God in help -- less babe. + This gift of love and right -- eous -- ness, + scorned by the ones he came to save. + + Till on that cross, as Je -- sus died, + the wrath of God was sat -- is -- fied; + + For ev’ -- ry sin on him was laid, + here in the death of Christ I live. +} + +LeadVoxTextC = \lyricmode +{ + There in the ground his bo -- dy lay, + light of the world by dark -- ness slain; + Then burst -- ing forth in glor -- ious day + up from the grave he rose a -- gain. + + And as he stands in vic -- tor -- y + sin’s curse has lost its grip on me, + + For I am his and he is mine, + bought with the pre -- cious blood of Christ. +} + +LeadVoxTextD = \lyricmode +{ + No guilt in life, no fear in death, + this is the pow’r of Christ in me; + From life’s first cry to fi -- nal breath, + Je -- sus com -- mands my des -- tin -- y. + + No pow’r of hell, no scheme of man, + can e -- ver pluck me from his hand; + + Till he re -- turns or calls me home, + here in the pow’r of Christ I stand. +} + + +Riffs = \relative c'' +{ + \clef G +%Hm. Needed anymore? +% \override Score.SpacingSpanner #'average-spacing-wishes = ##f + + % Intro + +%{ + \tiny + \normalsize +%} +} + + +% +% Chord names +% +Chords = \chordmode +{ +%Bah, can't we set this globally? +% \popChords + + s4. d8 g4/a | % 0 + d2 g4 | % 1 + a4:sus4 a b:m | % 2 + g4 a4. g8/a | % 3 + d2 g4/a | % 4 + + d4 d/cs b:m | % 5 + g4:6 a b:m | % 6 + g4 a4. g8/a | % 7 + d2 d4/fs | % 8 + + g2 d4/a | % 9 + a2 d8/fs fs:m7 | % 10 + g2 b4:m7 | % 11 + a2 g4/a | % 12 + + d4:sus4 d g | % 13 + a4:sus4 a b:m | % 14 + g4 a4. g8/a | % 15 + d4. s | % 16 +} + + +% +% Chord rhythms +% +% Use a RhythmicStaff on the chords instead of this? +% It almost works, but not quite. Doesn't collapse chords above to single notes... +% +Rhythm = \relative c +{ +%% \set Voice.autoBeaming = ##f +%% \set Staff.instrument = #"Rhythm" + \override Staff.TimeSignature #'style = #'() + \override NoteHead #'style = #'slash + + r4 r8 c c4 | % 0 + c4 c c | % 1 + c4 c c | % 2 + c4 c4. c8 | % 3 + c4 c c | % 4 + + c4 c c | % 5 + c4 c c | % 6 + c4 c4. c8 | % 7 + c4 c c | % 8 + + c4 c c | % 9 + c4 c c8 c | % 10 + c4 c c | % 11 + c4 c c | % 12 + + c4 c c | % 13 + c4 c c | % 14 + c4 c4. c8 | % 15 + c4. r | % 16 +} + + +Dynamics = +{ +%{ + s4_\markup { \italic { snare pat. } } s2 | % 1 + s4_\markup { \italic { simile } } s2 | % 2 + s2.*19 + s4_\markup { \italic { spacey } } s2 | % 22 + s2.*5 + s4 s \< s \! | % 28 + s2.*22 + s4_\markup { \italic { Last time } } s2 | % 51 +%} +} + + +\score +{ + << + \set Score.skipBars = ##t + \set Score.melismaBusyProperties = #'() + +% \new Staff + << + \new ChordNames \Chords +%Capo 4 edition +% \new ChordNames \transpose b g \Chords + \new RhythmicStaff << \Rhythm \Dynamics >> + >> + + \new Staff + << + \Global % The "roadmap" that everything else depends on + \new Voice = "lead" \LeadVox + \new Voice \Riffs + \new Lyrics \lyricsto "lead" \LeadVoxText + \new Lyrics \lyricsto "lead" \LeadVoxTextB + \new Lyrics \lyricsto "lead" \LeadVoxTextC + \new Lyrics \lyricsto "lead" \LeadVoxTextD + >> + >> +} + + +\paper +{ + #(define fonts (make-pango-font-tree + "Times New Roman" + "DomCasual BT" + "Luxi Mono" + (/ staffSize 20))) + +% Spread staves vertically across last page (default: t) + ragged-last-bottom = ##f +% Don't spread staves vertically across the page (default: f) +% ragged-bottom = ##t +% Allow partial line for last stave (default: f) +% ragged-last = ##t + +% To find out what's eating the space at the top... +% annotate-spacing = ##t +%let's try this: [It works! Huzzah!] + obsolete-page-top-space = 0 top-system-spacing #'basic-distance = #(/ obsolete-page-top-space staff-space) +} diff --git a/in-the-secret.ly b/in-the-secret.ly new file mode 100644 index 0000000..2e38c75 --- /dev/null +++ b/in-the-secret.ly @@ -0,0 +1,516 @@ +\version "2.16.0" +\include "pop-chords.ly" +\include "english.ly" + +% Good sizes are 16, 18, & 20 +staffSize = #18 +#(set-default-paper-size "letter") +#(set-global-staff-size staffSize) +#(ly:set-option (quote no-point-and-click)) + +%{ Some useful characters: ‘ ’ “ ” – — † ‡ • … %} + +\header +{ +%Let's bump up the title size and switch to the chord font. :-) + + title = \markup { \override #'(font-family . sans) \fontsize #3.5 "In The Secret" } + composer = \markup { \override #'(font-family . sans) \fontsize #1.3 "A. Park" } + arranger = \markup { \override #'(font-family . sans) \fontsize #1.3 "arr. Ed Smart" } + tagline = $(string-append "Engraved by JLH and Lilypond " (lilypond-version)) +} + + +% +% Lead vocal +% + +LeadVox = \relative c' +{ +% \set Voice.autoBeaming = ##f +% \set Staff.instrumentName = #"Lead vox" + \clef G + \key af \major + \override Staff.TimeSignature #'style = #'() + \time 4/4 +\override Score.SpacingSpanner #'average-spacing-wishes = ##f + + % Intro + +\once \override Score.RehearsalMark #'self-alignment-X = #left +\mark \markup { \small "16th note rock" } + + R1 | % 1 + + \repeat volta 2 + { + r8 c bf16 af8. bf c16 ~ c8 af ~ | % 2 + af4 r ef'8. f16 ~ f8 ef | % 3 + } + \alternative + { + { + r8 c bf16 af8. bf f16 ~ f8 af ~ | % 4 + af1 | % 5 + } + { + r8 c bf16 af8. bf c16 ~ c8 af ~ | % 6 + } + } + + af1 | % 7 + R1 \bar "||:" % 8 + + \repeat volta 3 + { + % Verse + +\mark \markup { \override #'(font-family . sans) { \box { A } } } + + r16 af af bf ~ bf c8. r16 af af bf ~ bf c8. | % 9 + bf16 ( af8. ) ~ af4 r2 | % 10 + r16 af af bf ~ bf c8. bf f16 ~ f8 bf ( | % 11 + af2 ) r2 | % 12 + r16 af af bf ~ bf c8. r16 af af bf ~ bf c8 df16 ~ | % 13 + df16 c bf af ~ af8. df16 ~ df c bf af ~ af4 | % 14 + r16 af af bf ~ bf c8. bf c16 ~ c8 bf ( | % 15 + af2. ) r4 \bar "||" % 16 + + % Chorus + +\once \override Score.RehearsalMark #'self-alignment-X = #left +\mark \markup { \override #'(font-family . sans) { \box { B } } \hspace #1.0 \raise #2.0 \musicglyph #"scripts.segno" } + + r8 8. 16 ~ 4 | % 17 + r8 16 ~ 8. 16 ~ 8 | % 18 + r8 8. 16 ~ 8 << { \voiceOne ( | % 19 + 1 ) } \new Voice = "v" { \voiceThree s8 df8. c16 ~ c8 df ~ df2 } >> \oneVoice | % 20 + r8 8. 16 r4 | % 21 + r8 16 ~ 8. 16 ~ 8 | % 22 + r8 8. 16 r8 ( | % 23 + } + \alternative + { + { + 1 ) | % 24 + R1 | % 25 + } + { + af1^\markup { \hspace #18.0 \raise #1.0 \large \italic { D.S. } } \repeatTie \bar "||" % 26 + } + { + af1 \repeatTie | % 27 + } + } + + R1 | % 28 + R1 \bar "||" % 29 + + % Chorus (reprise) + +\mark \markup { \override #'(font-family . sans) { \box { C } } } + + r8 af af ef' ef8. bf16 ~ bf4 | % 30 + r8 af16 af ~ af ef'8. ef df16 ~ df8 c | % 31 + r8 8. 16 ~ \set Voice.autoBeaming = ##f +8 << { \voiceOne \stemDown \slurDown bf ( | % 32 + \set Voice.autoBeaming = ##t \stemNeutral \slurNeutral af1 ) } \new Voice = "v" { \voiceThree g'8 ( f8. ef8 ) ~ ef2 } >> \oneVoice | % 33 + r8 af, af ef' ef8. bf16 ~ bf4 | % 34 + r8 af16 af ~ af ef'8. ef df16 ~ df8 c | % 35 + r8 8. 16 ~ 4 | % 36 + r4 2. | % 37 + + \repeat volta 2 + { + % Chorus (outro) + +\mark \markup { \override #'(font-family . sans) { \box { D } } } + + r8 8. 16 ~ 4 | % 38 + r8 16 ~ 8. 16 ~ 8 | % 39 + r8 8. 16 ~ 8 << { \voiceOne ( | % 40 + 1 ) } \new Voice = "v" { \voiceThree s8 df8. c16 ~ c8 df ~ df2 } >> \oneVoice | % 41 + r8 8. 16 r4 | % 42 + r8 16 ~ 8. 16 ~ 8 | % 43 + r8 8. 16 r8 ( | % 44 + 1 ) | % 45 + } + +\mark \markup { \override #'(font-family . sans) { \box { E } } } + + R1 | % 46 + R1 | % 47 + R1 | % 48 + r1-\fermata \bar "|." % 49 +} + +LeadVoxText = \lyricmode +{ + Bah bah dah bah bah _ bah, _ doo doo _ doo + Bah bah dah bah bah _ bah, _ + + Bah bah dah bah bah _ bah, _ + + In the sec -- _ ret, in the qui -- _ et place, _ _ + in the still -- _ ness you are _ there. _ + In the sec -- _ ret, in the qui -- _ et ho -- _ ur I wait _ + on -- _ ly for you, _ + ’cause I want _ to know you _ more. __ _ + + I want to know you, _ I want _ to hear your _ voice, + I want to know you _ more; _ + I want to touch you, I want _ to see your _ face, + I want to know you more. _ + + _ _ + + I want to know you, _ I want _ to hear your _ voice, + I want to know you _ more; _ + I want to touch you, _ I want _ to see your _ face, + I want to know you _ MORE! + + I want to know you, _ I want _ to hear your _ voice, + I want to know you _ more; _ + I want to touch you, I want _ to see your _ face, + I want to know you more. _ +} + +LeadVoxTextB = \lyricmode +{ + _ _ _ _ _ _ _ _ _ _ _ _ + _ _ _ _ _ _ _ _ + _ _ _ _ _ _ _ _ + + I am reach -- _ ing for the high -- _ est goal, _ _ + that I might _ re -- ceive the _ prize. _ + Press -- ing on -- _ ward, push -- ing ev’ -- _ ry hin -- _ drance a -- side, _ + out _ of my way, _ +} + + +Riffs = \relative c' +{ + \clef G + \key af \major + \override Staff.TimeSignature #'style = #'() + \time 4/4 +\override Score.SpacingSpanner #'average-spacing-wishes = ##f + +%{ + \tiny + r2 r8 d f bf | % 1 + bf4. af8 ~ af4. af8 | % 2 + af4. g8 ~ g4. f8 | % 3 + f1 | % 4 + + s1*38 | % 5-42 + + \voiceOne + r2 r8 d f bf | % 43 + \oneVoice + bf4. af8 ~ af4. af8 | % 44 + af4. g8 ~ g4. f8 | % 45 + f1 | % 46 + + s1*3 | % 47-48 (plus spacer for coda) + + s2 r8 d f bf | % 49 + bf4. af8 ~ af4. af8 | % 50 + af4. g8 ~ g4. f8 | % 51 + f1 | % 52 + r2 r8 d f bf | % 53 + bf4. af8 ~ af4. af8 | % 54 + af4. g8 ~ g4. f8 | % 55 + f1 | % 56 + r1-\fermata \bar "|." % 57 +%} +} + + +% +% Chord names +% + +Chords = \chordmode +{ +%Bah, can't we set this globally? +% \popChords + + % Intro + + s1 | % 1 + + \repeat volta 2 + { + af2 ef | % 2 + f8.:m ef df8 s2 | % 3 + } + \alternative + { + { + af2 ef | % 4 + df8. af/c df8 s2 | % 5 + } + { + f2:m ef | % 6 + } + } + + df8. af/c df8 s2 | % 7 + s1 | % 8 + + % Verse + + \repeat volta 3 + { + af2 af/c | % 9 + df1 | % 10 + f2:m ef | % 11 + df1 | % 12 + af2 af/c | % 13 + df1 | % 14 + f2:m ef | % 15 + df1 | % 16 + + % Chorus + + af2 ef | % 17 + f8.:m ef df8 s2 | % 18 + af2 ef | % 19 + df8. af/c df8 s2 | % 20 + af2 ef | % 21 + f8.:m ef df8 s2 | % 22 + f2:m ef | % 23 + } + \alternative + { + { + df8. af/c df8 s2 | % 24 + s1 | % 25 + } + { + df8. af/c df8 s2 | % 26 + } + { + df8. af/c df8 s2 | % 27 + } + } + + af1 | % 28 + s1 | % 29 + + % Chorus (reprise) + + af2 c:m7 | % 30 + df1 | % 31 + f2:m ef | % 32 + df1 | % 33 + af2 c:m | % 34 + df1 | % 35 + f2:m ef | % 36 + df8. af/c df af/c df4 | % 37 + + \repeat volta 2 + { + % Chorus (outro) + + af2 ef | % 38 + f8.:m ef df8 s2 | % 39 + af2 ef | % 40 + df8. af/c df8 s2 | % 41 + af2 ef | % 42 + f8.:m ef df8 s2 | % 43 + f2:m ef | % 44 + df8. af/c df8 s2 | % 45 + } + + af2 ef | % 46 + f8.:m ef d8 s2 | % 47 + f2:m ef | % 48 + df8. af/c df8 s2 | % 49 +} + + +% +% Chord rhythms +% + +% Use a RhythmicStaff on the chords instead of this? +% It almost works, but not quite. Doesn't collapse chords above to single notes... + +StaffC = \relative c +{ +% \set Voice.autoBeaming = ##f +% \set Staff.instrumentName = #"Rhythm" + \override Staff.TimeSignature #'style = #'() + \time 4/4 + \override NoteHead #'style = #'slash + + % Intro + + c4 c c c | % 1 + + \repeat volta 2 + { + c8 c ~ c4 c8 c ~ c4 | % 2 + c8.-> c16-> ~ c8 c-> ~ c4 c | % 3 + } + \alternative + { + { + c8 c ~ c4 c8 c ~ c4 | % 4 + c8.-> c16-> ~ c8 c-> ~ c4 c | % 5 + } + { + c8 c ~ c4 c8 c ~ c4 | % 6 + } + } + + c8. c16 ~ c8 c ~ c4 c | % 7 + c4 c c c \bar "||:" % 8 + + % Verse + + \repeat volta 3 + { + c4 c c c | % 9 + c4 c c c | % 10 + c4 c c c | % 11 + c4 c c c | % 12 + c4 c c c | % 13 + c4 c c c | % 14 + c4 c c c | % 15 + c4 c c c \bar "||" % 16 + + % Chorus + + c8 c ~ c4 c8 c ~ c4 | % 17 + c8.-> c16-> ~ c8 c-> ~ c4 c | % 18 + c8 c ~ c4 c8 c ~ c4 | % 19 + c8.-> c16-> ~ c8 c-> ~ c4 c | % 20 + c8 c ~ c4 c8 c ~ c4 | % 21 + c8.-> c16-> ~ c8 c-> ~ c4 c | % 22 + c8 c ~ c4 c8 c ~ c4 | % 23 + } + \alternative + { + { + c8.-> c16-> ~ c8 c-> ~ c4 c | % 24 + c4 c c c | % 25 + } + { + c8.-> c16-> ~ c8 c-> ~ c4 c | % 26 + } + { + c8.-> c16-> ~ c8 c-> ~ c4 c | % 27 + } + } + + c1 ~ | % 28 + c1 \bar "||" % 29 + + % Chorus (reprise) + + c2 c | % 30 + c2 c | % 31 + c2 c | % 32 + c2 c | % 33 + c2 c | % 34 + c2 c | % 35 + c2 c | % 36 + c8.-> c16-> ~ c8 c-> ~ c16 c8.-> c4-> | % 37 + + \repeat volta 2 + { + % Chorus (outro) + + c8 c ~ c4 c8 c ~ c4 | % 38 + c8.-> c16-> ~ c8 c-> ~ c4 c | % 39 + c8 c ~ c4 c8 c ~ c4 | % 40 + c8.-> c16-> ~ c8 c-> ~ c4 c | % 41 + c8 c ~ c4 c8 c ~ c4 | % 42 + c8.-> c16-> ~ c8 c-> ~ c4 c | % 43 + c8 c ~ c4 c8 c ~ c4 | % 44 + c8.-> c16-> ~ c8 c-> ~ c4 c | % 45 + } + + c8 c ~ c4 c8 c ~ c4 | % 46 + c8.-> c16-> ~ c8 c-> ~ c4 c | % 47 + c8 c ~ c4 c8 c ~ c4 | % 48 + c8.-> c16-> ~ c8 c-> ~ c2-\fermata \bar "|." % 49 +} + + +Dynamics = +{ + s4_\markup { \italic { drum fill } } s2. | % 1 + s4_\ff s2. | % 2 + s1*5 | % 3-7 + s4_\markup { \italic { drum AND BASS fill } } s2. | % 8 + s4_\mp s2. | % 9 + s1*6 | % 10-15 + s4 s s \< s | % 16 + s4_\ff s2. | % 17 + s1*7 | % 18-24 + s4_\markup { \italic { drum AND BASS fill } } s2. | % 25 + s1*2 | % 26-27 + s4 s s \> s | % 28 + s1 | % 29 + s4_\mf s2. | % 30 + s1*6 | % 31-36 + s4_\f s s \< s | % 37 + s4_\ff s2. | % 38 +%{ + s1*27 | % 1-27 + s4 s \< s \! s | % 28 + s4_\markup { \italic { add backbeat } } s2. | % 29 + s1*18 | % 30-47 + s4 s \< s \! s | % 48 + s1*8 | % 49-55 + s2 s_\markup { \italic { rit. } } | % 56 +%} +} + + +\score +{ + << + << +% \new Staff = leadStaff { \new Voice = "lead" \LeadVox } + \new Staff = leadStaff { << \new Voice = "lead" \LeadVox \new Voice = "riffs" \Riffs >> } + \new Lyrics \lyricsto "lead" \LeadVoxText + \new Lyrics \lyricsto "lead" \LeadVoxTextB + >> + + \new ChoirStaff = "Rhythm" + << + \new ChordNames = "chords" \Chords + \new RhythmicStaff = "chordRhythm" << \StaffC \Dynamics >> + >> + + \set Score.skipBars = ##t + \set Score.melismaBusyProperties = #'() + >> +} + + +\paper +{ + #(define fonts (make-pango-font-tree + "Times New Roman" + "DomCasual BT" + "Luxi Mono" + (/ staffSize 20))) + +% Don't spread staves vertically across last page (default: t) +% ragged-last-bottom = ##f +% Don't spread staves vertically across the page (default: f) +% ragged-bottom = ##t +% Allow partial line for last stave (default: f) + ragged-last = ##t + +% To find out what's eating the space at the top... +% annotate-spacing = ##t +%let's try this: [It works! Huzzah!] + obsolete-page-top-space = 0 top-system-spacing #'basic-distance = #(/ obsolete-page-top-space staff-space) +} diff --git a/infant-holy-infant-lowly.ly b/infant-holy-infant-lowly.ly new file mode 100644 index 0000000..701f034 --- /dev/null +++ b/infant-holy-infant-lowly.ly @@ -0,0 +1,493 @@ +\version "2.16.0" +\include "pop-chords.ly" +\include "english.ly" + +% Good sizes are 16, 18, & 20 +staffSize = #20 +#(set-default-paper-size "letter") +#(set-global-staff-size staffSize) +#(ly:set-option (quote no-point-and-click)) + +%{ Some useful characters: ‘ ’ “ ” – — † ‡ • … %} + +\header +{ +%Let's bump up the title size and switch to the chord font. :-) + + title = \markup { \override #'(font-family . sans) \fontsize #3.5 "Infant Holy, Infant Lowly" } +% composer = \markup { \override #'(font-family . sans) \fontsize #1.3 "" } + arranger = \markup { \override #'(font-family . sans) \fontsize #1.3 "arr. Ed Smart" } + tagline = $(string-append "Engraved by JLH and Lilypond " (lilypond-version)) +% Let's try a chord dictionary +% subtitle = \markup { \center-align { "F#m" \fret-diagram-terse #"x;x;4;2;2;2;" } " " \center-align { "F#m/F" \fret-diagram-terse #"x;x;3;2;2;2;" } " " \center-align { "F#m/E" \fret-diagram-terse #"x;x;2;2;2;2;" } " " \center-align { "F#m/Eb" \fret-diagram-terse #"x;x;1;2;2;2;" } " " \center-align { "Em7" \fret-diagram-terse #"o;2;2;o;3;o;" } " " \center-align { "A13" \fret-diagram-terse #"x;o;2;o;2;2;" } } +} + +% Useful tweak abbreviations (hn = harmony note) + +hn = #(define-music-function (parser location arg) (ly:music?) +;; Harmony Note: Set the tweaks property of the passed in note to use a smaller font + + (set! (ly:music-property arg 'tweaks) + (acons 'font-size -3.0 (ly:music-property arg 'tweaks))) arg) + + +% +% Song's structure +% +Global = +{ + \key g \major + \override Staff.TimeSignature #'style = #'() + \time 3/4 + +% \once \override TextScript #'padding = #2.0 +% s1*0^\markup { \large \bold { Samba } } +% Capo 4 version +% s1*0^\markup { \hspace #0.0 \raise #2.0 \bigger \bold { "Moderate pop (*** CAPO 4 ***)" } } + + % Intro + + \partial 4*1 s4 | % 0 + s2.*5 \bar "||" % 1-5 + + % Verse/Refrain + + \mark \markup { \override #'(font-family . sans) { \box { A } } } + + s2.*8 \bar "||" % 6-13 + + s2.*6 \bar "||" % 14-19 + + % Midtro + + s2.*6 \bar "||" % 20-25 + + % Verse/Refrain + + \mark \markup { \override #'(font-family . sans) { \box { B } } } + + s2.*8 \bar "||" % 26-33 + + s2.*6 \bar "||" % 34-39 + + % Solo + + \mark \markup { \override #'(font-family . sans) { \box { C } } } + + s2.*8 \bar "||" % 40-47 + + % Refrain + + \mark \markup { \override #'(font-family . sans) { \box { D } } } + + s2.*7 \bar "||" % 48-54 + + % Outro + + s2.*6 \bar "|." % 55-60 +} + + +% +% Lead vocal +% +LeadVox = \relative c' +{ +% \set Staff.instrument = #"Lead vox" + \clef G + \override Staff.TimeSignature #'style = #'() +%Hm. Needed anymore? +% \override Score.SpacingSpanner #'average-spacing-wishes = ##f + \set tupletSpannerDuration = #(ly:make-moment 1 4) + + % Intro + +%\partial 4*1 + s4 | % 0 + s2.*4 | % 1-4 + s2 d8 d | % 5 + + % Verse/Refrain + + g4 g fs8 g | % 6 + a4 a b8 c | % 7 + d4 c b8 a | % 8 + g2 d8 d | % 9 + g4 g fs8 g | % 10 + a4 a b8 c | % 11 + d4 c b8 a | % 12 + g2 g8 fs | % 13 + + e8. e16 ~ e4 a8 g | % 14 + fs8. fs16 ~ fs4 b8 a | % 15 + g8. g16 ~ g4 c8 b | % 16 + a8. a16 ~ a4 b8 c | % 17 + d4 c b8 a | % 18 + g2 s4 | % 19 + + % Midtro + + s2.*5 | % 20-24 + s2 d8 d | % 25 + + % Verse/Refrain + + g4 g fs8 g | % 26 + a4 a b8 c | % 27 + d4 c b8 a | % 28 + g2 d8 d | % 29 + g4 g fs8 g | % 30 + a4 a b8 c | % 31 + d4 c b8 a | % 32 + g2 g8 fs | % 33 + + e8. e16 ~ e4 a8 g | % 34 + fs8. fs16 ~ fs4 b8 a | % 35 + g8. g16 ~ g4 c8 b | % 36 + a8. a16 ~ a4 b8 c | % 37 + d4 c b8 a | % 38 + g2 s4 | % 39 + + % Solo + + r2. | % 40 + r2. | % 41 + r2. | % 42 + r2. | % 43 + r2. | % 44 + r2. | % 45 + r2. | % 46 + r2 g8 fs | % 47 + + % Refrain + + e8. e16 ~ e4 a8 g | % 34 + fs8. fs16 ~ fs4 b8 a | % 35 + g8. g16 ~ g4 c8 b | % 36 + a8. a16 ~ a2 ~ | % 37 + a2-\fermata b8 c | % 52 + d4 c b8 a | % 53 + g2 s4 | % 54 + + % Outro + + s2.*6 | % 55-60 +} + + +LeadVoxText = \lyricmode +{ + In -- fant ho -- ly, in -- fant low -- ly, for his bed a cat -- tle stall, + Ox -- en low -- ing, lit -- tle know -- ing Christ the babe is Lord of all. + Swift are wing -- ing _ an -- gels sing -- ing, _ + No -- els ring -- ing, _ tid -- ings bring -- ing, _ + Christ the babe is Lord of all. + + Flocks were sleep -- ing, shep -- herds keep -- ing vi -- gil ’til the morn -- ing new. + Saw the glo -- ry, heard the sto -- ry, ti -- dings of a gos -- pel true. + Thus re -- joic -- ing, _ free from sor -- row, _ + prais -- es voic -- ing, _ greet the mor -- row, _ + Christ the babe was born for you. + + Thus re -- joic -- ing, _ free from sor -- row, _ + prais -- es voic -- ing, _ greet the mor -- row, __ _ _ + Christ the babe was born for you. +} + + +Riffs = \relative c' +{ +% \clef G +%Hm. Needed anymore? +% \override Score.SpacingSpanner #'average-spacing-wishes = ##f + \set tupletSpannerDuration = #(ly:make-moment 1 4) + + % Intro + + \tiny + %\partial 1*4 + 8 | % 0 + 8. 16 ~ 4 8 | % 1 + 8. 16 ~ 4 8 | % 2 + 8. 16 ~ 4 8 | % 3 + 8. 16 ~ 2 ~ | % 4 + 2-\fermata s4 | % 5 + + s2.*13 | % 6-18 + + s2 8 | % 19 + 8. 16 ~ 4 8 | % 20 + 8. 16 ~ 4 8 | % 21 + 8. 16 ~ 4 8 | % 22 + 8. 16 ~ 4 b'8 c | % 23 + d4 c b8 a | % 24 + g2 s4 | % 25 + + s2.*28 | % 26-53 + + s2 8 | % 54 + 8. 16 ~ 4 8 | % 55 + 8. 16 ~ 4 8 | % 56 + 8. 16 ~ 4 8 | % 57 + 8. 16 ~ 4 b'8 c | % 58 + d4 c b8 a | % 59 + g2.\fermata | % 60 + \normalsize +} + + +% +% Chord names +% +Chords = \chordmode +{ + % Intro + +%\partial 4*1 + s4 | % 0 + c2.:5.9 | % 1 + d2.:5.9 | % 2 + e2.:m7 | % 3 + d2.:5.9/fs | % 4 + d2. | % 5 + + % Verse/Refrain + + g2. | % 6 + d2. | % 7 + c2:5.9 d4 | % 8 + g2 d4:7sus4 | % 9 + g2. | % 10 + d2.:5.9/fs | % 11 + a2:m7 d4 | % 12 + g2. | % 13 + + c2.:5.9 | % 14 + d2.:5.9 | % 15 + e2.:m7 | % 16 + d2.:5.9/fs | % 17 + a2:m7 g8/d d | % 18 + g2. | % 19 + + % Midtro + + c2.:5.9 | % 20 + d2.:5.9 | % 21 + e2.:m7 | % 22 + d2.:5.9/fs | % 23 + a2:m7 g8/d d | % 24 + g2 d4:7sus4 | % 25 + + % Verse/Refrain + + g2. | % 26 + d2. | % 27 + c2:5.9 d4 | % 28 + g2 d4/fs | % 29 + e2:m7 b4:m7 | % 30 + a2:m7 d4 | % 31 + c2:5.9/e d4:5.9/fs | % 32 + g2. | % 33 + + c2.:5.9 | % 34 + d2.:5.9 | % 35 + e2.:m7 | % 36 + d2.:5.9/fs | % 37 + a2:m7 g8/d d | % 38 + g2 d4:7sus4 | % 39 + + % Solo + + g2. | % 40 + d2. | % 41 + c2:5.9 d4 | % 42 + g2 d4/fs | % 43 + e2:m7 b4:m7 | % 44 + a2:m7 d4 | % 45 + c2:5.9/e d4:5.9/fs | % 46 + g2. | % 47 + + % Refrain + + c2.:5.9 | % 48 + d2.:5.9 | % 49 + c2.:5.9/e | % 50 + f2.:maj7 | % 51 + d2:sus4 b4:m7 | % 52 + a2:m7 g8/d d | % 53 + g2. | % 54 + + % Outro + + c2.:5.9 | % 55 + d2.:5.9 | % 56 + c2.:5.9/e | % 57 + f2:5.9 d4 | % 58 + a2:m7 g8/d d | % 59 + g2. | % 60 +} + + +% +% Chord rhythms +% +% Use a RhythmicStaff on the chords instead of this? +% It almost works, but not quite. Doesn't collapse chords above to single notes... +% +Rhythm = \relative c +{ +%% \set Voice.autoBeaming = ##f +%% \set Staff.instrument = #"Rhythm" + \override Staff.TimeSignature #'style = #'() + \override NoteHead #'style = #'slash + +%Not small enough... + \teeny +% \magnify #0.3 + + % Intro + + \partial 4*1 + s4 | % 0 + c4 c c | % 1 + c4 c c | % 2 + c4 c c | % 3 + c4 c c | % 4 + c2-\fermata c4 | % 5 + + % Verse/Refrain + + c4 c c | % 6 + c4 c c | % 7 + c4 c c | % 8 + c4 c c | % 9 + c4 c c | % 10 + c4 c c | % 11 + c4 c c | % 12 + c4 c c | % 13 + + c4 c c | % 14 + c4 c c | % 15 + c4 c c | % 16 + c4 c c | % 17 + c4 c c8 c | % 18 + c4 c c | % 19 + + % Midtro + + c4 c c | % 20 + c4 c c | % 21 + c4 c c | % 22 + c4 c c | % 23 + c4 c c8 c | % 24 + c4 c c | % 25 + + % Verse/Refrain + + c4 c c | % 26 + c4 c c | % 27 + c4 c c | % 28 + c4 c c | % 29 + c4 c c | % 30 + c4 c c | % 31 + c4 c c | % 32 + c4 c c | % 33 + + c4 c c | % 34 + c4 c c | % 35 + c4 c c | % 36 + c4 c c | % 37 + c4 c c8 c | % 38 + c4 c c | % 39 + + % Solo + + c4 c c | % 40 + c4 c c | % 41 + c4 c c | % 42 + c4 c c | % 43 + c4 c c | % 44 + c4 c c | % 45 + c4 c c | % 46 + c4 c c | % 47 + + % Refrain + + c4 c c | % 48 + c4 c c | % 49 + c4 c c | % 50 + c4 c c | % 51 + c2-\fermata c4 | % 52 + c4 c c8 c | % 53 + c4 c c | % 54 + + % Outro + + c4 c c | % 55 + c4 c c | % 56 + c4 c c | % 57 + c4 c c | % 58 + c4 c c8 c | % 59 + c2.-\fermata | % 60 +} + + +Dynamics = +{ +% s1*4 | % 1-4 +% s4_\markup { \italic { 1st X: Melody, 2nd X+: Solos } } s2. | % 5 +% s1*38 | % 1-38 +% s4_\markup { \bold \italic { Double Chorus 2nd X } } s2. | % 39 +% s1*7 | % 40-46 +% s4_\markup { \bold { Tutti } } s2. | % 47 + s4 | % 0 + s2.*39 | % 1-39 + s4_\markup { \large \bold \italic { Solo } } s2 | % 40 +} + + +\score +{ + << + \set Score.skipBars = ##t + \set Score.melismaBusyProperties = #'() + +% \new Staff + << + \new ChordNames \Chords +%Capo 4 edition +% \new ChordNames \transpose b g \Chords + \new RhythmicStaff << \Rhythm \Dynamics >> + >> + + \new Staff + << + \Global % The "roadmap" that everything else depends on + \new Voice = "lead" \LeadVox + \new Voice \Riffs + \new Lyrics \lyricsto "lead" \LeadVoxText + >> + >> +} + + +\paper +{ + #(define fonts (make-pango-font-tree + "Times New Roman" + "DomCasual BT" + "Luxi Mono" + (/ staffSize 20))) + +% Spread staves vertically across last page (default: t) + ragged-last-bottom = ##f +% Don't spread staves vertically across the page (default: f) +% ragged-bottom = ##t +% Allow partial line for last stave (default: f) + ragged-last = ##t + +% To find out what's eating the space at the top... +% annotate-spacing = ##t +%let's try this: [It works! Huzzah!] + obsolete-page-top-space = 0 top-system-spacing #'basic-distance = #(/ obsolete-page-top-space staff-space) +} diff --git a/jesus-all-for-jesus.ly b/jesus-all-for-jesus.ly new file mode 100755 index 0000000..fe8605a --- /dev/null +++ b/jesus-all-for-jesus.ly @@ -0,0 +1,601 @@ +\version "2.16.0" +\include "pop-chords.ly" +\include "english.ly" + +% Good sizes are 16, 18, & 20 +staffSize = #18 +#(set-default-paper-size "letter") +#(set-global-staff-size staffSize) +#(ly:set-option (quote no-point-and-click)) + +%{ Some useful characters: ‘ ’ “ ” – — † ‡ • … %} + +\header +{ +%Let's bump up the title size and switch to the chord font. :-) + + title = \markup { \override #'(font-family . sans) \fontsize #3.5 "Jesus, All For Jesus" } +% composer = \markup { \override #'(font-family . sans) "" } + arranger = \markup { \override #'(font-family . sans) \fontsize #1.3 "arr. Ed Smart" } + tagline = $(string-append "Engraved by JLH and Lilypond " (lilypond-version)) +} + + +% Useful tweak abbreviations (hn = harmony note) + +hn = #(define-music-function (parser location arg) (ly:music?) +;; Harmony Note: Set the tweaks property of the passed in note to use a smaller font + + (set! (ly:music-property arg 'tweaks) + (acons 'font-size -3.5 (ly:music-property arg 'tweaks))) arg) + + +% Various melody lines + +melodyLineA = +{ + fs4. e8 fs2 ~ | + fs2 fs4 a | + b4. a8 a2 ~ | + a2 b4 a | + e4. d8 e2 ~ | + e4. e8 fs e d cs | +} + +melodyLineB = +{ +% 4. + 8 2 ~ | + 4 8 ~ 4 | + 4. 8 2 ~ | + 2 4 | + 4. 8 2 ~ | +} + +melodyLineBRptA = +{ + 4. 8 + << { \voiceOne fs8 ( e ) ( a ) } \context Voice = vb { \voiceTwo <\hn cs \hn a>4 s4 } >> \oneVoice | + b1 ( | + a2 ) r | +} + +melodyLineBRptB = +{ +% 4. \repeatTie + 8 + << { \voiceOne fs8 ( e ) ( ) } \context Voice = vb { \voiceTwo \tiny 4 s4 } >> \oneVoice | +} + +melodyLineC = +{ + 4. 8 2 ~ | + 2 4 | + 4. 8 2 ~ | + 2 4 | + 4. 8 2 ~ | +% 4. 8 +% << { \voiceOne fs ( e ) % Partial measure... +} + + +% +% Lead vocal +% + +LeadVox = \relative c' +{ +% \set Voice.autoBeaming = ##f +% \set Staff.instrument = #"Lead vox" + \clef G + \key d \major + \override Staff.TimeSignature #'style = #'() + \time 4/4 +\override Score.SpacingSpanner #'average-spacing-wishes = ##f + + % Intro + + \repeat volta 2 + { + R1 | % 1 + R1 | % 2 + } + + s1*8 | % 3-10 + + % A section + + \repeat volta 2 + { +\mark \markup { \override #'(font-family . sans) { \box { A } } } + + fs4. ( e8 ) fs2 ~ | % 11 + fs2 fs4 a | % 12 + b4. ( a8 ) a2 ~ | % 13 + a2 b4 a | % 14 + e4. d8 e2 ~ | % 15 + } + \alternative + { + { + e4. e8 fs e d a | % 16 + b1 ( | % 17 + a2 ) r2 | % 18 + } + { + e'4. \repeatTie e8 fs e d cs | % 19 + } + } + + d1 ~ | % 20 + d2 r | % 21 + + \repeat volta 2 + { +\mark \markup { \override #'(font-family . sans) { \box { B } } } + + 4. \melodyLineB % 22-26 + } + \alternative + { + { + \melodyLineBRptA % 27-29 + } + { + 4. \repeatTie \melodyLineBRptB % 30 + } + } + + 1 | % 31 + r2 8 ( ) 4 \bar "||" % 32 + + % B section + +\once \override Score.RehearsalMark #'self-alignment-X = #left +\mark \markup { \override #'(font-family . sans) { \box { C } } \hspace #1.0 \raise #2.0 \musicglyph #"scripts.segno" } + + 4. 8 2 ~ | % 33 + 4 8 ( a ) 4 | % 34 + 4. 8 2 ~ | % 35 + 4 r 8 ( ) 4 | % 36 + 4. 8 2 ~ | % 37 + 4 8 ( ) ( ) | % 38 + 2. 4 | % 39 + 1 \bar "||" % 40 + + % A section + +\mark \markup { \override #'(font-family . sans) { \box { D } } } + + \melodyLineC % 41-45 + 4. \melodyLineBRptB % 46 +\once \override Score.RehearsalMark #'self-alignment-X = #right +\mark \markup { \italic { to Coda } \hspace #1.0 \musicglyph #"scripts.coda" } + 1 ~ | % 47 + 2 r \bar "||" % 48 + + % Midtro + +\mark \markup { \override #'(font-family . sans) { \box { E } } } + + s1*8 \bar "||" % 49-56 + + % A section + +\mark \markup { \override #'(font-family . sans) { \box { F } } } + + \melodyLineC % 57-61 + \melodyLineBRptA \bar "||" % 62-64 + +\mark \markup { \override #'(font-family . sans) { \box { G } } } + + 4. \melodyLineB % 65-69 + 4. \melodyLineBRptB % 70 + 1 | % 71 + r2 8 ( ) 4 \bar "||" % 72 + +\once \override Score.RehearsalMark #'self-alignment-X = #right +\mark \markup { \italic { D.S. al Coda } } + + % Coda + +%\stopStaff s1 \bar "" \startStaff % That removed the spurious floating bar line from line break +\stopStaff s1 \startStaff +\set Score.currentBarNumber = #73 + +\once \override Score.RehearsalMark #'self-alignment-X = #left +\mark \markup { { \musicglyph #"scripts.coda" } "Coda" } + + 1 ~ | % 73 + 2 r \bar "||" % 74 + s1*7 \bar "|." % 75-81 +} + +LeadVoxText = \lyricmode +{ + Je -- _ sus, _ all for Je -- _ sus, _ + all I am and have, _ and e -- ver hope to be, _ + + _ and e -- ver hope to be. _ + + All of my _ am -- bi -- tions, _ hopes, and plans, _ + I sur -- ren -- der these, _ in -- to _ your _ hands, _ + + _ in -- to _ your _ hands. + + For _ it’s on -- ly in _ your will _ that I am free, _ + For _ it’s on -- ly in _ you will _ that _ I am free. + + Je -- _ sus, _ all for Je -- _ sus, _ + all I am and have, _ and e -- ver hope to be. _ + + Je -- _ sus, _ all for Je -- _ sus, _ + all I am and have, _ and e -- ver hope to be. _ + + All of my _ am -- bi -- tions, _ hopes, and plans, _ + I sur -- ren -- der these, _ in -- to _ your _ hands. + + For _ it’s + + be. _ +} + + +% +% Riffs +% +Riffs = \relative c' +{ + \clef G + \key d \major + \override Staff.TimeSignature #'style = #'() + \time 4/4 +\override Score.SpacingSpanner #'average-spacing-wishes = ##f + + \tiny + + s1*2 | % 1-2 + \melodyLineA + d1 ~ | % 9 + d2 r | % 10 + + s1*38 | % 11-48 + \melodyLineA + d1 ~ | % 55 + d2 r | % 56 + + s1*19 | % 57-74 (+1 for coda) + \melodyLineA + d1^\fermata | % 81 + + \normalsize +} + + + +% +% Chord names +% + +Chords = \chordmode +{ +%Bah, can't we set this globally? +% \popChords + + % Intro + + \repeat volta 2 + { + d4. a8/d d2 | % 1 + s1 | % 2 + } + + d4. a8/d d2 | % 3 + s1 | % 4 + g2/d d | % 5 + s1 | % 6 + a4. a8:sus4 a2 | % 7 + s1 | % 8 + d1 | % 9 + s2 d:sus4 | % 10 + + % A section + + \repeat volta 2 + { + d4. a8/d d2 | % 11 + s1 | % 12 + g2/d d | % 13 + s1 | % 14 + a4. a8:sus4 a2 | % 15 + } + \alternative + { + { + s1 | % 16 + b1:m | % 17 + a1 | % 18 + } + { + a1 | % 19 + } + } + + d1 | % 20 + s2 g/a | % 21 + + \repeat volta 2 + { + d4. a8/d d2 | % 22 + s1 | % 23 + g2 d | % 24 + s1 | % 25 + a4. a8:sus4 a2 | % 26 + } + \alternative + { + { + s1 | % 27 + b1:m | % 28 + a1 | % 29 + } + { + a1 | % 30 + } + } + + d1 | % 31 + s1 | % 32 + + % B section + + g1 | % 33 + s1 | % 34 + d1 | % 35 + s1 | % 36 + g1 | % 37 + s1 | % 38 + d1 | % 39 + a1 | % 40 + + d4. a8/d d2 | % 41 + s1 | % 42 + g2 d | % 43 + s1 | % 44 + a4. a8:sus4 a2 | % 45 + s1 | % 46 + d1 | % 47 + s2 g/a | % 48 + + d4. a8/d d2 | % 49 + s1 | % 50 + g2/d d | % 51 + s1 | % 52 + a4. a8:sus4 a2 | % 53 + s1 | % 54 + d1 | % 55 + d2 d:sus4 | % 56 + + d4. a8/d d2 | % 57 + s1 | % 58 + g2 d | % 59 + s1 | % 60 + a4. a8:sus4 a2 | % 61 + s1 | % 62 + b1:m | % 63 + a1 | % 64 + + d4. a8/d d2 | % 65 + s1 | % 66 + g2 d | % 67 + s1 | % 68 + a4. a8:sus4 a2 | % 69 + s1 | % 70 + d1 | % 71 + s1 | % 72 + + % Coda + +s1 + + d1 | % 73 + s2 g:sus2/a | % 74 + d4. a8/d d2 | % 75 + s1 | % 76 + g2/d d | % 77 + s1 | % 78 + a4. a8:sus4 a2 | % 79 + s1 | % 80 + d1 | % 81 +} + + +% +% Chord rhythms +% + +% Use a RhythmicStaff on the chords instead of this? +% It almost works, but not quite. Doesn't collapse chords above to single notes... + +StaffC = \relative c +{ +% \set Voice.autoBeaming = ##f +% \set Staff.instrument = #"Rhythm" + \override Staff.TimeSignature #'style = #'() + \time 4/4 + \override NoteHead #'style = #'slash + + % Intro + + \repeat volta 2 + { + c8. c16 ~ c8 c c4 c | % 1 + c4 c c c | % 2 + } + + c8. c16 ~ c8 c c4 c | % 3 + c4 c c c | % 4 + c4 c c c | % 5 + c4 c c c | % 6 + c8. c16 ~ c8 c c4 c | % 7 + c4 c c c | % 8 + c4 c c c | % 9 + c4 c c c | % 10 + + % A section + + \repeat volta 2 + { + c8. c16 ~ c8 c c4 c | % 11 + c4 c c c | % 12 + c4 c c c | % 13 + c4 c c c | % 14 + c8. c16 ~ c8 c c4 c | % 15 + } + \alternative + { + { + c4 c c c | % 16 + c4 c c c | % 17 + c4 c c c | % 18 + } + { + c4 c c c | % 19 + } + } + + c4 c c c | % 20 + c4 c c c | % 21 + + \repeat volta 2 + { + c8. c16 ~ c8 c c4 c | % 22 + c4 c c c | % 23 + c4 c c c | % 24 + c4 c c c | % 25 + c8. c16 ~ c8 c c4 c | % 26 + } + \alternative + { + { + c4 c c c | % 27 + c4 c c c | % 28 + c4 c c c | % 29 + } + { + c4 c c c | % 30 + } + } + + c4 c c c | % 31 + c4 c c c \bar "||" % 32 + + % B section + + c4 c c c | % 33 + c4 c c c | % 34 + c4 c c c | % 35 + c4 c c c | % 36 + c4 c c c | % 37 + c4 c c c | % 38 + c4 c c c | % 39 + c4 c c c \bar "||" % 40 + + c8. c16 ~ c8 c c4 c | % 41 + c4 c c c | % 42 + c4 c c c | % 43 + c4 c c c | % 44 + c8. c16 ~ c8 c c4 c | % 45 + c4 c c c | % 46 + c4 c c c | % 47 + c4 c c c \bar "||" % 48 + + c8. c16 ~ c8 c c4 c | % 49 + c4 c c c | % 50 + c4 c c c | % 51 + c4 c c c | % 52 + c8. c16 ~ c8 c c4 c | % 53 + c4 c c c | % 54 + c4 c c c | % 55 + c4 c c c \bar "||" % 56 + + c8. c16 ~ c8 c c4 c | % 57 + c4 c c c | % 58 + c4 c c c | % 59 + c4 c c c | % 60 + c8. c16 ~ c8 c c4 c | % 61 + c4 c c c | % 62 + c4 c c c | % 63 + c4 c c c \bar "||" % 64 + + c8. c16 ~ c8 c c4 c | % 65 + c4 c c c | % 66 + c4 c c c | % 67 + c4 c c c | % 68 + c8. c16 ~ c8 c c4 c | % 69 + c4 c c c | % 70 + c4 c c c | % 71 + c4 c c c \bar "||" % 72 + + % Coda + +\stopStaff s1 \startStaff | +\set Score.currentBarNumber = #73 + + c4 c c c | % 73 + c4 c c c \bar "||" % 74 + + c8. c16 ~ c8 c c4 c | % 75 + c4 c c c | % 76 + c4 c c c | % 77 + c4 c c c | % 78 + c8. c16 ~ c8 c c4 c | % 79 + c4 c c c | % 80 + c1^\fermata \bar "|." % 81 +} + + +Dynamics = +{ + s1*80 | % 1-79 (+1 for coda) + s2 s4_\markup { \italic { rit. } } s | % 80 + s1 | % 81 +} + + +\score +{ + << + << +% \new Staff = leadStaff { \new Voice = "lead" \LeadVox } + \new Staff = leadStaff { << \new Voice = "lead" \LeadVox \new Voice = "riffs" \Riffs >> } + \new Lyrics \lyricsto "lead" \LeadVoxText + >> + + \new ChoirStaff = "Rhythm" + << + \new ChordNames = "chords" \Chords + \new RhythmicStaff = "chordRhythm" << \StaffC \Dynamics >> + >> + + \set Score.skipBars = ##t + \set Score.melismaBusyProperties = #'() + >> + + \layout + { +% \context { \Staff \RemoveEmptyStaves } +% ragged-last-bottom = ##t + ragged-last = ##t + } +} + + +\paper +{ + #(define fonts (make-pango-font-tree + "Times New Roman" + "DomCasual BT" + "Luxi Mono" + (/ staffSize 20))) +} diff --git a/jesus-draw-me-close.ly b/jesus-draw-me-close.ly new file mode 100755 index 0000000..e4ab670 --- /dev/null +++ b/jesus-draw-me-close.ly @@ -0,0 +1,391 @@ +\version "2.16.0" +\include "pop-chords.ly" +\include "english.ly" + +staffSize = #20 % or 16 or 18 +#(set-default-paper-size "letter") +#(set-global-staff-size staffSize) +#(ly:set-option (quote no-point-and-click)) + +\header +{ +%Let's bump up the title size and switch to the chord font. :-) + + title = \markup { \override #'(font-family . sans) \fontsize #3.5 "Jesus, Draw Me Close" } + composer = \markup { \override #'(font-family . sans) \fontsize #1.3 "Rick Founds" } + arranger = \markup { \override #'(font-family . sans) \fontsize #1.3 "arr. Ed Smart" } + tagline = "Engraved by JLH and Lilypond 2.10.29" +} + + +% +% Lead vocal +% + +LeadVox = \relative c'' +{ +% \set Voice.autoBeaming = ##f +% \set Staff.instrumentName = #"Lead vox" + \clef G + \key f \major + \override Staff.TimeSignature #'style = #'() + \time 4/4 +\override Score.SpacingSpanner #'average-spacing-wishes = ##f + +% \set Score.markFormatter = #format-mark-box-letters + + % Intro + +\tiny + a4 f8 [ g ] ~ g4 e8 [ f ] ~ | % 1 + f1 | % 2 + bf4 g8 [ a ] ~ a4 f8 [ g ] ~ | % 3 + g2. r8 c, | % 4 + d4 d8 [ e ] ~ e4 e8 [ f ] ~ | % 5 + f8 [ a ] ~ a4 g f8 [ f ] ~ | % 6 + f1 ~ | % 7 + f2 r | % 8 +\normalsize + + % Verses 1-2 + + \repeat volta 2 + { +\mark \markup { \override #'(font-family . sans) \box { A } } + + a4 f8 [ g ] ~ g4 e8 [ f ] ~ | % 9 + f2. r4 | % 10 + bf4 g8 [ a ] ~ a4 f8 [ g ] ~ | % 11 + g1 | % 12 + a4 f8 [ g ] ~ g4 e8 [ f ] ~ | % 13 + f8 [ d ] ~ d4 bf'4 a8 [ a ]( | % 14 + g1 ) ~ | % 15 + g2 r | % 16 + a4 f8 [ g ] ~ g4 e8 [ f ] ~ | % 17 + f2. r4 | % 18 + bf4 g8 [ a ] ~ a4 f8 [ g ] ~ | % 19 + g2. r8 c, | % 20 + d4 d8 [ e ] ~ e4 e8 [ f ] ~ | % 21 + f8 [ a ] ~ a4 g f8 [ f ] ~ | % 22 + } + \alternative + { + { + f1 | % 23 + R1 | % 24 + } + { + f1 \repeatTie | % 25 + } + } + + R1 \bar "||" % 26 + + % Verse 3 + + \key g \major +\mark \markup { \override #'(font-family . sans) \box { B } } + + b4 g8 [ a ] ~ a4 fs8 [ g ] ~ | % 27 + g2. r4 | % 28 + c4 a8 [ b ] ~ b4 g8 [ a ] ~ | % 29 + a1 | % 30 + b4 g8 [ a ] ~ a4 fs8 [ g ] ~ | % 31 + g8 [ e ] ~ e4 c'4 b8 [ b ]( | % 32 + a1 ) ~ | % 33 + a2 r | % 34 + b4 g8 [ a ] ~ a4 fs8 [ g ] ~ | % 35 + g2. r4 | % 36 + c4 a8 [ b ] ~ b4 g8 [ a ] ~ | % 37 + a2. r8 d, | % 38 + e4 e8 [ fs ] ~ fs4 fs8 [ g ] ~ | % 39 + g8 [ b ] ~ b4 a g8 [ g ] ~ | % 40 + g1 | % 41 + r2 r4. d8 | % 42 + e4 e8 [ fs ] ~ fs4 fs8 [ g ] ~ | % 43 + g8 [ b ] ~ b4 a g8 [ g ] ~ | % 44 +% << { \voiceOne g1 } \context Voice = v { \voiceThree \tiny b4 g8 [ a ] ~ a4 fs8 [ g ] ~ \normalsize } >> \oneVoice | % 45 + << { \voiceOne g1 } \context Voice = v { \voiceThree \tiny b4 g8 [ a ] ~ a4 fs8 [ g ] ~ \normalsize } >> | % 45 + +%\small +\context Voice = v { \voiceThree +\tiny + g8 [ fs ] ~ fs4 c'8 [ b a g ] | % 46 + g1^\fermata \bar "|." % 47 +\normalsize +} +} + +LeadVoxText = \lyricmode +{ + _ _ _ _ _ _ _ + _ _ _ _ _ _ _ + _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ + + Je- sus draw _ me close _ + Clo- ser Lord _ to you __ _ + Let the world _ a- round _ me _ fade a- way __ _ _ + Je- sus draw _ me close _ + Clo- ser Lord _ to you __ _ + For I de- sire _ to wor- _ ship _ and o- bey _ + + _ + + Je- sus draw _ me close _ + Clo- ser Lord _ to you __ _ + Let the world _ a- round _ me _ fade a- way __ _ _ + Je- sus draw _ me close _ + Clo- ser Lord _ to you __ _ + For I de- sire _ to wor- _ ship _ and o- bey __ _ + For I de- sire _ to wor- _ ship _ and o- bey __ _ +} + + +% +% Riff/rhythm figures +% + +StaffRiffs = \relative c' +{ + \set Voice.autoBeaming = ##f +% \set Staff.instrumentName = #"Rhythm" + \key f \major + \override Staff.TimeSignature #'style = #'() + \time 4/4 + + % Intro + + a4 f8 [ g ] ~ g4 e8 [ f ] ~ | % 1 + f1 | % 2 + bf4 g8 [ a ] ~ a4 f8 [ g ] ~ | % 3 + g2. r8 c, | % 4 + d4 d8 [ e ] ~ e4 e8 [ f ] ~ | % 5 + f8 [ a ] ~ a4 g f8 [ f ] ~ | % 6 + f1 ~ | % 7 + f2 r | % 8 +\stopStaff + + s1*35 | % 9 - 44 + +\startStaff + d4 d e8 [ d ] | % 45 + b4 a2 | % 46 + d4 d e8 [ fs ] | % 47 +} + + + +% +% Chord names +% + +Chords = \chordmode +{ +%Bah, can't we set this globally? +% \popChords + + % Intro + + f4. c2/e bf8/d | % 1 + s4. f2/c s8 | % 2 + bf4. f2/a c8:sus4 | % 3 + s2 c | % 4 + bf4./d c2/e d8:m7 | % 5 + s2 c:sus4 | % 6 + f1 | % 7 + bf1/c | % 8 + + % Verses 1-2 + + \repeat volta 2 + { + f4. c2/e bf8/d | % 9 + s4. f2/c s8 | % 10 + bf4. f2/a c8:sus4 | % 11 + s2 c | % 12 + f4. c2/e d8:m | % 13 + s2 bf:sus2 | % 14 + c1:sus4 | % 15 + c1 | % 16 + f4. c2/e bf8/d | % 17 + s4. f/c s4 | % 18 + bf4. f2/a c8:sus4 | % 19 + s2 c | % 20 + bf4./d c2/e d8:m7 | % 21 + s2 c:sus4 | % 22 + } + \alternative + { + { + f1 | % 23 + bf1/c | % 24 + } + { + f1 | % 25 + } + } + + d2:sus4 d \bar "||" % 26 + + % Verse 3 + + g4. d2/fs c8/e | % 27 + s4. g2/d s8 | % 28 + c4. g2/b d8:sus4 | % 29 + s2 d | % 30 + g4. d2/fs e8:m | % 31 + s2 c:sus2 | % 32 + d1:sus4 | % 33 + d1 | % 34 + g4. d2/fs c8/e | % 35 + s4. g2/d s8 | % 36 + c4. g2/b d8:sus4 | % 37 + s2 d | % 38 + c4./e d2/fs e8:m7 | % 39 + s2 d:sus4 | % 40 + e1:m | % 41 + c1 | % 42 + c4./e d2/fs e8:m7 | % 43 + s2 d:sus4 | % 44 + g4. d2/fs c8/e | % 45 + + s2 c:sus2 | % 46 + g1 \bar "|." % 47 +} + + +% +% Chord rhythms +% + +% Use a RhythmicStaff on the chords instead of this? +% It almost works, but not quite. Doesn't collapse chords above to single notes... + +StaffC = \relative c +{ + \set Voice.autoBeaming = ##f +% \set Staff.instrumentName = #"Rhythm" + \override Staff.TimeSignature #'style = #'() + \time 4/4 + \override NoteHead #'style = #'slash + + % Intro + + c4. c8 ~ c4. c8 ~ | % 1 + c4. c8 ~ c4 c | % 2 + c4. c8 ~ c4. c8 ~ | % 3 + c4 c c c | % 4 + c4. c8 ~ c4. c8 ~ | % 5 + c4 c c c | % 6 + c4 c c c | % 7 + c4 c c c | % 8 + + % Verses 1-2 + + \repeat volta 2 + { + c4. c8 ~ c4. c8 ~ | % 9 + c4. c8 ~ c4 c | % 10 + c4. c8 ~ c4. c8 ~ | % 11 + c4 c c c | % 12 + c4. c8 ~ c4. c8 ~ | % 13 + c4 c c c | % 14 + c4 c c c | % 15 + c4 c c c | % 16 + c4. c8 ~ c4. c8 ~ | % 17 + c4. c8 ~ c4 c | % 18 + c4. c8 ~ c4. c8 ~ | % 19 + c4 c c c | % 20 + c4. c8 ~ c4. c8 ~ | % 21 + c4 c c c | % 22 + } + \alternative + { + { + c4 c c c | % 23 + c4 c c c | % 24 + } + { + c4 c c c | % 25 + } + } + + c4 c \< c c \! \bar "||" % 26 + + % Verse 3 + + c4. c8 ~ c4. c8 ~ | % 27 + c4. c8 ~ c4 c | % 28 + c4. c8 ~ c4. c8 ~ | % 29 + c4 c c c | % 30 + c4. c8 ~ c4. c8 ~ | % 31 + c4 c c c | % 32 + c4 c c c | % 33 + c4 c c c | % 34 + c4. c8 ~ c4. c8 ~ | % 35 + c4. c8 ~ c4 c | % 36 + c4. c8 ~ c4. c8 ~ | % 37 + c4 c c c | % 38 + c4. c8 ~ c4. c8 ~ | % 39 + c4 c c c | % 40 + + c4. c8 ~ c4 c | % 41 + c4. c8 ~ c4 c | % 42 + c4. c8 ~ c4. c8 ~ | % 43 + c4 c c c | % 44 + c4. c8 ~ c4. c8 ~ | % 45 + + c4 c c-\markup { \italic { rit. } } c | % 46 + c1-\fermata \bar "|." % 47 +} + + +\score +{ + << + << + \new Staff = leadStaff { \new Voice = "lead" \LeadVox } + \new Lyrics \lyricsto "lead" \LeadVoxText + >> + +%{ + \new Staff \with + { + \remove "Time_signature_engraver" + \remove "Clef_engraver" +%Hmm, removing this screws up the formatting... +% \remove "Key_engraver" + fontSize = #-3.0 + \override StaffSymbol #'staff-space = #(magstep -3.0) +% firstClef = ##f + } + \StaffRiffs +%} + + \new ChoirStaff = "Rhythm" + << + \new ChordNames = "chords" \Chords + \new RhythmicStaff = "chordRhythm" \StaffC + >> + + \set Score.skipBars = ##t + \set Score.melismaBusyProperties = #'() + >> + + \layout + { + \context { \Staff \RemoveEmptyStaves } +% ragged-last-bottom = ##t + ragged-last = ##t + } +} + + +\paper +{ + #(define fonts (make-pango-font-tree + "Times New Roman" + "DomCasual BT" + "Luxi Mono" + (/ staffSize 20))) +} diff --git a/jesus-is-just-alright.ly b/jesus-is-just-alright.ly new file mode 100644 index 0000000..8705886 --- /dev/null +++ b/jesus-is-just-alright.ly @@ -0,0 +1,698 @@ +\version "2.16.0" +\include "pop-chords.ly" +\include "english.ly" + +% Good sizes are 16, 18, & 20 (11, 13, 14, 23, 26) +staffSize = #18 +#(set-default-paper-size "letter") +#(set-global-staff-size staffSize) +#(ly:set-option (quote no-point-and-click)) + +\header +{ +%Let's bump up the title size and switch to the chord font. :-) + + title = \markup { \override #'(font-family . sans) \fontsize #3.5 "Jesus Is Just Alright" } + composer = \markup { \override #'(font-family . sans) \fontsize #1.3 "Arthur Reynolds" } + arranger = \markup { \override #'(font-family . sans) \fontsize #1.3 "arr. The Doobie Brothers" } + tagline = "Engraved by JLH and Lilypond 2.8.8" +} + +% Useful tweak abbreviations (hn = harmony note) + +hn = #(define-music-function (parser location arg) (ly:music?) +;; Harmony Note: Set the tweaks property of the passed in note to use a smaller font + + (set! (ly:music-property arg 'tweaks) + (acons 'font-size -3.0 (ly:music-property arg 'tweaks))) arg) + + +% +% Lead vocal +% + +LeadVox = \relative c'' +{ +% \set Voice.autoBeaming = ##f +% \set Staff.instrumentName = #"Lead vox" + \clef G + \key e \minor + \override Staff.TimeSignature #'style = #'() + \time 4/4 +\override Score.SpacingSpanner #'average-spacing-wishes = ##f +\override MultiMeasureRest #'expand-limit = 1 + + % Intro + +\once \override Score.RehearsalMark #'self-alignment-X = #left +\mark \markup { \hspace #0.0 \raise #1.8 \small "Bright rock" } + + R1*4 | % 1-4 + + \repeat volta 2 + { + 8 ~ 4 8 ~ | % 5 + 8 4 8 ~ 4 r | % 6 + } + \alternative + { + { + 8 ~ 4 8 ~ | % 7 + 8 4 8 ~ 4 r | % 8 + } + { + 8 ~ 4 8 ~ | % 9 + } + } + + 2 r | % 10 + R1 | % 11 + + s1 | % 12 + s1 | % 13 + s1 | % 14 + s1 \bar "||:" % 15 + + \repeat volta 2 + { +\once \override Score.RehearsalMark #'self-alignment-X = #left +\mark \markup { \override #'(font-family . sans) { \box { A } } \hspace #1.0 \raise #2.0 \musicglyph #"scripts.segno" } + + % Verse + + 8 ~ 4 8 ~ | % 16 + 8 4 8 ~ 4 r | % 17 + 8 ~ 4 8 ~ | % 18 + 8 4 8 ~ 4 r | % 19 + 8 ~ 4 8 ~ | % 20 + 8 4 8 ~ 4 r | % 21 + 8 ~ 4 8 ~ | % 22 + 4 r r2 | % 23 + R1 \bar "||" % 24 + +\once \override Score.RehearsalMark #'self-alignment-X = #left +\mark \markup { \override #'(font-family . sans) { \box { B } } } + + 8 4 8 ~ 4 8 ~ | % 25 + 8 4 8 ~ 4 r | % 26 + 8 4 8 ~ 4 8 ~ | % 27 + 8 4 8 ~ 4 r | % 28 + 8 4 8 ~ 4 8 ~ | % 29 + 8 4 8 ~ 4 r | % 30 + 8 ~ 4 8 | % 31 +\once \override Score.RehearsalMark #'self-alignment-X = #right +\mark \markup { \italic { to Coda } \hspace #1.0 \musicglyph #"scripts.coda" } + } + \alternative + { + { + r4 8 ~ 2 | % 32 + 8 ~ ( ) | % 33 + R1 | % 34 + r8 e4 ( g8 a2 ) \bar "||" % 35 + + 8 ~ 4 8 ~ | % 36 + 8 4 8 ~ 4 r | % 37 + 8 ~ 4 8 ~ | % 38 + 8 4 8 ~ 4 r | % 39 + 8 ~ 4 8 ~ | % 40 + 8 4 8 ~ 4 r | % 41 + 8 ~ 4 8 ~ | % 42 + 2 r4 r8 d | % 43 + g8 a a e g4 ef16 ( d c8 ) | % 44 + } + { + r4 8 ~ 2-\fermata | % 45 + } + } + + % Bridge + + \time 3/4 + +\once \override Score.RehearsalMark #'self-alignment-X = #left +\mark \markup { \override #'(font-family . sans) { \box { C } } \small "Moderate jazz waltz" } + + \repeat volta 2 + { + R2. | % 46 + R2. | % 47 + R2. | % 48 + R2. | % 49 + } + + e8 e ~ e2 ~ | % 50 + e2. | % 51 + R2. | % 52 + r4 d8 d ~ d4 | % 53 + c8 ( a ) ~ a2 | % 54 + R2. | % 55 + R2. | % 56 + R2. | % 57 + + a'8 a ~ a2 ~ | % 58 + a2. | % 59 + R2. | % 60 + r8 a, e' e ~ e4 ~ | % 61 + e8 c ( a2 ) ~ | % 62 + a2. | % 63 + R2. | % 64 + R2. | % 65 + + r2 r8 a | % 66 + e'8 d c4 a8 d ~ | % 67 + d2. | % 68 + R2. | % 69 + r4 e8 e g4 ~ | % 70 + g2. ~ | % 71 + g8 a4 g8 ~ g ef ( ~ | % 72 + ef8 d c2 ) | % 73 + + e8 e ~ e2 ~ | % 74 + e2. | % 75 + R2. | % 76 + r4 d8 c ( d4 ) ~ | % 77 + d4 c8 ( a ) ~ a4 ~ | % 78 + a2. | % 79 + + \repeat volta 2 + { + R2. | % 80 + } + +\once \override Score.RehearsalMark #'self-alignment-X = #left +\mark \markup { \small "Guitar solo" \bold "(rpt. 6x)" } + + \repeat volta 6 + { + R2.*4 | % 81 +% R2. | % 82 +% R2. | % 83 +% R2. | % 84 + } + + R2. | % 85 + R2. | % 86 + +%Ugh, only valid in size 18 +\break + + \time 4/4 + + % Intro + +\once \override Score.RehearsalMark #'self-alignment-X = #left +\mark \markup { \override #'(font-family . sans) { \box { D } } \small "Bright rock - Guitar solo" \bold "(rpt. 7x)" } +%\once \override Score.RehearsalMark #'self-alignment-X = #left +%\mark \markup { \override \once #'(font-family . sans) { \box { B } } } + + \repeat volta 7 + { + s1 | % 87 + s1 | % 88 + } + + s1 | % 89 + s1 \bar "||" % 90 + +\once \override Score.RehearsalMark #'self-alignment-X = #right +\mark \markup { \italic { D.S. al Coda } } + + % Coda + +\stopStaff s1 \startStaff | +\set Score.currentBarNumber = #91 + +\once \override Score.RehearsalMark #'self-alignment-X = #left +\mark \markup { { \musicglyph #"scripts.coda" } "Coda" } + + r4 g'8 g ~ g2-\fermata \bar "|." % 91 +} + +LeadVoxText = \lyricmode +{ + Do, do, do, do, _ do, do, _ do, do. _ + Do, do, do, do, _ do, do, _ do, do. _ + + Do, do, do, do, _ do, do. _ + + Je -- sus is just _ al -- right _ with me. _ + Je -- sus is just _ al -- right, _ oh yeah. _ + Je -- sus is just _ al -- right _ with me. _ + Je -- sus is just _ al -- right. _ + + I don’t care _ what they _ may say. _ + I don’t care _ what they _ may do. _ + I don’t care _ what they _ may say. _ + Je -- sus is just _ al -- right, oh yeah! _ + Je -- sus is just _ al -- _ right. + Oh! __ _ _ + + Do, do, do, do, _ do, do, _ do, do. _ + Do, do, do, do, _ do, do, _ do, do. _ + + Do, do, do, do, _ do, do, _ do, do. _ + Do, do, do, do, _ do, do. _ + + A ho -- pin’ and a pray -- in’, __ _ _ + + oh yeah! _ + + Je -- sus, __ _ _ he’s my _ fri -- end. _ + Je -- sus, __ _ _ well, he’s my __ _ _ fri -- end. _ + He took me by the hand, _ led me far __ _ _ from this _ land, __ _ _ _ + Je -- sus, __ _ _ he’s my __ _ _ fri -- end. __ _ _ + + oh yeah! _ +} + +LeadVoxTextB = \lyricmode +{ + _ _ _ _ _ _ _ _ _ _ _ + _ _ _ _ _ _ _ _ _ _ _ + + _ _ _ _ _ _ _ _ + + _ _ _ _ _ _ _ _ _ _ _ + _ _ _ _ _ _ _ _ _ _ _ + _ _ _ _ _ _ _ _ _ _ _ + _ _ _ _ _ _ _ _ + + I don’t care _ what they _ may know. _ + I don’t care _ where they _ may go. _ + I don’t care _ what they _ may know. _ +} + + +Riffs = \relative c' +{ + \clef G + \key e \minor + \override Staff.TimeSignature #'style = #'() + \time 4/4 +\override Score.SpacingSpanner #'average-spacing-wishes = ##f + + \tiny + s1*11 | % 1-11 + + d8 ds e c' ~ c2 | % 12 + d,8 ds e c ~ c2 | % 13 + d8 ds e c' ~ c2 | % 14 + d,8 ds e g fs d e e, | % 15 + + s1*30 | % 16- + s2.*41 | % -86 + + d'8 ds e c' ~ c2 | % 87 + d,8 ds e c ~ c2 | % 88 + d8 ds e c' ~ c2 | % 89 + d,8 ds e g fs d e e, | % 90 + \normalsize +} + + +% +% Chord names +% + +Chords = \chordmode +{ +%Bah, can't we set this globally? +% \popChords + + % Intro + + s1*4 | % 1-4 + + \repeat volta 2 + { + s1 | % 5 + s1 | % 6 + } + \alternative + { + { + s1 | % 7 + s1 | % 8 + } + { + s1 | % 9 + } + } + + e1:7.9+ | % 10 + f2:9 e:7.9+ | % 11 + s1 | % 12 + s1 | % 13 + s1 | % 14 + s1 | % 15 + + \repeat volta 2 + { + % Verse + + a4.:m a8:5^3 s2 | % 16 + s2. d4/a | % 17 + a4.:m a8:5^3 s2 | % 18 + s4. e8:7.9+ s2 | % 19 + a4.:m a8:5^3 s2 | % 20 + s2. d4/a | % 21 + a4.:m a8:5^3 s2 | % 22 + e1:7.9+ | % 23 + f2:9 e:7.9+ | % 24 + + a4.:m a8:5^3 s2 | % 25 + s2. d4/a | % 26 + a4.:m a8:5^3 s2 | % 27 + s4. e8:7.9+ s2 | % 28 + a4.:m a8:5^3 s2 | % 29 + s2. d4/a | % 30 + a4.:m a8:5^3 s2 | % 31 + } + \alternative + { + { + a4:m c2. | % 32 + a4.:m a8:5^3 s2 | % 33 + e1:7.9+ | % 34 + f2:9 e:7.9+ | % 35 + + a1:m | % 36 + s2. b4:m7 | % 37 + a1:m7 | % 38 + s2. e4:7.9+ | % 39 + a1:m7 | % 40 + s2. b4:m7 | % 41 + a1:m7 | % 42 + e1:7.9+ | % 43 + f2:9 e:7.9+ | % 44 + } + { + a4:m c2. | % 45 + } + } + + % Bridge + + \time 3/4 + + \repeat volta 2 + { + a2.:m7 | % 46 + s2. | % 47 + d2. | % 48 + s2. | % 49 + } + + a2.:m7 | % 50 + s2. | % 51 + d2. | % 52 + s2. | % 53 + a2.:m7 | % 54 + s2. | % 55 + d2. | % 56 + s2. | % 57 + + a2.:m7 | % 58 + s2. | % 59 + d2. | % 60 + s2. | % 61 + a2.:m7 | % 62 + s2. | % 63 + d2. | % 64 + s2. | % 65 + + a2.:m7 | % 66 + s2. | % 67 + d2. | % 68 + s2. | % 69 + a2.:m7 | % 70 + s2. | % 71 + d2. | % 72 + s2. | % 73 + + a2.:m7 | % 74 + s2. | % 75 + d2. | % 76 + s2. | % 77 + a2.:m7 | % 78 + s2. | % 79 + + \repeat volta 2 + { + d2. | % 80 + } + + \repeat volta 6 + { + a2.:m7 | % 81 + s2. | % 82 + d2. | % 83 + s2. | % 84 + } + + a2.:m7 | % 85 + s2. | % 86 + + \time 4/4 + + % Intro + + \repeat volta 7 + { + s1 | % 87 + s1 | % 88 + } + + s1 | % 89 + s1 | % 90 + + % Coda + +s1 + + a4:m c2. | % 91 +} + + +% +% Chord rhythms +% + +% Use a RhythmicStaff on the chords instead of this? +% It almost works, but not quite. Doesn't collapse chords above to single notes... + +StaffC = \relative c +{ +% \set Voice.autoBeaming = ##f +% \set Staff.instrumentName = #"Rhythm" + \override Staff.TimeSignature #'style = #'() + \time 4/4 + \override NoteHead #'style = #'slash +\override MultiMeasureRest #'expand-limit = 1 + + % Intro + + R1*4 | % 1-4 + + \repeat volta 2 + { + r1 | % 5 + r1 | % 6 + } + \alternative + { + { + r1 | % 7 + r1 | % 8 + } + { + r1 | % 9 + } + } + + c4 c r2 | % 10 + c4 c c c | % 11 + r1 | % 12 + r1 | % 13 + r1 | % 14 + r1 \bar "||:" % 15 + + \repeat volta 2 + { + % Verse + + c4 r8 c r c r c | % 16 + r8 c r c r c c r | % 17 + c4 r8 c r c r c | % 18 + r8 c r c ~ c4 c8 r | % 19 + c4 r8 c r c r c | % 20 + r8 c r c r c c r | % 21 + c4 r8 c r c r c | % 22 + c4 c r2 | % 23 + c4 c c c \bar "||" % 24 + + c4 r8 c r c r c | % 25 + r8 c r c r c c r | % 26 + c4 r8 c r c r c | % 27 + r8 c r c ~ c4 c8 r | % 28 + c4 r8 c r c r c | % 29 + r8 c r c r c c r | % 30 + c4 r8 c r c r c | % 31 + } + \alternative + { + { + c8 r c c ~ c2 | % 32 + c4 r8 c r c r c | % 33 + c4 c r2 | % 34 + c4 c c c \bar "||" % 35 + + c8 r r4 r2 | % 36 + r2 r4 c | % 37 + c4 r r2 | % 38 + r2 r4 c | % 39 + c8 r r4 r2 | % 40 + r2 r4 c | % 41 + c4 r r2 | % 42 + c4 c r2 | % 43 + c4 c c c | % 44 + } + { + c8 r c c ~ c2-\fermata | % 45 + } + } + + % Bridge + + \time 3/4 + + \repeat volta 2 + { + c4 c c | % 46 + c4 c c | % 47 + c4 c c | % 48 + c4 c c | % 49 + } + + c4 c c | % 50 + c4 c c | % 51 + c4 c c | % 52 + c4 c c | % 53 + c4 c c | % 54 + c4 c c | % 55 + c4 c c | % 56 + c4 c c | % 57 + + c4 c c | % 58 + c4 c c | % 59 + c4 c c | % 60 + c4 c c | % 61 + c4 c c | % 62 + c4 c c | % 63 + c4 c c | % 64 + c4 c c | % 65 + + c4 c c | % 66 + c4 c c | % 67 + c4 c c | % 68 + c4 c c | % 69 + c4 c c | % 70 + c4 c c | % 71 + c4 c c | % 72 + c4 c c | % 73 + + c4 c c | % 74 + c4 c c | % 75 + c4 c c | % 76 + c4 c c | % 77 + c4 c c | % 78 + c4 c c | % 79 + + \repeat volta 2 + { + c8 c r2 | % 80 + } + + \repeat volta 6 + { + c4 c c | % 81 + c4 c c | % 82 + c4 c c | % 83 + c4 c c | % 84 + } + + c2. ~ | % 85 + c2.-\fermata | % 86 + + \time 4/4 + + % Intro + + \repeat volta 7 + { + r1 | % 87 + r1 | % 88 + } + + r1 | % 89 + r1 | % 90 + + % Coda + +\stopStaff s1 \startStaff | +\set Score.currentBarNumber = #91 + + c8 r c c ~ c2-\fermata \bar "|." % 91 +} + + +Dynamics = +{ + s1*4_\markup { \hspace #0.0 \raise #-1.0 \italic { percussion } } | % 1-4 + s1*5 | % 5-9 + s4_\f s2. | % 10 + s1 | % 11 + s4_\markup { \hspace #0.0 \raise #-1.5 \italic { Bass doubles gtr. riff } } s2. | % 12 +} + + +\score +{ + << + << +% \new Staff = leadStaff { \new Voice = "lead" \LeadVox } + \new Staff = leadStaff { << \new Voice = "lead" \LeadVox \new Voice = "riffs" \Riffs >> } + \new Lyrics \lyricsto "lead" \LeadVoxText + \new Lyrics \lyricsto "lead" \LeadVoxTextB + >> + + \new ChoirStaff = "Rhythm" + << + \new ChordNames = "chords" \Chords + \new RhythmicStaff = "chordRhythm" << \StaffC \Dynamics >> + >> + + \set Score.skipBars = ##t + \set Score.melismaBusyProperties = #'() + >> + + \layout + { +% \context { \Staff \RemoveEmptyStaves } +% ragged-last-bottom = ##t + ragged-last = ##t + } +} + + +\paper +{ + #(define fonts (make-pango-font-tree + "Times New Roman" + "DomCasual BT" + "Luxi Mono" + (/ staffSize 20))) + +% top-margin = -0.25 \in +} diff --git a/joy-to-the-world+hark-the-herald.ly b/joy-to-the-world+hark-the-herald.ly new file mode 100644 index 0000000..f153004 --- /dev/null +++ b/joy-to-the-world+hark-the-herald.ly @@ -0,0 +1,581 @@ +\version "2.16.0" +\include "pop-chords.ly" +\include "english.ly" + +% Good sizes are 16, 18, & 20 +staffSize = #16 +#(set-default-paper-size "letter") +#(set-global-staff-size staffSize) +#(ly:set-option (quote no-point-and-click)) + +\header +{ +%Let's bump up the title size and switch to the chord font. :-) + + title = \markup { \override #'(font-family . sans) \fontsize #3.5 "Joy To The World / Hark The Herald Angels Sing" } + composer = \markup { \override #'(font-family . sans) \fontsize #1.3 "George Friedrich Handel/Felix Mendelssohn" } + arranger = \markup { \override #'(font-family . sans) \fontsize #1.3 "arr. Ed Smart/Craig Harris" } + tagline = "Engraved by JLH and Lilypond 2.8.8" +} + + +% +% Lead vocal +% + +LeadVox = \relative c'' +{ +% \set Voice.autoBeaming = ##f +% \set Staff.instrumentName = #"Lead vox" + \clef G + \key d \major + \override Staff.TimeSignature #'style = #'() + \time 4/4 +\override Score.SpacingSpanner #'average-spacing-wishes = ##f + + % Intro + + s1 | % 1 + s1 | % 2 + s1 | % 3 + s1 | % 4 + s1 | % 5 + s1 | % 6 + s1 | % 7 + s1 \bar "||:" % 8 + + \repeat volta 2 + { + % Verse + +\mark \markup { \override #'(font-family . sans) { \box { A } } } + + d4 cs8. b16 a4. g8 | % 9 + fs4 e d4. a'8 | % 10 + b4. b8 cs4. cs8 | % 11 + d2.. d8 \bar "||" % 12 + +\mark \markup { \override #'(font-family . sans) { \box { A5 } } } + + d8 ( cs ) b ( a ) a8. ( g16 fs8 ) d' | % 13 + d8 ( cs ) b ( a ) a8. ( g16 fs8 ) fs | % 14 + fs8 fs fs fs16 ( g ) a4. g16 ( fs ) | % 15 + e8 e e e16 ( fs ) g4. fs16 ( e ) | % 16 + d8 ( d'4 ) b8 a8. ( g16 fs8 ) g8 | % 17 + + \time 2/4 fs4 e \time 4/4 | % 18 + + \voiceThree d2 \oneVoice s2 | % 19 + s1 | % 20 + } + \alternative + { + { + s1 | % 21 + s1 | % 22 + } + { + s1 | % 23 + } + } + + s1 \bar "||" % 24 + + \key ef \major + +\mark \markup { \override #'(font-family . sans) { \box { B } } } + + ef'4 d8. c16 bf4. af8 | % 25 + g4 f ef4. bf'8 | % 26 + c4. c8 d4. d8 | % 27 + ef2.. ef8 \bar "||" % 28 + +\mark \markup { \override #'(font-family . sans) { \box { B5 } } } + + ef8 ( d ) c ( bf ) bf8. ( af16 g8 ) ef' | % 29 + ef8 ( d ) c ( bf ) bf8. ( af16 g8 ) g | % 30 + g8 g g g16 ( af ) bf4. af16 ( g ) | % 31 + f8 f f f16 ( g ) af4. g16 ( f ) | % 32 + ef8 ( ef'4 ) c8 bf8. ( af16 g8 ) af8 | % 33 + g4 f ef4. g16 ( f ) | % 34 + ef8 ( ef'4 ) c8 bf8. ( af16 g8 ) af8 | % 35 + g2 f \bar "||" % 36 + + \voiceThree ef2 \oneVoice s2 | % 37 + s1 | % 38 + s1 | % 39 + s1 \bar "||" % 40 + + \key f \major + + \repeat volta 2 + { + % Verse + +\mark \markup { \override #'(font-family . sans) { \box { C } } } + + c4 f f4. e8 | % 41 + f4 a a ( g ) | % 42 + c4 c c4. bf8 | % 43 + a4 g a2 | % 44 + c,4 f f4. e8 | % 45 + f4 a a ( g ) | % 46 + c4 g g4. e8 | % 47 + e4 d c2 \bar "||" % 48 + +\mark \markup { \override #'(font-family . sans) { \box { C9 } } } + + c'4 c c f, | % 49 + bf4 a a ( g ) | % 50 + c4 c c f, | % 51 + bf4 a a ( g ) | % 52 + d'4 d d c | % 53 + bf4 a bf2 | % 54 + g4 a8 ( bf ) c4. f,8 | % 55 + f4 g a2 | % 56 + d4. d8 d4 c | % 57 + bf4 a bf2 | % 58 + g4 a8 ( bf ) c4. f,8 | % 59 + } + \alternative + { + { + \time 2/4 f4 g \time 4/4 | % 60 + f2 s2 | % 61 + s1 | % 62 + } + { + f4 g a2 | % 63 + } + } + + d4. d8 d4 c | % 64 + bf4 a bf2 | % 65 + g4 a8 bf c4. f,8 | % 66 + f2 g | % 67 + f2 s2 | % 68 + s1 | % 69 + s1 \bar "|." % 70 +} + +LeadVoxText = \lyricmode +{ + Joy to the world! the Lord is come: + let earth re -- ceive her king; + Let e -- _ v’ry _ heart __ _ _ + pre -- pare _ him _ room, __ _ _ + And heaven and na -- ture _ sing, + and _ heaven and na -- ture _ sing, + and _ heaven, _ and heaven _ _ and na -- ture sing. + + He rules the world with truth and grace, + and makes the na -- tions prove + The glo -- _ ries _ of __ _ _ + his right -- _ eous -- _ ness, __ _ _ + And won -- ders of his _ love, + and _ won -- ders of his _ love, + and _ won -- _ ders, won -- _ _ ders of his love, + and _ won -- _ ders, won -- _ _ ders of his love. + + + Hark! the he -- rald an -- gels sing, _ + “Glo -- ry to the new -- born king: + Peace on earth, and mer -- cy mild, _ + God and sin -- ners re -- con -- ciled!” + Joy -- ful, all ye na -- tions, rise, _ + join the tri -- umph of the skies; _ + With an -- gel -- ic host pro -- claim, + “Christ is _ born in Beth -- le -- hem!” + Hark! the her -- ald an -- gels sing, + “Glo -- ry _ to the new -- born king.” + + new -- born king.” + Hark! the her -- ald an -- gels sing, + “Glo -- ry _ to the new -- born king.” +} + +LeadVoxTextB = \lyricmode +{ + Joy to the world! the sav -- ior reigns: + let men their songs em -- ploy; + While fields _ and _ floods, __ _ _ + rocks, hills, _ and _ plains __ _ _ + Re -- peat the sound -- ing _ joy, + re -- _ peat the sound -- ing _ joy, + re -- _ peat, _ re -- peat _ _ the sound -- ing joy. + + _ _ _ _ _ _ _ _ + _ _ _ _ _ _ + _ _ _ _ _ _ _ _ + _ _ _ _ _ _ _ _ + _ _ _ _ _ _ _ + _ _ _ _ _ _ _ _ + _ _ _ _ _ _ _ _ _ _ _ _ + _ _ _ _ _ _ _ _ _ _ _ _ + + + Hail the heaven born Prince of Peace! _ + Hail the Sun of Right -- eous -- ness! + Light and life to all he brings, _ + Risen with heal -- ing in his wings. + Mild he lays his glo -- ry by, _ + born that man no more may die; _ + Born to raise the sons of earth, + born to _ give them sec -- ond birth. +} + + +Riffs = \relative c''' +{ + \clef G + \key d \major + \override Staff.TimeSignature #'style = #'() + \time 4/4 +\override Score.SpacingSpanner #'average-spacing-wishes = ##f + + % Intro + + \tiny + << { \tiny 8.-> 16-^ ~ 16 8-^ 16 ~ 2 ~ } \\ { \tiny r2. r8. 16-> ~ } >> | % 1 + << 1 \\ 1 >> | % 2 + << { 8.-> 16-^ ~ 16 8-^ 16 ~ 2 ~ } \\ { r2. r8. 16-> ~ } >> | % 3 + << { 2. r4 } \\ { 1 } >> | % 4 + << { 8.-> 16-^ ~ 16 8-^ 16 ~ 2 ~ } \\ { r2. r8. 16-> ~ } >> | % 5 + << 1 \\ 1 >> | % 6 + 8.-> 16-^ ~ 16 8-^ 16 ~ 4.. ~ 16 ~ | % 7 + 2 | % 8 + + s1*9 + \time 2/4 s2 \time 4/4 + + << { \voiceOne \tiny 8.-> 16-^ ~ 16 8-^ 16 ~ 2 ~ } \\ { \voiceTwo \tiny s2 r4 r8. 16-> ~ } >> | % 19 + << { \voiceOne 1 } \\ { \voiceTwo 1 } >> | % 20 + 8.-> 16-^ ~ 16 8-^ 16 ~ 4.. ~ 16 ~ | % 21 + 2 | % 22 + + 8.-> 16-^ ~ 16 8-^ 16 ~ 4.. 16 ~ | % 23 + 2 | % 24 + + \key ef \major + + s1*12 + + << { \voiceOne \tiny 8.-> 16-^ ~ 16 8-^ 16 ~ 2 ~ } \\ { \voiceTwo \tiny s2 r4 r8. 16-> ~ } >> | % 37 + << { \voiceOne 1 } \\ { \voiceTwo 1 } >> | % 38 + 8.-> 16-^ ~ 16 8-^ 16 ~ 4.. ~ 16 ~ | % 39 + 2 | % 40 + + s1*19 + \time 2/4 s2 \time 4/4 + + \voiceTwo c,,4 \oneVoice f f4. e8 | % 61 + f4 a a g | % 62 + + s1*5 + + \voiceTwo c,4 \oneVoice f f4. e8 | % 68 + f4 a a g | % 69 + f1-\fermata \bar "|." % 70 + \normalsize +} + + +% +% Chord names +% + +Chords = \chordmode +{ +%Bah, can't we set this globally? +% \popChords + + % Intro + + d1:5.9 | % 1 + s1 | % 2 + c1:5.9 | % 3 + s1 | % 4 + d1:5.9 | % 5 + s1 | % 6 + c2..:5.9 s16 g/a | % 7 + s2 a | % 8 + + \repeat volta 2 + { + % Verse + + d4 a8./d g16/d d4. g8 | % 9 + d4/a a d2 | % 10 + g2 a | % 11 + b4:m s16 a8/cs d16 s2 | % 12 + + d4 g/d a8./d d16 s4 | % 13 + d4 g/d a8./d d16 s4 | % 14 + d2 s8. d16/fs s4 | % 15 + a2 s8. a16/cs s4 | % 16 + g4/b a/cs d g:maj7 | % 17 + + \time 2/4 d4/a a \time 4/4 | % 18 + + d1:5.9 | % 19 + s1 | % 20 + } + \alternative + { + { + c2..:5.9 s16 g/a | % 21 + s2 a | % 22 + } + { + c2..:5.9 s16 af/bf | % 23 + } + } + + s2 bf | % 24 + + ef2.. af8 | % 25 + ef4/bf bf ef2 | % 26 + af2 bf | % 27 + c4:m s16 bf8/d ef16 s2 | % 28 + + ef4 af/ef bf8./ef ef16 s4 | % 29 + ef4 af/ef bf8./ef ef16 s4 | % 30 + ef2 s8. ef16/g s4 | % 31 + bf2 s8. bf16/d s4 | % 32 + af4/c bf/d ef af:maj7 | % 33 + ef4/bf b:dim7 c:m bf/d | % 34 + ef4 af:maj7 g:m7 c:m7 | % 35 + ef2/bf bf | % 36 + + ef1:5.9 | % 37 + s1 | % 38 + df2..:5.9 s16 bf/c | % 39 + s2 c | % 40 + + \repeat volta 2 + { + f2 g:m11 | % 41 + f2/a f4/c c | % 42 + f2/a bf | % 43 + f4/c c f2 | % 44 + f2 f/e | % 45 + d2:m7 g:9 | % 46 + a4:m g/b c2 | % 47 + c4/g g c2 | % 48 + + f2. f4/a | % 49 + bf4 d:m7 f/c c/bf | % 50 + f2/a bf | % 51 + g2:m7 f4/c c | % 52 + bf2. d4:7.9- | % 53 + g4:m d:7.9- g2:m7 | % 54 + c4 c/bf f2/a | % 55 + f4/c c f2 | % 56 + bf2 d:aug/a | % 57 + g4:m7 d:7.9- g2:m7 | % 58 + c2/e f/a | % 59 + } + \alternative + { + { + \time 2/4 f4/c c \time 4/4 | % 60 + f2 g:m11 | % 61 + f2/a f4/c c | % 62 + } + { + f4/c c f2 | % 63 + } + } + + bf2 d:aug/a | % 64 + g4:m7 d:7.9- g2:m7 | % 65 + c2/e f/a | % 66 + f2/c c | % 67 + f2 g:m11 | % 68 + f2/a f4/c c | % 69 + f1 | % 70 +} + + +% +% Chord rhythms +% + +% Use a RhythmicStaff on the chords instead of this? +% It almost works, but not quite. Doesn't collapse chords above to single notes... + +StaffC = \relative c +{ +% \set Voice.autoBeaming = ##f +% \set Staff.instrumentName = #"Rhythm" + \override Staff.TimeSignature #'style = #'() + \time 4/4 + \override NoteHead #'style = #'slash + + % Intro + + c4 c c c8. c16-> ~ | % 1 + c1 | % 2 + c4 c c c8. c16-> ~ | % 3 + c1 | % 4 + c4 c c c8. c16-> ~ | % 5 + c1 | % 6 + c4 c c c8. c16-> ~ | % 7 + c4 c c c \bar "||:" % 8 + + \repeat volta 2 + { + % Verse + + c4 c8. c16 c4. c8 | % 9 + c4 c c c | % 10 + c4 c c c | % 11 + c8.-> c16-^ ~ c c8-^ c16-> ~ c2 \bar "||" % 12 + + c4 c c8. c16 ~ c4 | % 13 + c4 c c8. c16 ~ c4 | % 14 + c4-^ c-^ r8. c16-> ~ c4 | % 15 + c4-^ c-^ r8. c16-> ~ c4 | % 16 + c4 c c c | % 17 + + \time 2/4 c4 c \time 4/4 | % 18 + + c4 c c c8. c16 ~ | % 19 + c1 | % 20 + } + \alternative + { + { + c4 c c c8. c16-> ~ | % 21 + c4 c c c | % 22 + } + { + c4 c c c8. c16-> ~ | % 23 + } + } + + c4 c c c \bar "||" % 24 + + c2.. c8 | % 25 + c4 c c c | % 26 + c4 c c c | % 27 + c8.-> c16-^ ~ c c8-^ c16-> ~ c2 \bar "||" % 28 + + c4 c c8. c16 ~ c4 | % 29 + c4 c c8. c16 ~ c4 | % 30 + c4-^ c-^ r8. c16-> ~ c4 | % 31 + c4-^ c-^ r8. c16-> ~ c4 | % 32 + c4 c c c | % 33 + c4 c c c | % 34 + c4 c c c | % 35 + c2 c \bar "||" % 36 + + c4 c c c8. c16 ~ | % 37 + c1 | % 38 + c4 c c c8. c16 ~ | % 39 + c4 c c c \bar "||" % 40 + + \repeat volta 2 + { + c4 c c c | % 41 + c4 c c c | % 42 + c4 c c c | % 43 + c4 c c c | % 44 + c4 c c c | % 45 + c4 c c c | % 46 + c4 c c c | % 47 + c4 c c c \bar "||" % 48 + + c2.-> c4-> | % 49 + c4 c c c | % 50 + c4 c c c | % 51 + c4 c c c | % 52 + c4 c c c | % 53 + c4 c c c | % 54 + c4 c c c | % 55 + c4 c c c | % 56 + c4 c c c | % 57 + c4 c c c | % 58 + c4 c c c | % 59 + } + \alternative + { + { + \time 2/4 c4 c \time 4/4 | % 60 + c4 c c c | % 61 + c4 c c c | % 62 + } + { + c4 c c c | % 63 + } + } + + c4 c c c | % 64 + c4 c c c | % 65 + c4 c c c | % 66 + c2 c | % 67 + c4 c c c | % 68 + c4 c c c | % 69 + c1-\fermata \bar "|." % 70 +} + + +Dynamics = +{ + \override TextScript #'extra-offset = #'( 0.0 . -1.0 ) + + s4_\markup { \dynamic mf \italic { 16th note Samba } } s2. | % 1 + s1*6 + s4 s \< s2 | % 8 + s4_\f s2. | % 9 + s1*8 + \time 2/4 s2 \time 4/4 + s4_\mf s2. | % 19 + s1*40 + \time 2/4 s2 \time 4/4 + s1*2 + s2 s4 \< s \! | % 63 + s1*5 + s2 s2_\markup { \italic { rit. } } | % 69 +} + + +\score +{ + << + << +% \new Staff = leadStaff { \new Voice = "lead" \LeadVox } + \new Staff = leadStaff { << \new Voice = "lead" \LeadVox \new Voice = "riffs" \Riffs >> } + \new Lyrics \lyricsto "lead" \LeadVoxText + \new Lyrics \lyricsto "lead" \LeadVoxTextB + >> + + \new ChoirStaff = "Rhythm" + << + \new ChordNames = "chords" \Chords + \new RhythmicStaff = "chordRhythm" << \StaffC \Dynamics >> + >> + + \set Score.skipBars = ##t + \set Score.melismaBusyProperties = #'() + >> + + \layout + { +% \context { \Staff \RemoveEmptyStaves } +% ragged-last-bottom = ##t + ragged-last = ##t + } +} + + +\paper +{ + #(define fonts (make-pango-font-tree + "Times New Roman" + "DomCasual BT" + "Luxi Mono" + (/ staffSize 20))) + +% top-margin = -0.25 \in +} diff --git a/leaning-on-the-everlasting-arms.ly b/leaning-on-the-everlasting-arms.ly new file mode 100755 index 0000000..8fbaaba --- /dev/null +++ b/leaning-on-the-everlasting-arms.ly @@ -0,0 +1,502 @@ +\version "2.16.0" +\include "pop-chords.ly" +\include "english.ly" + +% Good sizes are 16, 18, & 20 +staffSize = #20 +#(set-default-paper-size "letter") +#(set-global-staff-size staffSize) +#(ly:set-option (quote no-point-and-click)) + +\header +{ +%Let's bump up the title size and switch to the chord font. :-) + + title = \markup { \override #'(font-family . sans) \fontsize #3.5 "Leaning On The Everlasting Arms" } +% title = \markup { \override #'(font-name . "DomCasual BT") +% composer = \markup { \override #'(font-family . sans) \fontsize #1.3 "" } + arranger = \markup { \override #'(font-family . sans) \fontsize #1.3 "arr. Ed Smart" } + tagline = $(string-append "Engraved by JLH and Lilypond " (lilypond-version)) +} + + +% Useful tweak abbreviations (hn = harmony note) + +hn = #(define-music-function (parser location arg) (ly:music?) +;; Harmony Note: Set the tweaks property of the passed in note to use a smaller font + + (set! (ly:music-property arg 'tweaks) + (acons 'font-size -3.0 (ly:music-property arg 'tweaks))) arg) + + +% +% Lead vocal +% + +LeadVox = \relative c'' +{ +% \set Voice.autoBeaming = ##f +% \set Staff.instrument = #"Lead vox" + \clef G + \key g \major + \override Staff.TimeSignature #'style = #'() + \time 4/4 +\override Score.SpacingSpanner #'average-spacing-wishes = ##f + + % Intro + + \repeat volta 2 + { + R1 | % 1 + R1 | % 2 + } + + \repeat volta 2 + { + R1 | % 3 + R1 | % 4 + } + + \repeat volta 2 + { + % Verse + +\once \override Score.RehearsalMark #'self-alignment-X = #left +\mark \markup { \override #'(font-family . sans) { \box { A } } \italic { 1st X unison } } + + 4 8 4 | % 5 + 4 8 4 | % 6 + 4 8 | % 7 + 8. 16 ~ 8 8 ~ 2 | % 8 + 4 8 4 | % 9 + 4 8 4 | % 10 + 4 8 | % 7 + 8. 16 ~ 8 r2 \bar "||" % 12 + + % Chorus + +\mark \markup { \override #'(font-family . sans) { \box { B } } } + + 4. ~ 16 ~ 2 | % 13 + 4. ~ 16 ~ 2 | % 14 + 4 8 4 | % 15 + 8. 16 ~ 8 ~ 4 r | % 16 + 4. ~ 16 ~ 2 | % 17 + 4. ~ 16 ~ 2 | % 18 + 4 8 | % 19 + \time 2/4 8. 16 ~ 8 ~ \time 4/4 | % 20 + + 4 r r2 | % 21 + R1 | % 22 + } + \alternative + { + { + R1 | % 23 + R1 | % 24 + } + { + R1 | % 25 + } + } + + R1 | % 26 + + \key a \major + + \repeat volta 2 + { + R1 | % 27 + R1 | % 28 + } + + % Verse + +\once \override Score.RehearsalMark #'self-alignment-X = #left +\mark \markup { \override #'(font-family . sans) { \box { C } } \italic { bass & drums only } } + + cs4 cs cs8 b a4 | % 29 + b4 b b8 a fs4 | % 30 + e4 e a8 gs a b | % 31 + cs8. cs16 ~ cs8 b ~ b2 | % 32 + +\once \override Score.RehearsalMark #'self-alignment-X = #left +\mark \markup { \italic { full band } } + + 4 8 4 | % 33 + 4 8 4 | % 34 + 4 8 | % 35 + 8. 16 ~ 8 r2 | % 36 + + \repeat volta 2 + { + % Chorus + +\mark \markup { \override #'(font-family . sans) { \box { D } } } + + 4. ~ 16 ~ 2 | % 37 + 4. ~ 16 ~ 2 | % 38 + 4 8 4 | % 39 + 8. 16 ~ 8 ~ 4 r | % 40 + 4. ~ 16 ~ 2 | % 41 + 4. ~ 16 ~ 2 | % 42 + 4 8 | % 43 + 8. 16 ~8 ~ 4 r | % 44 + } + + 4 8 | % 45 + 8. 16 ~8 ~ 4 r | % 46 + e4 e a8 gs a b | % 47 + cs4 b a2^\fermata \bar "|." % 48 +} + +LeadVoxText = \lyricmode +{ + What a fel -- low -- ship, what a joy di -- vine, + lean -- ing on the e -- ver -- last -- ing _ arms; _ + What a bless -- ed -- ness, what a peace is mine, + lean -- ing on the e -- ver -- last -- ing _ arms. + + Lea -- _ ning, _ lea -- _ ning, _ + safe and se -- cure from all a -- _ larms, _ + Lea -- _ ning, _ lea -- _ ning, _ + lean -- ing on the e -- ver -- last -- ing _ arms. _ + + What have I to dread, what have I to fear, + lean -- ing on the e -- ver -- last -- ing _ arms; _ + I have bless -- ed peace with my Lord so dear, + lean -- ing on the e -- ver -- last -- ing _ arms. + + Lea -- _ ning, _ lea -- _ ning, _ + safe and se -- cure from all a -- _ larms, _ + Lea -- _ ning, _ lea -- _ ning, _ + lean -- ing on the e -- ver -- last -- ing _ arms. _ + + Lean -- ing on the e -- ver -- last -- ing _ arms. _ + Lean -- ing on the e -- ver -- last -- ing arms. +} + +LeadVoxTextB = \lyricmode +{ + Oh how sweet to walk in this pil -- grim way, + lean -- ing on the e -- ver -- last -- ing _ arms; _ + Oh how bright the path grows from day to day, + lean -- ing on the e -- ver -- last -- ing _ arms. +} + + +Riffs = \relative c' +{ +%{ + \clef G + \key ef \major + \override Staff.TimeSignature #'style = #'() + \time 4/4 + + % Intro + + \tiny + 16 d bf f ~ f4 ~ f4. g16 bf | % 1 + c1 | % 2 + 16 d bf f ~ f4 ~ f4. g16 bf | % 3 + c2 | % 4 + + s1*9 + s2 + +\voiceOne +\tieDown + 16 d bf f ~ f4 ~ f4. g16 bf | % 14 +\tieNeutral +\oneVoice + c1 | % 15 + 16 d bf f ~ f4 ~ f4. g16 bf | % 16 + c2 | % 17 + + 16 d bf f ~ f4 ~ f4. g16 bf | % 18 + c2 r | % 19 + + s1*10 + + \stemUp + 16 e c g ~ g4 ~ g4. a16 c | % 31 + \stemNeutral + d2 r | % 32 + 16 e c g ~ g4 ~ g4. a16 c | % 33 + d2 r | % 34 +%} +} + + +% +% Chord names +% + +Chords = \chordmode +{ +%Bah, can't we set this globally? +% \popChords + + % Intro + + \repeat volta 2 + { + s1 | % 1 + s1 | % 2 + } + + \repeat volta 2 + { + g1:7 | % 3 + g1:7 | % 4 + } + + \repeat volta 2 + { + % Verse + + g2 g/b | % 5 + c2:6 a:m7 | % 6 + g2 e:m7 | % 7 + g2/d d | % 8 + g2 g/b | % 9 + c2:6 a:m7 | % 10 + g2/b c | % 11 + g4/d d g2 \bar "||" % 12 + + % Chorus + + g2 g:7/b | % 13 + c2 a:m7 | % 14 + g2 e:m7 | % 15 + a2:7 d4:sus4 d | % 16 + g2 g:7/b | % 17 + c2 a:m7 | % 18 + g2/b c | % 19 + \time 2/4 g4/d d \time 4/4 | % 20 + + g1:7 | % 21 + g1:7 | % 22 + } + \alternative + { + { + g1:7 | % 23 + g1:7 | % 24 + } + { + g1:7 | % 25 + } + } + + g1:7 | % 26 + + \repeat volta 2 + { + a1:7 | % 27 + a1:7 | % 28 + } + + % Verse + + a2 a/cs | % 29 + d2:6 b:m7 | % 30 + a2 fs:m7 | % 31 + a2/e e | % 32 + a2 a/cs | % 33 + d2:6 b:m7 | % 34 + a2/cs d | % 35 + a4/e e a2 | % 36 + + \repeat volta 2 + { + % Chorus + + a2 a:7/cs | % 37 + d2 b:m7 | % 38 + a2 fs:m7 | % 39 + b2:7 e4:sus4 e | % 40 + a2 a:7/cs | % 41 + d2 b:m7 | % 42 + a2/cs d | % 43 + a4/e e a2 | % 44 + } + + a2/cs d | % 45 + a4/e e a2 | % 46 + a2/cs d | % 47 + a4/e e a2 | % 48 +} + + +% +% Chord rhythms +% + +% Use a RhythmicStaff on the chords instead of this? +% It almost works, but not quite. Doesn't collapse chords above to single notes... + +StaffC = \relative c +{ +% \set Voice.autoBeaming = ##f +% \set Staff.instrument = #"Rhythm" + \override Staff.TimeSignature #'style = #'() + \time 4/4 + \override NoteHead #'style = #'slash + + % Intro + + \repeat volta 2 + { + R1 | % 1 + R1 | % 2 + } + + \repeat volta 2 + { + c4-> c-> r2 | % 3 + c8-> c-> r4 r2 | % 4 + } + + \repeat volta 2 + { + % Verse + + c4 c c c | % 5 + c4 c c c | % 6 + c4 c c c | % 7 + c4 c c c | % 8 + c4 c c c | % 9 + c4 c c c | % 10 + c4 c c c | % 11 + c4 c c-> r \bar "||" % 12 + + % Chorus + + c2 c4 c | % 13 + c2 c4 c | % 14 + c4 c c c | % 15 + c4 c c c | % 16 + c2 c4 c | % 17 + c2 c4 c | % 18 + c4 c c c | % 19 + \time 2/4 c4 c \time 4/4 | % 20 + + c4-> c-> r2 | % 21 + c8-> c-> r4 r2 | % 22 + } + \alternative + { + { + c4-> c-> r2 | % 23 + c8-> c-> r4 r2 | % 24 + } + { + c4-> c-> r2 | % 25 + } + } + + c8-> c-> r4 r2 | % 26 + + \repeat volta 2 + { + c4-> c-> r2 | % 27 + c8-> c-> r4 r2 | % 28 + } + + % Verse + + c4 c c c | % 29 + c4 c c c | % 30 + c4 c c c | % 31 + c4 c c c | % 32 + c4 c c c | % 33 + c4 c c c | % 34 + c4 c c c | % 35 + c4 c c c | % 36 + + \repeat volta 2 + { + % Chorus + + c2 c4 c | % 37 + c2 c4 c | % 38 + c4 c c c | % 39 + c4 c c c | % 40 + c2 c4 c | % 41 + c2 c4 c | % 42 + c4 c c c | % 43 + c4 c c c | % 44 + } + + c4 c c c | % 45 + c4 c c c | % 46 + c2-> c-> | % 47 + c4-> c-> c2^\fermata \bar "|." % 48 +} + + +Dynamics = +{ + s4_\markup { \italic { bass & drums } } s2. | % 1 + s1 | % 2 + s4_\markup { \italic { full band } } s2. | % 3 + s1 | % 4 + s4_\markup { \italic { 1st X bass & drums only } } s2. | % 5 + s1*7 | % 6-12 + s4_\markup { \italic { full band } } s2. | % 13 +%{ + s4_\markup { \italic { snare pat. } } s2 | % 1 + s4_\markup { \italic { simile } } s2 | % 2 + s2.*19 + s4_\markup { \italic { spacy } } s2 | % 22 + s2.*5 + s4 s \< s \! | % 28 + s2.*22 + s4_\markup { \italic { Last time } } s2 | % 51 +%} +} + + +\score +{ + << + << + \new Staff = leadStaff + { + << + \new Voice = "lead" \LeadVox + \new Voice = "riffs" \Riffs + >> + } + \new Lyrics \lyricsto "lead" \LeadVoxText + \new Lyrics \lyricsto "lead" \LeadVoxTextB + >> + + \new ChoirStaff = "Rhythm" + << + \new ChordNames = "chords" \Chords + \new RhythmicStaff = "chordRhythm" << \StaffC \Dynamics >> + >> + + \set Score.skipBars = ##t + \set Score.melismaBusyProperties = #'() + >> + + \layout + { +% \context { \Staff \RemoveEmptyStaves } +% ragged-last-bottom = ##t + ragged-last = ##t + } +} + + +\paper +{ + #(define fonts (make-pango-font-tree + "Times New Roman" + "DomCasual BT" + "Luxi Mono" + (/ staffSize 20))) +} diff --git a/lo-how-a-rose-e'er-blooming.ly b/lo-how-a-rose-e'er-blooming.ly new file mode 100644 index 0000000..fb3577c --- /dev/null +++ b/lo-how-a-rose-e'er-blooming.ly @@ -0,0 +1,204 @@ +\version "2.16.0" +\include "pop-chords.ly" +\include "english.ly" + +% Good sizes are 16, 18, & 20 +staffSize = #20 +#(set-default-paper-size "letter") +#(set-global-staff-size staffSize) +#(ly:set-option (quote no-point-and-click)) + +\header +{ +%Let's bump up the title size and switch to the chord font. :-) + + title = \markup { \override #'(font-family . sans) \fontsize #3.5 "Lo! How a Rose E’er Blooming" } + composer = \markup { \override #'(font-family . sans) \fontsize #1.3 "German Carol" } +% poet = \markup { \override #'(font-family . sans) \fontsize #1.3 "George Atkins" } +% arranger = \markup { \override #'(font-family . sans) \fontsize #1.3 "arr. Shamus Hammons" } + tagline = "Engraved by JLH and Lilypond 2.8.8" +} + + +Soprano = \relative c'' +{ + \clef G + \key f \major + \override Staff.TimeSignature #'style = #'() + \time 6/4 +\override Score.SpacingSpanner #'average-spacing-wishes = ##f + \voiceOne + + c2 c4 c d c | % 1 + c2 a bf | % 2 + a4 g2 f e4 | % 3 + \time 4/4 f1 | % 4 + \time 6/4 c'2 c4 c d c | % 5 + c2 a bf | % 6 + a4 g2 f e4 | % 7 + \time 3/4 f2. | % 8 + \time 1/4 a4 | % 9 + \time 4/4 g4 e f d | % 10 + c2. c'4 | % 11 + c4 c d c | % 12 + \time 6/4 c2 a bf | % 13 + a4 g2 f e4 | % 14 + \time 4/4 f1 \bar "|." % 15 +} + +Alto = \relative c'' +{ + \clef G + \key f \major + \override Staff.TimeSignature #'style = #'() + \time 6/4 +\override Score.SpacingSpanner #'average-spacing-wishes = ##f + \voiceTwo + + a2 a4 f f f | % 1 + e2 d d | % 2 + c4 c d4. ( a8 c4 ) c | % 3 + \time 4/4 c1 | % 4 + \time 6/4 a'2 a4 f f f | % 5 + e2 d d | % 6 + c4 c d4. ( a8 c4 ) c | % 7 + \time 3/4 c2. | % 8 + \time 1/4 f4 | % 9 + \time 4/4 e4 c c b | % 10 + c2. e4 | % 11 + g4 f f f | % 12 + \time 6/4 e2 d d | % 13 + f4 d ( e ) f ( g ) c, | % 14 + \time 4/4 c1 \bar "|." % 15 +} + +Tenor = \relative c' +{ + \clef F + \key f \major + \override Staff.TimeSignature #'style = #'() + \time 6/4 +\override Score.SpacingSpanner #'average-spacing-wishes = ##f + \voiceThree + + c2 c4 a bf a | % 1 + g2 f f | % 2 + a4 c bf ( a2 ) g4 | % 3 + \time 4/4 a1 | % 4 + \time 6/4 c2 c4 a bf a | % 5 + g2 f f | % 6 + a4 c bf ( a2 ) g4 | % 7 + \time 3/4 a2. | % 8 + \time 1/4 c4 | % 9 + \time 4/4 bf4 a a g | % 10 + e8 ( f g2 ) g4 | % 11 + g4 a bf a | % 12 + \time 6/4 g2 fs g | % 13 + c4 bf a2 g | % 14 + \time 4/4 a1 \bar "|." % 15 +} + +Bass = \relative c +{ + \clef F + \key f \major + \override Staff.TimeSignature #'style = #'() + \time 6/4 +\override Score.SpacingSpanner #'average-spacing-wishes = ##f + \voiceFour + + f2 f4 f bf f | % 1 + c2 d bf | % 2 + f'4 e d2 c | % 3 + \time 4/4 f1 | % 4 + \time 6/4 f2 f4 f bf f | % 5 + c2 d bf | % 6 + f'4 e d2 c | % 7 + \time 3/4 f2. | % 8 + \time 1/4 f4 | % 9 + \time 4/4 g4 a f g | % 10 + c,8 ( d e2 ) c4 | % 11 + e4 f bf, f' | % 12 + \time 6/4 c2 d g, | % 13 + a4 bf c2 c | % 14 + \time 4/4 f,1 \bar "|." % 15 +} + +VerseA = \lyricmode +{ + Lo, how a rose e’er bloo -- ming from ten -- der stem hath sprung! + Of Jes -- se’s line -- age com -- ing as men of old have sung. + It came, a flo -- wer bright, + A -- mid the cold of win -- ter, when half -- spent was the night. +} + +VerseB = \lyricmode +{ + I -- sa -- iah ’twas fore -- told it, the rose I have in mind; + With Ma -- ry we be -- hold it, the vir -- gin mo -- ther kind. + To show God’s love a -- right + She bore to men a sa -- vior, when half -- spent was the night. +} + +VerseC = \lyricmode +{ + This flower, whose fra -- grance ten -- der with sweet -- ness fills the air, + Dis -- pels with glo -- rious splen -- dor the dark -- ness e -- very -- where. + True man, yet ve -- ry God, + From sin and death he saves us and light -- ens e -- very load. +} + + +\score +{ + << + << + \new Staff = leadStaffA { << \new Voice = "vA" \Soprano \new Voice = "vB" \Alto >> } + \new Lyrics \lyricsto "vA" \VerseA + \new Lyrics \lyricsto "vA" \VerseB + \new Lyrics \lyricsto "vA" \VerseC + >> + + << + \new Staff = leadStaffB { << \new Voice = "vC" \Tenor \new Voice = "vD" \Bass >> } + >> + + \set Score.skipBars = ##t + \set Score.melismaBusyProperties = #'() + >> + +%{ \midi + { + \tempo 4 = 80 + %% Remove the dynamics from the midi output + \context + { + \Voice + \remove "Dynamic_performer" + \remove "Span_dynamic_performer" + } + } +%} +} + + +\paper +{ + #(define fonts (make-pango-font-tree + "Times New Roman" + "DomCasual BT" + "Luxi Mono" + (/ staffSize 20))) + +% Spread staves vertically across last page (default: t) + ragged-last-bottom = ##f +% Don't spread staves vertically across the page (default: f) +% ragged-bottom = ##t +% Allow partial line for last stave (default: f) +% ragged-last = ##t + +% To find out what's eating the space at the top... +% annotate-spacing = ##t +%let's try this: [It works! Huzzah!] + obsolete-page-top-space = 0 top-system-spacing #'basic-distance = #(/ obsolete-page-top-space staff-space) +} diff --git a/lord-i-lift-your-name-on-high.ly b/lord-i-lift-your-name-on-high.ly new file mode 100755 index 0000000..ede85dc --- /dev/null +++ b/lord-i-lift-your-name-on-high.ly @@ -0,0 +1,318 @@ +\version "2.16.0" +\include "pop-chords.ly" +\include "english.ly" + +staffSize = #18 % or 16 +#(set-default-paper-size "letter") +#(set-global-staff-size staffSize) +#(ly:set-option (quote no-point-and-click)) + +\header +{ +%Let's bump up the title size and switch to the chord font. :-) + + title = \markup { \override #'(font-family . sans) + { \fontsize #3.5 "Lord I Lift Your Name On High" } } +% composer = \markup { \override #'(font-family . sans) "" } + arranger = \markup { \override #'(font-family . sans) "arr. Ed Smart/Shamus Hammons" } + tagline = "Engraved by JLH and Lilypond 2.8.2" +} + + +% +% Lead vocal +% + +LeadVox = \relative c +{ + \set Voice.autoBeaming = ##f +% \set Staff.instrumentName = #"Lead vox" + \clef F + \key g \major + \override Staff.TimeSignature #'style = #'() + \time 4/4 +\override Score.SpacingSpanner #'average-spacing-wishes = ##f + + % Intro + + \repeat volta 2 + { +\once \override Score.RehearsalMark #'self-alignment-X = #left +\mark \markup { \small \italic { Bass line througout } } + +\tiny + g8 [ g ] r a16 [ b ] c8 [ c ] r d16 [ e ] | % 1 + d8 [ d ] r a16 [ b ] c [ c8 c16 ] ~ c [ c b a ] | % 2 + g8 [ g ] r a16 [ b ] c8 [ c ] r d16 [ e ] | % 3 + d8 [ d ] r a16 [ b ] c [ c8 c16 ] ~ c [ c b a ] | % 4 +\normalsize + } + \clef G + + \repeat volta 2 + { +\mark \markup { \override #'(font-family . sans) { \box { A } } } + + % Verse + + r4 b'8 [ d ] g [ fs16 e ] ~ e8 [ d ] ~ | % 5 + d8 [ d ] ~ d2 r4 | % 6 + r4 b8 [ d ] g [ fs16 e ] ~ e8 [ d ] | % 7 + e8 ([ d ]) d2 r4 | % 8 + r4 b8 [ d ] g [ fs16 e ] ~ e8 [ d ] ~ | % 9 + d8 [ d ] ~ d2 r4 | % 10 + r4 b8 [ d ] g [ fs16 e ] ~ e8 [ d ] | % 11 + e8 ([ d ]) d2 r4 \bar"||" % 12 + +\mark \markup { \override #'(font-family . sans) { \box { B } } } + + % Chorus + + r8 b' b [ b ] c4 b8 [ g16 a ] | % 13 + r4 d c4. b16 [ b ] | % 14 + r4 b8 [ b16 c (] ~ c8 [ b ]) a [ g16 a ] | % 15 + r4 d c4. b16 [ b ] | % 16 + r4 b8 [ b16 c (] ~ c8 [ b ]) a8 [ g16 a ] ~ | % 17 + a4 a8 [ a16 b (] ~ b8 [ a ]) g8 [ fs16 g ] ~ | % 18 + g4 e8 [ g ] a [ g16 fs ] ~ fs8 [ g ] ~ | % 19 + } + \alternative + { + { + g8 [ g ] ~ g2. | % 20 + R1 | % 21 + } + { + g8 \repeatTie [ g ] ~ g2. | % 22 + } + } + +\mark \markup { \override #'(font-family . sans) { \box { C } } } + + % Chorus (redux) + + r8 b b [ b ] c4 b8 [ g16 a ] | % 23 + r4 d c4. b16 [ b ] | % 24 + r4 b8 [ b16 c (] ~ c8 [ b ]) a [ g16 a ] | % 25 + r4 d c4. b16 [ b ] | % 26 + r4 b8 [ b16 c (] ~ c8 [ b ]) a8 [ g16 a ] ~ | % 27 + a4 a8 [ a16 b (] ~ b8 [ a ]) g8 [ fs16 g ] ~ | % 28 + g4 e8 [ g ] a [ g16 fs ] ~ fs8 [ g ] ~ | % 29 + g8 [ g ] ~ g2. | % 30 + + % Tag + + r4 e8 [ g ] a [ g16 fs ] ~ fs8 [ g ] ~ | % 31 + g8 [ g ] ~ g2. | % 32 + r4 e8 [ g ] a [ g16 fs ] ~ fs8 [ g ] ~ | % 33 + g8 [ g ] ~ g2.-\fermata \bar "|." % 34 +} + +LeadVoxText = \lyricmode +{ + _ _ _ _ _ _ _ _ + _ _ _ _ _ _ _ _ _ _ _ + _ _ _ _ _ _ _ _ + _ _ _ _ _ _ _ _ _ _ _ + + Lord I lift your name _ on _ high _ + Lord I love to sing _ your prai- _ ses + I'm so glad you're in _ my _ life _ + I'm so glad you came _ to save _ us + + You came from hea- ven to earth + to show the way + From the earth __ _ _ to the cross + my debt to pay + From the cross __ _ _ to the grave _ + from the grave __ _ _ to the sky _ + Lord I lift your name _ on _ high _ + + _ high _ + + You came from hea- ven to earth + to show the way + From the earth __ _ _ to the cross + my debt to pay + From the cross __ _ _ to the grave _ + from the grave __ _ _ to the sky _ + Lord I lift your name _ on _ high _ + + Lord I lift your name _ on _ high _ + Lord I lift your name _ on _ high. _ +} + + +% +% Chord names +% + +Chords = \chordmode +{ +%Bah, can't we set this globally? +% \popChords + + % Intro + + g2 c | % 1 + d2 c | % 2 + g2 c | % 3 + d2 c | % 4 + + % Verse + + g2 c | % 5 + d2 c | % 6 + g2 c | % 7 + d2 c | % 8 + g2 c | % 9 + d2 c | % 10 + g2/b c | % 11 + d1 | % 12 + + % Chorus + + g2 c | % 13 + d2 c | % 14 + g2 c | % 15 + d2 c | % 16 + g2 c/e | % 17 + d2 e4:m7 b8.:m7 a16:m7 | % 18 + s2 d | % 19 + + g2 c | % 20 + d2 c | % 21 + + g2 c4 d | % 22 + + % Chorus (redux) + + g2 c | % 23 + d2 c | % 24 + g2 c | % 25 + d2 c | % 26 + g2 c/e | % 27 + d2 e4:m7 b8.:m7 a16:m7 | % 28 + s2 d | % 29 + + % Tag + + g2 c | % 30 + d2 c | % 31 + g2 c | % 32 + d2 c | % 33 + g1 | % 34 +} + + +% +% Chord rhythms +% + +% Use a RhythmicStaff on the chords instead of this? +% It almost works, but not quite. Doesn't collapse chords above to single notes... + +StaffC = \relative c +{ + \set Voice.autoBeaming = ##f +% \set Staff.instrumentName = #"Rhythm" + \override Staff.TimeSignature #'style = #'() + \time 4/4 + \override NoteHead #'style = #'slash + + % Intro + + c4-\markup { \small \italic { bass solo 1st time, band in 2nd } } c c c | % 1 + c4 c c c | % 2 + c4 c c c | % 3 + c4 c c c | % 4 + + \repeat volta 2 + { + % Verse + + c4 c c c | % 5 + c4 c c c | % 6 + c4 c c c | % 7 + c4 c c c | % 8 + c4 c c c | % 9 + c4 c c c | % 10 + c4 c c c | % 11 + c4 c \< c c \! | % 12 + + % Chorus + + c4 c c c | % 13 + c4 c c c | % 14 + c4 c c c | % 15 + c4 c c c | % 16 + c4 c c c | % 17 + c4 c c c8. [ c16 ] ~ | % 18 + c4 c c c | % 19 + } + \alternative + { + { + c4 c c c | % 20 + c4 c c c | % 21 + } + { + c4 c c-> c-> | % 22 + } + } + + % Chorus (redux) + + c8-> [ c-> ] r4 c8-> [ c-> ] r4 | % 23 + c8-> [ c-> ] r4 c c | % 24 + c8-> [ c-> ] r4 c8-> [ c-> ] r4 | % 25 + c8-> [ c-> ] r4 c c | % 26 + c4 c c c | % 27 + c4 c c c8. [ c16 ] ~ | % 28 + c4 c c c | % 29 + c4 c c c | % 30 + + % Tag + + c4 c c c | % 31 + c4 c c c | % 32 + c4 c c_\markup { \italic { rit. } } c | % 33 + c1-\fermata \bar "|." % 34 +} + + +\score +{ + << + << + \new Staff = leadStaff { \new Voice = "lead" \LeadVox } + \new Lyrics \lyricsto "lead" \LeadVoxText + >> + + \new ChoirStaff = "Rhythm" + << + \new ChordNames = "chords" \Chords + \new RhythmicStaff = "chordRhythm" \StaffC + >> + + \set Score.skipBars = ##t + \set Score.melismaBusyProperties = #'() + >> + + \layout + { +% \context { \Staff \RemoveEmptyStaves } +% ragged-last-bottom = ##t + ragged-last = ##t + } +} + + +\paper +{ + #(define fonts (make-pango-font-tree + "Times New Roman" + "DomCasual BT" + "Luxi Mono" + (/ staffSize 20))) +} diff --git a/lord-you-have-my-heart.ly b/lord-you-have-my-heart.ly new file mode 100755 index 0000000..c524990 --- /dev/null +++ b/lord-you-have-my-heart.ly @@ -0,0 +1,463 @@ +\version "2.16.0" +\include "pop-chords.ly" +\include "english.ly" + +% Good sizes are 16, 18, & 20 +staffSize = #18 +#(set-default-paper-size "letter") +#(set-global-staff-size staffSize) +#(ly:set-option (quote no-point-and-click)) + +\header +{ +%Let's bump up the title size and switch to the chord font. :-) + + title = \markup { \override #'(font-family . sans) + { \fontsize #3.5 "Lord You Have My Heart" } } +% composer = \markup { \override #'(font-family . sans) "" } + arranger = \markup { \override #'(font-family . sans) "arr. Ed Smart" } + tagline = "Engraved by JLH and Lilypond 2.8.2" +} + + +% +% Lead vocal +% + +LeadVox = \relative c' +{ +% \set Voice.autoBeaming = ##f +% \set Staff.instrumentName = #"Lead vox" + \clef G + \key e \major + \override Staff.TimeSignature #'style = #'() + \time 4/4 +\override Score.SpacingSpanner #'average-spacing-wishes = ##f + + % Intro + + R1 | % 1 + R1 | % 2 + R1 | % 3 + R1 \bar "||:" % 4 + + \repeat volta 2 + { + R1 | % 5 + R1 | % 6 + R1 | % 7 + R1 | % 8 + } + + \repeat volta 2 + { + % Verse + + R1 | % 9 + R1 | % 10 + R1 | % 11 + R1 | % 12 + R1 | % 13 + R1 | % 14 + R1 | % 15 + R1 | % 16 + + R1 | % 17 + R1 | % 18 + R1 | % 19 + R1 | % 20 + R1 | % 21 + R1 | % 22 + R1 | % 23 + R1 | % 24 + + % Chorus + + R1 \bar "||" % 25 + R1 | % 26 + R1 | % 27 + R1 | % 28 + R1 | % 29 + R1 | % 30 + R1 | % 31 + R1 | % 32 + R1 | % 33 + R1 | % 34 + R1 | % 35 + } + \alternative + { + { + R1 | % 36 + R1 | % 37 + R1 \bar "||" % 38 + + R1 | % 39 + R1 | % 40 + R1 | % 41 + R1 | % 42 + } + { + R1 | % 43 + } + } + + R1 | % 44 + R1 | % 45 + R1 | % 46 + R1 | % 47 + R1 | % 48 + R1 \bar "||" % 49 + + R1 | % 50 + R1 | % 51 + R1 | % 52 + R1 \bar "||" % 53 + + R1 | % 54 + R1 | % 55 + R1 | % 56 + R1 \bar "||:" % 57 + + \repeat volta 2 + { + R1 | % 58 + R1 | % 59 + R1 | % 60 + } + \alternative + { + { + R1 | % 61 + } + { + R1 | % 62 + } + } + + \repeat volta 2 + { + R1 | % 63 + R1 | % 64 + R1 | % 65 + R1 | % 66 + } + + R1 | % 67 + R1 | % 68 + R1 | % 69 + R1 | % 70 + R1 | % 71 + R1 | % 72 + r1^\fermata \bar "|." % 73 +} + +LeadVoxText = \lyricmode +{ + Lord, you have my heart and I will search for yours, + Je- sus take my life and lead me on. + Lord, you have my heart and I will search for yours, + Let me be to you a sa- cri- fice. + + And I will praise you Lord +} + + +% +% Chord names +% + +Chords = \chordmode +{ +%Bah, can't we set this globally? +% \popChords + + % Intro + + | % 1 + | % 2 + | % 3 + | % 4 + + \repeat volta 2 + { + | % 5 + | % 6 + | % 7 + | % 8 + } + + \repeat volta 2 + { + % Verse + + | % 9 + | % 10 + | % 11 + | % 12 + | % 13 + | % 14 + | % 15 + | % 16 + + | % 17 + | % 18 + | % 19 + | % 20 + | % 21 + | % 22 + | % 23 + | % 24 + + % Chorus + + | % 25 + | % 26 + | % 27 + | % 28 + | % 29 + | % 30 + | % 31 + | % 32 + | % 33 + | % 34 + | % 35 + } + \alternative + { + { + | % 36 + | % 37 + | % 38 + + | % 39 + | % 40 + | % 41 + | % 42 + } + { + | % 43 + } + } + + | % 44 + | % 45 + | % 46 + | % 47 + | % 48 + | % 49 + + | % 50 + | % 51 + | % 52 + | % 53 + + | % 54 + | % 55 + | % 56 + | % 57 + + \repeat volta 2 + { + | % 58 + | % 59 + | % 60 + } + \alternative + { + { + | % 61 + } + { + | % 62 + } + } + + \repeat volta 2 + { + | % 63 + | % 64 + | % 65 + | % 66 + } + + | % 67 + | % 68 + | % 69 + | % 70 + | % 71 + | % 72 + | % 73 +} + + +% +% Chord rhythms +% + +% Use a RhythmicStaff on the chords instead of this? +% It almost works, but not quite. Doesn't collapse chords above to single notes... + +StaffC = \relative c +{ +% \set Voice.autoBeaming = ##f +% \set Staff.instrumentName = #"Rhythm" + \override Staff.TimeSignature #'style = #'() + \time 4/4 + \override NoteHead #'style = #'slash + + % Intro + + c4 c c c | % 1 + c4 c c c | % 2 + c4 c c c | % 3 + c4 c c c \bar "||:" % 4 + + \repeat volta 2 + { + c4 c c c | % 5 + c4 c c c | % 6 + c4 c c c | % 7 + c4 c c c | % 8 + } + + \repeat volta 2 + { + % Verse + + c4 c c c | % 9 + c4 c c c | % 10 + c4 c c c | % 11 + c4 c c c | % 12 + c4 c c c | % 13 + c4 c c c | % 14 + c4 c c c | % 15 + c4 c c c | % 16 + + c4 c c c | % 17 + c4 c c c | % 18 + c4 c c c | % 19 + c4 c c c | % 20 + c4 c c c | % 21 + c4 c c c | % 22 + c4 c c c | % 23 + c4 c c c | % 24 + + % Chorus + + c4 c c c \bar "||" % 25 + c4 c c c | % 26 + c4 c c c | % 27 + c4 c c c | % 28 + c4 c c c | % 29 + c4 c c c | % 30 + c4 c c c | % 31 + c4 c c c | % 32 + c4 c c c | % 33 + c4 c c c | % 34 + c4 c c c | % 35 + } + \alternative + { + { + c4 c c c | % 36 + c4 c c c | % 37 + c4 c c c \bar "||" % 38 + + c4 c c c | % 39 + c4 c c c | % 40 + c4 c c c | % 41 + c4 c c c | % 42 + } + { + c4 c c c | % 43 + } + } + + c4 c c c | % 44 + c4 c c c | % 45 + c4 c c c | % 46 + c4 c c c | % 47 + c4 c c c | % 48 + c4 c c c \bar "||" % 49 + + c4 c c c | % 50 + c4 c c c | % 51 + c4 c c c | % 52 + c4 c c c \bar "||" % 53 + + c4 c c c | % 54 + c4 c c c | % 55 + c4 c c c | % 56 + c4 c c c \bar "||:" % 57 + + \repeat volta 2 + { + c4 c c c | % 58 + c4 c c c | % 59 + c4 c c c | % 60 + } + \alternative + { + { + c4 c c c | % 61 + } + { + c4 c c c | % 62 + } + } + + \repeat volta 2 + { + c4 c c c | % 63 + c4 c c c | % 64 + c4 c c c | % 65 + c4 c c c | % 66 + } + + c4 c c c | % 67 + c4 c c c | % 68 + c4 c c c | % 69 + c4 c c c | % 70 + c4 c c c | % 71 + c4 c c c | % 72 + c1^\fermata \bar "|." % 73 +} + + +\score +{ + << + << + \new Staff = leadStaff { \new Voice = "lead" \LeadVox } + \new Lyrics \lyricsto "lead" \LeadVoxText +% \new Lyrics \lyricsto "lead" \LeadVoxTextB + >> + + \new ChoirStaff = "Rhythm" + << + \new ChordNames = "chords" \Chords + \new RhythmicStaff = "chordRhythm" \StaffC + >> + + \set Score.skipBars = ##t + \set Score.melismaBusyProperties = #'() + >> + + \layout + { +% \context { \Staff \RemoveEmptyStaves } +% ragged-last-bottom = ##t + ragged-last = ##t + } +} + + +\paper +{ + #(define fonts (make-pango-font-tree + "Times New Roman" + "DomCasual BT" + "Luxi Mono" + (/ staffSize 20))) +} diff --git a/moonlight-1st.ly b/moonlight-1st.ly new file mode 100755 index 0000000..1edd952 --- /dev/null +++ b/moonlight-1st.ly @@ -0,0 +1,482 @@ +\version "2.16.0" +\include "english.ly" % English note names, for cryin' out loud... + +% Good sizes are 16, 18 or 20 +staffSize = #16 +#(set-default-paper-size "letter") +#(set-global-staff-size staffSize) +#(ly:set-option (quote no-point-and-click)) + +\header +{ + title = "Sonata Una Quasi Fantasia" + subtitle = "aka ‘Moonlight:’ First movement" + composer = "L.V. Beethoven" + enteredby = "JLH" + + mutopiatitle = "Sonata Una Quasi Fantasia" + mutopiacomposer = "L. V. Beethoven (1770-1827)" + mutopiaopus = "" + mutopiainstrument = "Piano" + date = "18th C." + source = "unknown" + style = "Classical" + copyright = "Public Domain" + filename = "moonlight-1st.ly" + maintainer = "James 'Shamus' Hammons" + lastupdated = "2009/Dec/21" +% tagline = "\\parbox{\hsize}{\\thefooter\\quad\\small \\\\This music is part of the Mutopia project, \\texttt{http://www.mutopiaproject.org/}\\\\It has been typeset and placed in the public domain by " + \maintainer + ".\\\\Unrestricted modification and redistribution is permitted and encouraged---copy this music and share it!}" + +% tagline = "\\parbox{\\hsize}{\\thefooter\\quad\\small\\noindent\\hspace{\\stretch{1}} This music is part of the Mutopia project: \\hspace{\\stretch{1}} \\texttt{http://www.MutopiaProject.org/}\\\\ \\makebox[\\textwidth][c]{It has been typeset and placed in the public domain by " + \maintainer + ".} \\makebox[\\textwidth][c]{Unrestricted modification and redistribution is permitted and encouraged---copy this music and share it!}}" + footer = "Mutopia-2006/10/29-xxx" +} + + +RightHand = \relative c' +{ + \override TupletNumber #'transparent = ##t + \override TupletBracket #'transparent = ##t + \set tupletSpannerDuration = #(ly:make-moment 1 4) + +%DISNOWOK +%{ + \context Voice = vb + { + \override TupletNumber #'transparent = ##t + \override TupletBracket #'transparent = ##t + } +%} + + \time 4/4 + \key cs \minor + \clef G + + \phrasingSlurUp + + \times 2/3 + { + gs8_1^\markup { \italic { sempre } \dynamic pp \italic { e con sordini } } + ^\markup{ \bold { \large { Adagio sostenuto } } } \( + cs_2 e_4 gs, cs e gs, cs e gs, cs e | % 1 + gs, cs e gs, cs e gs, cs e gs, cs e | % 2 + a,_1 cs_2 e_4 a, cs e \) a,_1 \( d_3 fs_5 a, d fs | % 3 + gs, bs fs' gs, cs e gs,_1 cs_2 ds_4 fs,_1 bs_2 ds_4 | % 4 + + e,_1 gs_2 cs_4 gs_1 cs_2 e_4 \) + } + << { \stemDown \times 2/3 { gs, cs e_4 gs, cs e_3 } } + \context Voice = vb { r4 gs8.^5 gs16 } >> | % 5 + + << { \times 2/3 { gs,8 ds' fs_4 gs, ds' fs gs, ds' fs_3 gs, ds' fs_3 } } + \context Voice = vb { gs2.^5 gs8.^5 gs16 } >> | % 6 + + << { \times 2/3 { gs,8 cs e gs, cs e a, cs fs a, cs fs } } + \context Voice = vb { gs2^5 ^( a } >> | % 7 + + << { \times 2/3 { gs,8 b e gs, b e a,_1 b ds a_1 b_1 ds_2 } } + \context Voice = vb { \stemUp gs2 fs4^5 b \stemNeutral } >> | % 8 + + << { \times 2/3 { gs,8 b e gs, b e gs, b e gs, b e } } + \context Voice = vb { e4^4 ) r r2 } >> | % 9 + + << { \times 2/3 { g,8 b e g, b e g, b e g, b e } } + \context Voice = vb { r2 r4 g8. g16 } >> | % 10 + + << { \times 2/3 { g,8 b f' g, b f' g, b f' g, b f' } } + \context Voice = vb { g2. g8. g16 } >> | % 11 + + << { \times 2/3 { g,8 c e g, b e g, cs e fs, cs' e } } + \context Voice = vb { g2. ^( fs4 ) } >> | % 12 + + << { \times 2/3 { fs,8 b d fs, b d g, b cs e, b' cs } } + \context Voice = vb { fs2 ^( g4 e ) } >> | % 13 + + << { \times 2/3 { fs,8 b d fs, b d fs, as cs fs, as cs } } + \context Voice = vb { fs2 fs ^( } >> | % 14 + + << { \times 2/3 { b,8_1 d_2 fs_4 b, d fs b,_1 ds fs b, ds fs } } + \context Voice = vb { \stemUp b,4 ) r r b' ^( } >> | % 15 + + << { \times 2/3 { b,8 e g b, e g b, e g b, e g } } + \context Voice = vb { c2.^> as4^4 } >> | % 16 + + << { \times 2/3 { b,8 ds fs b, ds fs b, ds fs b, ds fs } } + \context Voice = vb { b2. ) b4 } >> | % 17 + + << { \times 2/3 { b,8 e g b, e g b, e g b, e g } } + \context Voice = vb { c2. as4 } >> | % 18 + + << { \times 2/3 { b,8 ds fs b, ds fs b, d es b d es } } + \context Voice = vb { b'2 b } >> | % 19 + + << { \times 2/3 { b,8 cs gs' b, cs gs' a, cs fs a, cs fs } } + \context Voice = vb { b2 ^( a } >> | % 20 + + << { \times 2/3 { g,8 b d g, b d fs, a ds fs, a ds } } + \context Voice = vb { g2 fs } >> | % 21 + + << { \times 2/3 { \clef F cs,8 fs a cs, fs a cs, fs gs cs, es gs } } + \context Voice = vb { cs2 ) cs ^( } >> | % 22 + + << { \times 2/3 { fs,8 a cs \clef G \stemUp a_1 cs_2 fs_4 \stemDown cs_1 fs_2 a_4 cs, fs a_3 } } + \context Voice = vb { fs,4 ) s r cs''8.^\markup { \italic { marcato ma sempre } \dynamic p } cs16 } >> | % 23 + + << { \times 2/3 { cs,8_1 gs'_2 b_4 cs, gs' b cs, gs' b cs, gs' b_3 } } + \context Voice = vb { cs2. cs8. cs16 } >> | % 24 + + << { \times 2/3 { cs,8 fs a cs, fs a bs, fs' a cs, fs a } } + \context Voice = vb { cs2^5 ^( bs4 cs } >> | % 25 + + << { \times 2/3 { ds,8 fs gs ds fs gs ds fs gs ds fs gs } } + \context Voice = vb { ds'2. ) ds4 ^( } >> | % 26 + + << { \times 2/3 { e,8 gs cs e, gs cs ds, fs a cs, e as } } + \context Voice = vb { e'2 ds4 cs } >> | % 27 + + << { \times 2/3 { bs8 bs, ds gs bs, ds a' bs, ds fs bs, ds } } + \context Voice = vb { bs'8 ) r gs4 ^( a fs ) } >> | % 28 + + << { \times 2/3 { r8 bs, ds + \change Staff = LH \stemUp gs,-1 _( \change Staff = RH \stemDown bs-2 ds-4 + \change Staff = LH \stemUp a-1 \change Staff = RH \stemDown bs-2 ds-4 + \change Staff = LH \stemUp fs,-1 \change Staff = RH \stemDown bs-2 ds-4 } } + \context Voice = vb { \slurNeutral \change Staff = LH \stemDown s4 gs, a fs } >> | % 29 + +%Merge-differently-headed doesn't quiet the too many collisions warning... :-P + << { \times 2/3 { \change Staff = LH \stemUp \once \override Staff.NoteCollision #'merge-differently-headed = ##t e8 ) \change Staff = RH \stemDown e'-1 gs-2 + cs-4 ^( e, gs e' e, gs cs ) e, gs } } + \context Voice = vb { \change Staff = LH e,8 ^( s ) \change Staff = RH \stemUp cs''4 e cs } >> | % 30 + + << { \times 2/3 { \clef F r8 e,, gs cs ^( e, gs e' e, gs cs ) e, gs } } + \context Voice = vb { s4 cs e cs \stemNeutral } >> | % 31 + + \times 2/3 + { + ds8-1 ( a-3 fs-2 bs-5 a-1 ds \clef G \stemNeutral bs-1 fs' ds a' fs bs-5 ) | % 32 + e,,8 ( cs'-4 gs-1 e'-5 cs-1 gs' e-1 cs' gs e' cs gs-2 | % 33 + cs,8-1 fss e as fss cs' as-2 e'-4 cs-2 fss-5 e-1 as-4 ) | % 34 + fs,8-1 ( bs a ds bs fs' ds-2 a'-4 fs-2 bs-5 a-1 ds-5 | % 35 + bs8-4 fs-2 a-5 ds, fs bs,-1 ds a-1 bs-5 fs-2 a-5 ds, ) | % 36 + } + + << { \times 2/3 { \stemUp fs8-4 bs,-1 ds-3 a-1 bs-5 \clef F fs-2 a-5 ds,-2 fs cs-1 fs a } } +% \context Voice = vb { s2 \stemDown \times 2/3 { s8 ds,4 } cs4 } >> | % 37 +%Bleh, using a spacer here causes a segfault... +%Same solution used below... :-( + \context Voice = vb { s2 \stemDown \times 2/3 { + \override TupletNumber #'transparent = ##t + \override TupletBracket #'transparent = ##t + \hideNotes d8 \unHideNotes ds,4 } cs4 } >> | % 37 + + << { \times 2/3 { bs8 fs' gs a gs fs ds fs a cs, fs a } } + \context Voice = vb { bs,2 ds4 cs } >> | % 38 + + << { \times 2/3 { bs8 fs' gs a gs fs d-1 fs-4 a cs, fs a } } + \context Voice = vb { bs,2 s2 } >> | % 39 + + << { \times 2/3 { bs8 fs' gs a gs fs cs e cs' cs, e cs' } } +% \context Voice = vb { \slurDown bs,2 ( \times 2/3 { cs8 ) \slurNeutral s4 } s4 } >> | % 40 + \context Voice = vb { \slurDown bs,2 ( \times 2/3 { cs8 ) \slurNeutral \hideNotes c4 \unHideNotes } s4 } >> | % 40 + + << { \times 2/3 { \stemDown ds8 a' cs ds, a' cs ds, gs bs ds, fs bs } } +% \context Voice = vb { \stemUp \times 2/3 { s8 a'4 s4. s8 gs4 s8 fs4 } } >> | % 41 + \context Voice = vb { \stemUp \times 2/3 { \hideNotes c8 \unHideNotes a4 \hideNotes a4. a8 \unHideNotes gs4 \hideNotes gs8 \unHideNotes fs4 } } >> | % 41 + + << { \times 2/3 { e8 gs cs gs-1 cs \clef G e gs, cs e-5 gs, cs e-3 } } +% \context Voice = vb { \times 2/3 { e,8 s4 } s4 r4 gs'8.^\markup{ \italic { piu marcato del principio } } gs16 } >> | % 42 + \context Voice = vb { \times 2/3 { e,8 \hideNotes c4 \unHideNotes } s4 r4 gs''8.^\markup{ \italic { piu marcato del principio } } gs16 } >> | % 42 + + << { \times 2/3 { gs,8 ds' fs-4 gs, ds' fs gs, ds' fs gs, ds' fs-3 } } + \context Voice = vb { gs2. gs8. gs16 } >> | % 43 + + << { \times 2/3 { gs,8 cs e gs, cs e a, cs fs a, cs fs } } + \context Voice = vb { gs2 a } >> | % 44 + + << { \times 2/3 { gs,8 b e gs, b e a, b ds a b ds } } + \context Voice = vb { gs2 fs4 b } >> | % 45 + + << { \times 2/3 { gs,8 b e b e gs b, e gs b, e gs } } + \context Voice = vb { e4 r r b'8. b16 } >> | % 46 + + << { \times 2/3 { b,8 fs' a b, fs' a b, fs' a b, fs' a } } + \context Voice = vb { b2. b8. b16 } >> | % 47 + + << { \times 2/3 { b,8 e gs b, e gs bs, fs' gs cs, e gs } } + \context Voice = vb { b2 bs4 cs } >> | % 48 + + << { \times 2/3 { ds,8 fs gs ds fs gs e gs cs e, gs cs } } + \context Voice = vb { ds2 e } >> | % 49 + + << { \times 2/3 { d,8 fs a d, fs a bs, fs' gs bs, fs' gs } } + \context Voice = vb { d'2 bs } >> | % 50 + + << { \times 2/3 { cs,8 e gs cs, e gs cs, es gs cs, es gs } } + \context Voice = vb { cs2. cs4 } >> | % 51 + + << { \times 2/3 { cs,8 fs a cs, fs a cs, fs a cs, fs a } } + \context Voice = vb { d2.^> bs4 } >> | % 52 + + << { \times 2/3 { cs,8 es gs cs, es gs cs, es gs cs, es gs } } + \context Voice = vb { cs2. cs4 } >> | % 53 + + << { \times 2/3 { cs,8 fs a cs, fs a cs, fs a cs, fs a } } + \context Voice = vb { d2.^> bs4 } >> | % 54 + + << { \times 2/3 { cs,8 es-2 gs-3 cs, es gs cs, fs a cs, fs a } } + \context Voice = vb { cs2 cs } >> | % 55 + + << { \times 2/3 { b,8 fs'-3 a-4 b, fs' a b, fs' a^- b, e_2 gs^-_4 } } + \context Voice = vb { b2. b4 } >> | % 56 + + << { \times 2/3 { a,8 e'_3 gs^-_4 a, ds_2 fs^-_4 gs, ds'_3 fs^-_4 gs, cs_2 e^-_3 } } + \context Voice = vb { a4 a gs gs } >> | % 57 + + << { \times 2/3 { fs,8 cs'_3 ds_4 fs, cs'_3 ds_4 gs, cs ds a cs ds } } + \context Voice = vb { fs2 gs4 a } >> | % 58 + + << { \times 2/3 { gs,8 cs_2 e_4 gs, cs e fs, bs ds_3 fs, bs ds_4 } } + \context Voice = vb { gs2 \slurUp gs ( } >> | % 59 + + << { \times 2/3 { e,8 gs cs gs-2 cs e gs,_1 cs e gs, cs e } } + \context Voice = vb { cs4 ) \slurNeutral r r2^\markup { \italic { sempre legatissimo } } } >> | % 60 + + << { \times 2/3 { \stemNeutral gs8_1 ds'_3 fs_5 gs, ds' fs gs, ds' fs gs, ds'_2 fs_4 } } + \context Voice = vb { s1 } >> | % 61 + + << { \times 2/3 { gs,8_1 e'_3 cs_2 gs'_5 e_1 cs'_4 \stemDown gs^1 e'^3 cs^2 gs'e cs } } + \context Voice = vb { s1 } >> | % 62 + + << { \times 2/3 { bs8^1 ds^4 a^1 \stemUp bs_5 fs_2 a_5 \clef F \stemDown ds,^2 fs^4 \tieDown a,^1 ~ a \tieNeutral gs fs^1 } } + \context Voice = vb { s2. bs4^5 ^( } >> | % 63 + + << { \times 2/3 { e,8_1 e'_5 \( \clef G cs_2 \stemUp gs'_5 e_1 cs'_4 \stemDown gs e' cs gs'e cs } } + \context Voice = vb { cs,4 ) s2. } >> | % 64 + + << { \times 2/3 { bs'8_1 ds_4 a_1 \stemUp bs_5 fs_2 a_5 \clef F \stemDown ds,_2 fs \tieDown a,_1 ~ a \tieNeutral gs_2 fs_1 } } + \context Voice = vb { s2. bs4^5 ^( } >> | % 65 + + << { \times 2/3 { e,8_1 \) _( gs cs e cs gs ) r e ^( gs cs gs e ) } \stemNeutral } + \context Voice = vb { cs'4^4 ) s2. \stemNeutral } >> | % 66 + + \times 2/3 { \set followVoice = ##t r8 cs, ( e gs e cs \change Staff = LH gs cs gs e gs e ) \set followVoice = ##f \change Staff = RH } | % 67 + r2 | % 68 + 1^\fermata \bar "|." % 69 +} + + +Dynamics = +{ + s1*2 | % 1-2 + s4 s s\< s8. s16\! | % 3 +% s4\pp s \times 2/3 { s8\< s s\! s\> s s\! } | % 4 + s4\pp s s8.\< s16\! s8.\> s16\! | % 4 + s1*3 | % 5-7 +% s2 \times 2/3 { s8\< s4 s s8\! } | % 8 + s2 s4..\< s16\! | % 8 +% s4 \times 2/3 { s8\> s4 s4. s4 s8\! } | % 9 + s4 s2\> s8. s16\! | % 9 + s1*2 | % 10-11 +% \times 2/3 { s8\< s4 s s8\! s\> s4 s s8\! } | % 12 + s4.\< s8\! s16 s4.\> s16\! | % 12 + s1*3 | % 13-15 +% \times 2/3 { s8\< s4 s s8\! s\> s4 s s8\! } | % 16 + s4.\< s8\! s16 s4.\> s16\! | % 16 + s1 | % 17 +% \times 2/3 { s8\< s4 s s8\! s\> s4 s s8\! } | % 18 + s4.\< s8\! s16 s4.\> s16\! | % 18 + s1*2 | % 19-20 + s2 s4\< s8. s16\! | % 21 + s4\pp s2. | % 22 + s4 s\< s8. s16\! s4 | % 23 + s1*4 | % 24-27 + s4 s2.-\markup { \dynamic p \italic { una corda } } | % 28 + s1*2 | % 29-30 + s4\pp s2. | % 31 + s2 s4\< s8. s16\! | % 32 + s4\pp s2. | % 33 + s2 s4\< s8. s16\! | % 34 + s4\p s8 s8-\markup { \italic { cresc. } } s2 | % 35 + s2 s4-\markup { \italic { dim. } } s4 | % 36 + s2 s8 s8-\markup { \italic { espress. } } s4 | % 37 + s8.\< s16\! s8.\> s16\! s4\p s4 | % 38 + s4\< s8. s16\! s4\mf s4 | % 39 + s1*2 | % 40-41 + s2 s8.\< s16\! s4 | % 42 + s1 | % 43 + s4\< s8. s16\! s4\p s4 | % 44 + s4 s4\< s8. s16\! s8.\> s16\! | % 45 + s4\p s2 s4-\markup { \italic { un poco cresc. } } | % 46 + s1 | % 47 + s4-\markup { \italic { più cresc. } } s2. | % 48 + s8\p s8-\markup { \italic { subito } } s2. | % 49 + s8 s8-\markup { \italic { più } \dynamic p } s2. | % 50 + s4\pp s2. | % 51 + s4\< s8. s16\! s4\> s8. s16\! | % 52 + s1 | % 53 + s4\< s8. s16\! s4\> s8. s16\! | % 54 + s2 s4\< s8. s16\! | % 55 + s4 s4\> s8. s16\! s4 | % 56 + s1*3 | % 57-59 + s4-\markup{ \italic { marc. } }-\markup { \italic { una corda } } s2. | % 60 + s1 | % 61 + s4\< s2 s8. s16\! | % 62 + s4\> s2 s8. s16\! | % 63 + s4\< s2 s4\! | % 64 + s1*2 | % 65-66 + s2 s4-\markup { \italic { slentando } } s4 | % 67 +} +%{ Some useful characters: ‘ ’ “ ” – — † ‡ • … %} + +LeftHand = \relative c +{ + \override TupletNumber #'transparent = ##t + \override TupletBracket #'transparent = ##t + \set tupletSpannerDuration = #(ly:make-moment 1 4) + + \time 4/4 + \key cs \minor + \clef F + + 1^\markup { \italic { una corda } } ( | % 1 + 1 | % 2 + 2 ) | % 3 + 2 | % 4 + + 1 | % 5 + 1 | % 6 + 2 ( ) | % 7 + 2 | % 8 + 1 | % 9 + 1^\markup{ \italic { una corda } } | % 10 + + 1 | % 11 + 4 ( 2 ) | % 12 + 2 ( e,4 g | % 13 + fs2 ) | % 14 + + 1 ~ | % 15 + 4 | % 16 + 1 ~ | % 17 + 4 | % 18 + + 2 ^\markup { \italic { una corda } } ( | % 19 + 2 ) | % 20 + 2 ( | % 21 + cs,2 ) cs | % 22 + + 1 | % 23 + 1 | % 24 + 2 ( 4 | % 25 + 2. ) 4 ( | % 26 + + 2 ) 4^\markup{ \italic { dimin. } } ( | % 27 + 1 ) | % 28 + 1_\markup{ \italic { il basso sempre ten. } } | % 29 +%% \property Voice.NoteColumn \override #'horizontal-shift = #1 +% \once \override NoteColumn #'force-hshift = #2.0 + 1 | % 30 + +%None of these work... +%Horrible kludge to overcome Lily's lack of sense in this area +%{ << +% { \hideNotes a1 \unHideNotes } \\ + { a1 } \\ +% \once \override NoteColumn #'force-hshift = #2.0 + 1 + >> + | % 30 +%} +%{ << + { a1 } + \context Voice = vc + { + 1 + } + >>%} + + 1 | % 31 + 1 | % 32 + 1 | % 33 + 1 | % 34 + + 1 ~ | % 35 + 1 ~ | % 36 + 1 | % 37 + 1 | % 38 + + 1 | % 39 + 2^\markup{ \italic { dim. } } ( ^\markup{ \italic { una corda } } | % 40 + ^\markup{ \italic { poco riten. } } ) | % 41 + 1^\markup { \italic{ a tempo } }^\markup{ \dynamic pp }_\markup { \italic grave } | % 42 + + 1 | % 43 + 2 | % 44 + 2 | % 45 + 1 | % 46 + + 1 | % 47 + 2 4-3 | % 48 + 2 ( ) | % 49 + 2 ( ) | % 50 + + 1 ~ | % 51 + 4 | % 52 + 1 ~ | % 53 + 4 | % 54 + + 2 | % 55 + 2. 4 ( | % 56 + ) | % 57 + 2 ( 4 | % 58 + + 2 ) | % 59 + << +% \context Voice = va + { + gs2. gs8._1 gs16_2 | % 60 + gs2. gs8._1 gs16_2 | % 61 + gs2. gs8. gs16 | % 62 + gs2. gs8. gs16 | % 63 + gs2. gs8. gs16 | % 64 + gs2. gs8. gs16 | % 65 + gs2^2^\markup { \italic dimin. } ^( cs | % 66 + gs2 ) s | % 67 + } + \context Voice = vc + { + cs,1 | bs1 | cs1 | gs1 | cs1 | gs1 | cs1 | cs1 | % 60-7 (voice 2) + } + >> + + cs2 ^\pp | % 68 + 1^\fermata^\ppp \bar "|." % 69 +} + + +\score +{ + << + \context PianoStaff + << +%\override PianoStaff.VerticalAlignment #'forced-distance = #6.5 % gap between staves +%\set PianoStaff.midiInstrument = "acoustic grand" + + \context Staff = "RH" { \override Staff.DynamicLineSpanner #'staff-padding = #5.5 +<< \RightHand \Dynamics >> } + \context Staff = "LH" { \LeftHand } + >> + >> + + \layout + { +% ragged-last-bottom = ##t + ragged-last = ##t + } + +% + \midi { + \tempo 4 = 84 + } + + +} diff --git a/more-love-more-power.ly b/more-love-more-power.ly new file mode 100755 index 0000000..09adfc7 --- /dev/null +++ b/more-love-more-power.ly @@ -0,0 +1,545 @@ +\version "2.16.0" +\include "pop-chords.ly" +\include "english.ly" + +% Good sizes are 16, 18, & 20 +staffSize = #18 +#(set-default-paper-size "letter") +#(set-global-staff-size staffSize) +#(ly:set-option (quote no-point-and-click)) + +\header +{ +%Let's bump up the title size and switch to the chord font. :-) + + title = \markup { \override #'(font-family . sans) \fontsize #3.5 "More Love, More Power" } + composer = \markup { \override #'(font-family . sans) \fontsize #1.3 "Del Hierro" } + arranger = \markup { \override #'(font-family . sans) \fontsize #1.3 "arr. Ed Smart" } + tagline = "Engraved by JLH and Lilypond 2.8.6" +} + + +% +% Lead vocal +% + +LeadVox = \relative c' +{ +% \set Voice.autoBeaming = ##f +% \set Staff.instrumentName = #"Lead vox" + \clef G + \key e \minor + \override Staff.TimeSignature #'style = #'() + \time 4/4 +\override Score.SpacingSpanner #'average-spacing-wishes = ##f + + % Intro + + \repeat volta 2 + { + c4 c c c | % 1 + c4 c c c | % 2 + c4 c c c | % 3 + c4 c c c | % 4 + } + + \repeat volta 2 + { + % Verse + + c4 c c c | % 5 + c4 c c c | % 6 + c4 c c c | % 7 + c4 c c c | % 8 + c4 c c c | % 9 + c4 c c c | % 10 + c4 c c c | % 11 + c4 c c c \bar "||" % 12 + + c4 c c c | % 13 + c4 c c c | % 14 + c4 c c c | % 15 + c4 c c c | % 16 + c4 c c c | % 17 + c4 c c c | % 18 + c4 c c c | % 19 + c4 c c c \bar "||" % 20 + + % Chorus + + c4 c c c | % 21 + c4 c c c | % 22 + c4 c c c | % 23 + c4 c c c | % 24 + c4 c c c | % 25 + c4 c c c | % 26 + c4 c c c | % 27 + c4 c c c | % 28 + c4 c c c | % 29 + c4 c c c | % 30 + c4 c c c | % 31 + c4 c c c | % 32 + c4 c c c | % 33 + c4 c c c | % 34 + c4 c c c | % 35 + } + \alternative + { + { + c4 c c c | % 36 + c4 c c c | % 37 + c4 c c c | % 38 + c4 c c c | % 39 + c4 c c c | % 40 + c4 c c c | % 41 + c4 c c c | % 42 + c4 c c c | % 43 + c4 c c c | % 44 + } + { + c4 c c c | % 45 + } + } + + \repeat volta 4 + { + c4 c c c | % 46 + c4 c c c | % 47 + } + \alternative + { + { + c4 c c c | % 48 + c4 c c c | % 49 + } + { + c4 c c c | % 50 + c4 c c c | % 51 + } + } + + \repeat volta 2 + { + c4 c c c | % 52 + c4 c c c | % 53 + c4 c c c | % 54 + c4 c c c | % 55 + c4 c c c | % 56 + c4 c c c | % 57 + c4 c c c | % 58 + c4 c c c | % 59 + c4 c c c | % 60 + c4 c c c | % 61 + c4 c c c | % 62 + c4 c c c | % 63 + c4 c c c | % 64 + c4 c c c | % 65 + } + \alternative + { + { + c4 c c c | % 66 + c4 c c c | % 67 + } + { + c4 c c c | % 68 + } + } + + c4 c c c | % 69 + + \repeat volta 2 + { + c4 c c c | % 70 + c4 c c c | % 71 + c4 c c c | % 72 + c4 c c c | % 73 + } + + c1^\fermata \bar "|." % 74 + + + +%{ + % Intro + + R1^\markup { 8th note ballad, s. stick & colors } | % 1 + R1 | % 2 + R1 | % 3 + r2 r4. d8 \bar "||" % 4 + + % Verse + +\once \override Score.RehearsalMark #'self-alignment-X = #left +\mark \markup { \override #'(font-family . sans) { \box { A } } \hspace #1.0 \raise #2.0 \musicglyph #"scripts.segno" } + + g8 g g g fs4 d8 ( fs | % 5 + e4 ) e16 ( d e8 ) d4 r | % 6 + r8 g16 g g a g8 fs fs g16 a8 ( g16 ) | % 7 + g2 r4. d8 | % 8 + g8 g g g fs4 d8 ( fs | % 9 + e4 ) e16 ( d e8 ) d4 r | % 10 + r8 g16 g g a g8 fs fs g16 a8 ( g16 ) | % 11 + g2 r \bar "||:" % 12 + + % Chorus + + \repeat volta 3 + { +\mark \markup { \override #'(font-family . sans) { \box { B } } } + + c8.^\markup { \italic { 2nd time snare } } c16 c8 b a4 g8 a | % 13 + b8 b4 a16 ( g ) g4 r8 g | % 14 + c4 c8 b a a a16 g a8 | % 15 + b2 r4. g8 | % 16 + c4. b16 ( a ) a4. r16 g | % 17 + b8. c16 b8 a g e ~ e4 | % 18 + r8 g16 g g a g8 fs fs g16 a8 ( g16 ) | % 19 + } + \alternative + { + { + g2 r | % 20 + r2 r4.^\markup { \hspace #0.0 \raise #0.65 \bold D.S. } d8 \bar "||" % 21 + } + { + g2 r | % 22 + } + { + g2 r | % 23 + } + } + + % Ending + + r8 g16 g g a g8 fs fs fs16 a ( g8 ) | % 24 + g2 r | % 25 + r8 g16 g g a g8 fs fs fs16 a ( g8 ) | % 26 + g1^\fermata \bar "|." % 27 +%} +} + +LeadVoxText = \lyricmode +{ + More love, more po- wer + more of you in my life + More love, more po- wer + more of you in my life + + And I will wor- ship you with all of my heart +} + + +% +% Chord names +% + +Chords = \chordmode +{ +%Bah, can't we set this globally? +% \popChords + + % Intro + + \repeat volta 2 + { + c4 c c c | % 1 + c4 c c c | % 2 + c4 c c c | % 3 + c4 c c c | % 4 + } + + \repeat volta 2 + { + % Verse + + c4 c c c | % 5 + c4 c c c | % 6 + c4 c c c | % 7 + c4 c c c | % 8 + c4 c c c | % 9 + c4 c c c | % 10 + c4 c c c | % 11 + c4 c c c | % 12 + + c4 c c c | % 13 + c4 c c c | % 14 + c4 c c c | % 15 + c4 c c c | % 16 + c4 c c c | % 17 + c4 c c c | % 18 + c4 c c c | % 19 + c4 c c c | % 20 + + % Chorus + + c4 c c c | % 21 + c4 c c c | % 22 + c4 c c c | % 23 + c4 c c c | % 24 + c4 c c c | % 25 + c4 c c c | % 26 + c4 c c c | % 27 + c4 c c c | % 28 + c4 c c c | % 29 + c4 c c c | % 30 + c4 c c c | % 31 + c4 c c c | % 32 + c4 c c c | % 33 + c4 c c c | % 34 + c4 c c c | % 35 + } + \alternative + { + { + c4 c c c | % 36 + c4 c c c | % 37 + c4 c c c | % 38 + c4 c c c | % 39 + c4 c c c | % 40 + c4 c c c | % 41 + c4 c c c | % 42 + c4 c c c | % 43 + c4 c c c | % 44 + } + { + c4 c c c | % 45 + } + } + + \repeat volta 4 + { + c4 c c c | % 46 + c4 c c c | % 47 + } + \alternative + { + { + c4 c c c | % 48 + c4 c c c | % 49 + } + { + c4 c c c | % 50 + c4 c c c | % 51 + } + } + + \repeat volta 2 + { + c4 c c c | % 52 + c4 c c c | % 53 + c4 c c c | % 54 + c4 c c c | % 55 + c4 c c c | % 56 + c4 c c c | % 57 + c4 c c c | % 58 + c4 c c c | % 59 + c4 c c c | % 60 + c4 c c c | % 61 + c4 c c c | % 62 + c4 c c c | % 63 + c4 c c c | % 64 + c4 c c c | % 65 + } + \alternative + { + { + c4 c c c | % 66 + c4 c c c | % 67 + } + { + c4 c c c | % 68 + } + } + + c4 c c c | % 69 + + \repeat volta 2 + { + c4 c c c | % 70 + c4 c c c | % 71 + c4 c c c | % 72 + c4 c c c | % 73 + } + + c1 | % 74 +} + + +% +% Chord rhythms +% + +% Use a RhythmicStaff on the chords instead of this? +% It almost works, but not quite. Doesn't collapse chords above to single notes... + +StaffC = \relative c +{ +% \set Voice.autoBeaming = ##f +% \set Staff.instrumentName = #"Rhythm" + \override Staff.TimeSignature #'style = #'() + \time 4/4 + \override NoteHead #'style = #'slash + + % Intro + + \repeat volta 2 + { + c4 c c c | % 1 + c4 c c c | % 2 + c4 c c c | % 3 + c4 c c c | % 4 + } + + \repeat volta 2 + { + % Verse + + c4 c c c | % 5 + c4 c c c | % 6 + c4 c c c | % 7 + c4 c c c | % 8 + c4 c c c | % 9 + c4 c c c | % 10 + c4 c c c | % 11 + c4 c c c \bar "||" % 12 + + c4 c c c | % 13 + c4 c c c | % 14 + c4 c c c | % 15 + c4 c c c | % 16 + c4 c c c | % 17 + c4 c c c | % 18 + c4 c c c | % 19 + c4 c c c \bar "||" % 20 + + % Chorus + + c4 c c c | % 21 + c4 c c c | % 22 + c4 c c c | % 23 + c4 c c c | % 24 + c4 c c c | % 25 + c4 c c c | % 26 + c4 c c c | % 27 + c4 c c c | % 28 + c4 c c c | % 29 + c4 c c c | % 30 + c4 c c c | % 31 + c4 c c c | % 32 + c4 c c c | % 33 + c4 c c c | % 34 + c4 c c c | % 35 + } + \alternative + { + { + c4 c c c | % 36 + c4 c c c | % 37 + c4 c c c | % 38 + c4 c c c | % 39 + c4 c c c | % 40 + c4 c c c | % 41 + c4 c c c | % 42 + c4 c c c | % 43 + c4 c c c | % 44 + } + { + c4 c c c | % 45 + } + } + + \repeat volta 4 + { + c4 c c c | % 46 + c4 c c c | % 47 + } + \alternative + { + { + c4 c c c | % 48 + c4 c c c | % 49 + } + { + c4 c c c | % 50 + c4 c c c | % 51 + } + } + + \repeat volta 2 + { + c4 c c c | % 52 + c4 c c c | % 53 + c4 c c c | % 54 + c4 c c c | % 55 + c4 c c c | % 56 + c4 c c c | % 57 + c4 c c c | % 58 + c4 c c c | % 59 + c4 c c c | % 60 + c4 c c c | % 61 + c4 c c c | % 62 + c4 c c c | % 63 + c4 c c c | % 64 + c4 c c c | % 65 + } + \alternative + { + { + c4 c c c | % 66 + c4 c c c | % 67 + } + { + c4 c c c | % 68 + } + } + + c4 c c c | % 69 + + \repeat volta 2 + { + c4 c c c | % 70 + c4 c c c | % 71 + c4 c c c | % 72 + c4 c c c | % 73 + } + + c1^\fermata \bar "|." % 74 +} + + +\score +{ + << + << + \new Staff = leadStaff { \new Voice = "lead" \LeadVox } + \new Lyrics \lyricsto "lead" \LeadVoxText + >> + + \new ChoirStaff = "Rhythm" + << + \new ChordNames = "chords" \Chords + \new RhythmicStaff = "chordRhythm" \StaffC + >> + + \set Score.skipBars = ##t + \set Score.melismaBusyProperties = #'() + >> + + \layout + { +% \context { \Staff \RemoveEmptyStaves } +% ragged-last-bottom = ##t +% ragged-last = ##t + } +} + + +\paper +{ + #(define fonts (make-pango-font-tree + "Times New Roman" + "DomCasual BT" + "Luxi Mono" + (/ staffSize 20))) +} diff --git a/mourning-into-dancing.ly b/mourning-into-dancing.ly new file mode 100644 index 0000000..8964e81 --- /dev/null +++ b/mourning-into-dancing.ly @@ -0,0 +1,465 @@ +\version "2.16.0" +\include "pop-chords.ly" +\include "english.ly" + +% Good sizes are 16, 18, & 20 +staffSize = #20 +#(set-default-paper-size "letter") +#(set-global-staff-size staffSize) +#(ly:set-option (quote no-point-and-click)) + +%{ Some useful characters: ‘ ’ “ ” – — † ‡ • … %} + +\header +{ +%Let's bump up the title size and switch to the chord font. :-) + + title = \markup { \override #'(font-family . sans) \fontsize #3.5 "Mourning Into Dancing" } + composer = \markup { \override #'(font-family . sans) \fontsize #1.3 "Tommy Walker" } + arranger = \markup { \override #'(font-family . sans) \fontsize #1.3 "arr. Ed Smart" } + tagline = $(string-append "Engraved by JLH and Lilypond " (lilypond-version)) +% Let's try a chord dictionary +% subtitle = \markup { \center-column { "F#m" \fret-diagram-terse #"x;x;4;2;2;2;" } " " \center-column { "F#m/F" \fret-diagram-terse #"x;x;3;2;2;2;" } " " \center-column { "F#m/E" \fret-diagram-terse #"x;x;2;2;2;2;" } " " \center-column { "F#m/Eb" \fret-diagram-terse #"x;x;1;2;2;2;" } " " \center-column { "Em7" \fret-diagram-terse #"o;2;2;o;3;o;" } " " \center-column { "A13" \fret-diagram-terse #"x;o;2;o;2;2;" } } +} + +% Useful tweak abbreviations (hn = harmony note) + +hn = #(define-music-function (parser location arg) (ly:music?) +;; Harmony Note: Set the tweaks property of the passed in note to use a smaller font + + (set! (ly:music-property arg 'tweaks) + (acons 'font-size -3.0 (ly:music-property arg 'tweaks))) arg) + + +% +% Song's structure +% +Global = +{ + \key g \major + \override Staff.TimeSignature #'style = #'() + \time 4/4 + + \once \override TextScript #'padding = #2.0 + s1*0^\markup { \large \bold { Samba } } +% Capo 4 version +% s1*0^\markup { \hspace #0.0 \raise #2.0 \larger \bold { "Moderate pop (*** CAPO 4 ***)" } } + + % Intro + +%\clef f +% s1*3 +% s2. +%\clef g + s1*4 \bar "||:" % 1-4 + + \repeat volta 2 + { + % Verse + + \mark \markup { \override #'(font-family . sans) { \box { A } } } + + s1*8 \bar "||" % 5-12 + s1*8 \bar "||" % 13-20 + + % Chorus + + \mark \markup { \override #'(font-family . sans) { \box { B } } } + + s1*7 | % 21-27 + } + \alternative + { + { + s1*2 | % 28-29 + } + { + s1 \bar "||" % 30 + } + } + + % Bridge + + \mark \markup { \override #'(font-family . sans) { \box { C } } } + + s1*8 \bar "||:" % 31-38 + + \repeat volta 2 + { + % Chorus + + \mark \markup { \override #'(font-family . sans) { \box { D } } } + + s1*8 \bar "||" % 39-46 + + % Tutti + + \mark \markup { \override #'(font-family . sans) { \box { E } } } + + s1*8 | % 47-54 + } +} + + +% +% Lead vocal +% +LeadVox = \relative c' +{ +% \set Staff.instrument = #"Lead vox" + \clef F + \override Staff.TimeSignature #'style = #'() +%Hm. Needed anymore? +% \override Score.SpacingSpanner #'average-spacing-wishes = ##f + + % Intro + + s1 | % 1 + s1 | % 2 + s1 | % 3 + s2. \clef G e8 g | % 4 + + % Verse + + b4. b8 a8. g16 ~ g8 g | % 5 + r2 r4 r8 g | % 6 + b4. b8 a8. g16 ~ g8 g | % 7 + r2 r4 e8 g | % 8 + b4. b8 a8. g16 ~ g8 g | % 9 + r2 r4 e8 g | % 10 + b4. b8 a8. g16 ~ g8 g | % 11 + r2 b8. a16 ~ a8 g | % 12 + + a4. bf8 a g4 g8 | % 13 + r2 g8. e16 ~ e8 d | % 14 + d4 b'2. | % 15 + r2 b8. a16 ~ a8 g | % 16 + a4. bf8 a g4 g8 | % 17 + r2 r4 e8 g | % 18 + a4. bf8 a4 r8 g | % 19 + c4 b c d | % 20 + + % Chorus + + r4 d c b8. a16 ~ | % 21 + a8 g r4 a b | % 22 + c8. b16 ~ b8 a g4 r8 d | % 23 + g8. a16 ~ a8 b b8. a16 ~ a8 r | % 24 + r4 d c b8. a16 ~ | % 25 + a8 g r4 a b | % 26 + c8. b16 ~ b8 a g8. fs16 ~ fs8 g ~ | % 27 + + g2 r | % 28 + r2 r4 e8 g | % 29 + + g2-\repeatTie r | % 30 + + % Bridge + + r4 r8 a a8. g16 ~ g8 g ~ | % 31 + g2 r4 e8 g | % 32 + a4. a8 ~ a8 g4 g8 ~ | % 33 + g2 r4 e8 g | % 34 + b4. b8 ~ b b4 a8 ~ | % 35 + a2 r4 e8 g | % 36 + b4. a8 a4 r8 a | % 37 + c4 b c d | % 38 + + % Chorus + + r4 d c b8. a16 ~ | % 39 + a8 g r4 a b | % 40 + c8. b16 ~ b8 a g4 r8 d | % 41 + g8. a16 ~ a8 b b8. a16 ~ a8 r | % 42 + r4 d c b8. a16 ~ | % 43 + a8 g r4 a b | % 44 + c8. b16 ~ b8 a g8. fs16 ~ fs8 g ~ | % 45 + g2 r | % 46 + + % Tutti + + s1*8 | % 47-54 +} + + +LeadVoxText = \lyricmode +{ + Where there once was on -- ly _ hurt + he gave his hea -- ling _ hand, + Where there once was on -- ly _ pain + he brought com -- fort like a _ friend, + + I feel _ the sweet -- ness of his love + pier -- cing _ my dark -- ness, + I see _ the bright and mor -- ning sun + as it ush -- ers in his joy -- ful glad -- ness, + + He’s turned my mour -- _ ning + in -- to danc -- ing _ a -- gain, + he’s lift -- ed _ my sor -- rows; _ + I can’t stay si -- _ lent + I must sing for _ his joy has _ come. _ + + Where there + _ + + His an -- ger _ lasts _ + for a mo -- ment _ in time _ + but his fa -- vor _ is here _ + and will be on me for + all my life -- time + + He’s turned my mour -- _ ning + in -- to danc -- ing _ a -- gain + he’s lift -- ed _ my sor -- rows, _ + I can’t stay si -- _ lent + I must sing for _ his joy has _ come. _ +} + + +Riffs = \relative c +{ +% \clef G +%Hm. Needed anymore? +% \override Score.SpacingSpanner #'average-spacing-wishes = ##f + + % Intro + + \tiny + \repeat percent 3 { g8. b16 ~ b8 d c8. e16 ~ e8 g } | % 1-3 + g,8. b16 ~ b8 d c4 s | % 4 + + % Verses, etc + + s1*42 | % 5-46 + + % Tutti + +% \set countPercentRepeats = ##t +% \repeat percent 2 { + s1*0^\markup { \bold { Tutti } } + g''8 b16 d ~ d g8 e16-^ ~ e c8.-^ ~ c8 a16 g | % 47 + fs8 a16 c ~ c e8 d16 ~ d cs8 cs16 e8 d | % 48 + g,8 b16 d ~ d g8 e16 ~ e c8 e16 gs a8 b16 | % 49 + c16 b8 a16 fs8 g r2 | % 50 +%} + g,8 b16 d ~ d g8 e16-^ ~ e c8.-^ ~ c8 a16 g | % 51 + fs8 a16 c ~ c e8 d16 ~ d cs8 cs16 e8 d | % 52 + g,8 b16 d ~ d g8 e16 ~ e c8 e16 gs a8 b16 | % 53 + c16 b8 a16 fs8 g r2 | % 54 + \normalsize +} + + +% +% Chord names +% +Chords = \chordmode +{ + % Intro + + g2 c:6 | % 1 + g2 c:6 | % 2 + g2 c:6 | % 3 + g2 c:6 | % 4 + + % Verse + + g2 c:6 | % 5 + g2 c:6 | % 6 + g2 c:6 | % 7 + g2 c:6 | % 8 + g2 c:6 | % 9 + g2 c:6 | % 10 + g2 c:6 | % 11 + g2 c:6 | % 12 + + f2.. c8:sus2/e | % 13 + s1 | % 14 + g2 c:6 | % 15 + g2 c:6 | % 16 + f2.. c8:sus2/e | % 17 + s1 | % 18 + f1/ef | % 19 + c4/d g/d g/d d8. g16 | % 20 + + % Chorus + + s2 ef4..:dim7 e16:m7 | % 21 + s2 d4/fs g | % 22 + a2:m7 g/b | % 23 + c2 g4/d d8. g16 | % 24 + s2 ef4..:dim7 e16:m7 | % 25 + s2 d4/fs e/gs | % 26 + a8.:m7 g/b c8:6 g8./d d g8 | % 27 + + s2 c:6 | % 28 + g2 c:6 | % 29 + + g1 | % 30 + + % Bridge + + d2..:m7/g g8 | % 31 + s1 | % 32 + g2..:9.11+ g8 | % 33 + s1 | % 34 + e2..:m7/a a8 | % 35 + s1 | % 36 + a1:9.11+ | % 37 + c4/d g/d c/d d8. g16 | % 38 + + % Chorus + + g2 ef4..:dim7 e16:m7 | % 39 + s2 d4/fs g | % 40 + a2:m7 g/b | % 41 + c2 g4/d d8. g16 | % 42 + s2 ef4..:dim7 e16:m7 | % 43 + s2 d4/fs e/gs | % 44 + a8.:m7 g/b c8:6 g8./d d g8 | % 45 + s2 \parenthesize c4 \parenthesize d8. \parenthesize g16 | % 46 +} + + +% +% Chord rhythms +% +% Use a RhythmicStaff on the chords instead of this? +% It almost works, but not quite. Doesn't collapse chords above to single notes... +% +Rhythm = \relative c +{ +%% \set Voice.autoBeaming = ##f +%% \set Staff.instrument = #"Rhythm" + \override Staff.TimeSignature #'style = #'() + \override NoteHead #'style = #'slash + +%Not small enough... + \teeny +% \magnify #0.3 + + % Intro + + \repeat percent 3 { c8. c16 ~ c8 c c8. c16 ~ c8 c8 } | % 1-3 + c8. c16 ~ c8 c c4-^ r | % 4 + + % Verse + + \repeat percent 8 { c8. c16 ~ c8 c c8. c16 ~ c8 c8 } | % 5-12 + + c2..-> c8 ~ | % 13 + c1 | % 14 + \repeat percent 2 { c8. c16 ~ c8 c c8. c16 ~ c8 c8 } | % 15-16 + c2..-> c8 ~ | % 17 + c1 | % 18 + c1-> | % 19 + c4-> c-> c-> c8.-> c16-> ~ | % 20 + + % Chorus + + c4 c c c8. c16 ~ | % 21 + c4 c c c | % 22 + c4 c c c | % 23 + c4 c c c8. c16 ~ | % 24 + c4 c c c8. c16 ~ | % 25 + c4 c c c | % 26 + c8. c16 ~ c8 c c8. c16 ~ c8 c-> ~ | % 27 + + c8. c16 ~ c8 c c8. c16 ~ c8 c8 | % 28 + c8. c16 ~ c8 c c4-^ r | % 29 + + c1 | % 30 + + % Bridge + + c2.. c8-> ~ | % 31 + c1 | % 32 + c2.. c8-> ~ | % 33 + c1 | % 34 + c2.. c8-> ~ | % 35 + c1 | % 36 + c1 | % 37 + c4 c c c8. c16 ~ | % 38 + + % Chorus + + c4 c c c8. c16 ~ | % 39 + c4 c c c | % 40 + c4 c c c | % 41 + c4 c c c8. c16 ~ | % 42 + c4 c c c8. c16 ~ | % 43 + c4 c c c | % 44 + c8. c16 ~ c8 c c8. c16 ~ c8 c-> ~ | % 45 + c2 \parenthesize c4 \parenthesize c8. \parenthesize c16 | % 46 + + % Tutti +%{ + r1 | % 47 + r1 | % 48 + r1 | % 49 + r1 | % 50 + r1 | % 51 + r1 | % 52 + r1 | % 53 + r1 | % 54 +%} +} + + +Dynamics = +{ +% s1*4 | % 1-4 +% s4_\markup { \italic { 1st X: Melody, 2nd X+: Solos } } s2. | % 5 + s1*38 | % 1-38 + s4_\markup { \bold \italic { Double Chorus 2nd X } } s2. | % 39 + s1*7 | % 40-46 +% s4_\markup { \bold { Tutti } } s2. | % 47 +} + + +\score +{ + << + \set Score.skipBars = ##t + \set Score.melismaBusyProperties = #'() + +% \new Staff + << + \new ChordNames \Chords +%Capo 4 edition +% \new ChordNames \transpose b g \Chords + \new RhythmicStaff << \Rhythm \Dynamics >> + >> + + \new Staff + << + \Global % The "roadmap" that everything else depends on + \new Voice = "lead" \LeadVox + \new Voice \Riffs + \new Lyrics \lyricsto "lead" \LeadVoxText + >> + >> +} + + +\paper +{ + #(define fonts (make-pango-font-tree + "Times New Roman" + "DomCasual BT" + "Luxi Mono" + (/ staffSize 20))) + +% Spread staves vertically across last page (default: t) + ragged-last-bottom = ##f +% Don't spread staves vertically across the page (default: f) +% ragged-bottom = ##t +% Allow partial line for last stave (default: f) +% ragged-last = ##t + +% To find out what's eating the space at the top... +% annotate-spacing = ##t +%let's try this: [It works! Huzzah!] + obsolete-page-top-space = 0 top-system-spacing #'basic-distance = #(/ obsolete-page-top-space staff-space) +} diff --git a/my-redeemer-lives.ly b/my-redeemer-lives.ly new file mode 100644 index 0000000..3b22c6a --- /dev/null +++ b/my-redeemer-lives.ly @@ -0,0 +1,389 @@ +\version "2.16.0" +\include "pop-chords.ly" +\include "english.ly" + +% Good sizes are 16, 18, & 20 +staffSize = #18 +#(set-default-paper-size "letter") +#(set-global-staff-size staffSize) +#(ly:set-option (quote no-point-and-click)) + +\header +{ +%Let's bump up the title size and switch to the chord font. :-) + + title = \markup { \override #'(font-family . sans) \fontsize #3.5 "My Redeemer Lives" } + composer = \markup { \override #'(font-family . sans) \fontsize #1.3 "Reuben Morgan" } + arranger = \markup { \override #'(font-family . sans) \fontsize #1.3 "arr. Drippin’ Soul" } + tagline = $(string-append "Engraved by JLH and Lilypond " (lilypond-version)) +} + + +% +% Lead vocal +% + +LeadVox = \relative c'' +{ +% \set Voice.autoBeaming = ##f +% \set Staff.instrument = #"Lead vox" + \clef G + \key e \major + \override Staff.TimeSignature #'style = #'() + \time 4/4 +\override Score.SpacingSpanner #'average-spacing-wishes = ##f + + % Intro + + \repeat volta 2 + { + R1 | % 1 + R1 | % 2 + } + + \repeat volta 3 + { + % Verse + +\mark \markup { \override #'(font-family . sans) { \box { A } } } + + r4 gs gs4. fs8 | % 3 + fs8 e cs e ~ e4 r | % 4 + r4 gs gs4. fs8 | % 5 + fs8 e cs e ~ e e fs gs ~ ( | % 6 + gs2 ~ gs4. ~ gs16 fs | % 7 + e4 ) r r8 a a a ( | % 8 + gs4 ) r r2 | % 9 + R1 | % 10 + r4 gs gs4. fs8 | % 11 + fs8 e cs e ~ e4 r | % 12 + r4 gs gs4. fs8 | % 13 + fs8 e cs e ~ e e fs gs ~ ( | % 14 + gs2 ~ gs4. ~ gs16 fs | % 15 + e4 ) r r8 a a a ( | % 16 + gs4 ) r r2 | % 17 + R1 \bar "||" % 18 + + % Prechorus + +\mark \markup { \override #'(font-family . sans) { \box { B } } } + + r4 fs fs e8 fs ~ | % 19 + fs8 gs4. r2 | % 20 + r8 e a4 a r8 a8 | % 21 + a8 gs a8 b ~ b r gs b \bar "||" % 22 + + % Chorus + +\mark \markup { \override #'(font-family . sans) { \box { C } } \hspace #1.0 \raise #2.0 \musicglyph #"scripts.segno" } + + b2 gs4. e8 ~ | % 23 + e4 r r gs8 b | % 24 + b2 gs4. a16 ( gs | % 25 + fs4 ) r r gs8 b | % 26 + b2 gs4. e8 ~ | % 27 + e4 r r gs8 b | % 28 + } + \alternative + { + { + b2 gs4. a16 ( gs | % 29 + fs2. ) r4 | % 30 + } + { + b2 gs4. a16 ( gs | % 31 + fs2. ) r4^\markup { \hspace #0.0 \raise #0.6 { D.S. } } \bar "||" % 32 + } + { + b2 gs4. a16 ( gs | % 33 + fs2. ) r4 | % 34 + } + } + + r1-\fermata \bar "|." % 35 +} + +LeadVoxText = \lyricmode +{ + I know he res -- cued my soul, __ _ + His blood has cov -- ered my sins, _ + I be -- lieve, __ _ _ _ _ _ + I be -- lieve; _ + + My shame he’s tak -- en a -- way, __ _ + My pain is healed in his name, _ + I be -- lieve, __ _ _ _ _ _ + I be -- lieve; _ + + I’ll raise a ban -- _ ner + ’cause my Lord has con -- quered the grave. _ + + My Re -- deem -- er lives, _ + my Re -- deem -- er lives; _ _ + My Re -- deem -- er lives, _ + my Re -- + + deem -- er lives. _ _ + + deem -- er lives. _ _ + + deem -- er lives. _ _ +} + + +% +% Riff/rhythm figures +% + +Riffs = \relative c'' +{ + \clef G + \key e \major + \override Staff.TimeSignature #'style = #'() + \time 4/4 +\override Score.SpacingSpanner #'average-spacing-wishes = ##f + + % Intro + +%{ + \tiny + \repeat "percent" 3 % 1 - 6 + { + << { \tiny f16 c f, ~ f, c' f f8 e } \\ { \tiny f,,2 c'4 } >> | % 1 + << { \tiny f'16 c f, ~ f, c' f f8 e } \\ { \tiny bf,2 c4 } >> | % 2 + } + << s2. \\ { \tiny d2 c4 } >> | % 7 + << s2. \\ { \tiny bf2. } >> | % 8 + + s2.*7 + + \voiceOne + \repeat "percent" 6 { f''16 c f, ~ f, c' f f8 e | } % 16-21 + \oneVoice + + s2.*7 + + \voiceOne + \repeat "percent" 2 { f16 c f, f' ~ f f, c' f f8 e | } % 29-30 + \oneVoice + + \key g \major + + \voiceOne + \repeat "percent" 2 { g16 d g, g' ~ g g, d' g g8 fs | } % 31-32 + \oneVoice + + s2.*7 + + \voiceOne + \repeat "percent" 4 { g16 d g, g' ~ g g, d' g g8 fs | } % 40-43 + \oneVoice + \normalsize +%} +} + + +% +% Chord names +% + +Chords = \chordmode +{ +%Needed??? + \override SeparatingGroupSpanner #'padding = #'2.0 +% Bah, can't we set this globally? +% \popChords + + % Intro + + \repeat volta 2 + { + e1:7 | % 1 + a1:7 | % 2 + } + + \repeat volta 3 + { + % Verse + + e1:7 | % 3 + a1 | % 4 + e1:7 | % 5 + a1 | % 6 + e1:7 | % 7 + a1:7 | % 8 + e1:7 | % 9 + a1:7 | % 10 + e1:7 | % 11 + a1 | % 12 + e1:7 | % 13 + a1 | % 14 + e1:7 | % 15 + a1:7 | % 16 + e1:7 | % 17 + a1:7 | % 18 + + % Prechorus + + b1:sus4 | % 19 + s1 | % 20 + a1 | % 21 + a1/b | % 22 + + % Chorus + + e1 | % 23 + a1 | % 24 + cs1:m7 | % 25 + b1:sus4 | % 26 + e1 | % 27 + a1 | % 28 + } + \alternative + { + { + cs1:m7 | % 29 + b1:sus4 | % 30 + } + { + cs1:m7 | % 31 + b1:sus4 | % 32 + } + { + cs1:m7 | % 33 + b1:sus4 | % 34 + } + } + + e1:^3 | % 35 +} + + +% +% Chord rhythms +% + +% Use a RhythmicStaff on the chords instead of this? +% It almost works, but not quite. Doesn't collapse chords above to single notes... + +StaffC = \relative c +{ +% \set Voice.autoBeaming = ##f +% \set Staff.instrument = #"Rhythm" + \override Staff.TimeSignature #'style = #'() + \time 4/4 + \override NoteHead #'style = #'slash + + % Intro + + \repeat volta 2 + { + c4 c c c | % 1 + c4 c c c | % 2 + } + + \repeat volta 3 + { + % Verse + + c4 c c c | % 3 + c4 c c c | % 4 + c4 c c c | % 5 + c4 c c c | % 6 + c4 c c c | % 7 + c4 c c c | % 8 + c4 c c c | % 9 + c4 c c c | % 10 + c4 c c c | % 11 + c4 c c c | % 12 + c4 c c c | % 13 + c4 c c c | % 14 + c4 c c c | % 15 + c4 c c c | % 16 + c4 c c c | % 17 + c4 c c c \bar "||" % 18 + + % Prechorus + + c4 c c c | % 19 + c4 c c c | % 20 + c4 c c c | % 21 + c4 c c c \bar "||" % 22 + + % Chorus + + c4 c c c | % 23 + c4 c c c | % 24 + c4 c c c | % 25 + c4 c c c | % 26 + c4 c c c | % 27 + c4 c c c | % 28 + } + \alternative + { + { + c4 c c c | % 29 + c4 c c c | % 30 + } + { + c4 c c c | % 31 + c4 c c c | % 32 + } + { + c4 c c c | % 33 + c4 c c c | % 34 + } + } + + c1-\fermata \bar "|." % 35 +} + + +Dynamics = +{ +%{ + \override TextScript #'extra-offset = #'( 0.0 . -1.0 ) + + \partial 4*1 s4_\markup { \italic { lite snare, arp. gtr. } } | % 0 + s2.*23 + s4_\markup { \italic { a capella } } s2 | % 24 +%} +} + + +\score +{ + << + << +% \new Staff = leadStaff { \new Voice = "lead" \LeadVox } + \new Staff = leadStaff { << \new Voice = "lead" \LeadVox \new Voice = "riffs" \Riffs >> } + \new Lyrics \lyricsto "lead" \LeadVoxText + >> + + \new ChoirStaff = "Rhythm" + << + \new ChordNames = "chords" \Chords + \new RhythmicStaff = "chordRhythm" << \StaffC \Dynamics >> + >> + + \set Score.skipBars = ##t + \set Score.melismaBusyProperties = #'() + >> + + \layout + { + \context { \Staff \RemoveEmptyStaves } +% ragged-last-bottom = ##t +% ragged-last = ##t + } +} + + +\paper +{ + #(define fonts (make-pango-font-tree + "Times New Roman" + "DomCasual BT" + "Luxi Mono" + (/ staffSize 20))) +} diff --git a/no-higher-calling.ly b/no-higher-calling.ly new file mode 100755 index 0000000..aba36b6 --- /dev/null +++ b/no-higher-calling.ly @@ -0,0 +1,465 @@ +\version "2.16.0" +\include "pop-chords.ly" +\include "english.ly" + +% Good sizes are 16, 18, & 20 +staffSize = #20 +#(set-default-paper-size "letter") +#(set-global-staff-size staffSize) +#(ly:set-option (quote no-point-and-click)) + +\header +{ +%Let's bump up the title size and switch to the chord font. :-) + + title = \markup { \override #'(font-family . sans) \fontsize #3.5 "No Higher Calling" } +% composer = \markup { \override #'(font-family . sans) \fontsize #1.3 "" } + arranger = \markup { \override #'(font-family . sans) \fontsize #1.3 "arr. Ed Smart" } + tagline = "Engraved by JLH and Lilypond 2.8.8" +} + + +% +% Lead vocal +% + +LeadVox = \relative c' +{ +% \set Voice.autoBeaming = ##f +% \set Staff.instrumentName = #"Lead vox" + \clef G + \key bf \major + \override Staff.TimeSignature #'style = #'() + \time 4/4 +\override Score.SpacingSpanner #'average-spacing-wishes = ##f + + \repeat volta 2 + { + % Intro + +\once \override Score.RehearsalMark #'self-alignment-X = #left +\mark \markup { \small "Light half-time feel" } + + s1 | % 1 + s1 | % 2 + s1 | % 3 + s1 | % 4 + } + + % Verse + +\mark \markup { \override #'(font-family . sans) { \box { A } } } + + f2. d8 f | % 5 + a2 bf4. g8 ~ | % 6 + g2. f8 ef | % 7 + d2 c4. ( d8 ) | % 8 + d2 r4 d8 f | % 9 + a2 bf4. g8 ~ | % 10 + g2. g4 | % 11 + gf2 f4. f8 ~ | % 12 + f2. f4 | % 13 + gf2 af4. ( bf8 ) | % 14 + bf1 ~ | % 15 + bf2 r | % 16 + + \repeat volta 2 + { + % Verse + +\mark \markup { \override #'(font-family . sans) { \box { B } } } + + f2. d8 f | % 17 + a2 bf4. g8 ~ | % 18 + g2. f8 ef | % 19 + d2 c4. ( d8 ) | % 20 + d2 r4 d8 f | % 21 + a2 bf4. g8 ~ | % 22 + g2. g4 | % 23 + gf2 f4. f8 ~ | % 24 + f2. f4 | % 25 + gf2 af4. ( bf8 ) | % 26 + bf1 ~ | % 27 + bf2. 8 \bar "||" % 28 + + % Chorus + +\once \override Score.RehearsalMark #'self-alignment-X = #left +\mark \markup { \override #'(font-family . sans) { \box { C } } \hspace #1.0 \raise #2.0 \musicglyph #"scripts.segno" } + + 2. 8 | % 29 + 4. ( 8 ) 2 | % 30 + 2. 8 | % 31 + 4. ( 8 ) 4 8 | % 32 + 2. 4 | % 33 + 4 8 ~ 4 8 ~ | % 34 + 1 | % 35 + r2 r4 8 | % 36 + 2. 8 | % 37 + 4. 8 ~ 4. 8 | % 38 + 2. 8 | % 39 + 4. 8 ~ 4 bf | % 40 + bf2. bf4 | % 41 + bf4 a8 g ~ g a ~ a4 | % 42 +\once \override Score.RehearsalMark #'self-alignment-X = #right +\mark \markup { \italic { to Coda } \hspace #1.0 \musicglyph #"scripts.coda" } + } + \alternative + { + { + \voiceTwo + bf1 | % 43 + \oneVoice + s1 | % 44 + s1 | % 45 + s1 | % 46 + } + { + bf1 | % 47 + } + } + + r2 r4 8 \bar "||" % 48 + +\once \override Score.RehearsalMark #'self-alignment-X = #right +\mark \markup { \italic { D.S. al Coda } } + + % Coda + +\stopStaff s1 \startStaff | +\set Score.currentBarNumber = #49 + +\once \override Score.RehearsalMark #'self-alignment-X = #left +\mark \markup { { \musicglyph #"scripts.coda" } "Coda" } + + bf2 s | % 49 + s1 | % 50 + s1 | % 51 + s1 | % 52 + s1 | % 53 + s1 | % 54 + s1 | % 55 + s1 | % 56 + s1 \bar "|." % 57 +} + +LeadVoxText = \lyricmode +{ + Down at your feet, O Lord, _ + is the most high _ place. + In your pre -- sence, Lord, _ + I seek your face, _ + I seek your _ face. __ _ + + Down at your feet, O Lord, _ + is the most high _ place. + In your pre -- sence, Lord, _ + I seek your face, _ + I seek your _ face. __ _ + + There is no high -- er call -- _ ing, + no great -- er ho -- _ nor + Than to bow and kneel be -- fore _ your throne. _ + I’m a -- mazed at your glo -- ry, _ + em -- braced by your mer -- cy _ + O Lord, I live to wor -- _ ship _ you. + + you. + There is + + you. +} + + +Riffs = \relative c' +{ + \clef G + \key bf \major + \override Staff.TimeSignature #'style = #'() + \time 4/4 +\override Score.SpacingSpanner #'average-spacing-wishes = ##f + + \tiny + r2 r8 d f bf | % 1 + bf4. af8 ~ af4. af8 | % 2 + af4. g8 ~ g4. f8 | % 3 + f1 | % 4 + + s1*38 | % 5-42 + + \voiceOne + r2 r8 d f bf | % 43 + \oneVoice + bf4. af8 ~ af4. af8 | % 44 + af4. g8 ~ g4. f8 | % 45 + f1 | % 46 + + s1*3 | % 47-48 (plus spacer for coda) + + s2 r8 d f bf | % 49 + bf4. af8 ~ af4. af8 | % 50 + af4. g8 ~ g4. f8 | % 51 + f1 | % 52 + r2 r8 d f bf | % 53 + bf4. af8 ~ af4. af8 | % 54 + af4. g8 ~ g4. f8 | % 55 + f1 | % 56 + r1-\fermata \bar "|." % 57 +} + + +% +% Chord names +% + +Chords = \chordmode +{ +%Bah, can't we set this globally? +% \popChords + + \repeat volta 2 + { + % Intro + + bf1 | % 1 + af4.:6.9 af8:sus2 s2 | % 2 + af4./ef ef8 s2 | % 3 + f2:sus4 f | % 4 + } + + % Verse + + bf1 | % 5 + f2/d bf/d | % 6 + ef1 | % 7 + bf2/f f | % 8 + bf1 | % 9 + f2/g g:m7 | % 10 + ef1 | % 11 + gf2:6 af:6.9 | % 12 + bf1 | % 13 + ef2:m af:sus2 | % 14 + bf1:sus2 | % 15 + bf2 ef/f | % 16 + + \repeat volta 2 + { + % Verse + + bf1 | % 17 + f2/d bf/d | % 18 + ef1 | % 19 + bf2/f f | % 20 + bf1 | % 21 + f2/g g:m7 | % 22 + ef1 | % 23 + ef2:m af:sus2 | % 24 + bf1 | % 25 + gf2:6 af:sus2 | % 26 + bf1 | % 27 + bf1:sus2/d | % 28 + + % Chorus + + ef1 | % 29 + g2:m7 f | % 30 + d1:m7 | % 31 + f2/g g:m7 | % 32 + c1:m7 | % 33 + ef2/f f | % 34 + bf1 | % 35 + bf1/d | % 36 + ef1 | % 37 + g2:m7 f | % 38 + d1:7/fs | % 39 + c2:m/g g:m7 | % 40 + ef1 | % 41 + bf4./f ef4/f f4. | % 42 + } + \alternative + { + { + bf1 | % 43 + af4.:6.9 af8:sus2 s2 | % 44 + af4./ef ef8 s2 | % 45 + f2:sus4 f | % 46 + } + { + bf1 | % 47 + } + } + + bf1:sus2/d | % 48 + + % Coda + +s1 + + bf1 | % 49 + af4.:6.9 af8:sus2 s2 | % 50 + af4./ef ef8 s2 | % 51 + f2:sus4 f | % 52 + bf1 | % 53 + af4.:6.9 af8:sus2 s2 | % 54 + af4./ef ef8 s2 | % 55 + f2:sus4 f | % 56 + bf1 | % 57 +} + + +% +% Chord rhythms +% + +% Use a RhythmicStaff on the chords instead of this? +% It almost works, but not quite. Doesn't collapse chords above to single notes... + +StaffC = \relative c +{ +% \set Voice.autoBeaming = ##f +% \set Staff.instrumentName = #"Rhythm" + \override Staff.TimeSignature #'style = #'() + \time 4/4 + \override NoteHead #'style = #'slash + + \repeat volta 2 + { + % Intro + + c4 c c c | % 1 + c4. c8 ~ c2 | % 2 + c4. c8 ~ c2 | % 3 + c4 c c c | % 4 + } + + % Verse + + c4 c c c | % 5 + c4 c c c | % 6 + c4 c c c | % 7 + c4 c c c | % 8 + c4 c c c | % 9 + c4 c c c | % 10 + c4 c c c | % 11 + c4 c c c | % 12 + c4 c c c | % 13 + c4 c c c | % 14 + c4 c c c | % 15 + c4 c c c | % 16 + + \repeat volta 2 + { + % Verse + + c4 c c c | % 17 + c4 c c c | % 18 + c4 c c c | % 19 + c4 c c c | % 20 + c4 c c c | % 21 + c4 c c c | % 22 + c4 c c c | % 23 + c4 c c c | % 24 + c4 c c c | % 25 + c4 c c c | % 26 + c4 c c c | % 27 + c4 c c c \bar "||" % 28 + + % Chorus + + c4 c c c | % 29 + c4 c c c | % 30 + c4 c c c | % 31 + c4 c c c | % 32 + c4 c c c | % 33 + c4 c c c | % 34 + c4 c c c | % 35 + c4 c c c | % 36 + c4 c c c | % 37 + c4 c c c | % 38 + c4 c c c | % 39 + c4 c c c | % 40 + c4 c c c | % 41 + c4. c8 ~ c c4. | % 42 + } + \alternative + { + { + c4 c c c | % 43 + c4. c8 ~ c2 | % 44 + c4. c8 ~ c2 | % 45 + c4 c c c | % 46 + } + { + c4 c c c | % 47 + } + } + + c4 c c c \bar "||" % 48 + + % Coda + +\stopStaff s1 \startStaff | +\set Score.currentBarNumber = #49 + + c4 c c c | % 49 + c4. c8 ~ c2 | % 50 + c4. c8 ~ c2 | % 51 + c4 c c c | % 52 + c4 c c c | % 53 + c4. c8 ~ c2 | % 54 + c4. c8 ~ c2 | % 55 + c4 c c c | % 56 + c1-\fermata \bar "|." % 57 +} + + +Dynamics = +{ + s1*27 | % 1-27 + s4 s \< s \! s | % 28 + s4_\markup { \italic { add backbeat } } s2. | % 29 + s1*18 | % 30-47 + s4 s \< s \! s | % 48 + s1*8 | % 49-55 + s2 s_\markup { \italic { rit. } } | % 56 +} + + +\score +{ + << + << +% \new Staff = leadStaff { \new Voice = "lead" \LeadVox } + \new Staff = leadStaff { << \new Voice = "lead" \LeadVox \new Voice = "riffs" \Riffs >> } + \new Lyrics \lyricsto "lead" \LeadVoxText + >> + + \new ChoirStaff = "Rhythm" + << + \new ChordNames = "chords" \Chords + \new RhythmicStaff = "chordRhythm" << \StaffC \Dynamics >> + >> + + \set Score.skipBars = ##t + \set Score.melismaBusyProperties = #'() + >> + + \layout + { +% \context { \Staff \RemoveEmptyStaves } +% ragged-last-bottom = ##t + ragged-last = ##t + } +} + + +\paper +{ + #(define fonts (make-pango-font-tree + "Times New Roman" + "DomCasual BT" + "Luxi Mono" + (/ staffSize 20))) + +% top-margin = -0.25 \in +} diff --git a/nothing-but-the-blood.ly b/nothing-but-the-blood.ly new file mode 100755 index 0000000..33b62b0 --- /dev/null +++ b/nothing-but-the-blood.ly @@ -0,0 +1,437 @@ +\version "2.16.0" +\include "pop-chords.ly" +\include "english.ly" + +% Good sizes are 16, 18, & 20 +staffSize = #16 +#(set-default-paper-size "letter") +#(set-global-staff-size staffSize) +#(ly:set-option (quote no-point-and-click)) + +\header +{ +%Let's bump up the title size and switch to the chord font. :-) + + title = \markup { \override #'(font-family . sans) \fontsize #3.5 "Nothing But The Blood" } + composer = \markup { \override #'(font-family . sans) \fontsize #1.3 "Traditional" } + arranger = \markup { \override #'(font-family . sans) \fontsize #1.3 "arr. Roger Freeland" } + tagline = "Engraved by JLH and Lilypond 2.8.2" +} + + +% +% Lead vocal +% + +LeadVox = \relative c' +{ + \set Voice.autoBeaming = ##f +% \set Staff.instrumentName = #"Lead vox" + \clef G + \key f \major + \override Staff.TimeSignature #'style = #'() + \time 4/4 +\override Score.SpacingSpanner #'average-spacing-wishes = ##f + + % Intro/midtro + + R1^\markup { \hspace #0.0 \raise #1.0 { Moderate folk-rock } } | % 1 + R1 | % 2 + R1 | % 3 + R1 | % 4 + + \repeat volta 3 + { + % Verse + +\mark \markup { \override #'(font-family . sans) { \box { A } } } + + f4 f f g | % 5 + a4 c a2 | % 6 + f8 [ f f g ] a4 a | % 7 + g4. ( f8 ) f4 r | % 8 + f4 f f g | % 9 + a4 c a2 | % 10 + f8 [ f f g ] a4 a | % 11 + g4. ( f8 ) f4 r \bar "||" % 12 + + % Chorus + +\mark \markup { \override #'(font-family . sans) { \box { B } } } + +% Bah, some ppl don't like syncopation +%{ + c'4. a8 ~ a g4 a8 ~ | % 13 + a4 c8 [ a ] ~ a4 r | % 14 + g4. g8 ~ g8 f4 g8 ~ | % 15 + g8 g4 a8 ( \stemUp c4 ) \stemNeutral r | % 16 + c4. a8 ~ a g4 a8 ~ | % 17 + a8 c4 a8 ~ a4 r | % 18 + f8 [ f f g ] a4 a | % 19 + g4. ( f8 ) f4 r | % 20 +%} +% Straight as a stretched out wire... :-( + c'2 a4 g | % 13 + a4 c a r | % 14 + g2 g4 f | % 15 + g4 g a ( \stemUp c ) \stemNeutral | % 16 + c2 a4 g | % 17 + a4 c a r | % 18 + f8 [ f f g ] a4 a | % 19 +% g4. ( f8 ) f4 r | % 20 + g2.. ( f8 ) | % 20 + } + \alternative + { + { + f4 r r2 | % 21 + R1 | % 22 + R1 | % 23 + R1 | % 24 + } + { + f4 r r2 | % 25 + } + } + + R1 | % 26 + + % Outro + + \repeat volta 2 + { +\mark \markup { \override #'(font-family . sans) { \box { C } } } + + f8 [ f f g ] a4 a | % 27 + g4. ( f8 ) f4 r | % 28 + f8 [ f f g ] a4 a | % 29 + g4. ( f8 ) f4 r | % 30 + } + + % Ending + + R1 | % 31 + R1 \bar "|." % 32 +} + +% This isn't the hymnal melody, but I like it. So there! :-P +LeadVoxAlt = \relative c'' +{ + \set Voice.autoBeaming = ##f +% \set Staff.instrumentName = #"Lead vox" + \clef G + \key f \major + \override Staff.TimeSignature #'style = #'() + \time 4/4 +\override Score.SpacingSpanner #'average-spacing-wishes = ##f + + \repeat volta 3 + { + % Intro/midtro + + R1^\markup { Moderate folk-rock } | % 1 + R1 | % 2 + R1 | % 3 + R1 \bar "||" % 4 + + % Verse + +\mark \markup { \override #'(font-family . sans) { \box { A } } } + c4 a8 [ a ] ~ a4 g8 [ a ] ~ | % 5 + a4 c8 [ c ] ~ c2 | % 6 + f,8 [ f f g ] a4 f | % 7 + g4. a8 ~ a4 r | % 8 + c4 a8 [ a ] ~ a4 g8 [ a ] ~ | % 9 + a4 c8 [ c ] ~ c2 | % 10 + f,8 [ f f g ] a4 f | % 11 + g4. f8 ~ f4 r \bar "||" % 12 + + % Chorus + +\mark \markup { \override #'(font-family . sans) { \box { B } } } + c'4. a8 ~ a g4 a8 ~ | % 13 + a4 c8 [ c ] ~ c4 r | % 14 + d4. f8 ~ f8 d4 d8 ~ | % 15 + d8 c4 c8 ~ c4 r | % 16 + c4. a8 ~ a g4 a8 ~ | % 17 + a8 c4 c8 ~ c4 r | % 18 + f,8 [ f f g ] a4 f | % 19 + g4. f8 ~ f4 r | % 20 + } + + % Outro + + \repeat volta 2 + { +\mark \markup { \override #'(font-family . sans) { \box { C } } } + + f8 [ f f g ] a4 f | % 21 + g4. a8 ~ a4 r | % 22 + f8 [ f f g ] a4 f | % 23 + g4. f8 ~ f4 r | % 24 + } + + % Ending + + R1 | % 25 + R1 \bar "|." % 26 +} + +LeadVoxText = \lyricmode +{ + What can wash a- way my sin? + No- thing but the blood of Je- _ sus. + What can make me whole a- gain? + No- thing but the blood of Je- _ sus. + +% Bah, some ppl don't like syncopation... +%{ + Oh, pre- _ cious is _ the flow _ + That makes _ me white _ as snow; _ + No o- _ ther fount _ I know, _ + No- thing but the blood of Je- _ sus. +%} +% Straight as a stretched out wire... :-( + Oh, pre- cious is the flow + That makes me white as snow; _ + No o- ther fount I know, + No- thing but the blood of Je- __ _ sus. + + sus. + + No- thing but the blood of Je- _ sus. + No- thing but the blood of Je- _ sus. +} + +LeadVoxTextB = \lyricmode +{ + No- thing can for sin a- tone, + _ _ _ _ _ _ _ _ _ + Naught of good that I have done, +} + +LeadVoxTextC = \lyricmode +{ + This is all my hope and peace, + _ _ _ _ _ _ _ _ _ + This is all my right- eous- ness, +} + +% This isn't the hymnal rhythm, but I like it. So there! :-P +LeadVoxTextAlt = \lyricmode +{ + What can wash _ a- way _ my _ sin? + No- thing but the blood of Je- _ sus. + What can make _ me whole _ a- _ gain? + No- thing but the blood of Je- _ sus. + + Oh, pre- _ cious is _ the flow _ + That makes _ me white _ as snow; _ + No o- _ ther fount _ I know, _ + No- thing but the blood of Je- _ sus. + + No- thing but the blood of Je- _ sus. + No- thing but the blood of Je- _ sus. +} + +LeadVoxTextAltB = \lyricmode +{ + No- thing can _ for sin _ a- _ tone, + _ _ _ _ _ _ _ _ _ + Naught of good _ that I _ have _ done, +} + +LeadVoxTextAltC = \lyricmode +{ + This is all _ my hope _ and _ peace, + _ _ _ _ _ _ _ _ _ + This is all _ my right- _ eous- _ ness, +} + +% +% Chord names +% + +Chords = \chordmode +{ +%Bah, can't we set this globally? +% \popChords + + % Intro/midtro + + f4./a bf2:sus2 s8 | % 1 + c4.:^3 d2:m7 s8 | % 2 + f4./a bf2:sus2 s8 | % 3 + c4.:^3 d2:m7 s8 | % 4 + + \repeat volta 3 + { + % Verse + + f4./a bf2:sus2 s8 | % 5 + c4.:^3 d2:m7 s8 | % 6 + f4./a bf2:sus2 s8 | % 7 + c4.:^3 d2:m7 s8 | % 8 + f4./a bf2:sus2 s8 | % 9 + c4.:^3 d2:m7 s8 | % 10 + f4./a bf2:sus2 s8 | % 11 + c4.:^3 d2:m7 s8 | % 12 + + % Chorus + + f4. c2 s8 | % 13 + d4.:m7 f2 s8 | % 14 + bf4. f2/a s8 | % 15 + bf2 c | % 16 + f4./a bf2 s8 | % 17 + c4.:^3 d2:m7 s8 | % 18 + f4./a bf2 s8 | % 19 + c1:^3 | % 20 + } + \alternative + { + { + f4./a bf2:sus2 s8 | % 21 + c4.:^3 d2:m7 s8 | % 22 + f4./a bf2:sus2 s8 | % 23 + c4.:^3 d2:m7 s8 | % 24 + } + { + f4./a bf2:sus2 s8 | % 25 + } + } + + c4.:^3 d2:m7 s8 | % 26 + + % Outro + + \repeat volta 2 + { + f4./a bf2:sus2 s8 | % 27 + c4.:^3 d2:m7 s8 | % 28 + f4./a bf2:sus2 s8 | % 29 + c4.:^3 d2:m7 s8 | % 30 + } + + % Ending + + f4./a bf2:sus2 s8 | % 31 + c4.:^3 f2 s8 | % 32 +} + + +% +% Chord rhythms +% + +% Use a RhythmicStaff on the chords instead of this? +% It almost works, but not quite. Doesn't collapse chords above to single notes... + +StaffC = \relative c +{ +% \set Voice.autoBeaming = ##f +% \set Staff.instrumentName = #"Rhythm" + \override Staff.TimeSignature #'style = #'() + \time 4/4 + \override NoteHead #'style = #'slash + + % Intro/midtro + + c4. c8 ~ c4 c | % 1 + c4. c8 ~ c4 c | % 2 + c4. c8 ~ c4 c | % 3 + c4. c8 ~ c4 c | % 4 + + \repeat volta 3 + { + % Verse + + c4. c8 ~ c4 c | % 5 + c4. c8 ~ c4 c | % 6 + c4. c8 ~ c4 c | % 7 + c4. c8 ~ c4 c | % 8 + c4. c8 ~ c4 c | % 9 + c4. c8 ~ c4 c | % 10 + c4. c8 ~ c4 c | % 11 + c4. c8 ~ c4 c | % 12 + + % Chorus + + c4. c8 ~ c4 c | % 13 + c4. c8 ~ c4 c | % 14 + c4. c8 ~ c4 c | % 15 + c4 c c c | % 16 + c4. c8 ~ c4 c | % 17 + c4. c8 ~ c4 c | % 18 + c4. c8 ~ c4 c | % 19 + c4 c c c | % 20 + } + \alternative + { + { + c4. c8 ~ c4 c | % 21 + c4. c8 ~ c4 c | % 22 + c4. c8 ~ c4 c | % 23 + c4. c8 ~ c4 c | % 24 + } + { + c4. c8 ~ c4 c | % 25 + } + } + + c4. c8 ~ c4 c | % 26 + + % Outro + + \repeat volta 2 + { + c4. c8 ~ c4 c | % 27 + c4. c8 ~ c4 c | % 28 + c4. c8 ~ c4 c | % 29 + c4. c8 ~ c4 c | % 30 + } + + % Ending + + c4._\markup { \italic { on cue } } c8 ~ c4 c | % 31 + c4. c8 ~ c2^\fermata \bar "|." % 32 +} + + +\score +{ + << + << + \new Staff = leadStaff { \new Voice = "lead" \LeadVox } + \new Lyrics \lyricsto "lead" \LeadVoxText + \new Lyrics \lyricsto "lead" \LeadVoxTextB + \new Lyrics \lyricsto "lead" \LeadVoxTextC + >> + + \new ChoirStaff = "Rhythm" + << + \new ChordNames = "chords" \Chords + \new RhythmicStaff = "chordRhythm" \StaffC + >> + + \set Score.skipBars = ##t + \set Score.melismaBusyProperties = #'() + >> + + \layout + { +% \context { \Staff \RemoveEmptyStaves } +% ragged-last-bottom = ##t + ragged-last = ##t + } +} + + +\paper +{ + #(define fonts (make-pango-font-tree + "Times New Roman" + "DomCasual BT" + "Luxi Mono" + (/ staffSize 20))) +} diff --git a/o-come-all-ye-faithful.ly b/o-come-all-ye-faithful.ly new file mode 100644 index 0000000..131f243 --- /dev/null +++ b/o-come-all-ye-faithful.ly @@ -0,0 +1,452 @@ +\version "2.16.0" +\include "pop-chords.ly" +\include "english.ly" + +% Good sizes are 16, 18, & 20 +staffSize = #16 +#(set-default-paper-size "letter") +#(set-global-staff-size staffSize) +#(ly:set-option (quote no-point-and-click)) + +\header +{ +%Let's bump up the title size and switch to the chord font. :-) + + title = \markup { \override #'(font-family . sans) \fontsize #3.5 "O Come, All Ye Faithful" } + composer = \markup { \override #'(font-family . sans) \fontsize #1.3 "Traditional" } + arranger = \markup { \override #'(font-family . sans) \fontsize #1.3 "arr. Craig Harris" } + tagline = "Engraved by JLH and Lilypond 2.8.6" +} + + +% +% Lead vocal +% + +LeadVox = \relative c' +{ +% \set Voice.autoBeaming = ##f +% \set Staff.instrumentName = #"Lead vox" + \clef G + \key f \major + \override Staff.TimeSignature #'style = #'() + \time 4/4 +\override Score.SpacingSpanner #'average-spacing-wishes = ##f + + % Intro + + \partial 4*1 s4 \bar "||" % 0 + s1 | % 1 + s1 | % 2 + s1 | % 3 + s2. f4 \bar "||" % 4 + + % Verse + +\mark \markup { \override #'(font-family . sans) { \box { A } } } + + f2 c4 f | % 5 + g2 c, | % 6 + a'4 g a bf | % 7 + a2 g4 f | % 8 + f2 e4 d | % 9 + e4 ( f ) g a | % 10 + e2 ( d4. ) c8 | % 11 + c1 | % 12 + c'2 bf4 a | % 13 + bf2 a | % 14 + g4 a f g | % 15 + e4. ( d8 ) c4 f | % 16 + f4 e f g | % 17 + f2 c4 a' | % 18 + a4 g a bf | % 19 + a2 g4 a | % 20 + bf4 a g f | % 21 + e2 f4 ( bf ) | % 22 + a2 ( g4. ) f8 | % 23 + f1 ~ | % 24 + f1 \bar "||" % 25 + + % Verse + +\mark \markup { \override #'(font-family . sans) { \box { B } } } + + f2 c4 f | % 26 + g2 c, | % 27 + a'4 g a bf | % 28 + a2 g4 f | % 29 + f2 e4 d | % 30 + e4 f g a | % 31 + e2 d4. c8 | % 32 + c1 | % 33 + c'2 bf4 a | % 34 + bf2 a | % 35 + g4 a f g | % 36 + e4. ( d8 ) c4 f | % 37 + f4 e f g | % 38 + f2 c4 a' | % 39 + +\break %Bah, only valid for size 16!!! + + a4 g a bf | % 40 + a2 g4 a | % 41 + bf a g f | % 42 + e2 f4 ( bf ) | % 43 + a2 ( g4. ) f8 | % 44 + f1 \bar "||" % 45 + + % Verse + +\mark \markup { \override #'(font-family . sans) { \box { C } } } + + f2 c4 f | % 46 + g2 c, | % 47 + a'4 g a bf | % 48 + a2 g4 f | % 49 + f2 e4 d | % 50 + e4 ( f ) g a | % 51 + e2 ( d4. ) c8 | % 52 + c1 | % 53 + c'2 bf4 a | % 54 + bf2 a | % 55 + g4 a f g | % 56 + e4. ( d8 ) c4 f | % 57 + f4 e f g | % 58 + f2 c4 a' | % 59 + a4 g a bf | % 60 + a2 g4 a | % 61 + bf a g f | % 62 + e2 f4 ( bf ) | % 63 + a2 ( g4. ) f8 | % 64 + f2. a4 | % 65 + bf4-> a-> g-> f-> | % 66 + e2 f4 ( bf ) | % 67 + a1-> ( | % 68 + g2. ) ~ g8 f | % 69 + f1^\fermata \bar "|." % 70 +} + +LeadVoxText = \lyricmode +{ + O come, all ye fai -- thful, + joy -- ful and tri -- um -- phant, + O come ye, O come _ ye to Beth -- _ le -- hem; + Come and be -- hold him, born the king of an -- _ gels; + + O come let us a -- dore him, + O come let us a -- dore him, + O come let us a -- dore him, _ + Christ, _ the Lord. __ _ + + Sing, choirs of an -- gels, + sing in ex -- ul -- ta -- tion, + O sing, all ye ci -- ti -- zens of hea -- ven a -- bove; + Glo -- ry to God, all glo -- ry in the high -- _ est; + + O come let us a -- dore him, + O come let us a -- dore him, + O come let us a -- dore him, _ + Christ, _ the Lord. + + Yea, Lord, we greet thee, + born this hap -- py morn -- ing, + O Je -- sus to thee _ be all glo -- _ ry given; + Word of the Fa -- ther, now in flesh ap -- pear -- _ ing; + + O come let us a -- dore him, + O come let us a -- dore him, + O come let us a -- dore him, _ + Christ, _ the Lord; + + O come let us a -- dore him, _ + Christ, __ _ _ the Lord. +} + + +Riffs = \relative c'' +{ + \clef G + \key f \major + \override Staff.TimeSignature #'style = #'() + \time 4/4 +\override Score.SpacingSpanner #'average-spacing-wishes = ##f + + % Intro + + \tiny + \partial 4*1 a4 | % 0 + bf4-> a-> g-> f-> | % 1 + e2 f4 bf | % 2 + a2 g4. f8 | % 3 + f2. s4 | % 4 + \normalsize +} + + +% +% Chord names +% + +Chords = \chordmode +{ +%Bah, can't we set this globally? +% \popChords + + % Intro + + \partial 4*1 d4:7/fs | % 0 + g4:m f/a g:m/bf g:7/b | % 1 + c4 c/bf f/a bf:m/df | % 2 + f2/c g4:m7/c c:9 | % 3 + f2 g:m7/c | % 4 + + % Verse + + f1:5.9 | % 5 + g2:m7 c:sus4.7 | % 6 + f4 c/e f c:7/g | % 7 + f2/a g4:m7/c a:aug7/cs | % 8 + d2:m c4 g | % 9 + c4 d:m7 c/e f | % 10 + c2/g d4:m7/g g:7 | % 11 + c2:sus4 c | % 12 + f2/a g4:m6 f | % 13 + g4:m7 c:7 f2 | % 14 + c4/e f d:m g:m/bf | % 15 + c2 c:7 | % 16 + f4 c/f f g:m/f | % 17 + f1 | % 18 + f4 c/f f g:m7 | % 19 + f2/a c4 d:7 | % 20 + g4:m f/a g:m/bf g:7/b | % 21 + c2 ef:9 | % 22 + f2/c g4:m c:9 | % 23 + f4 d2.:m | % 24 + g2:m7 g4:m7/c c:7 | % 25 + + % Verse + + f2:9^7 d:m | % 26 + g2:m9 c:sus4.7 | % 27 + f4 c/e f c:7/g | % 28 + g2:9 g4:m7/c a:aug7/cs | % 29 + d2:m g:13 | % 30 + c4 d:m7 c/e f | % 31 + c2/g d4:m7/g g:7 | % 32 + c2:sus4 c | % 33 + a2:m7 d:aug7 | % 34 + g2:m7 c:13 | % 35 + f2:maj9 d:m | % 36 + g2:sus4.7 c:sus4.7 | % 37 + f4 c/f f g:m/f | % 38 + f1 | % 39 + f4 c/e f g:m7 | % 40 + ef2:maj9.11+ a4:m7/d d:7/fs | % 41 + g4:m f/a g:m/bf g:7/b | % 42 + c2 ef4:9 d:aug7 | % 43 + g2:9 g4:m/c c:9 | % 44 + f4 d:m g:m7 g:m7/c | % 45 + + % Verse + + f1:9^7 | % 46 + g2:m7 c:sus4.7 | % 47 + a2:m7 bf:maj7 | % 48 + b2:m7.5- g4:m7/c a:aug7/cs | % 49 + d2:m9 g:13 | % 50 + c4 d:m7 c/e f | % 51 + c2/g d4:m7/g g:7 | % 52 + c2:sus4 e:m7.5- | % 53 + a2:m7.5- d:aug7 | % 54 + e2:m7.5- a:sus4.7 | % 55 + a4:m7/d df:aug f:6/c g/b | % 56 + bf2:9.11+ c:sus4.7 | % 57 + f4 c/f f g:m/f | % 58 + f1 | % 59 + d4:m c/d d:m ef:9 | % 60 + ef2:9.11+ a4:m7/d d:7/fs | % 61 + g4:m f/a g:m/bf g:7/b | % 62 + c2 ef4:9 d:aug7 | % 63 + g2:9 g4:m/c a:7/cs | % 64 + d2:m7 g:9 | % 65 + g4:m f/a g:m/bf g:7/b | % 66 + c4 c/bf f/a bf:m/df | % 67 + f1/c | % 68 + g2:m7 g:m7/c | % 69 + f1 | % 70 +} + + +% +% Chord rhythms +% + +% Use a RhythmicStaff on the chords instead of this? +% It almost works, but not quite. Doesn't collapse chords above to single notes... + +StaffC = \relative c +{ +% \set Voice.autoBeaming = ##f +% \set Staff.instrumentName = #"Rhythm" + \override Staff.TimeSignature #'style = #'() + \time 4/4 + \override NoteHead #'style = #'slash + + % Intro + + \partial 4*1 c4 \bar "||" % 0 + c4 c c c | % 1 + c4 c c c | % 2 + c4 c c c | % 3 + c4 c c c \bar "||" % 4 + + % Verse + + c4 c c c | % 5 + c4 c c c | % 6 + c4 c c c | % 7 + c4 c c c | % 8 + c4 c c c | % 9 + c4 c c c | % 10 + c4 c c c | % 11 + c4 c c c | % 12 + c4 c c c | % 13 + c4 c c c | % 14 + c4 c c c | % 15 + c4 c c c | % 16 + c4 c c c | % 17 + c4 c c c | % 18 + c4 c c c | % 19 + c4 c c c | % 20 + c4 c c c | % 21 + c4 c c c | % 22 + c4 c c c | % 23 + c4 c c c | % 24 + c4 c c c \bar "||" % 25 + + % Verse + + c4 c c c | % 26 + c4 c c c | % 27 + c4 c c c | % 28 + c4 c c c | % 29 + c4 c c c | % 30 + c4 c c c | % 31 + c4 c c c | % 32 + c4 c c c | % 33 + c4 c c c | % 34 + c4 c c c | % 35 + c4 c c c | % 36 + c4 c c c | % 37 + c4 c c c | % 38 + c4 c c c | % 39 + c4 c c c | % 40 + c4 c c c | % 41 + c4 c c c | % 42 + c4 c c c | % 43 + c4 c c c | % 44 + c4 c c c \bar "||" % 45 + + % Verse + + c4 c c c | % 46 + c4 c c c | % 47 + c4 c c c | % 48 + c4 c c c | % 49 + c4 c c c | % 50 + c4 c c c | % 51 + c4 c c c | % 52 + c4 c c c | % 53 + c4 c c c | % 54 + c4 c c c | % 55 + c4 c c c | % 56 + c4 c c c | % 57 + c4 c c c | % 58 + c4 c c c | % 59 + c4 c c c | % 60 + c4 c c c | % 61 + c4 c c c | % 62 + c4 c c c | % 63 + c4 c c c | % 64 + c4 c c c | % 65 + c4 c c c | % 66 + c4 c c c | % 67 + c4 c c c | % 68 + c4 c c c | % 69 + c1^\fermata \bar "|." % 70 +} + + +Dynamics = +{ + \override TextScript #'extra-offset = #'( 0.0 . -1.0 ) + + \partial 4*1 s4_\f | % 0 + s4_\markup { \italic { full band, snare } } s2. | % 1 + s1*2 + s4 s \> s s \! | % 4 + s4_\markup { \dynamic mf \italic { piano only } } s2. | % 5 + s1*11 + s4_\markup { \dynamic mp \italic { bass in, cym } } s2. | % 17 + s1*2 + s4 s \< s s_\f | % 20 + s1*2 + s2 s_\markup { \italic { dr. fill } } | % 23 + s4_\markup { \italic { dr. groove, s-stick 2&4 } } s2. | % 24 + s1*13 + s4_\markup { \dynamic mp \italic { no backbeat } } s2. | % 38 + s1*2 + s4 s \< s s_\f | % 41 + s4_\markup { \italic { backbeat } } s2. | % 42 + s1*2 + s2 s_\markup { \italic { dr. fill } } | % 45 + s4_\markup { \italic { Majestic, slower w/snare } } s2. | % 46 + s1*11 + s4_\markup { \dynamic mp \italic { no backbeat } } s2. | % 58 + s1*2 + s4 s \< s_\markup { \hspace #0.0 \raise #-2.0 \italic { dr.fill } } s_\f | % 61 + s4_\markup { \italic { backbeat } } s2. | % 62 + s1*6 + s4_\markup { \italic { rit. } } s2. | % 69 +} + + +\score +{ + << + << +% \new Staff = leadStaff { \new Voice = "lead" \LeadVox } + \new Staff = leadStaff { << \new Voice = "lead" \LeadVox \new Voice = "riffs" \Riffs >> } + \new Lyrics \lyricsto "lead" \LeadVoxText +% \new Lyrics \lyricsto "lead" \LeadVoxTextB + >> + + \new ChoirStaff = "Rhythm" + << + \new ChordNames = "chords" \Chords + \new RhythmicStaff = "chordRhythm" << \StaffC \Dynamics >> + >> + + \set Score.skipBars = ##t + \set Score.melismaBusyProperties = #'() + >> + + \layout + { +% \context { \Staff \RemoveEmptyStaves } +% ragged-last-bottom = ##t + ragged-last = ##t + } +} + + +\paper +{ + #(define fonts (make-pango-font-tree + "Times New Roman" + "DomCasual BT" + "Luxi Mono" + (/ staffSize 20))) + +% top-margin = -0.25 \in +} diff --git a/o-come-o-come-emmanuel.ly b/o-come-o-come-emmanuel.ly new file mode 100755 index 0000000..fd3f227 --- /dev/null +++ b/o-come-o-come-emmanuel.ly @@ -0,0 +1,508 @@ +\version "2.16.0" +\include "pop-chords.ly" +\include "english.ly" + +% Good sizes are 16, 18, & 20 +staffSize = #20 +#(set-default-paper-size "letter") +#(set-global-staff-size staffSize) +#(ly:set-option (quote no-point-and-click)) + +%{ Some useful characters: ‘ ’ “ ” – — † ‡ • … %} + +\header +{ +%Let's bump up the title size and switch to the chord font. :-) + + title = \markup { \override #'(font-family . sans) \fontsize #3.5 "O Come, O Come, Emmanuel" } + composer = \markup { \override #'(font-family . sans) \fontsize #1.3 "Thomas Helmore" } + arranger = \markup { \override #'(font-family . sans) \fontsize #1.3 "arr. Ed Smart" } + tagline = $(string-append "Engraved by JLH and Lilypond " (lilypond-version)) +} + + +% +% Lead vocal +% + +LeadVox = \relative c' +{ +% \set Voice.autoBeaming = ##f +% \set Staff.instrument = #"Lead vox" + \clef G + \key e \minor + \override Staff.TimeSignature #'style = #'() + \time 4/4 +\override Score.SpacingSpanner #'average-spacing-wishes = ##f + + % Intro + + s1^\markup { \hspace #0.0 \raise #1.0 { Half time feel } } | % 1 + s1 | % 2 + s1 | % 3 + s1 | % 4 + s1 | % 5 + s1 | % 6 + s1 | % 7 + s2. e4 | % 8 + + \repeat volta 3 + { + % Verse + +\mark \markup { \override #'(font-family . sans) { \box { A } } } + + g4 b b b | % 9 + a4 ( c b ) a | % 10 + g2. a4 | % 11 + b4 g e g | % 12 + a4 ( fs e ) d | % 13 + e2. a4 | % 14 + a4 e e fs | % 15 + g2 ( fs4 ) e | % 16 + d2. g4 | % 17 + a4 b b b | % 18 + a4 ( c b ) a | % 19 + g2. d'4 \bar "||" % 20 + + % Chorus + +\once \override Score.RehearsalMark #'self-alignment-X = #left +\mark \markup { \override #'(font-family . sans) { \box { B } } \hspace #1.0 \raise #2.0 \musicglyph #"scripts.segno" } + + d2. b4 | % 21 + b2. b4 | % 22 + a4 ( c b ) a | % 23 + g2. a4 | % 24 + b4 g e g | % 25 + a4 ( fs e ) d | % 26 +\break % Bleh. + } + \alternative + { + { + e1 | % 27 + s1 | % 28 + s1 | % 29 + s2. e4 | % 30 + } + { + e1 | % 31 + s1 | % 32 + s1 | % 33 + s2.^\markup { \hspace #5.0 \raise #1.0 { D.S. } } \stemUp d'4 \stemNeutral \bar "||" % 34 + } + { + e,1 | % 35 + } + } + + s2. a4 \bar "||" % 36 + + b4 g e g | % 37 + a4 ( fs e ) d | % 38 + e1^\fermata \bar "|." % 39 +} + +LeadVoxText = \lyricmode +{ + O come, O come, Em -- ma -- _ _ nu -- el, + and ran -- som cap -- tive Is -- _ _ ra -- el, + That mourns in lone -- ly ex -- _ ile here, + Un -- til the Son of God _ _ ap -- pear. + + Re -- joice! Re -- joice! Em -- ma -- _ _ nu -- el + shall come to thee, O Is -- _ _ ra -- el! + + O + + el! + + Re -- + + el! + + shall come to thee, O Is -- _ _ ra -- el! +} + +LeadVoxTextB = \lyricmode +{ + _ come, thou day -- spring, come _ _ and cheer + Our spi -- rits by thine ad -- _ _ vent here; + Dis -- perse the gloo -- my clouds _ of night, + And death’s dark sha -- dows put _ _ to flight. +} + + +Riffs = \relative c'' +{ + \clef G + \key e \minor + \override Staff.TimeSignature #'style = #'() + \time 4/4 +\override Score.SpacingSpanner #'average-spacing-wishes = ##f + + % Intro + + \tiny + r2 4. 8 ~ | % 1 + 1 | % 2 + r2 4. 8 ~ | % 3 + 1 | % 4 + r2 4. 8 ~ | % 5 + 1 | % 6 + r2 4. 8 ~ | % 7 + 2. s4 | % 8 + + s1*18 + + r2 4. 8 ~ | % 27 + 1 | % 28 + r2 4. 8 ~ | % 29 + 2. s4 | % 30 + + r2 4. 8 ~ | % 31 + 1 | % 32 + r2 4. \stemDown 8 ~ | % 33 + 8 \stemNeutral | % 34 + + r2 4. 8 ~ | % 35 + 2. s4 | % 36 + + \normalsize +%{ + % Intro + + \tiny + \repeat "percent" 3 % 1 - 6 + { + << { \tiny f16 c f, ~ f, c' f f8 e } \\ { \tiny f,,2 c'4 } >> | % 1 + << { \tiny f'16 c f, ~ f, c' f f8 e } \\ { \tiny bf,2 c4 } >> | % 2 + } + << s2. \\ { \tiny d2 c4 } >> | % 7 + << s2. \\ { \tiny bf2. } >> | % 8 + + s2.*7 + + \voiceOne + \repeat "percent" 6 { f''16 c f, ~ f, c' f f8 e | } % 16-21 + \oneVoice + + s2.*7 + + \voiceOne + \repeat "percent" 2 { f16 c f, f' ~ f f, c' f f8 e | } % 29-30 + \oneVoice + + \key g \major + + \voiceOne + \repeat "percent" 2 { g16 d g, g' ~ g g, d' g g8 fs | } % 31-32 + \oneVoice + + s2.*7 + + \voiceOne + \repeat "percent" 4 { g16 d g, g' ~ g g, d' g g8 fs | } % 40-43 + \oneVoice + \normalsize +%} +} + +RiffsBass = \relative c +{ + \clef F + \key e \minor + \override Staff.TimeSignature #'style = #'() + \time 4/4 +\override Score.SpacingSpanner #'average-spacing-wishes = ##f + + % Intro + + \tiny + + 4. b8 4. 8 ~ | % 1 + 2.. 8 | % 2 + 4. b8 4. 8 ~ | % 3 + 2.. 8 | % 4 + 4. b8 4. 8 ~ | % 5 + 2.. 8 | % 6 + 4. b8 4. b8 ~ | % 7 + b2. r4 | % 8 + + s1*18 + + 4. b8 4. 8 ~ | % 27 + 2.. 8 | % 28 + 4. b8 4. b8 ~ | % 29 + b2. r4 | % 30 + + 4. b8 4. 8 ~ | % 31 + 2.. 8 | % 32 + 4. b8 4. b8 ~ | % 33 + b2. r4 | % 34 + + 4. b8 4. 8 ~ | % 35 + 2. r4 | % 36 + + \normalsize +} + + +% +% Chord names +% + +Chords = \chordmode +{ +%Bah, can't we set this globally? +% \popChords + + % Intro + + s1 | % 1 + s1 | % 2 + s1 | % 3 + s1 | % 4 + s1 | % 5 + s1 | % 6 + s2.. b8:m11 | % 7 + s1 | % 8 + + \repeat volta 3 + { + % Verse + + e1:m7 | % 9 + a1:m9 | % 10 + e1:m7 | % 11 + c1:maj7 | % 12 + a2:m7 b:m7 | % 13 + e1:m7 | % 14 + a1:m9 | % 15 + e2:m7 d4/c c | % 16 + b1:m7 | % 17 + g2:maj7 e:m7 | % 18 + a2:m7 c:maj7/d | % 19 + g2:sus2 g | % 20 + + % Chorus + + d2. e4:m7 | % 21 + b1:m7 | % 22 + a2:m7 b:7.9-.13- | % 23 + e2.:m7 d4 | % 24 + c2:maj7 a:m7 | % 25 + fs:m7.5- b:m7 | % 26 + } + \alternative + { + { + s1 | % 27 + s1 | % 28 + s2.. b8:m11 | % 29 + s1 | % 30 + } + { + s1 | % 31 + s1 | % 32 + s2.. b8:m11 | % 33 + s1 | % 34 + } + { + s2.. b8:m11 | % 35 + } + } + + s1 | % 36 + + c2:maj7 a:m7 | % 37 + fs:m7.5- b:m7 | % 38 + e1:m11 | % 39 +} + + +% +% Chord rhythms +% + +% Use a RhythmicStaff on the chords instead of this? +% It almost works, but not quite. Doesn't collapse chords above to single notes... + +StaffC = \relative c +{ +% \set Voice.autoBeaming = ##f +% \set Staff.instrument = #"Rhythm" + \override Staff.TimeSignature #'style = #'() + \time 4/4 + \override NoteHead #'style = #'slash + + % Intro + + r1 | % 1 + r1 | % 2 + r1 | % 3 + r1 | % 4 + r1 | % 5 + r1 | % 6 + r2.. c8 ~ | % 7 + c1 | % 8 + + \repeat volta 3 + { + % Verse + + c4 c c c | % 9 + c4 c c c | % 10 + c4 c c c | % 11 + c4 c c c | % 12 + c4 c c c | % 13 + c4 c c c | % 14 + c4 c c c | % 15 + c4 c c c | % 16 + c4 c c c | % 17 + c4 c c c | % 18 + c4 c c c | % 19 + c4 c c c \bar "||" % 20 + + % Chorus + + c4 c c c | % 21 + c4 c c c | % 22 + c4 c c c | % 23 + c4 c c c | % 24 + c4 c c c | % 25 + c4 c c c | % 26 + } + \alternative + { + { + r1 | % 27 + r1 | % 28 + r2.. c8 ~ | % 29 + c1 | % 30 + } + { + r1 | % 31 + r1 | % 32 + r2.. c8 ~ | % 33 + c8 c c c c c c c | % 34 + } + { + r2.. c8 ~ | % 35 + } + } + + c1 \bar "||" % 36 + + c2 c | % 37 + c2 c | % 38 + c1^\fermata \bar "|." % 39 +} + + +Dynamics = +{ + s4\mf s2. | % 1 + + s1*7 + + s4_\markup { \italic { 1st X colors, 2nd X lite sn. } } s2. | % 9 + + s1*10 + + s4\< s2. | % 20 + s4\f s2. | % 21 + + s1*4 + + s4 s \> s s \! | % 26 + s4\mf s2. | % 27 + + s1*6 + + s4 s \< s s \! | % 34 + + s1 + + s4 s \> s s \! | % 36 + + s1 + + s4_\markup { \italic { rit. } } s2. | % 38 +} + + +\score +{ + << + << + \new Staff = leadStaff { << \new Voice = "lead" \LeadVox \new Voice = "riffs" \Riffs >> } + \new Lyrics \lyricsto "lead" \LeadVoxText + \new Lyrics \lyricsto "lead" \LeadVoxTextB + >> + + << + \new Staff = leadStaffBass { \new Voice = "leadbass" \RiffsBass } + >> + + \new ChoirStaff = "Rhythm" + << + \new ChordNames = "chords" \Chords + \new RhythmicStaff = "chordRhythm" << \StaffC \Dynamics >> + >> + + \set Score.skipBars = ##t + \set Score.melismaBusyProperties = #'() + >> + + \layout + { + \context { \Staff \RemoveEmptyStaves } + ragged-last-bottom = ##t + ragged-last = ##t + } +} + + +% Alternate score (for dorks) +%{ + << + \new ChoirStaff = "Rhythm" + << + \new ChordNames = "chords" \Chords + \new RhythmicStaff = "chordRhythm" << \StaffC \Dynamics >> + >> + + << + \new Staff = leadStaff { << \new Voice = "lead" \LeadVox \new Voice = "riffs" \Riffs >> } + \new Lyrics \lyricsto "lead" \LeadVoxText + \new Lyrics \lyricsto "lead" \LeadVoxTextB + >> + + << + \new Staff = leadStaffBass { \new Voice = "leadbass" \RiffsBass } + >> + + \set Score.skipBars = ##t + \set Score.melismaBusyProperties = #'() + >> + + \layout + { + \context { \Staff \RemoveEmptyStaves } + ragged-last-bottom = ##t + ragged-last = ##t + } +%} + +\paper +{ + #(define fonts (make-pango-font-tree + "Times New Roman" + "DomCasual BT" + "Luxi Mono" + (/ staffSize 20))) + +% top-margin = -0.25 \in +} diff --git a/o-for-a-thousand-tongues.ly b/o-for-a-thousand-tongues.ly new file mode 100755 index 0000000..a19962b --- /dev/null +++ b/o-for-a-thousand-tongues.ly @@ -0,0 +1,477 @@ +\version "2.16.0" +\include "pop-chords.ly" +\include "english.ly" + +% Good sizes are 16, 18, & 20 +staffSize = #18 +#(set-default-paper-size "letter") +#(set-global-staff-size staffSize) +#(ly:set-option (quote no-point-and-click)) + +\header +{ +%Let's bump up the title size and switch to the chord font. :-) + + title = \markup { \override #'(font-family . sans) \fontsize #3.5 "O For A Thousand Tongues" } +% composer = \markup { \override #'(font-family . sans) \fontsize #1.3 "Twila Paris" } + arranger = \markup { \override #'(font-family . sans) \fontsize #1.3 "arr. Ed Smart" } + tagline = "Engraved by JLH and Lilypond 2.8.2" +} + + +% +% Lead vocal +% + +LeadVox = \relative c' +{ +% \set Voice.autoBeaming = ##f +% \set Staff.instrumentName = #"Lead vox" + \clef G + \key f \major + \override Staff.TimeSignature #'style = #'() + \time 3/4 +\override Score.SpacingSpanner #'average-spacing-wishes = ##f + + % Intro + + s2. | % 1 + s2. | % 2 + s2. | % 3 + s2. | % 4 + s2. | % 5 + s2. | % 6 + s2. | % 7 + r2 c4 \bar "||:" % 8 + + \repeat volta 2 + { + % Verse + +\mark \markup { \override #'(font-family . sans) { \box { A } } } + + f8 f g4 g | % 9 + a8 g f4 g | % 10 + a8 a bf4 a | % 11 + g4. r8 c4 | % 12 + c8 a a4 f | % 13 + f8 d d4 f8 ( d ) | % 14 + c8 f f4 g | % 15 + + \voiceTwo f2. | % 16 + s2. | % 17 + } + \alternative + { + { + s2. | % 18 + r2 c4 | % 19 + } + { + s2. | % 20 + } + } + + r2 c4 \oneVoice \bar "||" % 21 + + % Verse + +\mark \markup { \override #'(font-family . sans) { \box { B } } } + + f8 f g4 g | % 22 + a8 g f4 g | % 23 + a8 a bf4 a | % 24 + g4. r8 c4 | % 25 + c8 a a4 f | % 26 + f8 d d4 f8 ( d ) | % 27 + c8 f f4 g \bar "||" % 28 + + \voiceTwo f2. | % 29 + s2. | % 30 + + \key g \major + + s2. | % 31 + r2 d4 \oneVoice \bar "||" % 32 + + % Verse + +\mark \markup { \override #'(font-family . sans) { \box { C } } } + + g8 g a4 a | % 22 + b8 a g4 a | % 23 + b8 b c4 b | % 24 + a4. r8 d4 | % 25 + d8 b b4 g | % 26 + g8 e e4 g8 ( e ) | % 27 + d8 g g4 a \bar "||" % 28 + + % Ending + + \voiceTwo g2.^\markup { \hspace #0.0 \raise #3.0 \italic { Play figure throughout D } } | % 40 + s2. | % 41 + s2. | % 42 + r2 d4 \oneVoice | % 43 + + \repeat volta 2 + { +\mark \markup { \override #'(font-family . sans) { \box { D } } } + + g8 g16 a ( ~ a4. g8 ) | % 44 + g2 r4 | % 45 + r4 a4. g8 | % 46 + g2 d4 | % 47 + g8 g16 a ( ~ a4. g8 ) | % 48 + g2 r4 | % 49 + r4 a4. b8 | % 50 + g2^\fermata d4 | % 51 + } +} + +LeadVoxText = \lyricmode +{ + O for a thou- sand tongues to sing + my great re- dee- mer's praise; + The glo- ries of my God and king, + the __ _ tri- umphs of his grace. + + My + + Je- sus the name that charms our fears + that bids our sor- rows cease; + 'Tis mu- sic in the sin- ner's ears, + 'Tis __ _ life and health and peace. + + He breaks the power of can- celled sin + he sets the pris'- ner free; + His blood can make the foul- est clean, + his __ _ blood a- vailed for me. + + O for a thou- __ _ _ sand tongues to sing + O for a thou- __ _ _ sand tongues to sing + O +} + +LeadVoxTextB = \lyricmode +{ + _ gra- cious mas- ter and my God + a- ssist me to pro- claim; + To spread through all the earth a- broad + the __ _ ho- nors of thy name. +} + + +Riffs = \relative c'' +{ + \clef G + \key f \major + \override Staff.TimeSignature #'style = #'() + \time 3/4 +\override Score.SpacingSpanner #'average-spacing-wishes = ##f + + % Intro + + \tiny + \repeat "percent" 3 % 1 - 6 + { + << { \tiny f16 c f, ~ f, c' f f8 e } \\ { \tiny f,,2 c'4 } >> | % 1 + << { \tiny f'16 c f, ~ f, c' f f8 e } \\ { \tiny bf,2 c4 } >> | % 2 + } + << s2. \\ { \tiny d2 c4 } >> | % 7 + << s2. \\ { \tiny bf2. } >> | % 8 + + s2.*7 + + \voiceOne + \repeat "percent" 6 { f''16 c f, ~ f, c' f f8 e | } % 16-21 + \oneVoice + + s2.*7 + + \voiceOne + \repeat "percent" 2 { f16 c f, f' ~ f f, c' f f8 e | } % 29-30 + \oneVoice + + \key g \major + + \voiceOne + \repeat "percent" 2 { g16 d g, g' ~ g g, d' g g8 fs | } % 31-32 + \oneVoice + + s2.*7 + + \voiceOne + \repeat "percent" 4 { g16 d g, g' ~ g g, d' g g8 fs | } % 40-43 + \oneVoice + \normalsize +} + + +% +% Chord names +% + +Chords = \chordmode +{ +%Bah, can't we set this globally? +% \popChords + + % Intro + + f2. | % 1 + bf2. | % 2 + f2. | % 3 + bf2. | % 4 + f2. | % 5 + bf2. | % 6 + d2.:m9 | % 7 + bf2. | % 8 + + \repeat volta 2 + { + % Verse + + f4 c2/e | % 9 + d8:m c bf2 | % 10 + f4/c bf/c f/c | % 11 + c2 c4/e | % 12 + f2 f4/a | % 13 + bf2 g4:m7 | % 14 + f4/c bf/c c | % 15 + + f2. | % 16 + bf2. | % 17 + } + \alternative + { + { + f2. | % 18 + bf2. | % 19 + } + { + d2.:m9 | % 20 + } + } + + bf2. | % 21 + + % Verse + + d4:m9 c2/e | % 22 + ef4 bf2 | % 23 + d2.:m9 | % 24 + ef2:maj9 bf4/c | % 25 + f4 g:m7 f/a | % 26 + bf2 bf4:m/df | % 27 + f4/c bf/c c | % 28 + + f2. | % 29 + bf2. | % 30 + + g2. | % 31 + c2. | % 32 + + % Verse + + g:^3 | % 33 + e8:m d c2 | % 34 + g4/d c/d g/d | % 35 + d2 d4/fs | % 36 + g2 g4/b | % 37 + c2 a4:m7 | % 38 + g4/d c/d d | % 39 + + % Ending + + g2. | % 40 + c2. | % 41 + e2.:m9 | % 42 + c2. | % 43 + + \repeat volta 2 + { + g2. | % 44 + c2. | % 45 + g2. | % 46 + c2. | % 47 + g2. | % 48 + c2. | % 49 + e2.:m9 | % 50 + c2. | % 51 + } +} + +% +% Alternate chord changes (2nd verse) +% +ChordsSup = \chordmode +{ +%Bah, can't we set this globally? + \popChords + + % Intro + + s2.*8 | % 1-8 + + % Verse + + bf4/d c2/e | % 9 + f8 f/a bf2 | % 10 + f4/g bf/g f/g | % 11 + c2:sus4 c4 | % 12 +} + +% +% Chord rhythms +% + +% Use a RhythmicStaff on the chords instead of this? +% It almost works, but not quite. Doesn't collapse chords above to single notes... + +StaffC = \relative c +{ +% \set Voice.autoBeaming = ##f +% \set Staff.instrumentName = #"Rhythm" + \override Staff.TimeSignature #'style = #'() + \time 3/4 + \override NoteHead #'style = #'slash + + % Intro + + r8. c16 r4 c | % 1 + c4 c c | % 2 + c4 c c | % 3 + c4 c c | % 4 + c4 c c | % 5 + c4 c c | % 6 + c4 c c | % 7 + c4 c c \bar "||:" % 8 + + \repeat volta 2 + { + % Verse + + c4 c2 | % 9 + c8 c c4 c | % 10 + c4 c c | % 11 + c4 c c-> | % 12 + c4 c c | % 13 + c4 c c | % 14 + c4 c c | % 15 + + c4 c c | % 16 + c4 c c | % 17 + } + \alternative + { + { + c4 c c | % 18 + c4 c c | % 19 + } + { + c4 c c | % 20 + } + } + + c4 c c \bar "||" % 21 + + % Verse + + c4 c2 | % 22 + c4 c2 | % 23 + c2. | % 24 + c2 c4-> | % 25 + c4-> c-> c | % 26 + c4 c c | % 27 + c4 c c \bar "||" % 28 + + c4 c c | % 29 + c4 c c | % 30 + + c4 c c | % 31 + c4 c c \bar "||" % 32 + + % Verse + + c2.-> | % 33 + c8-> c-> c4-> c | % 34 + c4 c c | % 35 + c4 c c | % 36 + c4 c c | % 37 + c4 c c | % 38 + c4 c c \bar "||" % 39 + + % Ending + + c4 c c | % 40 + c4 c c | % 41 + c4 c c | % 42 + c4 c c | % 43 + + \repeat volta 2 + { + c4 c c | % 44 + c4 c c | % 45 + c4 c c | % 46 + c4 c c | % 47 + c4 c c | % 48 + c4 c c | % 49 + c4 c c | % 50 + c4^\fermata c c | % 51 + } +} + + +Dynamics = +{ + s4_\markup { \italic { snare pat. } } s2 | % 1 + s4_\markup { \italic { simile } } s2 | % 2 + s2.*19 + s4_\markup { \italic { spacy } } s2 | % 22 + s2.*5 + s4 s \< s \! | % 28 + s2.*22 + s4_\markup { \italic { Last time } } s2 | % 51 +} + + +\score +{ + << + << +% \new Staff = leadStaff { \new Voice = "lead" \LeadVox } + \new Staff = leadStaff { << \new Voice = "lead" \LeadVox \new Voice = "riffs" \Riffs >> } + \new Lyrics \lyricsto "lead" \LeadVoxText + \new Lyrics \lyricsto "lead" \LeadVoxTextB + >> + + \new ChoirStaff = "Rhythm" + << + \new ChordNames = "chords" \Chords + \new ChordNames = "chords2" \ChordsSup + \new RhythmicStaff = "chordRhythm" << \StaffC \Dynamics >> + >> + + \set Score.skipBars = ##t + \set Score.melismaBusyProperties = #'() + >> + + \layout + { +% \context { \Staff \RemoveEmptyStaves } +% ragged-last-bottom = ##t + ragged-last = ##t + } +} + + +\paper +{ + #(define fonts (make-pango-font-tree + "Times New Roman" + "DomCasual BT" + "Luxi Mono" + (/ staffSize 20))) + +% top-margin = -0.25 \in +} diff --git a/o-holy-night.ly b/o-holy-night.ly new file mode 100644 index 0000000..eab3b7d --- /dev/null +++ b/o-holy-night.ly @@ -0,0 +1,462 @@ +\version "2.16.0" +\include "pop-chords.ly" +\include "english.ly" + +% Good sizes are 16, 18, & 20 +staffSize = #20 +#(set-default-paper-size "letter") +#(set-global-staff-size staffSize) +#(ly:set-option (quote no-point-and-click)) + +%{ Some useful characters: ‘ ’ “ ” – — † ‡ • … %} + +\header +{ +%Let's bump up the title size and switch to the chord font. :-) + + title = \markup { \override #'(font-family . sans) \fontsize #3.5 "O Holy Night" } +% composer = \markup { \override #'(font-family . sans) \fontsize #1.3 "" } + arranger = \markup { \override #'(font-family . sans) \fontsize #1.3 "arr. Ed Smart" } + tagline = $(string-append "Engraved by JLH and Lilypond " (lilypond-version)) +% Let's try a chord dictionary +% subtitle = \markup { \center-align { "F#m" \fret-diagram-terse #"x;x;4;2;2;2;" } " " \center-align { "F#m/F" \fret-diagram-terse #"x;x;3;2;2;2;" } " " \center-align { "F#m/E" \fret-diagram-terse #"x;x;2;2;2;2;" } " " \center-align { "F#m/Eb" \fret-diagram-terse #"x;x;1;2;2;2;" } " " \center-align { "Em7" \fret-diagram-terse #"o;2;2;o;3;o;" } " " \center-align { "A13" \fret-diagram-terse #"x;o;2;o;2;2;" } } +} + +% Useful tweak abbreviations (hn = harmony note) + +hn = #(define-music-function (parser location arg) (ly:music?) +;; Harmony Note: Set the tweaks property of the passed in note to use a smaller font + + (set! (ly:music-property arg 'tweaks) + (acons 'font-size -3.0 (ly:music-property arg 'tweaks))) arg) + + +% +% Song's structure +% +Global = +{ + \key bf \major + \override Staff.TimeSignature #'style = #'() + \time 4/4 + +% \once \override TextScript #'padding = #2.0 +% s1*0^\markup { \large \bold { Samba } } +% Capo 4 version +% s1*0^\markup { \hspace #0.0 \raise #2.0 \bigger \bold { "Moderate pop (*** CAPO 4 ***)" } } + + % Intro + + s1*2 \bar "||:" % 1-2 + + \repeat volta 2 + { + % Verse + + \mark \markup { \override #'(font-family . sans) { \box { A } } } + + s1 | % 3 + \time 2/4 s2 \time 4/4 | % 4 + s1*4 | % 5-8 + \time 2/4 s2 \time 4/4 | % 9 + s1*3 \bar "||" % 10-12 + + \mark \markup { \override #'(font-family . sans) { \box { B } } } + + s1*4 \bar "||" % 13-16 + + \once \override Score.RehearsalMark #'self-alignment-X = #left + \mark \markup { \override #'(font-family . sans) { \box { C } } \hspace #1.0 \raise #2.0 \musicglyph #"scripts.segno" } + + s1*4 \bar "||" % 17-20 + + \mark \markup { \override #'(font-family . sans) { \box { D } } } + + s1*4 | % 21-24 + + \once \override Score.RehearsalMark #'self-alignment-X = #right + \mark \markup { \italic { to Coda } \hspace #0.5 \musicglyph #"scripts.coda" } + + s1*3 | % 25-27 + } + \alternative + { + { + s1*2 | % 28-29 + } + { + s1 \bar "||" % 30 + } + } + + \once \override Score.RehearsalMark #'self-alignment-X = #right + \mark \markup { \hspace #0.0 \raise #1.0 \italic { D.S. al Coda } } + + % Coda + + % blank measure between last measure and coda + \stopStaff s1 \bar "" \startStaff % That removed the spurious floating bar line from line break +% \stopStaff s1 \startStaff % That removed the spurious floating bar line from line break + \break % Meh + \set Score.currentBarNumber = #31 + + \once \override Score.RehearsalMark #'self-alignment-X = #left + \mark \markup { { \musicglyph #"scripts.coda" } "Coda" } + + s1*3 \bar "||" % 31-33 + + \mark \markup { \override #'(font-family . sans) { \box { E } } } + + s1*5 \bar "|." % 34-38 +} + + +% +% Lead vocal +% +LeadVox = \relative c' +{ +% \set Staff.instrument = #"Lead vox" + \clef G + \override Staff.TimeSignature #'style = #'() +%Hm. Needed anymore? +% \override Score.SpacingSpanner #'average-spacing-wishes = ##f + \set tupletSpannerDuration = #(ly:make-moment 1 4) + + % Intro + + s1*2 | % 1-2 + + % Verse + + d4 \times 2/3 { d4 d8 } f4. f8 | % 3 + \times 2/3 { g4 g8 ef4 g8 } | % 4 + bf2 \times 2/3 { f4 f8 d4 c8 } | % 5 + bf4 \times 2/3 { d4 ef8 } f4 \times 2/3 { ef4 c8 } | % 6 + bf1 | % 7 + d4 \times 2/3 { d4 d8 } f4. f8 | % 8 + \times 2/3 { g4 g8 ef4 g8 } | % 9 + bf2 \times 2/3 { f4 f8 e4 d8 } | % 10 + a'4 \times 2/3 { f4 g8 } a4 \times 2/3 { bf4 a8 } | % 11 + d,2. f4 | % 12 + + f4 g c, f | % 13 + \times 2/3 { g4 f8 bf4 d,8 } g4 \times 2/3 { f4 f8 } | % 14 + f4 g c, f | % 15 + \times 2/3 { g4 f8 bf4 d,8 } f2 | % 16 + + bf2. \times 2/3 { a4 g8 } | % 17 + a2. a4 | % 18 + c2 ~ \times 2/3 { c4 g8 g4 g8 } | % 19 + bf2 bf4. bf8 | % 20 + + d2 ( c4. ) f,8 | % 21 + bf2. \times 2/3 { a4 g8 } | % 22 + f2 ~ \times 2/3 { f4 f8 g4 f8 } | % 23 + f2. bf4 | % 24 + c2. f,4 | % 25 + d'2. c4 | % 26 + bf2 ~ bf8 a bf c | % 27 + + bf1 | % 28 + s1 | % 29 + + bf1 | % 30 + + % Coda + + s1 % Placeholder for blank measure between end and Coda + + c2. f,4 | % 31 + f'2 ( ~ f8 ef ) d ( c ) | % 32 + bf2 ~ bf8 a bf c | % 33 + + bf1 | % 34 + r1 | % 35 + r1 | % 36 + r1 | % 37 + r1 | % 38 +} + + +LeadVoxText = \lyricmode +{ + O ho -- ly night, the stars are bright -- ly shin -- ing, + it is the night of our dear sa -- vior’s birth. + Long lay the world, in sin and er -- ror pin -- ing, + ’til he ap -- peared and the soul felt its worth. + + A thrill of hope the wear -- y world re -- joic -- es, + for yon -- der breaks a new and glor -- ious morn. + Fall on your knees! Oh hear __ _ the an -- gel voi -- ces! + O night __ _ di -- vine, O the night __ _ when Christ was born; + O night, O ho -- ly night, __ _ O night di -- vine! + + claim! + + night, O ho -- _ _ ly __ _ night, _ O night di -- vine! +%{ +O Holy Night! The stars are brightly shining, +It is the night of the dear Saviour's birth. +Long lay the world in sin and error pining. +Till He appeared and the Spirit felt its worth. +A thrill of hope the weary world rejoices, +For yonder breaks a new and glorious morn. +Fall on your knees! Oh, hear the angel voices! +O night divine, the night when Christ was born; +O night, O Holy Night , O night divine! +O night, O Holy Night , O night divine! + +Led by the light of faith serenely beaming, +With glowing hearts by His cradle we stand. +O'er the world a star is sweetly gleaming, +Now come the wisemen from out of the Orient land. +The King of kings lay thus lowly manger; +In all our trials born to be our friends. +He knows our need, our weakness is no stranger, +Behold your King! Before him lowly bend! +Behold your King! Before him lowly bend! + +Truly He taught us to love one another, +His law is love and His gospel is peace. +Chains he shall break, for the slave is our brother. +And in his name all oppression shall cease. +Sweet hymns of joy in grateful chorus raise we, +With all our hearts we praise His holy name. +Christ is the Lord! Then ever, ever praise we, +His power and glory ever more proclaim! +His power and glory ever more proclaim! +%} +} + +LeadVoxTextB = \lyricmode +{ + Tru -- ly he taught us to love one a -- no -- ther, + his law is love and his gos -- pel is peace. + Chains he shall break, for the slave is our bro -- ther, + and in his name all op -- pres -- sion shall cease. + + Sweet hymns of joy in grate -- ful cho -- rus raise we, + With all our hearts we praise his ho -- ly name. + Christ is the Lord! O praise _ his name for -- e -- ver! + His po -- wer and glo -- ry _ e -- _ ver more pro -- claim! + His pow’r and glo -- ry e -- _ ver more pro- +} + + +Riffs = \relative c +{ +% \clef G +%Hm. Needed anymore? +% \override Score.SpacingSpanner #'average-spacing-wishes = ##f + \set tupletSpannerDuration = #(ly:make-moment 1 4) + + % Intro + + \tiny + \times 2/3 { r8 f bf c bf f ~ f f bf c bf f' ~ } | % 1 + \times 2/3 { f8 f, bf c bf f ~ f f bf c bf f' } | % 2 + s1 | % 3 + s2 | % 4 + s1*4 | % 5-8 + s2 | % 9 + s1*18 | % 10-27 + \times 2/3 { r8 f bf c bf f ~ f f bf c bf f' ~ } | % 28 + \times 2/3 { f8 f, bf c bf f ~ f f bf c bf f' } | % 29 + \normalsize +} + + +% +% Chord names +% +Chords = \chordmode +{ + % Intro + + bf1:5.9 | % 1 + s1 | % 2 + + % Verse + + bf1:5.9 | % 3 + ef2:5.9 | % 4 + bf1:5.9 | % 5 + s2 ef4/f f:7 | % 6 + bf1:5.9 | % 7 + bf1:5.9 | % 8 + ef4:5.9 ef/f | % 9 + g1:m11 | % 10 + d2:m7 g4:m9 a:7.9- | % 11 + d1:m7 | % 12 + + c2:m11 f:7 | % 13 + bf2:6 g:m11 | % 14 + c2:m11 f:7 | % 15 + bf2.:6 bf4:/a | % 16 + + g1:m7 | % 17 + d1:m | % 18 + c1:m7 | % 19 + g1:m11 | % 20 + + bf2/f f/ef | % 21 + bf2/d ef:5.9 | % 22 + bf2/f ef4/f f:7 | % 23 + bf1:5.9 | % 24 + f2 f/ef | % 25 + bf2/d ef:5.9 | % 26 + bf2/f ef/f | % 27 + + bf1:5.9 | % 28 + s1 | % 29 + + bf1:5.9 | % 30 + + % Coda + + s1 % Placeholder for blank measure between end and Coda + + f2 f/ef | % 31 + bf2/d ef:5.9 | % 32 + bf/f ef/f | % 33 + + bf1:5.9 | % 34 + ef1:5.9 | % 35 + bf1:5.9 | % 36 + ef1:5.9 | % 37 + bf1:5.9 | % 38 +} + + +% +% Chord rhythms +% +% Use a RhythmicStaff on the chords instead of this? +% It almost works, but not quite. Doesn't collapse chords above to single notes... +% +Rhythm = \relative c +{ +%% \set Voice.autoBeaming = ##f +%% \set Staff.instrument = #"Rhythm" + \override Staff.TimeSignature #'style = #'() + \override NoteHead #'style = #'slash + +%Not small enough... + \teeny +% \magnify #0.3 + + % Intro + + c1 ~ | % 1 + c1 | % 2 + + % Verse + + c4 c c c | % 3 + c4 c | % 4 + c4 c c c | % 5 + c4 c c c | % 6 + c4 c c c | % 7 + c4 c c c | % 8 + c4 c | % 9 + c4 c c c | % 10 + c4 c c c | % 11 + c4 c c c | % 12 + + c4 c c c | % 13 + c4 c c c | % 14 + c4 c c c | % 15 + c4 c c c | % 16 + + c4 c c c | % 17 + c4 c c c | % 18 + c4 c c c | % 19 + c4 c c c | % 20 + + c4 c c c | % 21 + c4 c c c | % 22 + c4 c c c | % 23 + c4 c c c | % 24 + c4 c c c | % 25 + c4 c c2 | % 26 + c4 c c2 | % 27 + + c1 ~ | % 28 + c1 | % 29 + + c4 c c c | % 30 + + % Coda + + s1 % Placeholder for blank measure between end and Coda + + c4 c c c | % 31 + c4 c c2 | % 32 + c2 c | % 33 + + c4 c c c | % 34 + c4 c c c | % 35 + c4 c c c | % 36 + c4 c c c | % 37 + c1-\fermata | % 38 +} + + +Dynamics = +{ +% s1*4 | % 1-4 +% s4_\markup { \italic { 1st X: Melody, 2nd X+: Solos } } s2. | % 5 +% s1*38 | % 1-38 +% s4_\markup { \bold \italic { Double Chorus 2nd X } } s2. | % 39 +% s1*7 | % 40-46 +% s4_\markup { \bold { Tutti } } s2. | % 47 +} + + +\score +{ + << + \set Score.skipBars = ##t + \set Score.melismaBusyProperties = #'() + +% \new Staff + << + \new ChordNames \Chords +%Capo 4 edition +% \new ChordNames \transpose b g \Chords + \new RhythmicStaff << \Rhythm \Dynamics >> + >> + + \new Staff + << + \Global % The "roadmap" that everything else depends on + \new Voice = "lead" \LeadVox + \new Voice \Riffs + \new Lyrics \lyricsto "lead" \LeadVoxText + \new Lyrics \lyricsto "lead" \LeadVoxTextB + >> + >> +} + + +\paper +{ + #(define fonts (make-pango-font-tree + "Times New Roman" + "DomCasual BT" + "Luxi Mono" + (/ staffSize 20))) + +% Spread staves vertically across last page (default: t) + ragged-last-bottom = ##f +% Don't spread staves vertically across the page (default: f) +% ragged-bottom = ##t +% Allow partial line for last stave (default: f) + ragged-last = ##t + +% To find out what's eating the space at the top... +% annotate-spacing = ##t +%let's try this: [It works! Huzzah!] + obsolete-page-top-space = 0 top-system-spacing #'basic-distance = #(/ obsolete-page-top-space staff-space) +} diff --git a/o-little-town-of-bethlehem.ly b/o-little-town-of-bethlehem.ly new file mode 100644 index 0000000..55bbd86 --- /dev/null +++ b/o-little-town-of-bethlehem.ly @@ -0,0 +1,268 @@ +\version "2.16.0" +\include "pop-chords.ly" +\include "english.ly" + +% Good sizes are 16, 18, & 20 +staffSize = #20 +#(set-default-paper-size "letter") +#(set-global-staff-size staffSize) +#(ly:set-option (quote no-point-and-click)) + +\header +{ +%Let's bump up the title size and switch to the chord font. :-) + + title = \markup { \override #'(font-family . sans) \fontsize #3.5 "O Little Town Of Bethlehem" } + composer = \markup { \override #'(font-family . sans) \fontsize #1.3 "Lewis H. Redner" } + arranger = \markup { \override #'(font-family . sans) \fontsize #1.3 "arr. Craig Harris" } + tagline = "Engraved by JLH and Lilypond 2.8.8" +} + + +% +% Lead vocal +% + +LeadVox = \relative c'' +{ +% \set Voice.autoBeaming = ##f +% \set Staff.instrumentName = #"Lead vox" + \clef G + \key f \major + \override Staff.TimeSignature #'style = #'() + \time 4/4 +\override Score.SpacingSpanner #'average-spacing-wishes = ##f + + % Intro + + \partial 4*1 a4 | % 0 + + \repeat volta 2 + { +\mark \markup { \override #'(font-family . sans) { \box { A } } } + + a4 a af a | % 1 + c4 bf d, g | % 2 + f4 e8 ( f ) g4 c, | % 3 + a'2. a4 | % 4 + a4 a d c | % 5 + c4 bf d, g | % 6 + f4 e8 ( f ) a4 g | % 7 + f2. a4 \bar "||" % 8 + +\mark \markup { \override #'(font-family . sans) { \box { B } } } + + a4 a g f | % 9 + e2 e4 e | % 10 + d4 e f g | % 11 + a2. a4 | % 12 + a4 a af a | % 13 + c4 bf d, d' | % 14 + c4 f, a4. g8 | % 15 + } + \alternative + { + { + f2. a4 | % 16 + } + { + f1^\fermata \bar "|." % 17 + } + } +} + +LeadVoxText = \lyricmode +{ + O lit -- tle town of Beth -- le -- hem, how still we _ see thee lie! + A -- bove thy deep and dream -- less sleep the si -- lent _ stars go by; + Yet in thy dark streets shi -- neth the e -- ver -- last -- ing light: + The hopes and fears of all the years are met in thee to -- night. + + O +} + +LeadVoxTextB = \lyricmode +{ + _ ho -- ly child of Beth -- le -- hem! De -- scend to _ us, we pray; + Cast out our sin and en -- ter in, be born in _ us to -- day. + We hear the Christ -- mas an -- gels the great glad ti -- dings tell; + O come to us, a -- bide with us, our lord Em -- man -- u- _ _ el! +} + + +% +% Chord names +% + +Chords = \chordmode +{ +%Bah, can't we set this globally? +% \popChords + + \partial 4*1 s4 | % 0 + + \repeat volta 2 + { + f2 f4:dim7 f | % 1 + bf2:5.9 g:m7 | % 2 + f2/c g4:m7/c c:7.9- | % 3 + f1:maj7 | % 4 + f2/ef d:7 | % 5 + g2.:m bf4:m6 | % 6 + f2/c g4:m7/c c:7.9- | % 7 + f2:sus4 f | % 8 + + f2 g4:dim7 gs:dim7 | % 9 + a1 | % 10 + d4:m a:7/e f:6 g:m/bf | % 11 + a2:sus4 a | % 12 + f2 f4:dim7 f | % 13 + bf2:5.9 g:7/b | % 14 + f2/c g4:m/c c:7.9- | % 15 + } + \alternative + { + { + f2:sus4 f | % 16 + } + { + f2:sus4 f | % 17 + } + } +} + + +% +% Chord rhythms +% + +% Use a RhythmicStaff on the chords instead of this? +% It almost works, but not quite. Doesn't collapse chords above to single notes... + +StaffC = \relative c +{ +% \set Voice.autoBeaming = ##f +% \set Staff.instrumentName = #"Rhythm" + \override Staff.TimeSignature #'style = #'() + \time 4/4 + \override NoteHead #'style = #'slash + + % Intro + + \partial 4*1 s4 | % 0 + + \repeat volta 2 + { + c4 c c c | % 1 + c4 c c c | % 2 + c4 c c c | % 3 + c4 c c c | % 4 + c4 c c c | % 5 + c4 c c c | % 6 + c4 c c c | % 7 + c4 c c c \bar "||" % 8 + + c4 c-> c-> c-> | % 9 + c4 c c c | % 10 + c4 c c c | % 11 + c4 c c c | % 12 + c4 c c c | % 13 + c4 c c c | % 14 + c4 c c c | % 15 + } + \alternative + { + { + c4 c c c | % 16 + } + { + c2 c^\fermata \bar "|." % 17 + } + } +} + + +Dynamics = +{ + \override TextScript #'extra-offset = #'( 0.0 . -1.0 ) + + \partial 4*1 s4 | % 0 + s4_\markup { \italic { 1st X a capella } } s2. | % 1 + s1*6 + s4_\markup { \dynamic mf \italic { band in } } s2. | % 8 + s1*6 + s4_\markup { \italic { rit. 2nd X } } s2. | % 15 + +%{ + \override TextScript #'extra-offset = #'( 0.0 . -1.0 ) + + \partial 4*1 s4_\f | % 0 + s4_\markup { \italic { full band, snare } } s2. | % 1 + s1*2 + s4 s \> s s \! | % 4 + s4_\markup { \dynamic mf \italic { piano only } } s2. | % 5 + s1*11 + s4_\markup { \dynamic mp \italic { bass in, cym } } s2. | % 17 + s1*2 + s4 s \< s s_\f | % 20 + s1*2 + s2 s_\markup { \italic { dr. fill } } | % 23 + s4_\markup { \italic { dr. groove, s-stick 2&4 } } s2. | % 24 + s1*13 + s4_\markup { \dynamic mp \italic { no backbeat } } s2. | % 38 + s1*2 + s4 s \< s s_\f | % 41 + s4_\markup { \italic { backbeat } } s2. | % 42 + s1*2 + s2 s_\markup { \italic { dr. fill } } | % 45 + s4_\markup { \italic { Majestic, slower w/snare } } s2. | % 46 + s1*11 + s4_\markup { \dynamic mp \italic { no backbeat } } s2. | % 58 + s1*2 + s4 s \< s_\markup { \hspace #0.0 \raise #-2.0 \italic { dr.fill } } s_\f | % 61 + s4_\markup { \italic { backbeat } } s2. | % 62 + s1*6 + s4_\markup { \italic { rit. } } s2. | % 69 +%} +} + + +\score +{ + << + << + \new Staff = leadStaff { \new Voice = "lead" \LeadVox } +% \new Staff = leadStaff { << \new Voice = "lead" \LeadVox \new Voice = "riffs" \Riffs >> } + \new Lyrics \lyricsto "lead" \LeadVoxText + \new Lyrics \lyricsto "lead" \LeadVoxTextB + >> + + \new ChoirStaff = "Rhythm" + << + \new ChordNames = "chords" \Chords + \new RhythmicStaff = "chordRhythm" << \StaffC \Dynamics >> + >> + + \set Score.skipBars = ##t + \set Score.melismaBusyProperties = #'() + >> + + \layout + { +% \context { \Staff \RemoveEmptyStaves } +% ragged-last-bottom = ##t + ragged-last = ##t + } +} + + +\paper +{ + #(define fonts (make-pango-font-tree + "Times New Roman" + "DomCasual BT" + "Luxi Mono" + (/ staffSize 20))) + +% top-margin = -0.25 \in +} diff --git a/one-small-child.ly b/one-small-child.ly new file mode 100644 index 0000000..6e8715f --- /dev/null +++ b/one-small-child.ly @@ -0,0 +1,437 @@ +\version "2.16.0" +\include "pop-chords.ly" +\include "english.ly" + +% Good sizes are 16, 18, & 20 +staffSize = #20 +#(set-default-paper-size "letter") +#(set-global-staff-size staffSize) +#(ly:set-option (quote no-point-and-click)) + +%{ Some useful characters: ‘ ’ “ ” – — † ‡ • … %} + +\header +{ +%Let's bump up the title size and switch to the chord font. :-) + + title = \markup { \override #'(font-family . sans) \fontsize #3.5 "One Small Child" } + composer = \markup { \override #'(font-family . sans) \fontsize #1.3 "D. Meece" } + arranger = \markup { \override #'(font-family . sans) \fontsize #1.3 "arr. Ed Smart" } + tagline = $(string-append "Engraved by JLH and Lilypond " (lilypond-version)) +% Let's try a chord dictionary +% subtitle = \markup { \center-align { "F#m" \fret-diagram-terse #"x;x;4;2;2;2;" } " " \center-align { "F#m/F" \fret-diagram-terse #"x;x;3;2;2;2;" } " " \center-align { "F#m/E" \fret-diagram-terse #"x;x;2;2;2;2;" } " " \center-align { "F#m/Eb" \fret-diagram-terse #"x;x;1;2;2;2;" } " " \center-align { "Em7" \fret-diagram-terse #"o;2;2;o;3;o;" } " " \center-align { "A13" \fret-diagram-terse #"x;o;2;o;2;2;" } } +} + +% Useful tweak abbreviations (hn = harmony note) + +hn = #(define-music-function (parser location arg) (ly:music?) +;; Harmony Note: Set the tweaks property of the passed in note to use a smaller font + + (set! (ly:music-property arg 'tweaks) + (acons 'font-size -3.0 (ly:music-property arg 'tweaks))) arg) + + +% +% Song's structure +% +Global = +{ + \key d \minor + \override Staff.TimeSignature #'style = #'() + \time 4/4 + +% \once \override TextScript #'padding = #2.0 +% s1*0^\markup { \large \bold { Samba } } +% Capo 4 version +% s1*0^\markup { \hspace #0.0 \raise #2.0 \bigger \bold { "Moderate pop (*** CAPO 4 ***)" } } + + % Intro + + s1*4 \bar "||" % 1-4 + + % Verse + + \mark \markup { \override #'(font-family . sans) { \box { A } } } + + s1*9 | % 5-13 + + \once \override Score.RehearsalMark #'self-alignment-X = #right + \mark \markup { { To Coda } \hspace #0.5 \musicglyph #"scripts.coda" } + + s1 \bar "||:" % 14 + + \repeat volta 2 + { + % Verse + + \mark \markup { \override #'(font-family . sans) { \box { B } } } + + s1*10 \bar "||" % 15-24 + + % Bridge + + \mark \markup { \override #'(font-family . sans) { \box { C } } } + + s1*7 | % 25-31 + } + \alternative + { + { + \time 6/4 s1. | % 32 + } + { + s1. \bar "||" % 33 + } + } + + \once \override Score.RehearsalMark #'self-alignment-X = #right + \mark \markup { \hspace #0.0 \raise #1.0 \italic { D.C. al Coda } } + + % Coda + + % blank measure between last measure and coda +% \stopStaff s1 \bar "" \startStaff % That removed the spurious floating bar line from line break + \stopStaff s1 \startStaff % That removed the spurious floating bar line from line break +% \break % Meh + \set Score.currentBarNumber = #34 + + \once \override Score.RehearsalMark #'self-alignment-X = #left + \mark \markup { { \musicglyph #"scripts.coda" } "Coda" } + + \time 4/4 s1*5 \bar "|." % 34-38 +} + + +% +% Lead vocal +% +LeadVox = \relative c' +{ +% \set Staff.instrument = #"Lead vox" + \clef G + \override Staff.TimeSignature #'style = #'() +%Hm. Needed anymore? +% \override Score.SpacingSpanner #'average-spacing-wishes = ##f + + % Intro + + s1*4 | % 1-4 + + % Verse + + d4 a' g f8 e | % 5 + d4 e8 f e ( d ) c4 | % 6 + d4 a' c c8 c | % 7 + b8 a g4 a2 | % 8 + d,4 a' g f8 e | % 9 + d4 e8 f e ( d ) c4 | % 10 + d4 a' g f8 e | % 11 + d1 | % 12 + d4 a' g f8 e | % 13 + d2. r4 | % 14 + + % Verse + + d4 a' g f8 e | % 15 + d4 e8 ( f ) e ( d ) c4 | % 16 + d4 a' c c8 c | % 17 + b8 a g4 a2 | % 18 + d,4 a' g f8 e | % 19 + d4 e8 f e d c4 | % 20 + d4 a' g f8 e | % 21 + d4 ( a' g ) f8 ( e | % 22 + d4 a' g f8 e | % 23 + d1 ) | % 24 + + % Bridge + + a'4 a g a8 bf | % 25 + a4 bf8 a g4 c, | % 26 + a'4 a g c | % 27 + f,8 ( e ) d4 c2 | % 28 + a'4 a g c | % 29 + a4 bf8 a g4 c, | % 30 + a'4 a g c | % 31 + + f,8 ( e ) d4 c1 | % 32 + + f8 ( e ) d4 c1 | % 33 + + % Coda + + s1 % For blank measure + + d1 | % 34 + d4 a' g-\fermata f8 c' | % 35 + d1 | % 36 + s1*2 | % 37-38 +} + + +LeadVoxText = \lyricmode +{ + One small child in a land of a thou -- _ sand, + One small dream of a sav -- ior to -- night. + One small hand reach -- ing out to the star -- _ light, + One small ci -- ty of life. + One small ci -- ty of life. + + One king bring -- ing his gold and _ ri -- _ ches, + One king rul -- ing an ar -- my of might, + One king kneel -- ing with in -- cense and can -- dle -- light, + One King bring -- ing us life. __ _ _ + Oh, __ _ _ _ _ _ _ _ + + See him ly -- ing a cra -- dle be -- neath him, + See him smil -- ing in _ the stall. + See his moth -- er prais -- ing his fa -- ther, + See his ti -- ny eye -- _ lids fall. + + _ _ _ _ + life. + One small sav -- ior of life. +} + +LeadVoxTextB = \lyricmode +{ + One small child in a land of a thou -- _ sand, + One small dream in a peo -- ple of might, + One small hand reach -- ing out to the star -- _ light, + One small sav -- ior of life. + One small sav -- ior of _ + + One small light from the flame of a can -- _ dle, + One small light from a ci -- ty of might, + One small light from the stars in the end -- less night, + One small light from his face. __ _ _ + Oh, __ _ _ _ _ _ _ _ + + See the shep -- herds _ kneel -- ing be -- fore him, + See the kings on bend -- _ ed knee, + See the moth -- er prais -- ing his fa -- ther, + See the bless -- ed _ _ _ _ in -- _ fant sleep. +} + + +Riffs = \relative c''' +{ +% \clef G +%Hm. Needed anymore? +% \override Score.SpacingSpanner #'average-spacing-wishes = ##f + + % Intro + + \tiny + << { \tiny a2 g } \\ { \tiny r8 a, d f c4 g } >> | % 1 + << { f'2 e } \\ { a,4 d8 a bf4 g } >> | % 2 + << { d'4 e8 f e4 ~ e16 d cs8 } \\ { f,2 g } >> | % 3 + << { 1 } \\ { g2 f } >> | % 4 + + s1*27 | % 5-31 + s1.*2 | % 32-33 + s1*3 | % 34-35 (+ blank Coda measure) + + << { \tiny a'2 g } \\ { \tiny r8 a, d f c4 g } >> | % 36 + << { f'2 e } \\ { a,4 d8 a bf4 g } >> | % 37 + 1-\fermata | % 38 + \normalsize +} + + +% +% Chord names +% +Chords = \chordmode +{ + % Intro + + d2:m c/e | % 1 + d2:m/f g:m6 | % 2 + d2:m/a a:7 | % 3 + d2:sus4 d:m | % 4 + + % Verse + + d2:m c | % 5 + d2:m a:m7 | % 6 + d2:m f | % 7 + g2 a4:sus4 a | % 8 + d2:m a:m | % 9 + bf2:maj7 a:m7 | % 10 + g2:m7 a:m7 | % 11 + d2:m c | % 12 + bf2:maj7 c | % 13 + d2:sus4 d:m | % 14 + + % Verse + + d2:m c | % 15 + bf2:maj7 a:m7 | % 16 + d2:m f | % 17 + g2 a4:sus4 a | % 18 + d2:m a:m7 | % 19 + bf2:maj7 a:m7 | % 20 + g2:m7 a:m7 | % 21 + d2:m7 c | % 22 + bf2:maj7 c | % 23 + d1:m | % 24 + + % Bridge + + f2 g:m/f | % 25 + f2 g:m/f | % 26 + f2 c/e | % 27 + d4:m7 g:7 c2:sus2 | % 28 + f2 g:m/f | % 29 + f2 g:m/f | % 30 + f2 c/e | % 31 + + d4:m7 g:7 c1:sus2 | % 32 + + d4:m7 g:7 c1:sus2 | % 33 + + % Coda + + s1 % For blank measure + + bf2:maj7 a:m7 | % 34 + g2:m7 c | % 35 + d2:m c/e | % 36 + d2:m/f g:m6 | % 37 + d1 | % 38 +} + + +% +% Chord rhythms +% +% Use a RhythmicStaff on the chords instead of this? +% It almost works, but not quite. Doesn't collapse chords above to single notes... +% +Rhythm = \relative c +{ +%% \set Voice.autoBeaming = ##f +%% \set Staff.instrument = #"Rhythm" + \override Staff.TimeSignature #'style = #'() + \override NoteHead #'style = #'slash + +%Not small enough... + \teeny +% \magnify #0.3 + + % Intro + + c2 c | % 1 + c2 c | % 2 + c2 c | % 3 + c4 c c2 | % 4 + + % Verse + + c4 c c c | % 5 + c4 c c c | % 6 + c4 c c c | % 7 + c4 c c c | % 8 + c4 c c c | % 9 + c4 c c c | % 10 + c4 c c c | % 11 + c4 c c c | % 12 + c4 c c c | % 13 + c4 c c2 | % 14 + + % Verse + + c4 c c c | % 15 + c4 c c c | % 16 + c4 c c c | % 17 + c4 c c c | % 18 + c4 c c c | % 19 + c4 c c c | % 20 + c4 c c c | % 21 + c4 c c c | % 22 + c4 c c c | % 23 + c4 c c c | % 24 + + % Bridge + + c4 c c c | % 25 + c4 c c c | % 26 + c4 c c c | % 27 + c4 c c c | % 28 + c4 c c c | % 29 + c4 c c c | % 30 + c4 c c c | % 31 + + c4 c c2 ~ c2 | % 32 + + c4 c c2 ~ c2 | % 33 + + % Coda + + s1 % For blank measure + + c4 c c c | % 34 + c4 c c2-\fermata | % 35 + c2 c | % 36 + c2 c | % 37 + c1-\fermata | % 38 +} + + +Dynamics = +{ +% s1*4 | % 1-4 +% s4_\markup { \italic { 1st X: Melody, 2nd X+: Solos } } s2. | % 5 +% s1*38 | % 1-38 +% s4_\markup { \bold \italic { Double Chorus 2nd X } } s2. | % 39 +% s1*7 | % 40-46 +% s4_\markup { \bold { Tutti } } s2. | % 47 +} + + +\score +{ + << + \set Score.skipBars = ##t + \set Score.melismaBusyProperties = #'() + +% \new Staff + << + \new ChordNames \Chords +%Capo 4 edition +% \new ChordNames \transpose b g \Chords + \new RhythmicStaff << \Rhythm \Dynamics >> + >> + + \new Staff + << + \Global % The "roadmap" that everything else depends on + \new Voice = "lead" \LeadVox + \new Voice \Riffs + \new Lyrics \lyricsto "lead" \LeadVoxText + \new Lyrics \lyricsto "lead" \LeadVoxTextB + >> + >> +} + + +\paper +{ + #(define fonts (make-pango-font-tree + "Times New Roman" + "DomCasual BT" + "Luxi Mono" + (/ staffSize 20))) + +% Spread staves vertically across last page (default: t) + ragged-last-bottom = ##f +% Don't spread staves vertically across the page (default: f) +% ragged-bottom = ##t +% Allow partial line for last stave (default: f) + ragged-last = ##t + +% To find out what's eating the space at the top... +% annotate-spacing = ##t +%let's try this: [It works! Huzzah!] + obsolete-page-top-space = 0 top-system-spacing #'basic-distance = #(/ obsolete-page-top-space staff-space) +} diff --git a/open-the-eyes-of-my-heart.ly b/open-the-eyes-of-my-heart.ly new file mode 100755 index 0000000..04c9ea6 --- /dev/null +++ b/open-the-eyes-of-my-heart.ly @@ -0,0 +1,354 @@ +\version "2.16.0" +\include "pop-chords.ly" +\include "english.ly" + +% Good sizes are 16, 18, & 20 +staffSize = #18 +#(set-default-paper-size "letter") +#(set-global-staff-size staffSize) +#(ly:set-option (quote no-point-and-click)) + +\header +{ +%Let's bump up the title size and switch to the chord font. :-) + + title = \markup { \override #'(font-family . sans) \fontsize #3.5 "Open The Eyes Of My Heart" } +% composer = \markup { \override #'(font-family . sans) \fontsize #1.3 "" } + arranger = \markup { \override #'(font-family . sans) \fontsize #1.3 "arr. Ed Smart" } + tagline = $(string-append "Engraved by JLH and Lilypond " (lilypond-version)) +} + + +% +% Lead vocal +% + +LeadVox = \relative c'' +{ + \set Voice.autoBeaming = ##f +% \set Staff.instrument = #"Lead vox" + \clef G + \key e \major + \override Staff.TimeSignature #'style = #'() + \time 4/4 +\override Score.SpacingSpanner #'average-spacing-wishes = ##f + + \set Score.markFormatter = #format-mark-box-letters + + % Intro + + r1^\markup { Mid-tempo rock } | % 1 + r1 | % 2 + r1 | % 3 + r1 | % 4 + + % Verse + + \repeat volta 2 + { +\once \override Score.RehearsalMark #'self-alignment-X = #left +\mark \markup { \override #'(font-family . sans) { \box { A } } \hspace #1.0 \raise #2.0 \musicglyph #"scripts.segno" } + + gs8 [ b b b ] ~ b [ gs b b ] ~ | % 5 + b8 [ gs ] ~ gs4 r2 | % 6 + gs8 [ b b b ] ~ b [ gs b b ] ~ | % 7 + b4 r \times 2/3 { gs4 fs e } | % 8 + fs4. e8 ~ e2 | % 9 + r2 \times 2/3 { gs4 fs e } | % 10 + fs4. e8 ~ e2 | % 11 + } + \alternative + { + { + r1 | % 12 + } + { + r4. e8 gs4 b | % 13 + } + } + + % Chorus + + \repeat volta 3 + { +% \mark #2 +\mark \markup { \override #'(font-family . sans) { \box { B } } } + + b4 b8 [ b ] ~ b4 cs8 [ cs ] ~ | % 14 + cs4 r4 r2 | % 15 + cs8 [ b b b ] cs [ b gs gs ] ~ | % 16 + gs [ fs ] ~ fs4 r2 | % 17 + gs8. [ b16 ] ~ b8 [ b ] b [ gs b cs ] ~ | % 18 + cs4 r8 gs gs4 b | % 19 + cs4 b8 [ b ] ~ b4 gs8 [ gs ] ~ | % 20 + gs8 [ fs ] ~ fs4 r2 | % 21 + } + \alternative + { + { + r1 \bar "||" % 22 +\once \override Score.RehearsalMark #'self-alignment-X = #right +\mark \markup { \italic { D.S. } } + } + { + r4. e8 gs4 b | % 23 + } + { + r1 | % 24 + } + } + + % Outro + + \repeat volta 2 + { +% \mark #3 +\mark \markup { \override #'(font-family . sans) { \box { C } } } + + cs4 b8 [ b ] ~ b4 gs8 [ gs ] ~ | % 25 + gs8 [ fs ] ( e4 ) ~ e2 | % 26 + cs'4 b8 [ b ] ~ b4 gs8 [ gs ] ~ | % 27 + gs8 [ fs ] ( e4 ) ~ e2 | % 28 + cs'4 b8 [ b ] ~ b4 gs8 [ gs ] ~ | % 29 + gs8 [ fs ] ( e4 ) \times 2/3 { gs fs e } | % 30 + fs4. e8 ~ e2 ~ | % 31 + e2. r4 | % 32 + } +} + +LeadVoxText = \lyricmode +{ + O -- pen the eyes _ of my heart _ Lord _ + O -- pen the eyes _ of my heart _ + I want to see you _ + I want to see you _ + + To see you + + high and lift -- _ ed up _ + Shi -- ning in the light of your glo -- _ ry _ + Pour out _ your po -- wer and love _ + As we sing ‘Ho -- ly, ho -- _ ly, ho -- _ ly' _ + + To see you + + Ho -- ly ho -- _ ly ho -- _ ly __ _ _ + Ho -- ly ho -- _ ly ho -- _ ly __ _ _ + Ho -- ly ho -- _ ly ho -- _ ly __ _ + I want to see you __ _ _ +} + + +% +% Chord names +% + +Chords = \chordmode +{ +%Bah, can't we set this globally? +% \popChords + + \override Staff.TimeSignature #'style = #'() + \time 4/4 + + % Intro + + e1:sus2 | % 1 + s1 | % 2 + s1 | % 3 + s1 | % 4 + + % Verse + + \repeat volta 2 + { + e1:sus2 | % 5 + s1 | % 6 + b1:sus2/ds | % 7 + r1 | % 8 + a1:sus2/cs | % 9 + a1 | % 10 + a4.:6/e e8 s2 | % 11 + } + \alternative + { + { + a1/b | % 12 + } + { + e1 | % 13 + } + } + + % Chorus + + \repeat volta 3 + { + b1 | % 14 + cs1:m | % 15 + a2.. b8:sus4 | % 16 + s2 b | % 17 + gs1:m | % 18 + cs1:m | % 19 + fs2..:m a8/b | % 20 + s2.. a8/b | % 21 + } + \alternative + { + { + s1 \bar "||" % 22 + } + { + a1/b | % 23 + } + { + a1/b | % 24 + } + } + + % Outro + + \repeat volta 2 + { + e1:sus2 | % 25 + s1 | % 26 + b1:sus2/ds | % 27 + s1 | % 28 + a1:sus2/cs | % 29 + fs2:m a/b | % 30 + a4.:6/e e8 s2 | % 31 + a1/b | % 32 + } +} + + +% +% Chord rhythms +% + +% Use a RhythmicStaff on the chords instead of this? +% It almost works, but not quite. Doesn't collapse chords above to single notes... + +StaffC = \relative c +{ + \set Voice.autoBeaming = ##f +% \set Staff.instrument = #"Rhythm" + \override Staff.TimeSignature #'style = #'() + \time 4/4 + \override NoteHead #'style = #'slash + + % Intro + + c1-\markup { \italic { Floating, cymbal colors, bass sus. } } | % 1 + c1 | % 2 + c1 | % 3 + c1 | % 4 + + % Verse + + \repeat volta 2 + { + c1-\markup { \dynamic mf \italic { Colors 1st time, sidestick on DS } } | % 5 + c1 | % 6 + c1 | % 7 + c1 | % 8 + c1 | % 9 + c1 | % 10 + c4. c8 ~ c2 | % 11 + } + \alternative + { + { + c1 | % 12 + } + { +% c4-> \f c-> \< r2-\markup { \italic { dr. fill } } \ff | % 13 + << { \voiceOne c4_> c_> r2_\markup { \italic { dr. fill } } } + \new Voice = "v" { \voiceTwo s4 \f s s4. \< s8 \ff } >> + +%{ + r2 r4 r8 << { \voiceOne ~ } \new Voice = "v" { \voiceTwo fs8 ~ } >> | % 12 + << { \voiceOne 1 ~ } \context Voice = v { \voiceTwo fs2 ~ fs4. f8 ~ } >> | % 13 + << { \voiceOne 2 } \context Voice = v { \voiceTwo f2 } >> \oneVoice r2 | % 14 +%} + + } + } + + % Chorus + + \repeat volta 3 + { + c4._\markup { \italic { Rock 4 } } c8 ~ c2 | % 14 + c4. c8 ~ c2 | % 15 + c4. c8 ~ c4. c8 ~ | % 16 + c2 c4_\markup { \italic { dr. fill } } c | % 17 + c4. c8 ~ c2 | % 18 + c4. c8 ~ c2 | % 19 + c4. c8 ~ c4. c8 ~ | % 20 + c4 c c c8 [ c ] ~ | % 21 + } + \alternative + { + { + c1 | % 22 + } + { + c4_> c_> r2_\markup { \italic { dr. fill } } | % 23 + } + { +% << c1 \\ { s4 \> s2 s4 \! } >> | % 24 + << { \voiceOne c1 } \context Voice = v { \voiceTwo s4 \> s2 s4 \! } >> | % 24 + } + } + + % Outro + + \repeat volta 2 + { + c1_\markup { \dynamic mf \italic { Floating } } | % 25 + c1 | % 26 + c1 | % 27 + c1 | % 28 + c1 | % 29 + c2 c | % 30 + c4. c8^\fermata _\markup { \italic { Last time } } ~ c2 | % 31 + c1 | % 32 + } +} + + +\score +{ + << +% \new ChoirStaff = "Vox" + << + \new Staff = leadStaff { \new Voice = "lead" \LeadVox } + \new Lyrics \lyricsto "lead" \LeadVoxText + >> + + \new ChoirStaff = "Rhythm" + << + \new ChordNames = "chords" \Chords + \new RhythmicStaff = "chordRhythm" \StaffC + >> + + \set Score.skipBars = ##t + \set Score.melismaBusyProperties = #'() + >> + \layout + { +% ragged-last-bottom = ##t + ragged-last = ##t + } +} + + +\paper +{ + #(define fonts (make-pango-font-tree + "Times New Roman" + "DomCasual BT" + "Luxi Mono" + (/ staffSize 20))) +} diff --git a/oxygen.ly b/oxygen.ly new file mode 100644 index 0000000..e4e1c9b --- /dev/null +++ b/oxygen.ly @@ -0,0 +1,890 @@ +\version "2.16.0" +\include "pop-chords.ly" +\include "english.ly" + +% Good sizes are 16, 18, & 20 +staffSize = #18 +#(set-default-paper-size "letter") +#(set-global-staff-size staffSize) +#(ly:set-option (quote no-point-and-click)) + +%{ Some useful characters: ‘ ’ “ ” – — † ‡ • … %} + +\header +{ + title = \markup { \override #'(font-family . sans) \fontsize #3.5 "Oxygen" } + composer = \markup { \override #'(font-family . sans) \fontsize #1.3 "Michael Passons" } + arranger = \markup { \override #'(font-family . sans) \fontsize #1.3 "arr. Ed Smart/Shamus Hammons" } + tagline = $(string-append "Engraved by JLH and Lilypond " (lilypond-version)) +} + +% Useful tweak abbreviations (hn = harmony note) + +hn = #(define-music-function (parser location arg) (ly:music?) +;; Harmony Note: Set the tweaks property of the passed in note to use a smaller font + + (set! (ly:music-property arg 'tweaks) + (acons 'font-size -3.0 (ly:music-property arg 'tweaks))) arg) + + +% +% Lead vocal +% + +LeadVox = \relative c' +{ +% \set Voice.autoBeaming = ##f +% \set Staff.instrument = #"Lead vox" + \override Staff.TimeSignature #'style = #'() + \clef G + \key a \major + \time 4/4 +\override Score.SpacingSpanner #'average-spacing-wishes = ##f + + % Intro + + R1^\markup { \italic { perc. } } \bar "||" % 1 + + R1 | % 2 + R1 | % 3 + R1 | % 4 + R1 | % 5 + R1 | % 6 + R1 | % 7 + R1 | % 8 + r2 r4 r8 cs \bar "||:" % 9 + + % Verse + +\mark \markup { \override #'(font-family . sans) { \box { A } } } + + e8 e4 e8 ~ e4. cs8 | % 10 + e8 e4 e8 ~ e cs4 a8 ~ | % 11 + a4 r r2 | % 12 + r2 r4 r8 a | % 13 + cs4 cs8 cs ~ cs4 r8 a | % 14 + b8 b4 b8 ~ b gs4 gs8 | % 15 + a4. a8 ~ a4 fs8 fs ~ | % 16 + fs2 r4 r8 cs'8 \bar "||" % 17 + +\mark \markup { \override #'(font-family . sans) { \box { A9 } } } + + e8 e4 e8 ~ e4. cs8 | % 18 + e8 e4 e8 ~ e cs4 a8 ~ | % 19 + a4 r r2 | % 20 + r2 r8 a4. | % 21 + cs4 cs8 cs ~ cs4 r8 a | % 22 + b8 b4 b8 ~ b gs4 r8 | % 23 + a4 a8 a8 ~ a4 fs8 fs ~ | % 24 + fs2 r4 r8 g \bar "||" % 25 + + % Prechorus + +\mark \markup { \override #'(font-family . sans) { \box { A17 } } } + + d'4 ( c8 ) c ~ c r4 b8 | % 26 + a8 a4 b8 ~ b8 r4 g8 | % 27 + d'4 ( c8 ) c ~ c r4 b8 | % 28 + d8 d4 e8 ~ e4 d8 d \bar "||" % 29 + + % Chorus + +\mark \markup { \override #'(font-family . sans) { \box { B } } } + + r4 fs8 fs ~ fs4 fs | % 30 + fs4 d8 d4. r8 a | % 31 + d4 d8 d ~ d4 r8 a | % 32 + cs4 cs8 cs ~ cs4 r4 | % 33 + r4 d8 e8 ~ e4 fs | % 34 + fs4 d8 d4 r8 fs \slurUp e ( | % 35 + cs8 ) \slurNeutral cs4 a8 ~ a r e' d ( | % 36 + b4 ) b8 b ~ b4 a8 b ~ | % 37 + + b1 | % 38 + R1 | % 39 + R1 | % 40 + r2 r4 r8 e \bar "||" % 41 + + % Verse + + \key c \major + +\mark \markup { \override #'(font-family . sans) { \box { C } } } + + g8 g4 g8 ~ g4. e8 | % 42 + g8 g4 g8 ~ g e4 c8 ~ | % 43 + c4 r r2 | % 44 + r2 r4 r8 c | % 45 + e4 e8 e ~ e4 r8 c | % 46 + d8 d4 d8 ~ d b4 b8 | % 47 + c4 c8 c8 ~ c8 g ( a ) a ~ | % 48 + a2 r4 r8 e'8 \bar "||" % 49 + +\mark \markup { \override #'(font-family . sans) { \box { C9 } } } + + g8 g4 g8 ~ g4. e8 | % 50 + g8 g4 g8 ~ g d'4. ~ | % 51 + d8 c16 ( b c4 ~ c8 b a4 ) | % 52 + r2 r4 r8 c, | % 53 + e4 e8 e ~ e4 r8 c | % 54 + d8 d4 d8 ~ d b4 b8 | % 55 + c4 c8 c8 ~ c8 g ( a ) a ~ | % 56 + a2 r4 bf \bar "||" % 57 + + % Prechorus + +\mark \markup { \override #'(font-family . sans) { \box { C17 } } } + + f'4 ( ef8 ) ef ~ ef r4 d8 | % 58 + c8 c4 d8 ~ d8 r4 bf8 | % 59 + f'4 ( ef8 ) ef ~ ef r4 d8 | % 60 + f8 f4 g8 ~ g4 f8 f \bar "||" % 61 + + % Chorus + +\mark \markup { \override #'(font-family . sans) { \box { D } } } + + \voiceOne r4 a8 a ~ a4 a \oneVoice | % 62 + a4 f8 f4. r8 c | % 63 + f4 f8 \tieUp f ~ f4 r8 c | % 64 + e4 e8 e ~ e4 \tieNeutral r4 | % 65 + r4 f8 g8 ~ g4 a | % 66 + a4 f8 f4 r8 a \slurUp g ( | % 67 + e8 ) e4 \slurNeutral c8 ~ c r g' f ( | % 68 + d4 ) d8 d ~ d4 c8 d ~ | % 69 + d1 | % 70 + R1 \bar "||" % 71 + + % Bridge + +\mark \markup { \override #'(font-family . sans) { \box { E } } } + + r4 \voiceOne d8 d ~ d f4 f8 | % 72 + \oneVoice r4 \voiceOne d8 f ~ f a4 a8 ~ | % 73 + a2 \oneVoice r4. \voiceOne a,8 | % 74 + bf'4. a8 ~ a g4 f8 ~ | % 75 + f8 \oneVoice r \voiceOne d d ~ d e4 e8 | % 76 + \oneVoice r4 \voiceOne f8 f ~ f a4 ~ a16 bf ( | % 77 + a2 ) \oneVoice r4. \voiceOne a,8 | % 78 + bf'4. a8 ~ a g4 f8 ~ | % 79 + f4 \oneVoice r4 r2 | % 80 + \voiceOne a4. g8 ~ g f4 f8 ~ | % 81 + f4 \oneVoice r r d8 e8 ~ | % 82 + e2. r8 d \bar "||" % 83 + + % Prechorus + +\mark \markup { \override #'(font-family . sans) { \box { F } } } + + f4 ( ef8 ) ef ~ ( ef d ) d ( c ) | % 84 + c8 c4 c8 ~ c8 r4 d8 | % 85 + f4. \tieUp ef8 ~ ef d4 ef8 ~ | % 86 + ef8 \tieNeutral r f4 g8 f4 f8 ( ~ | % 87 + f8 d16 c d8 f ~ f 4 8 | % 88 + + \repeat volta 4 + { + % Chorus + +\mark \markup { \override #'(font-family . sans) { \box { G } } } + +% a2. ) r4 | % 89 + << { \voiceOne 2. ) r4 } \context Voice = "v2" { \voiceTwo r4 a8 a ~ a4 a } >> \oneVoice | % 89 + a4 f8 f4. r8 c | % 90 + f4 f8 f ~ f4 r8 c | % 91 + e4 e8 e ~ e4 r4 | % 92 + r4 f8 g8 ~ g4 a | % 93 + a4 f8 f4 r8 a \slurUp g ( | % 94 + e8 ) \slurNeutral e4 c8 ~ c r g' f ( | % 95 + } + \alternative + { + { + d4 ) d8 d ~ d4 c8 d | % 96 + } + { + d4 d8 d ~ d4 c8 d | % 97 + } + } + + % Outro + +\mark \markup { \override #'(font-family . sans) { \box { H } } } + + \repeat volta 2 + { + R1 | % 98 + R1 | % 99 + R1 | % 100 + R1 | % 101 + } + + r1^\fermata \bar "|." % 102 +} + + +LeadVoxText = \lyricmode +{ + I take each breath _ as if it is _ my first, _ + I hold it there, _ so deep in -- side _ me + ’til I’m ’bout _ to burst _ + + I speak each word _ as if it is _ Your name, _ + I move my lips, _ I see the whis -- _ per + stir the gen -- _ tle flame _ + + Your heart _ beats _ and so does mine _ + Your love _ moves _ and I know I’m _ a -- live + + You are _ my ox -- y -- gen + I breathe You in _ + I breathe You out _ + You are _ my ox -- y -- gen + You are _ my love _ + You are _ what life’s _ a -- bout __ _ + + I take each breath _ as if it is _ my last, _ + You ne -- ver know _ what came so slow -- _ ly + could leave us, oh, _ so _ fast _ + + I take each step _ as if it is _ to _ You __ _ _ _ _ _ + I hear Your voice, _ I feel Your pre -- _ sence, + in e -- very -- thing _ I _ do _ + + My soul _ sleeps, _ Your love re -- vives _ + Our hearts _ meet _ and I know I’m _ a -- live + + You are _ my ox -- y -- gen + I breathe You in _ + I breathe You out _ + You are _ my ox -- y -- gen + You are _ my love _ + You are _ what life’s _ a -- bout __ _ + + The air _ is thick, the flo -- _ wer sweet _ + The sha -- dow _ comes down _ + To -- night _ the moon is at _ my _ feet _ + And I breathe _ You in _ + I breathe _ You in _ to me _ + + I’m no -- _ bo -- __ _ _ dy _ with -- out You _ + If You were _ not here _ what would I do __ _ _ _ _ _ _ _ _ _ + +% You are _ my ox -- y -- gen + ox -- y -- gen + I breathe You in _ + I breathe You out _ + You are _ my ox -- y -- gen + You are _ my love _ + You are _ what life’s _ a -- bout + + _ what life’s _ a -- bout + +%{ +I take each breath as if it is my first +I hold it there, so deep inside me +'Til I'm about to burst +I speak each word as if it is Your name +I move my lips ... I see the whisper +Stir the gentle flame + +Your heart beats and so does mine +Your love moves +And I know I'm alive + +You are my oxygen +I breathe You in +I breathe You out +You are my oxygen +You are my love +You are what life's about + +I take each breath as if it is my last +You never know what came so slowly +Could leave us, oh, so fast +I take each step as if it is to You +I hear Your voice +I feel Your presence +In everything I do + +My soul sleeps, Your love revives +Our hearts meet +And I know I'm alive + +The air is think, the flower sweet +The shadow comes down +Tonight the moon is at my feet +And I breathe You in +I breathe You in to me + +I'm nobody without You +If You were not here what would I do +%} +} + +LeadVoxTextB = \lyricmode +{ + You are _ my +} + +LeadVoxTextC = \lyricmode +{ + Oo __ _ +} + + +% +% Harmonies +% + +BGVox = \relative c' +{ +% \set Voice.autoBeaming = ##f +% \set Staff.instrument = #"BG vox" + \override Staff.TimeSignature #'style = #'() + \clef G + \key a \major + \time 4/4 +\override Score.SpacingSpanner #'average-spacing-wishes = ##f + + % Intro + + s1 \bar "||" % 1 + + s1 | % 2 + s1 | % 3 + s1 | % 4 + s1 | % 5 + s1 | % 6 + s1 | % 7 + s1 | % 8 + s1 \bar "||:" % 9 + + % Verse + + s1 | % 10 + s1 | % 11 + s1 | % 12 + s1 | % 13 + s1 | % 14 + s1 | % 15 + s1 | % 16 + s1 \bar "||" % 17 + + s1 | % 18 + s1 | % 19 + s1 | % 20 + s1 | % 21 + s1 | % 22 + s1 | % 23 + s1 | % 24 + s1 \bar "||" % 25 + + % Prechorus + + s1 | % 26 + s1 | % 27 + s1 | % 28 + s1 \bar "||" % 29 + + % Chorus + + s1 | % 30 + s1 | % 31 + s1 | % 32 + s1 | % 33 + s1 | % 34 + s1 | % 35 + s1 | % 36 + s1 | % 37 + + s1 | % 38 + s1 | % 39 + s1 | % 40 + s1 \bar "||" % 41 + + % Verse + + \key c \major + + s1 | % 42 + s1 | % 43 + s1 | % 44 + s1 | % 45 + s1 | % 46 + s1 | % 47 + s1 | % 48 + s1 \bar "||" % 49 + + s1 | % 50 + s1 | % 51 + s1 | % 52 + s1 | % 53 + s1 | % 54 + s1 | % 55 + s1 | % 56 + s1 \bar "||" % 57 + + % Prechorus + + s1 | % 58 + s1 | % 59 + s1 | % 60 + s1 \bar "||" % 61 + + % Chorus + + \context Voice = "v3" { \tiny \voiceTwo f4. e8 ~ e2 \oneVoice \normalsize } | % 62 +\tiny +\voiceTwo + 4 8 ~ 2 | % 63 + 4 8 ~ 4 s | % 64 + 4 8 ~ 4 s | % 65 + s1 | % 66 + 4 8 ( ~ 4 8 ~ | % 67 + 4 ) s2. | % 68 + s1 | % 69 +\oneVoice +\normalsize + s1 | % 70 + s1 \bar "||" % 71 + + % Bridge + +\tiny + s4 \voiceTwo a,8 a ~ a d4 d8 | % 72 + \oneVoice s4 \voiceTwo d8 d ~ d e4 e8 ~ | % 73 + e2 \oneVoice s4. \voiceTwo a,8 | % 74 + g'4. f8 ~ f e4 d8 ~ | % 75 + d8 \oneVoice s \voiceTwo a a ~ a c4 c8 | % 76 + \oneVoice s4 \voiceTwo d8 d ~ d f4 ~ f16 e ( | % 77 + e2 ) \oneVoice s4. \voiceTwo a,8 | % 78 + g'4. f8 ~ f e4 d8 ~ | % 79 + d4 \oneVoice s4 s2 | % 80 + \voiceTwo f4. e8 ~ e d4 c8 ~ | % 81 + c4 \oneVoice s s2 | % 82 + s1 \bar "||" % 83 +\normalsize + + % Prechorus + + s1 | % 84 + s1 | % 85 +\tiny +\voiceTwo + d4. c8 ~ c bf4 c8 ~ | % 86 + c8 s2.. | % 87 +\oneVoice +\normalsize + s1 | % 88 + + \repeat volta 4 + { + s4 \context Voice = "v2" { <\hn f \hn c>8 <\hn e \hn c> ~ <\hn e \hn c>4 <\hn e \hn c> } | % 89 +\tiny +\voiceTwo + 4 8 ( ~ 2 | % 90 + 1 ) | % 91 + s1 | % 92 + s4 8 ~ 4 | % 93 + 4 8 ( ~ 2 | % 94 + 1 ) | % 95 +\oneVoice +\normalsize + } + \alternative + { + { + s1 | % 96 + } + { + s1 | % 97 + } + } + + \repeat volta 2 + { + s1 | % 98 + s1 | % 99 + s1 | % 100 + s1 | % 101 + } + + s1 \bar "|." % 102 +} + + +% +% Chord names +% + +Chords = \chordmode +{ +%Bah, can't we set this globally? +% \popChords + + % Intro + + s1 | % 1 + + fs4.:m7 a2 d8:maj7 | % 2 + s1 | % 3 + fs4.:m7 a2 d8:maj7 | % 4 + s1 | % 5 + fs4.:m7 a2 d8:maj7 | % 6 + s1 | % 7 + fs4.:m7 a2 d8:maj7 | % 8 + s1 | % 9 + + % Verse + + a1 | % 10 + e1/gs | % 11 + fs1:m7 | % 12 + s2. e4 | % 13 + d1:maj9 | % 14 + e1 | % 15 + fs4.:m7 a2 d8:maj7 | % 16 + s1 | % 17 + + a1 | % 18 + e1/gs | % 19 + fs1:m7 | % 20 + s4. e s4 | % 21 + d1:maj9 | % 22 + e1 | % 23 + fs4.:m7 a2 d8:maj7 | % 24 + s1 | % 25 + + % Prechorus + + c1:maj9 | % 26 + d1:maj9 | % 27 + c1:maj9 | % 28 + a1:sus4 | % 29 + + % Chorus + + b4.:m7 a s4 | % 30 + g1:maj7 | % 31 + d1 | % 32 + a4. fs:m7 s4 | % 33 + g4. a s4 | % 34 + d4. g s4 | % 35 + a4. fs:m7 s4 | % 36 + g4. e:m7 s4 | % 37 + + b4.:m d2 g8 | % 38 + s1 | % 39 + b4.:m d2 g8 | % 40 + s1 | % 41 + + % Verse + + c1 | % 10 + g1/b | % 11 + a1:m7 | % 12 + s4. g s4 | % 13 + f1:maj9 | % 14 + g1 | % 15 + a4.:m7 c2 f8:maj7 | % 16 + s1 | % 17 + + c1 | % 18 + g1/b | % 19 + a1:m7 | % 20 + s2. g4 | % 21 + f1:maj9 | % 22 + g1 | % 23 + a4.:m7 c2 f8:maj7 | % 24 + s1 | % 25 + + % Prechorus + + ef1:maj9 | % 26 + f1:maj9 | % 27 + ef1:maj9 | % 28 + c1:sus4 | % 29 + + % Chorus + + d4.:m7 c s4 | % 30 + bf1:maj7 | % 31 + f1 | % 32 + c4. a:m7 s4 | % 33 + bf4. c s4 | % 34 + f4. bf s4 | % 35 + c4. a:m7 s4 | % 36 + bf1 | % 42 + + g1:m7.11 | % 43 + s1 | % 44 + + % Bridge + + d1:m | % 46 + bf1:maj7 | % 47 + a1 | % 48 + a1:7.9- | % 49 + d1:m | % 50 + bf1:maj7 | % 51 + a1 | % 52 + a1:7.9- | % 53 + bf1:maj7 | % 54 + bf4. a4:m g4.:m7 | % 55 + f1 | % 56 + c1 | % 57 + + % Prechorus + + ef1:maj9 | % 58 + f1:maj9 | % 59 + ef1/g | % 60 + c1:sus4 | % 61 + s1 | % 62 + + % Chorus + + \repeat volta 4 + { + d4.:m7 c s4 | % 30 + bf1:maj7 | % 31 + f1 | % 32 + c4. a:m7 s4 | % 33 + bf4. c s4 | % 34 + f4. bf s4 | % 35 + c4. a:m7 s4 | % 36 + } + \alternative + { + { + bf1 | % 70 + } + { + bf1 | % 71 + } + } + + % Outro + + \repeat volta 2 + { + d1:m7 | % 72 + s1 | % 73 + s1 | % 74 + s1 | % 75 + } + + d1:m7 | % 76 +} + + +% +% Chord rhythms +% + +% Use a RhythmicStaff on the chords instead of this? +% It almost works, but not quite. Doesn't collapse chords above to single notes... + +StaffC = \relative c +{ +% \set Voice.autoBeaming = ##f +% \set Staff.instrument = #"Rhythm" + \override Staff.TimeSignature #'style = #'() + \time 4/4 + \override NoteHead #'style = #'slash + \teeny + + % Intro + + c1:16 \p \< \bar "||" % 1 + + c4. \mf c8 ~ c4. c8 ~ | % 2 + c1 | % 3 + c4. c8 ~ c4. c8 ~ | % 4 + c1 | % 5 + c4. c8 ~ c4. c8 ~ | % 6 + c1 | % 7 + c4. c8 ~ c4. c8 ~ | % 8 + c1 \bar "||:" % 9 + + % Verse + + c4 c c c | % 10 + c4 c c c | % 11 + c4 c c c | % 12 + c4 c c c | % 13 + c4 c c c | % 14 + c4 c c c | % 15 + c4. c8 ~ c4. c8 ~ | % 16 + c4 c c c \bar "||" % 17 + + c4 c c c | % 18 + c4 c c c | % 19 + c4 c c c | % 20 + c4 c8 c ~ c4 c | % 21 + c4 c c c | % 22 + c4 c c c | % 23 + c4. c8 ~ c4. c8 ~ | % 24 + c4 c c c \bar "||" % 25 + + % Prechorus + + c4 c c c | % 26 + c4 c c c | % 27 + c4 c c c | % 28 + c4 c c c \bar "||" % 29 + + % Chorus + + c4. c8 ~ c2 | % 30 + c4. c8 ~ c2 | % 31 + c4. c8 ~ c2 | % 32 + c4. c8 ~ c2 | % 33 + c4. c8 ~ c2 | % 34 + c4. c8 ~ c2 | % 35 + c4. c8 ~ c2 | % 36 + c4. c8 ~ c2 | % 37 + + c4. c8 ~ c4. c8 ~ | % 38 + c4 c c c | % 39 + c4. c8 ~ c4. c8 ~ | % 40 + c1 \bar "||" % 41 + + % Verse + + c4 c c c | % 42 + c4 c c c | % 43 + c4 c c c | % 44 + c4 c8 c ~ c4 c | % 45 + c4 c c c | % 46 + c4 c c c | % 47 + c4. c8 ~ c4. c8 ~ | % 48 + c4 c c c \bar "||" % 49 + + c4 c c c | % 50 + c4 c c c | % 51 + c4 c c c | % 52 + c4 c c c | % 53 + c4 c c c | % 54 + c4 c c c | % 55 + c4. c8 ~ c4. c8 ~ | % 56 + c4 c c c \bar "||" % 57 + + % Prechorus + + c4 c c c | % 58 + c4 c c c | % 59 + c4 c c c | % 60 + c4 c c c \bar "||" % 61 + + % Chorus + + c4. c8 ~ c2 | % 62 + c4. c8 ~ c2 | % 63 + c4. c8 ~ c2 | % 64 + c4. c8 ~ c2 | % 65 + c4. c8 ~ c2 | % 66 + c4. c8 ~ c2 | % 67 + c4. c8 ~ c2 | % 68 + c4 c c c | % 69 + + c1 ~ | % 70 + c1 \bar "||" % 71 + + % Bridge + + c4 r8 c ~ c4 c | % 72 + c4 r8 c ~ c4 c | % 73 + c4 r8 c ~ c4 c | % 74 + c4 r8 c ~ c4 c | % 75 + c4 r8 c ~ c4 c | % 76 + c4 r8 c ~ c4 c | % 77 + c4 r8 c ~ c4 c | % 78 + c4 r8 c ~ c4 c | % 79 + c4 r8 c ~ c4 c | % 80 + c4. c8 ~ c c ~ c4 | % 81 + c1 | % 82 + c1 \bar "||" % 83 + + % Prechorus + + c4 c c c | % 84 + c4 c c c | % 85 + c4 c c c | % 86 + c4 c c c | % 87 + c4 c c c | % 88 + + % Chorus + + \repeat volta 4 + { + c4._\markup { \dynamic f \italic { ad lib throughout } } c8 ~ c2 | % 89 + c4. c8 ~ c2 | % 90 + c4. c8 ~ c2 | % 91 + c4. c8 ~ c2 | % 92 + c4. c8 ~ c2 | % 93 + c4. c8 ~ c2 | % 94 + c4. c8 ~ c2 | % 95 + } + \alternative + { + { + c4 c c c | % 96 + } + { + c4 \> c c c \! | % 97 + } + } + + % Outro + + \repeat volta 2 + { + c4 c c c | % 98 + c4 c c c | % 99 + c4 c c c | % 100 + c4 c c c | % 101 + } + + c1^\fermata \bar "|." % 102 +} + + +\score +{ + << +% \new ChoirStaff = "Vox" + << + \new Staff = leadStaff { << \new Voice = "lead" \LeadVox \new Voice = "harmony" \BGVox >> } + \new Lyrics \lyricsto "lead" \LeadVoxText + \new Lyrics \lyricsto "v2" \LeadVoxTextB + \new Lyrics \lyricsto "v3" \LeadVoxTextC + >> + + \new ChoirStaff = "Rhythm" + << +% \new Staff = "riff" \RhythmB + \new ChordNames = "chords" \Chords + \new RhythmicStaff = "chordRhythm" \StaffC + >> + + \set Score.skipBars = ##t + \set Score.melismaBusyProperties = #'() + >> + \layout + { +% ragged-last-bottom = ##t +% ragged-last = ##t + } +} + + +\paper +{ + #(define fonts (make-pango-font-tree + "Times New Roman" + "DomCasual BT" + "Luxi Mono" + (/ staffSize 20))) +} diff --git a/pachelbel-canon-in-d.ly b/pachelbel-canon-in-d.ly new file mode 100644 index 0000000..dd040e3 --- /dev/null +++ b/pachelbel-canon-in-d.ly @@ -0,0 +1,215 @@ +\version "2.16.0" +\include "pop-chords.ly" +\include "english.ly" + +% Good sizes are 16, 18, & 20 +staffSize = #24 +#(set-default-paper-size "letter") +#(set-global-staff-size staffSize) +#(ly:set-option (quote no-point-and-click)) + +%{ Some useful characters: ‘ ’ “ ” – — † ‡ • … %} + +\header +{ +%Let's bump up the title size and switch to the chord font. :-) + + title = \markup { \override #'(font-family . sans) \fontsize #3.5 "Canon in D" } + subtitle = \markup { \override #'(font-family . sans) \fontsize #3.5 "Variations on a Ground Bass" } + composer = \markup { \override #'(font-family . sans) \fontsize #1.3 "Johann Pachelbel" } +% arranger = \markup { \override #'(font-family . sans) \fontsize #1.3 "arr." } + tagline = $(string-append "Engraved by JLH and Lilypond " (lilypond-version)) +} + +% Useful tweak abbreviations (hn = harmony note) + +hn = #(define-music-function (parser location arg) (ly:music?) +;; Harmony Note: Set the tweaks property of the passed in note to use a smaller font + + (set! (ly:music-property arg 'tweaks) + (acons 'font-size -3.5 (ly:music-property arg 'tweaks))) arg) + + +% +% Song's structure +% +Global = +{ + \key d \major + \override Staff.TimeSignature #'style = #'() + \time 4/4 + + s1*4 \bar "||" % 1-4 + s1*4 \bar "||" % 5-8 + s1*4 \bar "||" % 9-12 + s1*4 \bar "||" % 13-16 + s1*4 \bar "||" % 17-20 + s1*4 \bar "||" % 21-24 + s1*4 \bar "||" % 25-28 + s1*4 \bar "||" % 29-32 + s1*4 \bar "||" % 33-36 + s1*4 \bar "||" % 37-40 + s1*4 \bar "||" % 41-44 + s1*4 \bar "||" % 45-48 + s1*4 \bar "||" % 49-52 + s1 \bar "|." % 53 +%{ + +% \once \override TextScript #'padding = #2.0 +% s1*0^\markup { \large \bold { Moderately fast pop } } +%%Capo 3 version +%% s1*0^\markup { \large \bold { Moderately fast pop "(*** CAPO 3 ***)" } } +% s1*13 \bar "||:" % 1-13 + +%} +} + + +% +% Lead vocal +% +LeadVox = \relative c'' +{ + \clef G + \override Score.SpacingSpanner #'average-spacing-wishes = ##f + + r1 | % 1 + r1 | % 2 + r1 | % 3 + r1 | % 4 + + fs2 ( e | % 5 + d2 cs ) | % 6 + b2 ( a | % 7 + b2 cs ) | % 8 + + d2 ( cs | % 9 + b2 a ) | % 10 + g2 ( fs | % 11 + g2 e ) | % 12 + + fs'2 ( e | % 13 + d2 cs ) | % 14 + b2 ( a | % 15 + b2 cs ) | % 16 + + a4 ( d e cs | % 17 + d4 fs a a, ) | % 18 + b4 ( g a a | % 19 + g4 d' \grace { cs16 [ d ] } cs4 a ) | % 20 + + d8 ( cs d fs, a a cs4 ) | % 21 + d8 ( d fs4 a ) a8 ( b | % 22 + g8 fs e g fs e d cs | % 23 + b8 a d4 ~ d8 cs16 d cs4 ) | % 24 + + d8 ( cs d fs, a4 ) cs ( | % 25 + d4 ) fs ( a ) a8 ( b | % 26 + g8 fs e g fs e d cs | % 27 + b8 a d4 ~ d8 cs16 d cs4 ) | % 28 + + d8 fs16 ( g a8 ) fs16 ( g a ) a, ( b cs d e fs g | % 29 + fs8 ) d16 ( e fs8 ) fs,16 ( g a b a g a fs g a | % 30 + d8 ) b16 ( a g8 ) fs16 ( e fs e d e fs g a b | % 31 + d8 ) b16 ( a b8 ) e16 ( d cs b cs d e fs g e ) | % 32 + + fs8-. fs16 ( g a8-. ) fs16-. ( g a-. ) cs, ( d e fs e fs g ) | % 33 + fs8-. d16 ( e fs8-. ) fs,16 ( g a b a g ) a4 | % 34 + g8-. b16 ( a g8-. ) fs16-. ( e ) fs ( e d e fs g a b ) | % 35 + g8-. b16 ( a b8-. ) cs16 ( b ) a ( b cs d e fs g a ) | % 36 + + fs8 ( d16 cs d8 fs, ) a ( cs16 d e8 cs ) | % 37 + b8 ( d16 e fs8 d ) fs8 ( fs16 e d8 cs ) | % 38 + b8 ( b16 a b8 cs ) d8 ( fs16 e d8 a' ) | % 39 + g8 ( d16 cs b8 b ) a8 ( a16 g a8 a ) | % 40 + + a4 ( d8 fs fs g fs e | % 41 + d4 ) d8 ( d d e d cs | % 42 + b4 ) b8 ( b d2 | % 43 + d8 c b c a2 ) | % 44 + + d4 ( fs8 a ) a ( b a g | % 45 + fs4 ) d' ~ ( d c ) | % 46 + b2 ( d,4 a' ) | % 47 + b2 ( a ) | % 48 + + a2 ( a,4 e' ) | % 49 + d4 ( fs, fs'4. e8 | % 50 + d4 ) b' ( a d, | % 51 + e1 | % 52 + + fs1-\fermata ) | % 53 +} + + +% +% Chord names +% +Chords = \chordmode +{ +%Bah, can't we set this globally? +% \popChords + + % Intro + + d2 a | % 1 + b2:m fs:m | % 2 + g2 d | % 3 + g2 a | % 4 +} + + +Dynamics = +{ +%{ + % Intro + s4_\markup { \italic { Ac. gtr only } } s2. | % 1 + + s1*3 | % 2-4 + + s4_\markup { \italic { Band in } } s2. | % 5 +%} +} + + +\score +{ + << + \new ChordNames \Chords + \Global % The "roadmap" that everything else depends on + \context Staff \LeadVox + +% \new ChoirStaff +% << +% \new ChordNames \Chords +%%Capo 3 edition +%% \new ChordNames \transpose f d \Chords +% \new RhythmicStaff << \Rhythm \Dynamics >> +% >> + + \set Score.skipBars = ##t + \set Score.melismaBusyProperties = #'() + >> +} + + +\paper +{ + #(define fonts (make-pango-font-tree + "Times New Roman" + "DomCasual BT" + "Luxi Mono" + (/ staffSize 20))) + +% Spread staves vertically across last page (default: t) + ragged-last-bottom = ##f +% Don't spread staves vertically across the page (default: f) +% ragged-bottom = ##t +% Allow partial line for last stave (default: f) + ragged-last = ##t + +% To find out what's eating the space at the top... +% annotate-spacing = ##t +%let's try this: [It works! Huzzah!] + obsolete-page-top-space = 0 top-system-spacing #'basic-distance = #(/ obsolete-page-top-space staff-space) +} diff --git a/pop-chords-test.ly b/pop-chords-test.ly new file mode 100755 index 0000000..9d1c1f8 --- /dev/null +++ b/pop-chords-test.ly @@ -0,0 +1,149 @@ +\version "2.16.0" +\include "pop-chords.ly" +\include "english.ly" % English note names, for cryin' out loud... + +% Good sizes are 16, 18, & 20 +staffSize = #16 +#(set-default-paper-size "letter") +#(set-global-staff-size staffSize) +#(ly:set-option (quote no-point-and-click)) + +\header +{ + title = \markup { \override #'(font-family . sans) \fontsize #3.5 "Pop Chords" } + composer = \markup { \override #'(font-family . sans) \fontsize #1.3 "Words & music by James \"Shamus\" Hammons" } +} + +Chords = \chordmode +{ +% Triads + + c1:^3 + c + c:m + c:sus2 + c:sus4 + c:aug + c:dim + +% Sharp/flat rendering + + fs:m + ef:m + +% Sixths + + c:6 + c:m6 + +% Sevenths, including altered + + c:7 % Dominant seventh + c:maj7 % Major seventh + c:m7 % Minor seventh + c:m7.5- % Minor seven flat 5 + c:dim7 % Diminished seventh + c:sus4.7 % Seven sus 4 + c:sus2.7 % Seven sus 2 + c:m7+ % Minor major seventh + c:aug7 % Augmented seventh + c:7.5- % Dominant seven flat 5 + cf:7+.5- % Major seven flat 5 + cs:aug7+ % Augmented major seventh + +% Ninths + + c:7.9 % Dominant ninth + c:m7.9 % Minor ninth + c:maj9 % Major ninth + c:5.9 % Add nine + c:6.9 % Six/nine + c:m6.9 % Minor six/nine + c:m7+9 % Minor major 9 + c:7.9+ % Dominant seventh sharp nine + c:7.9- % Dominant seventh flat nine + c:aug7.9+ % Augmented seventh sharp nine + +% Elevenths + + c:11 % Dominant eleventh + c:m11 % Minor eleventh + c:maj11 % Major eleventh + c:5.11 % Add eleven + c:m5.11 % Minor add eleven + c:m7.11 % Minor seventh add eleven + +% Thirteenths + + c:13 % Dominant thirteenth + c:m7.9.13 % Minor thirteenth + c:maj13 % Major thirteenth + c:5.13 % Add thirteen + c:13.9- % Dominant thirteen/b9 + +% Misc add chords + + c:7.9-.13- % Seventh add b9/b13 + c:7.5+.9- % Augmented seventh add b9 + c:maj9.11+ % Major ninth/#11 + c:9.11+ % Dominant ninth/#11 +% This is just a dom. 13th +% c:9.13 % Dominant ninth/13th +} + + +\score +{ + << + \new ChordNames = "chords" \Chords + \new Staff = "chordRhythm" \Chords + >> + \layout { +% ragged-last-bottom = ##t + ragged-last = ##t + } +} + +\paper +{ + #(define fonts (make-pango-font-tree + "Times New Roman" + "DomCasual BT" + "Luxi Mono" + (/ staffSize 20))) +} + +%{ +Here's a way to add parens to chords: + +\version "2.16.0" +> +> #(define (left-parenthesis-ignatzek-chord-names in-pitches bass +> inversion context) +> (markup #:line ("( " (ignatzek-chord-names in-pitches bass inversion +> context)))) +> +> #(define (right-parenthesis-ignatzek-chord-names in-pitches bass +> inversion context) +> (markup #:line ((ignatzek-chord-names in-pitches bass inversion +> context) " )"))) +> +> LPC = { \set chordNameFunction = #left-parenthesis-ignatzek-chord- +> names } +> RPC = { \set chordNameFunction = #right-parenthesis-ignatzek-chord- +> names } +> NPC = { \unset chordNameFunction } +> +> chordset = \chordmode +> { +> c1:7 g1:7 +> \LPC a1:7 \NPC f1:7 +> c1:7 \RPC g1:7 \NPC +> c1:7 g1:7 +> } +> +> \score +> { +> \new ChordNames \chordset +> } +%} diff --git a/pop-chords.ly b/pop-chords.ly new file mode 100755 index 0000000..24587c8 --- /dev/null +++ b/pop-chords.ly @@ -0,0 +1,167 @@ +% Pop chords as used in English/American popular music +% by James L. Hammons + +% Written against \version "2.16.0" + +% Was \raise #1.0 for both +chordFlat = \markup { \hspace #0.2 \tiny \raise #0.8 \flat } +chordSharp = \markup { \hspace #0.1 \teeny \raise #0.8 \sharp } + +popChordsMusic = +{ + % Triads + + -\markup { "5" } + -\markup { "2" } +% -\markup { "sus2" } + -\markup { "sus" } +% -\markup { "sus4" } +% -\markup { \small \raise #1.0 "o" } + -\markup { \raise #0.8 "o" } +% -\markup { "dim" } +% -\markup { "aug" } % or + + + % Sixths + + -\markup { "6" } + -\markup { "m6" } + + % Sevenths (including altered) + + -\markup { "7" } + -\markup { "m7" } + -\markup { "maj7" } + -\markup { "7sus4" } + -\markup { "7sus2" } + -\markup { "7" \chordFlat "5" } + -\markup { "7" \chordSharp "5" } +% -\markup { "aug7" } % or +7 + -\markup { "m(maj7)" } +% -\markup { \small \raise #1.0 { "o" } "7" } + -\markup { \raise #0.8 { "o" } "7" } +% -\markup { "dim7" } +% -\markup { \small \raise #1.0 { $(ly:wide-char->utf-8 #x00f8) } "7" } +% -\markup { \raise #0.8 { $(ly:wide-char->utf-8 #x00f8) } "7" } + -\markup { "m7" \chordFlat "5" } + -\markup { "maj7" \chordFlat "5" } + -\markup { "maj7" \chordSharp "5" } + + % Ninths (including altered--incomplete) + + -\markup { "9" } + -\markup { "m9" } + -\markup { "maj9" } + -\markup { "add9" } + -\markup { "6/9" } + -\markup { "m6/9" } + -\markup { "m(maj9)" } + -\markup { "7" \chordFlat "9" } + -\markup { "7" \chordSharp "9" } +%dim7add9, dim7b9, dim7#9, 9#5, 9b5, maj9#5, maj9b5, 9sus4, 9sus2 + -\markup { "+7" \chordSharp "9" } + + % Elevenths (incomplete) + + -\markup { "11" } + -\markup { "m11" } + -\markup { "maj11" } + -\markup { "add11" } + -\markup { "m add11" } + -\markup { "m7add11" } + + % Thirteenths (incomplete) + + -\markup { "13" } + -\markup { "m13" } + -\markup { "maj13" } + -\markup { "add13" } + -\markup { "13" \chordFlat "9" } + + % Misc add chords + + -\markup { "7" \chordFlat "9" \chordFlat "13" } + -\markup { "7" \chordSharp "5" \chordFlat "9" } + -\markup { "maj9" \chordSharp "11" } + -\markup { "9" \chordSharp "11" } +% -\markup { "9/13" } +} + +% Add to existing exceptions +popChordsAdd = #(append + (sequential-music-to-chord-exceptions popChordsMusic #t) + ignatzekExceptions) + +% Bah, can't we set this globally? YES! See below... +% \set chordNameExceptions = #popChords + +% Bah, this doesn't work either... +% #(set chordNameExceptions popChords) + + +% Let's try fixing the accidentals with some Scheme... + +#(define (chord-name->pop-markup pitch lowercase?) + + (let* ((alt (ly:pitch-alteration pitch))) + + (make-line-markup + (list + (make-simple-markup (vector-ref #("C" "D" "E" "F" "G" "A" "B") (ly:pitch-notename pitch))) + + ;; If it's natural, do nothing + + (if (= alt 0) + + (make-line-markup (list empty-markup)) + + (if (= alt FLAT) + + ;; Otherwise, handle adding the flat symbol + + (make-line-markup + (list + (make-hspace-markup 0.3) ;; WAS: 0.4 + (make-tiny-markup (make-raise-markup 1.0 + (make-musicglyph-markup "accidentals.flat"))) + ) + ) + + ;; or handle adding the sharp symbol + + (make-line-markup + (list + (make-hspace-markup 0.1) ;; WAS: 0.2 + (make-teeny-markup (make-raise-markup 1.0 + (make-musicglyph-markup "accidentals.sharp"))) + ) + ) + + ) + + ) + + ) + ) + + ) +) + +%{ +popChords = +{ + \set chordNameExceptions = #popChordsAdd + \set chordRootNamer = #chord-name->pop-markup + \override ChordName #'extra-spacing-width = #'(-1.25 . 1.25) +} +%} + +\layout +{ + \context + { + \Score + chordNameExceptions = #popChordsAdd + chordRootNamer = #chord-name->pop-markup + \override ChordName #'extra-spacing-width = #'(-1.25 . 1.25) + } +} diff --git a/refiner's-fire.ly b/refiner's-fire.ly new file mode 100755 index 0000000..ac7f70c --- /dev/null +++ b/refiner's-fire.ly @@ -0,0 +1,315 @@ +\version "2.16.0" +\include "pop-chords.ly" +\include "english.ly" + +staffSize = #16 % or 18 +#(set-default-paper-size "letter") +#(set-global-staff-size staffSize) +#(ly:set-option (quote no-point-and-click)) + +\header +{ +%Let's bump up the title size and switch to the chord font. :-) + + title = \markup { \override #'(font-family . sans) + { \fontsize #3.5 "Refiner's Fire" } } +% composer = \markup { \override #'(font-family . sans) "" } + arranger = \markup { \override #'(font-family . sans) "arr. Ed Smart" } + tagline = "Engraved by JLH and Lilypond 2.8.2" +} + + +% +% Lead vocal +% + +LeadVox = \relative c'' +{ +% \set Voice.autoBeaming = ##f +% \set Staff.instrumentName = #"Lead vox" + \clef G + \key e \major + \override Staff.TimeSignature #'style = #'() + \time 4/4 +\override Score.SpacingSpanner #'average-spacing-wishes = ##f + + % Intro + + R1 | % 1 + R1 | % 2 + R1 | % 3 + R1 \bar "||:" % 4 + + \repeat volta 2 + { + % Verse + +\mark \markup { \override #'(font-family . sans) { \box { A } } } + + gs4 b8 fs ~ fs4 gs | % 5 + e2 e8 fs gs a | % 6 + a2. r8 e | % 7 + e4 ds e fs | % 8 + gs4 b8 fs ~ fs4 gs | % 9 + e2 e8 fs gs a | % 10 + a1 | % 11 + gs4. ( fs8 ) fs2 \bar "||" % 12 + + % Chorus + +\mark \markup { \override #'(font-family . sans) { \box { B } } } + + gs2 a4 gs8 fs8 ~ | % 13 + fs2 r | % 14 + gs4 b a gs8 fs ~ | % 15 + fs2 r4 e8 b' | % 16 + b1 | % 17 + b8 ( fs ) fs4 r2 | % 18 + b8 ( a ) gs a ~ a e ( fs ) gs ~ | % 19 + gs8 fs4. r8 e e b' | % 20 + b1 | % 21 + b8 ( fs ) fs4 r2 | % 22 + b8 ( a ) gs a ~ a e ( fs ) gs ~ | % 23 + gs4 a8 gs ~ gs fs4. | % 24 + a8 gs fs e ~ e ds4. | % 25 + } + \alternative + { + { + e1 | % 26 + R1 | % 27 + R1 | % 28 + R1 | % 29 + } + { + e1 \bar "||" % 30 + } + } + + % Outro + +\mark \markup { \override #'(font-family . sans) { \box { C } } } + + a8 gs fs e ~ e ds4. | % 31 + e2 r2 | % 32 + a8 gs fs e ~ e ds4. | % 33 + e2 r2 | % 34 + R1 | % 35 + r1^\fermata \bar "|." % 36 +} + +LeadVoxText = \lyricmode +{ + Pu- ri- fy _ my heart, let me be as gold + and pre- cious sil- ver + Pu- ri- fy _ my heart, let me be as gold + pure _ gold + + Re- fi- ner's fire _ + My heart's one de- sire _ + is to be ho- _ ly + Set _ a- part _ for _ you, _ Lord + I choose to be ho- _ ly + Set _ a- part _ for _ you _ my mas- _ ter + Rea- dy to do _ your will + + will + + Rea- dy to do _ your will + Rea- dy to do _ your will. +} + +LeadVoxTextB = \lyricmode +{ + Pu- ri- fy _ my heart, cleanse me from wi- thin + and make me ho- ly + Pu- ri- fy _ my heart, cleanse me from my sin + deep wi- thin +} + + +% +% Chord names +% + +Chords = \chordmode +{ +%Bah, can't we set this globally? +% \popChords + + % Intro + + e4. e8:sus4 s2 | % 1 + e4. e8:sus4 s2 | % 2 + e4. e8:sus4 s2 | % 3 + e1 | % 4 + + \repeat volta 2 + { + % Verse + + e4. b8/ds s2 | % 5 + cs1:m | % 6 + fs1:m7 | % 7 + e4/b b a/b b | % 8 + e4. b8/ds s2 | % 9 + cs1:m | % 10 + fs1:m7 | % 11 + e4./b b8 s2 | % 12 + + % Chorus + + e2 a4. b8 | % 13 + s1 | % 14 + e2 a4. b8 | % 15 + s1 | % 16 + e1 | % 17 + b1 | % 18 + e4./gs a2 e8/b | % 19 + s8 b2.. | % 20 + e1 | % 21 + b1 | % 22 + e4./gs a2 e8/b | % 23 + s4. b2 s8 | % 24 + fs4.:m b4:sus4 b4. | % 25 + } + \alternative + { + { + e4. e8:sus4 s2 | % 26 + e4. e8:sus4 s2 | % 27 + e4. e8:sus4 s2 | % 28 + e1 | % 29 + } + { + cs1:m | % 30 + } + } + + % Outro + + fs4.:m b4:sus4 b4. | % 31 + cs1:m | % 32 + fs4.:m b4:sus4 b4. | % 33 + e4. e8:sus4 s2 | % 34 + e4. e8:sus4 s2 | % 35 + e1 | % 36 +} + + +% +% Chord rhythms +% + +% Use a RhythmicStaff on the chords instead of this? +% It almost works, but not quite. Doesn't collapse chords above to single notes... + +StaffC = \relative c +{ +% \set Voice.autoBeaming = ##f +% \set Staff.instrumentName = #"Rhythm" + \override Staff.TimeSignature #'style = #'() + \time 4/4 + \override NoteHead #'style = #'slash + + % Intro + + c4. c8 ~ c4 c | % 1 + c4. c8 ~ c4 c | % 2 + c4. c8 ~ c4 c | % 3 + c1 \bar "||:" % 4 + + \repeat volta 2 + { + % Verse + + c4. c8 ~ c4 c | % 5 + c4 c c c | % 6 + c4 c c c | % 7 + c4 c c c | % 8 + c4. c8 ~ c4 c | % 9 + c4 c c c | % 10 + c4 c c c | % 11 + c4. c8 ~ c4 c \bar "||" % 12 + + % Chorus + + c4 c c4. c8 ~ | % 13 + c4 c c c | % 14 + c4 c c4. c8 ~ | % 15 + c4 c c c | % 16 + c4 c c c | % 17 + c4 c c c | % 18 + c4. c8 ~ c4. c8 ~ | % 19 + c8 c4. ~ c4 c | % 20 + c4 c c c | % 21 + c4 c c c | % 22 + c4. c8 ~ c4. c8 ~ | % 23 + c4. c8 ~ c4 c | % 24 + c4. c8 ~ c c4. | % 25 + } + \alternative + { + { + c4. c8 ~ c4 c | % 26 + c4. c8 ~ c4 c | % 27 + c4. c8 ~ c4 c | % 28 + c1 | % 29 + } + { + c4 c c c | % 30 + } + } + + % Outro + + c4. c8 ~ c c4. | % 31 + c4 c c c | % 32 + c4. c8 ~ c c4. | % 33 + c4. c8 ~ c2 | % 34 + c4. c8_\markup { \italic { rit. } } ~ c2 | % 35 + c1^\fermata \bar "|." % 36 +} + + +\score +{ + << + << + \new Staff = leadStaff { \new Voice = "lead" \LeadVox } + \new Lyrics \lyricsto "lead" \LeadVoxText + \new Lyrics \lyricsto "lead" \LeadVoxTextB + >> + + \new ChoirStaff = "Rhythm" + << + \new ChordNames = "chords" \Chords + \new RhythmicStaff = "chordRhythm" \StaffC + >> + + \set Score.skipBars = ##t + \set Score.melismaBusyProperties = #'() + >> +} + + +\paper +{ + #(define fonts (make-pango-font-tree + "Times New Roman" + "DomCasual BT" + "Luxi Mono" + (/ staffSize 20))) + +% Spread staves vertically across last page (default: t) + ragged-last-bottom = ##f +% Don't spread staves vertically across the page (default: f) +% ragged-bottom = ##t +% Allow partial line for last stave (default: f) + ragged-last = ##t + +% To find out what's eating the space at the top... +% annotate-spacing = ##t +%let's try this: [It works! Huzzah!] + obsolete-page-top-space = 0 top-system-spacing #'basic-distance = #(/ obsolete-page-top-space staff-space) +} diff --git a/schubert-ave-maria.ly b/schubert-ave-maria.ly new file mode 100644 index 0000000..77d5ecf --- /dev/null +++ b/schubert-ave-maria.ly @@ -0,0 +1,221 @@ +\version "2.16.0" +\include "pop-chords.ly" +\include "english.ly" + +% Good sizes are 16, 18, & 20 +staffSize = #20 +#(set-default-paper-size "letter") +#(set-global-staff-size staffSize) +#(ly:set-option (quote no-point-and-click)) + +%{ Some useful characters: ‘ ’ “ ” – — † ‡ • … %} + +\header +{ +%Let's bump up the title size and switch to the chord font. :-) + + title = \markup { \override #'(font-family . sans) \fontsize #3.5 "Ave Maria" } +% subtitle = \markup { \override #'(font-family . sans) \fontsize #3.5 "" } + composer = \markup { \override #'(font-family . sans) \fontsize #1.3 "Franz Schubert" } + arranger = \markup { \override #'(font-family . sans) \fontsize #1.3 "arr. Guy Bergeron" } + tagline = $(string-append "Engraved by JLH and Lilypond " (lilypond-version)) +} + +% Useful tweak abbreviations (hn = harmony note) + +hn = #(define-music-function (parser location arg) (ly:music?) +;; Harmony Note: Set the tweaks property of the passed in note to use a smaller font + + (set! (ly:music-property arg 'tweaks) + (acons 'font-size -3.5 (ly:music-property arg 'tweaks))) arg) + + +% +% Song's structure +% +Global = +{ + \key bf \major + \override Staff.TimeSignature #'style = #'() + \time 4/4 + + % Intro + + s1*2 | % 1-2 + + \repeat volta 2 + { + s1*13 | % 3-15 + } + + s1 \bar "|." % 16 + +%{ + +% \once \override TextScript #'padding = #2.0 +% s1*0^\markup { \large \bold { Moderately fast pop } } +%%Capo 3 version +%% s1*0^\markup { \large \bold { Moderately fast pop "(*** CAPO 3 ***)" } } +% s1*13 \bar "||:" % 1-13 + +%} +} + + +% +% Lead vocal +% +LeadVox = \relative c'' +{ + \clef G + \override Score.SpacingSpanner #'average-spacing-wishes = ##f + \set Staff.instrumentName = "Flute" + + % Intro + + \tempo 8=76 + R1 | % 1 + R1 | % 2 + + % Main + + bf4. ( a16 bf d4 ~ d8. c16 | % 3 + bf4 ) r c ( \grace { d16 [ c ] } bf16 a g a | % 4 + bf4 ) r8 d-- d8. ( c32 bf ) a16 ( g ) d'16. ( e32 ) | % 5 + d4 ( cs8 [ ) r16 a ] c8. ~ ( c32 bf \times 4/6 { a16 c d ef c a } | % 6 + bf4. ) d16 ( c ) c8. ( a16 \times 4/6 { g16 b d f d b } | % 7 + c4 ~ \times 4/6 { c16 ) [ g ( a bf \grace { c16 [ bf ] } a g ] } f4 ) r8 f | % 8 + c'8.-- c16-. c16. ( b32 ) c16. ( d32 ) c16. ( d32 bf8 ) r8 bf-- | % 9 + c8.-- c16-- \times 4/6 { c16 ( b c ef d c } bf4 ) r8 bf-- | % 10 + c8.-- c16-- d16. d32 \times 2/3 { d16-\prall ( c d ) } f16. ef32 ef8 r8 r16 g,-- | % 11 + \grace d'8 ( c8.-- ) c16-- \times 4/6 { bf ( a bf df c bf } c4. ) r8 | % 12 + bf4. ( a16 bf d4 ~ d8. c16 | % 13 + bf4 ) r r2 | % 14 + R1 | % 15 + + R1 | % 16 +} + + +% +% Guitar accompaniament +% +GuitarPart = \relative c +{ + \clef "G_8" + \override Score.SpacingSpanner #'average-spacing-wishes = ##f + \set Staff.instrumentName = "Guitar" + + % Intro + + \times 4/6 { bf16-1-\markup { VI } [ f'-3 bf-4 d-2 bf f ] } \times 4/6 { bf,16 [ f' bf d bf f ] } \times 4/6 { bf,16 [ bf' d f d bf ] } \times 4/6 { bf,16 [ bf'-3 d-2 af'-4 d, bf ] } | % 1 + \times 4/6 { bf,16 [ bf'-3 ef-3 g-3 ef bf ] } \times 4/6 { bf,16-2 [ a'-4 ef'-3 gf ef a, ] } \times 4/6 { bf,16 [ bf' d f d bf ] } \times 4/6 { bf,16 [ f' bf d bf f ] } | % 2 + + % Main + + \times 4/6 { bf,16-1-\markup { I } [ f'-3 bf-3 d-3 bf f ] } \times 4/6 { g,16-2 [ e'-1 bf' d bf e, ] } \times 4/6 { f,16 [ f' bf d bf f ] } \times 4/6 { f,16 [ f' a ef' a, f ] } | % 3 + \times 4/6 { g,16-\markup { III } [ g' bf d bf g ] } \times 4/6 { g,16 [ g' bf d bf g ] } \times 4/6 { ef16-4-\markup { IV } [ g-2 c-3 ef c g ] } \times 4/6 { f,16-1-\markup { I } [ f' a ef' a, f ] } | % 4 + \times 4/6 { bf,16-4 [ f'-1 bf d bf f ] } \times 4/6 { bf,16 [ f' bf d bf f ] } \times 4/6 { bf,16 [ fs'-2 bf d bf fs ] } \times 4/6 { bf,16 [ g'-3 bf d bf g ] } | % 5 + \times 4/6 { a,16 [ g'-3 bf d bf g ] } \times 4/6 { a,16 [ g'-4 a-1 cs a g ] } \times 4/6 { fs,16-2 [ ef' a c a ef ] } \times 4/6 { fs,16 [ ef' a c a ef ] } | % 6 + \times 4/6 { g,16-2 [ d'-0 bf'-3 d bf d, ] } \times 4/6 { g,16 [ e'-1 bf' d bf e, ] } \times 4/6 { a,16 [ f' a c a f ] } \times 4/6 { d16 [ g b f' b, g ] } | % 7 + \times 4/6 { c,16 [ a' c f c a ] } \times 4/6 { c,16 [ bf' c e c bf ] } \times 4/6 { f16 [ a c f c a ] } \times 4/6 { f16 [ a c f c a ] } | % 8 + \times 4/6 { f,16 [ a' ef' f ef a, ] } \times 4/6 { f,16 [ a' ef' f ef a, ] } \times 4/6 { f,16 [ bf' d f d bf ] } \times 4/6 { f,16 [ bf' d f d bf ] } | % 9 + \times 4/6 { f,16 [ a' ef' f ef a, ] } \times 4/6 { f,16 [ a' ef' f ef a, ] } \times 4/6 { g,16-1-\markup { III } [ g'-3 bf d bf g ] } \times 4/6 { g,16 [ d'-4 g bf g d ] } | % 10 + \times 4/6 { f,16 [ f' a c a f ] } \times 4/6 { d16-4-\markup { II } [ fs-3 a d a fs ] } \times 4/6 { c16-1-\markup { III } [ g'-4 c ef c g ] } \times 4/6 { c,16 [ g' c ef c g ] } | % 11 + \times 4/6 { ef16-4 [ g-2 c-3 ef c g ] } \times 4/6 { g,16-2 [ e'-1 bf'-3 df-1 bf e, ] } \times 4/6 { f,16 [ f' a c a f ] } \times 4/6 { f,16 [ ef' a c a ef ] } | % 12 + \times 4/6 { bf16-1 [ f' bf d bf f ] } \times 4/6 { g,16-2 [ e' bf' d bf e, ] } \times 4/6 { f,16 [ f' bf d bf f ] } \times 4/6 { f,16 [ f' a ef' a, f ] } | % 13 + \times 4/6 { bf,16-1-\markup { VI } [ f'-3 bf d bf f ] } \times 4/6 { bf,16 [ f' bf d bf f ] } \times 4/6 { bf,16 [ bf' d f d bf ] } \times 4/6 { bf,16 [ bf' d af' d, bf ] } | % 14 + \times 4/6 { bf,16 [ bf' ef g ef bf ] } \times 4/6 { bf,16 [ a' ef' gf ef a, ] } \times 4/6 { bf,16 [ bf' d f d bf ] } \times 4/6 { bf,16 [ f' bf d bf f ] } | % 15 + + \times 4/6 { bf,16-4-\markup { III } [ d-3 f-1 bf f d ] } \times 4/6 { bf16 [ d f bf f d ] } bf2-\fermata | % 16 +} + +% +% Chord names +% +Chords = \chordmode +{ +%Bah, can't we set this globally? +% \popChords + + % Intro + + bf2. bf4:7 | % 1 + ef4/bf ef:dim/bf bf2 | % 2 + + % Main + + bf4 g:m6 bf/f f:7 | % 3 + g2:m c4:m/ef f:7 | % 4 + bf2 bf4:aug g:m/bf | % 5 + g4:m/a a:7 fs2:dim | % 6 + g4:m g:m6 f/a g:7/d | % 7 + f4/c c:7 f2 | % 8 + f2:7 bf/f | % 9 + f2:7 g:m | % 10 + f4 d c2:m | % 11 + c4:m/ef g:dim f f:7 | % 12 + bf4 g:m6 bf/f f:7 | % 13 + bf2. bf4:7 | % 14 + ef4/bf ef:dim/bf bf2 | % 15 + + s1 | % 16 +} + + +Dynamics = +{ +%{ + % Intro + s4_\markup { \italic { Ac. gtr only } } s2. | % 1 + + s1*3 | % 2-4 + + s4_\markup { \italic { Band in } } s2. | % 5 +%} +} + + +\score +{ + \new StaffGroup + << + \new ChoirStaff + << + \Global % The "roadmap" that everything else depends on + \context Staff \LeadVox + >> + + \new ChoirStaff + << + \new ChordNames \Chords + \Global + \context Staff \GuitarPart + >> + + \set Score.skipBars = ##t + \set Score.melismaBusyProperties = #'() + >> +} + + +\paper +{ + #(define fonts (make-pango-font-tree + "Times New Roman" + "DomCasual BT" + "Luxi Mono" + (/ staffSize 20))) + +% Spread staves vertically across last page (default: t) + ragged-last-bottom = ##f +% Don't spread staves vertically across the page (default: f) +% ragged-bottom = ##t +% Allow partial line for last stave (default: f) + ragged-last = ##t + +% To find out what's eating the space at the top... +% annotate-spacing = ##t +%let's try this: [It works! Huzzah!] + obsolete-page-top-space = 0 top-system-spacing #'basic-distance = #(/ obsolete-page-top-space staff-space) +} diff --git a/search-my-heart.ly b/search-my-heart.ly new file mode 100644 index 0000000..d41891d --- /dev/null +++ b/search-my-heart.ly @@ -0,0 +1,598 @@ +\version "2.16.0" +\include "pop-chords.ly" +\include "english.ly" + +% Good sizes are 16, 18, & 20 +staffSize = #20 +#(set-default-paper-size "letter") +#(set-global-staff-size staffSize) +#(ly:set-option (quote no-point-and-click)) + +%{ Some useful characters: ‘ ’ “ ” – — † ‡ • … %} + +\header +{ +%Let's bump up the title size and switch to the chord font. :-) + + title = \markup { \override #'(font-family . sans) \fontsize #3.5 "Search My Heart" } + composer = \markup { \override #'(font-family . sans) \fontsize #1.3 "Hillsong United" } +% arranger = \markup { \override #'(font-family . sans) \fontsize #1.3 "arr. Ed Smart" } + tagline = $(string-append "Engraved by JLH and Lilypond " (lilypond-version)) +% Let's try a chord dictionary +% subtitle = \markup { \center-align { "F#m" \fret-diagram-terse #"x;x;4;2;2;2;" } " " \center-align { "F#m/F" \fret-diagram-terse #"x;x;3;2;2;2;" } " " \center-align { "F#m/E" \fret-diagram-terse #"x;x;2;2;2;2;" } " " \center-align { "F#m/Eb" \fret-diagram-terse #"x;x;1;2;2;2;" } " " \center-align { "Em7" \fret-diagram-terse #"o;2;2;o;3;o;" } " " \center-align { "A13" \fret-diagram-terse #"x;o;2;o;2;2;" } } +} + +% Useful tweak abbreviations (hn = harmony note) + +hn = #(define-music-function (parser location arg) (ly:music?) +;; Harmony Note: Set the tweaks property of the passed in note to use a smaller font + + (set! (ly:music-property arg 'tweaks) + (acons 'font-size -3.0 (ly:music-property arg 'tweaks))) arg) + + +% +% Song's structure +% +Global = \transpose c g +{ + \key c \major + \override Staff.TimeSignature #'style = #'() + \time 4/4 + +% \once \override TextScript #'padding = #2.0 +% s1*0^\markup { \large \bold { Samba } } +% Capo 4 version +% s1*0^\markup { \hspace #0.0 \raise #2.0 \bigger \bold { "Moderate pop (*** CAPO 4 ***)" } } + + % Intro + + s1*4 | % 1-4 + + % A section + + \repeat volta 4 + { + \mark \markup { \override #'(font-family . sans) { \box { A } } } + s1*6 | % 5-10 + } + + % B section + + \mark \markup { \override #'(font-family . sans) { \box { B } } } + s1*8 \bar "||" % 11-18 + + % A section + + s1*6 | % 19-24 + + \repeat volta 2 + { + \mark \markup { \override #'(font-family . sans) { \box { C } } } + s1*6 | % 25-30 + } + + % B section + + \repeat volta 2 + { + \mark \markup { \override #'(font-family . sans) { \box { D } } } + s1*8 | % 31-38 + } + + % C section + + \mark \markup { \override #'(font-family . sans) { \box { E } } } + s1*16 | % 39-54 + + % B section + + \repeat volta 2 + { + \mark \markup { \override #'(font-family . sans) { \box { F } } } + s1*8 | % 31-38 + } + + % C section + + \repeat volta 2 + { + \mark \markup { \override #'(font-family . sans) { \box { G } } } + s1*8 | % 31-38 + } + + % Outro + + \mark \markup { \override #'(font-family . sans) { \box { H } } } + s1*5 \bar "|." % +} + + +% +% Lead vocal +% +LeadVox = \relative c' +{ +% \set Staff.instrument = #"Lead vox" + \clef G + \override Staff.TimeSignature #'style = #'() +%Hm. Needed anymore? +% \override Score.SpacingSpanner #'average-spacing-wishes = ##f + \set tupletSpannerDuration = #(ly:make-moment 1 4) + \override MultiMeasureRest #'expand-limit = 1 + + % Intro + + R1*4 | % 1-4 + + % A section + + r2 r4 \teeny c \normalsize | % 5 + e4. d8 ~ d4 e ~ | % 6 + e2 r4 c | % 7 + e4. d8 ~ d4 c ~ | % 8 + c2 r | % 9 + r1 | % 10 + + % B section + + r2 r4 c | % 11 + g'4. g8 ~ g ( d ) d4 ~ | % 12 + d4 r r c | % 13 + f4. f8 ~ f ( e ) e4 ~ | % 14 + e4 r r c | % 15 + g'4. g8 ~ g ( d ) d4 ~ | % 16 + d4 r c8 d4 c8 | % 17 + f4. f8 ~ f ( e ) e4 ~ | % 18 + + % A section + + R1*6 | % 19-24 + + r1 | % 25 + e4. d8 ~ d4 e ~ | % 26 + e2 r4 c | % 27 + e4. d8 ~ d4 c ~ | % 28 + c2 r | % 29 + r1 | % 30 + + % B section + + r2 r4 c8 c | % 31 + g'4. g8 ~ g ( d ) d4 ~ | % 32 + d4 r r c | % 33 + f4. f8 ~ f ( e ) e4 ~ | % 34 + e4 r r c | % 35 + g'4. g8 ~ g ( d ) d4 ~ | % 36 +% d4 r << { c8 d4 c8 } \context Voice = vb { \voiceTwo \teeny c8 c d c \normalsize } >> | % 37 + d4 r << { \stemDown \teeny c8 c d c \normalsize \stemNeutral } \context Voice = vb { \voiceTwo \stemUp c8 d4 c8 \stemNeutral } >> | % 37 + f4. f8 ~ f ( e ) e4 ~ | % 38 + + % C section + + r1 | % + r1 | % + r2 r8 c8 d e ~ | % + e8 c d e ~ e c4. | % + r1 | % + r1 | % + r2 r8 c8 d e ~ | % + e8 c d e ~ e e16 ( f e4 ) | % + r1 | % + r1 | % + r2 r8 c8 d e ~ | % + e8 c d e ~ e c4. | % + r2 r8 c8 d e ~ | % + e8 c d e ~ e e16 ( f e4 ) | % + r2 r8 c8 d e ~ | % + e8 c d e ~ e c4. | % + + % B section + + r2 r4 c8 c | % 31 + g'4. g8 ~ g ( d ) d4 ~ | % 32 + d4 r r c | % 33 + f4. f8 ~ f ( e ) e4 ~ | % 34 + e4 r r c | % 35 + g'4. g8 ~ g ( d ) d4 ~ | % 36 + d4 r c8 d4 c8 | % 37 + f4. f8 ~ f ( e ) e4 ~ | % 38 + + % C section + + r2 r8 c8 d e ~ | % + e8 c d e ~ e c4. | % + r2 r8 c8 d e ~ | % + e8 c d e ~ e c4. | % + r2 r8 c8 d e ~ | % + e8 c d e ~ e e16 ( f e4 ) | % + r1 | % + r1 | % + + % Outro + + r1 | % + e4. d8 ~ d4 e ~ | % + e2 r4 c | % + e4. d8 ~ d4 c ~ | % + c1-\fermata | % +} + + +LeadVoxText = \lyricmode +{ + _ Search my _ heart, _ and search my _ soul _ + + With all my _ _ heart, _ + And all my _ _ soul, _ + With all I _ _ am, _ + Lord I will fol -- low _ _ you. + + Hear my _ cry, _ and hear my _ prayer _ + + So with all my _ _ heart, _ + And all my _ _ soul, _ + With all I _ _ am, _ + Lord I _ will fol -- low _ _ you. + + With -- out you _ I am noth -- _ ing, + With -- out you _ I am noth -- _ ing, _ _ + With -- out you _ I am noth -- _ ing, + With -- out you _ I am noth -- _ ing, _ _ + With -- out you _ I am noth -- _ ing. + + So with all my _ _ heart, _ + And all my _ _ soul, _ + With all I _ _ am, _ + Lord I will fol -- low _ _ you. + + With -- out you _ I am noth -- _ ing, + With -- out you _ I am noth -- _ ing, + With -- out you _ I am noth -- _ ing, _ _ + + Search my _ heart, _ and search my _ soul _ +} + +LeadVoxTextB = \lyricmode +{ + There’s no -- thing _ else _ that I want _ more _ + + _ _ _ _ _ _ _ + _ _ _ _ _ _ _ + _ _ _ _ _ _ _ + _ _ _ _ _ _ _ _ + + Draw me _ close, _ I know you’re _ near _ + + You _ took the _ _ cross, _ + You took my _ _ shame, _ + Re -- stored my _ _ life, _ + Now I live to wor -- ship _ _ you. + + _ _ _ _ _ _ _ _ _ + _ _ _ _ _ _ _ _ _ _ _ + _ _ _ _ _ _ _ _ _ + _ _ _ _ _ _ _ _ _ _ _ + _ _ _ _ _ _ _ _ _ + + You _ took the _ _ cross, _ + You took my _ _ shame, _ + Re -- stored my _ _ life, _ +} + +LeadVoxTextC = \lyricmode +{ + _ Shine your _ light, _ and show your _ face _ +} + +LeadVoxTextD = \lyricmode +{ + _ In my _ life, _ Lord have your _ way _ +} + + +Riffs = \relative c' +{ +% \clef G +%Hm. Needed anymore? +% \override Score.SpacingSpanner #'average-spacing-wishes = ##f + \set tupletSpannerDuration = #(ly:make-moment 1 4) + + % Intro + + \tiny + \normalsize +} + + +% +% Chord names +% +Chords = \chordmode +{ + % Intro + + s1*4 | % 1-4 + + % A section + + c1 | % 5 + s1 | % 6 + s1 | % 7 + g4. a:m f4 | % 8 + s1 | % 9 + s1 | % 10 + + % B section + + c1 | % 11 + s1 | % 12 + g1 | % 13 + s1 | % 14 + a1:m | % 15 + s1 | % 16 + f1 | % 17 + s1 | % 18 + + % A section + + c1 | % 19 + s1 | % 20 + s1 | % 21 + g4. a:m f4 | % 22 + s1 | % 23 + s1 | % 24 + + c1 | % 25 + s1 | % 26 + s1 | % 27 + g4. a:m f4 | % 28 + s1 | % 29 + s1 | % 30 + + % B section + + c1 | % 31 + s1 | % 32 + g1 | % 33 + s1 | % 34 + a1:m | % 35 + s1 | % 36 + f1 | % 37 + s1 | % 38 + + % C section + + a1:m | % 39 + g1 | % 40 + f1 | % 41 + s1 | % 42 + + a1:m | % 43 + g1 | % 44 + f1 | % 45 + s1 | % 46 + + a1:m | % 47 + g1 | % 48 + f1 | % 49 + s1 | % 50 + + s1 | % 51 + s1 | % 52 + s1 | % 53 + s1 | % 54 + + % B section + + c1 | % 55 + s1 | % 56 + g1 | % 57 + s1 | % 58 + a1:m | % 59 + s1 | % 60 + f1 | % 61 + s1 | % 62 + + % C section + + c1 | % 63 + s1 | % 64 + g1 | % 65 + s1 | % 66 + a1:m | % 67 + s1 | % 68 + f1 | % 69 + s1 | % 70 + + % Outro + + c1 | % 71 +} + + +% +% Chord rhythms +% +% Use a RhythmicStaff on the chords instead of this? +% It almost works, but not quite. Doesn't collapse chords above to single notes... +% +Rhythm = \relative c +{ +%% \set Voice.autoBeaming = ##f +%% \set Staff.instrument = #"Rhythm" + \override Staff.TimeSignature #'style = #'() + \override NoteHead #'style = #'slash + \override MultiMeasureRest #'expand-limit = 1 + +%Not small enough... + \teeny +% \magnify #0.3 + + % Intro + + R1*4 | % 1-4 + + % A section + + c4 c c c | % 5 + c4 c c c | % 6 + c4 c c c | % 7 + c4. c8 ~ c4 c | % 8 + c4 c c c | % 9 + c4 c c c | % 10 + + % B section + + c4 c c c | % 11 + c4 c c c | % 12 + c4 c c c | % 13 + c4 c c c | % 14 + c4 c c c | % 15 + c4 c c c | % 16 + c4 c c c | % 17 + c4 c c c | % 18 + + % A section + + c4 c c c | % 19 + c4 c c c | % 20 + c4 c c c | % 21 + c4. c8 ~ c4 c | % 22 + c4 c c c | % 23 + c4 c c c | % 24 + + c4 c c c | % 25 + c4 c c c | % 26 + c4 c c c | % 27 + c4. c8 ~ c4 c | % 28 + c4 c c c | % 29 + c4 c c c | % 30 + + % B section + + c4 c c c | % 31 + c4 c c c | % 32 + c4 c c c | % 33 + c4 c c c | % 34 + c4 c c c | % 35 + c4 c c c | % 36 + c4 c c c | % 37 + c4 c c c | % 38 + + % C section + + c4 c c c | % 39 + c4 c c c | % 40 + c4 c c c | % 41 + c4 c c c | % 42 + + c4 c c c | % 43 + c4 c c c | % 44 + c4 c c c | % 45 + c4 c c c | % 46 + + c4 c c c | % 47 + c4 c c c | % 48 + c4 c c c | % 49 + c4 c c c | % 50 + + c4 c c c | % 51 + c4 c c c | % 52 + c4 c c c | % 53 + c4 c c c | % 54 + + % B section + + c4 c c c | % 55 + c4 c c c | % 56 + c4 c c c | % 57 + c4 c c c | % 58 + c4 c c c | % 59 + c4 c c c | % 60 + c4 c c c | % 61 + c4 c c c | % 62 + + % C section + + c4 c c c | % 63 + c4 c c c | % 64 + c4 c c c | % 65 + c4 c c c | % 66 + c4 c c c | % 67 + c4 c c c | % 68 + c4 c c c | % 69 + c4 c c c | % 70 + + % Outro + + c1 ~ | % 71 + c1 ~ | % 72 + c1 ~ | % 73 + c1 ~ | % 74 + c1-\fermata | % 75 +} + + +Dynamics = +{ +% s1*4 | % 1-4 +% s4_\markup { \italic { 1st X: Melody, 2nd X+: Solos } } s2. | % 5 +% s1*38 | % 1-38 +% s4_\markup { \bold \italic { Double Chorus 2nd X } } s2. | % 39 +% s1*7 | % 40-46 +% s4_\markup { \bold { Tutti } } s2. | % 47 +% s4 | % 0 +% s2.*39 | % 1-39 +% s4_\markup { \large \bold \italic { Solo } } s2 | % 40 +} + + +\score +{ + << + \set Score.skipBars = ##t + \set Score.melismaBusyProperties = #'() + +% \new Staff + << + \new ChordNames \transpose c g \Chords +%Capo 4 edition +% \new ChordNames \transpose b g \Chords + \new RhythmicStaff << \Rhythm \Dynamics >> + >> + + \new Staff + << + \Global % The "roadmap" that everything else depends on + \new Voice = "lead" \transpose c g \LeadVox + \new Voice \transpose c g \Riffs + \new Lyrics \lyricsto "lead" \LeadVoxText + \new Lyrics \lyricsto "lead" \LeadVoxTextB + \new Lyrics \lyricsto "lead" \LeadVoxTextC + \new Lyrics \lyricsto "lead" \LeadVoxTextD + >> + >> +} + + +\paper +{ + #(define fonts (make-pango-font-tree + "Times New Roman" + "DomCasual BT" + "Luxi Mono" + (/ staffSize 20))) + +% Spread staves vertically across last page (default: t) + ragged-last-bottom = ##f +% Don't spread staves vertically across the page (default: f) +% ragged-bottom = ##t +% Allow partial line for last stave (default: f) + ragged-last = ##t + +% To find out what's eating the space at the top... +% annotate-spacing = ##t +%let's try this: [It works! Huzzah!] + obsolete-page-top-space = 0 top-system-spacing #'basic-distance = #(/ obsolete-page-top-space staff-space) +} diff --git a/she-loves-you.ly b/she-loves-you.ly new file mode 100644 index 0000000..11fdd59 --- /dev/null +++ b/she-loves-you.ly @@ -0,0 +1,612 @@ +\version "2.16.0" +\include "pop-chords.ly" +\include "english.ly" + +% Good sizes are 16, 18, & 20 +staffSize = #18 +#(set-default-paper-size "letter") +#(set-global-staff-size staffSize) +#(ly:set-option (quote no-point-and-click)) + +%{ Some useful characters: ‘ ’ “ ” – — † ‡ • … %} + +\header +{ +%Let's bump up the title size and switch to the chord font. :-) + + title = \markup { \override #'(font-family . sans) + { \fontsize #3.5 "She Loves You" } } + composer = \markup { \override #'(font-family . sans) "Lennon/McCartney" } +% arranger = \markup { \override #'(font-family . sans) "arr. Ed Smart" } + tagline = "Engraved by JLH and Lilypond 2.8.2" +} + + +% +% Lead vocal +% + +LeadVox = \relative c'' +{ +% \set Voice.autoBeaming = ##f +% \set Staff.instrument = #"Lead vox" + \clef G + \key g \major + \override Staff.TimeSignature #'style = #'() + \time 4/4 +\override Score.SpacingSpanner #'average-spacing-wishes = ##f + + % Intro + + s2.. d8 | % 0 +\set Score.currentBarNumber = #1 + e4 g g2 | % 1 + fs4. e8 ~ e4. d8 | % 2 + e4 g g2 | % 3 + fs4. e8 ~ e4. d8 | % 4 + e4 g g2 | % 5 + fs2 e | % 6 + 1 ~ | % 7 + 2 r4 r8 f, \bar "||" % 8 + + % Verse + +\mark \markup { \override #'(font-family . sans) { \box { A } } } + + g4 a b c8 ~ | % 9 + 2. 8 | % 10 + 4 4. 8 | % 11 + 8 ( 2 ) r8 g, | % 12 + + g4 a b c8 ~ | % 13 + 2. 8 | % 14 + 4 4. 8 | % 15 + 8 ( 4 ) r8 d d d | % 16 + + % Prechorus + + e4 g2 g,8 a | % 17 + b4 b a g | % 18 + 1 ~ | % 19 + 2 r4 8 | % 20 + + 4 2 8 | % 21 + 4 8 ~ | % 22 + 1 | % 23 + r2 r4 r8 fs, | % 24 + + \repeat volta 2 + { + % Verse + +\mark \markup { \override #'(font-family . sans) { \box { B } } } + + g4 a b c8 ~ | % 25 + 2. r8 | % 26 + 4 4. 8 | % 27 + 8 ( 2 ) r8 g, | % 28 + + g4 a b c8 ~ | % 29 + 2. r8 | % 30 + 4 4. 8 | % 31 + 8 ( 4 ) r8 d d d | % 32 + + % Prechorus + + e4 g2 g,8 a | % 33 + b4 b a g | % 34 + 1 ~ | % 35 + 2 r4 8 | % 36 + + 4 2 8 | % 37 + 4 8 ~ | % 38 + 2. r8 8 ~ | % 39 + 2 ~ 4 r8 d, | % 40 + + % Chorus + +\mark \markup { \override #'(font-family . sans) { \box { C } } } + + e4 g g2 | % 41 + fs4. e8 ~ e4. d8 | % 42 + e4 g g2 | % 43 + fs4. e8 ~ e a, a b | % 44 + + 4 r8 | % 45 + 4 8 ~ | % 46 + 8 ( ~ 2. ) | % 47 + } + \alternative + { + { + r2 r4 r8 fs | % 48 + } + { + r2 r8 a a b | % 49 + } + } + + % Outro + +\mark \markup { \override #'(font-family . sans) { \box { D } } } + + 4 r8 | % 50 + 4 8 ~ | % 51 + 8 ( ~ 2. ) | % 52 + r2 r8 a a b | % 53 + + 4 r8 | % 54 + 4. 8 16 ( 4 ) | % 55 + r2 \bar "||" % 56 + + 1 ~ | % 57 + 1 | % 58 + r2 g | % 59 + fs4. e8 ~ e2 | % 60 + + r2 g | % 61 + fs2 e | % 62 + 1^\fermata \bar "|." % 63 +} + +LeadVoxText = \lyricmode +{ + She loves you, yeah, yeah, yeah _ + She loves you, yeah, yeah, yeah _ + She loves you, yeah, yeah, yeah, yeah! _ + + You think you lost your love, _ well I saw her yes -- ter -- day __ _ _ + It’s you she’s think -- ing of _ and she told me what to say __ _ _ + She said she loves you and you know that can’t be bad __ _ + Yes she loves you and you know you should be glad __ _ + + She said you hurt her so, _ she al -- most lost her mind __ _ _ + But now she said she knows _ you’re not the hurt -- ing kind __ _ _ + She said she loves you and you know that can’t be bad __ _ + Yes she loves you and you know you should be glad __ _ Ooo! __ _ _ + + She loves you yeah, yeah, yeah _ + She loves you yeah, yeah, yeah _ + and with a love like that you know you should be glad __ _ _ _ + + You + + and with a love like that you know you should be glad __ _ _ _ + and with a love like that you know you should __ _ _ _ _ + + Be glad! __ _ + Yeah, yeah, yeah! _ + Yeah, yeah, yeah, yeah! +} + +LeadVoxTextB = \lyricmode +{ + _ _ _ _ _ _ _ + _ _ _ _ _ _ _ + _ _ _ _ _ _ _ _ + + _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ + _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ + _ _ _ _ _ _ _ _ _ _ _ _ + _ _ _ _ _ _ _ _ _ _ _ _ _ + + _ know it’s up to you, _ I think it’s on -- ly fair __ _ _ + _ Pride can hurt you too; _ A -- pol -- o -- gize to her __ _ _ + Be -- cause she loves you +} + + +% +% Bass line +% + +Bass = \relative c +{ +% \set Voice.autoBeaming = ##f +% \set Staff.instrument = #"Lead vox" + \clef F + \key g \major + \override Staff.TimeSignature #'style = #'() + \time 4/4 +\override Score.SpacingSpanner #'average-spacing-wishes = ##f + + % Intro + + s1 | % 0 +\set Score.currentBarNumber = #1 + e4. e8 b4. d8 | % 1 + e4. e8 b4 e-. | % 2 + a,4. a8 e'4. e8 | % 3 + a,4. a8 e'4 a,-. | % 4 + c4. c8 g'4. g8 | % 5 + c,4. c8 g'4 c,-. | % 6 + g'2 d4. f8 | % 7 + g2 d8 d e fs \bar "||" % 8 + + % Verse + + g4. g8 d4-. g-. | % 9 + e4. e8 e4 r | % 10 + b4. b8 b4 r | % 11 + d4. d8 d4 r | % 12 + + g4. g8 g4 r | % 13 + e4. e8 e4 r | % 14 + b4. b8 b4 r | % 15 + d4. d8 d4 r | % 16 + + % Prechorus + + g4. b,8 ~ b4 d | % 17 + g4. g8 d4 g-. | % 18 + e4. e8 b4. b8 | % 19 + e4. e8 b4 e-. | % 20 + + c4. c8 g'4. b,8 | % 21 + c4. c8 g'4 c, | % 22 + d4. d8 a'4. cs,8 | % 23 + d4. d8 a' d, e fs | % 24 + + \repeat volta 2 + { + % Verse + + g4. g8 d4-. g-. | % 25 + e4. e8 e4 r | % 26 + b4. b8 b4 r | % 27 + d4. d8 d4 r | % 28 + + g4. g8 g4 r | % 29 + e4. e8 e4 r | % 30 + b4. b8 b4 r | % 31 + d4. d8 d4 r | % 32 + + % Prechorus + + g4. b,8 ~ b4 d | % 33 + g4. g8 d4 g-. | % 34 + e4. e8 b4. b8 | % 35 + e4. e8 b4 e-. | % 36 + + c4. c8 g'4. b,8 | % 37 + c4. c8 g'4 c, | % 38 + d4. d8 a'4. cs,8 | % 39 + d4. d8 a'4 d,-. | % 40 + + % Chorus + + e4. e8 b4. d8 | % 41 + e4. e8 b4 e-. | % 42 + a4. a8 e4. g8 | % 43 + a4. a8 e4 a-. | % 44 + + c,4 c c-. r | % 45 + d4. d8 a'4 d,-. | % 46 +% Note: 2nd time through the bass plays 47 the same as measure 52. Need to enlarge alternatives by one bar. +% !!! FIX !!! + g4. g8 d4. d8 | % 47 + } + \alternative + { + { + g4. g8 d d e fs | % 48 + } + { + e4. e8 e2 | % 49 + } + } + + % Outro + + c4 c c-. r | % 50 + d4. d8 a'4 d, | % 51 + g4. g8 d4 g8 fs | % 52 + e4. e8 e2 | % 53 + + c4 c c-. r | % 54 + d1 | % 55 + r1 \bar "||" % 56 + + g4. g8 d4 d8 fs | % 57 + g4. g8 e4 g8 fs | % 58 + e4. e8 b4. d8 | % 59 + e4. e8 b2 | % 60 + + c4. c8 g'4. b,8 | % 61 + c4 c g'4. c,8 | % 62 + g'1^\fermata \bar "|." % 63 +} + + +% +% Chord names +% + +Chords = \chordmode +{ +%Bah, can't we set this globally? +% \popChords + + % Intro + + s1 | % 0 + e1:m | % 1 + s1 | % 2 + a1:7 | % 3 + s1 | % 4 + c1 | % 5 + s1 | % 6 + g1 | % 7 + s1 | % 8 + + % Verse + + g1 | % + e1:m7 | % + b1:m | % + d1:7 | % + + g1 | % + e1:m7 | % + b1:m | % + d1:7 | % + + % Prechorus + + g1 | % + s1 | % + e1:m | % + s1 | % + + c1:m | % + s1 | % + d1:7 | % + s1 | % + + \repeat volta 2 + { + % Verse + + g1 | % + e1:m7 | % + b1:m | % + d1:7 | % + + g1 | % + e1:m7 | % + b1:m | % + d1:7 | % + + % Prechorus + + g1 | % + s1 | % + e1:m | % + s1 | % + + c1:m | % + s1 | % + d1:7 | % + s1 | % + + % Chorus + + e1:m | % + s1 | % + a1:7 | % + s1 | % + + c1:m | % + d1:7 | % + g1 | % + } + \alternative + { + { + s1 | % + } + { + e1:m | % + } + } + + % Outro + + c1:m | % + d1:7 | % + g1 | % + e1:m | % + + c1:m | % + d1:7 | % + s1 | % + + g1 | % + s1 | % + e1:m | % + s1 | % + + c1 | % + s1 | % + g1:6 | % +} + + +% +% Chord rhythms +% + +% Use a RhythmicStaff on the chords instead of this? +% It almost works, but not quite. Doesn't collapse chords above to single notes... + +StaffC = \relative c +{ +% \set Voice.autoBeaming = ##f +% \set Staff.instrument = #"Rhythm" + \override Staff.TimeSignature #'style = #'() + \time 4/4 + \override NoteHead #'style = #'slash + \teeny + + % Intro + + s1 | % 0 + c4 c c c8 c | % 1 + c4 c r c | % 2 + c4 c c c8 c | % 3 + c4 c \times 2/3 { r4 c c } | % 4 + c4 c c c8 c | % 5 + c4 c c c8 c | % 6 + c4 c8 c c c c4 | % 7 + c4 c8 c c c c4 | % 8 + + % Verse + + c4 c8 c ~ c c c4 | % 9 + c4 c8 c ~ c c c4 | % 10 + c4 c8 c ~ c c c4 | % 11 + c4 c8 c ~ c c c4 | % 12 + + c4 c8 c ~ c c c4 | % 13 + c4 c8 c ~ c c c4 | % 14 + c4 c8 c ~ c c c4 | % 15 + c4 c8 c ~ c c c4 | % 16 + + % Prechorus + + c4. c8 ~ c2 | % 17 + c2 c | % 18 + c4 c8 c ~ c c c4 | % 19 + c4 c8 c ~ c c c4 | % 20 + + c4 c8 c ~ c c c4 | % 21 + c4 c8 c ~ c c c4 | % 22 + c4 c8 c ~ c c c4 | % 23 + c4 c8 c ~ c c c4 | % 24 + + \repeat volta 2 + { + % Verse + + c4 c8 c ~ c c c4 | % 25 + c4 c8 c ~ c c c4 | % 26 + c4 c8 c ~ c c c4 | % 27 + c4 c8 c ~ c c c4 | % 28 + + c4 c8 c ~ c c c4 | % 29 + c4 c8 c ~ c c c4 | % 30 + c4 c8 c ~ c c c4 | % 31 + c4 c8 c ~ c c c4 | % 32 + + % Prechorus + + c4. c8 ~ c2 | % 33 + c2 c | % 34 + c4 c8 c ~ c c c4 | % 35 + c4 c8 c ~ c c c4 | % 36 + + c4 c8 c ~ c c c4 | % 37 + c4 c8 c ~ c c c4 | % 38 + c4 c8 c ~ c c c4 | % 39 + c4 c8 c ~ c c c4 | % 40 + + % Chorus + + c4 c c c8 c | % 41 + c4 c r c | % 42 + c4 c c c8 c | % 43 + c4 c \times 2/3 { r4 c c } | % 44 + + r4 c c r | % 45 + c4 c8 c ~ c c c4 | % 46 + c4 c8 c ~ c c c4 | % 47 + } + \alternative + { + { + c4 c8 c ~ c c c4 | % 48 + } + { + c4 c8 c ~ c c c4 | % 49 + } + } + + % Outro + + r4 c c r | % 50 + c4 c8 c ~ c c c4 | % 51 + c4 c8 c ~ c c c4 | % 52 + c4 c8 c ~ c c c4 | % 53 + + r4 c c r | % 54 + c1 | % 55 + r1 \bar "||" % 56 + + c4 c c c | % 57 + c4 c c c | % 58 + c4 c c c | % 59 + c4 c c c | % 60 + + c4 c c c | % 61 + c4 c c c | % 62 + c1^\fermata | % 63 +} + + +Dynamics = +{ +%{ + s1 | % 0 + s1*54 | % 1-54 + s4_\markup { \hspace #0.0 \raise #-1.0 \italic { rit. } } s2. | % 55 + s1 | % 56 + s4_\markup { \hspace #0.0 \raise #-1.0 \italic { A tempo } } s2. | % 57 +%} +} + + +\score +{ + << + << + \new ChordNames \Chords + \new RhythmicStaff << \StaffC \Dynamics >> + >> + + \new Staff + << + \new Voice = "lead" \LeadVox + \new Lyrics \lyricsto "lead" \LeadVoxText + \new Lyrics \lyricsto "lead" \LeadVoxTextB + >> + + << + \new Staff = bassStaff { \new Voice = "bottom" \Bass } + >> + + \set Score.skipBars = ##t + \set Score.melismaBusyProperties = #'() + >> +} + + +\paper +{ + #(define fonts (make-pango-font-tree + "Times New Roman" + "DomCasual BT" + "Luxi Mono" + (/ staffSize 20))) + +% Spread staves vertically across last page (default: t) + ragged-last-bottom = ##f +% Don't spread staves vertically across the page (default: f) +% ragged-bottom = ##t +% Allow partial line for last stave (default: f) + ragged-last = ##t + +% To find out what's eating the space at the top... +% annotate-spacing = ##t +%let's try this: [It works! Huzzah!] + page-top-space = 0 +} diff --git a/shout-to-the-lord-shortened.ly b/shout-to-the-lord-shortened.ly new file mode 100644 index 0000000..836c1b1 --- /dev/null +++ b/shout-to-the-lord-shortened.ly @@ -0,0 +1,607 @@ +\version "2.16.0" +\include "pop-chords.ly" +\include "english.ly" + +% Good sizes are 16, 18, & 20 +staffSize = #20 +#(set-default-paper-size "letter") +#(set-global-staff-size staffSize) +#(ly:set-option (quote no-point-and-click)) + +%{ Some useful characters: ‘ ’ “ ” – — † ‡ • … %} + +\header +{ +%Let's bump up the title size and switch to the chord font. :-) + + title = \markup { \override #'(font-family . sans) \fontsize #3.5 "Shout To The Lord" } + subtitle = \markup { \override #'(font-family . sans) \fontsize #1.3 "Abbreviated Version" } + composer = \markup { \override #'(font-family . sans) \fontsize #1.3 "Darlene Zschech" } + arranger = \markup { \override #'(font-family . sans) \fontsize #1.3 "Arr. Ed Smart" } + tagline = $(string-append "Engraved by JLH and Lilypond " (lilypond-version)) +} + +% Useful tweak abbreviations (hn = harmony note) + +hn = #(define-music-function (parser location arg) (ly:music?) +;; Harmony Note: Set the tweaks property of the passed in note to use a smaller font + + (set! (ly:music-property arg 'tweaks) + (acons 'font-size -3.5 (ly:music-property arg 'tweaks))) arg) + + +% +% Song's structure +% +Global = +{ +% \key bf \major + \key a \major % New key! + \override Staff.TimeSignature #'style = #'() + \time 4/4 + + % Intro + + \once \override TextScript #'padding = #2.0 + s1*0^\markup { \large \bold { Moderately fast pop/Motown feel } } +%Capo 3 version +% s1*0^\markup { \large \bold { Moderately fast pop "(*** CAPO 3 ***)" } } + s1*8 | % 1-8 + + \repeat volta 2 + { + % Verse + + \once \override Score.RehearsalMark #'self-alignment-X = #left + \mark \markup { \override #'(font-family . sans) { \box { A } } \hspace #1.0 \raise #2.0 \musicglyph #"scripts.segno" } + + s1*5 | % 9-13 + } + \alternative + { + { + s1*3 | % 14-16 + } + { + s1*2 | % 17-18 + } + } + + s1 | % 19 + + \repeat volta 2 + { + % Chorus + + \mark \markup { \override #'(font-family . sans) { \box { B } } } + + s1*8 \bar "||" % 20-27 +% s1*6 | % 28-33 + s1*5 | % 28-32 + } + \alternative + { + { + s1*2 | % 33-34 + s1*0^\markup { \italic { D.S. (w/repeats) } } + s1*1 \bar "||" % 35 +% \once \override Score.RehearsalMark #'self-alignment-X = #right +% \mark \markup { \italic { D.S. (w/repeats) } } + } + { + s1 | % 36 + } + } + +%{ + s1*3 \bar "||" % 37-39 +% \key c \major + \key bf \major % New key! + s1*4 \bar "||" % 40-43 + + \mark \markup { \override #'(font-family . sans) { \box { C } } } + + s1*12 | % 44-55 +%} + + \repeat volta 2 + { + s1*4 | % 56-59 + } + + s1*2 \bar "||" % 60-61 + + \once \override TextScript #'padding = #2.0 + s1^\markup { \large \bold { Slower } } | % 62 + + s1*4 \bar "|." % 63-66 +} +%Need to cut out bars 37-55 [DONE!] + +% +% Lead vocal +% +LeadVox = \relative c' +{ + \clef G + \override Score.SpacingSpanner #'average-spacing-wishes = ##f + + % Intro + + s1 | % 1 + s1 | % 2 + s1 | % 3 + s1 | % 4 + s1 | % 5 + s1 | % 6 + R1 | % 7 + R1 | % 8 + + % Verse + + r4 d ef f | % 9 + r4 a, bf c | % 10 + bf'8 bf bf a ~ a f ( d ) g ~ | % 11 + g2 bf8 a g f ~ | % 12 + f2 bf8 a g f ~ | % 13 + + f4. ~ f16 f f8 ef d bf | % 14 + c2 c | % 15 + c2 r | % 16 + + f2-\repeatTie bf8 bf g bf | % 17 + c2 c | % 18 + + c r | % 19 + + % Chorus + + bf8 bf a bf ~ bf bf a bf ~ | % 20 + bf8 bf a g ~ g2 | % 21 + bf8 bf a bf ~ bf bf c d ~ | % 22 + d8 c bf c ~ c2 | % 23 + bf8 bf a bf ~ bf bf a bf ~ | % 24 + bf4 a8 g ~ g4 g8 g | % 25 + a16 ( g f8 ) ~ f4 g g | % 26 + a2 ( c ) | % 27 + + bf8 bf a bf ~ bf bf a bf ~ | % 28 + bf8 bf a g ~ g4. a8 | % 29 + bf8 bf a bf ~ bf bf c d ~ | % 30 + d8 c bf c ~ c2 | % 31 + bf8 bf a bf ~ bf bf a bf ~ | % 32 + bf8 bf a g ~ g4 a | % 33 + + bf1 | % 34 + R1 | % 35 + + bf8-\repeatTie bf a g ~ g4 r | % 36 + +%{ + R1 | % 37 + bf8 bf a bf ~ bf4 r | % 38 + R1 | % 39 + + c8 c b c ~ c4 r | % 40 + R1 | % 41 + c8 c b c ~ c4 r | % 42 + R1 | % 43 + + c8 c b c ~ c c b c ~ | % 44 + c8 c b a ~ a2 | % 45 + c8 c b c ~ c c d e ~ | % 46 + e8 d c d ~ d2 | % 47 + c8 c b c ~ c c b c ~ | % 48 + c4 b8 a ~ a4 a8 a | % 49 + b16 ( a g8 ) ~ g4 a a | % 50 + b2 ( d ) | % 51 + c8 c b c ~ c c b c ~ | % 52 + c8 c b a ~ a4. b8 | % 53 + c8 c b c ~ c c d e ~ | % 54 + e8 d c d ~ d2 | % 55 +%} + + bf8 bf a bf ~ bf bf a bf ~ | % 56 + bf8 bf a g ~ g4 r | % 57 + bf8 bf a bf ~ bf bf a bf ~ | % 58 + bf8 bf a g ~ g4 r | % 59 + + bf8 bf a bf ~ bf bf a bf ~ | % 60 + bf8 bf a g ~ g4 a | % 61 + + bf1 | % 62 + s1 | % 63 + s1 | % 64 + s1 | % 65 + s1 | % 66 +} + +LeadVoxText = \lyricmode +{ + My Je -- sus, my sa -- vior, + Lord there is none _ like _ you; _ + All of my days _ I want to praise _ _ + the won -- ders of your migh -- ty love. + + _ ne -- ver cease to wor -- ship you. + + Shout to the Lord, _ all the earth, _ let us sing; _ + Po -- wer and ma -- _ je -- sty, praise _ to the King. _ + Moun -- tains bow down _ and the seas _ will roar _ + at the sound __ _ _ _ of your name. __ _ + I sing for joy _ at the work _ of your hands, _ + for -- e -- ver I’ll love _ you, for -- e -- _ ver I’ll stand. _ + No -- thing com -- pares _ to the pro -- _ mise I have _ in you. + + % you. + _ mise I have _ +%{ + Shout to the Lord, _ + Shout to the Lord, _ + Shout to the Lord, _ + + Shout to the Lord, _ all the earth, _ let us sing; _ + Po -- wer and ma -- _ je -- sty, praise _ to the King. _ + Moun -- tains bow down _ and the seas _ will roar _ + at the sound __ _ _ _ of your name. __ _ + I sing for joy _ at the work _ of your hands, _ + for -- e -- ver I’ll love _ you, for -- e -- _ ver I’ll stand. _ +%} + No -- thing com -- pares _ to the pro -- _ mise I have _ + No -- thing com -- pares _ to the pro -- _ mise I have _ + No -- thing com -- pares _ to the pro -- _ mise I have _ in you. +} + +LeadVoxTextB = \lyricmode +{ + My com -- fort, my shel -- ter, + To -- wer of ref -- _ uge and strength; _ + Let ev -- r’y breath, _ all that I am, +} + + +% +% Riffs +% +Riffs = \relative c'' +{ + \tiny + + % Intro + +%For new key... +%\transpose g b { + \override NoteHead #'style = #'slash +%bf' because of transposition... + r4 c16 c c c c r c8 r c | % 1 + r4 r8 c r4 c | % 2 + r4 c16 c c c c r c8 r c | % 3 + r4 r8 c r4 c | % 4 + r4 c16 c c c c r c8 r c | % 5 + r4 r8 c r4 c | % 6 + \override NoteHead #'style = #'default +%} + +% s1*55 | % 7-61 + s1*36 | % 7-61 + + r4 e f g | % 62 + r4 b, c d | % 63 + c'4. b8 ~ b g e a ~ | % 64 + a2 c8 b a4 | % 65 + g1-\fermata | % 66 +} + + +% +% Chord names +% +Chords = \chordmode +{ +%Bah, can't we set this globally? +% \popChords + + % Intro + + bf2 s8 bf4/d ef8 | % 1 + s4. f4.:sus4 f4 | % 2 + bf2 s8 bf4/d ef8 | % 3 + s4. f4.:sus4 f4 | % 4 + bf2 s8 bf4/d ef8 | % 5 + s4. f4.:sus4 f4 | % 6 + f2 ef/f | % 7 + f1 | % 8 + + % Verse + + bf1 | % 9 + f1 | % 10 + g4.:m f2 ef8 | % 11 + s1 | % 12 + bf2/d ef | % 13 + + bf2/f g:m7 | % 14 + af2 ef4./g f8:sus4 | % 15 + s4. f2 s8 | % 16 + + bf2/f g:m7 | % 17 + af2 ef4./g f8:sus4 | % 18 + + s2 f | % 19 + + % Chorus + + bf2 s8 bf4/d ef8 | % 20 + s4. f4.:sus4 f4 | % 21 + bf2 s8 bf4/d ef8 | % 22 + s4. f4.:sus4 f4 | % 23 + g4.:m f2 ef8 | % 24 + s1 | % 25 + f2 ef/f | % 26 + f1 | % 27 + + bf2 s8 bf4/d ef8 | % 28 + s4. f4.:sus4 f4 | % 29 + bf2 s8 bf4/d ef8 | % 30 + s4. f4.:sus4 f4 | % 31 + g4.:m g2:m/f ef8 | % 32 + s2 f4:sus4 f | % 33 + + bf2. s8 f:sus4 | % 34 + s1 | % 35 + + s2 f4:sus4 f | % 36 + +%{ + s4. f4.:sus4 f4 | % 37 + bf2 s8 bf4/d ef8 | % 38 + s4. f4.:sus4 f4 | % 39 + + c2 s8 c4/e f8 | % 40 + s4. g4.:sus4 g4 | % 41 + c2 s8 c4/e f8 | % 42 + s4. g4.:sus4 g4 | % 43 + + c2 s8 c4/e f8 | % 44 + s4. g4.:sus4 g4 | % 45 + c2 s8 c4/e f8 | % 46 + s4. g4.:sus4 g4 | % 47 + a4.:m g2 f8 | % 48 + s1 | % 49 + g2 f/g | % 50 + g1 | % 51 + c2 s8 c4/e f8 | % 52 + s4. g4.:sus4 g4 | % 53 + c2 s8 c4/e f8 | % 54 + s4. g4.:sus4 g4 | % 55 +%} + + g4.:m g2:m/f ef8 | % 56 + s2 f4:sus4 f | % 57 + g4.:m g2:m/f ef8 | % 58 + s2 f4:sus4 f | % 59 + + g4.:m g2:m/f ef8 | % 60 + s2 f4:sus4 f | % 61 + + bf1 | % 62 + f1 | % 63 + g4.:m f2 ef8 | % 64 + s1 | % 65 + bf1 | % 66 +} + + +% +% Chord rhythms +% + +% Use a RhythmicStaff on the chords instead of this? +% It almost works, but not quite. Doesn't collapse chords above to single notes... + +Rhythm = +{ + \override Staff.TimeSignature #'style = #'() + \override NoteHead #'style = #'slash + \teeny + + % Intro + + c4-> r r8 c4-> c8-> | % 1 + r4 r8 c-> ~ c4 c | % 2 + c4-> r r8 c4-> c8-> | % 3 + r4 r8 c-> ~ c4 c | % 4 + c4-> r r8 c4-> c8-> | % 5 + r4 r8 c-> ~ c4 c | % 6 + c8 c c c c c c c | % 7 + c8 c c c c c c c | % 8 + + % Verse + + c4 c c-> c | % 9 + c4 c c-> c | % 10 + c4. c8 ~ c4. c8 ~ | % 11 + c4 c c c | % 12 + c4 c c c | % 13 + + c4 c c c | % 14 + c4 c c c8 c ~ | % 15 + c4 c c c | % 16 + + c4 c c c | % 17 + c4 c c c8 c ~ | % 18 + + c8 c c c c c c c | % 19 + + % Chorus + + c4-> r r8 c4-> c8-> | % 20 + r4 r8 c-> ~ c4 c | % 21 + c4-> r r8 c4-> c8-> | % 22 + r4 r8 c-> ~ c4 c | % 23 + c4. c8 ~ c4. c8 ~ | % 24 + c4 c c c | % 25 + c8 c c c c c c c | % 26 + c8 c c c c c c c | % 27 + + c4-> r r8 c4-> c8-> | % 28 + r4 r8 c-> ~ c4 c | % 29 + c4-> r r8 c4-> c8-> | % 30 + r4 r8 c-> ~ c4 c | % 31 + c4. c8 ~ c4. c8 ~ | % 32 + c4 c c c | % 33 + + c4 c c c8 c ~ | % 34 + c4 c c c | % 35 + + c4-> r r8 c4-> c8-> | % 36 + +%{ + r4 r8 c-> ~ c4 c | % 37 + c4-> r r8 c4-> c8-> | % 38 + r4 r8 c-> ~ c4 c | % 39 + + c4-> r r8 c4-> c8-> | % 40 + r4 r8 c-> ~ c4 c | % 41 + c4-> r r8 c4-> c8-> | % 42 + r4 r8 c-> ~ c4 c | % 43 + + c4-> r r8 c4-> c8-> | % 44 + r4 r8 c-> ~ c4 c | % 45 + c4-> r r8 c4-> c8-> | % 46 + r4 r8 c-> ~ c4 c | % 47 + c4. c8 ~ c4. c8 ~ | % 48 + c4 c c c | % 49 + c8 c c c c c c c | % 50 + c8 c c c c c c c | % 51 + c4-> r r8 c4-> c8-> | % 52 + r4 r8 c-> ~ c4 c | % 53 + c4-> r r8 c4-> c8-> | % 54 + r4 r8 c-> ~ c4 c | % 55 +%} + + c4.-> c8-> ~ c4. c8-> ~ | % 56 + c4 c c c | % 57 + c4.-> c8-> ~ c4. c8-> ~ | % 58 + c4 c c c | % 59 + + c4. c8 ~ c4. c8 ~ | % 60 + c4 c c c | % 61 + + c4 c c c | % 62 + c4 c c c | % 63 + c4. c8 ~ c4. c8 ~ | % 64 + c1 | % 65 + c1-\fermata | % 66 +} + + +Dynamics = +{ + % Intro + + s4_\f s2. | % 1 + s1*5 | % 2-6 + s4_\fp s s \< s | % 7 + s1 | % 8 + + % Verse + + s4_\mf s2. | % 9 + s1*8 | % 10-17 + s2. s8 s_\fp | % 18 + s4 \< s2. | % 19 + + % Chorus + + s4_\f s2. | % 20 + s1*5 | % 21-25 + s4_\fp s2. | % 26 + s8 \< s2.. | % 27 + s4_\f s2. | % 28 +% s1*21 | % 29-49 + s1*2 | % 29-49 + +%{ + s4_\fp s2. | % 50 + s8 \< s2. s8 \! | % 51 +%} + s1*9 | % 52-60 + s4_\markup { \italic { rit. } } s2. | % 61 + s1*3 | % 62-64 + s2 s4_\markup { \italic { rit. } } s | % 65 +} + + +\score +{ + << + \set Score.skipBars = ##t + \set Score.melismaBusyProperties = #'() +%nowok \transpose bf g + +% \new ChoirStaff + << + \new ChordNames \transpose bf a \Chords +% \new ChordNames \Chords +%Capo 3 edition +% \new ChordNames \transpose f d \Chords + \new RhythmicStaff << \Rhythm \Dynamics >> + >> + + \new Staff + << + \Global % The "roadmap" that everything else depends on + \new Voice = "lead" \transpose bf a \LeadVox + \new Voice \transpose bf a \Riffs + \new Lyrics \lyricsto "lead" \LeadVoxText + \new Lyrics \lyricsto "lead" \LeadVoxTextB + >> + >> +} +%{ + << + \set Score.skipBars = ##t + \set Score.melismaBusyProperties = #'() + +% \new Staff + << + \new ChordNames \Chords +%Capo 4 edition +% \new ChordNames \transpose b g \Chords +% \new RhythmicStaff << \Rhythm \Dynamics >> + >> + + \new Staff + << + \Global % The "roadmap" that everything else depends on + \new Voice = "lead" \LeadVox + \new Voice \Riffs + \new Lyrics \lyricsto "lead" \LeadVoxText + \new Lyrics \lyricsto "lead" \LeadVoxTextB +% \new Lyrics \lyricsto "lead" \LeadVoxTextC +% \new Lyrics \lyricsto "lead" \LeadVoxTextD + >> + >> +%} + +\paper +{ + #(define fonts (make-pango-font-tree + "Times New Roman" + "DomCasual BT" + "Luxi Mono" + (/ staffSize 20))) + +% Don't spread staves vertically across last page (default: t) +% ragged-last-bottom = ##f +% Don't spread staves vertically across the page (default: f) +% ragged-bottom = ##t +% Allow partial line for last stave (default: f) +% ragged-last = ##t + +% To find out what's eating the space at the top... +% annotate-spacing = ##t +%let's try this: [It works! Huzzah!] + obsolete-page-top-space = 0 top-system-spacing #'basic-distance = #(/ obsolete-page-top-space staff-space) +} diff --git a/shout-to-the-lord.ly b/shout-to-the-lord.ly new file mode 100644 index 0000000..35b890c --- /dev/null +++ b/shout-to-the-lord.ly @@ -0,0 +1,564 @@ +\version "2.16.0" +\include "pop-chords.ly" +\include "english.ly" + +% Good sizes are 16, 18, & 20 +staffSize = #16 +#(set-default-paper-size "letter") +#(set-global-staff-size staffSize) +#(ly:set-option (quote no-point-and-click)) + +%{ Some useful characters: ‘ ’ “ ” – — † ‡ • … %} + +\header +{ +%Let's bump up the title size and switch to the chord font. :-) + + title = \markup { \override #'(font-family . sans) \fontsize #3.5 "Shout To The Lord" } + composer = \markup { \override #'(font-family . sans) \fontsize #1.3 "Darlene Zschech" } + arranger = \markup { \override #'(font-family . sans) \fontsize #1.3 "Arr. Ed Smart" } + tagline = $(string-append "Engraved by JLH and Lilypond " (lilypond-version)) +} + +% Useful tweak abbreviations (hn = harmony note) + +hn = #(define-music-function (parser location arg) (ly:music?) +;; Harmony Note: Set the tweaks property of the passed in note to use a smaller font + + (set! (ly:music-property arg 'tweaks) + (acons 'font-size -3.5 (ly:music-property arg 'tweaks))) arg) + + +% +% Song's structure +% +Global = +{ +% \key bf \major + \key g \major % New key! + \override Staff.TimeSignature #'style = #'() + \time 4/4 + + % Intro + + \once \override TextScript #'padding = #2.0 + s1*0^\markup { \large \bold { Moderately fast pop/Motown feel } } +%Capo 3 version +% s1*0^\markup { \large \bold { Moderately fast pop "(*** CAPO 3 ***)" } } + s1*8 | % 1-8 + + \repeat volta 2 + { + % Verse + + \once \override Score.RehearsalMark #'self-alignment-X = #left + \mark \markup { \override #'(font-family . sans) { \box { A } } \hspace #1.0 \raise #2.0 \musicglyph #"scripts.segno" } + + s1*5 | % 9-13 + } + \alternative + { + { + s1*3 | % 14-16 + } + { + s1*2 | % 17-18 + } + } + + s1 | % 19 + + \repeat volta 2 + { + % Chorus + + \mark \markup { \override #'(font-family . sans) { \box { B } } } + + s1*8 \bar "||" % 20-27 + s1*6 | % 28-33 + } + \alternative + { + { + s1*2 \bar "||" % 34-35 + \once \override Score.RehearsalMark #'self-alignment-X = #right + \mark \markup { \italic { D.S. (w/repeats) } } + } + { + s1 | % 36 + } + } + + s1*3 \bar "||" % 37-39 +% \key c \major + \key a \major % New key! + s1*4 \bar "||" % 40-43 + + \mark \markup { \override #'(font-family . sans) { \box { C } } } + + s1*12 | % 44-55 + + \repeat volta 2 + { + s1*4 | % 56-59 + } + + s1*2 \bar "||" % 60-61 + + \once \override TextScript #'padding = #2.0 + s1^\markup { \large \bold { Slower } } | % 62 + + s1*4 \bar "|." % 63-66 +} + + +% +% Lead vocal +% +LeadVox = \relative c' +{ + \clef G + \override Score.SpacingSpanner #'average-spacing-wishes = ##f + + % Intro + + s1 | % 1 + s1 | % 2 + s1 | % 3 + s1 | % 4 + s1 | % 5 + s1 | % 6 + R1 | % 7 + R1 | % 8 + + % Verse + + r4 d ef f | % 9 + r4 a, bf c | % 10 + bf'8 bf bf a ~ a f ( d ) g ~ | % 11 + g2 bf8 a g f ~ | % 12 + f2 bf8 a g f ~ | % 13 + + f4. ~ f16 f f8 ef d bf | % 14 + c2 c | % 15 + c2 r | % 16 + + f2-\repeatTie bf8 bf g bf | % 17 + c2 c | % 18 + + c r | % 19 + + % Chorus + + bf8 bf a bf ~ bf bf a bf ~ | % 20 + bf8 bf a g ~ g2 | % 21 + bf8 bf a bf ~ bf bf c d ~ | % 22 + d8 c bf c ~ c2 | % 23 + bf8 bf a bf ~ bf bf a bf ~ | % 24 + bf4 a8 g ~ g4 g8 g | % 25 + a16 ( g f8 ) ~ f4 g g | % 26 + a2 ( c ) | % 27 + + bf8 bf a bf ~ bf bf a bf ~ | % 28 + bf8 bf a g ~ g4. a8 | % 29 + bf8 bf a bf ~ bf bf c d ~ | % 30 + d8 c bf c ~ c2 | % 31 + bf8 bf a bf ~ bf bf a bf ~ | % 32 + bf8 bf a g ~ g4 a | % 33 + + bf1 | % 34 + R1 | % 35 + + bf1 | % 36 + + R1 | % 37 + bf8 bf a bf ~ bf4 r | % 38 + R1 | % 39 + + c8 c b c ~ c4 r | % 40 + R1 | % 41 + c8 c b c ~ c4 r | % 42 + R1 | % 43 + + c8 c b c ~ c c b c ~ | % 44 + c8 c b a ~ a2 | % 45 + c8 c b c ~ c c d e ~ | % 46 + e8 d c d ~ d2 | % 47 + c8 c b c ~ c c b c ~ | % 48 + c4 b8 a ~ a4 a8 a | % 49 + b16 ( a g8 ) ~ g4 a a | % 50 + b2 ( d ) | % 51 + c8 c b c ~ c c b c ~ | % 52 + c8 c b a ~ a4. b8 | % 53 + c8 c b c ~ c c d e ~ | % 54 + e8 d c d ~ d2 | % 55 + + c8 c b c ~ c c b c ~ | % 56 + c8 c b a ~ a4 r | % 57 + c8 c b c ~ c c b c ~ | % 58 + c8 c b a ~ a4 r | % 59 + + c8 c b c ~ c c b c ~ | % 60 + c8 c b a ~ a4 b | % 61 + + c1 | % 62 + s1 | % 63 + s1 | % 64 + s1 | % 65 + s1 | % 66 +} + +LeadVoxText = \lyricmode +{ + My Je -- sus, my sa -- vior, + Lord there is none _ like _ you; _ + All of my days _ I want to praise _ _ + the won -- ders of your migh -- ty love. + + _ ne -- ver cease to wor -- ship you. + + Shout to the Lord, _ all the earth, _ let us sing; _ + Po -- wer and ma -- _ je -- sty, praise _ to the King. _ + Moun -- tains bow down _ and the seas _ will roar _ + at the sound __ _ _ _ of your name. __ _ + I sing for joy _ at the work _ of your hands, _ + for -- e -- ver I’ll love _ you, for -- e -- _ ver I’ll stand. _ + No -- thing com -- pares _ to the pro -- _ mise I have _ in you. + + you. + + Shout to the Lord, _ + Shout to the Lord, _ + Shout to the Lord, _ + + Shout to the Lord, _ all the earth, _ let us sing; _ + Po -- wer and ma -- _ je -- sty, praise _ to the King. _ + Moun -- tains bow down _ and the seas _ will roar _ + at the sound __ _ _ _ of your name. __ _ + I sing for joy _ at the work _ of your hands, _ + for -- e -- ver I’ll love _ you, for -- e -- _ ver I’ll stand. _ + No -- thing com -- pares _ to the pro -- _ mise I have _ + No -- thing com -- pares _ to the pro -- _ mise I have _ + No -- thing com -- pares _ to the pro -- _ mise I have _ in you. +} + +LeadVoxTextB = \lyricmode +{ + My com -- fort, my shel -- ter, + To -- wer of ref -- _ uge and strength; _ + Let ev -- r’y breath, _ all that I am, +} + + +% +% Riffs +% +Riffs = \relative c'' +{ + \tiny + + % Intro + +%For new key... +\transpose g b { + \override NoteHead #'style = #'slash +%bf' because of transposition... + r4 bf'16 bf' bf' bf' bf' r bf'8 r bf' | % 1 + r4 r8 bf' r4 bf' | % 2 + r4 bf'16 bf' bf' bf' bf' r bf'8 r bf' | % 3 + r4 r8 bf' r4 bf' | % 4 + r4 bf'16 bf' bf' bf' bf' r bf'8 r bf' | % 5 + r4 r8 bf' r4 bf' | % 6 + \override NoteHead #'style = #'default +} + + s1*55 | % 7-61 + + r4 e f g | % 62 + r4 b, c d | % 63 + c'4. b8 ~ b g e a ~ | % 64 + a2 c8 b a4 | % 65 + g1-\fermata | % 66 +} + + +% +% Chord names +% +Chords = \chordmode +{ +%Bah, can't we set this globally? +% \popChords + + % Intro + + bf2 s8 bf4/d ef8 | % 1 + s4. f4.:sus4 f4 | % 2 + bf2 s8 bf4/d ef8 | % 3 + s4. f4.:sus4 f4 | % 4 + bf2 s8 bf4/d ef8 | % 5 + s4. f4.:sus4 f4 | % 6 + f2 ef/f | % 7 + f1 | % 8 + + % Verse + + bf1 | % 9 + f1 | % 10 + g4.:m f2 ef8 | % 11 + s1 | % 12 + bf2/d ef | % 13 + + bf2/f g:m7 | % 14 + af2 ef4./g f8:sus4 | % 15 + s4. f2 s8 | % 16 + + bf2/f g:m7 | % 17 + af2 ef4./g f8:sus4 | % 18 + + s2 f | % 19 + + % Chorus + + bf2 s8 bf4/d ef8 | % 20 + s4. f4.:sus4 f4 | % 21 + bf2 s8 bf4/d ef8 | % 22 + s4. f4.:sus4 f4 | % 23 + g4.:m f2 ef8 | % 24 + s1 | % 25 + f2 ef/f | % 26 + f1 | % 27 + + bf2 s8 bf4/d ef8 | % 28 + s4. f4.:sus4 f4 | % 29 + bf2 s8 bf4/d ef8 | % 30 + s4. f4.:sus4 f4 | % 31 + g4.:m g2:m/f ef8 | % 32 + s2 f4:sus4 f | % 33 + + bf2. s8 f:sus4 | % 34 + s1 | % 35 + + bf2 s8 bf4/d ef8 | % 36 + + s4. f4.:sus4 f4 | % 37 + bf2 s8 bf4/d ef8 | % 38 + s4. f4.:sus4 f4 | % 39 + + c2 s8 c4/e f8 | % 40 + s4. g4.:sus4 g4 | % 41 + c2 s8 c4/e f8 | % 42 + s4. g4.:sus4 g4 | % 43 + + c2 s8 c4/e f8 | % 44 + s4. g4.:sus4 g4 | % 45 + c2 s8 c4/e f8 | % 46 + s4. g4.:sus4 g4 | % 47 + a4.:m g2 f8 | % 48 + s1 | % 49 + g2 f/g | % 50 + g1 | % 51 + c2 s8 c4/e f8 | % 52 + s4. g4.:sus4 g4 | % 53 + c2 s8 c4/e f8 | % 54 + s4. g4.:sus4 g4 | % 55 + + a4.:m a2:m/g f8 | % 56 + s2 g4:sus4 g | % 57 + a4.:m a2:m/g f8 | % 58 + s2 g4:sus4 g | % 59 + + a4.:m a2:m/g f8 | % 60 + s2 g4:sus4 g | % 61 + + c1 | % 62 + g1 | % 63 + a4.:m g2 f8 | % 64 + s1 | % 65 + c1 | % 66 +} + + +% +% Chord rhythms +% + +% Use a RhythmicStaff on the chords instead of this? +% It almost works, but not quite. Doesn't collapse chords above to single notes... + +Rhythm = +{ + \override Staff.TimeSignature #'style = #'() + \override NoteHead #'style = #'slash + + % Intro + + c4-> r r8 c4-> c8-> | % 1 + r4 r8 c-> ~ c4 c | % 2 + c4-> r r8 c4-> c8-> | % 3 + r4 r8 c-> ~ c4 c | % 4 + c4-> r r8 c4-> c8-> | % 5 + r4 r8 c-> ~ c4 c | % 6 + c8 c c c c c c c | % 7 + c8 c c c c c c c | % 8 + + % Verse + + c4 c c-> c | % 9 + c4 c c-> c | % 10 + c4. c8 ~ c4. c8 ~ | % 11 + c4 c c c | % 12 + c4 c c c | % 13 + + c4 c c c | % 14 + c4 c c c8 c ~ | % 15 + c4 c c c | % 16 + + c4 c c c | % 17 + c4 c c c8 c ~ | % 18 + + c8 c c c c c c c | % 19 + + % Chorus + + c4-> r r8 c4-> c8-> | % 20 + r4 r8 c-> ~ c4 c | % 21 + c4-> r r8 c4-> c8-> | % 22 + r4 r8 c-> ~ c4 c | % 23 + c4. c8 ~ c4. c8 ~ | % 24 + c4 c c c | % 25 + c8 c c c c c c c | % 26 + c8 c c c c c c c | % 27 + + c4-> r r8 c4-> c8-> | % 28 + r4 r8 c-> ~ c4 c | % 29 + c4-> r r8 c4-> c8-> | % 30 + r4 r8 c-> ~ c4 c | % 31 + c4. c8 ~ c4. c8 ~ | % 32 + c4 c c c | % 33 + + c4 c c c8 c ~ | % 34 + c4 c c c | % 35 + + c4-> r r8 c4-> c8-> | % 36 + + r4 r8 c-> ~ c4 c | % 37 + c4-> r r8 c4-> c8-> | % 38 + r4 r8 c-> ~ c4 c | % 39 + + c4-> r r8 c4-> c8-> | % 40 + r4 r8 c-> ~ c4 c | % 41 + c4-> r r8 c4-> c8-> | % 42 + r4 r8 c-> ~ c4 c | % 43 + + c4-> r r8 c4-> c8-> | % 44 + r4 r8 c-> ~ c4 c | % 45 + c4-> r r8 c4-> c8-> | % 46 + r4 r8 c-> ~ c4 c | % 47 + c4. c8 ~ c4. c8 ~ | % 48 + c4 c c c | % 49 + c8 c c c c c c c | % 50 + c8 c c c c c c c | % 51 + c4-> r r8 c4-> c8-> | % 52 + r4 r8 c-> ~ c4 c | % 53 + c4-> r r8 c4-> c8-> | % 54 + r4 r8 c-> ~ c4 c | % 55 + + c4.-> c8-> ~ c4. c8-> ~ | % 56 + c4 c c c | % 57 + c4.-> c8-> ~ c4. c8-> ~ | % 58 + c4 c c c | % 59 + + c4. c8 ~ c4. c8 ~ | % 60 + c4 c c c | % 61 + + c4 c c c | % 62 + c4 c c c | % 63 + c4. c8 ~ c4. c8 ~ | % 64 + c1 | % 65 + c1-\fermata | % 66 +} + + +Dynamics = +{ + % Intro + + s4_\f s2. | % 1 + s1*5 | % 2-6 + s4_\fp s s \< s | % 7 + s1 | % 8 + + % Verse + + s4_\mf s2. | % 9 + s1*8 | % 10-17 + s2. s8 s_\fp | % 18 + s4 \< s2. | % 19 + + % Chorus + + s4_\f s2. | % 20 + s1*5 | % 21-25 + s4_\fp s2. | % 26 + s8 \< s2.. | % 27 + s4_\f s2. | % 28 + s1*21 | % 29-49 + + s4_\fp s2. | % 50 + s8 \< s2. s8 \! | % 51 + s1*9 | % 52-60 + s4_\markup { \italic { rit. } } s2. | % 61 + s1*3 | % 62-64 + s2 s4_\markup { \italic { rit. } } s | % 65 +} + + +\score +{ + << + \Global % The "roadmap" that everything else depends on +%nowok \transpose bf g + + \context Staff + << + \new Voice = "lead" \transpose bf g \LeadVox + \new Voice \transpose bf a \Riffs + \new Lyrics \lyricsto "lead" \LeadVoxText + \new Lyrics \lyricsto "lead" \LeadVoxTextB + >> + + \new ChoirStaff + << + \new ChordNames \transpose bf a \Chords +%Capo 3 edition +% \new ChordNames \transpose f d \Chords + \new RhythmicStaff << \Rhythm \Dynamics >> + >> + + \set Score.skipBars = ##t + \set Score.melismaBusyProperties = #'() + >> +} + + +\paper +{ + #(define fonts (make-pango-font-tree + "Times New Roman" + "DomCasual BT" + "Luxi Mono" + (/ staffSize 20))) + +% Don't spread staves vertically across last page (default: t) +% ragged-last-bottom = ##f +% Don't spread staves vertically across the page (default: f) +% ragged-bottom = ##t +% Allow partial line for last stave (default: f) + ragged-last = ##t + +% To find out what's eating the space at the top... +% annotate-spacing = ##t +%let's try this: [It works! Huzzah!] + obsolete-page-top-space = 0 top-system-spacing #'basic-distance = #(/ obsolete-page-top-space staff-space) +} diff --git a/shout-to-the-north.ly b/shout-to-the-north.ly new file mode 100644 index 0000000..779e8d8 --- /dev/null +++ b/shout-to-the-north.ly @@ -0,0 +1,614 @@ +\version "2.16.0" +\include "pop-chords.ly" +\include "english.ly" + +% Good sizes are 16, 18, & 20 +staffSize = #16 +#(set-default-paper-size "letter") +#(set-global-staff-size staffSize) +#(ly:set-option (quote no-point-and-click)) + +%{ Some useful characters: ‘ ’ “ ” – — † ‡ • … %} + +\header +{ + title = \markup { \override #'(font-family . sans) \fontsize #3.5 "Shout To The North" } +% subtitle = \markup { \override #'(font-family . sans) \fontsize #1.3 "(White bread vers.)" } +% composer = \markup { \override #'(font-family . sans) \fontsize #1.3 "" } + arranger = \markup { \override #'(font-family . sans) \fontsize #1.3 "arr. Ed Smart" } + tagline = $(string-append "Engraved by JLH and Lilypond " (lilypond-version)) +} + +% Useful tweak abbreviations (hn = harmony note) + +hn = #(define-music-function (parser location arg) (ly:music?) +;; Harmony Note: Set the tweaks property of the passed in note to use a smaller font + + (set! (ly:music-property arg 'tweaks) + (acons 'font-size -3.0 (ly:music-property arg 'tweaks))) arg) + + +% +% Lead vocal +% + +LeadVox = \relative c'' +{ +% \set Voice.autoBeaming = ##f +% \set Staff.instrument = #"Lead vox" + \clef G + \key g \major + \override Staff.TimeSignature #'style = #'() + \time 6/8 +\override Score.SpacingSpanner #'average-spacing-wishes = ##f + + \repeat volta 4 + { + r2. | % 1 + } + \alternative + { + { + r2. | % 2 + } + { + r4. r8 g a | % 3 + } + } + + \repeat volta 2 + { +\mark \markup { \override #'(font-family . sans) { \box { A } } } + b4 d,8 a'4 fs8 | % 4 + g4. r8 g g | % 5 + b4 d,8 a'4 fs8 | % 6 + g4. r8 g a | % 7 + b4 d,8 a'4 fs8 | % 8 + g4. r8 g g | % 9 + b4 d,8 a'4 fs8 | % 10 + a16 ( g ) ~ g4 ~ g4. | % 11 + r2. | % 12 + +\once \override Score.RehearsalMark #'self-alignment-X = #left +\mark \markup { \override #'(font-family . sans) { \box { B } } \italic \smaller { (1st X unison) } } + 4. 4 8 | % 13 + 8 4. | % 14 + 4. 4 8 | % 15 + 8 4. | % 16 + 4. 4 8 | % 17 + 8 4. | % 18 + 4 8 16 8. 8 | % 19 + } + \alternative + { + { + 2. | % 20 + r2 g8 a | % 21 + } + { + g2. | % 22 + } + } + +\mark \markup { \override #'(font-family . sans) { \box { C } } } + 4. 4 8 | % 23 + 8 4. | % 24 + 4. 4 8 | % 25 + 8 4. | % 26 + 4. 4 8 | % 27 + 8 4. | % 28 + 4 8 16 8. 8 | % 29 + 2. | % 30 + r2. \bar "||" % 31 + +\mark \markup { \override #'(font-family . sans) { \box { D } } } + 8 ( ) r | % 32 + 8 4. | % 33 + 8 | % 34 + 8 4. | % 35 + 8 r | % 36 + 8 4. | % 37 + 8 | % 38 + 2. ~ | % 39 + 4. r8 g, g | % 40 + + \repeat volta 2 + { +\mark \markup { \override #'(font-family . sans) { \box { E } } } + 4. 4 8 | % 41 + 8 4. | % 42 + 4. 4 8 | % 43 + 8 4. | % 44 + 4. 4 8 | % 45 + 8 4. | % 46 + 4 8 16 8. 8 | % 47 + } + \alternative + { + { + 4. r8 g g | % 48 + } + { + 2. | % 49 + } + } + + r2 g8 a \bar "||" % 50 + +\mark \markup { \override #'(font-family . sans) { \box { F } } } + b4 d,8 a'4 fs8 | % 51 + g4. r8 g g | % 52 + b4 d,8 a'4 fs8 | % 53 + g4. r8 g a | % 54 + b4 d,8 a'4 fs8 | % 55 + g4. r8 g g | % 56 + b4 d,8 a'4 fs8 | % 57 + a16 ( g ) ~ g4 ~ g4. | % 58 + r2. | % 59 + + \repeat volta 2 + { +\once \override Score.RehearsalMark #'self-alignment-X = #left +\mark \markup { \override #'(font-family . sans) { \box { G } } \italic \smaller { (1st X kids, 2nd X all) } } + d'4. d4 g,8 | % 60 + c8 c b a4. | % 61 + d4. d4 g,8 | % 62 + c8 c b a4. | % 63 + d4. d4 g,8 | % 64 + c8 c b a4. | % 65 + c4 b8 a16 g8. g8 | % 66 + g2. | % 67 + } + + \repeat volta 2 + { +\mark \markup { \override #'(font-family . sans) { \box { H } } } + 4. 4 8 | % 68 + 8 4. | % 69 + 4. 4 8 | % 70 + 8 4. | % 71 + 4. 4 8 | % 72 + 8 4. | % 73 + 4 8 16 8. 8 | % 74 + 2. | % 75 + } + + 4 8 16 8. 8 | % 76 + 2. | % 77 + 4 8 16 8. 8 | % 78 + 2. | % 79 + c4 b8 a16 g8. g8 | % 80 + g2.-\fermata \bar "|." % 81 +} + +LeadVoxText = \lyricmode +{ + Men of faith, rise up and sing + of the great and glo -- rious King, + You are strong when you feel weak, + in your bro -- ken -- ness com -- plete. _ _ _ + + Shout to the north and the south, + Sing to the east and the west, + Je -- sus is sav -- ior to all, + Lord of hea -- ven and earth. + + Rise up + earth. + + Shout to the north and the south, + Sing to the east and the west, + Je -- sus is sav -- ior to all, + Lord of hea -- ven and earth. + + We’ve been through fire, _ we’ve been through rain, + We’ve been re -- fined by the pow’r of his name, + We’ve fal -- len deep -- er in love with you, + You’ve burned the truth on our lips. _ + + We will + + Shout to the north and the south, + Sing to the east and the west, + Je -- sus is sav -- ior to all, + Lord of hea -- ven and earth. + + We will + earth. + + Rise up church, with bro -- ken wings, + fill this place with songs a -- gain, + Of our God who reigns on high, + by his grace a -- gain we’ll fly. _ _ _ + + Shout to the north and the south, + Sing to the east and the west, + Je -- sus is sav -- ior to all, + Lord of hea -- ven and earth. + + Shout to the north and the south, + Sing to the east and the west, + Je -- sus is sav -- ior to all, + Lord of hea -- ven and earth. + + Lord of hea -- ven and earth. + Lord of hea -- ven and earth. + Lord of hea -- ven and earth. +} + +LeadVoxTextB = \lyricmode +{ + _ _ wo -- men of the truth, + stand and sing to bro -- ken hearts, + who can know the heal -- ing pow’r + of our awe -- some king of love. _ _ _ +} + + +% +% Chord names +% + +Chords = \chordmode +{ +%Bah, can't we set this globally? +% \popChords + + \repeat volta 4 + { + g2.:5^3 | % 1 + } + \alternative + { + { + s4. g:sus4 | % 2 + } + { + g2.:5^3 | % 3 + } + } + + \repeat volta 2 + { + g4. d | % 4 + c2. | % 5 + g4. d | % 6 + c2. | % 7 + g4. d | % 8 + c2. | % 9 + g4. d | % 10 + c2.:sus2 | % 11 + s2. \bar "||" % 12 + + g2. | % 13 + c4. d | % 14 + g2. | % 15 + c4. d | % 16 + g2. | % 17 + c4. d | % 18 + c4. d:sus4 | % 19 + } + \alternative + { + { + g2. | % 20 + s2. | % 21 + } + { + g2. | % 22 + } + } + + g2. | % 23 + c4. d | % 24 + g2. | % 25 + c4. d | % 26 + e2.:m7 | % 27 + c4. d | % 28 + c4. d:sus4 | % 29 + g2. | % 30 + s2. | % 31 + + e2.:m | % 32 + c2. | % 33 + e2.:m | % 34 + c2. | % 35 + e2.:m | % 36 + c2. | % 37 + s2. | % 38 + d2. | % 39 + d2.:sus4 | % 40 + + \repeat volta 2 + { + g2. | % 41 + c4. d | % 42 + g2. | % 43 + c4. d | % 44 + e2.:m7 | % 45 + c4. d | % 46 + c4. d:sus4 | % 47 + } + \alternative + { + { + g2. | % 48 + } + { + g2. | % 49 + } + } + + s2. | % 50 + + g4. d | % 51 + c2. | % 52 + g4. d | % 53 + c2. | % 54 + g4. d | % 55 + c2. | % 56 + g4. d | % 57 + c2.:sus2 | % 58 + s2. | % 59 + + \repeat volta 2 + { + g2. | % 60 + c4. d | % 61 + g2. | % 62 + c4. d | % 63 + g2. | % 64 + c4. d | % 65 + c4. d:sus4 | % 66 + g2. | % 67 + } + + \repeat volta 2 + { + g2. | % 68 + c4. d | % 69 + g2. | % 70 + c4. d | % 71 + e2.:m7 | % 72 + c4. d | % 73 + c4. d:sus4 | % 74 + g2. | % 75 + } + + c4. d:sus4 | % 76 + g2. | % 77 + c4. d:sus4 | % 78 + g2. | % 79 + c4. d:sus4 | % 80 + g2. | % 81 +} + + +% +% Chord rhythms +% + +% Use a RhythmicStaff on the chords instead of this? +% It almost works, but not quite. Doesn't collapse chords above to single notes... + +%Slash = { \override NoteHead #'style = #'slash } +%Cross = { \override NoteHead #'style = #'cross } + +StaffC = \relative c +{ + \override Staff.TimeSignature #'style = #'() + \time 6/8 + \override NoteHead #'style = #'slash + + \repeat volta 4 + { + c8-> c c c-> c c | % 1 + } + \alternative + { + { + c8-> c c c-> c c | % 2 + } + { + c2.-> | % 3 + } + } + + \repeat volta 2 + { + c8 c c c c c | % 4 + c8 c c c c c | % 5 + c8 c c c c c | % 6 + c8 c c c c c | % 7 + c8 c c c c c | % 8 + c8 c c c c c | % 9 + c8 c c c c c | % 10 + c8 c c c c c | % 11 + c8 c c c c c | % 12 + + c8 c c c c c | % 13 + c8 c c c c c | % 14 + c8 c c c c c | % 15 + c8 c c c c c | % 16 + c8 c c c c c | % 17 + c8 c c c c c | % 18 + c8 c c c c c | % 19 + } + \alternative + { + { + g2. ~ | % 20 + g2. | % 21 + } + { + c8 c c c c c | % 22 + } + } + + c8 c c c c c | % 23 + c8 c c c c c | % 24 + c8 c c c c c | % 25 + c8 c c c c c | % 26 + c8 c c c c c | % 27 + c8 c c c c c | % 28 + c8 c c c c c | % 29 + c8 c c c c c | % 30 + c8 c c c c c \bar "||" % 31 + + c8 c c c c c | % 32 + c8 c c c c c | % 33 + c8 c c c c c | % 34 + c8 c c c c c | % 35 + c8 c c c c c | % 36 + c8 c c c c c | % 37 + c8 c c c c c | % 38 + c8 c c c c c | % 39 + c8 c c c c c | % 40 + + \repeat volta 2 + { + c8 c c c c c | % 41 + c8 c c c c c | % 42 + c8 c c c c c | % 43 + c8 c c c c c | % 44 + c8 c c c c c | % 45 + c8 c c c c c | % 46 + c8 c c c c c | % 47 + } + \alternative + { + { + c8 c c c c c | % 48 + } + { + c2. ~ | % 49 + } + } + + c2. \bar "||" % 50 + + c8 c c c c c | % 51 + c8 c c c c c | % 52 + c8 c c c c c | % 53 + c8 c c c c c | % 54 + c8 c c c c c | % 55 + c8 c c c c c | % 56 + c8 c c c c c | % 57 + c8 c c c c c | % 58 + c8 c c c c c | % 59 + + \repeat volta 2 + { + c8 c c c c c | % 60 + c8 c c c c c | % 61 + c8 c c c c c | % 62 + c8 c c c c c | % 63 + c8 c c c c c | % 64 + c8 c c c c c | % 65 + c8 c c c c c | % 66 + c8 c c c c c | % 67 + } + + \repeat volta 2 + { + c8 c c c c c | % 68 + c8 c c c c c | % 69 + c8 c c c c c | % 70 + c8 c c c c c | % 71 + c8 c c c c c | % 72 + c8 c c c c c | % 73 + c8 c c c c c | % 74 + c8 c c c c c | % 75 + } + + c8 c c c c c | % 76 + c8 c c c c c | % 77 + c8 c c c c c | % 78 + c8 c c c c c | % 79 + c8 c c c c c | % 80 + c2.-\fermata \bar "|." % 81 +} + + +Dynamics = +{ + s4_\f s2 | % 1 + s2. | % 2 + s4. s8_\mf s4 | % 3 + s2.*9 | % 4-12 + s4_\markup { \dynamic mf - \dynamic f } s2 | % 13 + s2.*9 | % 14-22 + s4_\f s2 | % 23 + s2.*7 | % 24-30 + s8 s \< s4. s8 \! | % 31 + s2.*8 | % 32-39 + s8 \< s4 s8 \! s4 | % 40 + s4_\markup { \italic \smaller { (1st X drums only } } s2 | % 41 + s2.*8 | % 42-49 + s8 \> s2 s8_\mp | % 50 + s2.*9 | % 51-59 + s4_\markup { \dynamic p - \dynamic f } s2 | % 60 + s2.*6 | % 61-66 + s8 \< s s2 | % 67 + s8_\ff s s2 | % 68 +%{ + s4_\markup { \italic { snare on 4, bass 8th notes } } s2. | % 1 + s1*26 | % 2-27 + s2 s4 \< s | % 28 + s4_\f s_\markup { \hspace #0.0 \raise #-2.0 \italic { snare 2 & 4 } } s2 | % 29 + s1*8 | % 30-37 + s2 s4 \< s \! | % 38 + s1 | % 39 + s2. s8 \> s \! | % 40 + s4_\markup { \hspace #0.0 \raise #-2.0 \italic { bass 8th notes, band builds each repeat } } s2. | % 41 + s1*8 | % 42-49 + s4 \< s2. | % 50 + s4_\f s2. | % 51 + s1*5 | % 52-56 + s4_\markup { \hspace #0.0 \raise #-2.0 \italic { rit. last time } } s2. | % 57 + s2 s4 \< s \! | % 58 +%} +} + + +\score +{ + << + << + \new Staff = leadStaff { \new Voice = "lead" \LeadVox } + \new Lyrics \lyricsto "lead" \LeadVoxText + \new Lyrics \lyricsto "lead" \LeadVoxTextB + >> + + \new ChoirStaff = "Rhythm" + << + \new ChordNames = "chords" \Chords + \new RhythmicStaff = "chordRhythm" << \StaffC \Dynamics >> + >> + + \set Score.skipBars = ##t + \set Score.melismaBusyProperties = #'() + >> +} + + +\paper +{ + #(define fonts (make-pango-font-tree + "Times New Roman" + "DomCasual BT" + "Luxi Mono" + (/ staffSize 20))) + +% Spread staves vertically across last page (default: t) +% ragged-last-bottom = ##f +% Don't spread staves vertically across the page (default: f) +% ragged-bottom = ##t +% Allow partial line for last stave (default: f) +% ragged-last = ##t + +% To find out what's eating the space at the top... +% annotate-spacing = ##t +%let's try this: [It works! Huzzah!] + obsolete-page-top-space = 0 top-system-spacing #'basic-distance = #(/ obsolete-page-top-space staff-space) +} diff --git a/show-me-your-glory.ly b/show-me-your-glory.ly new file mode 100644 index 0000000..582da14 --- /dev/null +++ b/show-me-your-glory.ly @@ -0,0 +1,409 @@ +\version "2.16.0" +\include "pop-chords.ly" +\include "english.ly" + +% Good sizes are 16, 18, & 20 +staffSize = #20 +#(set-default-paper-size "letter") +#(set-global-staff-size staffSize) +#(ly:set-option (quote no-point-and-click)) + +%{ Some useful characters: ‘ ’ “ ” – — † ‡ • … %} + +\header +{ +%Let's bump up the title size and switch to the chord font. :-) + + title = \markup { \override #'(font-family . sans) \fontsize #3.5 "Show Me Your Glory" } + composer = \markup { \override #'(font-family . sans) \fontsize #1.3 "Third Day" } + arranger = \markup { \override #'(font-family . sans) \fontsize #1.3 "arr. Ed Smart" } + tagline = $(string-append "Engraved by JLH and Lilypond " (lilypond-version)) +% Let's try a chord dictionary +% subtitle = \markup { \center-align { "F#m" \fret-diagram-terse #"x;x;4;2;2;2;" } " " \center-align { "F#m/F" \fret-diagram-terse #"x;x;3;2;2;2;" } " " \center-align { "F#m/E" \fret-diagram-terse #"x;x;2;2;2;2;" } " " \center-align { "F#m/Eb" \fret-diagram-terse #"x;x;1;2;2;2;" } " " \center-align { "Em7" \fret-diagram-terse #"o;2;2;o;3;o;" } " " \center-align { "A13" \fret-diagram-terse #"x;o;2;o;2;2;" } } +} + +% Useful tweak abbreviations (hn = harmony note) + +hn = #(define-music-function (parser location arg) (ly:music?) +;; Harmony Note: Set the tweaks property of the passed in note to use a smaller font + + (set! (ly:music-property arg 'tweaks) + (acons 'font-size -3.0 (ly:music-property arg 'tweaks))) arg) + + +% +% Song's structure +% +Global = +{ + \key d \major + \override Staff.TimeSignature #'style = #'() + \time 4/4 + + % Intro + + \once \override TextScript #'padding = #2.0 + s1*0^\markup { \large \bold { Lite perc groove w/synth colors, bass tacet } } +% Capo 4 version +% s1*0^\markup { \hspace #0.0 \raise #2.0 \bigger \bold { "Moderate pop (*** CAPO 4 ***)" } } + + \repeat volta 2 + { + s1*4 | % 1-4 + } + + \repeat volta 2 + { + \mark \markup { \override #'(font-family . sans) { \box { A } } } + s1*8 \bar "||" % 5-12 + + \mark \markup { \override #'(font-family . sans) { \box { B } } } + s1*8 | % 13-20 + } + \alternative + { + { + s1*2 | % 21-22 + } + { + s1 | % 23 + } + } + + s1 | % 24 + + \repeat volta 2 + { + \mark \markup { \override #'(font-family . sans) { \box { C } } } + s1*4 | % 25-28 + } + + \repeat volta 2 + { + \mark \markup { \override #'(font-family . sans) { \box { D } } } + s1*7 | % 29-35 + } + \alternative + { + { + s1 | % 36 + } + { + s1 | % 37 + } + } + + s1*3 \bar "|." % 38-40 +} + + +% +% Lead vocal +% +LeadVox = \relative c'' +{ +% \set Staff.instrument = #"Lead vox" + \clef G + \override Staff.TimeSignature #'style = #'() +%Hm. Needed anymore? +% \override Score.SpacingSpanner #'average-spacing-wishes = ##f + + r1 | % 1 + r1 | % 2 + r1 | % 3 + r1 | % 4 + + r4 r8 b16 b b8 a g g | % 5 + fs4 r8 d16 e fs8 e16 e ~ e fs8 d16 ~ | % 6 + d4 r16 b'16 b8 b a16 a ~ a4 | % 7 + fs8 fs16 a ~ a d, e8 ~ e4 r | % 8 + r4 r8 b'16 b b8 a16 a ~ a g g fs ~ | % 9 + fs4 r8. fs16 fs8 e16 e ~ e fs d8 ~ | % 10 + d4 r16 d b'8 a4 r8 \parenthesize 16 fs16 | % 11 + b8 b16 b ~ b a cs8 ( ~ cs4. d8 ~ | % 12 + + d4 ) r a8 d a e' ( | % 13 + d8 ) d ~ d4 r2 | % 14 + r8 d d d16 d ( ~ d b ) a8 r8. a16 | % 15 + d16 d d8 d e ( ~ e d16 cs ~ cs8 d ~ | % 16 + d4 ) r a8 d a e' ( | % 17 + d8 ) d ~ d4 r2 | % 18 + d8 d d d ~ d cs16 b ~ b a ( b8 ) | % 19 + r8 d d d d cs16 b ~ b a8. | % 20 + + b1 | % 21 + r1 | % 22 + + b1 ~ | % 23 + + b2 b16 a ~ a8 ~ a g16 fs ~ | % 24 + + fs1 | % 25 + r1 | % 26 + r1 | % 27 + r1 | % 28 + + r2 a8 d a e' ( | % 29 + d8 ) d ~ d4 r2 | % 30 + r8 d d d16 d ( ~ d b ) a8 r8. a16 | % 31 + d16 d d8 d e ( ~ e d16 cs ~ cs8 d ~ | % 32 + d4 ) r a8 d a e' ( | % 33 + d8 ) d ~ d4 r2 | % 34 + d8 d d d ~ d cs16 b ~ b a ( b8 ) | % 35 + + r8 d d d e fs16 e ~ e d8. | % 36 + + r8 d d d d cs16 b ~ b a8. | % 37 + + b1 | % 38 + r1 | % 39 + r1-\fermata | % 40 +} + +LeadVoxText = \lyricmode +{ + Caught a glimpse of your splen -- dor + in the cor -- ner of _ my eye _ + The most beau -- ti -- ful _ thing I’d e -- _ ver seen _ + It was like a flash _ of light -- ning _ + re -- flect -- ed off _ the sky _ + and I know _ I’ll ne -- ver be _ the same __ _ _ _ + + Show me your glo -- _ ry, _ + send down your pre -- _ _ sence, + I wan -- na see your face. __ _ _ _ _ _ _ + Show me your glo -- _ ry, _ + ma -- jes -- ty shines _ a -- bout _ you, _ + I can’t go on with -- out _ you, Lord. + + Lord. __ _ No, __ _ _ _ _ _ _ + + Show me your glo -- _ ry, _ + send down your pre -- _ _ sence, + I wan -- na see your face. __ _ _ _ _ _ _ + Show me your glo -- _ ry, _ + ma -- jes -- ty shines _ a -- bout _ you, _ + I can’t go on with -- out _ you. + I can’t go on with -- out _ you, Lord. +} + +LeadVoxTextB = \lyricmode +{ + When I climb down the mount -- tain + _ and get back to _ my life _ + I won’t set -- tle for _ or -- din -- ar -- _ y things _ + gon -- na fol -- low _ you for -- e -- ver _ + and for all of _ my days _ + I won’t rest ’til I see you _ _ a -- gain __ _ _ +} + + +Riffs = \relative c' +{ + \clef G + \override NoteHead #'style = #'cross +%Hm. Needed anymore? +% \override Score.SpacingSpanner #'average-spacing-wishes = ##f + + % Intro +%{ + \tiny + \stemDown e8[ r e] r e[ r e] r | % 1 + e8[ r e] r e[ r e] r \stemNeutral | % 2 + << \override NoteHead #'style = #'cross { r8 b'[ r b] r b[ r b] } \\ \override NoteHead #'style = #'cross { e,8[ r e] r e[ r e] r } >> | % 3 + << { r8 b'[ r b] r b[ r b] } \\ { e,8[ r e] r e[ r e] r } >> | % 4 + \normalsize +%} +} + + +% +% Chord names +% +Chords = \chordmode +{ + g1 | % 1 + b2:m d8. a g8 | % 2 + s1 | % 3 + b2:m d8. a g8 | % 4 + + g1 | % 5 + b2:m d8. a g8 | % 6 + s1 | % 7 + b2:m a | % 8 + g1 | % 9 + b2:m d8. a g8 | % 10 + s1 | % 11 + b2:m a | % 12 + + d1 | % 13 + b1:m | % 14 + g1 | % 15 + s2 a | % 16 + d1 | % 17 + b1:m | % 18 + g1 | % 19 + s1 | % 20 + + g1 | % 21 + b2:m d8. a g8 | % 22 + + g1:maj7 | % 23 + + s1 | % 24 + + d1 | % 25 + b1:m7 | % 26 + g | % 27 + s2 a | % 28 + + d1 | % 29 + b1:m7 | % 30 + g1 | % 31 + s2 a | % 32 + d1 | % 33 + b1:m7 | % 34 + g1 | % 35 + + s2 a | % 36 + + g1 | % 37 + + g1:maj7 | % 38 + b2:m d8. a g8 | % 39 + s1 | % 40 +} + + +% +% Chord rhythms +% +% Use a RhythmicStaff on the chords instead of this? +% It almost works, but not quite. Doesn't collapse chords above to single notes... +% +Rhythm = \relative c +{ +%% \set Voice.autoBeaming = ##f +%% \set Staff.instrument = #"Rhythm" + \override Staff.TimeSignature #'style = #'() + \override NoteHead #'style = #'slash +\teeny + + c4 c c c | % 1 + c4 c c8. c16 ~ c8 c ~ | % 2 + c4 c c c | % 3 + c4 c c8. c16 ~ c8 c ~ | % 4 + + c4 c c c | % 5 + c4 c c8. c16 ~ c8 c ~ | % 6 + c4 c c c | % 7 + c4 c c c | % 8 + c4 c c c | % 9 + c4 c c8. c16 ~ c8 c ~ | % 10 + c4 c c c | % 11 + c4 c c c | % 12 + + c1 | % 13 + c1 | % 14 + c1 ~ | % 15 + c2 c | % 16 + c1 | % 17 + c1 | % 18 + c1 | % 19 + c1 | % 20 + + c1 | % 21 + c4 c c8. c16 ~ c8 c ~ | % 22 + + c1 ~ | % 23 + + c1 | % 24 + + c4 c c c | % 25 + c4 c c c | % 26 + c4 c c c | % 27 + c4 c c c | % 28 + + c1 | % 29 + c1 | % 30 + c1 ~ | % 31 + c2 c | % 32 + c1 | % 33 + c1 | % 34 + c1 ~ | % 35 + + c2 c | % 36 + + c1 | % 37 + + c1 | % 38 + c4 c c8. c16 ~ c8 c ~ | % 39 + c1-\fermata | % 40 +} + + +Dynamics = +{ + s4_\markup { \italic { Ac. gtr } } s2. | % 1 + s1*11 | % 2-12 + s4_\markup { \italic { bass in; 1X sus, 2X groove } } s2. | % 13 + s1*7 | % 14-20 + s4_\markup { \italic { Ac. gtr cont. rhy } } s2. | % 21 + s2 s4_\markup { \italic \bold { BIG! Full band } } s4 | % 22 + s1*2 | % 23-24 + s4_\markup { \italic { Solos - open } } s2. | % 25 + s1*3 | % 26-28 + s4_\markup { \italic { Chorus - repeat until tired } } s2. | % 29 + s1*8 | % 30-37 + s4_\markup { \italic { Ac. gtr cont. rhy } } s2. | % 38 + s2 s4_\markup { \italic \bold { Full band } } s4 | % 39 + s4_\markup { \italic \teeny { *You just got to sing along with Third Day! } } s2. | % 40 +} + + +\score +{ + << + \set Score.skipBars = ##t + \set Score.melismaBusyProperties = #'() + +% \new Staff + << + \new ChordNames \Chords +%Capo 4 edition +% \new ChordNames \transpose b g \Chords + \new RhythmicStaff << \Rhythm \Dynamics >> + >> + + \new Staff + << + \Global % The "roadmap" that everything else depends on + \new Voice = "lead" \LeadVox + \new Voice \Riffs + \new Lyrics \lyricsto "lead" \LeadVoxText + \new Lyrics \lyricsto "lead" \LeadVoxTextB + >> + >> +} + + +\paper +{ + #(define fonts (make-pango-font-tree + "Times New Roman" + "DomCasual BT" + "Luxi Mono" + (/ staffSize 20))) + +% Spread staves vertically across last page (default: t) + ragged-last-bottom = ##f +% Don't spread staves vertically across the page (default: f) + ragged-bottom = ##t +% Allow partial line for last stave (default: f) + ragged-last = ##t + +% To find out what's eating the space at the top... +% annotate-spacing = ##t +%let's try this: [It works! Huzzah!] + obsolete-page-top-space = 0 top-system-spacing #'basic-distance = #(/ obsolete-page-top-space staff-space) +} diff --git a/show-me-your-ways-o-lord.ly b/show-me-your-ways-o-lord.ly new file mode 100755 index 0000000..fe7e0f1 --- /dev/null +++ b/show-me-your-ways-o-lord.ly @@ -0,0 +1,522 @@ +\version "2.16.0" +\include "pop-chords.ly" +\include "english.ly" + +% Good sizes are 16, 18, & 20 +staffSize = #16 +#(set-default-paper-size "letter") +#(set-global-staff-size staffSize) +#(ly:set-option (quote no-point-and-click)) + +\header +{ +%Let's bump up the title size and switch to the chord font. :-) + + title = \markup { \override #'(font-family . sans) + { \fontsize #3.5 "Show Me Your Ways, O Lord" } } + composer = \markup { \override #'(font-family . sans) "Ed Smart" } +% arranger = \markup { \override #'(font-family . sans) "arr. Ed Smart" } + tagline = "Engraved by JLH and Lilypond 2.8.2" +} + + +% +% Lead vocal +% + +LeadVox = \relative c' +{ +% \set Voice.autoBeaming = ##f +% \set Staff.instrumentName = #"Lead vox" + \clef G + \key d \major + \override Staff.TimeSignature #'style = #'() + \time 4/4 +\override Score.SpacingSpanner #'average-spacing-wishes = ##f + + % Intro + + R1 | % 1 + R1 | % 2 + R1 | % 3 + r2 r4. d8 \bar "||:" % 4 + + % Verse + + \repeat volta 2 + { + % Verse + +\mark \markup { \override #'(font-family . sans) { \box { A } } } + + d4 d8 e ~ e4 e8 g ~ | % 5 + g8 fs e fs ~ fs2 | % 6 + r4 b,8 cs d4 fs8 e ~ | % 7 + e2. r8 d | % 8 + d4 d8 e ~ e e e g ~ | % 9 + g8 fs e fs ~ fs2 | % 10 + r4 b,8 cs d4 e8 fs ~ | % 11 + fs8 g fs e ~ e2 \bar "||" % 12 + + % Prechorus + +\mark \markup { \override #'(font-family . sans) { \box { A9 } } } + + r4 b'8 b b4 b8 a ~ | % 13 + a4 a8 fs ~ fs4. d8 | % 14 + b'8 b b b ~ b b4 as8 ~ | % 15 + as8 as4 b8 ~ b cs ~ cs4 \bar "||" % 16 + + % Chorus + +\mark \markup { \override #'(font-family . sans) { \box { B } } } + + d8 d d cs ~ cs4 a16 ( fs ) b8 ~ | % 17 + b2 r | % 18 + d4. cs8 ~ cs4 a16 ( fs ) b8 ~ | % 19 + b2 r | % 20 + b8 b b b as b cs d ~ | % 21 + d4. e8 ( ~ e d ) cs cs ~ | % 22 + cs8 b ~ b2 d8 b ~ | % 23 + b8 a8 ~ a2 fs8 fs ( ~ | % 24 + fs8 g ) ~ g2. ~ | % 25 + g4. g8 g fs d d ~ | % 26 + } + \alternative + { + { + d2 r | % 27 + R1 | % 28 + R1 | % 29 + r2 r4. d8 | % 30 + } + { + d2 \repeatTie r | % 31 + } + } + + % Bridge + + r2 g8 fs d d ~ | % 32 + << { \voiceTwo d4 r r2 } \context Voice = vb { \voiceOne \tiny r2 fs8 g a d ~ } >> | % 33 + << { \voiceTwo r2 g,8 fs d d ~ } \context Voice = vb { \voiceOne d'8 c b c ~ c b g a ~ } >> | % 34 + << { \voiceTwo d,4 r r2 } \context Voice = vb { \voiceOne a'2. d,16 e fs8 ~ } >> | % 35 + << { \voiceTwo r2 g8 fs d d ~ } \context Voice = vb { \voiceOne fs8 d ~ d2. } >> | % 36 + \oneVoice + d4 r r2 | % 37 + R1 \bar "||" % 38 + +%{ + << { gs,8 b e gs, b e a, b ds a b ds } + \context Voice = vb { \stemUp gs2 fs4 b \stemNeutral } >> | % 8 + + r2 fs8 g a d ~ | % 33 + d8 c b c ~ c b a a ~ | % 34 + a2. d,16 e fs8 ~ | % 35 + fs8 d ~ d2. | % 36 +%} + + % Prechorus + +\mark \markup { \override #'(font-family . sans) { \box { C } } } + + r4 b'8 b b4 b8 a ~ | % 39 + a8 a4 fs8 ~ fs4. d8 | % 40 + b'8 b b b b4 b8 as ~ | % 41 + as8 as4 b8 ~ b cs ~ cs4 \bar "||" % 42 + + % Chorus + +\mark \markup { \override #'(font-family . sans) { \box { D } } } + + d8 d d cs ~ cs4 a16 ( fs ) b8 ~ | % 43 + b2 r | % 44 + d4. cs8 ~ cs4 a16 ( fs ) b8 ~ | % 45 + b2 r | % 46 + b8 b b b as b cs d ~ | % 47 + d4. e8 ~ e4^\fermata d8 cs ~ | % 48 + cs8 b4. ~ b a8 ~ | % 49 + a2. r4 | % 50 + R1 | % 51 + r2 r4 d,8 cs' ~ | % 52 + cs8 b4. ~ b4 d8 b ~ | % 53 + b8 a4. ~ a4 fs8 fs ( ~ | % 54 + fs8 g8 ) ~ g2. ~ | % 55 + g4. g8 g fs d d ~ \bar "||" % 56 + + % Ending + +\mark \markup { \override #'(font-family . sans) { \box { E } } } + + d4 r r2 | % 57 + r2 g8 fs d d ~ | % 58 + d4 r r2 | % 59 + r2 g8 fs d4 | % 60 + d1^\fermata \bar "|." % 61 +} + +LeadVoxText = \lyricmode +{ + To you O Lord, _ I lift _ up my soul _ + for in you I trust. _ + In all your ways _ you are fai -- _ thful and true _ + so to you I give _ all my hope. _ + + You O Lord are tru -- _ ly good _ + And you are the one _ that I _ de -- si -- _ re _ + + Show me your ways, _ O _ Lord _ + Teach me _ your _ paths _ + Guide me in the light of your truth _ Lord _ _ + and teach _ me, _ oh teach _ me _ my Lord __ _ _ _ _ + For you are my God. _ + + My + + _ + + You are my God _ % (You are my God and my Savior) + You are my God _ % (You are my God) + You are my God _ + + You O Lord are tru -- _ ly good, _ + Please guide me in the way that you _ de -- si -- _ re _ + + Show me your ways, _ O _ Lord _ + Teach me _ your _ paths _ + Guide me in the light of your truth _ Lord, __ _ + + and teach _ me __ _ _ _ + Please teach _ me _ + Oh teach _ me _ + My Lord __ _ _ _ _ + For you are my God _ + You are my God _ + You are my God + +%{ +To you, Oh Lord, I lift up my soul +For in you I trust +In all your ways you are faithful and true +So to you I give all my hope +You Oh Lord are truly good +And you are the one that I desire + +Show me your ways, Oh Lord +Teach me your paths +Guide me in the light of your truth +Lord, and teach me +Oh teach me +My Lord +For you are my God + +My eyes will ever look to you Lord +For in you I trust +And I will never be ashamed +For its you that's giving me hope +You Oh Lord are truly good +And you are the one that I desire + +Show me your ways, Oh Lord +Teach me your paths +Guide me in the light of your truth +Lord, and teach me +Oh teach me +My Lord +For you are my God + +You are my God (You are my God and my Savior) +You are my God (You are my God) +You are my God + +You Oh Lord are truly good +Please guide me in the way that you desire + +Show me your ways, Oh Lord +Teach me your paths +Guide me in the light of your truth + +Lord, and teach me + +Please teach me +Oh teach me +My Lord +For you are my God +You are my God +You are my God +%} +} + +LeadVoxTextB = \lyricmode +{ + _ eyes will e -- _ ver look _ to you Lord _ + for in you I trust. _ + And I will ne -- _ ver _ be _ _ a -- shamed _ + For it’s you that’s gi -- _ ving me hope _ +} + +LeadDescant = \lyricmode +{ + You are my God _ and my sa -- _ vior __ _ _ _ + You are my _ God _ +} + +% +% Chord names +% + +Chords = \chordmode +{ +%Bah, can't we set this globally? +% \popChords + + % Intro + + d2.. a8:m11 | % 1 + s2 c:sus2 | % 2 + d2.. a8:m11 | % 3 + s2 c:sus2 | % 4 + + % Verse + + \repeat volta 2 + { + % Verse + + d4. a2:m11 g8 | % 5 + s4. d s4 | % 6 + g2.. a8:sus4 | % 7 + s2 a | % 8 + b4.:m7 a2:11^9.7 g8 | % 9 + s4. d s4 | % 10 + g2.. d8/a | % 11 + s4. a s4 | % 12 + + % Prechorus + + g2.. d8/fs | % 13 + s1 | % 14 + g2..:maj7 fs8:7 | % 15 + s1 | % 16 + + % Chorus + + b4.:m7 a2:11^9.7 g8 | % 17 + s1 | % 18 + b4.:m7 fs2:m7 g8 | % 19 + s1 | % 20 + g2:maj7 fs4.:7 b8:m7 | % 21 + s4. a2 g8:sus2 | % 22 + s2.. d8/fs | % 23 + s2.. a8:m11 | % 24 + s1 | % 25 + c1:sus2 | % 26 + } + \alternative + { + { + d2.. a8:m11 | % 27 + s2 c:sus2 | % 28 + d2.. a8:m11 | % 29 + s2 c:sus2 | % 30 + } + { + d2.. a8:m11 | % 31 + } + } + + % Bridge + + s2 c:sus2 | % 32 + d2.. a8:m11 | % 33 + s2 c:sus2 | % 34 + d2..:sus2 a8:m11 | % 35 + s2 c:sus2 | % 36 + d2.. a8:m11 | % 37 + s2 c:sus2 | % 38 + + % Prechorus + + g2.. d8/fs | % 39 + s1 | % 40 + g2.. fs8:7 | % 41 + s1 | % 42 + + % Chorus + + b4.:m7 a2:11^9.7 g8 | % 43 + s1 | % 44 + b4.:m7 fs2:m7 g8 | % 45 + s1 | % 46 + g2:maj7 fs4.:7 b8:m7 | % 47 + s4. a2 g8:sus2 | % 48 + s2.. d8/fs | % 49 + s2.. g8:sus2 | % 50 + s2.. d8/fs | % 51 + s2.. g8:sus2 | % 52 + s2.. d8/fs | % 53 + s2.. a8:m11 | % 54 + s1 | % 55 + c1:sus2 | % 56 + + % Ending + + d2.. g8:sus2 | % 57 + s1 | % 58 + d2.. a8:m11 | % 59 + s2 c:sus2 | % 60 + d1 | % 61 +} + + +% +% Chord rhythms +% + +% Use a RhythmicStaff on the chords instead of this? +% It almost works, but not quite. Doesn't collapse chords above to single notes... + +StaffC = \relative c +{ +% \set Voice.autoBeaming = ##f +% \set Staff.instrumentName = #"Rhythm" + \override Staff.TimeSignature #'style = #'() + \time 4/4 + \override NoteHead #'style = #'slash + + % Intro + + c4_\mf c c r8 c ~ | % 1 + c4 c c c | % 2 + c4 c c r8 c ~ | % 3 + c4 c c c \bar "||:" % 4 + + % Verse + + \repeat volta 2 + { + % Verse + + c4._\markup { \italic { piano/vocal, shaker 1st time } } c8 ~ c4. c8 ~ | % 5 + c4. c8 ~ c4 c | % 6 + c4 c c r8 c ~ | % 7 + c4 c c c | % 8 + c4. c8 ~ c4. c8 ~ | % 9 + c4. c8 ~ c4 c | % 10 + c4 c c r8 c ~ | % 11 + c4. c8 ~ c4 c \bar "||" % 12 + + % Prechorus + + c4 c c r8 c ~ | % 13 + c4 c c c | % 14 + c4 c c r8 c ~ | % 15 + c8 c4 << { c8 ~ c c ~ c4 } \context Voice = vc { s8 s16 \< s4. s16 \! } >> \bar "||" % 16 + + % Chorus + + c4._\markup { \dynamic f \italic { bass in } } c8 ~ c4. c8 ~ | % 17 + c4 c c c | % 18 + c4. c8 ~ c4. c8 ~ | % 19 + c4 c c c | % 20 + c4 c c r8 c ~ | % 21 + c4. c8 ~ c4. c8 ~ | % 22 + c4 c c r8 c ~ | % 23 + c4 c c r8 c ~ | % 24 + c4 c c c | % 25 + c4 c c << c \context Voice = vc { s16 \< s s s \! } >> | % 26 + } + \alternative + { + { + c4_\markup { \italic { band in w/conga } } c c r8 c ~ | % 27 + c4 c c c | % 28 + c4 c c r8 c ~ | % 29 + c4 c c c | % 30 + } + { + c4_\ff c c r8 c ~ | % 31 + } + } + + % Bridge + + c4 c c c | % 32 + c4 c c r8 c ~ | % 33 + c4 c c c | % 34 + c4 c c r8 c ~ | % 35 + c4 c c c | % 36 + c4 c c r8 c ~ | % 37 + c4 c c c \bar "||" % 38 + + % Prechorus + + c4 c c r8 c ~ | % 39 + c4 c c c | % 40 + c4 c c r8 c ~ | % 41 + c8 c4 c8 ~ c c ~ c4 \bar "||" % 42 + + % Chorus + + c4. c8 ~ c4. c8 ~ | % 43 + c4 c c c | % 44 + c4. c8 ~ c4. c8 ~ | % 45 + c4 c c c | % 46 + c4 c c r8 c ~ | % 47 + c4. c8 ~ c4.^\fermata c8 ~ | % 48 + c4_\markup { \italic { conga, bass, gtr out } } c c r8 c ~ | % 49 + c4 c c r8 c ~ | % 50 + c4 c c r8 c ~ | % 51 + c4 c c r8 c ~ | % 52 + c4 c c r8 c ~ | % 53 + c4 c c r8 c ~ | % 54 + c4 c c c | % 55 + c1 \bar "||" % 56 + + % Ending + + c4_\markup { \italic { bass, gtr in } } c c r8 c ~ | % 57 + c4 c c c | % 58 + c4 c c r8 c ~ | % 59 + c4_\markup { \italic { rit. } } c c c | % 60 + c1^\fermata \bar "|." % 61 +} + + +\score +{ + << + << + \new Staff = leadStaff { \new Voice = "lead" \LeadVox } + \new Lyrics \lyricsto "lead" \LeadVoxText + \new Lyrics \lyricsto "lead" \LeadVoxTextB + \new Lyrics \lyricsto "vb" \LeadDescant + >> + + \new ChoirStaff = "Rhythm" + << + \new ChordNames = "chords" \Chords + \new RhythmicStaff = "chordRhythm" \StaffC + >> + + \set Score.skipBars = ##t + \set Score.melismaBusyProperties = #'() + >> + + \layout + { +% \context { \Staff \RemoveEmptyStaves } +% ragged-last-bottom = ##t + ragged-last = ##t + } +} + + +\paper +{ + #(define fonts (make-pango-font-tree + "Times New Roman" + "DomCasual BT" + "Luxi Mono" + (/ staffSize 20))) +} diff --git a/silent-night.ly b/silent-night.ly new file mode 100755 index 0000000..0fac93b --- /dev/null +++ b/silent-night.ly @@ -0,0 +1,276 @@ +\version "2.16.0" +\include "pop-chords.ly" +\include "english.ly" + +% Good sizes are 16, 18, & 20 +staffSize = #20 +#(set-default-paper-size "letter") +#(set-global-staff-size staffSize) +#(ly:set-option (quote no-point-and-click)) + +\header +{ +%Let's bump up the title size and switch to the chord font. :-) + + title = \markup { \override #'(font-family . sans) \fontsize #3.5 "Silent Night" } + composer = \markup { \override #'(font-family . sans) \fontsize #1.3 "Franz Gruber" } + arranger = \markup { \override #'(font-family . sans) \fontsize #1.3 "arr. Ed Smart" } + tagline = "Engraved by JLH and Lilypond 2.8.8" +} + + +% +% Lead vocal +% + +LeadVox = \relative c' +{ +% \set Voice.autoBeaming = ##f +% \set Staff.instrumentName = #"Lead vox" + \clef G + \key bf \major + \override Staff.TimeSignature #'style = #'() + \time 3/4 +\override Score.SpacingSpanner #'average-spacing-wishes = ##f + + % Intro + + r2. | % 1 + r2. | % 2 + r2. | % 3 + r2. | % 4 + + \repeat volta 2 + { + % Verse + +\mark \markup { \override #'(font-family . sans) { \box { A } } } + + f4. ( g8 ) f4 | % 5 + d2. | % 6 + f4. ( g8 ) f4 | % 7 + d2. | % 8 + c'2 c4 | % 9 + a2. | % 10 + bf2 bf4 | % 11 + f2. \bar "||" % 12 + +\mark \markup { \override #'(font-family . sans) { \box { B } } } + + g2 g4 | % 13 + bf4. ( a8 ) g4 | % 14 + f4. g8 f4 | % 15 + d2. | % 16 + g2 g4 | % 17 + bf4. ( a8 ) g4 | % 18 + f4. g8 f4 | % 19 + d2. \bar "||" % 20 + + c'2 c4 | % 21 + ef4. c8 a4 | % 22 + bf2. ( | % 23 + d2. ) | % 24 + bf4 ( f ) d | % 25 + f4. ef8 c4 | % 26 + bf2. ~ | % 27 + bf2. | % 28 + + r2. | % 29 + r2. | % 30 + } + + r2.^\fermata \bar "|." % 31 +} + +LeadVoxText = \lyricmode +{ + Si -- _ lent night, ho -- _ ly night, + all is calm, all is bright; + Round yon vir -- _ gen mo -- ther and child, + Ho -- ly in -- fant so ten -- der and mild; + Sleep in hea -- ven -- ly peace, __ _ + sleep _ in hea -- ven -- ly peace. +} + +LeadVoxTextB = \lyricmode +{ +% Si -- _ lent night, ho -- _ ly night, + _ _ _ _ _ _ _ _ + shep -- herds quake at the sight. + Glo -- ries stream _ from hea -- ven a -- far, + Heaven -- ly hosts _ sing al -- le -- lu -- ia; + Christ, the sa -- vior is born! __ _ + Christ, _ the sa -- vior is born! +} + +LeadVoxTextC = \lyricmode +{ +% Si -- _ lent night, ho -- _ ly night, + _ _ _ _ _ _ _ _ + Son of God, love’s pure light; + Ra -- diant beams _ from thy ho -- ly face, + with the dawn of re -- deem -- _ ing grace, + Je -- sus, lord at thy birth, __ _ + Je -- _ sus, lord at thy birth. +} + + +% +% Chord names +% + +Chords = \chordmode +{ +%Bah, can't we set this globally? +% \popChords + + % Intro + + bf2.:sus2 | % 1 + ef2.:maj9 | % 2 + bf2.:sus2 | % 3 + ef2.:maj9 | % 4 + + \repeat volta 2 + { + % Verse + + bf2.:sus2 | % 5 + ef2.:maj9 | % 6 + bf2.:sus2 | % 7 + bf2. | % 8 + c2.:m11 | % 9 + f2.:7 | % 10 + bf2. | % 11 + f2.:m7/bf | % 12 + ef2.:maj7 | % 13 + c2.:m11 | % 14 + d2.:m7 | % 15 + g2.:m11 | % 16 + ef2.:maj7 | % 17 + c2.:m11 | % 18 + d2.:m7 | % 19 + g2.:m11 | % 20 + af2.:5.9 | % 21 + ef2/f f4:7 | % 22 + g2.:m7 | % 23 + c2.:sus2/e | % 24 + bf2./f | % 25 + ef2./f | % 26 + bf2.:sus2 | % 27 + ef2.:maj9 | % 28 + bf2.:sus2 | % 29 + ef2.:maj9 | % 30 + } + + bf2.:sus2 | % 31 +} + + +% +% Chord rhythms +% + +% Use a RhythmicStaff on the chords instead of this? +% It almost works, but not quite. Doesn't collapse chords above to single notes... + +StaffC = \relative c +{ +% \set Voice.autoBeaming = ##f +% \set Staff.instrumentName = #"Rhythm" + \override Staff.TimeSignature #'style = #'() + \time 3/4 + \override NoteHead #'style = #'slash + + % Intro + + c4 c c | % 1 + c4 c c | % 2 + c4 c c | % 3 + c4 c c | % 4 + + \repeat volta 2 + { + % Verse + + c4 c c | % 5 + c4 c c | % 6 + c4 c c | % 7 + c4 c c | % 8 + c4 c c | % 9 + c4 c c | % 10 + c4 c c | % 11 + c4 c c | % 12 + c4 c c | % 13 + c4 c c | % 14 + c4 c c | % 15 + c4 c c | % 16 + c4 c c | % 17 + c4 c c | % 18 + c4 c c | % 19 + c4 c c | % 20 + c4 c c | % 21 + c4 c c | % 22 + c4 c c | % 23 + c4 c c | % 24 + c4 c c | % 25 + c4 c c | % 26 + c4 c c | % 27 + c4 c c | % 28 + c4 c c | % 29 + c4 c c | % 30 + } + + c2.^\fermata \bar "|." % 31 +} + + +Dynamics = +{ + \once \override TextScript #'extra-offset = #'( 0.0 . -1.0 ) + + s2.*29 + s4_\markup { \italic { rit. 3rd time } } s2 +} + + +\score +{ + << + << + \new Staff = leadStaff { \new Voice = "lead" \LeadVox } +% \new Staff = leadStaff { << \new Voice = "lead" \LeadVox \new Voice = "riffs" \Riffs >> } + \new Lyrics \lyricsto "lead" \LeadVoxText + \new Lyrics \lyricsto "lead" \LeadVoxTextB + \new Lyrics \lyricsto "lead" \LeadVoxTextC + >> + + \new ChoirStaff = "Rhythm" + << + \new ChordNames = "chords" \Chords + \new RhythmicStaff = "chordRhythm" << \StaffC \Dynamics >> + >> + + \set Score.skipBars = ##t + \set Score.melismaBusyProperties = #'() + >> + + \layout + { +% \context { \Staff \RemoveEmptyStaves } + ragged-last-bottom = ##t + ragged-last = ##t + } +} + + +\paper +{ + #(define fonts (make-pango-font-tree + "Times New Roman" + "DomCasual BT" + "Luxi Mono" + (/ staffSize 20))) + +% top-margin = -0.25 \in +} diff --git a/spirit-of-god-descend-upon-my-heart-satb.ly b/spirit-of-god-descend-upon-my-heart-satb.ly new file mode 100644 index 0000000..a84f47b --- /dev/null +++ b/spirit-of-god-descend-upon-my-heart-satb.ly @@ -0,0 +1,267 @@ +\version "2.16.0" +\include "pop-chords.ly" +\include "english.ly" + +% Good sizes are 16, 18, & 20 +staffSize = #20 +#(set-default-paper-size "letter") +#(set-global-staff-size staffSize) +#(ly:set-option (quote no-point-and-click)) + +%{ Some useful characters: ‘ ’ “ ” – — † ‡ • … %} + +\header +{ + title = \markup { \override #'(font-family . sans) \fontsize #3.5 "Spirit of God, Descend Upon My Heart" } +% subtitle = \markup { \override #'(font-family . sans) \fontsize #1.3 "Genevan Psalter, 1551" } + composer = \markup { \override #'(font-family . sans) \fontsize #1.3 "MORECAMBE" } + arranger = \markup { \override #'(font-family . sans) \fontsize #1.3 "Frederick C. Atkinson" } + poet = \markup { \override #'(font-family . sans) \fontsize #1.3 "George Croly" } + tagline = $(string-append "Engraved by JLH and Lilypond " (lilypond-version)) +} + + +% +% Lead vocal +% + +LeadVox = \relative c' +{ + \set Staff.instrumentName = #"Sop." + \clef G + \key bf \major + \override Staff.TimeSignature #'style = #'() + \time 4/4 + + % Verse + + d2 d4 d | % 1 + ef2 d | % 2 + g4 f ef ef | % 3 + d1 | % 4 + + bf'2 a4 g | % 5 + f2 g | % 6 + a4 f g g | % 7 + f1 | % 8 + + f2 f4 f | % 9 + a2 g | % 10 + f4 g a bf | % 11 + c1 | % 12 + + d2 c4 bf | % 13 + a4 g f bf | % 14 + f2 f | % 15 + f1 \bar "||" % 16 + g2 f \bar "|." % 17 +} + +AltoVox = \relative c' +{ + \set Staff.instrumentName = #"Alto" + \clef G + \key bf \major + \override Staff.TimeSignature #'style = #'() + \time 4/4 + + % Verse + + bf2 bf4 bf | % 1 + c2 bf | % 2 + bf4 bf bf a | % 3 + bf1 | % 4 + + d2 cs4 e | % 5 + d4 ( f ) f2 | % 6 + f4 c d e | % 7 + f1 | % 8 + + c2 c4 c | % 9 + ef2 ef | % 10 + ef4 ef ef ef | % 11 + ef1 | % 12 + + d2 ef4 f | % 13 + f4 ef d ef | % 14 + d2 ef | % 15 + d1 \bar "||" % 16 + ef2 d \bar "|." % 17 +} + +TenorVox = \relative c +{ + \set Staff.instrumentName = #"Tenor" + \clef F + \key bf \major + \override Staff.TimeSignature #'style = #'() + \time 4/4 + + % Verse + + f2 f4 f | % 1 + f2 f | % 2 + ef4 f g f | % 3 + f1 | % 4 + + g4 ( f ) e a | % 5 + a2 b | % 6 + c4 a bf bf | % 7 + a1 | % 8 + + a2 a4 a | % 9 + c2 bf | % 10 + a4 bf c g | % 11 + a1 | % 12 + + bf4 ( g ) a bf | % 13 + bf4 bf bf bf | % 14 + bf2 a | % 15 + bf1 \bar "||" % 16 + bf2 bf \bar "|." % 17 +} + +BassVox = \relative c +{ + \set Staff.instrumentName = #"Bass" + \clef F + \key bf \major + \override Staff.TimeSignature #'style = #'() + \time 4/4 + + % Verse + + bf2 bf4 bf | % 1 + a2 bf | % 2 + ef4 d c f, | % 3 + bf1 | % 4 + + g2 a4 cs | % 5 + d2 d | % 6 + c4 c c c | % 7 + f1 | % 8 + + f2 f4 f | % 9 + f2 f | % 10 + f4 f f f | % 11 + f1 | % 12 + + bf,2 c4 d | % 13 + ef4 ef f g | % 14 + f2 f | % 15 + bf,1 \bar "||" % 16 + ef2 bf \bar "|." % 17 +} + + +Riffs = \relative c' +{ + \teeny +} + + +LeadVoxText = \lyricmode +{ + Spir -- it of God, de -- scend up on my heart; + Wean it from earth, through all its puls -- es move; + Stoop to my weak -- ness, might -- y as Thou art, + And make me love Thee as I ought to love. A -- men. +} + +LeadVoxTextB = \lyricmode +{ + I ask no dream, no proph -- et ec -- sta -- sies, + No sud -- den rend -- ing of the veil of clay, + No an -- gel vis -- i -- tant, no o -- pening skies: + But take the dim -- ness of my soul a -- way. +} + +LeadVoxTextC = \lyricmode +{ + Hast Thou not bid us love Thee, God and King? + All, all Thine own; soul, heart and strength and mind! + I see Thy cross; there teach my heart to cling: + O let me seek Thee, and O let me find! +} + +LeadVoxTextD = \lyricmode +{ + Teach me to feel that Thou art al -- ways nigh; + Teach me the strug -- gles of the soul to bear, + To check the ris -- ing doubt, the reb -- el sigh; + Teach me the pa -- tience of un -- an -- swered prayer. +} + +LeadVoxTextE = \lyricmode +{ + Teach me to love Thee as Thine an -- gels love, + One ho -- ly pas -- sion fill -- ing all my frame; + The bap -- tism of the heaven -- de -- scend -- ed Dove: + My heart an al -- tar, and Thy love the flame. +} + + +Dynamics = +{ +%{ + s4_\markup { \italic { snare on 4, bass 8th notes } } s2. | % 1 + s1*26 | % 2-27 + s2 s4 \< s | % 28 + s4_\f s_\markup { \hspace #0.0 \raise #-2.0 \italic { snare 2 & 4 } } s2 | % 29 + s1*8 | % 30-37 + s2 s4 \< s \! | % 38 + s1 | % 39 + s2. s8 \> s \! | % 40 + s4_\markup { \hspace #0.0 \raise #-2.0 \italic { bass 8th notes, band builds each repeat } } s2. | % 41 + s1*8 | % 42-49 + s4 \< s2. | % 50 + s4_\f s2. | % 51 + s1*5 | % 52-56 + s4_\markup { \hspace #0.0 \raise #-2.0 \italic { rit. last time } } s2. | % 57 + s2 s4 \< s \! | % 58 +%} +} + + +\score +{ + << + \new ChoirStaff = "Rhythm" + << + \new Staff = UpperStaffA { \new Voice = "lead" \LeadVox } + \new Lyrics \lyricsto "lead" \LeadVoxText + \new Lyrics \lyricsto "lead" \LeadVoxTextB + \new Lyrics \lyricsto "lead" \LeadVoxTextC + \new Lyrics \lyricsto "lead" \LeadVoxTextD + \new Lyrics \lyricsto "lead" \LeadVoxTextE + \new Staff = UpperStaffB { \new Voice = "alto" \AltoVox } + \new Staff = LowerStaffA { \new Voice = "tenor" \TenorVox } + \new Staff = LowerStaffB { \new Voice = "bass" \BassVox } + >> + + \set Score.skipBars = ##t + \set Score.melismaBusyProperties = #'() + >> +} + + +\paper +{ + #(define fonts (make-pango-font-tree + "Times New Roman" + "DomCasual BT" + "Luxi Mono" + (/ staffSize 20))) + +% Spread staves vertically across last page (default: t) + ragged-last-bottom = ##f +% Don't spread staves vertically across the page (default: f) +% ragged-bottom = ##t +% Allow partial line for last stave (default: f) + ragged-last = ##t + +% To find out what's eating the space at the top... +% annotate-spacing = ##t +%let's try this: [It works! Huzzah!] + obsolete-page-top-space = 0 top-system-spacing #'basic-distance = #(/ obsolete-page-top-space staff-space) +} diff --git a/spirit-of-the-living-god.ly b/spirit-of-the-living-god.ly new file mode 100755 index 0000000..603cf03 --- /dev/null +++ b/spirit-of-the-living-god.ly @@ -0,0 +1,266 @@ +\version "2.16.0" +\include "pop-chords.ly" +\include "english.ly" + +% Good sizes are 16, 18, & 20 +staffSize = #20 +#(set-default-paper-size "letter") +#(set-global-staff-size staffSize) +#(ly:set-option (quote no-point-and-click)) + +\header +{ +%Let's bump up the title size and switch to the chord font. :-) + + title = \markup { \override #'(font-family . sans) \fontsize #3.5 "Spirit of the Living God" } +% composer = \markup { \override #'(font-family . sans) \fontsize #1.3 "" } + arranger = \markup { \override #'(font-family . sans) \fontsize #1.3 "arr. Ed Smart" } + tagline = "Engraved by JLH and Lilypond 2.8.6" +} + + +% +% Lead vocal +% + +LeadVox = \relative c'' +{ +% \set Voice.autoBeaming = ##f +% \set Staff.instrumentName = #"Lead vox" + \clef G + \key f \major + \override Staff.TimeSignature #'style = #'() + \time 4/4 +\override Score.SpacingSpanner #'average-spacing-wishes = ##f + + % Intro + + R1 | % 1 + R1 | % 2 + R1 | % 3 + R1 \bar "||:" % 4 + + \repeat volta 3 + { + % A section + +\mark \markup { \override #'(font-family . sans) { \box { A } } } + + a4. a8 a4 a | % 5 + g4 a bf2 | % 6 + a4. f8 f4 g | % 7 + a1 | % 8 + + a4. a8 a4 a | % 9 + g4 a bf2 | % 10 + a4. f8 f4 g | % 11 + f1 \bar "||" % 12 + + % B section + +\once \override Score.RehearsalMark #'self-alignment-X = #left +\mark \markup { \override #'(font-family . sans) { \box { B } } \hspace #1.0 \raise #2.0 \musicglyph #"scripts.segno" } + + bf2 bf | % 13 + a2 a | % 14 + b2 b | % 15 + c2 c4 ( bf ) \bar "||" % 16 + + % A section + +\mark \markup { \override #'(font-family . sans) { \box { C } } } + + a4. a8 a4 a | % 17 + g4 a bf2 | % 18 + a4. f8 f4 g | % 19 + } + \alternative + { + { + f1 | % 20 + } + { + f1^\markup { \hspace #8.0 \raise #1.0 \bold { D.S. } } \bar "||" % 21 + } + { + f1^\fermata \bar "|." % 22 + } + } +} + +LeadVoxText = \lyricmode +{ + Spi- rit of the li- ving God + fall a- fresh on me + + Spi- rit of the li- ving God + fall a- fresh on me. + + Melt me, mold me, + fill me, use me, __ _ + + Spi- rit of the li- ving God + fall a- fresh on me. + + me. + me. +} + + +% +% Chord names +% + +Chords = \chordmode +{ +%Bah, can't we set this globally? +% \popChords + + % Intro + + f2 f4:maj7 f:7 | % 1 + bf4:6 d:7/a g2:m7 | % 2 + f2/c bf4/c c | % 3 + f2 bf/c | % 4 + + \repeat volta 3 + { + % A section + + f2 f4:maj7 f:7 | % 5 + bf4:6 d:7/a g2:m7 | % 6 + f2/c bf4/c c | % 7 + f2 bf/c | % 8 + + f2 f4:maj7 f:7 | % 9 + bf4:6 d:7/a g2:m7 | % 10 + f2/c bf4/c c | % 11 + f2 f:7 | % 12 + + % B section + + bf2 g:m7 | % 13 + f1 | % 14 + g1:7 | % 15 + c4 bf:sus2/d c2:7/e | % 16 + + % A section + + f2 f4:maj7 f:7 | % 17 + bf4:6 d:7/a g2:m7.5- | % 18 + f2/c bf4/c c | % 19 + } + \alternative + { + { + f2 bf/c | % 20 + } + { + f2 f:7 | % 21 + } + { + f1 | % 22 + } + } +} + + +% +% Chord rhythms +% + +% Use a RhythmicStaff on the chords instead of this? +% It almost works, but not quite. Doesn't collapse chords above to single notes... + +StaffC = \relative c +{ +% \set Voice.autoBeaming = ##f +% \set Staff.instrumentName = #"Rhythm" + \override Staff.TimeSignature #'style = #'() + \time 4/4 + \override NoteHead #'style = #'slash + + % Intro + + c4 c c c | % 1 + c4 c c c | % 2 + c4 c c c | % 3 + c4 c c c \bar "||:" % 4 + + \repeat volta 3 + { + % A section + + c4 c c c | % 5 + c4 c c c | % 6 + c4 c c c | % 7 + c4 c c c | % 8 + + c4 c c c | % 9 + c4 c c c | % 10 + c4 c c c | % 11 + c4 c c c \bar "||" % 12 + + % B section + + c4 c c c | % 13 + c4 c c c | % 14 + c4 c c c | % 15 + c4 c c c \bar "||" % 16 + + % A section + + c4 c c c | % 17 + c4 c c c | % 18 + c4 c c c | % 19 + } + \alternative + { + { + c4 c c c | % 20 + } + { + c4 c c c | % 21 + } + { + c1^\fermata \bar "|." % 22 + } + } +} + + +\score +{ + << + << + \new Staff = leadStaff { \new Voice = "lead" \LeadVox } + \new Lyrics \lyricsto "lead" \LeadVoxText + >> + + \new ChoirStaff = "Rhythm" + << + \new ChordNames = "chords" \Chords + \new RhythmicStaff = "chordRhythm" \StaffC + >> + + \set Score.skipBars = ##t + \set Score.melismaBusyProperties = #'() + >> + + \layout + { +% \context { \Staff \RemoveEmptyStaves } +% ragged-last-bottom = ##t + ragged-last = ##t + } +} + + +\paper +{ + #(define fonts (make-pango-font-tree + "Times New Roman" + "DomCasual BT" + "Luxi Mono" + (/ staffSize 20))) +} diff --git a/stand-in-the-congregation.ly b/stand-in-the-congregation.ly new file mode 100644 index 0000000..13e4d11 --- /dev/null +++ b/stand-in-the-congregation.ly @@ -0,0 +1,526 @@ +\version "2.16.0" +\include "pop-chords.ly" +\include "english.ly" + +% Good sizes are 16, 18, & 20 +staffSize = #18 +#(set-default-paper-size "letter") +#(set-global-staff-size staffSize) +#(ly:set-option (quote no-point-and-click)) + +%{ Some useful characters: ‘ ’ “ ” – — † ‡ • … %} + +\header +{ + title = \markup { \override #'(font-family . sans) \fontsize #3.5 "Stand In The Congregation" } +% subtitle = \markup { \override #'(font-family . sans) \fontsize #1.5 "Capo 3 Version" } + composer = \markup { \override #'(font-family . sans) \fontsize #1.3 "Bill Batstone" } + arranger = \markup { \override #'(font-family . sans) \fontsize #1.3 "arr. Shamus Hammons" } + tagline = $(string-append "Engraved by JLH and Lilypond " (lilypond-version)) +} + + +% +% Lead vocal +% + +LeadVox = \relative c' +{ +% \set Voice.autoBeaming = ##f +% \set Staff.instrument = #"Lead vox" + \clef G + \key ef \major + \override Staff.TimeSignature #'style = #'() + \time 4/4 +\override Score.SpacingSpanner #'average-spacing-wishes = ##f + + \repeat volta 2 + { + % Intro + + r1 | % 1 + r1 | % 2 + } + \alternative + { + { + r1 | % 3 + r1 | % 4 + } + { + r1 | % 5 + } + } + r2 ef4 f \bar "||" % 6 + + % Verse + +\mark \markup { \override #'(font-family . sans) { \box { A } } } + + g4 g8 g g4 f8 f ~ | % 7 + f8 ef4 bf8 ef4 f8 ef | % 8 + g2 ( f4. ) ef8 ~ | % 9 + ef4 r d ef | % 10 + f4 f8 f f4 f8 f ~ | % 11 + f bf,4 bf8 ef4 f8 ef | % 12 + g2 ( f4. ) ef8 ~ | % 13 + ef4 r ef f | % 14 + g8 g g g ~ g f4 f8 ~ | % 15 + f8 ef ~ ef4 ef f | % 16 + g2 bf4. af8 ~ | % 17 + af2 r4 c | % 18 + bf2 ( g4 ef ) | % 19 + g2 ( f4. ) ef8 ~ | % 20 + ef1 | % 21 + r2 ef4 f \bar "||:" % 22 + + \repeat volta 2 + { + % Verse + +\mark \markup { \override #'(font-family . sans) { \box { B } } } + + g4 g8 g g4 f8 f ~ | % 23 + f8 ef4 bf8 ef4 f8 ef | % 24 + g2 ( f4.) ef8 ~ | % 25 + ef4 r d ef | % 26 + f4 f8 f f4 f8 f ~ | % 27 + f bf,4 bf8 ef4 f8 ef | % 28 + g2 ( f4. ) ef8 ~ | % 29 + ef4 r ef f | % 30 + g8 g g g ~ g f4 f8 ~ | % 31 + f8 ef ~ ef4 ef f | % 32 + g2 bf4. af8 ~ | % 33 + af2 r4 c | % 34 + bf2 ( g4 ef ) | % 35 + g2 ( f4. ) ef8 ~ | % 36 + ef1 | % 37 + r2 ef4 bf' \bar "||" % 38 + + % Chorus + +\mark \markup { \override #'(font-family . sans) { \box { C } } } + + bf2 ( ~ bf8 f4 ) f8 ~ | % 39 + f2 ef4 bf' | % 40 + bf2 ( ~ bf8 g4 ) g8 ~ | % 41 + g2 ef4 bf' | % 42 + c2 ( ~ c8 bf4 ) af8 ~ | % 43 + af2 f4 c' | % 44 + d2 ( c4. ) bf8 ~ | % 45 + } + \alternative + { + { + bf4 r ef, f | % 46 + } + { + bf4 r f g \bar "||" % 47 + } + } + + % Verse + + \key f \major + +\mark \markup { \override #'(font-family . sans) { \box { D } } } + + a4 a8 a a4 g8 g ~ | % 48 + g8 f4 c8 f4 g8 f | % 49 + a2 ( g4. ) f8 ~ | % 50 + f4 r e f | % 51 + g4 g8 g g4 g8 g ~ | % 52 + g8 c,4 c8 f4 g8 f | % 53 + a2 ( g4. ) f8 ~ | % 54 + f4 r f g | % 55 + a4 a8 a ~ a g4 g8 ~ | % 56 + g8 f4. f4 g | % 57 + a2 c4. bf8 ~ | % 58 + bf2 r4 d4 | % 59 + + \repeat volta 2 + { + c2 ( a4 f ) | % 60 + a2 ( g4. ) f8 ~ | % 61 + f1 | % 62 + r2 r4 d' | % 63 + } + + c2 ( a4 f ) | % 64 + a2 ( g4. ) f8 ~ | % 65 + f1 | % 66 + r1 | % 67 + r1 \bar "|." % 68 +} + +LeadVoxText = \lyricmode +{ + I will stand in the con -- gre -- ga -- _ tion + and I will ex -- alt _ you. _ + I will stand in the con -- gre -- ga -- _ tion + and I will ex -- alt _ you. _ + Let the chil -- dren of your _ sal -- va -- _ tion _ + lift their prai -- ses too: _ + Hal -- le -- _ _ lu -- _ jah! _ + + I will stand in the con -- gre -- ga -- _ tion + and I will praise your _ name. _ + I will stand in the con -- gre -- ga -- _ tion + and I will praise your _ name. _ + With your peo -- ple in ev -- _ ery na -- _ tion _ + I will shout this praise: _ + Hal -- le -- _ _ lu -- _ jah! _ + + Hal -- le -- lu -- _ _ jah! _ + Hal -- le -- lu -- _ _ jah! _ + Hal -- le -- lu -- _ _ jah! _ + Hal -- le -- lu -- _ jah! _ + + We will + _ + + We will join as a con -- gre -- ga -- _ tion + and we will ex -- alt _ you. _ + We will join as a con -- gre -- ga -- _ tion + and we will ex -- alt _ you. _ + We will sing as all _ cre -- a -- _ tion + lifts the song a -- new: _ + Hal -- le -- _ _ lu -- _ jah! _ + + Hal -- le -- _ _ lu -- _ jah! _ + Hal -- le -- _ _ lu -- _ jah! _ +} + +LeadVoxTextB = \lyricmode +{ + _ _ _ _ _ _ _ _ _ _ + _ _ _ _ _ _ _ _ + _ _ _ _ _ _ _ _ _ _ + _ _ _ _ _ _ _ _ + _ _ _ _ _ _ _ _ _ _ _ _ + _ _ _ _ _ _ + _ _ _ _ _ _ _ _ + + _ _ join as a con -- gre -- ga -- _ tion + and we will ex -- alt _ you. _ + We will join as a con -- gre -- ga -- _ tion + and we will ex -- alt _ you. _ + We will sing _ as all _ cre -- a -- _ tion _ + lifts the song a -- new: +} + + +% +% Chord names +% + +Chords = \chordmode +{ +% Do we need this anymore??? +% \override SeparatingGroupSpanner #'padding = #'2.0 +%Bah, can't we set this globally? +% \popChords + + \repeat volta 2 + { + % Intro + + df2./ef s8 af8/ef | % 1 + s1 | % 2 + } + \alternative + { + { + ef1 | % 3 + s1 | % 4 + } + { + ef2. s8 af8/bf | % 5 + } + } + s1 | % 6 + + % Verse + + ef1 | % 7 + s2 af/ef | % 8 + ef1 | % 9 + s1 | % 10 + bf1 | % 11 + s1 | % 12 + ef1 | % 13 + s2 af/bf | % 14 + ef1 | % 15 + s1 | % 16 + ef2./g s8 af | % 17 + s1 | % 18 + ef1/bf | % 19 + af2/bf bf | % 20 + ef2. s8 af/bf | % 21 + s1 | % 22 + + \repeat volta 2 + { + % Verse + + ef1 | % 23 + s2 af/ef | % 24 + ef1 | % 25 + s1 | % 26 + bf1 | % 27 + s1 | % 28 + ef1 | % 29 + s2 af/bf | % 30 + ef1 | % 31 + s1 | % 32 + ef2./g s8 af | % 33 + s1 | % 34 + ef1/bf | % 35 + af2/bf bf | % 36 + ef2 s8 f4:m7 ef8/g | % 37 + s1 | % 38 + + % Chorus + + bf1 | % 29 + s1 | % 30 + ef1 | % 31 + s1 | % 32 + f1:7 | % 33 + s1 | % 34 + bf2:7 af4./c bf8/d | % 35 + } + \alternative + { + { + s1 | % 36 + } + { + s2 bf/c | % 37 + } + } + + % Verse + + f1 | % 38 + s2 bf/f | % 39 + f1 | % 40 + s1 | % 41 + c1 | % 42 + s1 | % 43 + f1 | % 44 + s2 bf/c | % 45 + f1 | % 46 + s1 | % 47 + f2./a s8 bf | % 48 + s1 | % 49 + + \repeat volta 2 + { + f1/c | % 50 + bf2/c c | % 51 + d2.:m7 s8 bf | % 52 + s1 | % 53 + } + + f1/c | % 54 + bf2/d c/e | % 55 + ef2./f s8 bf/f | % 56 + s1 | % 57 + f1 | % 58 +} + + +% +% Chord rhythms +% + +% Use a RhythmicStaff on the chords instead of this? +% It almost works, but not quite. Doesn't collapse chords above to single notes... + +%Slash = { \override NoteHead #'style = #'slash } +%Cross = { \override NoteHead #'style = #'cross } + +StaffC = \relative c +{ + \override Staff.TimeSignature #'style = #'() + \time 4/4 + \override NoteHead #'style = #'slash + + \teeny + \repeat volta 2 + { + % Intro + + c4 c c r8 c ~ | % 1 + c4 c c c | % 2 + } + \alternative + { + { + c4 c c c | % 3 + c4 c c c | % 4 + } + { + c4 c c r8 c ~ | % 5 + } + } + c4 c c c \bar "||" % 6 + + % Verse + + c4 c c c | % 7 + c4 c c c | % 8 + c4 c c c | % 9 + c4 c c c | % 10 + c4 c c c | % 11 + c4 c c c | % 12 + c4 c c c | % 13 + c4 c c c | % 14 + c4 c c c | % 15 + c4 c c c | % 16 + c4 c c r8 c ~ | % 17 + c4 c c c | % 18 + c4 c c c | % 19 + c4 c c c | % 20 + c4 c c r8 c ~ | % 21 + c4 c c c \bar "||:" % 22 + + \repeat volta 2 + { + % Verse + + c4 c c c | % 23 + c4 c c c | % 24 + c4 c c c | % 25 + c4 c c c | % 26 + c4 c c c | % 27 + c4 c c c | % 28 + c4 c c c | % 29 + c4 c c c | % 30 + c4 c c c | % 31 + c4 c c c | % 32 + c4 c c r8 c ~ | % 33 + c4 c c c | % 34 + c4 c c c | % 35 + c4 c c c | % 36 + c4 c r8 c4 c8 ~ | % 37 + c4 c c c \bar "||" % 38 + + % Chorus + + c4 c c c | % 29 + c4 c c c | % 30 + c4 c c c | % 31 + c4 c c c | % 32 + c4 c c c | % 33 + c4 c c c | % 34 + c4 c c4. c8 ~ | % 35 + } + \alternative + { + { + c4 c c c | % 36 + } + { + c4 c c c | % 37 + } + } + + % Verse + + c4 c c c | % 38 + c4 c c c | % 39 + c4 c c c | % 40 + c4 c c c | % 41 + c4 c c c | % 42 + c4 c c c | % 43 + c4 c c c | % 44 + c4 c c c | % 45 + c4 c c c | % 46 + c4 c c c | % 47 + c4 c c r8 c ~ | % 48 + c4 c c c | % 49 + + \repeat volta 2 + { + c4 c c c | % 50 + c4 c c c | % 51 + c4 c c r8 c ~ | % 52 + c4 c c c | % 53 + } + + c4 c c c | % 54 + c2 c | % 55 + c4 c c r8 c ~ | % 56 + c4 c c c | % 57 + c4-^ c-^ r2 \bar "|." % 58 +} + + +Dynamics = +{ +%{ + s4_\markup { \italic { snare on 4, bass 8th notes } } s2. | % 1 + s1*26 | % 2-27 + s2 s4 \< s | % 28 + s4_\f s_\markup { \hspace #0.0 \raise #-2.0 \italic { snare 2 & 4 } } s2 | % 29 + s1*8 | % 30-37 + s2 s4 \< s \! | % 38 + s1 | % 39 + s2. s8 \> s \! | % 40 + s4_\markup { \hspace #0.0 \raise #-2.0 \italic { bass 8th notes, band builds each repeat } } s2. | % 41 + s1*8 | % 42-49 + s4 \< s2. | % 50 + s4_\f s2. | % 51 + s1*5 | % 52-56 + s4_\markup { \hspace #0.0 \raise #-2.0 \italic { rit. last time } } s2. | % 57 + s2 s4 \< s \! | % 58 +%} +} + + +\score +{ + << + \set Score.skipBars = ##t + \set Score.melismaBusyProperties = #'() + +% \new ChoirStaff = "Rhythm" + << + \new ChordNames = "chords" \Chords +% Capo 3 Edition +% \new ChordNames = "chords" \transpose ef c \Chords + \new RhythmicStaff = "chordRhythm" << \StaffC \Dynamics >> + >> + + \new Staff + << + \new Voice = "lead" \LeadVox + \new Lyrics \lyricsto "lead" \LeadVoxText + \new Lyrics \lyricsto "lead" \LeadVoxTextB + >> + >> +} + + +\paper +{ + #(define fonts (make-pango-font-tree + "Times New Roman" + "DomCasual BT" + "Luxi Mono" + (/ staffSize 20))) + +% Don't spread staves vertically across last page (default: t) + ragged-last-bottom = ##f +% Don't spread staves vertically across the page (default: f) +% ragged-bottom = ##t +% Allow partial line for last stave (default: f) +% ragged-last = ##t + +% To find out what's eating the space at the top... +% annotate-spacing = ##t +%let's try this: [It works! Huzzah!] + obsolete-page-top-space = 0 top-system-spacing #'basic-distance = #(/ obsolete-page-top-space staff-space) +} diff --git a/take-my-life-and-let-it-be-consecrated-sa.ly b/take-my-life-and-let-it-be-consecrated-sa.ly new file mode 100644 index 0000000..479132d --- /dev/null +++ b/take-my-life-and-let-it-be-consecrated-sa.ly @@ -0,0 +1,492 @@ +\version "2.16.0" +\include "pop-chords.ly" +\include "english.ly" + +% Good sizes are 16, 18, & 20 +staffSize = #20 +#(set-default-paper-size "letter") +#(set-global-staff-size staffSize) +#(ly:set-option (quote no-point-and-click)) + +\header +{ +%Let's bump up the title size and switch to the chord font. :-) + + title = \markup { \override #'(font-family . sans) \fontsize #3.5 "Take My Life And Let It Be Consecrated" } + subtitle = \markup { \override #'(font-family . sans) \fontsize #3.5 "SA version" } +% composer = \markup { \override #'(font-family . sans) \fontsize #1.3 "" } + arranger = \markup { \override #'(font-family . sans) \fontsize #1.3 "arr. Ed Smart/Deborah Hammons" } + tagline = $(string-append "Engraved by JLH and Lilypond " (lilypond-version)) +} + + +% +% Song's structure +% +Global = +{ + \key ef \major + \override Staff.TimeSignature #'style = #'() + \time 4/4 + + % Intro + + s1*4 | % 1-4 + + % Verse + + \repeat volta 3 + { + \mark \markup { \override #'(font-family . sans) { \box { A } } } + + s1*9 | % 5-13 + + \time 2/4 + + s2 | % 14 + + \time 4/4 + +\voiceTwo + s1 | % 15 +\oneVoice + s1 | % 16 + } + \alternative + { + { + s1*2 | % 17-18 + } + { + s1 | % 19 + } + } + + s1 \bar "||" % 20 + + \key f \major + + \mark \markup { \override #'(font-family . sans) { \box { B } } } + + s1*15 \bar "|." % 21-35 +} + + +% +% Lead vocal +% + +Soprano = \relative c' +{ +% \set Voice.autoBeaming = ##f +% \set Staff.instrumentName = #"Lead vox" + \clef G +%\override Score.SpacingSpanner #'average-spacing-wishes = ##f + + % Intro + + s1*4 | % 1-4 + + % Verse + + ef4 ef ef8 ( bf ) ef ( g ) | % 5 + bf4 af g2 | % 6 + g4 g g8 ( f ) af ( f ) | % 7 + ef4 d8 ( f ) ef2 | % 8 + g4 g f f8 ( g ) | % 9 + af4 bf af ( g ) | % 10 + bf4 bf c bf | % 11 + bf8 ( af ) af ( g ) g4 ( f ) | % 12 + ef4 f g af8 ( f ) | % 13 + + \time 2/4 + + ef4 d | % 14 + + \time 4/4 + +\voiceTwo + ef1 | % 15 +\oneVoice + s1 | % 16 + + s1*2 | % 17-18 + + s1 | % 19 + + s1 | % 20 + + % Key: F + + f4 f f8 ( c ) f ( a ) | % 21 + c4 bf a2 | % 22 + a4 a a8 ( g ) bf ( g ) | % 23 + f4 e8 ( g ) f2 | % 24 + a4 a g g8 ( a ) | % 25 + bf4 c bf ( a ) | % 26 + c4 c d c | % 27 + c8 ( bf ) bf ( a ) a4 ( g ) | % 28 + f4 g a bf8 ( g ) | % 29 + f2 e | % 30 + f1 | % 31 + s1 | % 32 + s1 | % 33 + s1 | % 34 + r1^\fermata | % 35 +} + +Alto = \relative c' +{ +% \set Voice.autoBeaming = ##f +% \set Staff.instrumentName = #"Lead vox" + \clef G +%\override Score.SpacingSpanner #'average-spacing-wishes = ##f + + % Intro + + s1*4 | % 1-4 + + % Verse + + bf4 bf bf bf | % 5 + d4 d ef2 | % 6 + c4 c c8 ( d ) ef4 | % 7 + bf4 bf bf2 | % 8 + bf4 ef d d8 ( ef ) | % 9 + f4 g f ( ef ) | % 10 + g4 g af g | % 11 + f4 f8 ( ef ) ef4 ( d ) | % 12 + bf4 bf ef ef | % 13 + + \time 2/4 + + bf4 bf | % 14 + + \time 4/4 + + bf1 | % 15 + r1 | % 16 + + r1 | % 17 + r1 | % 18 + + r1 | % 19 + + r1 | % 20 + + % Key: F + + c4 c c c | % 21 + e4 e f2 | % 22 + d4 d d8 ( e ) f4 | % 23 + c4 c c2 | % 24 + d4 f ef ef8 ( f ) | % 25 + g4 a g ( f ) | % 26 + a4 a bf a | % 27 + g4 g8 ( f ) f4 ( e ) | % 28 + d4 c d c | % 29 + c2 c | % 30 + + c1 | % 31 + r1 | % 32 + r1 | % 33 + r1 | % 34 + r1^\fermata | % 35 +} + +LeadVoxText = \lyricmode +{ + Take my life _ and _ let it be + con- se- cra- _ ted _ Lord, to _ thee; + Take my hands and _ let them move, _ + at the im- pulse of _ thy _ love, _ + at the im- pulse _ of thy love. + + Take my love, _ my _ God, I pour + at thy feet _ its _ trea- sure _ store; + Take my- self and _ I will be, _ + e- ver, on- ly, for _ my _ king, _ + e- ver, on- ly, _ for my king. +} + +LeadVoxTextB = \lyricmode +{ + Take my feet _ and _ let them be + swift and beau- _ ti- _ ful for _ thee; + Take my voice and _ let me sing, _ + al- ways, on- ly for _ my _ king, _ + al- ways, on- ly _ for my king. +} + +LeadVoxTextC = \lyricmode +{ + Take my lips _ and _ let them be + filled with mes- _ sa- _ ges from _ thee; + Take my sil- ver _ and my gold, _ + not a mite would I _ with- _ hold, _ + not a mite would _ I with- hold. +} + + +Riffs = \relative c' +{ + \clef G + \key ef \major + \override Staff.TimeSignature #'style = #'() + \time 4/4 + + % Intro + + \tiny + 16 d bf f ~ f4 ~ f4. g16 bf | % 1 + c1 | % 2 + 16 d bf f ~ f4 ~ f4. g16 bf | % 3 + c2 | % 4 + + s1*9 + s2 + +\voiceOne +\tieDown + 16 d bf f ~ f4 ~ f4. g16 bf | % 14 +\tieNeutral +\oneVoice + c1 | % 15 + 16 d bf f ~ f4 ~ f4. g16 bf | % 16 + c2 | % 17 + + 16 d bf f ~ f4 ~ f4. g16 bf | % 18 + c2 r | % 19 + + s1*10 + + \stemUp + 16 e c g ~ g4 ~ g4. a16 c | % 31 + \stemNeutral + d2 r | % 32 + 16 e c g ~ g4 ~ g4. a16 c | % 33 + d2 r | % 34 +} + + +% +% Chord names +% + +Chords = \chordmode +{ +%Bah, can't we set this globally? +% \popChords + + % Intro + + c1:m11 | % 1 + af1:sus2 | % 2 + c1:m11 | % 3 + af2 bf:sus4.7 | % 4 + + % Verse + + \repeat volta 4 + { + ef2 f:m11 | % 5 + af2:sus2 ef | % 6 + c2:m7 af:sus2 | % 7 + ef4/bf bf ef2 | % 8 + c2:m7 bf:11^9.7 | % 9 + f2:m11 af4/ef ef | % 10 + ef2/g af4 ef/g | % 11 + f2:m11 ef4/bf bf | % 12 + af4/c bf/d ef af:sus2 | % 13 + + \time 2/4 + + ef4/bf bf | % 14 + + \time 4/4 + + c1:m11 | % 15 + af1:sus2 | % 16 + } + \alternative + { + { + c1:m11 | % 17 + af2 bf:sus4.7 | % 18 + } + { + c1:m11 | % 19 + } + } + + af2:sus2 g:m11 | % 20 + + f2 g:m11 | % 21 + bf2:sus2 f | % 22 + d2:m7 bf:sus2 | % 23 + f4/c c f2 | % 24 + d2:m7 ef:6.9 | % 25 + g2:m11 bf4/f f | % 26 + f2/a bf4 f/a | % 27 + g2:m11 f4/c c | % 28 + bf4/d c/e f bf | % 29 + f2/c c | % 30 + f1 | % 31 + bf1:sus2 | % 32 + f1 | % 33 + bf1:sus2 | % 34 + f | % 35 +} + + +% +% Chord rhythms +% + +% Use a RhythmicStaff on the chords instead of this? +% It almost works, but not quite. Doesn't collapse chords above to single notes... + +Rhythm = \relative c +{ +% \set Voice.autoBeaming = ##f +% \set Staff.instrumentName = #"Rhythm" + \override Staff.TimeSignature #'style = #'() + \time 4/4 + \override NoteHead #'style = #'slash + + % Intro + + c4_\markup { \italic { perc. groove } } c c c | % 1 + c4 c c c | % 2 + c4 c c c | % 3 + c4 c c c | % 4 + + % Verse + + \repeat volta 3 + { + c4_\markup { \italic { piano 1st X } } c c c | % 5 + c4 c c c | % 6 + c4 c c c | % 7 + c4 c c c | % 8 + c4 c c c | % 9 + c4 c c c | % 10 + c4 c c c | % 11 + c4 c c c | % 12 + c4 c c c | % 13 + + \time 2/4 + + c4 c | % 14 + + \time 4/4 + + c4_\markup { \italic { band in 1st X } } c c c | % 15 + c4 c c c | % 16 + } + \alternative + { + { + c4 c c c | % 17 + c4 c c c | % 18 + } + { + c4 c c c | % 19 + } + } + + c4 c c \< c \! \bar "||" % 20 + + c4_\markup { \italic { snare } } c c c | % 21 + c4 c c c | % 22 + c4 c c c | % 23 + c4 c c c | % 24 + c4 c c c | % 25 + c4 c c c | % 26 + c4 c c c | % 27 + c4 c c c | % 28 + c4 c c c | % 29 + c4 c c c | % 30 + c4 c c c | % 31 + c4 c c c | % 32 + c4 c c c | % 33 + c4 c c_\markup { \italic { rit. } } c | % 34 + c1^\fermata \bar "|." % 35 +} + + + +Dynamics = +{ +%{ +%Hmm, this is throwin off the layout... + s4_\mf s2. | % 1 + s1*18 | % 2-19 + s4 s \< s2 | % 20 + s4_\f s2. | % 21 +%} +%{ + % Intro + s4_\markup { \italic { Ac. gtr only } } s2. | % 1 + + s1*3 | % 2-4 + + s4_\markup { \italic { Band in } } s2. | % 5 +%} +} + + +\score +{ + << + \Global % The "roadmap" that everything else depends on + + \context Staff + << + \new Voice = "lead" \Soprano + \new Voice \Riffs + \new Lyrics \lyricsto "lead" \LeadVoxText + \new Lyrics \lyricsto "lead" \LeadVoxTextB + \new Lyrics \lyricsto "lead" \LeadVoxTextC + >> + + \new Staff + << + \Global + \new Voice = "lead" \Alto + >> + + \new ChoirStaff + << + \new ChordNames \Chords +%Capo 3 edition +% \new ChordNames \transpose f d \Chords + \new RhythmicStaff << \Rhythm \Dynamics >> + >> + + \set Score.skipBars = ##t + \set Score.melismaBusyProperties = #'() + >> +} + + +\paper +{ + #(define fonts (make-pango-font-tree + "Times New Roman" + "DomCasual BT" + "Luxi Mono" + (/ staffSize 20))) + +% Don't spread staves vertically across last page (default: t) + ragged-last-bottom = ##f +% Don't spread staves vertically across the page (default: f) +% ragged-bottom = ##t +% Allow partial line for last stave (default: f) + ragged-last = ##t + +% To find out what's eating the space at the top... +% annotate-spacing = ##t +%let's try this: [It works! Huzzah!] + obsolete-page-top-space = 0 top-system-spacing #'basic-distance = #(/ obsolete-page-top-space staff-space) +} diff --git a/take-my-life-and-let-it-be-consecrated.ly b/take-my-life-and-let-it-be-consecrated.ly new file mode 100755 index 0000000..744f5c9 --- /dev/null +++ b/take-my-life-and-let-it-be-consecrated.ly @@ -0,0 +1,364 @@ +\version "2.16.0" +\include "pop-chords.ly" +\include "english.ly" + +% Good sizes are 16, 18, & 20 +staffSize = #16 +#(set-default-paper-size "letter") +#(set-global-staff-size staffSize) +#(ly:set-option (quote no-point-and-click)) + +\header +{ +%Let's bump up the title size and switch to the chord font. :-) + + title = \markup { \override #'(font-family . sans) \fontsize #3.5 "Take My Life And Let It Be Consecrated" } +% composer = \markup { \override #'(font-family . sans) \fontsize #1.3 "" } + arranger = \markup { \override #'(font-family . sans) \fontsize #1.3 "arr. Ed Smart" } + tagline = "Engraved by JLH and Lilypond 2.8.6" +} + + +% +% Lead vocal +% + +LeadVox = \relative c' +{ +% \set Voice.autoBeaming = ##f +% \set Staff.instrumentName = #"Lead vox" + \clef G + \key ef \major + \override Staff.TimeSignature #'style = #'() + \time 4/4 +\override Score.SpacingSpanner #'average-spacing-wishes = ##f + + % Intro + + s1 | % 1 + s1 | % 2 + s1 | % 3 + s1 | % 4 + + % Verse + + \repeat volta 3 + { +\mark \markup { \override #'(font-family . sans) { \box { A } } } + + ef4 ef ef8 ( bf ) ef ( g ) | % 5 + bf4 af g2 | % 6 + g4 g g8 ( f ) af ( f ) | % 7 + ef4 d8 ( f ) ef2 | % 8 + g4 g f f8 ( g ) | % 9 + af4 bf af ( g ) | % 10 + bf4 bf c bf | % 11 + bf8 ( af ) af ( g ) g4 ( f ) | % 12 + ef4 f g af8 ( f ) | % 13 + + \time 2/4 + + ef4 d | % 14 + + \time 4/4 + +\voiceTwo + ef1 | % 15 +\oneVoice + s1 | % 16 + } + \alternative + { + { + s1 | % 17 + s1 | % 18 + } + { + s1 | % 19 + } + } + + s1 \bar "||" % 20 + + \key f \major + +\mark \markup { \override #'(font-family . sans) { \box { B } } } + + f4 f f8 ( c ) f ( a ) | % 21 + c4 bf a2 | % 22 + a4 a a8 ( g ) bf ( g ) | % 23 + f4 e8 ( g ) f2 | % 24 + a4 a g g8 ( a ) | % 25 + bf4 c bf ( a ) | % 26 + c4 c d c | % 27 + c8 ( bf ) bf ( a ) a4 ( g ) | % 28 + f4 g a bf8 ( g ) | % 29 + f2 e | % 30 + f1 | % 31 + s1 | % 32 + s1 | % 33 + s1 | % 34 + r1^\fermata \bar "|." % 35 +} + +LeadVoxText = \lyricmode +{ + Take my life _ and _ let it be + con- se- cra- _ ted _ Lord, to _ thee; + Take my hands and _ let them move, _ + at the im- pulse of _ thy _ love, _ + at the im- pulse _ of thy love. + + Take my love, _ my _ God, I pour + at thy feet _ its _ trea- sure _ store; + Take my- self and _ I will be, _ + e- ver, on- ly, for _ my _ king, _ + e- ver, on- ly, _ for my king. +} + +LeadVoxTextB = \lyricmode +{ + Take my feet _ and _ let them be + swift and beau- _ ti- _ ful for _ thee; + Take my voice and _ let me sing, _ + al- ways, on- ly for _ my _ king, _ + al- ways, on- ly _ for my king. +} + +LeadVoxTextC = \lyricmode +{ + Take my lips _ and _ let them be + filled with mes- _ sa- _ ges from _ thee; + Take my sil- ver _ and my gold, _ + not a mite would I _ with- _ hold, _ + not a mite would _ I with- hold. +} + + +Riffs = \relative c' +{ + \clef G + \key ef \major + \override Staff.TimeSignature #'style = #'() + \time 4/4 + + % Intro + + \tiny + 16 d bf f ~ f4 ~ f4. g16 bf | % 1 + c1 | % 2 + 16 d bf f ~ f4 ~ f4. g16 bf | % 3 + c2 | % 4 + + s1*9 + s2 + +\voiceOne +\tieDown + 16 d bf f ~ f4 ~ f4. g16 bf | % 14 +\tieNeutral +\oneVoice + c1 | % 15 + 16 d bf f ~ f4 ~ f4. g16 bf | % 16 + c2 | % 17 + + 16 d bf f ~ f4 ~ f4. g16 bf | % 18 + c2 r | % 19 + + s1*10 + + \stemUp + 16 e c g ~ g4 ~ g4. a16 c | % 31 + \stemNeutral + d2 r | % 32 + 16 e c g ~ g4 ~ g4. a16 c | % 33 + d2 r | % 34 +} + + +% +% Chord names +% + +Chords = \chordmode +{ + % Intro + + c1:m11 | % 1 + af1:sus2 | % 2 + c1:m11 | % 3 + af2 bf:sus4.7 | % 4 + + % Verse + + \repeat volta 4 + { + ef2 f:m11 | % 5 + af2:sus2 ef | % 6 + c2:m7 af:sus2 | % 7 + ef4/bf bf ef2 | % 8 + c2:m7 bf:11^9.7 | % 9 + f2:m11 af4/ef ef | % 10 + ef2/g af4 ef/g | % 11 + f2:m11 ef4/bf bf | % 12 + af4/c bf/d ef af:sus2 | % 13 + + \time 2/4 + + ef4/bf bf | % 14 + + \time 4/4 + + c1:m11 | % 15 + af1:sus2 | % 16 + } + \alternative + { + { + c1:m11 | % 17 + af2 bf:sus4.7 | % 18 + } + { + c1:m11 | % 19 + } + } + + af2:sus2 g:m11 | % 20 + + f2 g:m11 | % 21 + bf2:sus2 f | % 22 + d2:m7 bf:sus2 | % 23 + f4/c c f2 | % 24 + d2:m7 ef:6.9 | % 25 + g2:m11 bf4/f f | % 26 + f2/a bf4 f/a | % 27 + g2:m11 f4/c c | % 28 + bf4/d c/e f bf | % 29 + f2/c c | % 30 + f1 | % 31 + bf1:sus2 | % 32 + f1 | % 33 + bf1:sus2 | % 34 + f | % 35 +} + + +% +% Chord rhythms +% + +% Use a RhythmicStaff on the chords instead of this? +% It almost works, but not quite. Doesn't collapse chords above to single notes... + +StaffC = \relative c +{ +% \set Voice.autoBeaming = ##f +% \set Staff.instrumentName = #"Rhythm" + \override Staff.TimeSignature #'style = #'() + \time 4/4 + \override NoteHead #'style = #'slash + + % Intro + + c4_\markup { \italic { perc. groove } } c c c | % 1 + c4 c c c | % 2 + c4 c c c | % 3 + c4 c c c | % 4 + + % Verse + + \repeat volta 3 + { + c4_\markup { \italic { piano 1st X } } c c c | % 5 + c4 c c c | % 6 + c4 c c c | % 7 + c4 c c c | % 8 + c4 c c c | % 9 + c4 c c c | % 10 + c4 c c c | % 11 + c4 c c c | % 12 + c4 c c c | % 13 + + \time 2/4 + + c4 c | % 14 + + \time 4/4 + + c4_\markup { \italic { band in 1st X } } c c c | % 15 + c4 c c c | % 16 + } + \alternative + { + { + c4 c c c | % 17 + c4 c c c | % 18 + } + { + c4 c c c | % 19 + } + } + + c4 c c \< c \! \bar "||" % 20 + + c4_\markup { \italic { snare } } c c c | % 21 + c4 c c c | % 22 + c4 c c c | % 23 + c4 c c c | % 24 + c4 c c c | % 25 + c4 c c c | % 26 + c4 c c c | % 27 + c4 c c c | % 28 + c4 c c c | % 29 + c4 c c c | % 30 + c4 c c c | % 31 + c4 c c c | % 32 + c4 c c c | % 33 + c4 c c_\markup { \italic { rit. } } c | % 34 + c1^\fermata \bar "|." % 35 +} + + +\score +{ + << + << + \new Staff = leadStaff + { + << + \new Voice = "lead" \LeadVox + \new Voice = "riffs" \Riffs + >> + } + \new Lyrics \lyricsto "lead" \LeadVoxText + \new Lyrics \lyricsto "lead" \LeadVoxTextB + \new Lyrics \lyricsto "lead" \LeadVoxTextC + >> + + \new ChoirStaff = "Rhythm" + << + \new ChordNames = "chords" \Chords + \new RhythmicStaff = "chordRhythm" \StaffC + >> + + \set Score.skipBars = ##t + \set Score.melismaBusyProperties = #'() + >> + + \layout + { +% \context { \Staff \RemoveEmptyStaves } +% ragged-last-bottom = ##t +% ragged-last = ##t + } +} + + +\paper +{ + #(define fonts (make-pango-font-tree + "Times New Roman" + "DomCasual BT" + "Luxi Mono" + (/ staffSize 20))) +} diff --git a/template-chords-on-top.ly b/template-chords-on-top.ly new file mode 100644 index 0000000..e386812 --- /dev/null +++ b/template-chords-on-top.ly @@ -0,0 +1,289 @@ +\version "2.16.0" +\include "pop-chords.ly" +\include "english.ly" + +% Good sizes are 16, 18, & 20 +staffSize = #18 +#(set-default-paper-size "letter") +#(set-global-staff-size staffSize) +#(ly:set-option (quote no-point-and-click)) + +%{ Some useful characters: ‘ ’ “ ” – — † ‡ • … %} + +\header +{ +%Let's bump up the title size and switch to the chord font. :-) + + title = \markup { \override #'(font-family . sans) \fontsize #3.5 "In Christ Alone" } + composer = \markup { \override #'(font-family . sans) \fontsize #1.3 "Stuart Townend/Keith Getty" } +% arranger = \markup { \override #'(font-family . sans) \fontsize #1.3 "arr. " } + tagline = $(string-append "Engraved by JLH and Lilypond " (lilypond-version)) +% Let's try a chord dictionary +% subtitle = \markup { \center-column { "F#m" \fret-diagram-terse #"x;x;4;2;2;2;" } " " \center-column { "F#m/F" \fret-diagram-terse #"x;x;3;2;2;2;" } " " \center-column { "F#m/E" \fret-diagram-terse #"x;x;2;2;2;2;" } " " \center-column { "F#m/Eb" \fret-diagram-terse #"x;x;1;2;2;2;" } " " \center-column { "Em7" \fret-diagram-terse #"o;2;2;o;3;o;" } " " \center-column { "A13" \fret-diagram-terse #"x;o;2;o;2;2;" } } +} + +% Useful tweak abbreviations (hn = harmony note) + +hn = #(define-music-function (parser location arg) (ly:music?) +;; Harmony Note: Set the tweaks property of the passed in note to use a smaller font + + (set! (ly:music-property arg 'tweaks) + (acons 'font-size -3.0 (ly:music-property arg 'tweaks))) arg) + + +% +% Song's structure +% +Global = +{ + \key d \major + \override Staff.TimeSignature #'style = #'() + \time 3/4 + + % Intro + + \once \override TextScript #'padding = #2.0 + s1*0^\markup { \large \bold { Not too fast } } +% Capo 4 version +% s1*0^\markup { \hspace #0.0 \raise #2.0 \larger \bold { "Moderate pop (*** CAPO 4 ***)" } } + + s2.*17 \bar "|." % 1-17 +% \mark \markup { \override #'(font-family . sans) { \box { A } } } +} + + +% +% Lead vocal +% +LeadVox = \relative c' +{ +% \set Staff.instrument = #"Lead vox" + \clef G + \override Staff.TimeSignature #'style = #'() +%Hm. Needed anymore? +% \override Score.SpacingSpanner #'average-spacing-wishes = ##f + + r4 r8 a b8. d16 | % 0 + d4. a8 b d | % 1 + e2 fs8 e16 d | % 2 + b8 fs' e4. d8 | % 3 + d4 r8 a b8. d16 | % 4 + + d4. a8 b d | % 5 + e2 fs8 e16 d | % 6 + b8 fs' e4. d8 | % 7 + d4 r8 d fs a | % 8 + + b4. b8 a fs | % 9 + e4 r8 d d' cs | % 10 + b4. b8 a fs | % 11 + e4 r8 a, b8. d16 | % 12 + + d4. a8 b d | % 13 + e2 fs8 e16 d | % 14 + b8 fs' e4. d8 | % 15 + d4. r8 r4 | % 16 +} + +LeadVoxText = \lyricmode +{ + In Christ a -- lone my hope is found, + he is my light, my strength, my song; + This cor -- ner -- stone, this so -- lid ground, + firm thro’ the fier -- cest drought and storm. + + What heights of love, what depths of peace, + when fears are stilled, when striv -- ing cease. + + My com -- for -- ter, my all in all, + here in the love of Christ I stand. +} + +LeadVoxTextB = \lyricmode +{ + In Christ a -- lone, who took on flesh, + full -- ness of God in help -- less babe. + This gift of love and right -- eous -- ness, + scorned by the ones he came to save. + + Till on that cross, as Je -- sus died, + the wrath of God was sat -- is -- fied; + + For ev’ -- ry sin on him was laid, + here in the death of Christ I live. +} + +LeadVoxTextC = \lyricmode +{ + There in the ground his bo -- dy lay, + light of the world by dark -- ness slain; + Then burst -- ing forth in glor -- ious day + up from the grave he rose a -- gain. + + And as he stands in vic -- tor -- y + sin’s curse has lost its grip on me, + + For I am his and he is mine, + bought with the pre -- cious blood of Christ. +} + +LeadVoxTextD = \lyricmode +{ + No guilt in life, no fear in death, + this is the pow’r of Christ in me; + From life’s first cry to fi -- nal breath, + Je -- sus com -- mands my des -- tin -- y. + + No pow’r of hell, no scheme of man, + can e -- ver pluck me from his hand; + + Till he re -- turns or calls me home, + here in the pow’r of Christ I stand. +} + + +Riffs = \relative c'' +{ + \clef G +%Hm. Needed anymore? +% \override Score.SpacingSpanner #'average-spacing-wishes = ##f + + % Intro + +%{ + \tiny + \normalsize +%} +} + + +% +% Chord names +% +Chords = \chordmode +{ +%Bah, can't we set this globally? +% \popChords + + s4. d8 g4/a | % 0 + d2 g4 | % 1 + a4:sus4 a b:m | % 2 + g4 a4. g8/a | % 3 + d2 g4/a | % 4 + + d4 d/cs b:m | % 5 + g4:6 a b:m | % 6 + g4 a4. g8/a | % 7 + d2 d4/fs | % 8 + + g2 d4/a | % 9 + a2 d8/fs fs:m7 | % 10 + g2 b4:m7 | % 11 + a2 g4/a | % 12 + + d4:sus4 d g | % 13 + a4:sus4 a b:m | % 14 + g4 a4. g8/a | % 15 + d4. s | % 16 +} + + +% +% Chord rhythms +% +% Use a RhythmicStaff on the chords instead of this? +% It almost works, but not quite. Doesn't collapse chords above to single notes... +% +Rhythm = \relative c +{ +%% \set Voice.autoBeaming = ##f +%% \set Staff.instrument = #"Rhythm" + \override Staff.TimeSignature #'style = #'() + \override NoteHead #'style = #'slash + + r4 r8 c c4 | % 0 + c4 c c | % 1 + c4 c c | % 2 + c4 c4. c8 | % 3 + c4 c c | % 4 + + c4 c c | % 5 + c4 c c | % 6 + c4 c4. c8 | % 7 + c4 c c | % 8 + + c4 c c | % 9 + c4 c c8 c | % 10 + c4 c c | % 11 + c4 c c | % 12 + + c4 c c | % 13 + c4 c c | % 14 + c4 c4. c8 | % 15 + c4. r | % 16 +} + + +Dynamics = +{ +%{ + s4_\markup { \italic { snare pat. } } s2 | % 1 + s4_\markup { \italic { simile } } s2 | % 2 + s2.*19 + s4_\markup { \italic { spacey } } s2 | % 22 + s2.*5 + s4 s \< s \! | % 28 + s2.*22 + s4_\markup { \italic { Last time } } s2 | % 51 +%} +} + + +\score +{ + << + \set Score.skipBars = ##t + \set Score.melismaBusyProperties = #'() + +% \new Staff + << + \new ChordNames \Chords +%Capo 4 edition +% \new ChordNames \transpose b g \Chords + \new RhythmicStaff << \Rhythm \Dynamics >> + >> + + \new Staff + << + \Global % The "roadmap" that everything else depends on + \new Voice = "lead" \LeadVox + \new Voice \Riffs + \new Lyrics \lyricsto "lead" \LeadVoxText + \new Lyrics \lyricsto "lead" \LeadVoxTextB + \new Lyrics \lyricsto "lead" \LeadVoxTextC + \new Lyrics \lyricsto "lead" \LeadVoxTextD + >> + >> +} + + +\paper +{ + #(define fonts (make-pango-font-tree + "Times New Roman" + "DomCasual BT" + "Luxi Mono" + (/ staffSize 20))) + +% Spread staves vertically across last page (default: t) + ragged-last-bottom = ##f +% Don't spread staves vertically across the page (default: f) +% ragged-bottom = ##t +% Allow partial line for last stave (default: f) +% ragged-last = ##t + +% To find out what's eating the space at the top... +% annotate-spacing = ##t +%let's try this: [It works! Huzzah!] + obsolete-page-top-space = 0 top-system-spacing #'basic-distance = #(/ obsolete-page-top-space staff-space) +} diff --git a/template.ly b/template.ly new file mode 100755 index 0000000..a3786b0 --- /dev/null +++ b/template.ly @@ -0,0 +1,479 @@ +\version "2.16.0" +\include "pop-chords.ly" +\include "english.ly" + +% Good sizes are 16, 18, & 20 +staffSize = #16 +#(set-default-paper-size "letter") +#(set-global-staff-size staffSize) +#(ly:set-option (quote no-point-and-click)) + +%{ Some useful characters: ‘ ’ “ ” – — † ‡ • … %} + +\header +{ +%Let's bump up the title size and switch to the chord font. :-) + + title = \markup { \override #'(font-family . sans) \fontsize #3.5 "O For A Thousand Tongues" } +% composer = \markup { \override #'(font-family . sans) \fontsize #1.3 "" } + arranger = \markup { \override #'(font-family . sans) \fontsize #1.3 "arr. Ed Smart" } + tagline = $(string-append "Engraved by JLH and Lilypond " (lilypond-version)) +} + + +% +% Lead vocal +% + +LeadVox = \relative c' +{ +% \set Voice.autoBeaming = ##f +% \set Staff.instrument = #"Lead vox" + \clef G + \key f \major + \override Staff.TimeSignature #'style = #'() + \time 3/4 +\override Score.SpacingSpanner #'average-spacing-wishes = ##f + + % Intro + + s2. | % 1 + s2. | % 2 + s2. | % 3 + s2. | % 4 + s2. | % 5 + s2. | % 6 + s2. | % 7 + r2 c4 \bar "||:" % 8 + + \repeat volta 2 + { + % Verse + +\mark \markup { \override #'(font-family . sans) { \box { A } } } + + f8 f g4 g | % 9 + a8 g f4 g | % 10 + a8 a bf4 a | % 11 + g4. r8 c4 | % 12 + c8 a a4 f | % 13 + f8 d d4 f8 ( d ) | % 14 + c8 f f4 g | % 15 + + \voiceTwo f2. | % 16 + s2. | % 17 + } + \alternative + { + { + s2. | % 18 + r2 c4 | % 19 + } + { + s2. | % 20 + } + } + + r2 c4 \oneVoice \bar "||" % 21 + + % Verse + +\mark \markup { \override #'(font-family . sans) { \box { B } } } + + f8 f g4 g | % 22 + a8 g f4 g | % 23 + a8 a bf4 a | % 24 + g4. r8 c4 | % 25 + c8 a a4 f | % 26 + f8 d d4 f8 ( d ) | % 27 + c8 f f4 g \bar "||" % 28 + + \voiceTwo f2. | % 29 + s2. | % 30 + + \key g \major + + s2. | % 31 + r2 d4 \oneVoice \bar "||" % 32 + + % Verse + +\mark \markup { \override #'(font-family . sans) { \box { C } } } + + g8 g a4 a | % 22 + b8 a g4 a | % 23 + b8 b c4 b | % 24 + a4. r8 d4 | % 25 + d8 b b4 g | % 26 + g8 e e4 g8 ( e ) | % 27 + d8 g g4 a \bar "||" % 28 + + % Ending + + \voiceTwo g2.^\markup { \hspace #0.0 \raise #3.0 \italic { Play figure throughout D } } | % 40 + s2. | % 41 + s2. | % 42 + r2 d4 \oneVoice | % 43 + + \repeat volta 2 + { +\mark \markup { \override #'(font-family . sans) { \box { D } } } + + g8 g16 a ( ~ a4. g8 ) | % 44 + g2 r4 | % 45 + r4 a4. g8 | % 46 + g2 d4 | % 47 + g8 g16 a ( ~ a4. g8 ) | % 48 + g2 r4 | % 49 + r4 a4. b8 | % 50 + g2^\fermata d4 | % 51 + } +} + +LeadVoxText = \lyricmode +{ + O for a thou -- sand tongues to sing + my great re -- dee -- mer’s praise; + The glo -- ries of my God and king, + the __ _ tri -- umphs of his grace. + + My + + Je -- sus the name that charms our fears + that bids our sor -- rows cease; + ’Tis mu- sic in the sin -- ner’s ears, + ’Tis __ _ life and health and peace. + + He breaks the power of can -- celled sin + he sets the pris’ -- ner free; + His blood can make the foul -- est clean, + his __ _ blood a -- vailed for me. + + O for a thou -- __ _ _ sand tongues to sing + O for a thou -- __ _ _ sand tongues to sing + O +} + +LeadVoxTextB = \lyricmode +{ + _ gra -- cious mas -- ter and my God + a -- ssist me to pro -- claim; + To spread through all the earth a -- broad + the __ _ ho -- nors of thy name. +} + + +Riffs = \relative c'' +{ + \clef G + \key f \major + \override Staff.TimeSignature #'style = #'() + \time 3/4 +\override Score.SpacingSpanner #'average-spacing-wishes = ##f + + % Intro + + \tiny + \repeat "percent" 3 % 1 - 6 + { + << { \tiny f16 c f, ~ f, c' f f8 e } \\ { \tiny f,,2 c'4 } >> | % 1 + << { \tiny f'16 c f, ~ f, c' f f8 e } \\ { \tiny bf,2 c4 } >> | % 2 + } + << s2. \\ { \tiny d2 c4 } >> | % 7 + << s2. \\ { \tiny bf2. } >> | % 8 + + s2.*7 + + \voiceOne + \repeat "percent" 6 { f''16 c f, ~ f, c' f f8 e | } % 16-21 + \oneVoice + + s2.*7 + + \voiceOne + \repeat "percent" 2 { f16 c f, f' ~ f f, c' f f8 e | } % 29-30 + \oneVoice + + \key g \major + + \voiceOne + \repeat "percent" 2 { g16 d g, g' ~ g g, d' g g8 fs | } % 31-32 + \oneVoice + + s2.*7 + + \voiceOne + \repeat "percent" 4 { g16 d g, g' ~ g g, d' g g8 fs | } % 40-43 + \oneVoice + \normalsize +} + + +% +% Chord names +% + +Chords = \chordmode +{ +%Bah, can't we set this globally? +% \popChords + + % Intro + + f2. | % 1 + bf2. | % 2 + f2. | % 3 + bf2. | % 4 + f2. | % 5 + bf2. | % 6 + d2.:m9 | % 7 + bf2. | % 8 + + \repeat volta 2 + { + % Verse + + f4 c2/e | % 9 + d8:m c bf2 | % 10 + f4/c bf/c f/c | % 11 + c2 c4/e | % 12 + f2 f4/a | % 13 + bf2 g4:m7 | % 14 + f4/c bf/c c | % 15 + + f2. | % 16 + bf2. | % 17 + } + \alternative + { + { + f2. | % 18 + bf2. | % 19 + } + { + d2.:m9 | % 20 + } + } + + bf2. | % 21 + + % Verse + + d4:m9 c2/e | % 22 + ef4 bf2 | % 23 + d2.:m9 | % 24 + ef2:maj9 bf4/c | % 25 + f4 g:m7 f/a | % 26 + bf2 bf4:m/df | % 27 + f4/c bf/c c | % 28 + + f2. | % 29 + bf2. | % 30 + + g2. | % 31 + c2. | % 32 + + % Verse + + g:^3 | % 33 + e8:m d c2 | % 34 + g4/d c/d g/d | % 35 + d2 d4/fs | % 36 + g2 g4/b | % 37 + c2 a4:m7 | % 38 + g4/d c/d d | % 39 + + % Ending + + g2. | % 40 + c2. | % 41 + e2.:m9 | % 42 + c2. | % 43 + + \repeat volta 2 + { + g2. | % 44 + c2. | % 45 + g2. | % 46 + c2. | % 47 + g2. | % 48 + c2. | % 49 + e2.:m9 | % 50 + c2. | % 51 + } +} + +% +% Alternate chord changes (2nd verse) +% +ChordsSup = \chordmode +{ +%Bah, can't we set this globally? + \popChords + + % Intro + + s2.*8 | % 1-8 + + % Verse + + bf4/d c2/e | % 9 + f8 f/a bf2 | % 10 + f4/g bf/g f/g | % 11 + c2:sus4 c4 | % 12 +} + +% +% Chord rhythms +% + +% Use a RhythmicStaff on the chords instead of this? +% It almost works, but not quite. Doesn't collapse chords above to single notes... + +StaffC = \relative c +{ +% \set Voice.autoBeaming = ##f +% \set Staff.instrument = #"Rhythm" + \override Staff.TimeSignature #'style = #'() + \time 3/4 + \override NoteHead #'style = #'slash + + % Intro + + r8. c16 r4 c | % 1 + c4 c c | % 2 + c4 c c | % 3 + c4 c c | % 4 + c4 c c | % 5 + c4 c c | % 6 + c4 c c | % 7 + c4 c c \bar "||:" % 8 + + \repeat volta 2 + { + % Verse + + c4 c2 | % 9 + c8 c c4 c | % 10 + c4 c c | % 11 + c4 c c-> | % 12 + c4 c c | % 13 + c4 c c | % 14 + c4 c c | % 15 + + c4 c c | % 16 + c4 c c | % 17 + } + \alternative + { + { + c4 c c | % 18 + c4 c c | % 19 + } + { + c4 c c | % 20 + } + } + + c4 c c \bar "||" % 21 + + % Verse + + c4 c2 | % 22 + c4 c2 | % 23 + c2. | % 24 + c2 c4-> | % 25 + c4-> c-> c | % 26 + c4 c c | % 27 + c4 c c \bar "||" % 28 + + c4 c c | % 29 + c4 c c | % 30 + + c4 c c | % 31 + c4 c c \bar "||" % 32 + + % Verse + + c2.-> | % 33 + c8-> c-> c4-> c | % 34 + c4 c c | % 35 + c4 c c | % 36 + c4 c c | % 37 + c4 c c | % 38 + c4 c c \bar "||" % 39 + + % Ending + + c4 c c | % 40 + c4 c c | % 41 + c4 c c | % 42 + c4 c c | % 43 + + \repeat volta 2 + { + c4 c c | % 44 + c4 c c | % 45 + c4 c c | % 46 + c4 c c | % 47 + c4 c c | % 48 + c4 c c | % 49 + c4 c c | % 50 + c4^\fermata c c | % 51 + } +} + + +Dynamics = +{ + s4_\markup { \italic { snare pat. } } s2 | % 1 + s4_\markup { \italic { simile } } s2 | % 2 + s2.*19 + s4_\markup { \italic { spacy } } s2 | % 22 + s2.*5 + s4 s \< s \! | % 28 + s2.*22 + s4_\markup { \italic { Last time } } s2 | % 51 +} + + +\score +{ + << + << +% \new Staff = leadStaff { \new Voice = "lead" \LeadVox } + \new Staff = leadStaff { << \new Voice = "lead" \LeadVox \new Voice = "riffs" \Riffs >> } + \new Lyrics \lyricsto "lead" \LeadVoxText + \new Lyrics \lyricsto "lead" \LeadVoxTextB + >> + + \new ChoirStaff = "Rhythm" + << + \new ChordNames = "chords" \Chords + \new ChordNames = "chords2" \ChordsSup + \new RhythmicStaff = "chordRhythm" << \StaffC \Dynamics >> + >> + + \set Score.skipBars = ##t + \set Score.melismaBusyProperties = #'() + >> + + \layout + { +% \context { \Staff \RemoveEmptyStaves } +% ragged-last-bottom = ##t + ragged-last = ##t + } +} + + +\paper +{ + #(define fonts (make-pango-font-tree + "Times New Roman" + "DomCasual BT" + "Luxi Mono" + (/ staffSize 20))) + +% top-margin = -0.25 \in +} diff --git a/the-apostle's-creed.ly b/the-apostle's-creed.ly new file mode 100644 index 0000000..052039a --- /dev/null +++ b/the-apostle's-creed.ly @@ -0,0 +1,419 @@ +% Still need hairpins, directions, dynamics, etc... + +\version "2.16.0" +\include "pop-chords.ly" +\include "english.ly" + +% Good sizes are 16, 18, & 20, 24 +staffSize = #20 +#(set-default-paper-size "letter") +#(set-global-staff-size staffSize) +#(ly:set-option (quote no-point-and-click)) + +%{ Some useful characters: ‘ ’ “ ” – — † ‡ • … %} + +\header +{ +%Let's bump up the title size and switch to the chord font. :-) + + title = \markup { \override #'(font-family . sans) \fontsize #3.5 "The Apostle’s Creed" } + composer = \markup { \override #'(font-family . sans) \fontsize #1.3 "Ed Smart" } +% arranger = \markup { \override #'(font-family . sans) \fontsize #1.3 "arr. Ed Smart" } + tagline = $(string-append "Engraved by JLH and Lilypond " (lilypond-version)) +} + + +% +% Song's structure +% +Global = +{ + \key bf \major + \override Staff.TimeSignature #'style = #'() + \time 4/4 + + % Intro + + s1*4 \bar "||" % 1-4 + + % Part I + + \mark \markup { \override #'(font-family . sans) \box { A } } + s1*8 \bar "||" % 5-12 + + % Part II + + \mark \markup { \override #'(font-family . sans) \box { B } } + s1*10 \bar "||" % 13-22 + + % Part III + + \mark \markup { \override #'(font-family . sans) \box { C } } + s1*10 \bar "||" % 23-32 + + % Part IV + + \mark \markup { \override #'(font-family . sans) \box { D } } + s1*8 \bar "||" % 33-40 + + % Outro + + \mark \markup { \override #'(font-family . sans) \box { E } } + s1*5 \bar "|." % 41-45 +} + + +% +% Lead vocal +% + +LeadVox = \relative c' +{ +% \set Voice.autoBeaming = ##f +% \set Staff.instrument = #"Lead vox" + \clef G +\override Score.SpacingSpanner #'average-spacing-wishes = ##f + + % Intro + + r1 | % 1 + r1 | % 2 + r1 | % 3 + r1 | % 4 + + % Part I + + r4 f8 bf16 bf ~ bf4 bf8 c8 ~ | % 5 + c2 r4 r8 bf | % 6 + ef8. d16 ~ d8 c c8. bf16 ~ bf8 f | % 7 + ef'8. df16 ~ df8 c c8. bf16 ~ bf8 f16 f ~ | % 8 + f2 r8 f16 f d'8 c | % 9 + c2 ~ c8. g16 g8 c | % 10 + bf2. f8 f ~ | % 11 + f2. r8 f | % 12 + + % Part II + + f8. bf16 ~ bf8 bf c4 bf8 g ~ | % 13 + g2. r4 | % 14 + f8. bf16 ~ bf8 bf c4 d | % 15 + g,16 ( c8 ) c16 ~ c2. | % 16 + ef8. d16 ~ d8 c16 c c8. bf16 ~ bf8 f | % 17 + ef'8. d16 ~ d c8. d4 c8 bf | % 18 + d8. c16 ~ c2. | % 19 + c2. r8 bf16 c | % 20 + df8 c16 c ~ c bf8 bf16 ~ bf2 | % 21 + bf2. r8 f16 f | % 22 + + % Part III + + f8. bf16 ~ bf8 bf c4 bf8 g ~ | % 23 + g2. r8 f16 f | % 24 + f8. bf16 ~ bf8 bf16 bf c8. d16 ~ d8 ef | % 25 + d4 d8 d d8. c16 ~ c8 bf | % 26 + d4 r8. d16 d8. ef16 ~ ef8 d | % 27 + d8. c16 ~ c2. | % 28 + df8. c16 ~ c bf8. bf4 gf8 bf ~ | % 29 + bf4. r16 c df c8 c16 ~ c8 bf16 c ~ | % 30 + c1 ~ | % 31 + c1 | % 32 + + % Part IV + + r4 f,8 bf16 bf ~ bf8 f16 f d'8 ef | % 33 + d16 ( c8 ) c16 ~ c2 r8 bf | % 34 + ef8. d16 ~ d8 c c8. bf16 ~ bf8 f16 f | % 35 + ef'8. d16 ~ d c8. d4 r8 bf | % 36 + ef8. d16 ~ d8 c c4 bf8 bf | % 37 + f'8 ef16 ef ~ ef8 d d8. c16 ~ c8 bf | % 38 + ef4 r8 df16 c c8. bf16 ~ bf4 ~ | % 39 + bf2 bf4 ( af8 ) bf ~ | % 40 + + % Outro + + bf1 | % 41 + r2 bf4 ( af8 ) bf ~ | % 42 + bf1 ~ | % 43 + bf4 r ef ( f ) | % 44 + f1-\fermata | % 45 +} + +LeadVoxText = \lyricmode +{ + We be -- lieve _ in God, _ + the Fath -- er _ Al -- migh -- ty, _ + Cre -- a -- tor _ of Hea -- ven _ and earth, _ + and in Je -- sus Christ, _ His on -- ly Son, + our Lord, _ + + Con -- ceived by _ the Spi -- rit’s pow’r _ + born of _ the Vir -- gin Ma -- _ ry, _ + Suff -- ered _ un -- der Pi -- late, _ + was cru -- ci -- _ fied, died, and was bur -- ied. _ _ + He des -- cend -- ed in -- _ to hell, _ _ + + But the third day _ He rose a -- gain, _ + He as -- cen -- ded _ in -- to Hea -- ven _ + and sits at the right hand _ of + God the Fath -- er _ Al -- migh -- ty, _ + whence He _ shall come to judge, _ + the liv -- ing and _ the dead, _ _ + + We be -- lieve _ in the Ho -- ly Spi -- _ rit, _ + the church u -- _ ni -- ver -- sal, _ + the com -- mun -- ion _ of saints, + for -- give -- ness _ of sins, + res -- ur -- rec -- tion of _ the bo -- dy, _ + and life, e -- ver -- last -- ing, _ _ + A -- _ men. _ + A -- _ men. _ _ + A -- _ men. +} + + +% +% Riffs +% + +Riffs = \relative c'' +{ +%{ + % Intro + + s1*41 | % 1-41 + + \tiny + e8 b ds b cs b ds b | % 42 + e8 b ds b cs b ds b | % 43 + e8 b ds b cs b ds b | % 44 +%} +} + + +% +% Chord names +% + +Chords = \chordmode +{ + % Intro + + bf1 | % 1 + af1/bf | % 2 + bf1 | % 3 + af1/bf | % 4 + + % Part I + + bf1 | % 5 + af1/bf | % 6 + ef2 bf:sus2/d | % 7 + gf2 af | % 8 + bf1/f | % 9 + c1:sus2/e | % 10 + ef1/f | % 11 + f2 f/ef | % 12 + + % Part II + + bf1/d | % 13 + ef1 | % 14 + bf1/f | % 15 + c1:sus2/e | % 16 + ef2 bf:sus2/d | % 17 + c2:m7 g:m7 | % 18 + bf8./af af16 s2. | % 19 + ef2/f f | % 20 + gf1 | % 21 + ef:m11 | % 22 + + % Part III + + bf1/d | % 23 + ef1 | % 24 + bf2/f fs:dim7 | % 25 + g2:m7 g:m/f | % 26 + ef1:maj7 | % 27 + bf8./f f16 s2. | % 28 + gf1 | % 29 + ef1:m11 | % 30 + f1:7sus4 | % 31 + f8. g:m7 f8/a s2 | % 32 + + % Part IV + + bf1 | % 33 + af1 | % 34 + ef2/g bf/f | % 35 + ef2 bf/d | % 36 + c2:m7 bf/d | % 37 + ef2 g:m7 | % 38 + gf1:6 | % 39 + af1:sus2 | % 40 + + % Outro + + bf1 | % 41 + af1/bf | % 42 + bf1 | % 43 + af1/bf | % 44 + bf1 | % 45 +} + + +% +% Chord rhythms +% + +Rhythm = \relative c +{ +% \set Voice.autoBeaming = ##f +% \set Staff.instrument = #"Rhythm" + \override Staff.TimeSignature #'style = #'() + \time 4/4 + \override NoteHead #'style = #'slash +\tiny + + % Intro + + c4 c c c | % 1 + c4 c c c | % 2 + c4 c c c | % 3 + c4 c c c | % 4 + + % Part I + + c1-> | % 5 + c4 c c c | % 6 + c4 c c c | % 7 + c4 c c c | % 8 + c4 c c c | % 9 + c4 c c c | % 10 + c4 c c c | % 11 + c4 c c c | % 12 + + % Part II + + c4 c c c | % 13 + c4 c c c | % 14 + c4 c c c | % 15 + c4 c c c | % 16 + c4 c c c | % 17 + c4 c c c | % 18 + c8.-> c16-> ~ c4 c c | % 19 + c4 c c c | % 20 + c2 c4 c | % 21 + c2 c4 c | % 22 + + % Part III + + c4 c c c | % 23 + c4 c c c | % 24 + c4 c c c | % 25 + c4 c c c | % 26 + c4 c c c | % 27 + c8.-> c16-> ~ c4 c c | % 28 + c4 c c c | % 29 + c4 c c c | % 30 + c4 c c c | % 31 + c8.-> c16-> ~ c8 c-> ~ c4 c | % 32 + + % Part IV + + c4 c c c | % 33 + c4 c c c | % 34 + c4 c c c | % 35 + c4 c c c | % 36 + c4 c c c | % 37 + c4 c c c | % 38 + c4 c c c | % 39 + c4 c c c | % 40 + + % Outro + + c4 c c c | % 41 + c4 c c c | % 42 + c4 c c c | % 43 + c4 c c c | % 44 + c1-\fermata | % 45 +} + + +Dynamics = +{ + s4_\f s2. | % 1 + s1*3 + s2. s4_\markup { \italic { dr. fill } } | % 5 + s1*2 + s2. s4_\markup { \italic { dr. fill } } | % 8 + s1*3 + s2. s4 \> | % 12 + s4_\mf s2. | % 13 + s1*2 + s2 s4.. \< s16 \! | % 16 + s1 + s4 \< s2 s8 s8_\ff | % 18 + s1 + s2. s4 \> | % 20 + s4_\p s2. | % 21 + s2 s4. \< s8_\markup { \italic { dr. fill } } | % 22 + s4_\f s2. | % 23 + s1*8 + s2 s4 \< s4_\markup { \italic { dr. fill } } | % 32 + s4_\ff s2. | % 33 + s2. s4_\markup { \italic { dr. fill } } | % 34 + s1*4 + s4_\fp s2. | % 39 + s4 s \< s s8._\markup { \italic { dr. fill } } s16 \! | % 40 + s1*3 + s2 s2_\markup { \italic { rit. } } | % 44 +} + + +\score +{ + << + \set Score.skipBars = ##t + \set Score.melismaBusyProperties = #'() + +% \new ChoirStaff + << + \new ChordNames \Chords +% C edition +% \new ChordNames \transpose bf c \Chords + \new RhythmicStaff << \Rhythm \Dynamics >> + >> + + \new Staff + << + \Global % The "roadmap" that everything else depends on + \new Voice = "lead" \LeadVox +% C edition +% \new Voice = "lead" \transpose bf c' \LeadVox + \new Voice \Riffs + \new Lyrics \lyricsto "lead" \LeadVoxText + >> + >> +} + + +\paper +{ + #(define fonts (make-pango-font-tree + "Times New Roman" + "DomCasual BT" + "Luxi Mono" + (/ staffSize 20))) + +% Don't spread staves vertically across last page (default: t) +% ragged-last-bottom = ##f +% Don't spread staves vertically across the page (default: f) +% ragged-bottom = ##t +% Allow partial line for last stave (default: f) + ragged-last = ##t + +% To find out what's eating the space at the top... +% annotate-spacing = ##t +%let's try this: [It works! Huzzah!] + obsolete-page-top-space = 0 top-system-spacing #'basic-distance = #(/ obsolete-page-top-space staff-space) +} diff --git a/the-church's-one-foundation.ly b/the-church's-one-foundation.ly new file mode 100644 index 0000000..ecc908d --- /dev/null +++ b/the-church's-one-foundation.ly @@ -0,0 +1,228 @@ +\version "2.16.0" +\include "pop-chords.ly" +\include "english.ly" + +% Good sizes are 16, 18, & 20 +staffSize = #20 +#(set-default-paper-size "letter") +#(set-global-staff-size staffSize) +#(ly:set-option (quote no-point-and-click)) + +%{ Some useful characters: ‘ ’ “ ” – — † ‡ • … %} + +\header +{ + title = \markup { \override #'(font-family . sans) \fontsize #3.5 "The Church’s One Foundation" } + composer = \markup { \override #'(font-family . sans) \fontsize #1.3 "Samuel S. Wesley/Samuel J. Stone" } + arranger = \markup { \override #'(font-family . sans) \fontsize #1.3 "arr. Hammons/Dannemiller" } + tagline = $(string-append "Engraved by JLH and Lilypond " (lilypond-version)) +} + + +% +% Lead vocal +% + +LeadVox = \relative c' +{ +% \set Voice.autoBeaming = ##f +% \set Staff.instrument = #"Lead vox" + \clef G + \key d \major + \override Staff.TimeSignature #'style = #'() + \time 4/4 +\override Score.SpacingSpanner #'average-spacing-wishes = ##f + + % Verse + + \partial 4*1 fs4 | % 0 + fs4 fs g fs | % 1 + fs2 e4 d | % 2 + d4 b' a g | % 3 + fs2. g4 | % 4 + + a4 d d cs | % 5 + cs2 b4 a | % 6 + g4 a fs d | % 7 + e2. e4 | % 8 + + fs4 g a b | % 9 + b2 a4 d | % 10 + d4. cs8 b4 fs | % 11 + g2. d4 | % 12 + + fs4 fs g fs | % 13 + fs2 e4 d | % 14 + d4 e d cs | % 15 + \partial 4*3 d2. \bar "|." % 16 +} + +LeadVoxText = \lyricmode +{ + The Church -- ’s one foun -- da -- tion is Je -- sus Christ her Lord, + She is His new cre -- a -- tion by wa -- ter and the word; + From heav’n He came and sought her to be His ho -- ly bride; + With His own blood He bought her, and for her life He died. +} + +LeadVoxTextB = \lyricmode +{ + E -- lect from e -- vr’y na -- tion, yet one o’er all the earth, + Her char -- ter of sal -- va -- tion, one Lord, one faith, one birth; + One ho -- ly name she bless -- es, par -- takes one ho -- ly food, + And to one hope she press -- es, with e -- vr’y grace en -- dured. +} + +LeadVoxTextC = \lyricmode +{ + ’Mid toil and tri -- bu -- la -- tion, and tu -- mult of her war, + She waits the con -- sum -- ma -- tion of peace for e -- ver -- more; + Till with the vi -- sion glo -- rious, her long -- ing eyes are blest, + And the great Church vic -- to -- rious shall be the Church at rest. +} + +LeadVoxTextD = \lyricmode +{ + Yet she on earth hath un -- ion with God, the Three in One, + And mys -- tic sweet com -- mu -- nion with those whose rest is won; + O hap -- py ones and ho -- ly! Lord, give us grace that we + Like them, the meek and low -- ly, on high may dwell with Thee. +} + + +% +% Chord names +% + +Chords = \chordmode +{ + \override SeparatingGroupSpanner #'padding = #'2.0 +%Bah, can't we set this globally? +% \popChords + + \partial 4*1 s4 | % 0 + d2 g4 d | % 1 + d2 g | % 2 + e2:m7 a:7 | % 3 + d1 | % 4 + + d2 fs:7 | % 5 + g1 | % 6 + e2:m7 d | % 7 + a1 | % 8 + + d2. g4 | % 9 + s2 d | % 10 + b2:m b:7 | % 11 + e1:m | % 12 + + d2 g | % 13 + e1:m | % 14 + g2 a:7 | % 15 + d2. | % 16 +} + + +% +% Chord rhythms +% + +% Use a RhythmicStaff on the chords instead of this? +% It almost works, but not quite. Doesn't collapse chords above to single notes... + +%Slash = { \override NoteHead #'style = #'slash } +%Cross = { \override NoteHead #'style = #'cross } + +StaffC = \relative c +{ + \override Staff.TimeSignature #'style = #'() + \time 4/4 + \override NoteHead #'style = #'slash + + % Verse + + \partial 4*1 r4 | % 0 + c4 c c c | % 1 + c4 c c c | % 2 + c4 c c c | % 3 + c4 c c c | % 4 + + c4 c c c | % 5 + c4 c c c | % 6 + c4 c c c | % 7 + c4 c c c | % 8 + + c4 c c c | % 9 + c4 c c c | % 10 + c4 c c c | % 11 + c4 c c c | % 12 + + c4 c c c | % 13 + c4 c c c | % 14 + c4 c c c | % 15 + c2. \bar "|." % 16 +} + + +Dynamics = +{ +%{ + s4_\markup { \italic { snare on 4, bass 8th notes } } s2. | % 1 + s1*26 | % 2-27 + s2 s4 \< s | % 28 + s4_\f s_\markup { \hspace #0.0 \raise #-2.0 \italic { snare 2 & 4 } } s2 | % 29 + s1*8 | % 30-37 + s2 s4 \< s \! | % 38 + s1 | % 39 + s2. s8 \> s \! | % 40 + s4_\markup { \hspace #0.0 \raise #-2.0 \italic { bass 8th notes, band builds each repeat } } s2. | % 41 + s1*8 | % 42-49 + s4 \< s2. | % 50 + s4_\f s2. | % 51 + s1*5 | % 52-56 + s4_\markup { \hspace #0.0 \raise #-2.0 \italic { rit. last time } } s2. | % 57 + s2 s4 \< s \! | % 58 +%} +} + + +\score +{ + << + << + \new Staff = leadStaff { \new Voice = "lead" \LeadVox } + \new Lyrics \lyricsto "lead" \LeadVoxText + \new Lyrics \lyricsto "lead" \LeadVoxTextB + \new Lyrics \lyricsto "lead" \LeadVoxTextC + \new Lyrics \lyricsto "lead" \LeadVoxTextD + >> + + \new ChoirStaff = "Rhythm" + << + \new ChordNames = "chords" \Chords + \new RhythmicStaff = "chordRhythm" << \StaffC \Dynamics >> + >> + + \set Score.skipBars = ##t + \set Score.melismaBusyProperties = #'() + >> + + \layout + { +% \context { \Staff \RemoveEmptyStaves } +% ragged-last-bottom = ##t + ragged-last = ##t + } +} + + +\paper +{ + #(define fonts (make-pango-font-tree + "Times New Roman" + "DomCasual BT" + "Luxi Mono" + (/ staffSize 20))) + +% top-margin = -0.25 \in +} diff --git a/the-first-noel.ly b/the-first-noel.ly new file mode 100755 index 0000000..cd7ae19 --- /dev/null +++ b/the-first-noel.ly @@ -0,0 +1,383 @@ +\version "2.16.0" +\include "pop-chords.ly" +\include "english.ly" + +% Good sizes are 16, 18, & 20 +staffSize = #18 +#(set-default-paper-size "letter") +#(set-global-staff-size staffSize) +#(ly:set-option (quote no-point-and-click)) + +\header +{ +%Let's bump up the title size and switch to the chord font. :-) + + title = \markup { \override #'(font-family . sans) \fontsize #3.5 "The First Noel" } + composer = \markup { \override #'(font-family . sans) \fontsize #1.3 "English Carol" } + arranger = \markup { \override #'(font-family . sans) \fontsize #1.3 "arr. Ed Smart" } + tagline = "Engraved by JLH and Lilypond 2.8.6" +} + + +% +% Lead vocal +% + +LeadVox = \relative c' +{ +% \set Voice.autoBeaming = ##f +% \set Staff.instrumentName = #"Lead vox" + \clef G + \key d \major + \override Staff.TimeSignature #'style = #'() + \time 3/4 +\override Score.SpacingSpanner #'average-spacing-wishes = ##f + + % Intro + + \partial 4*1 s4 \bar "||" % 0 + s2. | % 1 + s2. | % 2 + s2. | % 3 + s2. | % 4 + + \repeat volta 3 + { + s2. | % 5 + s2. | % 6 + s2. | % 7 +\break % Bleah + s2 fs8 e \bar "||" % 8 + + % Verse + +\mark \markup { \override #'(font-family . sans) { \box { A } } } + + d4. ( e8 ) fs ( g ) | % 9 + a2 b8 ( cs ) | % 10 + d4 cs b | % 11 + a2 b8 cs | % 12 + d4 ( cs ) b | % 13 + a4 ( b ) cs | % 14 + d4 ( a ) g | % 15 + fs2 fs8 ( e ) | % 16 + +\mark \markup { \override #'(font-family . sans) { \box { A9 } } } + + d4. ( e8 ) fs ( g ) | % 17 + a2 b8 ( cs ) | % 18 + d4 ( cs ) b | % 19 + a2 b8 ( cs ) | % 20 + d4 cs b | % 21 + a4 ( b ) cs | % 22 + d4 ( a ) g | % 23 + fs2 fs8 ( e ) \bar "||" % 24 +\break % bah, only valid for size 18 + + % Chorus + +%\mark \markup { \override #'(font-family . sans) { \box { B } } } +\once \override Score.RehearsalMark #'self-alignment-X = #left +\mark \markup { \override #'(font-family . sans) { \box { B } } \hspace #1.0 \raise #2.0 \musicglyph #"scripts.segno" } + + d4. ( e8 ) fs ( g ) | % 25 + a2 d8 ( cs ) | % 26 + b2 b4 | % 27 + a2. | % 28 + d4 cs b | % 29 + a4 ( b ) cs | % 30 + } + \alternative + { + { + d4 ( a ) g | % 31 + d2. | % 32 + } + { + d'4 ( a ) g | % 33 + fs2^\markup { \hspace #3.0 \raise #1.0 { D.S. } } fs8 ( e ) \bar "||" % 34 + } + { + d'4 ( a ) g | % 35 + d2. | % 36 + } + } + + s2. | % 37 + s2. | % 38 + s2. | % 39 + s2. \bar "|." % 40 +} + +LeadVoxText = \lyricmode +{ + The _ first _ no -- _ el the _ an -- gel did say + Was to cer -- tain poor shep -- herds in fields as they lay + In _ fields _ where _ they lay _ keep -- ing their sheep + On a cold win -- ter’s night _ that was _ so deep. + + No -- _ el, _ no -- _ el! No -- _ el, no -- el! + Born is the king _ of Is -- _ ra -- el! + + Is -- _ ra -- el! + No -- _ + + Is -- _ ra -- el! +} + +LeadVoxTextB = \lyricmode +{ + They _ look -- _ ed _ up and _ saw _ a star + Shi -- ning in _ the east _ be -- yond _ them far + And _ to _ the _ earth it _ gave _ great light, + And _ so it con -- tin -- ued both day _ and night. +} + + +Riffs = \relative c' +{ + \clef G + \key d \major + \override Staff.TimeSignature #'style = #'() + \time 3/4 +\override Score.SpacingSpanner #'average-spacing-wishes = ##f + + % Intro + + \tiny + \partial 4*1 fs8 e | % 0 + d4. e8 fs g | % 1 + a2 d8 cs | % 2 + b2 b4 | % 3 + a2. | % 4 + + d4 cs b | % 5 + a4 b cs | % 6 + d4 a g | % 7 + fs2 s4 | % 8 + + s2.*28 + + d'4 cs b | % + a4 b cs | % + d4 a g | % + fs2.^\fermata | % + \normalsize +} + + +% +% Chord names +% + +Chords = \chordmode +{ +%Bah, can't we set this globally? +% \popChords + + % Intro + + \partial 4*1 d4/a | % 0 + d2.:9^7 | % 1 + a2.:9^7 | % 2 + g2.:9^7 | % 3 + d2 a4:9^7/cs | % 4 + + \repeat volta 3 + { + % Verse + + g4:6/b a:11^9.7 g | % 5 + d4:sus2 g fs:m | % 6 + e2:m7 a4:sus4.7 | % 7 + d2 d4/a | % 8 + + d2.:9^7 | % 9 + fs2.:m7 | % 10 + g2.:maj7 | % 11 + d2.:9^7/fs | % 12 + g2.:maj9 | % 13 + d2./fs | % 14 + e2.:m7 | % 15 + a4:13 b:m a/cs | % 16 + + d2.:9^7 | % 17 + a2.:sus2/cs | % 18 + g2./b | % 19 + d2./a | % 20 + g2.:maj9 | % 21 + d2.:9^7/fs | % 22 + e2:m7 a4:sus4.7 | % 23 + d4 a:13 a:7 | % 24 + + % Chorus + + d2.:9^7 | % 25 + a2:9^7 d4:9^7/fs | % 26 + g2. | % 27 + d2 a4:sus2/cs | % 28 + g4:6/b a:11^9.7 g | % 29 + d4:sus2/fs g fs:m | % 30 + } + \alternative + { + { + e2:m7 a4:sus4.7 | % 31 + d2 d4/cs | % 32 + } + { + e2:m7 a4:sus4.7 | % 33 + d2 d4/a | % 34 + } + { + e2:m7 a4:sus4.7 | % 35 + d2 d4/cs | % 36 + } + } + + g4:6/b a:11^9.7 g | % 37 + d4:sus2/fs g fs:m | % 38 + e2:m7 a4:sus4.7 | % 39 + d2. | % 40 +} + + +% +% Chord rhythms +% + +% Use a RhythmicStaff on the chords instead of this? +% It almost works, but not quite. Doesn't collapse chords above to single notes... + +StaffC = \relative c +{ +% \set Voice.autoBeaming = ##f +% \set Staff.instrumentName = #"Rhythm" + \override Staff.TimeSignature #'style = #'() + \time 3/4 + \override NoteHead #'style = #'slash + + % Intro + + \partial 4*1 c4 \bar "||" % 0 + c4 c c | % 1 + c4 c c | % 2 + c4 c c | % 3 + c4 c c | % 4 + + \repeat volta 3 + { + % Verse + + c4 c c | % 5 + c4 c c | % 6 + c4 c c | % 7 + c4 c c \bar "||" % 8 + + c4 c c | % 9 + c4 c c | % 10 + c4 c c | % 11 + c4 c c | % 12 + c4 c c | % 13 + c4 c c | % 14 + c4 c c | % 15 + c4 c c | % 16 + + c4 c c | % 17 + c4 c c | % 18 + c4 c c | % 19 + c4 c c | % 20 + c4 c c | % 21 + c4 c c | % 22 + c4 c c | % 23 + c4 c c \bar "||" % 24 + + % Chorus + + c4 c c | % 25 + c4 c c | % 26 + c4 c c | % 27 + c4 c c | % 28 + c4 c c | % 29 + c4 c c | % 30 + } + \alternative + { + { + c4 c c | % 31 + c4 c c | % 32 + } + { + c4 c c | % 33 + c4 c c | % 34 + } + { + c4 c c | % 35 + c4 c c | % 36 + } + } + + c4 c c | % 37 + c4 c c | % 38 + c4 c c | % 39 + c2.^\fermata \bar "|." % 40 +} + + +Dynamics = +{ +%disnowok +% \override TextScript #'staff-padding = #-4.0 + + \once \override TextScript #'extra-offset = #'( 0.0 . -1.0 ) + \partial 4*1 s8_\markup { \italic { guitar, light perc. } } s8 + + s2.*16 + + s4_\markup { \italic { bass in 1st X } } s2 + + s2.*7 + + s4_\markup { \italic { add snare } } s2 +} + + +\score +{ + << + << +% \new Staff = leadStaff { \new Voice = "lead" \LeadVox } + \new Staff = leadStaff { << \new Voice = "lead" \LeadVox \new Voice = "riffs" \Riffs >> } + \new Lyrics \lyricsto "lead" \LeadVoxText + \new Lyrics \lyricsto "lead" \LeadVoxTextB + >> + + \new ChoirStaff = "Rhythm" + << + \new ChordNames = "chords" \Chords + \new RhythmicStaff = "chordRhythm" << \StaffC \Dynamics >> + >> + + \set Score.skipBars = ##t + \set Score.melismaBusyProperties = #'() + >> + + \layout + { +% \context { \Staff \RemoveEmptyStaves } + ragged-last-bottom = ##t + ragged-last = ##t + } +} + + +\paper +{ + #(define fonts (make-pango-font-tree + "Times New Roman" + "DomCasual BT" + "Luxi Mono" + (/ staffSize 20))) + +% top-margin = -0.25 \in +} diff --git a/the-heart-of-worship.ly b/the-heart-of-worship.ly new file mode 100755 index 0000000..e61f367 --- /dev/null +++ b/the-heart-of-worship.ly @@ -0,0 +1,430 @@ +% Still needs hairpins/etc + +\version "2.16.0" +\include "pop-chords.ly" +\include "english.ly" + +% Good sizes are 16, 18, & 20 +staffSize = #16 +#(set-default-paper-size "letter") +#(set-global-staff-size staffSize) +#(ly:set-option (quote no-point-and-click)) + +\header +{ +%Let's bump up the title size and switch to the chord font. :-) + + title = \markup { \override #'(font-family . sans) + { \fontsize #3.5 "The Heart Of Worship" } } + composer = \markup { \override #'(font-family . sans) "Michael W. Smith" } + arranger = \markup { \override #'(font-family . sans) "arr. Ed Smart" } + tagline = "Engraved by JLH and Lilypond 2.8.2" +} + + +% +% Lead vocal +% + +LeadVox = \relative c'' +{ +% \set Voice.autoBeaming = ##f +% \set Staff.instrumentName = #"Lead vox" + \clef G + \key d \major + \override Staff.TimeSignature #'style = #'() + \time 4/4 +\override Score.SpacingSpanner #'average-spacing-wishes = ##f + + % Intro + + r8^\markup { \hspace #0.0 \raise #1.5 { 8th note ballad } } \tiny a a a a d, d b' ~ | % 1 + b8 a4 fs8 ~ fs e4 d16 d | % 2 + fs8 fs16 g ~ g8 fs ~ fs2 | % 3 + fs8 fs16 g ~ g8 fs ~ fs e4. ~ | % 4 + e1 \normalsize \bar "||:" % 5 + + \repeat volta 2 + { + % Verse + +\once \override Score.RehearsalMark #'self-alignment-X = #left +\mark \markup { \override #'(font-family . sans) { \box { A } } \italic { 1st time piano } } + + r4. a16 a a8 d,4 e8 ~ | % 6 + e2 fs8 e e d16 d ~ | % 7 + d4. a'16 a a8 d,4 e8 ~ | % 8 + e2 r | % 9 + r4. a16 a a8 d,4 e8 ~ | % 10 + e2 fs8 e e d16 d ~ | % 11 + d4. a'16 a a8 d,4 e8 ~ | % 12 + e2 r \bar "||" % 13 + + % Prechorus + +\once \override Score.RehearsalMark #'self-alignment-X = #left +\mark \markup { \override #'(font-family . sans) { \box { B } } \hspace #1.0 \raise #2.0 \musicglyph #"scripts.segno" \italic { band in } } + + r8 g g g fs e d e ~ | % 14 + e4. e16 d fs8 e d b | % 15 + r8 g' g g fs e d e ~ | % 16 + e2 r | % 17 + r8 g g g fs e d e ~ | % 18 + e4. e16 d fs8 e d b | % 19 + r8 g' g g a fs b fs16 e ~ | % 20 + e2 r \bar "||" % 21 + + % Chorus + +\once \override Score.RehearsalMark #'self-alignment-X = #left +\mark \markup { \override #'(font-family . sans) { \box { C } } \italic { snare } } + + r8 a a a a d, d b' ~ | % 22 + b8 a4 fs8 ~ fs e r d16 d | % 23 + fs8 fs16 g ~ g8 fs ~ fs2 | % 24 + fs8 fs16 g ~ g8 fs ~ fs e4 d8 | % 25 + r8 a' a a a d, d b' ~ | % 26 + b8 a4 fs8 ~ fs e r d16 d | % 27 + fs8 fs16 g ~ g8 fs ~ fs2 | % 28 +\once \override Score.RehearsalMark #'self-alignment-X = #right +\mark \markup { \italic { to Coda } \hspace #1.0 \musicglyph #"scripts.coda" } + } + \alternative + { + { + fs8 fs16 g ~ g8 fs ~ fs e4 d8 ~ | % 29 + d2 r | % 30 + R1 | % 31 + } + { + fs8 fs16 g ~ g8 fs ~ fs e4 d8 ~ \bar "||" % 32 + } + } + + % Solo + +\once \override Score.RehearsalMark #'self-alignment-X = #left +\mark \markup { \override #'(font-family . sans) { \box { D } } \italic { solo } } + + d2 r | % 33 +%blegh +\break + R1 | % 34 + R1 | % 35 + R1 | % 36 + R1 | % 37 + R1 | % 38 + R1 | % 39 + R1 \bar "||" % 40 + +\once \override Score.RehearsalMark #'self-alignment-X = #right +\mark \markup { \italic { D.S. al Coda } } + + % Coda + +%\stopStaff s1 \bar "" \startStaff % That removed the spurious floating bar line from line break +\stopStaff s1 \startStaff +\set Score.currentBarNumber = #41 + +\once \override Score.RehearsalMark #'self-alignment-X = #left +\mark \markup { { \musicglyph #"scripts.coda" } "Coda" } + + fs8 fs16 g ~ g8 fs ~ fs e4 d8 \bar "||" % 41 + +\mark \markup { \override #'(font-family . sans) { \box { E } } } + + r8 a' a a a d, d b' ~ | % 42 + b8 a4 fs8 ~ fs e r d16 d | % 43 + fs8 fs16 g ~ g8 fs ~ fs2 | % 44 + fs8 fs16 g ~ g8 fs ~ fs e4 d8 | % 45 + r8 a' a a a d, d b' ~ | % 46 + b8 a4 fs8 ~ fs e r d16 d | % 47 + fs8 fs16 g ~ g8 fs ~ fs2 | % 48 + fs8 fs16 g ~ g8 fs ~ fs e4 d16 d | % 49 + + fs8 fs16 g ~ g8 fs ~ fs2 | % 50 + fs8 fs16 g ~ g8 fs ~ fs e4 d16 d | % 51 + + fs8 fs16 g ~ g8 fs ~ fs2 | % 50 + fs8 fs16 g ~ g8 fs ~ fs e4 d8 ~ | % 53 + d1^\fermata \bar "|." % 54 +} + +LeadVoxText = \lyricmode +{ + _ _ _ _ _ _ _ _ _ _ _ _ _ _ + _ _ _ _ _ _ _ _ _ _ _ _ _ _ + + When the mu- sic fades _ all is stripped a- way _ + And I simp- ly come _ + Long- ing just to bring _ some- thing that's of worth _ + That will bless your heart _ + + I'll bring you more than a song _ + for a song in it- self + Is not what you have re- quired _ + You see much deep- er with- in _ + through the way things ap- pear + You're look- ing in- to my heart __ _ _ + + I'm com- ing back to the heart _ of wor- _ ship + and it's all a- bout _ you, _ all a- bout _ you _ Je- sus + I'm sor- ry Lord for the thing _ I've made _ it + when it's all a- bout _ you, _ all a- bout _ you _ Je- sus _ + + all a- bout _ you _ Je- sus _ + all a- bout _ you _ Je- sus + + I'm com- ing back to the heart _ of wor- _ ship + and it's all a- bout _ you, _ all a- bout _ you _ Je- sus + I'm sor- ry Lord for the thing _ I've made _ it + when it's all a- bout _ you, _ all a- bout _ you _ Lord + when it's all a- bout _ you, _ all a- bout _ you _ Lord + when it's all a- bout _ you, _ all a- bout _ you _ Je- sus +} + +LeadVoxTextB = \lyricmode +{ + _ _ _ _ _ _ _ _ _ _ _ _ _ _ + _ _ _ _ _ _ _ _ _ _ _ _ _ _ + + King of end- less worth _ no one could ex- press _ + How much you de- serve _ + Though I'm weak and poor _ all I have is yours _ + Ev- ery sin- gle breath _ +} + + +% +% Chord names +% + +Chords = \chordmode +{ +%Bah, can't we set this globally? +% \popChords + + % Intro + + d1 | % 1 + a1:sus2/cs | % 2 + e4.:m7 d:sus2/fs s4 | % 3 + g4. a:sus4 s4 | % 4 + a1 | % 5 + + \repeat volta 2 + { + % Verse + + d1 | % 6 + a1 | % 7 + e1:m7 | % 8 + a2:sus4 a | % 9 + d1 | % 10 + a1:sus2/cs | % 11 + e1:m7 | % 12 + a2:sus4 a | % 13 + + % Prechorus + + e2:m7 d:sus2/fs | % 14 + a2:sus4 d/fs | % 15 + e2:m7 d:sus2/fs | % 16 + a2:sus4 a | % 17 + e2:m7 d:sus2/fs | % 18 + a2:sus4 d/fs | % 19 + e2:m7 d:sus2/fs | % 20 + a2:sus4 a | % 21 + + % Chorus + + d1 | % 22 + a1:sus2/cs | % 23 + e4.:m7 d:sus2/fs s4 | % 24 + g4. a:sus4 a4 | % 25 + d1 | % 26 + a1:sus2/cs | % 27 + e4.:m7 d:sus2/fs s4 | % 28 + } + \alternative + { + { + g4. a:sus4 a4 | % 29 + d1 | % 30 + a2:sus4 a | % 31 + } + { + g4. a:sus4 a4 | % 32 + } + } + + % Solo + + d1 | % 33 + a1:sus2/cs | % 34 + e4.:m7 d:sus2/fs s4 | % 35 + g4. a:sus4 a4 | % 36 + d1 | % 37 + a1:sus2/cs | % 38 + e4.:m7 d:sus2/fs s4 | % 39 + g4. a:sus4 a4 | % 40 + + % Coda + +s1 + + g4. a:sus4 a4 | % 41 + d1 | % 42 + a1:sus2/cs | % 43 + e4.:m7 d:sus2/fs s4 | % 44 + g4. a:sus4 a4 | % 45 + d1 | % 46 + a1:sus2/cs | % 47 + e4.:m7 d:sus2/fs s4 | % 48 + g4. a:sus4 a4/fs | % 49 + e4.:m7 d:sus2/fs s4 | % 50 + g4. a:sus4 a4/fs | % 51 + e4.:m7 d:sus2/fs s4 | % 52 + g4. a:sus4 a4 | % 53 + d1 | % 54 +} + + +% +% Chord rhythms +% + +% Use a RhythmicStaff on the chords instead of this? +% It almost works, but not quite. Doesn't collapse chords above to single notes... + +StaffC = \relative c +{ +% \set Voice.autoBeaming = ##f +% \set Staff.instrumentName = #"Rhythm" + \override Staff.TimeSignature #'style = #'() + \time 4/4 + \override NoteHead #'style = #'slash + + % Intro + + c4-\f c c c | % 1 + c4 c c c | % 2 + c4.-> c8-> ~ c4 c | % 3 + c4.-> c8-> ~ c2 | % 4 + c1 | % 5 + + \repeat volta 2 + { + % Verse + + c4-\mp c c c | % 6 + c4 c c c | % 7 + c4 c c c | % 8 + c4 c c c | % 9 + c4 c c c | % 10 + c4 c c c | % 11 + c4 c c c | % 12 + c4 c c c \bar "||" % 13 + + % Prechorus + + c4-\mf c c c | % 14 + c4 c c c | % 15 + c4 c c c | % 16 + c4 c c c | % 17 + c4 c c c | % 18 + c4 c c c | % 19 + c4 c c c | % 20 + c4 c c c \bar "||" % 21 + + % Chorus + + c4-\f c c c | % 22 + c4 c c c | % 23 + c4.-> c8-> ~ c4 c | % 24 + c4.-> c8-> ~ c4 c | % 25 + c4 c c c | % 26 + c4 c c c | % 27 + c4.-> c8-> ~ c4 c | % 28 + } + \alternative + { + { + c4.-> c8-> ~ c4 c | % 29 + c4 c c c | % 30 + c4 c c c | % 31 + } + { + c4.-> c8-> ~ c4 c \bar "||" % 32 + } + } + + % Solo + + c4 c c c | % 33 + c4 c c c | % 34 + c4.-> c8-> ~ c4 c | % 35 + c4.-> c8-> ~ c4 c | % 36 + c4 c c c | % 37 + c4 c c c | % 38 + c4.-> c8-> ~ c4 c | % 39 + c4.-> c8-> ~ c4 c | % 40 + + % Coda + +\stopStaff s1 \startStaff | +\set Score.currentBarNumber = #41 + + c4.-> c8-> ~ c4 c \bar "||" % 41 + c4 c c c | % 42 + c4 c c c | % 43 + c4.-> c8-> ~ c4 c | % 44 + c4.-> c8-> ~ c4 c | % 45 + c4 c c c | % 46 + c4 c c c | % 47 + c4.-> c8-> ~ c4 c | % 48 + c4.-> c8-> ~ c4 c | % 49 + c4.-> c8-> ~ c4 c | % 50 + c4.-> c8-> ~ c4 c | % 51 + c4.-> c8-> ~ c4 c | % 52 + c4.-> c8->_\markup { \italic { rit. } } ~ c4 c | % 53 + c1^\fermata \bar "|." % 54 +} + + +\score +{ + << + << + \new Staff = leadStaff { \new Voice = "lead" \LeadVox } + \new Lyrics \lyricsto "lead" \LeadVoxText + \new Lyrics \lyricsto "lead" \LeadVoxTextB + >> + + \new ChoirStaff = "Rhythm" + << + \new ChordNames = "chords" \Chords + \new RhythmicStaff = "chordRhythm" \StaffC + >> + + \set Score.skipBars = ##t + \set Score.melismaBusyProperties = #'() + >> + + \layout + { +% \context { \Staff \RemoveEmptyStaves } +% ragged-last-bottom = ##t + ragged-last = ##t + } +} + + +\paper +{ + #(define fonts (make-pango-font-tree + "Times New Roman" + "DomCasual BT" + "Luxi Mono" + (/ staffSize 20))) +} diff --git a/the-lord's-prayer.ly b/the-lord's-prayer.ly new file mode 100644 index 0000000..87107cc --- /dev/null +++ b/the-lord's-prayer.ly @@ -0,0 +1,412 @@ +% Still need hairpins, directions, dynamics, etc... + +\version "2.16.0" +\include "pop-chords.ly" +\include "english.ly" + +% Good sizes are 16, 18, & 20 +staffSize = #24 +#(set-default-paper-size "letter") +#(set-global-staff-size staffSize) +#(ly:set-option (quote no-point-and-click)) + +%{ Some useful characters: ‘ ’ “ ” – — † ‡ • … %} + +\header +{ +%Let's bump up the title size and switch to the chord font. :-) + + title = \markup { \override #'(font-family . sans) \fontsize #3.5 "The Lord’s Prayer" } +% composer = \markup { \override #'(font-family . sans) \fontsize #1.3 "Lenny LeBlanc" } + arranger = \markup { \override #'(font-family . sans) \fontsize #1.3 "arr. Ed Smart" } + tagline = $(string-append "Engraved by JLH and Lilypond " (lilypond-version)) +} + + +% +% Song's structure +% +Global = +{ + \key bf \major +%New key! +% \key c \major + \override Staff.TimeSignature #'style = #'() + \time 4/4 + + % Intro + + s1*2 \bar "||" % 1-2 + + % Part I + + \mark \markup { \override #'(font-family . sans) \box { A } } + s1*9 \bar "||" % 3-11 + + % Part II + + \mark \markup { \override #'(font-family . sans) \box { B } } + s1*8 \bar "||" % 12-19 + + % Part III + + \time 3/4 + \mark \markup { \override #'(font-family . sans) \box { C } } + s2.*10 \bar "||" % 20-29 + + % Part IV + + \mark \markup { \override #'(font-family . sans) \box { D } } + s2.*4 \bar "||" % 30-33 + + % Part V + + \mark \markup { \override #'(font-family . sans) \box { E } } + s2.*3 | % 34-36 + \time 4/4 + s1*2 | % 37-38 + \time 2/4 + s2 | % 39 + \time 4/4 + s1 \bar "||" % 40 + + % Outro + + \time 3/4 + \mark \markup { \override #'(font-family . sans) \box { F } } + s2.*5 \bar "|." % 41-45 +} + + +% +% Lead vocal +% + +LeadVox = \relative c' +{ +% \set Voice.autoBeaming = ##f +% \set Staff.instrument = #"Lead vox" + \clef G +\override Score.SpacingSpanner #'average-spacing-wishes = ##f + + % Intro + + r1 | % 1 + r2 r4 f | % 2 + + % Part I + + f2 f ~ | % 3 + f1 | % 4 + r4 bf a g | % 5 + g2 f ~ | % 6 + f4 r \times 2/3 { bf,4 c d } | % 7 + ef1 ~ | % 8 + ef2 ef4. ( d8 ) | % 9 + d1 ~ | % 10 + d2. r4 | % 11 + + % Part II + + r4 bf' a g | % 12 + f1 | % 13 + r4 d' c bf | % 14 + a2. a4 | % 15 + bf2. g8 ef | % 16 + f2. bf,4 | % 17 + c2. ~ c8 ( bf ) | % 18 + bf1 | % 19 + + % Part III + + ef4 d g | % 20 + f2 bf,4 | % 21 + ef2 ef4 | % 22 + d2 f8 f | % 23 + g4 g g | % 24 + a2 e4 | % 25 + g4. d8 d d | % 26 + d4 cs2 | % 27 + r2. | % 28 + r2 cs4 | % 29 + + % Part IV + + d8. d16 d4 \times 2/3 { d8 d d } | % 30 + f4 ef4. ef16 ef | % 31 + e8. e16 e4 e | % 32 + g4 f f | % 33 + + % Part V + + bf2 a8. bf16 | % 34 + d4 c \times 2/3 { r8 b c } | % 35 + d4 c \times 2/3 { r8 b c } | % 36 + ef2 d4 r8 c | % 37 + f2. ( ~ f8 bf, ) | % 38 + bf2 | % 39 + c2. ( bf4-\fermata ) | % 40 + + % Outro + + bf2. ~ | % 41 + bf2. | % 42 + r2. | % 43 + r2. | % 44 + r2.-\fermata | % 45 +} + +LeadVoxText = \lyricmode +{ + Our Fa -- ther, _ who art in hea -- ven, _ + hal -- low -- ed be _ thy _ name. _ + Thy king -- dom come, thy will be done, + on Earth, as it in in hea -- _ _ ven. + + Give us this day our dai -- ly bread + and for -- give us our debts + as we for -- give our debt -- ors. + + And lead us not in -- to temp -- ta -- tion, + but de -- liv -- er us from e -- vil, + for thine is the king -- dom, + and the pow -- er and the glo -- ry + for -- e -- _ _ ver + A -- _ men. _ +} + + +% +% Riffs +% + +Riffs = \relative c'' +{ +%{ + % Intro + + s1*41 | % 1-41 + + \tiny + e8 b ds b cs b ds b | % 42 + e8 b ds b cs b ds b | % 43 + e8 b ds b cs b ds b | % 44 +%} +} + + +% +% Chord names +% + +Chords = \chordmode +{ + % Intro + + bf1:sus2 | % 1 + s1 | % 2 + + % Part I + + f1/a | % 3 + f1 | % 4 + g1:m11 | % 5 + c2:m7 f4:sus4 f | % 6 + bf1/d | % 7 + c1:m7 | % 8 + ef1/f | % 9 + bf1:sus2 | % 10 + s2 f/a | % 11 + + % Part II + + g1:m7 | % 12 + d1:m7 | % 13 + g1:m7 | % 14 + d1:7 | % 15 + ef2:maj7 c:m7 | % 16 + bf1/f | % 17 + ef2/f f | % 18 + bf1:sus2 | % 19 + + % Part III + + ef4 bf/d c:m7 | % 20 + d2:m7 g4:m7 | % 21 + c2:m7 f4 | % 22 + bf2.:sus2 | % 23 + g2.:m7 | % 24 + d2.:7 | % 25 + e2.:m7.5- | % 26 + a4:sus4.7 a2:7 | % 27 + e2.:m7.5- | % 28 + a4:sus4.7 a2:7 | % 29 + + % Part IV + + bf2.:sus2 | % 30 + c2.:m11 | % 31 + c2. | % 32 + ef2/f f4 | % 33 + + % Part V + + bf2. | % 34 + ef4:maj7 ef2:6 | % 35 + c2.:sus2/e | % 36 + gf2:6 gf4:aug gf:sus4 | % 37 + bf1/f | % 38 + c2:m7 | % 39 + c2:m7/f f | % 40 + + % Outro + + ef4/bf bf ef/bf | % 41 + g2.:m11 | % 42 + c4:m7 bf g:m | % 43 + af2.:6.9 | % 44 + bf2.:sus2 | % 45 +} + + +% +% Chord rhythms +% + +Rhythm = \relative c +{ +% \set Voice.autoBeaming = ##f +% \set Staff.instrument = #"Rhythm" + \override Staff.TimeSignature #'style = #'() + \time 4/4 + \override NoteHead #'style = #'slash +\tiny + + % Intro + + c4 c c c | % 1 + c4 c c c | % 2 + + % Part I + + c4 c c c | % 3 + c4 c c c | % 4 + c4 c c c | % 5 + c4 c c c | % 6 + c1 | % 7 + c4 c c c | % 8 + c4 c c c | % 9 + c4 c c c | % 10 + c4 c c c | % 11 + + % Part II + + c4 c c c | % 12 + c4 c c c | % 13 + c4 c c c | % 14 + c4 c c c | % 15 + c2 c | % 16 + c4 c c c | % 17 + c4 c c c | % 18 + c4 c c c | % 19 + + % Part III + + c4 c c | % 20 + c4 c c | % 21 + c4 c c | % 22 + c4 c c | % 23 + c4 c c | % 24 + c4 c c | % 25 + c4 c c | % 26 + c4 c c | % 27 + c4 c c | % 28 + c4 c c | % 29 + + % Part IV + + c4 c c | % 30 + c4 c c | % 31 + c4 c c | % 32 + c4 c c | % 33 + + % Part V + + c4 c c | % 34 + c4 c c | % 35 + c4 c c | % 36 + c4 c c c | % 37 + c4 c c c | % 38 + c2 | % 39 + c2 c | % 40 + + % Outro + + c4 c c | % 41 + c4 c c | % 42 + c4 c c | % 43 + c2. | % 44 + c2.-\fermata | % 45 +} + + +Dynamics = +{ +%{ + % Intro + s4_\markup { \italic { Ac. gtr only } } s2. | % 1 + + s1*3 | % 2-4 + + s4_\markup { \italic { Band in } } s2. | % 5 +%} +} + + +\score +{ + << + \set Score.skipBars = ##t + \set Score.melismaBusyProperties = #'() + +% \new ChoirStaff + << + \new ChordNames \Chords +% C edition +% \new ChordNames \transpose bf c \Chords + \new RhythmicStaff << \Rhythm \Dynamics >> + >> + + \new Staff + << + \Global % The "roadmap" that everything else depends on + \new Voice = "lead" \LeadVox +% C edition +% \new Voice = "lead" \transpose bf c' \LeadVox + \new Voice \Riffs + \new Lyrics \lyricsto "lead" \LeadVoxText + >> + >> +} + + +\paper +{ + #(define fonts (make-pango-font-tree + "Times New Roman" + "DomCasual BT" + "Luxi Mono" + (/ staffSize 20))) + +% Don't spread staves vertically across last page (default: t) +% ragged-last-bottom = ##f +% Don't spread staves vertically across the page (default: f) +% ragged-bottom = ##t +% Allow partial line for last stave (default: f) + ragged-last = ##t + +% To find out what's eating the space at the top... +% annotate-spacing = ##t +%let's try this: [It works! Huzzah!] + obsolete-page-top-space = 0 top-system-spacing #'basic-distance = #(/ obsolete-page-top-space staff-space) +} diff --git a/there's-a-sweet-sweet-spirit.ly b/there's-a-sweet-sweet-spirit.ly new file mode 100644 index 0000000..8742413 --- /dev/null +++ b/there's-a-sweet-sweet-spirit.ly @@ -0,0 +1,382 @@ +\version "2.16.0" +\include "pop-chords.ly" +\include "english.ly" + +% Good sizes are 16, 18, & 20 +staffSize = #18 +#(set-default-paper-size "letter") +#(set-global-staff-size staffSize) +#(ly:set-option (quote no-point-and-click)) + +%{ Some useful characters: ‘ ’ “ ” – — † ‡ • … %} + +\header +{ +%Let's bump up the title size and switch to the chord font. :-) + + title = \markup { \override #'(font-family . sans) \fontsize #3.5 "There’s A Sweet, Sweet Spirit" } + composer = \markup { \override #'(font-family . sans) \fontsize #1.3 "Doris Akers" } +% arranger = \markup { \override #'(font-family . sans) \fontsize #1.3 "" } + tagline = $(string-append "Engraved by JLH and Lilypond " (lilypond-version)) +} + +% Useful tweak abbreviations (hn = harmony note) + +hn = #(define-music-function (parser location arg) (ly:music?) +;; Harmony Note: Set the tweaks property of the passed in note to use a smaller font + + (set! (ly:music-property arg 'tweaks) + (acons 'font-size -3.5 (ly:music-property arg 'tweaks))) arg) + + +% +% Song's structure +% +Global = +{ + \key g \major + \override Staff.TimeSignature #'style = #'() + \time 4/4 + + % Intro + +% \once \override TextScript #'padding = #2.0 +% s1*0^\markup { \large \bold { Moderately fast pop } } +%%Capo 3 version +%% s1*0^\markup { \large \bold { Moderately fast pop "(*** CAPO 3 ***)" } } +% s1*13 \bar "||:" % 1-13 + + s1 | % 1 + + \repeat volta 3 + { + % A section + + \mark \markup { \override #'(font-family . sans) { \box { A } } } + +% s1*7 | % 2-8 + s1*2 | % 2-3 +s2 s^\markup { \fret-diagram-terse #"x;2;3;2;3;x;" } + s1*4 | % 5-8 + + s1 \bar "||" % 9 + s1*7 | % 10-16 + s1 \bar "||" % 17 + + % B section + + \mark \markup { \override #'(font-family . sans) { \box { B } } } + + s1*17 | % 18-34 + } +} + + +% +% Lead vocal +% +LeadVox = \relative c' +{ + \clef G + \override Score.SpacingSpanner #'average-spacing-wishes = ##f + + % Lead in + + r2 b4 c | % 1 + + % A section + + d2 g | % 2 + e4 d g a | % 3 + b1 ~ | % 4 + b2 b4 d | % 5 + c4. c8 b4 a | % 6 + g8 ( e ) d4 fs8 ( g ) a4 | % 7 + g1 ~ | % 8 + g2 b,4 c | % 9 + + d2 g | % 10 + e4 d g a | % 11 + b1 ~ | % 12 + b2 b4 d | % 13 + c4. c8 b4 a | % 14 + g8 ( e ) d4 fs8 ( g ) a4 | % 15 + g1 ~ | % 16 + g1 | % 17 + + % B section + + d'2 b4 e | % 18 + d4 d2 r4 | % 19 + d2 b8 b e4 | % 20 + d2. r4 | % 21 + b2 b4 a | % 22 + b8 ( a ) g2. | % 23 + b8 a g4 b8 ( a ) g4 | % 24 + a2. r4 | % 25 + + d2 b4 e | % 26 + d4 d2 g,4 | % 27 + b4 b b a | % 28 + g2 ~ g8 e g a | % 29 + b4 a8 g ~ g e g a | % 30 + b4 a8 g ~ g4 a4 | % 31 + b4 g g a | % 32 + g1 ~ | % 33 + g4 r b, c | % 34 +} + +LeadVoxText = \lyricmode +{ + There’s a sweet, sweet spir -- it in this place, _ + And I know that it’s the spir -- _ it of _ the Lord; _ + There are sweet ex -- pres -- sions on each face, _ + And I know they feel the pres -- _ ense of _ the Lord. _ + + Sweet Ho -- ly Spir -- it, Sweet hea -- ven -- ly dove, + Stay right here with _ us, Fill -- ing us with _ your love; + And for these bless -- ings We lift our hearts in praise; _ + With -- out a doubt we’ll know _ + that we have been re -- vived, _ + When we shall leave this place. _ + + There are +} + +LeadVoxTextB = \lyricmode +{ + _ _ + + bless -- ings you can -- not re -- ceive _ + ’Til you know him in his full -- _ ness and _ be -- lieve; _ + You’re the one to prof -- it when you say, _ + “I am going to walk with Je -- _ sus all _ the way.” _ + + _ _ _ _ _ _ _ _ _ _ + _ _ _ _ _ _ _ _ _ _ _ _ _ + _ _ _ _ _ _ _ _ _ _ _ _ + _ _ _ _ _ _ _ + _ _ _ _ _ _ _ + _ _ _ _ _ _ _ + + If you +} + +LeadVoxTextC = \lyricmode +{ + _ _ + + say he saved you from your sin, _ + Now you’re weak you’re bound and can -- _ not en -- _ ter in; _ + You can make it right if you will yield, _ + You’ll en -- joy the Ho -- ly Spir -- _ it that _ we feel. +} + + +% +% Riffs +% +Riffs = \relative c'' +{ +%{ + % Intro + + \tiny + R1 | % 1 + R1 | % 2 + R1 | % 3 + R1 | % 4 + + c8 ( f ) ~ f2. | % 5 + e2 ~ e8 a4. | % 6 + d,1 ( | % 7 + c1 ) | % 8 + bf4 ( df2. ) | % 9 + df4 ( e2. ) | % 10 + ef1 | % 11 + d8 ef4 f8 ~ f4 bf-. | % 12 + d,2 s2 | % 13 + + s1*36 | % 14-49 + s2 | % 50 + s1*32 | % 51-82 + r8 df df df df ( c ) bf4 | % 83 + R1*8 | % 84-91 + \normalsize +%} +} + + +% +% Chord names +% +Chords = \chordmode +{ +%Bah, can't we set this globally? +% \popChords + + % Lead in + + s1 | % 1 + + % A section + + g1 | % 2 + c1 | % 3 + g2 b:m7.5-/f | % 4 + e1:7 | % 5 + a2:m a4:m/b a:m/c | % 6 + g2/d d:7 | % 7 + g2 c | % 8 + g1 | % 9 + + g1 | % 10 + c1 | % 11 + g2 b:m7.5-/f | % 12 + e1:7 | % 13 + a2:m a4:m/b a:m/c | % 14 + g2/d d:7 | % 15 + g2 c | % 16 + g1 | % 17 + + % B section + + g2 c/g | % 18 + g1 | % 19 + g2 c/g | % 20 + g1 | % 21 + g2 b:7 | % 22 + e1:m7 | % 23 + a2:7 a:7/cs | % 24 + d2 d:7 | % 25 + + g2 c/g | % 26 + g1 | % 27 + g2 b:7 | % 28 + e1:m7 | % 29 + g4. e2:m7 s8 | % 30 + g4. e2:m7 s8 | % 31 + a2:9 c/d | % 32 + g1 | % 33 + s1 | % 34 +} + + +% +% Chord rhythms +% + +% Use a RhythmicStaff on the chords instead of this? +% It almost works, but not quite. Doesn't collapse chords above to single notes... + +Rhythm = +{ + \override Staff.TimeSignature #'style = #'() + \override NoteHead #'style = #'slash + + % Lead in + + r1 | % 1 + + % A section + + c4 c c c | % 2 + c4 c c c | % 3 + c4 c c c | % 4 + c4 c c c | % 5 + c4 c c c | % 6 + c4 c c c | % 7 + c4 c c c | % 8 + c4 c c c | % 9 + + c4 c c c | % 10 + c4 c c c | % 11 + c4 c c c | % 12 + c4 c c c | % 13 + c4 c c c | % 14 + c4 c c c | % 15 + c4 c c c | % 16 + c4 c c c | % 17 + + % B section + + c4 c c c | % 18 + c4 c c c | % 19 + c4 c c c | % 20 + c4 c c c | % 21 + c4 c c c | % 22 + c4 c c c | % 23 + c4 c c c | % 24 + c4 c c c | % 25 + + c4 c c c | % 26 + c4 c c c | % 27 + c4 c c c | % 28 + c4 c c c | % 29 + c4 c8 c ~ c4 c | % 30 + c4 c8 c ~ c4 c | % 31 + c4 c c c | % 32 + c4 c c c | % 33 + c4 c c c | % 34 +} + +Dynamics = +{ +%{ + % Intro + s4_\markup { \italic { Ac. gtr only } } s2. | % 1 + + s1*3 | % 2-4 + + s4_\markup { \italic { Band in } } s2. | % 5 +%} +} + + +\score +{ + << + \Global % The "roadmap" that everything else depends on + + \context Staff + << + \context Staff << \new Voice = "lead" \LeadVox \new Voice \Riffs >> + \new Lyrics \lyricsto "lead" \LeadVoxText + \new Lyrics \lyricsto "lead" \LeadVoxTextB + \new Lyrics \lyricsto "lead" \LeadVoxTextC + >> + + \new ChoirStaff + << + \new ChordNames \Chords +%Capo 3 edition +% \new ChordNames \transpose f d \Chords + \new RhythmicStaff << \Rhythm \Dynamics >> + >> + + \set Score.skipBars = ##t + \set Score.melismaBusyProperties = #'() + >> +} + + +\paper +{ + #(define fonts (make-pango-font-tree + "Times New Roman" + "DomCasual BT" + "Luxi Mono" + (/ staffSize 20))) + +% Spread staves vertically across last page (default: t) +% ragged-last-bottom = ##f +% Don't spread staves vertically across the page (default: f) +% ragged-bottom = ##t +% Allow partial line for last stave (default: f) +% ragged-last = ##t + +% To find out what's eating the space at the top... +% annotate-spacing = ##t +%let's try this: [It works! Huzzah!] + obsolete-page-top-space = 0 top-system-spacing #'basic-distance = #(/ obsolete-page-top-space staff-space) +} diff --git a/there-is-a-rock.ly b/there-is-a-rock.ly new file mode 100644 index 0000000..83ac9d4 --- /dev/null +++ b/there-is-a-rock.ly @@ -0,0 +1,553 @@ +\version "2.16.0" +\include "pop-chords.ly" +\include "english.ly" + +% Good sizes are 16, 18, & 20 +staffSize = #18 +#(set-default-paper-size "letter") +#(set-global-staff-size staffSize) +#(ly:set-option (quote no-point-and-click)) + +%{ Some useful characters: ‘ ’ “ ” – — † ‡ • … %} + +\header +{ +%Let's bump up the title size and switch to the chord font. :-) + + title = \markup { \override #'(font-family . sans) \fontsize #3.5 "There Is A Rock" } + composer = \markup { \override #'(font-family . sans) \fontsize #1.3 "Tommy Walker" } +% arranger = \markup { \override #'(font-family . sans) \fontsize #1.3 "arr. " } + tagline = $(string-append "Engraved by JLH and Lilypond " (lilypond-version)) +% Let's try a chord dictionary +% subtitle = \markup { \center-column { "F#m" \fret-diagram-terse #"x;x;4;2;2;2;" } " " \center-column { "F#m/F" \fret-diagram-terse #"x;x;3;2;2;2;" } " " \center-column { "F#m/E" \fret-diagram-terse #"x;x;2;2;2;2;" } " " \center-column { "F#m/Eb" \fret-diagram-terse #"x;x;1;2;2;2;" } " " \center-column { "Em7" \fret-diagram-terse #"o;2;2;o;3;o;" } " " \center-column { "A13" \fret-diagram-terse #"x;o;2;o;2;2;" } } +} + +% Useful tweak abbreviations (hn = harmony note) + +hn = #(define-music-function (parser location arg) (ly:music?) +;; Harmony Note: Set the tweaks property of the passed in note to use a smaller font + + (set! (ly:music-property arg 'tweaks) + (acons 'font-size -3.0 (ly:music-property arg 'tweaks))) arg) + + +% +% Song's structure +% +Global = +{ + \key e \minor + \override Staff.TimeSignature #'style = #'() + \time 4/4 + + % Intro + + \once \override TextScript #'padding = #2.0 + s1*0^\markup { \large \bold { Unison } } +% Capo 4 version +% s1*0^\markup { \hspace #0.0 \raise #2.0 \larger \bold { "Moderate pop (*** CAPO 4 ***)" } } + + \repeat volta 2 + { + s1*4 | % 1-4 + } + + \repeat volta 2 + { + \mark \markup { \override #'(font-family . sans) { \box { A } } } + s1*8 \bar "||" % 5-12 + + \mark \markup { \override #'(font-family . sans) { \box { B } } } + s1*8 \bar "||" % 13-20 + + \mark \markup { \override #'(font-family . sans) { \box { C } } } + s1*16 | % 21-36 + } + + s1*4 | % 37-40 + + % Guitar Solo + + \repeat volta 2 + { + \mark \markup { \override #'(font-family . sans) { \box { D } } } + s1*4 | % 41-44 + } + + % Sax Solo + + \repeat volta 2 + { + \mark \markup { \override #'(font-family . sans) { \box { E } } } + s1*4 | % 45-48 + } + + % Outro chorus + + \repeat volta 2 + { + \mark \markup { \override #'(font-family . sans) { \box { F } } } + s1*7 | % 49-55 + } + \alternative + { + { + s1 | % 56 + } + { + s1 | % 57 + } + } + + \repeat volta 2 + { + s1*4 | % 58-61 + } + + s1 \bar "|." % 62 +} + + +% +% Lead vocal +% +LeadVox = \relative c' +{ +% \set Staff.instrument = #"Lead vox" + \clef G + \override Staff.TimeSignature #'style = #'() +%Hm. Needed anymore? +% \override Score.SpacingSpanner #'average-spacing-wishes = ##f + + % Intro + + s1*4 | % 1-4 + + % Verse + + r4. \teeny e8 \normalsize \times 2/3 { e4 fs g } | % 5 + fs4. \teeny fs8 \normalsize \times 2/3 { fs4 g a } | % 6 + g2 \times 2/3 { g4 a b } | % 7 + b4 a8 a ~ a g4 e8 ~ | % 8 + e4. e8 \times 2/3 { e4 fs g } | % 9 + fs4. fs8 \times 2/3 { fs4 g a } | % 10 + g4. \teeny g8 \normalsize \times 2/3 { g4 a b } | % 11 + b4 a8 a ~ a g4 e8 ~ | % 12 + + % Prechorus + + e4. e8 \times 2/3 { e4 fs g } | % 13 + g4. fs8 ~ fs4 r | % 14 + r4 r8 fs \times 2/3 { fs4 g a } | % 15 + a4 g8 g ~ g fs4 e8 ~ | % 16 + e4. e8 \times 2/3 { e4 fs g } | % 17 + g4. fs8 ~ fs4. a8 ~ | % 18 + a8 g a4 a a8 ( g ) | % 19 + b4 b b r | % 20 + + % Chorus + + r4 b a b8. b16 | % 21 + r4 b a b8. b16 | % 22 + r4 b a b | % 23 + c4 b a b8. b16 | % 24 + r4 b a b8. b16 | % 25 + r4 b a b8. b16 | % 26 + r4 b a b | % 27 + c4 b a b8. b16 | % 28 + + r4 b a b8. b16 | % 29 + r4 b a b8. b16 | % 30 + r4 b a b | % 31 + c4 b a b8. b16 | % 32 + r4 b a b8. b16 | % 33 + r4 b a b8. b16 | % 34 + r4 b a b | % 35 + c4 b a b8. b16 | % 36 + + % Midtro + + s1*4 | % 37-40 + + % Guitar Solo + + r1 | % 41 + r1 | % 42 + r1 | % 43 + r1 | % 44 + + % Sax Solo + + r1 | % 45 + r1 | % 46 + r1 | % 47 + r1 | % 48 + + % Outro chorus + + r4 b a b8. b16 | % 49 + r4 b a b8. b16 | % 50 + r4 b a b | % 51 + c4 b a b8. b16 | % 52 + r4 b a b8. b16 | % 53 + r4 b a b8. b16 | % 54 + r4 b a b | % 55 + + c4 b a b8. b16 | % 56 + + c4 b a b8. b16 | % 57 + + % Outro + + s1 | % 58 + s1 | % 59 + s1 | % 60 + s1 | % 61 + + r1-\fermata | % 62 +} + +LeadVoxText = \lyricmode +{ + _ Light of the world, _ light of all truth, + sal -- va -- tion comes from on -- _ ly you. _ + Our shel -- ter and strength, through all a -- ges past, + _ your awe -- some pow -- er has _ been seen. _ + + The na -- tions are search -- ing _ + for some -- thing that’s ab -- so -- lute -- _ ly true. _ + So we now de -- clare it: _ + Je -- _ sus all truth is _ found in you. + + There is a rock, a sol -- id rock, + a rock we’ve built our lives u -- pon. + There is a hope, a bless -- ed hope, + so we now shout it to the world. + + There is a rock, a sol -- id rock, + a rock we’ve built our lives u -- pon. + There is a hope, a bless -- ed hope, + so we now shout it to the world. + + There is a rock, a sol -- id rock, + a rock we’ve built our lives u -- pon. + There is a hope, a bless -- ed hope, + so we now shout it to the world. + + shout it to the world. +} + +LeadVoxTextB = \lyricmode +{ + Re -- ject -- ed by men but cho -- sen by God, + you are the pre -- cious cor -- _ ner -- stone. _ + You’re build -- ing your church through -- out all the earth, + for -- e -- ver it’s pow -- er will _ be shown. _ +} + + +Riffs = \relative c' +{ + \clef G +%Hm. Needed anymore? +% \override Score.SpacingSpanner #'average-spacing-wishes = ##f + + % Intro + + \tiny + r16 d8 ds16 ~ ds e r8 d ds e r | % 1 + r16 g8 gs16 ~ gs a r8 g gs a r | % 2 + r16 e8 f16 ~ f fs r8 e f fs r | % 3 + r16 a8 bf16 ~ bf b r8 a bf b r | % 4 + + s1*32 | % 5-36 + + r16 d,8 ds16 ~ ds e r8 d ds e r | % 37 + r16 g8 gs16 ~ gs a r8 g gs a r | % 38 + r16 e8 f16 ~ f fs r8 e f fs r | % 39 + r16 a8 bf16 ~ bf b r8 a bf b r | % 40 + + s1*17 | % 41-57 + + r16 d,8 ds16 ~ ds e r8 d ds e r | % 58 + r16 g8 gs16 ~ gs a r8 g gs a r | % 59 + r16 e8 f16 ~ f fs r8 e f fs r | % 60 + r16 a8 bf16 ~ bf b r8 a bf b r | % 61 + \normalsize +} + + +% +% Chord names +% +Chords = \chordmode +{ + % Intro + + s1 | % 1 + s1 | % 2 + s1 | % 3 + s1 | % 4 + + % Verse + + e1:m7 | % 5 + b1/ds | % 6 + g1/d | % 7 + a1/cs | % 8 + e1:m7 | % 9 + b1/ds | % 10 + g1/d | % 11 + a1/cs | % 12 + + % Prechorus + + c1 | % 13 + d4.:sus4 d2 ef8:dim | % 14 + s1 | % 15 + e4:m7 d4.:sus4 d4 c8 | % 16 + s1 | % 17 + d4.:sus4 d2 fs8:m7.5- | % 18 + s1 | % 19 + b2..:7.5+.9+ s16 e:m7 | % 20 + + % Chorus + + s2.. s16 a:7 | % 21 + s2.. s16 fs:m7.5- | % 22 + s1 | % 23 + b2..:7 s16 e:m7 | % 24 + s2.. s16 a:7 | % 25 + s2.. s16 fs:m7.5- | % 26 + s1 | % 27 + b2..:7 s16 e:m7 | % 28 + + s2.. s16 a:7 | % 29 + s2.. s16 fs:m7.5- | % 30 + s1 | % 31 + b2..:7 s16 e:m7 | % 32 + s2.. s16 a:7 | % 33 + s2.. s16 fs:m7.5- | % 34 + s1 | % 35 + b1:7 | % 36 + + % Midtro + + s1 | % 37 + s1 | % 38 + s1 | % 39 + s1 | % 40 + + % Guitar Solo + + e1:m7 | % 41 + s1 | % 42 + s1 | % 43 + s1 | % 44 + + % Sax Solo + + s2.. s16 a:7 | % 45 + s2.. s16 fs:m7.5- | % 46 + s1 | % 47 + b2..:7 s16 e:m7 | % 48 + + % Outro chorus + + s2.. s16 a:7 | % 49 + s2.. s16 fs:m7.5- | % 50 + s1 | % 51 + b2..:7 s16 e:m7 | % 52 + s2.. s16 a:7 | % 53 + s2.. s16 fs:m7.5- | % 54 + s1 | % 55 + + b1:7 | % 56 + + b1:7 | % 57 + + % Outro + + s1 | % 58 + s1 | % 59 + s1 | % 60 + s2.. s16 e:m7 | % 61 + + s1 | % 62 +} + + +% +% Chord rhythms +% +% Use a RhythmicStaff on the chords instead of this? +% It almost works, but not quite. Doesn't collapse chords above to single notes... +% +Rhythm = \relative c +{ +%% \set Voice.autoBeaming = ##f +%% \set Staff.instrument = #"Rhythm" + \override Staff.TimeSignature #'style = #'() + \override NoteHead #'style = #'slash + \teeny + + % Intro + + r1 | % 1 + r1 | % 2 + r1 | % 3 + r1 | % 4 + + % Verse + + c1 | % 5 + c1 | % 6 + c1 | % 7 + c1 | % 8 + c1 | % 9 + c1 | % 10 + c1 | % 11 + c1 | % 12 + + % Prechorus + + c1 | % 13 + c4. c2 c8 ~ | % 14 + c1 | % 15 + c4 c4. c4 c8 ~ | % 16 + c1 | % 17 + c4. c2 c8 ~ | % 18 + c1 | % 19 + c2.. ~ c16 c ~ | % 20 + + % Chorus + + c4 c c c8. c16 ~ | % 21 + c4 c c c8. c16 ~ | % 22 + c4 c c c | % 23 + c4 c c c8. c16 ~ | % 24 + c4 c c c8. c16 ~ | % 25 + c4 c c c8. c16 ~ | % 26 + c4 c c c | % 27 + c4 c c c8. c16 ~ | % 28 + + c4 c c c8. c16 ~ | % 29 + c4 c c c8. c16 ~ | % 30 + c4 c c c | % 31 + c4 c c c8. c16 ~ | % 32 + c4 c c c8. c16 ~ | % 33 + c4 c c c8. c16 ~ | % 34 + c4 c c c | % 35 + c4 c c c | % 36 + + % Midtro + + r1 | % 37 + r1 | % 38 + r1 | % 39 + r1 | % 40 + + % Guitar Solo + + c4 c c c | % 41 + c4 c c c | % 42 + c4 c c c | % 43 + c4 c c c | % 44 + + % Sax Solo + + c4 c c c8. c16 ~ | % 45 + c4 c c c8. c16 ~ | % 46 + c4 c c c | % 47 + c4 c c c8. c16 ~ | % 48 + + % Outro chorus + + c4 c c c8. c16 ~ | % 49 + c4 c c c8. c16 ~ | % 50 + c4 c c c | % 51 + c4 c c c8. c16 ~ | % 52 + c4 c c c8. c16 ~ | % 53 + c4 c c c8. c16 ~ | % 54 + c4 c c c | % 55 + + c4 c c c8. c16 ~ | % 56 + + c4 c c c8. c16 ~ | % 57 + + % Outro + + r1 | % 58 + r1 | % 59 + r1 | % 60 + r2. r8 r16 c ~ | % 61 + + c1-\fermata | % 62 +} + + +Dynamics = +{ +%{ + s4_\markup { \italic { snare pat. } } s2 | % 1 + s4_\markup { \italic { simile } } s2 | % 2 + s2.*19 + s4_\markup { \italic { spacey } } s2 | % 22 + s2.*5 + s4 s \< s \! | % 28 + s2.*22 + s4_\markup { \italic { Last time } } s2 | % 51 +%} + s1*40 | % 1-40 + s4_\markup { \bold { Guitar solo } } s2. | % 41 + s1*3 | % 42-44 + s4_\markup { \bold { Sax solo } } s2. | % 45 +} + + +\score +{ + << + \set Score.skipBars = ##t + \set Score.melismaBusyProperties = #'() + +% \new Staff + << + \new ChordNames \Chords +%Capo 4 edition +% \new ChordNames \transpose b g \Chords + \new RhythmicStaff << \Rhythm \Dynamics >> + >> + + \new Staff + << + \Global % The "roadmap" that everything else depends on + \new Voice = "lead" \LeadVox + \new Voice \Riffs + \new Lyrics \lyricsto "lead" \LeadVoxText + \new Lyrics \lyricsto "lead" \LeadVoxTextB + >> + >> +} + + +\paper +{ + #(define fonts (make-pango-font-tree + "Times New Roman" + "DomCasual BT" + "Luxi Mono" + (/ staffSize 20))) + +% Spread staves vertically across last page (default: t) + ragged-last-bottom = ##f +% Don't spread staves vertically across the page (default: f) +% ragged-bottom = ##t +% Allow partial line for last stave (default: f) +% ragged-last = ##t + +% To find out what's eating the space at the top... +% annotate-spacing = ##t +%let's try this: [It works! Huzzah!] + obsolete-page-top-space = 0 top-system-spacing #'basic-distance = #(/ obsolete-page-top-space staff-space) +} diff --git a/this-is-my-father's-world-satb.ly b/this-is-my-father's-world-satb.ly new file mode 100644 index 0000000..919ac5b --- /dev/null +++ b/this-is-my-father's-world-satb.ly @@ -0,0 +1,269 @@ +\version "2.16.0" +\include "pop-chords.ly" +\include "english.ly" + +% Good sizes are 16, 18, & 20 +staffSize = #20 +#(set-default-paper-size "letter") +#(set-global-staff-size staffSize) +#(ly:set-option (quote no-point-and-click)) + +%{ Some useful characters: ‘ ’ “ ” – — † ‡ • … %} + +\header +{ + title = \markup { \override #'(font-family . sans) \fontsize #3.5 "This Is My Father’s World" } + composer = \markup { \override #'(font-family . sans) \fontsize #1.3 "TERRA BEATA: S. M. D." } +% arranger = \markup { \override #'(font-family . sans) \fontsize #1.3 "arr. S. Hammons" } + tagline = $(string-append "Engraved by JLH and Lilypond " (lilypond-version)) +} + + +% +% Lead vocal +% + +LeadVox = \relative c' +{ + \set Staff.instrumentName = #"Sop." + \clef G + \key ef \major + \override Staff.TimeSignature #'style = #'() + \time 4/4 +%\override Score.SpacingSpanner #'average-spacing-wishes = ##f + + % Verse + + \partial 4 ef8 f | % 0 + g4 bf g f | % 1 + ef2. f8 g | % 2 + af4 c bf g | % 3 + f2. c'4 | % 4 + + bf4 g g f8 ef | % 5 + g4 f ef bf | % 6 + ef8 f g4 bf f8 g | % 7 + ef2. bf'4 | % 8 + + ef4 bf c d | % 9 + ef2. ef8 d | % 10 + c4 ef d c | % 11 + bf2. c8 ~ c | % 12 + + bf4 g g f8 ef | % 13 + g4 f ef bf | % 14 + ef8 f g4 bf f8 ( g ) | % 15 +% \partial 2. + ef2. \bar "|." % 16 +} + +AltoVox = \relative c' +{ + \set Staff.instrumentName = #"Alto" + \clef G + \key ef \major + \override Staff.TimeSignature #'style = #'() + \time 4/4 +%\override Score.SpacingSpanner #'average-spacing-wishes = ##f + + % Verse + + \partial 4 ef4 | % 0 + ef4 ef ef d | % 1 + ef2. ef4 | % 2 + f4 f f ef | % 3 + d2. d4 | % 4 + + ef4 ef d c | % 5 + d4 b c bf | % 6 + ef4 ef ef d | % 7 + ef2. d4 | % 8 + + ef4 g af af | % 9 + g2. ef4 | % 10 + ef4 ef ef ef | % 11 + ef2. d8 ~ d | % 12 + + ef4 ef d d8 ( ef ) | % 13 + b4 d c bf | % 14 + ef4 ef ef d8 ~ d | % 15 +% \partial 2. + ef2. | % 16 +} + +TenorVox = \relative c' +{ + \set Staff.instrumentName = #"Tenor" + \clef F + \key ef \major + \override Staff.TimeSignature #'style = #'() + \time 4/4 +%\override Score.SpacingSpanner #'average-spacing-wishes = ##f + + % Verse + + \partial 4 g8 af | % 0 + bf4 bf bf af | % 1 + g2. c4 | % 2 + c4 af f g8 af | % 3 + bf2. bf4 | % 4 + + bf4 bf b g | % 5 + g4 g g af | % 6 + g8 af bf4 bf af | % 7 + g2. bf8 af | % 8 + + g4 bf af bf | % 9 + bf2. bf4 | % 10 + af4 c bf af | % 11 + g2. af8 ~ af | % 12 + + g4 bf g g8 ~ g | % 13 + g4 g g f | % 14 + g8 af bf4 bf af8 ( bf ) | % 15 +% \partial 2. + g2. | % 16 +} + +BassVox = \relative c +{ + \set Staff.instrumentName = #"Bass" + \clef F + \key ef \major + \override Staff.TimeSignature #'style = #'() + \time 4/4 +%\override Score.SpacingSpanner #'average-spacing-wishes = ##f + + % Verse + + \partial 4 ef4 | % 0 + ef4 g, bf bf | % 1 + c2. af'8 g | % 2 + f4 ef d ef | % 3 + bf2. af'4 | % 4 + + g4 ef g, c | % 5 + b4 g c f | % 6 + ef4 ef g, bf | % 7 + ef2. bf4 | % 8 + + ef4 ef af f | % 9 + ef2. g,4 | % 10 + af4 af' af af | % 11 + ef2. bf8 ~ bf | % 12 + + ef4 ef b c8 ~ c | % 13 + g4 b c d | % 14 + ef4 ef g, bf8 ~ bf | % 15 +% \partial 2. + ef2. | % 16 +} + +LeadVoxText = \lyricmode +{ + This _ is my Fa -- ther’s world, + And _ to my lis -- tening ears + All na -- ture sings, and _ round me rings + The mu -- _ sic of the _ spheres. + + This is my Fa -- ther’s World: + I _ rest me in the thought + Of _ rock and trees, of _ skies and seas; + His hand _ the won -- ders _ wrought. +} + +LeadVoxTextB = \lyricmode +{ + This _ is my Fa -- ther’s world, + The _ birds their car -- ols raise, + The morn -- ing light, the _ li -- ly white + De -- clare _ their Mak -- er’s _ praise. + + This is my Fa -- ther’s World: + He _ shines in all that’s fair + In the rus -- tling grass I _ hear Him pass, + He speaks _ to me ev -- ery -- where. +} + +LeadVoxTextC = \lyricmode +{ + This _ is my Fa -- ther’s world, + Oh _ let me ne’er for -- get + That though the wrong seems _ oft so strong, + God is _ the rul -- er _ yet. + + This is my Fa -- ther’s World: + The _ bat -- tle is not done; + Je -- _ sus who died shall be sat -- is -- fied, + And earth _ and heav’n be _ one. +} + + +Dynamics = +{ +%{ + s4_\markup { \italic { snare on 4, bass 8th notes } } s2. | % 1 + s1*26 | % 2-27 + s2 s4 \< s | % 28 + s4_\f s_\markup { \hspace #0.0 \raise #-2.0 \italic { snare 2 & 4 } } s2 | % 29 + s1*8 | % 30-37 + s2 s4 \< s \! | % 38 + s1 | % 39 + s2. s8 \> s \! | % 40 + s4_\markup { \hspace #0.0 \raise #-2.0 \italic { bass 8th notes, band builds each repeat } } s2. | % 41 + s1*8 | % 42-49 + s4 \< s2. | % 50 + s4_\f s2. | % 51 + s1*5 | % 52-56 + s4_\markup { \hspace #0.0 \raise #-2.0 \italic { rit. last time } } s2. | % 57 + s2 s4 \< s \! | % 58 +%} +} + + +\score +{ + << +% \new ChoirStaff = "Rhythm" +% << +% \new ChordNames = "chords" \Chords +% \new RhythmicStaff = "chordRhythm" << \StaffC \Dynamics >> +% >> + + \new ChoirStaff = "Vox" + << + \new Staff = UpperStaffA { \new Voice = "lead" \LeadVox } + \new Lyrics \lyricsto "lead" \LeadVoxText + \new Lyrics \lyricsto "lead" \LeadVoxTextB + \new Lyrics \lyricsto "lead" \LeadVoxTextC + \new Staff = UpperStaffB { \new Voice = "alto" \AltoVox } + \new Staff = LowerStaffA { \new Voice = "tenor" \TenorVox } + \new Staff = LowerStaffB { \new Voice = "bass" \BassVox } + >> + + \set Score.skipBars = ##t + \set Score.melismaBusyProperties = #'() + >> +} + + +\paper +{ + #(define fonts (make-pango-font-tree + "Times New Roman" + "DomCasual BT" + "Luxi Mono" + (/ staffSize 20))) + +% Spread staves vertically across last page (default: t) +% ragged-last-bottom = ##f +% Don't spread staves vertically across the page (default: f) +% ragged-bottom = ##t +% Allow partial line for last stave (default: f) + ragged-last = ##t + +% To find out what's eating the space at the top... +% annotate-spacing = ##t +%let's try this: [It works! Huzzah!] + page-top-space = 0 +} diff --git a/this-little-light-of-mine.ly b/this-little-light-of-mine.ly new file mode 100644 index 0000000..6fdb3b4 --- /dev/null +++ b/this-little-light-of-mine.ly @@ -0,0 +1,329 @@ +\version "2.16.0" +\include "pop-chords.ly" +\include "english.ly" + +% Good sizes are 16, 18, & 20 +staffSize = #18 +#(set-default-paper-size "letter") +#(set-global-staff-size staffSize) +#(ly:set-option (quote no-point-and-click)) + +%{ Some useful characters: ‘ ’ “ ” – — † ‡ • … %} + +\header +{ +%Let's bump up the title size and switch to the chord font. :-) + + title = \markup { \override #'(font-family . sans) \fontsize #3.5 "This Little Light Of Mine" } +% composer = \markup { \override #'(font-family . sans) \fontsize #1.3 "Group" } + arranger = \markup { \override #'(font-family . sans) \fontsize #1.3 "arr. Group" } + tagline = $(string-append "Engraved by JLH and Lilypond " (lilypond-version)) +% Let's try a chord dictionary +% subtitle = \markup { \center-align { "F#m" \fret-diagram-terse #"x;x;4;2;2;2;" } " " \center-align { "F#m/F" \fret-diagram-terse #"x;x;3;2;2;2;" } " " \center-align { "F#m/E" \fret-diagram-terse #"x;x;2;2;2;2;" } " " \center-align { "F#m/Eb" \fret-diagram-terse #"x;x;1;2;2;2;" } " " \center-align { "Em7" \fret-diagram-terse #"o;2;2;o;3;o;" } " " \center-align { "A13" \fret-diagram-terse #"x;o;2;o;2;2;" } } +} + +% Useful tweak abbreviations (hn = harmony note) + +hn = #(define-music-function (parser location arg) (ly:music?) +;; Harmony Note: Set the tweaks property of the passed in note to use a smaller font + + (set! (ly:music-property arg 'tweaks) + (acons 'font-size -3.0 (ly:music-property arg 'tweaks))) arg) + + +% +% Song's structure +% +Global = +{ + \key e \major + \override Staff.TimeSignature #'style = #'() + \time 4/4 + + % Intro + + \once \override TextScript #'padding = #2.0 + s1*0^\markup { \large \bold { Not too fast } } +% Capo 4 version +% s1*0^\markup { \hspace #0.0 \raise #2.0 \bigger \bold { "Moderate pop (*** CAPO 4 ***)" } } + + s1*4 \bar "||:" % 1-4 +% \mark \markup { \override #'(font-family . sans) { \box { A } } } + + \repeat volta 3 + { + s1*4 \bar "||" % 5-8 + + s1*7 | % 9-15 + } + + s1 \bar "||" % 16 + + s1*6 | % 17-22 + + \repeat volta 2 + { + s1*2 | % 23-24 + } + + s1*6 \bar "|." % 25-30 +} + + +% +% Lead vocal +% +LeadVox = \relative c' +{ +% \set Staff.instrument = #"Lead vox" + \clef G + \override Staff.TimeSignature #'style = #'() +%Hm. Needed anymore? +% \override Score.SpacingSpanner #'average-spacing-wishes = ##f + + s1*4 | % 1-4 + + r1 | % 5 + r1 | % 6 + r1 | % 7 + r1 | % 8 + + b8 cs16 b e fs8 e16 ~ e4 r | % 9 + gs8 gs 16 gs gs fs8 e16 ~ e4 r | % 10 + cs8 e16 cs e8 fs16 e ~ e4 r | % 11 + e8 e16 e e cs8 b16 ~ b4 r | % 12 + b8 cs16 b e fs8 e16 ~ e4 r | % 13 + gs8 gs16 gs gs fs8 e16 ~ e4 e16 fs8 gs16 ~ | % 14 + gs4 a16 gs8 fs16 ~ fs4 gs16 fs8 e16 ~ | % 15 + + e2 r2 | % 16 + + b8 cs16 b e fs8 e16 ~ e4 r | % 17 + gs8 gs 16 gs gs fs8 e16 ~ e4 r | % 18 + cs8 e16 cs e8 fs16 e ~ e4 r | % 19 + e8 e16 e e cs8 b16 ~ b4 r | % 20 + b8 cs16 b e fs8 e16 ~ e4 r | % 21 + gs8 gs16 gs gs fs8 e16 ~ e4 e16 fs8 gs16 ~ | % 22 + + gs4 a16 gs8 fs16 ~ fs4 gs16 fs8 e16 ~ | % 23 + e4. ~ e8 r4 e16 fs8 gs16 ~ | % 24 + + gs4 a16 gs8 fs16 ~ fs4 gs16 fs8 e16 ~ | % 25 + e1 ~ | % 26 + + e2 r | % 27 + r1 | % 28 + r1 | % 29 + r1 | % 30 +} + +LeadVoxText = \lyricmode +{ + This lit -- tle light of mine, _ + I’m gon -- na let it shine, _ + This lit -- tle light of mine, _ + I’m gon -- na let it shine, _ + This lit -- tle light of mine, _ + I’m gon -- na let it shine, _ + Let it shine, _ let it shine, _ let it shine. _ + + This lit -- tle light of mine, _ + I’m gon -- na let it shine, _ + This lit -- tle light of mine, _ + I’m gon -- na let it shine, _ + This lit -- tle light of mine, _ + I’m gon -- na let it shine, _ + Let it shine, _ let it shine, _ let it shine. _ _ + Let it shine, _ let it shine, _ let it shine. _ _ +} + +LeadVoxTextB = \lyricmode +{ + Ev -- ’ry -- _ where I go, _ + I’m gon -- na let it shine, _ + Ev -- ’ry -- _ where I go, _ + I’m gon -- na let it shine, _ + Ev -- ’ry -- _ where I go, _ + I’m gon -- na let it shine, _ + Let it shine, _ let it shine, _ let it shine. _ +} + +LeadVoxTextC = \lyricmode +{ + E -- ven when I’m a -- fraid, _ + I’m gon -- na let it shine, _ + E -- ven when I’m a -- fraid, _ + I’m gon -- na let it shine, _ + E -- ven when I’m a -- fraid, _ + I’m gon -- na let it shine, _ + Let it shine, _ let it shine, _ let it shine. _ +} + + +Riffs = \relative c' +{ + \clef G + \override NoteHead #'style = #'cross +%Hm. Needed anymore? +% \override Score.SpacingSpanner #'average-spacing-wishes = ##f + + % Intro + + \tiny + \stemDown e8[ r e] r e[ r e] r | % 1 + e8[ r e] r e[ r e] r \stemNeutral | % 2 + << \override NoteHead #'style = #'cross { r8 b'[ r b] r b[ r b] } \\ \override NoteHead #'style = #'cross { e,8[ r e] r e[ r e] r } >> | % 3 + << { r8 b'[ r b] r b[ r b] } \\ { e,8[ r e] r e[ r e] r } >> | % 4 + \normalsize +} + + +% +% Chord names +% +Chords = \chordmode +{ + s1*4 | % 1-4 + + e2 r8 cs:m d4 | % 5 + e2 r8 g a4 | % 6 + e2 r8 cs:m d4 | % 7 + e1 | % 8 + + e1 | % 9 + e1 | % 10 + a1 | % 11 + a2 e | % 12 + e1 | % 13 + e4 gs cs2:m | % 14 + e2/b b | % 15 + + e1 | % 16 + + e1 | % 17 + e1 | % 18 + a1 | % 19 + a2 e | % 20 + e1 | % 21 + e4 gs cs2:m | % 22 + + e2/b b | % 23 + e4. cs8:m s2 | % 24 + + e2/b b | % 25 + e1 | % 26 + + e2 r8 cs:m d4 | % 27 + e2 r8 g a4 | % 28 + e2 r8 cs:m d4 | % 29 + e1 | % 30 +} + + +% +% Chord rhythms +% +% Use a RhythmicStaff on the chords instead of this? +% It almost works, but not quite. Doesn't collapse chords above to single notes... +% +Rhythm = \relative c +{ +%% \set Voice.autoBeaming = ##f +%% \set Staff.instrument = #"Rhythm" + \override Staff.TimeSignature #'style = #'() + \override NoteHead #'style = #'slash + + s1*4 | % 1-4 + + c8. c16 r8 c r c c4 | % 5 + c8. c16 r8 c r c c4 | % 6 + c8. c16 r8 c r c c4 | % 7 + c8. c16 r8 c r2 | % 8 + + | % 9 + | % 10 + | % 11 + | % 12 + | % 13 + | % 14 + | % 15 + + | % 16 + + | % 17 + | % 18 + | % 19 + | % 20 + | % 21 + | % 22 + + | % 23 + | % 24 + + | % 25 + | % 26 + + | % 27 + | % 28 + | % 29 + | % 30 +} + + +Dynamics = +{ + s4_\markup { \italic { stomp } } s2. | % 1 + s1 | % 2 + s4_\markup { \italic { add clap } } s2. | % 3 + s1 | % 4 + s4_\markup { \italic { w/stomp & clap } } s2. | % 5 +} + + +\score +{ + << + \set Score.skipBars = ##t + \set Score.melismaBusyProperties = #'() + +% \new Staff + << + \new ChordNames \Chords +%Capo 4 edition +% \new ChordNames \transpose b g \Chords + \new RhythmicStaff << \Rhythm \Dynamics >> + >> + + \new Staff + << + \Global % The "roadmap" that everything else depends on + \new Voice = "lead" \LeadVox + \new Voice \Riffs + \new Lyrics \lyricsto "lead" \LeadVoxText + \new Lyrics \lyricsto "lead" \LeadVoxTextB + \new Lyrics \lyricsto "lead" \LeadVoxTextC + >> + >> +} + + +\paper +{ + #(define fonts (make-pango-font-tree + "Times New Roman" + "DomCasual BT" + "Luxi Mono" + (/ staffSize 20))) + +% Spread staves vertically across last page (default: t) + ragged-last-bottom = ##f +% Don't spread staves vertically across the page (default: f) +% ragged-bottom = ##t +% Allow partial line for last stave (default: f) +% ragged-last = ##t + +% To find out what's eating the space at the top... +% annotate-spacing = ##t +%let's try this: [It works! Huzzah!] + page-top-space = 0 +} diff --git a/we-are-an-offering.ly b/we-are-an-offering.ly new file mode 100755 index 0000000..33a6bc7 --- /dev/null +++ b/we-are-an-offering.ly @@ -0,0 +1,317 @@ +\version "2.16.0" +\include "pop-chords.ly" +\include "english.ly" + +% Good sizes are 16, 18, & 20 +staffSize = #18 +#(set-default-paper-size "letter") +#(set-global-staff-size staffSize) +#(ly:set-option (quote no-point-and-click)) + +\header +{ + title = \markup { \override #'(font-family . sans) \fontsize #3.5 "We Are An Offering" } + composer = \markup { \override #'(font-family . sans) \fontsize #1.3 "Dwight Liles" } + arranger = \markup { \override #'(font-family . sans) \fontsize #1.3 "arr. Shamus Hammons" } + tagline = "Engraved by JLH and Lilypond 2.8.6" +} + + +% +% Lead vocal +% + +LeadVox = \relative c' +{ +% \set Voice.autoBeaming = ##f +% \set Staff.instrumentName = #"Lead vox" + \override Staff.TimeSignature #'style = #'() + \clef G + \key c \major + \time 4/4 +\override Score.SpacingSpanner #'average-spacing-wishes = ##f + + % Intro + + R1^\markup { Moderately slow ballad } | % 1 + R1 | % 2 + R1 | % 3 + r2 r8 c c d | % 4 + + % A section + + \repeat volta 2 + { +%\mark \markup { \override #'(font-family . sans) { \box { A } } } +\once \override Score.RehearsalMark #'self-alignment-X = #left +\mark \markup { \override #'(font-family . sans) { \box { A } } \hspace #1.0 \raise #2.0 \musicglyph #"scripts.segno" } + + e16 ( d ) c8 ~ c4 r8 c e f | % 5 + g2 r8 c, e g | % 6 + a4. b16 c g4 \times 2/3 { e8 f g } | % 7 + } + \alternative + { + { + f16 e d8 ~ d4 r8 c c d | % 8 + } + { + f16 e d8 ~ d2 r4 | % 9 + } + } + + \repeat volta 2 + { + % B section + +\mark \markup { \override #'(font-family . sans) { \box { B } } } + + g4. f16 g e2 | % 10 + a4. g16 a f4. r8 | % 11 + b4. a16 b c8 b a b | % 12 + c4. b8 g4 r8 a | % 13 + bf4. a8 f2 | % 14 + } + \alternative + { + { + \time 2/4 + r8 c8 c d^\markup { \hspace #-1.8 \raise #1.5 \bold "D.S." } \bar "||" % 15 + \time 4/4 + } + { + \time 2/4 r8 c8 c d \bar "||" \time 4/4 % 16 + } + } + + % A section + +\mark \markup { \override #'(font-family . sans) { \box { C } } } + + e16 ( d ) c8 ~ c4 r8 c e f | % 17 + g2 r8 c, e g | % 18 + a4 b8 c g4 \times 2/3 { e8 f g } | % 19 + f16 e d8 ~ d4 r \times 2/3 { d8 e f } | % 20 + + % Ending + + e16 d c8 ~ c2. ~ | % 21 + c2 r | % 22 + r1^\fermata \bar "|." % 23 +} + + +LeadVoxText = \lyricmode +{ + We lift our voi- _ ces, _ + we lift our hands, + we lift our lives up to You, + we are an of- fer- ing. _ + + Lord, use our + of- fer- ing. _ + + All that we have, + all that we are, + All that we hope to be, + we give to You, + we give to You. + + We lift our + + We lift our voi- _ ces, _ + we lift our hands, + we lift our lives up to You, + we are an of- fer- ing, _ + + we are an of- fer- ing. _ +} + +LeadVoxTextB = \lyricmode +{ + _ _ _ voi- _ ces, _ + Lord, use our hands, + Lord, use our lives, they are Yours, + we are an +} + + +% +% Chord names +% + +Chords = \chordmode +{ +%Bah, can't we set this globally? +% \popChords + + % Intro + + c2 d:m7 | % 1 + c1/e | % 2 + f2 c | % 3 + bf2 g4:sus4.7 g | % 4 + + % A section + + \repeat volta 2 + { + c2 d:m7 | % 5 + c1/e | % 6 + f2 c | % 7 + } + \alternative + { + { + bf2 g | % 8 + } + { + bf2 g4:sus4.7 g | % 9 + } + } + + \repeat volta 2 + { + % B section + + e2:m7 a:m7 | % 10 + d2:m7 g | % 11 + e2:7 a:m | % 12 + f2 c | % 13 + bf2 d:m7/g | % 14 + } + \alternative + { + { + \time 2/4 g2 \time 4/4 | % 15 + } + { + \time 2/4 g2 \time 4/4 | % 16 + } + } + + % A section + + c2 d:m7 | % 17 + c1/e | % 18 + f2 c | % 19 + bf2 g | % 20 + + % Ending + + c2 c:sus4 | % 21 + c2 c:sus4 | % 22 + c1 | % 23 +} + + +% +% Chord rhythms +% + +% Use a RhythmicStaff on the chords instead of this? +% It almost works, but not quite. Doesn't collapse chords above to single notes... + +StaffC = \relative c +{ +% \set Voice.autoBeaming = ##f +% \set Staff.instrumentName = #"Rhythm" + \override Staff.TimeSignature #'style = #'() + \time 4/4 + \override NoteHead #'style = #'slash + + % Intro + + c4 c c c | % 1 + c4 c c c | % 2 + c4 c c c | % 3 + c4 c c c | % 4 + + % A section + + \repeat volta 2 + { + c4 c c c | % 5 + c4 c c c | % 6 + c4 c c c | % 7 + } + \alternative + { + { + c4 c c c | % 8 + } + { + c4 c c c | % 9 + } + } + + \repeat volta 2 + { + % B section + + c4 c c c | % 10 + c4 c c c | % 11 + c4 c c c | % 12 + c4 c c c | % 13 + c4 c c c | % 14 + } + \alternative + { + { + \time 2/4 c2 \time 4/4 \bar "||" % 15 + } + { + \time 2/4 c2 \time 4/4 \bar "||" % 16 + } + } + + % A section + + c4 c c c | % 17 + c4 c c c | % 18 + c4 c c c | % 19 + c4 c c c | % 20 + + % Ending + + c4 c c c | % 21 + c4 c c c | % 22 + c1^\fermata \bar "|." % 23 +} + + +\score +{ + << +% \new ChoirStaff = "Vox" + << + \new Staff = leadStaff { \new Voice = "lead" \LeadVox } + \new Lyrics \lyricsto "lead" \LeadVoxText + \new Lyrics \lyricsto "lead" \LeadVoxTextB + >> + + \new ChoirStaff = "Rhythm" + << + \new ChordNames = "chords" \Chords + \new RhythmicStaff = "chordRhythm" \StaffC + >> + + \set Score.skipBars = ##t + \set Score.melismaBusyProperties = #'() + >> + \layout + { +% ragged-last-bottom = ##t +% ragged-last = ##t + } +} + + +\paper +{ + #(define fonts (make-pango-font-tree + "Times New Roman" + "DomCasual BT" + "Luxi Mono" + (/ staffSize 20))) +} diff --git a/we-are-one-in-the-spirit-vocals.ly b/we-are-one-in-the-spirit-vocals.ly new file mode 100644 index 0000000..5bc624d --- /dev/null +++ b/we-are-one-in-the-spirit-vocals.ly @@ -0,0 +1,366 @@ +\version "2.16.0" +\include "pop-chords.ly" +\include "english.ly" + +% Good sizes are 16, 18, & 20 +staffSize = #20 +#(set-default-paper-size "letter") +#(set-global-staff-size staffSize) +#(ly:set-option (quote no-point-and-click)) + +%{ Some useful characters: ‘ ’ “ ” – — † ‡ • … %} + +\header +{ +%Let's bump up the title size and switch to the chord font. :-) + + title = \markup { \override #'(font-family . sans) \fontsize #3.5 "We Are One In The Spirit" } +% composer = \markup { \override #'(font-family . sans) \fontsize #1.3 "" } + arranger = \markup { \override #'(font-family . sans) \fontsize #1.3 "arr. Craig Harris" } + tagline = $(string-append "Engraved by JLH and Lilypond " (lilypond-version)) +% Let's try a chord dictionary +% subtitle = \markup { \center-column { "F#m" \fret-diagram-terse #"x;x;4;2;2;2;" } " " \center-column { "F#m/F" \fret-diagram-terse #"x;x;3;2;2;2;" } " " \center-column { "F#m/E" \fret-diagram-terse #"x;x;2;2;2;2;" } " " \center-column { "F#m/Eb" \fret-diagram-terse #"x;x;1;2;2;2;" } " " \center-column { "Em7" \fret-diagram-terse #"o;2;2;o;3;o;" } " " \center-column { "A13" \fret-diagram-terse #"x;o;2;o;2;2;" } } +} + +% Useful tweak abbreviations (hn = harmony note) + +hn = #(define-music-function (parser location arg) (ly:music?) +;; Harmony Note: Set the tweaks property of the passed in note to use a smaller font + + (set! (ly:music-property arg 'tweaks) + (acons 'font-size -3.0 (ly:music-property arg 'tweaks))) arg) + + +% +% Song's structure +% +Global = +{ + \key e \minor + \override Staff.TimeSignature #'style = #'() + \time 4/4 + + \once \override TextScript #'padding = #2.0 + s1*0^\markup { \large \bold { Funk } } +% Capo 4 version +% s1*0^\markup { \hspace #0.0 \raise #2.0 \larger \bold { "Moderate pop (*** CAPO 4 ***)" } } + + % Intro + + s1*4 \bar "||" % 1-4 + s1*4 \bar "||:" % 5-8 + + \repeat volta 3 + { + \once \override Score.RehearsalMark #'self-alignment-X = #left + \mark \markup { \override #'(font-family . sans) { \box { A } } } + s1*6 \bar "||" % 9-14 + + \mark \markup { \override #'(font-family . sans) { \box { B } } } + s1*4 | % 15-18 + + s1*2 | % 19-20 + } + \alternative + { + { + s1 | % 21 + } + { + s1 | % 22 + } + } + + \repeat volta 2 + { + \mark \markup { \override #'(font-family . sans) { \box { C } } } + + s1*0^\markup { \large \bold \italic { Solos } } + s1*2 | % 23-24 + } + + % Coda + + s2. s4^\markup { \large \bold \italic { Free Time } } | % 39 + s1*3 \bar "|." % 40-42 +} + + +% +% Lead vocal +% +LeadVox = \relative c' +{ +% \set Staff.instrument = #"Lead vox" + \clef G + \override Staff.TimeSignature #'style = #'() +%Hm. Needed anymore? +% \override Score.SpacingSpanner #'average-spacing-wishes = ##f + + % Intro + + r1 | % 1 + r1 | % 2 + r1 | % 3 + r1 | % 4 + r1 | % 5 + r1 | % 6 + r1 | % 7 + r2 r4 b8 d | % 8 + + % Verse + + e4 e8 d e g b, d | % 9 + e4 e8 d e r e b' | % 10 + a4 a8 g a g e d | % 11 + e4 e8 b d r e b' | % 12 + a4 a8 g a g e d | % 13 + e8 e e d e r b d | % 14 + + e4 e8 b e g b, d | % 15 + e4 e8 g a r g a | % 16 + b8 ( a ) g e a g e d | % 17 + e4 r r2 | % 18 + r1 | % 19 + r1 | % 20 + + r2 r4 b8 d | % 21 + + r1 | % 22 + + % Verse + + r1 | % 23 + r1 | % 24 + + % Coda + + r2 r4 g8 a | % 39 + b8 a g e a g e-> d-> | % 40 + b1-\fermata | % 41 + r1-\fermata | % 42 +} + + +LeadVoxText = \lyricmode +{ + We are one in the spi -- rit, + we are one in the Lord. + We are one in the spi -- rit, + we are one in the Lord. + And we pray that all un -- i -- ty + may one day be re -- stored. + And they’ll know we are Christ -- ians + by our love, by our love, + yes they’ll know _ we are Christ -- ians by our love. + + We will +} + +LeadVoxTextB = \lyricmode +{ + _ _ work with each oth -- er, + We will work side by side. + We will work with each oth -- er, + We will work side by side. + And we’ll guard each one’s dig -- ni -- ty + And save _ each one’s pride. + + _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ + + We will +} + +LeadVoxTextC = \lyricmode +{ + _ _ walk with each oth -- er, + We will walk hand in hand. + We will walk with each oth -- er, + We will walk hand in hand. + And to -- ge -- ther we’ll spread the news + that God is in our land. +} + + +Riffs = \relative c +{ + \clef G +%Hm. Needed anymore? +% \override Score.SpacingSpanner #'average-spacing-wishes = ##f + + % Intro + +% \tiny +% \repeat percent 4 { e8_\markup { \italic { bass figure } } e e e e e e e } | % 1-4 +% \normalsize +} + + +% +% Chord names +% +Chords = \chordmode +{ + % Intro + + e1:m9 | % 1 + s1 | % 2 + s1 | % 3 + s1 | % 4 + e1:m9 | % 5 + s4.. a16:13 s2 | % 5 + e1:m9 | % 7 + s4.. a16:13 s2 | % 8 + + % Verse + + e4.:sus4.7 e8:sus4.7/a s4.. e16:sus4.7 | % 9 + s2. s8. e16:m7/a | % 10 + s4. a8:9 s4.. e16:sus4.7 | % 11 + s2. s8. e16:m7/a | % 12 + s4. a8:9 s4.. e16:sus4.7 | % 13 + s2. ef8.:m9 d16:m9 | % 14 + + s4.. g2:13.9- c16:maj9 | % 15 + s4.. f2:maj7 fs16:m7.5- | % 16 + s4.. b16:7 s4 b8.:aug7.9+ e16:m9 | % 17 + s4.. a2:13 e16:m9 | % 18 + s4.. a16:13 s4 b8.:aug7.9+ e16:m9 | % 19 + s4.. a16:13 s4.. e16:m9 | % 20 + + s4.. a16:13 s2 | % 21 + + s4.. a16:13 s2 | % 22 + + % Verse + + e4.:m9 a8:5.9 s2 | % 23 + e4.:m9 a8:9 s2 | % 24 + + % Coda + + e4..:m9 a2:13 s16 | % 39 + fs2:m7.5- b:aug7.9+ | % 40 + b1:aug/f | % 41 + d1/e | % 42 +} + + +% +% Chord rhythms +% +% Use a RhythmicStaff on the chords instead of this? +% It almost works, but not quite. Doesn't collapse chords above to single notes... +% +Rhythm = \relative c +{ +%% \set Voice.autoBeaming = ##f +%% \set Staff.instrument = #"Rhythm" + \override Staff.TimeSignature #'style = #'() + \override NoteHead #'style = #'slash + +%Not small enough... + \teeny +% \magnify #0.3 + % Intro + + | % 1 + | % 2 + | % 3 + | % 4 + | % 5 + | % 6 + | % 7 + | % 8 + + % Verse + + | % 9 + | % 10 + | % 11 + | % 12 + | % 13 + | % 14 + + | % 15 + | % 16 + | % 17 + | % 18 + | % 19 + | % 20 + + | % 21 + + | % 22 + + % Verse + + | % 23 + | % 24 + + % Coda + + | % 39 + | % 40 + | % 41 + | % 42 + \normalsize +} + + +Dynamics = +{ + s1*2 | % 1-2 + s4_\markup { \bold \italic { Drums In } } s2. | % 3 + s1 | % 4 + s4_\markup { \bold \italic { Band In } } s2. | % 5 +} + + +\score +{ + << + \set Score.skipBars = ##t + \set Score.melismaBusyProperties = #'() + +% \new Staff + << + \new ChordNames \Chords +%Capo 4 edition +% \new ChordNames \transpose b g \Chords + \new RhythmicStaff << \Rhythm \Dynamics >> + >> + + \new Staff + << + \Global % The "roadmap" that everything else depends on + \new Voice = "lead" \LeadVox +% \new Voice \Riffs + \new Lyrics \lyricsto "lead" \LeadVoxText + \new Lyrics \lyricsto "lead" \LeadVoxTextB + \new Lyrics \lyricsto "lead" \LeadVoxTextC + >> + >> +} + + +\paper +{ + #(define fonts (make-pango-font-tree + "Times New Roman" + "DomCasual BT" + "Luxi Mono" + (/ staffSize 20))) + +% Spread staves vertically across last page (default: t) + ragged-last-bottom = ##f +% Don't spread staves vertically across the page (default: f) +% ragged-bottom = ##t +% Allow partial line for last stave (default: f) + ragged-last = ##t + +% To find out what's eating the space at the top... +% annotate-spacing = ##t +%let's try this: [It works! Huzzah!] + obsolete-page-top-space = 0 top-system-spacing #'basic-distance = #(/ obsolete-page-top-space staff-space) +} diff --git a/we-are-one-in-the-spirit.ly b/we-are-one-in-the-spirit.ly new file mode 100644 index 0000000..ee9874a --- /dev/null +++ b/we-are-one-in-the-spirit.ly @@ -0,0 +1,417 @@ +\version "2.16.0" +\include "pop-chords.ly" +\include "english.ly" + +% Good sizes are 16, 18, & 20 +staffSize = #20 +#(set-default-paper-size "letter") +#(set-global-staff-size staffSize) +#(ly:set-option (quote no-point-and-click)) + +%{ Some useful characters: ‘ ’ “ ” – — † ‡ • … %} + +\header +{ +%Let's bump up the title size and switch to the chord font. :-) + + title = \markup { \override #'(font-family . sans) \fontsize #3.5 "We Are One In The Spirit" } +% composer = \markup { \override #'(font-family . sans) \fontsize #1.3 "" } + arranger = \markup { \override #'(font-family . sans) \fontsize #1.3 "arr. Craig Harris" } + tagline = $(string-append "Engraved by JLH and Lilypond " (lilypond-version)) +% Let's try a chord dictionary +% subtitle = \markup { \center-column { "F#m" \fret-diagram-terse #"x;x;4;2;2;2;" } " " \center-column { "F#m/F" \fret-diagram-terse #"x;x;3;2;2;2;" } " " \center-column { "F#m/E" \fret-diagram-terse #"x;x;2;2;2;2;" } " " \center-column { "F#m/Eb" \fret-diagram-terse #"x;x;1;2;2;2;" } " " \center-column { "Em7" \fret-diagram-terse #"o;2;2;o;3;o;" } " " \center-column { "A13" \fret-diagram-terse #"x;o;2;o;2;2;" } } +} + +% Useful tweak abbreviations (hn = harmony note) + +hn = #(define-music-function (parser location arg) (ly:music?) +;; Harmony Note: Set the tweaks property of the passed in note to use a smaller font + + (set! (ly:music-property arg 'tweaks) + (acons 'font-size -3.0 (ly:music-property arg 'tweaks))) arg) + + +% +% Song's structure +% +Global = +{ + \key e \minor + \override Staff.TimeSignature #'style = #'() + \time 4/4 + + \once \override TextScript #'padding = #2.0 + s1*0^\markup { \large \bold { Funk } } +% Capo 4 version +% s1*0^\markup { \hspace #0.0 \raise #2.0 \larger \bold { "Moderate pop (*** CAPO 4 ***)" } } + + % Intro + + s1*4 \bar "||" % 1-4 + s1*4 \bar "||:" % 5-8 + + \repeat volta 2 + { +% \mark \markup { \override #'(font-family . sans) { \box { A } } } + \once \override Score.RehearsalMark #'self-alignment-X = #left + \mark \markup { \override #'(font-family . sans) { \box { A } } \hspace #1.0 \raise #2.0 \musicglyph #"scripts.segno" } + + s1*6 \bar "||" % 9-14 + s1*4 | % 15-18 + + \once \override Score.RehearsalMark #'self-alignment-X = #left + \mark \markup { \override #'(font-family . sans) \hspace #1.0 \raise #2.0 \musicglyph #"scripts.coda" { \bold { To CODA } } } + s1*2 | % 19-20 + } + \alternative + { + { + s1 | % 21 + } + { + s1 | % 22 + } + } + + \repeat volta 2 + { + \mark \markup { \override #'(font-family . sans) { \box { B } } } + + s1*0^\markup { \large \bold \italic { Solos } } + s1*2 \bar "||" % 23-24 + s1*4 | % 25-36 +%bleh +\break + s1*8 | % 25-36 + } + \alternative + { + { + s1 | % 37 + } + { + s1 | % 38 + \once \override Score.RehearsalMark #'self-alignment-X = #right + \mark \markup { \bold { D.S. al Coda } } + } + } + + % Coda + + % blank measure between last measure and coda + \stopStaff s1 \bar "" \startStaff % That removed the spurious floating bar line from line break +% \stopStaff s1 \startStaff % That removed the spurious floating bar line from line break +% \break % Meh + \set Score.currentBarNumber = #39 + + \once \override Score.RehearsalMark #'self-alignment-X = #left + \mark \markup { { \musicglyph #"scripts.coda" } { \bold { Coda } } } + +%bleh +\break +s2. s4^\markup { \large \bold \italic { Free Time } } | % 39 + s1*3 \bar "|." % 40-42 +} + + +% +% Lead vocal +% +LeadVox = \relative c' +{ +% \set Staff.instrument = #"Lead vox" + \clef G + \override Staff.TimeSignature #'style = #'() +%Hm. Needed anymore? +% \override Score.SpacingSpanner #'average-spacing-wishes = ##f + + % Intro + + r1 | % 1 + r1 | % 2 + r1 | % 3 + r1 | % 4 + r1 | % 5 + r1 | % 6 + r1 | % 7 + r2 r4 b8 d | % 8 + + % Verse + + e4 r16 e d e ~ e g8.-> b,8 d | % 9 + e4 r16 e d e-. r4 e8-- ( b'-- ) | % 10 + a4 r16 a g a ~ a ( g8.-> ) e8 d | % 11 + e8 b e16 b d e-. r8. d16 \override Glissando #'style = #'zigzag e8 \glissando b' | % 12 +%\override Glissando #'style = #'zigzag +%d,2 \glissando d'2 + a8 r r16 a g a ~ a ( g8. ) e8 d | % 13 + e8-- e-- e-- d16 e-^ r4 b8 d | % 14 + + e8 r e16 b d e ~ e g8. e8 d16 e ~ | % 15 + e8 r e g16 a ~ a8 r g a16 b ~ | % 16 + b8 a g e16 a ~ a g8. e8 d16 e ~ | % 17 + e4 r r2 | % 18 + r1 | % 19 + r1 | % 20 + + r2 r4 b8 d | % 21 + + r1 | % 22 + + % Verse + + r1 | % 23 + r1 | % 24 + + r1 | % 25 + r1 | % 26 + r1 | % 27 + r1 | % 28 + r1 | % 29 + r1 | % 30 + r1 | % 31 + r1 | % 32 + r1 | % 33 + r1 | % 34 + r1 | % 35 + r1 | % 36 + + r1 | % 37 + + r2 r4 b8 d | % 38 + + % Blank measure, for Coda + s1 + + % Coda + + r2 r4 g8 a | % 39 + b8 a g e a g e-> d-> | % 40 + b1-\fermata | % 41 + r1-\fermata | % 42 +} + + +LeadVoxText = \lyricmode +{ +} + + +Riffs = \relative c +{ + \clef G +%Hm. Needed anymore? +% \override Score.SpacingSpanner #'average-spacing-wishes = ##f + + % Intro + +% \tiny +% \repeat percent 4 { e8_\markup { \italic { bass figure } } e e e e e e e } | % 1-4 +% \normalsize +} + + +% +% Chord names +% +Chords = \chordmode +{ + % Intro + + e1:m9 | % 1 + s1 | % 2 + s1 | % 3 + s1 | % 4 + e1:m9 | % 5 + s4.. a16:13 s2 | % 5 + e1:m9 | % 7 + s4.. a16:13 s2 | % 8 + + % Verse + + e4.:sus4.7 e8:sus4.7/a s4.. e16:sus4.7 | % 9 + s2. s8. e16:m7/a | % 10 + s4. a8:9 s4.. e16:sus4.7 | % 11 + s2. s8. e16:m7/a | % 12 + s4. a8:9 s4.. e16:sus4.7 | % 13 + s2. ef8.:m9 d16:m9 | % 14 + + s4.. g2:13.9- c16:maj9 | % 15 + s4.. f2:maj7 fs16:m7.5- | % 16 + s4.. b16:7 s4 b8.:aug7.9+ e16:m9 | % 17 + s4.. a2:13 e16:m9 | % 18 + s4.. a16:13 s4 b8.:aug7.9+ e16:m9 | % 19 + s4.. a16:13 s4.. e16:m9 | % 20 + + s4.. a16:13 s2 | % 21 + + s4.. a16:13 s4 ef:sus4.7 | % 22 + + % Verse + + e4.:sus4.7 a8:5.9 s2 | % 23 + e4.:m9 a8:9 s2 | % 24 + + e4.:m9 a8:9 s2 | % 25 + e4.:m9 a8:9 s2 | % 26 + e2:m9 a:9 | % 27 + e2:m9 a:9 | % 28 + e2:m9 a:9 | % 29 + e2:m9 a4:9 ef8.:m9 d16:m9 | % 30 + s4.. g2:13.9- c16:maj9 | % 31 + s4.. f2:maj7 fs16:m7.5- | % 32 + s4.. b2:aug7.9+ e16:m9 | % 33 + s4.. a2:13 e16:m9 | % 34 + s4.. a2:13 e16:m9 | % 35 + s4.. a2:13 e16:m9 | % 36 + + s4.. a2:13 s16 | % 37 + + s4.. a2:13 s16 | % 38 + + % Blank measure, for Coda + s1 + + % Coda + + e4..:m9 a2:13 s16 | % 39 + fs2:m7.5- b:aug7.9+ | % 40 + b1:aug/f | % 41 + d1/e | % 42 +} + + +% +% Chord rhythms +% +% Use a RhythmicStaff on the chords instead of this? +% It almost works, but not quite. Doesn't collapse chords above to single notes... +% +Rhythm = \relative c +{ +%% \set Voice.autoBeaming = ##f +%% \set Staff.instrument = #"Rhythm" + \override Staff.TimeSignature #'style = #'() + \override NoteHead #'style = #'slash + +%Not small enough... + \teeny +% \magnify #0.3 + % Intro + + | % 1 + | % 2 + | % 3 + | % 4 + | % 5 + | % 6 + | % 7 + | % 8 + + % Verse + + | % 9 + | % 10 + | % 11 + | % 12 + | % 13 + | % 14 + + | % 15 + | % 16 + | % 17 + | % 18 + | % 19 + | % 20 + + | % 21 + + | % 22 + + % Verse + + | % 23 + | % 24 + + | % 25 + | % 26 + | % 27 + | % 28 + | % 29 + | % 30 + | % 31 + | % 32 + | % 33 + | % 34 + | % 35 + | % 36 + + | % 37 + + | % 38 + + % Blank measure, for Coda + s1 + + % Coda + + | % 39 + | % 40 + | % 41 + | % 42 + \normalsize +} + + +Dynamics = +{ +% s1*4 | % 1-4 +% s4_\markup { \italic { 1st X: Melody, 2nd X+: Solos } } s2. | % 5 +} + + +\score +{ + << + \set Score.skipBars = ##t + \set Score.melismaBusyProperties = #'() + +% \new Staff + << + \new ChordNames \Chords +%Capo 4 edition +% \new ChordNames \transpose b g \Chords + \new RhythmicStaff << \Rhythm \Dynamics >> + >> + + \new Staff + << + \Global % The "roadmap" that everything else depends on + \new Voice = "lead" \LeadVox +% \new Voice \Riffs +% \new Lyrics \lyricsto "lead" \LeadVoxText + >> + >> +} + + +\paper +{ + #(define fonts (make-pango-font-tree + "Times New Roman" + "DomCasual BT" + "Luxi Mono" + (/ staffSize 20))) + +% Spread staves vertically across last page (default: t) + ragged-last-bottom = ##f +% Don't spread staves vertically across the page (default: f) +% ragged-bottom = ##t +% Allow partial line for last stave (default: f) + ragged-last = ##t + +% To find out what's eating the space at the top... +% annotate-spacing = ##t +%let's try this: [It works! Huzzah!] + obsolete-page-top-space = 0 top-system-spacing #'basic-distance = #(/ obsolete-page-top-space staff-space) +} diff --git a/we-three-kings.ly b/we-three-kings.ly new file mode 100644 index 0000000..d82f5e8 --- /dev/null +++ b/we-three-kings.ly @@ -0,0 +1,414 @@ +\version "2.16.0" +\include "pop-chords.ly" +\include "english.ly" + +% Good sizes are 16, 18, & 20 +staffSize = #16 +#(set-default-paper-size "letter") +#(set-global-staff-size staffSize) +#(ly:set-option (quote no-point-and-click)) + +\header +{ +%Let's bump up the title size and switch to the chord font. :-) + + title = \markup { \override #'(font-family . sans) \fontsize #3.5 "We Three Kings" } + composer = \markup { \override #'(font-family . sans) \fontsize #1.3 "John H. Hopkins, Jr." } + arranger = \markup { \override #'(font-family . sans) \fontsize #1.3 "arr. Ed Smart" } + tagline = "Engraved by JLH and Lilypond 2.8.6" +} + + +% +% Lead vocal +% + +LeadVox = \relative c'' +{ +% \set Voice.autoBeaming = ##f +% \set Staff.instrumentName = #"Lead vox" + \clef G + \key e \minor + \override Staff.TimeSignature #'style = #'() + \time 3/4 +\override Score.SpacingSpanner #'average-spacing-wishes = ##f + + % Intro + + s2.^\markup { \hspace #0.0 \raise #1.0 { Light jazz waltz } } | % 1 + s2. | % 2 + + \repeat volta 3 + { + % Interlude + +\mark \markup { \override #'(font-family . sans) { \box { 1 } } } + + s2. | % 3 + r2. | % 4 + r2. | % 5 + r2. | % 6 + r2. | % 7 + r2. | % 8 + r2. | % 9 + r2. \bar "||" % 10 + +\break %bleh, only valid for size 16 + + % Verse + +\mark \markup { \override #'(font-family . sans) { \box { A } } } + + b2 a4 | % 11 + g2 e4 | % 12 + fs4 g fs | % 13 + e2. | % 14 + b'2 a4 | % 15 + g2 e4 | % 16 + fs4 ( g ) fs | % 17 + e2. \bar "||" % 18 + + g2 g4 | % 19 + a2 a4 | % 20 + +\break %bleh, only valid for size 16 + + b2 b4 | % 21 + d4 ( c ) b | % 22 + a4 b a | % 23 + g2 fs4 | % 24 + e2. | % 25 + fs2. ( | % 26 + a2. ) \bar "||" % 27 + + % Chorus + +\mark \markup { \override #'(font-family . sans) { \box { B } } } + + g2 g4 | % 28 + g2 d4 | % 29 + +\break %bleh, only valid for size 16 + + g2 e4 | % 30 + g2 r4 | % 31 + g2 g4 | % 32 + g2 d4 | % 33 + g2 e4 | % 34 + g2. | % 35 + g2 g4 | % 36 + a2 b4 | % 37 + c2 b4 | % 38 + a2 b4 | % 39 + +\break %bleh, only valid for size 16 + + g2 g4 | % 40 + g2 d4 | % 41 + } + \alternative + { + { + g2 e4 | % 42 + g2. | % 43 + } + { + g2. | % 44 + } + } + + e2. | % 45 + + % Outro + + \repeat volta 2 + { + +\mark \markup { \override #'(font-family . sans) { \box { C } } } + + g2. | % 46 + r2. | % 47 + r2. | % 48 + r2. | % 49 + } + + r2.-\fermata \bar "|." % 50 +} + +LeadVoxText = \lyricmode +{ + We three kings of O -- ri -- ent are + bear -- ing gifts we trav -- erse a -- far, + Field and foun -- tain, moor and moun -- _ tain, + fol -- low -- ing yon -- der star. + + O! __ _ + star of won- der, star of night, + star with roy -- al beau -- ty bright, + West -- ward lea -- ding, still pro -- cee -- ding, + guide us to thy per -- fect light. + + per -- fect light. +} + +LeadVoxTextB = \lyricmode +{ + Born a king on Beth -- le -- hem’s plain, + gold I bring to crown him a -- gain, + King for -- e -- ver, cea -- sing ne -- _ ver + o -- ver us all to reign. +} + +LeadVoxTextC = \lyricmode +{ + Glo -- rious now be -- hold him a -- rise, + king and God and sa -- _ cri -- fice; + Al -- le -- lu -- ia, Al -- le -- lu -- _ ia! + Sounds thru the earth and skies. +} + + +Riffs = \relative c'' +{ + \clef G + \key e \minor + \override Staff.TimeSignature #'style = #'() + \time 3/4 +\override Score.SpacingSpanner #'average-spacing-wishes = ##f + + % Intro + + \tiny + a4 b a | % 1 + g2 fs4 | % 2 + e2. | % 3 + \normalsize +} + + +% +% Chord names +% + +Chords = \chordmode +{ +%Bah, can't we set this globally? +% \popChords + + % Intro + + s2. | % 1 + s2. | % 2 + + \repeat volta 3 + { + s8 e2:m7 s8 | % 3 + a2.:m9 | % 4 + s8 e2:m7 s8 | % 5 + c4.:9 b:7.5+.9- | % 6 + s8 e2:m7 s8 | % 7 + a2.:m9 | % 8 + s8 e2:m7 s8 | % 9 + c4.:9 b:7.5+.9- | % 10 + + e2.:m7 | % 11 + c2.:maj7 | % 12 + b2.:7.5+.9- | % 13 + e2.:m7 | % 14 + c2.:maj7 | % 15 + a2.:m7 | % 16 + b2.:7.5+.9- | % 17 + e4.:m7 d/fs | % 18 + + g2. | % 19 + d2. | % 20 + c2.:maj7 | % 21 + b2:m7 e4:m7 | % 22 + a2.:m7 | % 23 + b2.:7.5+.9- | % 24 + e2.:m7 | % 25 + d2. | % 26 + d2.:7 | % 27 + + g2. | % 28 + s2. | % 29 + c2.:maj7 | % 30 + g2. | % 31 + s2. | % 32 + s2. | % 33 + c2.:maj7 | % 34 + g4. d/fs | % 35 + e2.:m7 | % 36 + b4.:m7 e:m7 | % 37 + a2.:m7 | % 38 + b2.:7.5+.9- | % 39 + c2.:maj7 | % 40 + b2.:m7 | % 41 + } + \alternative + { + { + a2.:m7 | % 42 + g4. g/fs | % 43 + } + { + a2.:m7 | % 44 + } + } + + a2.:m7/d | % 45 + + \repeat volta 2 + { + s8 g2 s8 | % 46 + c2.:maj7 | % 47 + s8 g2 s8 | % 48 + c2.:maj7 | % 49 + } + + g2. | % 50 +} + + +% +% Chord rhythms +% + +% Use a RhythmicStaff on the chords instead of this? +% It almost works, but not quite. Doesn't collapse chords above to single notes... + +StaffC = \relative c +{ +% \set Voice.autoBeaming = ##f +% \set Staff.instrumentName = #"Rhythm" + \override Staff.TimeSignature #'style = #'() + \time 3/4 + \override NoteHead #'style = #'slash + + % Intro + + r2. | % 1 + r2. | % 2 + + \repeat volta 3 + { + r8 c4.-> c4-^ | % 3 + c2. | % 4 + r8 c4.-> c4-^ | % 5 + c4. c | % 6 + r8 c4.-> c4-^ | % 7 + c2. | % 8 + r8 c4.-> c4-^ | % 9 + c4. c \bar "||" % 10 + + c2. | % 11 + c2. | % 12 + c2. | % 13 + c2. | % 14 + c2. | % 15 + c2. | % 16 + c2. | % 17 + c4. c \bar "||" % 18 + + c2. | % 19 + c2. | % 20 + c2. | % 21 + c2 c4 | % 22 + c2. | % 23 + c2. | % 24 + c2. | % 25 + c2.-> | % 26 + c4 c c \bar "||" % 27 + + c4 c c | % 28 + c4 c c | % 29 + c4 c c | % 30 + c4 c c | % 31 + c4 c c | % 32 + c4 c c | % 33 + c4 c c | % 34 + c4. c | % 35 + c4 c c | % 36 + c4. c | % 37 + c4 c c | % 38 + c4 c c | % 39 + c4 c c | % 40 + c4 c c | % 41 + } + \alternative + { + { + c4 c c | % 42 + c4. c | % 43 + } + { + c4 c c | % 44 + } + } + + c4 c c | % 45 + + \repeat volta 2 + { + r8 c4.-> c4-^ | % 46 + c2. | % 47 + r8 c4.-> c4-^ | % 48 + c2. | % 49 + } + + c2.-\fermata \bar "|." % 50 +} + + +Dynamics = +{ + s2.*10 + s4_\mf s2 | % 11 + s2.*15 + s4 s \< s | % 27 + s4_\f s2 | % 28 + s2.*20 + s4_\markup { \italic { rit. 2nd time } } s2 | % 49 +} + + +\score +{ + << + << +% \new Staff = leadStaff { \new Voice = "lead" \LeadVox } + \new Staff = leadStaff { << \new Voice = "lead" \LeadVox \new Voice = "riffs" \Riffs >> } + \new Lyrics \lyricsto "lead" \LeadVoxText + \new Lyrics \lyricsto "lead" \LeadVoxTextB + \new Lyrics \lyricsto "lead" \LeadVoxTextC + >> + + \new ChoirStaff = "Rhythm" + << + \new ChordNames = "chords" \Chords + \new RhythmicStaff = "chordRhythm" << \StaffC \Dynamics >> + >> + + \set Score.skipBars = ##t + \set Score.melismaBusyProperties = #'() + >> + + \layout + { +% \context { \Staff \RemoveEmptyStaves } +% ragged-last-bottom = ##t +% ragged-last = ##t + } +} + + +\paper +{ + #(define fonts (make-pango-font-tree + "Times New Roman" + "DomCasual BT" + "Luxi Mono" + (/ staffSize 20))) + +% top-margin = -0.25 \in +} diff --git a/we-will-glorify.ly b/we-will-glorify.ly new file mode 100644 index 0000000..3bda98a --- /dev/null +++ b/we-will-glorify.ly @@ -0,0 +1,346 @@ +\version "2.16.0" +\include "pop-chords.ly" +\include "english.ly" + +% Good sizes are 16, 18, & 20 +staffSize = #20 +#(set-default-paper-size "letter") +#(set-global-staff-size staffSize) +#(ly:set-option (quote no-point-and-click)) + +%{ Some useful characters: ‘ ’ “ ” – — † ‡ • … %} + +\header +{ +%Let's bump up the title size and switch to the chord font. :-) + + title = \markup { \override #'(font-family . sans) \fontsize #3.5 "We Will Glorify" } + composer = \markup { \override #'(font-family . sans) \fontsize #1.3 "Twila Paris" } + arranger = \markup { \override #'(font-family . sans) \fontsize #1.3 "arr. Ed Smart" } + tagline = $(string-append "Engraved by JLH and Lilypond " (lilypond-version)) +} + +% Useful tweak abbreviations (hn = harmony note) + +hn = #(define-music-function (parser location arg) (ly:music?) +;; Harmony Note: Set the tweaks property of the passed in note to use a smaller font + + (set! (ly:music-property arg 'tweaks) + (acons 'font-size -3.5 (ly:music-property arg 'tweaks))) arg) + + +% +% Song's structure +% +Global = +{ + \key d \major + \override Staff.TimeSignature #'style = #'() + \time 3/4 + + % Intro + + \partial 4*1 s4 | % 0 +% \once \override TextScript #'padding = #2.0 +% s1*0^\markup { \large \bold { Moderately fast pop } } +%%Capo 3 version +%% s1*0^\markup { \large \bold { Moderately fast pop "(*** CAPO 3 ***)" } } +% s1*13 \bar "||:" % 1-13 + + \repeat volta 3 + { + % Verse + + \mark \markup { \override #'(font-family . sans) { \box { A } \hspace #0.5 \bold \italic { 1st X instr. } } } + + s2.*7 | % 1-7 + } + \alternative + { + { + s2. | % 8 + } + { + s2. | % 9 + } + } + + % Modulation (instr. verse) + + \mark \markup { \override #'(font-family . sans) { \box { B } } } + + \key e \major + s2.*4 \bar "||" % 10-13 + + \mark \markup { \override #'(font-family . sans) { \box { C } } } + + s2.*11 \bar "|." % 14-24 +} + + +% +% Lead vocal +% +LeadVox = \relative c'' +{ + \clef G + \override Score.SpacingSpanner #'average-spacing-wishes = ##f + + % Intro + + s4 | % 0 + + % Verse + + b8 a a4 e | % 1 + e8 fs fs4 fs8 a | % 2 + b8 a a4 e8. ( fs16 ) | % 3 + fs2 fs8 a | % 4 + b8 a a4 e | % 5 + e8 fs fs4 fs8 ( a ) | % 6 + g8 fs fs4 e8. ( d16 ) | % 7 + + d2 fs8 a | % 8 + + d,2 s4 | % 9 + + % Modulation (instr. verse) + + s2. | % 10 + s2. | % 11 + s2. | % 12 + s2 gs8 b | % 13 + + % Verse + + cs8 b b4 fs | % 14 + fs8 gs gs4 gs8 b | % 15 + cs8 b b4 fs8. ( gs16 ) | % 16 + gs2 gs8 b | % 17 + cs8 b b4 fs | % 18 + fs8 gs gs4 gs8 ( b ) | % 19 + a8 gs gs4 fs8. ( e16 ) | % 20 + e2 gs8 ( b ) | % 21 + a8 gs gs4 fs8. ( e16 ) | % 22 + e2. ~ | % 23 + e2.-\fermata | % 24 +} + +LeadVoxText = \lyricmode +{ + glor -- i -- fy the King of Kings, + we will glor -- i -- fy the _ Lamb, + we will glor -- i -- fy the Lord of Lords, + who _ is the great I _ Am. + + We will + give. + + Hal -- le -- lu -- jah to the King of Kings, + Hal -- le -- lu -- jah to the _ Lamb, + Hal -- le -- lu -- jah to the Lord of Lords, + who _ is the great I _ Am, + who _ is the great I _ Am. +} + +LeadVoxTextB = \lyricmode +{ + Lord of hea -- ven, Lord of earth, + He is Lord of all who _ live, + He is Lord a -- bove the u -- ni -- verse, + all _ praise to him we _ + + _ + He is +} + + +% +% Riffs +% +Riffs = \relative c' +{ + + % Intro + + \tiny + fs8 a | % 0 + s2.*8 | % 1-8 + + s2 gs8 b | % 9 + cs8 b b4 fs | % 10 + fs8 gs gs4 gs8 b | % 11 + a8 gs gs4 fs8 ( e ) | % 12 + e2 s4 | % 13 +} + + +% +% Chord names +% +Chords = \chordmode +{ +%Bah, can't we set this globally? +% \popChords + + % Intro + + d4/fs | % 0 + + % Verse + + g2 a4 | % 1 + a8 d d4 d/fs | % 2 + g2 a4 | % 3 + d2 d4/fs | % 4 + g2 a4 | % 5 + a8/b b4.:m d4/fs | % 6 + g8 d/g d4/a a | % 7 + + d2 d4/fs | % 8 + + d2 e4/gs | % 9 + + % Modulation (instr. verse) + + a2 b4 | % 10 + b8/cs cs4.:m e4/gs | % 11 + a8 e/a e4/b b | % 12 + e2 e4/gs | % 13 + + % Verse + + a2 b4 | % 14 + b8 e4. e4/gs | % 15 + a2 b4 | % 16 + e2 e4/gs | % 17 + a2 b4 | % 18 + b8/cs cs4.:m e4/gs | % 19 + a8 e/a e4/b b | % 20 + e2 e4/gs | % 21 + a8 e/a e4/b b | % 22 + d2.:sus2 | % 23 + e2.:sus2 | % 24 +} + + +% +% Chord rhythms +% + +% Use a RhythmicStaff on the chords instead of this? +% It almost works, but not quite. Doesn't collapse chords above to single notes... + +Rhythm = +{ + \override Staff.TimeSignature #'style = #'() + \override NoteHead #'style = #'slash + + % Intro + + c4-> | % 0 + + % Verse + + c4 c c | % 1 + c8 c c4 c | % 2 + c4 c c | % 3 + c4 c c | % 4 + c4 c c | % 5 + c8 c c4 c | % 6 + c8 c c4 c | % 7 + + c4 c c-> | % 8 + + c4 c c | % 9 + + % Modulation (instr. verse) + + c4 c c | % 10 + c8-> c-> c4-> c | % 11 + c8 c c4 c | % 12 + c4 c c-> | % 13 + + % Verse + + c4 c c | % 14 + c8-> c-> c4-> c | % 15 + c4 c c | % 16 + c4 c c | % 17 + c4 c c | % 18 + c8 c c4 c | % 19 + c8 c c4 c | % 20 + c4 c c-> | % 21 + c8 c c4 c | % 22 + c4 c c | % 23 + c2.-\fermata | % 24 +} + + +Dynamics = +{ +%{ +%Hmm, this is throwin off the layout... + s4_\mf s2. | % 1 + s1*18 | % 2-19 + s4 s \< s2 | % 20 + s4_\f s2. | % 21 +%} +%{ + % Intro + s4_\markup { \italic { Ac. gtr only } } s2. | % 1 + + s1*3 | % 2-4 + + s4_\markup { \italic { Band in } } s2. | % 5 +%} +} + + +\score +{ + << + \Global % The "roadmap" that everything else depends on + + \context Staff + << + \new Voice = "lead" \LeadVox + \new Voice \Riffs + \new Lyrics \lyricsto "lead" \LeadVoxText + \new Lyrics \lyricsto "lead" \LeadVoxTextB + >> + + \new ChoirStaff + << + \new ChordNames \Chords +%Capo 3 edition +% \new ChordNames \transpose f d \Chords + \new RhythmicStaff << \Rhythm \Dynamics >> + >> + + \set Score.skipBars = ##t + \set Score.melismaBusyProperties = #'() + >> +} + + +\paper +{ + #(define fonts (make-pango-font-tree + "Times New Roman" + "DomCasual BT" + "Luxi Mono" + (/ staffSize 20))) + +% Don't spread staves vertically across last page (default: t) + ragged-last-bottom = ##f +% Don't spread staves vertically across the page (default: f) +% ragged-bottom = ##t +% Allow partial line for last stave (default: f) + ragged-last = ##t + +% To find out what's eating the space at the top... +% annotate-spacing = ##t +%let's try this: [It works! Huzzah!] + obsolete-page-top-space = 0 top-system-spacing #'basic-distance = #(/ obsolete-page-top-space staff-space) +} diff --git a/we-will-worship-the-lamb-of-glory.ly b/we-will-worship-the-lamb-of-glory.ly new file mode 100755 index 0000000..34c609a --- /dev/null +++ b/we-will-worship-the-lamb-of-glory.ly @@ -0,0 +1,330 @@ +\version "2.16.0" +\include "pop-chords.ly" +\include "english.ly" + +staffSize = #18 % or 16 +#(set-default-paper-size "letter") +#(set-global-staff-size staffSize) +#(ly:set-option (quote no-point-and-click)) + +\header +{ +%Let's bump up the title size and switch to the chord font. :-) + + title = \markup { \override #'(font-family . sans) + { \fontsize #3.5 "We Will Worship The Lamb Of Glory" } } +% composer = \markup { \override #'(font-family . sans) "" } + arranger = \markup { \override #'(font-family . sans) "arr. Ed Smart" } + tagline = "Engraved by JLH and Lilypond 2.8.2" +} + + +% +% Lead vocal +% + +LeadVox = \relative c'' +{ +% \set Voice.autoBeaming = ##f +% \set Staff.instrumentName = #"Lead vox" + \clef G + \key f \major + \override Staff.TimeSignature #'style = #'() + \time 4/4 +\override Score.SpacingSpanner #'average-spacing-wishes = ##f + + % Intro + + R1^\markup { 8th note ballad } | % 1 + R1 | % 2 + R1 | % 3 + R1 | % 4 + + % Verse + + \repeat volta 2 + { +%\mark \markup { \override #'(font-family . sans) { \box { A } } } +\once \override Score.RehearsalMark #'self-alignment-X = #left +\mark \markup { \override #'(font-family . sans) { \box { A } } \hspace #1.0 \raise #2.0 \musicglyph #"scripts.segno" } + + r4 a8 a a g f g ~ | % 5 + g4 f8 a ~ a g4. | % 6 + r4 a8 a a g f g ~ | % 7 + g4 a8 g ~ g4 r | % 8 + r4 a8 a a g f g ~ | % 9 + g4 a8 g ( ~ g f ) d4 | % 10 + } + \alternative + { + { + r4 f8 f g a g f ~ | % 11 + f2 r | % 12 + } + { + r4 f8 f g a g f | % 13 + r8 c' c c c bf a c ~ | % 14 + } + } + + % Chorus + + \repeat volta 3 + { +\mark \markup { \override #'(font-family . sans) { \box { B } } } + + c8 c c bf ~ bf c d c | % 15 + r8 c c c c bf a c ~ | % 16 + c8 c c c bf c d c | % 17 + r8 c c c c bf a d ~ | % 18 + d8 c bf c ~ c bf a bf ~ | % 19 + bf8 a g f ~ f g a bf ~ | % 20 + bf8 a g f f g e f ~ | % 21 + } + \alternative + { + { + f2 r | % 22 + << R1 \\ { s2. s4^\markup { \bold \italic { D.S. } } } >> \bar "||" % 23 +% R1^\markup { \bold \italic { D.S. } } \bar "||" % 23 +%\once \override Score.RehearsalMark #'self-alignment-X = #right +%\mark \markup { \italic { D.S. } } + } + { + r8 c' c c c bf a c ~ | % 24 + } + { + f,2 \repeatTie r8 g a bf ~ | % 25 + } + } + + % Outro + + bf8 a g f f g e f ~ | % 26 + f2 r8 g a bf ~ | % 27 + bf8 a g f f g e4 \bar "||" % 28 + + f4 r r2 | % 29 + R1 | % 30 + R1 | % 31 + R1 | % 32 + r1^\fermata \bar "|." % 33 +} + +LeadVoxText = \lyricmode +{ + We will wor- ship the lamb _ of glo- _ ry + We will wor- ship the King _ of kings _ + We will wor- ship the lamb _ of glo- __ _ _ ry + We will wor- ship the King _ + + We will wor- ship the King + + And with our hands lift- ed high _ + we will wor- _ ship and sing + And with our hands lift- ed high _ + we come be- fore you re- joice + And with our hands lift- ed high _ + to the sky _ when the world _ wond- ers why _ + We'll just tell _ them that we're lov- ing our king _ + + And with our hands lift- ed high + + _ We'll just tell _ them that we're lov- ing our king _ + We'll just tell _ them that we're lov- ing our king +} + +LeadVoxTextB = \lyricmode +{ + Bless the name of the lamb _ of glo- _ ry + Bless the name of the King _ of kings _ + Bless the name of the lamb _ of glo- __ _ _ ry + Bless the name of the King _ + + Bless the name of the King +} + + +% +% Chord names +% + +Chords = \chordmode +{ +%Bah, can't we set this globally? +% \popChords + + % Intro + + f2.. c8/f | % 1 + s1 | % 2 + bf1 | % 3 + g2:m7 bf4/c c | % 4 + + % Verse + + f2.. c8/f | % 5 + s1 | % 6 + f2.. c8 | % 7 + s2. a4:7.9-/cs | % 8 + d2:m7 d4.:m7/c g8/b | % 9 + s1 | % 10 + + bf2 bf4./c f8 | % 11 + s4. bf8/c s2 | % 12 + + bf2 bf4./c f8 | % 13 + s2 f4./a c8 | % 14 + + % Chorus + + s4. bf8/c s4. f8 | % 15 + s2 f4./a c8 | % 16 + s4. bf2/c f8 | % 17 + s2 f4./a bf8 | % 18 + s4. f2/a cs8:dim | % 19 + s4. d2:m g8:m | % 20 + s4. bf4./c c4 | % 21 + + f2.. bf8/c | % 22 + s1 | % 23 + + f2 f4./a c8 | % 24 + + d4.:m d2:m/c g8:m7 | % 25 + + % Outro + + s4. bf4./c s4 | % 26 + d4.:m d2:m/c g8:m7 | % 27 + s2 bf4/c c | % 28 + + f2.. c8/f | % 29 + s1 | % 30 + bf1 | % 31 + g2:m7 bf4/c c | % 32 + f1 | % 33 +} + + +% +% Chord rhythms +% + +% Use a RhythmicStaff on the chords instead of this? +% It almost works, but not quite. Doesn't collapse chords above to single notes... + +StaffC = \relative c +{ +% \set Voice.autoBeaming = ##f +% \set Staff.instrumentName = #"Rhythm" + \override Staff.TimeSignature #'style = #'() + \time 4/4 + \override NoteHead #'style = #'slash + + % Intro + + c4-\markup { \small \italic { sidestick } } c c c8 c ~ | % 1 + c4 c c c | % 2 + c4 c c c | % 3 + c4 c c c \bar "||:" % 4 + + % Verse + + \repeat volta 2 + { + c4_\mf c c c8 c ~ | % 5 + c4 c c c | % 6 + c4 c c c8 c ~ | % 7 + c4 c c c | % 8 + c4 c c c8 c ~ | % 9 + c4 c c c | % 10 + } + \alternative + { + { + c4 c c c8 c ~ | % 11 + c4 c8 c ~ c4 c | % 12 + } + { + c4 c c c8 c ~ | % 13 + c8 c c c c c c c ~ | % 14 + } + } + + % Chorus + + \repeat volta 3 + { + c4_\markup { \italic { snare } } c8 c ~ c4 c8 c ~ | % 15 + c8 c c c c c c c ~ | % 16 + c4 c8 c ~ c4 c8 c ~ | % 17 + c8 c c c c c c c ~ | % 18 + c4 c8 c ~ c4 c8 c ~ | % 19 + c4 c8 c ~ c4 c8 c ~ | % 20 + c4 c8 c ~ c4 c | % 21 + } + \alternative + { + { + c4 c c c8 c ~ | % 22 + c4 c c c | % 23 + } + { + c8 c c c c c c c | % 24 (repeat tie on the last c + } + { + c4. c8 ~ c4 c8 c ~ | % 25 + } + } + + % Outro + + c4 c8 c ~ c4 c | % 26 + c4 c8 c ~ c4 c8 c ~ | % 27 + c4 c c_\markup { \italic { rit. } } c | % 28 + + c4_\markup { \italic { slowly } } c c c8 c ~ | % 29 + c4 c c c | % 30 + c4 c c c | % 31 + c4 c c c | % 32 + c1^\fermata \bar "|." % 33 +} + + +\score +{ + << + << + \new Staff = leadStaff { \new Voice = "lead" \LeadVox } + \new Lyrics \lyricsto "lead" \LeadVoxText + \new Lyrics \lyricsto "lead" \LeadVoxTextB + >> + + \new ChoirStaff = "Rhythm" + << + \new ChordNames = "chords" \Chords + \new RhythmicStaff = "chordRhythm" \StaffC + >> + + \set Score.skipBars = ##t + \set Score.melismaBusyProperties = #'() + >> + + \layout + { +% \context { \Staff \RemoveEmptyStaves } +% ragged-last-bottom = ##t + ragged-last = ##t + } +} + + +\paper +{ + #(define fonts (make-pango-font-tree + "Times New Roman" + "DomCasual BT" + "Luxi Mono" + (/ staffSize 20))) +} diff --git a/what-child-is-this.ly b/what-child-is-this.ly new file mode 100644 index 0000000..10e7cb7 --- /dev/null +++ b/what-child-is-this.ly @@ -0,0 +1,432 @@ +\version "2.16.0" +\include "pop-chords.ly" +\include "english.ly" + +% Good sizes are 16, 18, & 20 +staffSize = #24 +#(set-default-paper-size "letter") +#(set-global-staff-size staffSize) +#(ly:set-option (quote no-point-and-click)) + +%{ Some useful characters: ‘ ’ “ ” – — † ‡ • … %} + +\header +{ +%Let's bump up the title size and switch to the chord font. :-) + + title = \markup { \override #'(font-family . sans) \fontsize #3.5 "What Child Is This, Who, Laid to Rest?" } + composer = \markup { \override #'(font-family . sans) \fontsize #1.3 "Traditional" } + arranger = \markup { \override #'(font-family . sans) \fontsize #1.3 "arr. Shamus Hammons" } + tagline = $(string-append "Engraved by JLH and Lilypond " (lilypond-version)) +} + + +% +% Lead vocal +% + +LeadVox = \relative c'' +{ +% \set Voice.autoBeaming = ##f +% \set Staff.instrumentName = #"Lead vox" + \clef G + \key a \minor + \override Staff.TimeSignature #'style = #'() + \time 3/4 +\override Score.SpacingSpanner #'average-spacing-wishes = ##f + + % Intro + + \partial 4*1 s4 | % 0 + s2. | % 1 + s2. | % 2 + s2. | % 3 + s2. | % 4 + s2. | % 5 + s2. | % 6 + s2. | % 7 + s2 a4 \bar "||:" % 8 + +\break % bah + + \repeat volta 3 + { + % Verse + +\mark \markup { \override #'(font-family . sans) { \box { A } } } + + c2 d4 | % 9 + e4. ( fs8 ) e4 | % 10 + d2 b4 | % 11 + g4. ( a8 ) b4 | % 12 + c2 a4 | % 13 + a4. ( gs8 ) a4 | % 14 + b2 ( gs4 ) | % 15 + e2 b'4 | % 16 + + c2 d4 | % 17 + e4. ( fs8 ) e4 | % 18 + d2 b4 | % 19 + g4. ( a8 ) b4 | % 20 + c4. ( b8 ) a4 | % 21 + gs4. ( fs8 ) gs4 | % 22 + a2. | % 23 + a2. \bar "||" % 24 + + % Chorus + +\mark \markup { \override #'(font-family . sans) { \box { B } } } + + g'2. | % 25 + g4. ( fs8 ) e4 | % 26 + d2 b4 | % 27 + g4. ( a8 ) b4 | % 28 + c2 a4 | % 29 + a4. ( gs8 ) a4 | % 30 + b2 gs4 | % 31 + e2. | % 32 + + g'2. | % 33 + g4. ( fs8 ) e4 | % 34 + d2 b4 | % 35 + g4. ( a8 ) b4 | % 36 + c4. ( b8 ) a4 | % 37 + gs4. ( fs8 ) gs4 | % 38 + a2. | % 39 + a2 s4 \bar "||" % 40 + + s2. | % 41 + } + \alternative + { + { + s2. | % 42 + s2. | % 43 + s2 a4 | % 44 + } + { + s2. | % 45 + } + } + + s2. | % 46 + s2. \bar "|." % 47 +} + +LeadVoxText = \lyricmode +{ + What child is this, _ who, laid to rest, _ + on Ma -- ry’s lap _ is slee -- _ ping? + Whom an -- gels greet _ with an -- thems sweet, _ + while shep -- _ herds watch _ are keep -- ing? + + This, this _ is Christ the King, _ + whom shep -- herds guard _ and an -- gels sing: + Haste, haste _ to bring him laud, _ + the babe, _ the son _ of Ma -- ry. + + Why +} + +LeadVoxTextB = \lyricmode +{ + _ lies he in _ such mean es -- tate _ + where ox and ass _ are fee -- _ ding? + Good Chris -- tian, fear: _ for sin -- ners here _ + the si -- _ lent word _ is plea -- ding. + + _ _ _ _ _ _ _ _ + _ _ _ _ _ _ _ _ _ + _ _ _ _ _ _ _ _ + _ _ _ _ _ _ _ _ _ + + So +} + +LeadVoxTextC = \lyricmode +{ + _ bring him in -- _ cense, gold, and myrrh, _ + come pea -- sant, king, _ to own _ him; + The King of Kings _ sal -- va -- tion brings, _ + let lo -- _ ving hearts _ en -- throne him. +} + + +Riffs = \relative c'' +{ + \clef G + \key a \minor + \override Staff.TimeSignature #'style = #'() + \time 3/4 +\override Score.SpacingSpanner #'average-spacing-wishes = ##f + + % Intro + + \tiny + \partial 4*1 a4 | % 0 + << { \tiny c2 d4 } \\ { \tiny a,2 b4 } >> | % 1 + << { e'4. fs8 e4 } \\ { c,2. } >> | % 2 + << { d'2 b4 } \\ { g,2. } >> | % 3 + << { g'4. a8 b4 } \\ { b,2. } >> | % 4 + << { c'4. b8 a4 } \\ { a,2. } >> | % 5 + << { gs'4. fs8 gs4 } \\ { e,2. } >> | % 6 + << { a'2. } \\ { a,2. } >> | % 7 + << { a'2 } \\ { a,2 } >> s4 | % 8 + + s2.*31 + + s2 b'4 | % 40 + << { \tiny c4. b8 a4 } \\ { \tiny a,2. } >> | % 41 + + << { gs'4. fs8 gs4 } \\ { e,2. } >> | % 42 + << { a'2. } \\ { a,2. } >> | % 43 + << { a'2 } \\ { a,2 } >> s4 | % 44 + + << { \tiny gs'4. fs8 gs4 } \\ { \tiny e,2. } >> | % 45 + + << { a'2. } \\ { a,2. } >> | % 46 + << { 2.-\fermata } \\ { a,2. } >> \bar "|." % 47 + \normalsize +} + + +% +% Chord names +% + +Chords = \chordmode +{ +%Bah, can't we set this globally? +% \popChords + + % Intro + + \partial 4*1 s4 | % 0 + a2.:m | % 1 + c2. | % 2 + g2. | % 3 + g2./b | % 4 + a2.:m | % 5 + e2. | % 6 + a2.:m | % 7 + s2. | % 8 + + \repeat volta 3 + { + % Verse + + a2.:m | % 9 + c2. | % 10 + g2. | % 11 + g2./b | % 12 + a2.:m | % 13 + f2. | % 14 + e2. | % 15 + s2. | % 16 + + a2.:m | % 17 + c2. | % 18 + g2. | % 19 + g2./b | % 20 + a2.:m | % 21 + e2. | % 22 + a2.:m | % 23 + s2. | % 24 + + % Chorus + + c2. | % 25 + c2. | % 26 + g2. | % 27 + g2./b | % 28 + a2.:m | % 29 + f2. | % 30 + e2. | % 31 + s2. | % 32 + + c2. | % 33 + c2. | % 34 + g2. | % 35 + g2./b | % 36 + a2.:m | % 37 + e2. | % 38 + a2.:m | % 39 + s2. | % 40 + + a2.:m | % 41 + } + \alternative + { + { + e2. | % 42 + a2.:m | % 43 + s2. | % 44 + } + { + e2. | % 45 + } + } + + a2.:m | % 46 + a2. | % 47 +} + + +% +% Chord rhythms +% + +% Use a RhythmicStaff on the chords instead of this? +% It almost works, but not quite. Doesn't collapse chords above to single notes... + +StaffC = \relative c +{ +% \set Voice.autoBeaming = ##f +% \set Staff.instrumentName = #"Rhythm" + \override Staff.TimeSignature #'style = #'() + \time 3/4 + \override NoteHead #'style = #'slash + + % Intro + + \partial 4*1 s4 | % 0 + c4 c c | % 1 + c4 c c | % 2 + c4 c c | % 3 + c4 c c | % 4 + c4 c c | % 5 + c4 c c | % 6 + c4 c c | % 7 + c4 c c \bar "||:" % 8 + + \repeat volta 3 + { + % Verse + + c4 c c | % 9 + c4 c c | % 10 + c4 c c | % 11 + c4 c c | % 12 + c4 c c | % 13 + c4 c c | % 14 + c4 c c | % 15 + c4 c c | % 16 + + c4 c c | % 17 + c4 c c | % 18 + c4 c c | % 19 + c4 c c | % 20 + c4 c c | % 21 + c4 c c | % 22 + c4 c c | % 23 + c4 c c \bar "||" % 24 + + % Chorus + + c4 c c | % 25 + c4 c c | % 26 + c4 c c | % 27 + c4 c c | % 28 + c4 c c | % 29 + c4 c c | % 30 + c4 c c | % 31 + c4 c c | % 32 + + c4 c c | % 33 + c4 c c | % 34 + c4 c c | % 35 + c4 c c | % 36 + c4 c c | % 37 + c4 c c | % 38 + c4 c c | % 39 + c4 c c \bar "||" % 40 + + c4 c c | % 41 + } + \alternative + { + { + c4 c c | % 42 + c4 c c | % 43 + c4 c c | % 44 + } + { + c4 c c | % 45 + } + } + + c4 c c | % 46 + c2.-\fermata \bar "|." % 47 +} + + +Dynamics = +{ +%{ + s4_\markup { \dynamic f \italic { bass sustain, hh 16ths, no snare } } s2. | % 1 + s1*2 + s2 s_\markup { \italic { dr. fill } } | % 4 + s4_\markup { \italic { snare 2&4, hh 16ths } } s2. | % 5 + s1*6 + s2 s4 \> s | % 12 + s4_\mf s2. | % 13 + s1*6 + s2 \once \override TextScript #'extra-offset = #'( 0.0 . -2.2 ) s4 \< _\markup { \italic { dr. fill } } s | % 20 + s4_\f s2. | % 21 + s1*12 + s2 s4 \> s \! | % 34 + s1 + s2 \once \override TextScript #'extra-offset = #'( 0.0 . -2.0 ) s4 \< _\markup { \italic { dr. fill } } s \! | % 36 + s4_\markup { \dynamic ff \italic { no snare } } s2. | % 37 + s1*6 + s2 \once \override TextScript #'extra-offset = #'( 0.0 . -2.0 ) s4 \< _\markup { \italic { dr. fill } } s \! | % 44 + s1*16 + s4_\markup { \italic { On Cue } } s2. | % 61 + s4 s2._\markup { \italic { rit. } } | % 62 +%} +} + + +\score +{ + << + << +% \new Staff = leadStaff { \new Voice = "lead" \LeadVox } + \new Staff = leadStaff { << \new Voice = "lead" \transpose a e \LeadVox \new Voice = "riffs" \transpose a e \Riffs >> } + \new Lyrics \lyricsto "lead" \LeadVoxText + \new Lyrics \lyricsto "lead" \LeadVoxTextB + \new Lyrics \lyricsto "lead" \LeadVoxTextC + >> + + \new ChoirStaff = "Rhythm" + << + \new ChordNames = "chords" \transpose a e \Chords + \new RhythmicStaff = "chordRhythm" << \StaffC \Dynamics >> + >> + + \set Score.skipBars = ##t + \set Score.melismaBusyProperties = #'() + >> +} + + +\paper +{ + #(define fonts (make-pango-font-tree + "Times New Roman" + "DomCasual BT" + "Luxi Mono" + (/ staffSize 20))) + +% Spread staves vertically across last page (default: t) + ragged-last-bottom = ##f +% Don't spread staves vertically across the page (default: f) +% ragged-bottom = ##t +% Allow partial line for last stave (default: f) + ragged-last = ##t + +% To find out what's eating the space at the top... +% annotate-spacing = ##t +%let's try this: [It works! Huzzah!] + obsolete-page-top-space = 0 top-system-spacing #'basic-distance = #(/ obsolete-page-top-space staff-space) +} diff --git a/who-am-i.ly b/who-am-i.ly new file mode 100644 index 0000000..4e00bed --- /dev/null +++ b/who-am-i.ly @@ -0,0 +1,705 @@ +\version "2.16.0" +\include "pop-chords.ly" +\include "english.ly" + +% Good sizes are 16, 18, & 20 +staffSize = #16 +#(set-default-paper-size "letter") +#(set-global-staff-size staffSize) +#(ly:set-option (quote no-point-and-click)) + +%{ Some useful characters: ‘ ’ “ ” – — † ‡ • … %} + +\header +{ +%Let's bump up the title size and switch to the chord font. :-) + + title = \markup { \override #'(font-family . sans) \fontsize #3.5 "Who Am I" } + composer = \markup { \override #'(font-family . sans) \fontsize #1.3 "Mark Hall" } +% arranger = \markup { \override #'(font-family . sans) \fontsize #1.3 "arr. " } + tagline = $(string-append "Engraved by JLH and Lilypond " (lilypond-version)) +} + +% Useful tweak abbreviations (hn = harmony note) + +hn = #(define-music-function (parser location arg) (ly:music?) +;; Harmony Note: Set the tweaks property of the passed in note to use a smaller font + + (set! (ly:music-property arg 'tweaks) + (acons 'font-size -3.0 (ly:music-property arg 'tweaks))) arg) + + +% +% Song's structure +% +Global = +{ + \key b \major + \override Staff.TimeSignature #'style = #'() + \time 2/2 + + % Intro + + \once \override TextScript #'padding = #2.0 + s1*0^\markup { \large \bold { Moderate pop } } +% Capo 4 version +% s1*0^\markup { \hspace #0.0 \raise #2.0 \larger \bold { "Moderate pop (*** CAPO 4 ***)" } } + + % Intro + + s1*9 | % 1-9 + + \repeat volta 2 + { + % Verse + + \mark \markup { \override #'(font-family . sans) { \box { A } } } + s1*16 \bar "||" % 10-25 + + % Prechorus + + \once \override Score.RehearsalMark #'self-alignment-X = #left + \mark \markup { \override #'(font-family . sans) { \box { A17 } } \hspace #1.0 \raise #2.0 \musicglyph #"scripts.segno" } + s1*8 \bar "||" % 26-33 + + % Chorus + + \mark \markup { \override #'(font-family . sans) { \box { B } } } + s1*15 | % 34-48 + \once \override Score.RehearsalMark #'self-alignment-X = #left + \mark \markup { \musicglyph #"scripts.coda" \italic { to Coda } } + } + \alternative + { + { + s1*9 | % 49-57 + } + { + s1 | % 58 + } + } + +%s1 \bar "||" % 59 + + % Bridge (tricky timing!) + + \time 5/4 + s1 s4 \bar "||" % 59 + \mark \markup { \override #'(font-family . sans) { \box { C } } } + \time 3/4 + s2.*2 | % 60-61 + \time 5/4 + s1 s4 | % 62 + \time 3/4 + s2.*2 | % 63-64 + \time 2/4 + s2 | % 65 + \time 5/4 + s1 s4 | % 66 + \time 2/2 + s1*4 \bar "||" % 67-70 + \once \override Score.RehearsalMark #'self-alignment-X = #right + \mark \markup { \large \bold { D.S. al Coda } } + + % Coda + + % blank measure between last measure and coda +% \stopStaff s1 \bar "" \startStaff % That removed the spurious floating bar line from line break + \stopStaff s1 \startStaff % That removed the spurious floating bar line from line break +% \break % Meh + \set Score.currentBarNumber = #71 + + \once \override Score.RehearsalMark #'self-alignment-X = #left + \mark \markup { { \musicglyph #"scripts.coda" } "Coda" } + + s1*6 \bar "||" % 71-76 + \mark \markup { \override #'(font-family . sans) { \box { D } } } + s1*16 | % 77-92 + + \repeat volta 6 + { + \mark \markup { \override #'(font-family . sans) { \box { E } } } + s1*3 | % 93-95 + } + \alternative + { + { + s1 | % 96 + } + { + s1 | % 97 + } + } + + s1 \bar "|." % 98 +} + + +% +% Lead vocal +% +LeadVox = \relative c'' +{ +% \set Voice.autoBeaming = ##f +% \set Staff.instrument = #"Lead vox" + \clef G +%Hm. Needed anymore? + \override Score.SpacingSpanner #'average-spacing-wishes = ##f + + % Intro + + s1*8 | % 1-8 + r2 r8 b as b ~ | % 9 + + % Verse + + b4 r r fs8 b | % 10 + cs4 b8 as8 ~ as4 fs8 b ~ | % 11 + b4 r4 r4. fs8 | % 12 + cs'4 b8 as8 ~ as b4 b8 ( ~ | % 13 + b8 as gs4 ) r4. cs,8 | % 14 + as'4 as8 as ~ as b4 gs8 ~ | % 15 + gs4 r2. | % 16 + r2 r8 b as b ~ | % 17 + + b4 r r fs8 b | % 18 + cs4 b8 as8 ~ as4 fs8 b ~ | % 19 + b4 r4 r4. fs8 | % 20 + cs'4 b8 as8 ~ as b4 b8 ( ~ | % 21 + b8 as gs4 ) r4 cs,8 b' | % 22 + as4 as8 as ~ as b4 gs8 ( ~ | % 23 + gs2 fs ) | % 24 + r2. gs8 as \bar "||" % 25 + + % Prechorus + + b4 as8 b ~ b b4 b8 ( ~ | % 26 + b8 gs fs4 ) ~ fs gs8 as | % 27 + b4 as8 b ~ b cs4 as8 ~ | % 28 + as2 r4 gs8 as | % 29 + b4 as8 b ~ b b4 b8 ~ | % 30 + b2 r4 gs8 as | % 31 + b4 cs8 ds ~ ds4 e8 cs ~ | % 32 + cs1 \bar "||" % 33 + + % Chorus + + r4 ds cs r8 b | % 34 + cs4 cs8 cs ~ cs b4 ds8 ~ | % 35 + ds8 b4. r4 b8 b | % 36 + cs4 ds8 e ~ e4 ds8 ds ~ | % 37 + ds8 b4. r4 r8 fs | % 38 + cs'4. cs8 ~ cs b b b ~ | % 39 + b8 gs4. r4 r8 fs | % 40 + b4 b8 b ~ b ds4 ds8 ~ | % 41 + + ds8 r ds4 cs r | % 42 + cs4 cs8 cs ~ cs b4 ds8 ~ | % 43 + ds8 b4. r4 b8 b | % 44 + cs4 ds8 e ~ e4 ds8 ds ~ | % 45 + ds8 b4. r4 gs8 b | % 46 + cs4 b8 cs ~ cs ds4 b8 ~ | % 47 + b1 | % 48 + + r2 r8 b as8 b ~ | % 49 + b4 s2. | % 50 + s1*6 | % 51-56 + r2 r8 b as8 b | % 57 + + r2 r8 b as8 b ~ ( | % 58 + + % Bridge (tricky timing!) + + \time 5/4 + b2 cs2. ) | % 59 + \time 3/4 + r2. | % 60 + r2. | % 61 + \time 5/4 + r2 r2. | % 62 + \time 3/4 + r2. | % 63 + r2. | % 64 + \time 2/4 + r2 | % 65 + \time 5/4 + r2 r2. | % 66 + \time 2/2 + r1 | % 67 + r1 | % 68 + r1 | % 69 + r2 r4 gs8 as | % 70 + + % Coda + + \stopStaff s1 \startStaff % That removed the spurious floating bar line from line break + + r2 r8 b as b ~ | % 71 + b1 ~ | % 72 + b1 ~ | % 73 + b1 | % 74 + r1 | % 75 + r2 r8 b as b ~ | % 76 + + b1 | % 77 + r2 r8 b as b ~ ( | % 78 + cs16 ds cs4. ~ cs8 b4. ~ | % 79 + b4 as gs8 fs4. ) | % 80 + r1 | % 81 + r1 | % 82 + r1 | % 83 + r1 | % 84 + r8 ds'4 cs8 ~ cs b4 b8 ~ | % 85 + b8 ds4 cs8 ~ cs b4 b8 ~ | % 86 + b4 r r2 | % 87 + r4 fs8 b ~ b b4 b8 ~ ( | % 88 + cs16 ds cs8 ~ cs2 b4 ~ | % 89 + b2 ) r8 b gs cs ~ ( | % 90 + cs8 b ~ b2 ) r4 | % 91 + r1 | % 92 + + r1 | % 93 + r1 | % 94 + r1 | % 95 + + r1 | % 96 + + r1 | % 97 + + r1-\fermata | % 98 +} + +LeadVoxText = \lyricmode +{ + Who am I, _ that the lord of all _ the earth _ + Would care to know _ my name, __ _ _ _ + would care to feel _ my hurt. _ + Who am I, _ that the bright and mor -- _ ning star _ + Would choose to light _ the way, __ _ _ _ + for my e -- ver wander -- _ ing heart. _ _ + + Not be -- cause of who _ I am, __ _ _ _ _ + but be -- cause of what _ you’ve done; _ + Not be -- cause of what _ I’ve done, _ + but be -- cause of who _ you are. _ + + I am a flo -- wer quick -- _ ly fad -- _ ing, + here to -- day and gone _ to -- mor -- _ row, + A wave tossed _ in the o -- _ cean, + a va -- por in _ the wind. _ + Still you hear me when _ I’m cal -- _ ling, + Lord, you catch me when _ I’m fal -- _ ling + and you’ve told me who _ I am, _ + I am yours. _ + + Who am I, + I am yours. _ _ + + Not be- + + I am yours. __ _ _ _ + I am yours. _ + I am yours. __ _ _ _ _ _ _ _ _ _ + Whom shall _ I fear; _ + Whom shall _ I fear? _ + ’Cause I _ am yours. __ _ _ _ _ _ _ + I am yours. __ _ _ _ +} + +LeadVoxTextB = \lyricmode +{ + _ _ _ _ that the eyes that see _ my sin _ + Would look on me _ with love __ _ _ _ + and watch me rise _ a -- gain. _ + Who am I, _ that the voice that cal -- med the sea _ + Would call out through _ the rain __ _ _ _ + and _ calm the storm _ in me. _ _ +} + + +Riffs = \relative c'' +{ + \clef G +%Hm. Needed anymore? + \override Score.SpacingSpanner #'average-spacing-wishes = ##f + + % Intro + + \tiny + 4. 8 ~ 8 4 8 ~ | % 1 + 4. 8 ~ 8 4 8 ~ | % 2 + 4. 8 ~ 8 4 8 ~ | % 3 + 4 8 4 4 8 ~ | % 4 + 4. 8 ~ 8 4 8 ~ | % 5 + 4. 8 ~ 8 4 8 ~ | % 6 + 4. 8 ~ 8 4 8 ~ | % 7 + 2 2 | % 8 + + s1*41 | % 9-49 + + s4 r8 8 ~ 8 4 8 ~ | % 1 + 4. 8 ~ 8 4 8 ~ | % 2 + 4. 8 ~ 8 4 8 ~ | % 3 + 4 8 4 4 8 ~ | % 4 + 4. 8 ~ 8 4 8 ~ | % 5 + 4. 8 ~ 8 4 8 ~ | % 6 + 4. 8 ~ 8 4 8 ~ | % 7 + 2 2 | % 8 + \normalsize +} + + +% +% Chord names +% +Chords = \chordmode +{ +%Bah, can't we set this globally? +% \popChords + + % Intro + + b2.. e8:sus2 | % 1 + s2.. gs8:m7 | % 2 + s2.. fs8 | % 3 + s1 | % 4 + b2.. e8:sus2 | % 5 + s2.. gs8:m | % 6 + s2.. fs8 | % 7 + s1 | % 8 + s1 | % 9 + + % Verse + + b1 | % 10 + fs1/as | % 11 + gs1:m7 | % 12 + fs4.:sus4 fs2 s8 | % 13 + e1:sus2 | % 14 + fs1/e | % 15 + e1 | % 16 + s1 | % 17 + + b1 | % 18 + fs1/as | % 19 + gs1:m7 | % 20 + fs4.:sus4 fs2 s8 | % 21 + e1:sus2 | % 22 + fs1/e | % 23 + e1 | % 24 + s1 | % 25 + + % Prechorus + + e1 | % 26 + fs1/as | % 27 + gs1:m7 | % 28 + fs1/as | % 29 + gs1:m7 | % 30 + fs1/as | % 31 + e1 | % 32 + fs2 fs:sus4.7 | % 33 + + % Chorus + + b1 | % 34 + fs1/as | % 35 + gs1:m7 | % 36 + fs2:sus4 fs | % 37 + e1 | % 38 + fs1 | % 39 + e1 | % 40 + s2 fs4:sus4 fs | % 41 + + b1 | % 42 + fs1/as | % 43 + gs1:m7 | % 44 + fs2:sus4 fs | % 45 + e1 | % 46 + fs1 | % 47 + e1 | % 48 + + s1 | % 49 + b2.. e8:sus2 | % 50 + s2.. gs8:m7 | % 51 + s2.. fs8 | % 52 + s1 | % 53 + b2.. e8:sus2 | % 54 + s2.. gs8:m7 | % 55 + s2.. fs8 | % 56 + s1 | % 57 + + e2 fs:sus4 | % 58 + + % Bridge (tricky timing!) + + \time 5/4 + gs2:m fs2./as | % 59 + \time 3/4 + e4. b/ds | % 60 + cs4.:sus4.7 b | % 61 + \time 5/4 + gs2:m fs2./as | % 62 + \time 3/4 + e4. b/ds | % 63 + cs4.:sus4.7 b/ds | % 64 + \time 2/4 + cs4:sus4 b | % 65 + \time 5/4 + gs2:m7 fs2./as | % 66 + \time 2/2 + a1:6.9 | % 67 + gs1:m7 | % 68 + e1:m6/g | % 69 + fs1:sus4 | % 70 + + % Coda + + \stopStaff s1 \startStaff % That removed the spurious floating bar line from line break + + e2 fs | % 71 + gs1:m7 | % 72 + fs1 | % 73 + e1 | % 74 + fs1 | % 75 + s1 | % 76 + + b2.. e8:sus2 | % 77 + s2.. gs8:m7 | % 78 + s2.. fs8 | % 79 + s1 | % 80 + b2.. e8:sus2 | % 81 + s2.. gs8:m | % 82 + s2.. fs8 | % 83 + s1 | % 84 + b2.. e8:sus2 | % 85 + s2.. gs8:m | % 86 + s2.. fs8 | % 87 + s1 | % 88 + b2.. e8:sus2 | % 89 + s2.. gs8:m | % 90 + s2.. fs8 | % 91 + s1 | % 92 + + e1 | % 93 + s1 | % 94 + fs1/e | % 95 + + s1 | % 96 + + s1 | % 97 + + e1:5.9 | % 98 +} + + +% +% Chord rhythms +% +% Use a RhythmicStaff on the chords instead of this? +% It almost works, but not quite. Doesn't collapse chords above to single notes... +% +Rhythm = \relative c +{ +%% \set Voice.autoBeaming = ##f +%% \set Staff.instrument = #"Rhythm" + \override Staff.TimeSignature #'style = #'() +% \time 4/4 + \override NoteHead #'style = #'slash + \teeny + + % Intro + + c2.. c8 ~ | % 1 + c2.. c8 ~ | % 2 + c2.. c8 ~ | % 3 + c1 | % 4 + c2.. c8 ~ | % 5 + c2.. c8 ~ | % 6 + c2.. c8 ~ | % 7 + c1 ~ | % 8 + c1 | % 9 + + c1 | % 10 + c1 | % 11 + c1 | % 12 + c4. c8 ~ c2 | % 13 + c1 | % 14 + c1 | % 15 + c1 ~ | % 16 + c1 | % 17 + + c1 | % 18 + c1 | % 19 + c1 | % 20 + c4. c8 ~ c2 | % 21 + c1 | % 22 + c1 | % 23 + c1 | % 24 + c1 | % 25 + + c1 | % 26 + c1 | % 27 + c1 | % 28 + c1 | % 29 + c1 | % 30 + c1 | % 31 + c1 | % 32 + c2 c | % 33 + + c1 | % 34 + c1 | % 35 + c1 | % 36 + c2 c | % 37 + c1 | % 38 + c1 | % 39 + c1 | % 40 + c2 c4 c | % 41 + + c1 | % 42 + c1 | % 43 + c1 | % 44 + c2 c | % 45 + c1 | % 46 + c1 | % 47 + c1 ~ | % 48 + c1 | % 49 + + c2.. c8 ~ | % 50 + c2.. c8 ~ | % 51 + c2.. c8 ~ | % 52 + c1 | % 53 + c2.. c8 ~ | % 54 + c2.. c8 ~ | % 55 + c2.. c8 ~ | % 56 + c1 | % 57 + + c2-\repeatTie c | % 58 + + % Bridge (tricky timing!) + + \time 5/4 + c2 c2. | % 59 + \time 3/4 + c4. c | % 60 + c4. c | % 61 + \time 5/4 + c2 c2. | % 62 + \time 3/4 + c4. c | % 63 + c4. c | % 64 + \time 2/4 + c4 c | % 65 + \time 5/4 + c2 c2. | % 66 + \time 2/2 + c1 | % 67 + c1 | % 68 + c1 | % 69 + c1 | % 70 + + % Coda + + \stopStaff s1 \startStaff % That removed the spurious floating bar line from line break + + c2-\repeatTie c | % 71 + c1 | % 72 + c1 | % 73 + c1 | % 74 + c1 ~ | % 75 + c1 | % 76 + + c2.. c8 ~ | % 77 + c2.. c8 ~ | % 78 + c2.. c8 ~ | % 79 + c1 | % 80 + c2.. c8 ~ | % 81 + c2.. c8 ~ | % 82 + c2.. c8 ~ | % 83 + c1 | % 84 + c2.. c8 ~ | % 85 + c2.. c8 ~ | % 86 + c2.. c8 ~ | % 87 + c1 | % 88 + c2.. c8 ~ | % 89 + c2.. c8 ~ | % 90 + c2.. c8 ~ | % 91 + c1 | % 92 + + c1 | % 93 + c1 | % 94 + c1 | % 95 + + c1 | % 96 + + c1 | % 97 + + c1-\fermata | % 98 +} + + +Dynamics = +{ +%{ + s4_\markup { \italic { snare pat. } } s2 | % 1 + s4_\markup { \italic { simile } } s2 | % 2 + s2.*19 + s4_\markup { \italic { spacey } } s2 | % 22 + s2.*5 + s4 s \< s \! | % 28 + s2.*22 + s4_\markup { \italic { Last time } } s2 | % 51 +%} +} + + +\score +{ + << + \Global % The "roadmap" that everything else depends on +% \transpose b g \Global % The "roadmap" that everything else depends on + + \context Staff + << + \new Voice = "lead" \LeadVox +% \new Voice = "lead" \transpose b g \LeadVox + \new Voice \Riffs +% \new Voice \transpose b g \Riffs + \new Lyrics \lyricsto "lead" \LeadVoxText + \new Lyrics \lyricsto "lead" \LeadVoxTextB + >> + + \new ChoirStaff + << + \new ChordNames \Chords +%Capo 4 edition +% \new ChordNames \transpose b g \Chords + \new RhythmicStaff << \Rhythm \Dynamics >> + >> + + \set Score.skipBars = ##t + \set Score.melismaBusyProperties = #'() + >> +} + + +\paper +{ + #(define fonts (make-pango-font-tree + "Times New Roman" + "DomCasual BT" + "Luxi Mono" + (/ staffSize 20))) + +% Spread staves vertically across last page (default: t) +% ragged-last-bottom = ##f +% Don't spread staves vertically across the page (default: f) +% ragged-bottom = ##t +% Allow partial line for last stave (default: f) + ragged-last = ##t + +% To find out what's eating the space at the top... +% annotate-spacing = ##t +%let's try this: [It works! Huzzah!] + obsolete-page-top-space = 0 top-system-spacing #'basic-distance = #(/ obsolete-page-top-space staff-space) +} diff --git a/wonderful-merciful-savior.ly b/wonderful-merciful-savior.ly new file mode 100644 index 0000000..e1ca109 --- /dev/null +++ b/wonderful-merciful-savior.ly @@ -0,0 +1,576 @@ +\version "2.16.0" +\include "pop-chords.ly" +\include "english.ly" + +% Good sizes are 16, 18, & 20 +staffSize = #16 +#(set-default-paper-size "letter") +#(set-global-staff-size staffSize) +#(ly:set-option (quote no-point-and-click)) + +%{ Some useful characters: ‘ ’ “ ” – — † ‡ • … %} + +\header +{ +%Let's bump up the title size and switch to the chord font. :-) + + title = \markup { \override #'(font-family . sans) \fontsize #3.5 "Wonderful, Merciful Savior" } + composer = \markup { \override #'(font-family . sans) \fontsize #1.3 "Dawn Rodgers/Eric Wyse" } + arranger = \markup { \override #'(font-family . sans) \fontsize #1.3 "arr. Ed Smart" } + tagline = $(string-append "Engraved by JLH and Lilypond " (lilypond-version)) +} + +% Useful tweak abbreviations (hn = harmony note) + +hn = #(define-music-function (parser location arg) (ly:music?) +;; Harmony Note: Set the tweaks property of the passed in note to use a smaller font + + (set! (ly:music-property arg 'tweaks) + (acons 'font-size -3.0 (ly:music-property arg 'tweaks))) arg) + + +% +% Lead vocal +% + +LeadVox = \relative c' +{ +% \set Voice.autoBeaming = ##f +% \set Staff.instrument = #"Lead vox" + \clef G + \key c \major + \override Staff.TimeSignature #'style = #'() + \time 3/4 +\override Score.SpacingSpanner #'average-spacing-wishes = ##f + + % Intro + + s2. | % 1 + s2. | % 2 + s2. | % 3 + s2. | % 4 + s2. | % 5 + s2. | % 6 + s2. | % 7 + s2. \bar "||:" % 8 +%\break % bleah + + \repeat volta 2 + { + % Verse + +\once \override Score.RehearsalMark #'self-alignment-X = #left +\mark \markup { \override #'(font-family . sans) { \box { A } } \italic \smaller { 1st X piano only, unison } } + 4. 8 4 | % 9 + 4. 8 4 | % 10 + 2. | % 11 + 2. | % 12 + 4 | % 13 + 4 8 ( ) | % 14 + 2. ~ | % 15 + 2. | % 16 + 4 8 ~ | % 17 + 4 | % 18 + 2. | % 19 + 2 r4 | % 20 + 4 | % 21 + 2 4 | % 22 + 2. | % 23 + << { \voiceOne a'4 ( b ) c } \context Voice = "v2" { \voiceTwo <\hn f, \hn c>2 <\hn f \hn a,>4 } \oneVoice >> | % 24 + 4 | % 25 + 2 4 | % 26 + } + \alternative + { + { + c2. | % 27 + s2. | % 28 + s2. | % 29 + s2. | % 30 + } + { +\set Score.repeatCommands = #'((volta "2.–3.") end-repeat) % That's an ndash in there... + c2. | % 31 +\set Score.repeatCommands = #'((volta #f)) + } + } + + r2. \bar "||" % 32 + + % Chorus + +\mark \markup { \override #'(font-family . sans) { \box { B } } } + 4 8 ~ | % 33 + 4 | % 34 + 2. ( | % 35 + 2. )| % 36 + 4 8 ~ | % 37 + 4 | % 38 + << { \voiceOne 2 ^( ~ 8 16 } \context Voice = "v2" { \voiceTwo <\hn c,>2. ( } \oneVoice >> | % 39 + << { \voiceOne 2. ^) } \context Voice = "v2" { \voiceTwo <\hn b,>2. ) } \oneVoice >> | % 40 + 4 8 ~ | % 41 + 4 | % 42 + 2. | % 43 + 2. | % 44 + 4 | % 45 + 4 2 | % 46 + 2. | % 47 + << { \voiceOne a'4 ( b ) c } \context Voice = "v2" { \voiceTwo <\hn f, \hn c>2 <\hn f \hn a,>4 } \oneVoice >> | % 48 + 4 | % 49 + 4 2 | % 50 +\once \override Score.RehearsalMark #'self-alignment-X = #left +\mark \markup { \musicglyph #"scripts.coda" \italic { to Coda } } + c2. | % 51 + s2. | % 52 + s2. | % 53 + s2. \bar ":|" % 54 + +%\stopStaff s1 \bar "" \startStaff % That removed the spurious floating bar line from line break +%\break % Meh +\stopStaff s2. \startStaff +\set Score.currentBarNumber = #55 + +\once \override Score.RehearsalMark #'self-alignment-X = #left +\mark \markup { { \musicglyph #"scripts.coda" } "Coda" } + % Coda + + c2. ~ | % 55 + c2. \bar "||" % 56 + +\mark \markup { \override #'(font-family . sans) { \box { C } } } + 4 8 ~ | % 57 + 4 | % 58 + 2. ( | % 59 + 2. )| % 60 + 4 8 ~ | % 61 + 4 | % 62 + << { \voiceOne 2 ^( ~ 8 16 } \context Voice = "v2" { \voiceTwo <\hn c,>2. ( } \oneVoice >> | % 63 + << { \voiceOne 2. ^) } \context Voice = "v2" { \voiceTwo <\hn b,>2. ) } \oneVoice >> | % 64 + 4 8 ~ | % 65 + 4 | % 66 + 2. | % 67 + 2. | % 68 + 4 | % 69 + 4 2 | % 70 + 2. | % 71 + << { \voiceOne a'4 ( b ) c } \context Voice = "v2" { \voiceTwo <\hn f, \hn c>2 <\hn f \hn a,>4 } \oneVoice >> | % 72 + 4 | % 73 + 2 4 | % 74 + 2. | % 75 + + << { \voiceOne a'4 ( b ) c } \context Voice = "v2" { \voiceTwo <\hn f, \hn c>2 <\hn f \hn a,>4 } \oneVoice >> | % 76 + 4 | % 77 + 2 4 | % 78 + c2. | % 79 + s2. | % 80 + s2. | % 81 + s2. | % 82 + s2. \bar "|." % 83 +} + +LeadVoxText = \lyricmode +{ + Won -- der -- ful, mer -- ci -- ful sav -- ior, + pre -- cious re -- dee -- mer and _ friend; _ + Who would have thought _ that a lamb could + res -- cue the souls of men? + Oh, _ you res -- cue the souls of men. + + _ + + You are the one _ that we praise, _ + you are the one _ we a -- dore; __ _ _ _ _ + You give the heal -- _ ing and grace our + hearts al -- ways hun -- ger for, + Oh, _ our hearts al -- ways hun -- ger for. + + for. _ + + You are the one _ that we praise, _ + you are the one _ we a -- dore; __ _ _ _ _ + You give the heal -- _ ing and grace our + hearts al -- ways hun -- ger for, + Oh, _ our hearts al -- ways hun -- ger for. + Oh, _ our hearts al -- ways hun -- ger for. _ +} + +LeadVoxTextB = \lyricmode +{ + Coun -- se -- lor, com -- for -- ter, kee -- per, + spi -- rit we long to em -- _ brace; _ + You of -- fer hope _ when our hearts have + hope -- less -- ly lost our way, + Oh, _ we’ve hope -- less -- ly lost our _ + + way. +} + +LeadVoxTextC = \lyricmode +{ + Al -- might -- y in -- fi -- nite Fa -- ther, + faith -- ful -- ly lov -- ing your _ own; _ + Here in our weak -- _ ness you find us, + fall -- ing be -- fore your throne, + Oh, _ we’re fall -- ing be -- fore your _ + + throne. +} + + +Riffs = \relative c'' +{ + \clef G + \key c \major + \override Staff.TimeSignature #'style = #'() + \time 3/4 +\override Score.SpacingSpanner #'average-spacing-wishes = ##f + + % Intro + + \tiny + << { \tiny r8 g' c g' c c, } \\ { \tiny c,2. ~ } >> | % 1 + << { \tiny f'8 g c2 } \\ { \tiny c,,2. } >> | % 2 + << { \tiny r8 g c g' c c, } \\ { \tiny c,2. ~ } >> | % 3 + << { \tiny f'8 g c2 } \\ { \tiny c,,2. } >> | % 4 + << { \tiny r8 g c g' c c, } \\ { \tiny c,2. ~ } >> | % 5 + << { \tiny f'8 g c2 } \\ { \tiny c,,2. } >> | % 6 + << { \tiny r8 g' c g' c c, } \\ { \tiny c,2. ~ } >> | % 7 + << { \tiny f'8 g c2 } \\ { \tiny c,,2. } >> | % 8 + + s2.*18 + + << { \tiny r8 g' c g' c c, } \\ { \tiny c,2. ~ } >> | % 27 + << { \tiny f'8 g c2 } \\ { \tiny c,,2. } >> | % 28 + << { \tiny r8 g' c g' c c, } \\ { \tiny c,2. ~ } >> | % 29 + << { \tiny f'8 g c2 } \\ { \tiny c,,2. } >> | % 30 + + s2.*20 + + << { \tiny r8 g' c g' c c, } \\ { \tiny c,2. ~ } >> | % 51 + << { \tiny f'8 g c2 } \\ { \tiny c,,2. } >> | % 52 + << { \tiny r8 g' c g' c c, } \\ { \tiny c,2. ~ } >> | % 53 + << { \tiny f'8 g c2 } \\ { \tiny c,,2. } >> | % 54 + + s2.*25 + + << { \tiny r8 g' c g' c c, } \\ { \tiny c,2. ~ } >> | % 79 + << { \tiny f'8 g c2 } \\ { \tiny c,,2. } >> | % 80 + << { \tiny r8 g' c g' c c, } \\ { \tiny c,2. ~ } >> | % 81 + << { \tiny f'8 g c2 } \\ { \tiny c,,2. } >> | % 82 +% << { \tiny r8 g' c g' c c, } \\ { s2. } >> | % 79 +% << { \tiny f8 g c2 } \\ { s2. } >> | % 80 +% << { \tiny r8 g, c g' c c, } \\ { \tiny c,2. ~ } >> | % 81 +% << { \tiny f'8 g c2 } \\ { \tiny c,,2. } >> | % 82 + \arpeggioArrowUp -\arpeggio-\fermata | % 83 + \normalsize +} + + +% +% Chord names +% + +Chords = \chordmode +{ +%Bah, can't we set this globally? +% \popChords + + % Intro + + s2. | % 1 + s2. | % 2 + s2. | % 3 + s2. | % 4 + c2. | % 5 + d2.:m/c | % 6 + c2. | % 7 + d2.:m/c \bar "||:" % 8 + + \repeat volta 2 + { + % Verse + + c2. | % 9 + d2.:m/c | % 10 + c2. | % 11 + s2. | % 12 + e2.:m | % 13 + f2. | % 14 + g2.:sus4 | % 15 + g2. | % 16 + a2.:m | % 17 + s2. | % 18 + f2. | % 19 + s2. | % 20 + c2. | % 21 + g2. | % 22 + a2.:m | % 23 + f2. | % 24 + c2./g | % 25 + g2.:6 | % 26 + } + \alternative + { + { + c2. | % 27 + d2.:m/c | % 28 + c2. | % 29 + d2.:m/c | % 30 + } + { + c2. | % 31 + } + } + + c2./b \bar "||" % 32 + + % Chorus + + a2.:m | % 33 + c2./g | % 34 + f2. | % 35 + g2. | % 36 + a2.:m | % 37 + c2./g | % 38 + f2. | % 39 + g2.:6 | % 40 + a2.:m | % 41 + c2./g | % 42 + f2. | % 43 + s2. | % 44 + c2. | % 45 + g2. | % 46 + a2.:m | % 47 + f2. | % 48 + c2./g | % 49 + g2.:6 | % 50 + c2. | % 51 + d2.:m/c | % 52 + c2. | % 53 + d2.:m/c | % 54 + +s2. + % Coda + + c2. | % 55 + c2./b | % 56 + + a4:m s2 | % 57 + s2. | % 58 + f2. | % 59 + g2. | % 60 + a4:m s2 | % 61 + s2. | % 62 + f2. | % 63 + g2.:6 | % 64 + a2.:m | % 65 + c2./g | % 66 + f2. | % 67 + s2. | % 68 + c2. | % 69 + g2. | % 70 + a2.:m | % 71 + f2. | % 72 + c2./g | % 73 + g2.:6 | % 74 + a2.:m | % 75 + f2. | % 76 + c2./g | % 77 + g2.:6 | % 78 + c2. | % 79 + d2.:m/c | % 80 + c2. | % 81 + d2.:m/c | % 82 + c2. | % 83 +} + + +% +% Chord rhythms +% + +% Use a RhythmicStaff on the chords instead of this? +% It almost works, but not quite. Doesn't collapse chords above to single notes... + +StaffC = \relative c +{ +% \set Voice.autoBeaming = ##f +% \set Staff.instrument = #"Rhythm" + \override Staff.TimeSignature #'style = #'() + \time 3/4 + \override NoteHead #'style = #'slash + + % Intro + + r2. | % 1 + r2. | % 2 + r2. | % 3 + r2. | % 4 + c4 c c | % 5 + c4 c c | % 6 + c4 c c | % 7 + c4 c c \bar "||:" % 8 + + \repeat volta 2 + { + % Verse + + c4 c c | % 9 + c4 c c | % 10 + c4 c c | % 11 + c4 c c | % 12 + c4 c c | % 13 + c4 c c | % 14 + c4 c c | % 15 + c4 c c | % 16 + c4 c c | % 17 + c4 c c | % 18 + c4 c c | % 19 + c4 c c | % 20 + c4 c c | % 21 + c4 c c | % 22 + c4 c c | % 23 + c4 c c | % 24 + c4 c c | % 25 + c4 c c | % 26 + } + \alternative + { + { + c4 c c | % 27 + c4 c c | % 28 + c4 c c | % 29 + c4 c c | % 30 + } + { + c4 c c | % 31 + } + } + + c4 c c \bar "||" % 32 + + % Chorus + + c4 c c | % 33 + c4 c c | % 34 + c4 c c | % 35 + c4 c c | % 36 + c4 c c | % 37 + c4 c c | % 38 + c4 c c | % 39 + c4 c c | % 40 + c4 c c | % 41 + c4 c c | % 42 + c4 c c | % 43 + c4 c c | % 44 + c4 c c | % 45 + c4 c c | % 46 + c4 c c | % 47 + c4 c c | % 48 + c4 c c | % 49 + c4 c c | % 50 + c4 c c | % 51 + c4 c c | % 52 + c4 c c | % 53 + c4 c c \bar ":|" % 54 + +%\stopStaff s1 \bar "" \startStaff % That removed the spurious floating bar line from line break +\stopStaff s2. \startStaff +\set Score.currentBarNumber = #55 + +%\once \override Score.RehearsalMark #'self-alignment-X = #left +%\mark \markup { { \musicglyph #"scripts.coda" } "Coda" } + + % Coda + + c4 c c | % 55 + c4 c c \bar "||" % 56 + + c4-> r2 | % 57 + r2. | % 58 + c2. | % 59 + c2. | % 60 + c4-> r2 | % 61 + r2. | % 62 + c2. | % 63 + c2. | % 64 + c4 c c | % 65 + c4 c c | % 66 + c4 c c | % 67 + c4 c c | % 68 + c4 c c | % 69 + c4 c c | % 70 + c4 c c | % 71 + c4 c c | % 72 + c4 c c | % 73 + c4 c c | % 74 + c4 c c | % 75 + c4 c c | % 76 + c4 c c | % 77 + c4 c c | % 78 + c4 c c | % 79 + c4 c c | % 80 + c4 c c | % 81 + c4 c c | % 82 + c2.-\fermata \bar "|." % 83 +} + + +Dynamics = +{ +%{ + s4_\markup { \italic { snare pat. } } s2 | % 1 + s4_\markup { \italic { simile } } s2 | % 2 + s2.*19 + s4_\markup { \italic { spacy } } s2 | % 22 + s2.*5 + s4 s \< s \! | % 28 + s2.*22 + s4_\markup { \italic { Last time } } s2 | % 51 +%} +} + + +\score +{ + << + << +% \new Staff = leadStaff { \new Voice = "lead" \LeadVox } + \new Staff = leadStaff { << \new Voice = "lead" \LeadVox \new Voice = "riffs" \Riffs >> } + \new Lyrics \lyricsto "lead" \LeadVoxText + \new Lyrics \lyricsto "lead" \LeadVoxTextB + \new Lyrics \lyricsto "lead" \LeadVoxTextC + >> + + \new ChoirStaff = "Rhythm" + << + \new ChordNames = "chords" \Chords + \new RhythmicStaff = "chordRhythm" << \StaffC \Dynamics >> + >> + + \set Score.skipBars = ##t + \set Score.melismaBusyProperties = #'() + >> +} + + +\paper +{ + #(define fonts (make-pango-font-tree + "Times New Roman" + "DomCasual BT" + "Luxi Mono" + (/ staffSize 20))) + +% Spread staves vertically across last page (default: t) +% ragged-last-bottom = ##f +% Spread staves vertically across the page (default: f) +% ragged-bottom = ##t +% Allow partial line for last stave (default: f) + ragged-last = ##t + +% To find out what's eating the space at the top... +% annotate-spacing = ##t +%let's try this: [It works! Huzzah!] + obsolete-page-top-space = 0 top-system-spacing #'basic-distance = #(/ obsolete-page-top-space staff-space) +} diff --git a/word-of-god-speak.ly b/word-of-god-speak.ly new file mode 100755 index 0000000..ea9c022 --- /dev/null +++ b/word-of-god-speak.ly @@ -0,0 +1,520 @@ +\version "2.16.0" +\include "pop-chords.ly" +\include "english.ly" + +% Good sizes are 16, 18, & 20 +staffSize = #18 +#(set-default-paper-size "letter") +#(set-global-staff-size staffSize) +#(ly:set-option (quote no-point-and-click)) + +\header +{ +%Let's bump up the title size and switch to the chord font. :-) + + title = \markup { \override #'(font-family . sans) \fontsize #3.5 "Word Of God, Speak" } +% composer = \markup { \override #'(font-family . sans) \fontsize #1.3 "" } + arranger = \markup { \override #'(font-family . sans) \fontsize #1.3 "arr. Ed Smart" } + tagline = "Engraved by JLH and Lilypond 2.8.2" +} + +% Useful tweak abbreviations (hn = harmony note) + +hn = #(define-music-function (parser location arg) (ly:music?) +;; Harmony Note: Set the tweaks property of the passed in note to use a smaller font + + (set! (ly:music-property arg 'tweaks) + (acons 'font-size -3.0 (ly:music-property arg 'tweaks))) arg) + + +% +% Lead vocal +% + +LeadVox = \relative c'' +{ +% \set Voice.autoBeaming = ##f +% \set Staff.instrumentName = #"Lead vox" + \clef G + \key c \major + \override Staff.TimeSignature #'style = #'() + \time 4/4 +\override Score.SpacingSpanner #'average-spacing-wishes = ##f + + +%{ + % Intro + + s1 | % 1 + s1 | % 2 + s1 | % 3 + s1 | % 4 + s1 | % 5 + s1 | % 6 + s1 | % 7 + \voiceTwo r2 r4 g \oneVoice | % 8 + + \repeat volta 2 + { + % Verse + +\mark \markup { \override #'(font-family . sans) { \box { A } } } + + e4. d8 c4 g' | % 9 + a4 f f a | % 10 + g4. e8 e4 d8 ( c ) | % 11 + e4 e d g | % 12 + e4. d8 c4 g' | % 13 + a4 f c' b8 ( a ) | % 14 + g4 e e8 ( d ) c ( d ) | % 15 + e4. d8 c4 \bar "||" % 16 + + % Chorus + +\mark \markup { \override #'(font-family . sans) { \box { B } } } + + 4 | % 17 + 4 8 ( ) 4 | % 18 + 4 8 ( ) ( ) | % 19 + 4 | % 20 + 4 | % 21 + 4 8 ( ) 4 | % 22 + 4 << { \voiceOne 8 ( ) c ( d ) } \context Voice = "v2" { \voiceTwo \tiny a4 a8 b \normalsize } \oneVoice >> | % 23 + \time 2/4 4 \time 4/4 | % 24 + \voiceTwo c1 \oneVoice | % 25 + s1 | % 26 + } + \alternative + { + { + s1 | % 27 + \voiceTwo r2 r4 g' \oneVoice | % 28 + } + { + s1 | % 29 + } + } + + s1 | % 30 + s1 | % 31 + s1 | % 32 + \voiceTwo r2 r4 \oneVoice \bar "||" % 33 + + \key d \major + + % Verse + +\mark \markup { \override #'(font-family . sans) { \box { C } } } + + 4. 8 4 | % 34 + 4 | % 35 + 4. 8 4 8 ( ) | % 36 + 4 | % 37 + 4. 8 4 | % 38 + 4 8 ( ) | % 39 + 4 << { \voiceOne 8 ( ) d ( e ) } \context Voice = "v2" { \voiceTwo \tiny b4 b8 cs \normalsize } \oneVoice >> | % 40 + 4. 8 4 \bar "||" % 41 + + % Chorus + +\mark \markup { \override #'(font-family . sans) { \box { D } } } + + 4 | % 42 + 4 8 ( ) 4 | % 43 + 4 8 ( ) ( ) | % 44 + 4 | % 45 + 4 | % 46 + 4 8 ( ) 4 | % 47 + 4 << { \voiceOne 8 ( ) d ( ) } \context Voice = "v2" { \voiceTwo \tiny b4 b8 a \normalsize } \oneVoice >> | % 48 + 2 \bar "||" % 49 + + % Outro + +\mark \markup { \override #'(font-family . sans) { \box { E } } } + + \voiceTwo d1 \oneVoice | % 50 + s1 | % 51 + s1 | % 52 + s1 | % 53 + s1 | % 54 + s1 | % 55 + s1 | % 56 + s1 | % 57 + s1 \bar "|." % 58 +%} +} + +LeadVoxText = \lyricmode +{ + I'm find- ing my- self at a loss for words + and the fun- ny thing is, it's o- kay + The last thing I need is too be heard + but to hear what you might say + + Word of God speak, would you pour down like rain, + wash- ing my eyes to see your ma- jes- ty + To be still and know that you're in this place, + please let me stay and rest in your ho- li- ness + Word of God speak. +} + + +Riffs = \relative c'' +{ + \clef G + \key c \major + \override Staff.TimeSignature #'style = #'() + \time 4/4 +\override Score.SpacingSpanner #'average-spacing-wishes = ##f + + % Intro + +\tiny + r8 g16 d' ~ d c8 g16 ~ g8 g16 d' ~ d c8. ~ | % 1 + c8 g16 d' ~ d c8 b16 ~ b8. c16 ~ c16 d8. ~ | % 2 + d8 g,16 d' ~ d c8 g16 ~ g8 g16 d' ~ d c8. ~ | % 3 + c8 g16 d' ~ d c8 b16 ~ b8. c16 ~ c16 d8. ~ | % 4 + d8 g,16 d' ~ d c8 g16 ~ g8 g16 d' ~ d c8. ~ | % 5 + c8 g16 d' ~ d c8 b16 ~ b8. c16 ~ c16 d8. ~ | % 6 + d8 g,16 d' ~ d c8 g16 ~ g8 g16 d' ~ d c8. | % 7 + \voiceOne 1 \oneVoice | % 8 + + \repeat volta 2 + { + % Verse + + s1 | % 9 + s1 | % 10 + s1 | % 11 + s1 | % 12 + s1 | % 13 + s1 | % 14 + s1 | % 15 + s1 | % 16 + + % Chorus + + s1 | % 17 + s1 | % 18 + s1 | % 19 + s1 | % 20 + s1 | % 21 + s1 | % 22 + s1 | % 23 + \time 2/4 s2 \time 4/4 | % 24 + \voiceOne r8 g,16 d' ~ d c8 g16 ~ g8 g16 d' ~ d c8. ~ \oneVoice | % 25 + c8 g16 d' ~ d c8 b16 ~ b8. c16 ~ c16 d8. ~ | % 26 + } + \alternative + { + { + d8 g,16 d' ~ d c8 g16 ~ g8 g16 d' ~ d c8. | % 27 + \voiceOne 1 \oneVoice | % 28 + } + { + d8 \repeatTie g,16 d' ~ d c8 g16 ~ g8 g16 d' ~ d c8. | % 29 + } + } + + c8 bf16 f ~ f2. | % 30 + c'8 bf16 f ~ f4 ~ f8. af16 ~ af bf8. | % 31 + c1 | % 32 + \voiceOne d2 e \oneVoice | % 33 + + % Verse + + s1 | % 34 + s1 | % 35 + s1 | % 36 + s1 | % 37 + s1 | % 38 + s1 | % 39 + s1 | % 40 + s1 | % 41 + + % Chorus + + s1 | % 42 + s1 | % 43 + s1 | % 44 + s1 | % 45 + s1 | % 46 + s1 | % 47 + s1 | % 48 + s1 | % 49 + + % Outro + + \voiceOne r8 a,16 e' ~ e d8 a16 ~ a8 a16 e' ~ e d8. ~ \oneVoice | % 50 + d8 a16 e' ~ e d8 cs16 ~ cs8. d16 ~ d16 e8. ~ | % 51 + e8 a,16 e' ~ e d8 a16 ~ a8 a16 e' ~ e d8. ~ | % 52 + d8 a16 e' ~ e d8 cs16 ~ cs8. d16 ~ d16 e8. ~ | % 53 + e8 a,16 e' ~ e d8 a16 ~ a8 a16 e' ~ e d8. ~ | % 54 + d8 a16 e' ~ e d8 cs16 ~ cs8. d16 ~ d16 e8. ~ | % 55 + e8 a,16 e' ~ e d8 a16 ~ a8 a16 e' ~ e d8. ~ | % 56 + d8 a16 e' ~ e d8 cs16 ~ cs8. d16 ~ d16 cs8. ~ | % 57 + 1^\fermata | % 59 +\normalsize +} + + +% +% Chord names +% + +Chords = \chordmode +{ +%Bah, can't we set this globally? +% \popChords + + % Intro + + c2:sus2/a c:sus2/f | % 1 + g1:sus4 | % 2 + c2:sus2/a c:sus2/f | % 3 + g1:sus4 | % 4 + c2:sus2/a c:sus2/f | % 5 + g1:sus4 | % 6 + c2:sus2/e c:sus2/f | % 7 + g1:sus4 | % 8 + + \repeat volta 2 + { + % Verse + + c2 c/e | % 9 + f2 d:m7 | % 10 + c2/g a:m7 | % 11 + c2/f g4:sus4 g | % 12 + c2 c/e | % 13 + f2 fs:dim | % 14 + c2/g a:m7 | % 15 + c4/g g c g:sus4.7 \bar "||" % 16 + + % Chorus + + c2 g | % 17 + f4 e8:m7 d:m7 c4 f | % 18 + c2/g a:m7 | % 19 + d2:9 g4:sus4.7 g:7 | % 20 + c2 g | % 21 + f4 e8:m7 d:m7 c4 f | % 22 + c2/e a:m7 | % 23 + \time 2/4 c4/f g \time 4/4 | % 24 + c2:sus2/a c:sus2/f | % 25 + g1:sus4 | % 26 + } + \alternative + { + { + c2:sus2/e c:sus2/f | % 27 + g1:sus4 | % 28 + } + { + c2:sus2/e c:sus2/ef | % 29 + } + } + + bf1:sus2/d | % 30 + df1:maj7 | % 31 + f1/g | % 32 + g2/a a4 a:sus4.7 \bar "||" % 33 + + % Verse + + d2 d/fs | % 34 + g2 e:m7 | % 35 + d2/a b:m7 | % 36 + d2/a a | % 37 + d4. e8:m7 d2/fs | % 38 + g2 gs:dim | % 39 + d2/a b:m7 | % 40 + d4/a a d d:sus4.7 \bar "||" % 41 + + % Chorus + + d2 a | % 42 + g4 fs8:m7 e:m7 d4 g | % 43 + d2/a b:m7 | % 44 + e2:9 a4:sus4.7 a:7 | % 45 + d2/a a | % 46 + g4 fs8:m7 e:m7 d4 g | % 47 + d2/fs b:m7 | % 48 + d2/g a \bar "||" % 49 + + % Outro + + d2:sus2 g:6.9 | % 50 + a1:sus4 | % 51 + d2:sus2/b g:6.9 | % 52 + a1:sus4 | % 53 + d2:sus2 g:6.9 | % 54 + a1:sus4 | % 55 + d2:sus2/fs g:6.9 | % 56 + a1:sus4 | % 57 + d1 | % 58 +} + + +% +% Chord rhythms +% + +% Use a RhythmicStaff on the chords instead of this? +% It almost works, but not quite. Doesn't collapse chords above to single notes... + +StaffC = \relative c +{ +% \set Voice.autoBeaming = ##f +% \set Staff.instrumentName = #"Rhythm" + \override Staff.TimeSignature #'style = #'() + \time 4/4 + \override NoteHead #'style = #'slash + + % Intro + + c4 c c c | % 1 + c4 c c c | % 2 + c4 c c c | % 3 + c4 c c c | % 4 + c4 c c c | % 5 + c4 c c c | % 6 + c4 c c c | % 7 + c1 | % 8 + + \repeat volta 2 + { + % Verse + + c4 c c c | % 9 + c4 c c c | % 10 + c4 c c c | % 11 + c4 c c c | % 12 + c4 c c c | % 13 + c4 c c c | % 14 + c4 c c c | % 15 + c4 c c c-> \bar "||" % 16 + + % Chorus + + c4 c c c | % 17 + c4 c8 c c4 c | % 18 + c4 c c c | % 19 + c4 c c c | % 20 + c4 c c c | % 21 + c4 c8 c c4 c | % 22 + c4 c c c | % 23 + \time 2/4 c4 c \time 4/4 | % 24 + c4 c c c | % 25 + c4 c c c | % 26 + } + \alternative + { + { + c4 c c c | % 27 + c4 c c c | % 28 + } + { + c4 c c c | % 29 + } + } + + c4 c c c | % 30 + c4 c c c | % 31 + c4 c c c | % 32 + c4 c c c \bar "||" % 33 + + % Verse + + c4 c c c | % 34 + c4 c c c | % 35 + c4 c c c | % 36 + c4 c c c | % 37 + c4. c8 c4 c | % 38 + c4 c c c | % 39 + c4 c c c | % 40 + c4 c c c-> \bar "||" % 41 + + % Chorus + + c4 c c c | % 42 + c4 c8 c c4 c | % 43 + c4 c c c | % 44 + c4 c c c | % 45 + c4 c c c | % 46 + c4 c8 c c4 c | % 47 + c4 c c c | % 48 + c2 c \bar "||" % 49 + + % Outro + + c4 c c c | % 50 + c4 c c c | % 51 + c4 c c c | % 52 + c4 c c c | % 53 + c4 c c c | % 54 + c4 c c c | % 55 + c4 c c c | % 56 + c4 c c c | % 57 + c1^\fermata \bar "|." % 58 +} + + +Dynamics = +{ +%{ + s4_\mf s2. | % 1 + s1*22 | % 2-23 + s4 s \> | % 24 + s4 \! s2. | % 25 + s1*2 | % 26-27 + s4 \< s s \! s | % 28 + s1*4 | % 29-32 + s4 \< s s \! s | % 33 + s1*23 | % 34-56 + s2 s2_\markup { \italic { rit. } } | % 57 +%} +} + + +\score +{ + << + << +% \new Staff = leadStaff { \new Voice = "lead" \LeadVox } + \new Staff = leadStaff { << \new Voice = "lead" \LeadVox \new Voice = "riffs" \Riffs >> } + \new Lyrics \lyricsto "lead" \LeadVoxText + >> + + \new ChoirStaff = "Rhythm" + << + \new ChordNames = "chords" \Chords + \new RhythmicStaff = "chordRhythm" << \StaffC \Dynamics >> + >> + + \set Score.skipBars = ##t + \set Score.melismaBusyProperties = #'() + >> +} + + +\paper +{ + #(define fonts (make-pango-font-tree + "Times New Roman" + "DomCasual BT" + "Luxi Mono" + (/ staffSize 20))) + +% Spread staves vertically across last page (default: t) +% ragged-last-bottom = ##f +% Don't spread staves vertically across the page (default: f) +% ragged-bottom = ##t +% Allow partial line for last stave (default: f) + ragged-last = ##t + +% To find out what's eating the space at the top... +% annotate-spacing = ##t +%let's try this: [It works! Huzzah!] + obsolete-page-top-space = 0 top-system-spacing #'basic-distance = #(/ obsolete-page-top-space staff-space) +} diff --git a/worthy-of-my-praise.ly b/worthy-of-my-praise.ly new file mode 100755 index 0000000..f40b13f --- /dev/null +++ b/worthy-of-my-praise.ly @@ -0,0 +1,420 @@ +\version "2.16.0" +\include "pop-chords.ly" +\include "english.ly" + +% Good sizes are 16, 18, & 20 +staffSize = #16 +#(set-default-paper-size "letter") +#(set-global-staff-size staffSize) +#(ly:set-option (quote no-point-and-click)) + +\header +{ +%Let's bump up the title size and switch to the chord font. :-) + + title = \markup { \override #'(font-family . sans) \fontsize #3.5 "Worthy Of My Praise" } + composer = \markup { \override #'(font-family . sans) \fontsize #1.3 "David Ruis" } + arranger = \markup { \override #'(font-family . sans) \fontsize #1.3 "arr. Ed Smart" } + tagline = $(string-append "Engraved by JLH and Lilypond " (lilypond-version)) +} + + +% +% Lead vocal +% + +LeadVox = \relative c' +{ +% \set Voice.autoBeaming = ##f +% \set Staff.instrumentName = #"Lead vox" + \clef G + \key f \major + \override Staff.TimeSignature #'style = #'() + \time 4/4 +\override Score.SpacingSpanner #'average-spacing-wishes = ##f + + % Intro + + \repeat volta 2 + { + R1 | % 1 + R1 | % 2 + R1 | % 3 + R1 | % 4 + } + + % Verse + + \repeat volta 2 + { +\once \override Score.RehearsalMark #'self-alignment-X = #left +\mark \markup { \override #'(font-family . sans) { \box { A } } \hspace #1.0 \raise #2.0 \musicglyph #"scripts.segno" } + + f4. c8 c4 f ~ | % 5 +<< +{ \voiceOne + f2.. f8 | % 6 + f8 f4 g8 ~ g ef ~ ef4 ~ | % 7 + ef1 | % 8 + bf'4. f8 f4 bf ~ | % 9 + bf2. \tiny bf8 \normalsize bf\noBeam | % 10 + bf8 a4 g8 f2 | % 11 +} +\context Voice = v { \voiceTwo +\tiny + f4. c8 c4 f ~ | % 6 + f2.. f8 | % 7 + f8 f4 g8 ~ g ef ~ ef4 ~ | % 8 + ef1 | % 9 + bf'4. f8 f4 bf ~ | % 10 + bf2. r8 bf | % 11 +} +>> +\oneVoice + } + \alternative + { + { + \context Voice = v { \voiceTwo bf4 a g8 ( f e f ) } | % 12 + } + { + \context Voice = v { \voiceTwo bf4 a g8 ( f e f ) } | % 13 + } + } + + % Chorus + + \repeat volta 3 + { +\mark \markup { \override #'(font-family . sans) { \box { B } } } + + r4 c'8. c16 c4. c8 | % 14 + c4. bf8 a ( g ) g4 | % 15 + r4 bf8. bf16 bf4. bf8 | % 16 + bf4 a g8 ( f e f ) | % 17 + r4 c'8. c16 c4. c8 | % 18 + c4. bf8 a ( g ) g4 | % 19 + r4 bf8. bf16 bf4. bf8 | % 20 + } + \alternative + { + { + bf4 a g8 ( f ) e ( f ) | % 21 + f2 r | % 22 + R1^\markup { \bold D.S. } \bar "||" % 23 + } + { + bf4 a g8 ( f ) e f | % 24 + } + { + bf4 a g8 ( f ) e f \bar "||" % 25 + } + } + + % Outro + +\once \override Score.RehearsalMark #'self-alignment-X = #left +\mark \markup { \override #'(font-family . sans) { \box { C } } \small \italic { a capella } } + + r4 c'8. c16 c4. c8 | % 26 + c4. bf8 a ( g ) g4 | % 27 + r4 bf8. bf16 bf4. bf8 | % 28 + bf4 a g8 ( f e f ) | % 29 + r4 c'8. c16 c4. c8 | % 30 + c4. bf8 a ( g ) g4 | % 31 + r4 bf8. bf16 bf4. bf8 | % 32 + +\once \override Score.RehearsalMark #'self-alignment-X = #left +\mark \markup { \small \italic { tutti } } + + bf4 a g8 ( f ) e ( f ) | % 33 + f1^\fermata \bar "|." % 34 +} + +LeadVoxText = \lyricmode +{ + I will wor -- ship _ + with all of my _ heart _ _ + I will praise you _ + _ with all of my strength + + I will give you all my wor -- _ ship + I will give you all my praise __ _ _ _ + You a -- lone I long to wor -- _ ship + You a -- lone are wor -- thy of _ my _ praise + + wor -- thy of _ my praise + wor -- thy of _ my praise + + I will give you all my wor -- _ ship + I will give you all my praise __ _ _ _ + You a -- lone I long to wor -- _ ship + You a -- lone are wor -- thy of _ my _ praise + +%{ +I will worship (I will worship) +With all of my heart (with all of my heart) +I will praise you (I will praise you) +With all of my strength (all my strength) + +I will seek you (I will seek you) +All of my days (all of my days) +I will follow (I will follow) +All of your ways (all your ways) + +I will give you all my worship +I will give you all my praise +You alone I long to worship +You alone are worthy of my praise + +I will bow down (I will bow down) +Hail you as king (hail you as king) +I will serve you (I will serve you) +Give you everything (give you everything) + +I will lift up (I will lift up) +My eyes to your throne (my eyes to your throne) +I will trust you (I will trust you) +I will trust you alone (trust you alone) +%} + +} + +LeadVoxTextB = \lyricmode +{ + I will seek you _ + _ all of my _ days _ _ + I will fol -- low _ + _ _ all of your ways +} + +LeadVoxTextC = \lyricmode +{ + I will bow down _ + _ hail you as _ king _ _ + I will serve you _ + _ give you e -- very -- thing +} + +LeadVoxTextD = \lyricmode +{ + I will lift up _ + My eyes to your _ throne _ _ + I will trust you _ + I will trust you a -- lone +} + + +% +% Chord names +% + +Chords = \chordmode +{ +%Bah, can't we set this globally? +% \popChords + + % Intro + + \repeat volta 2 + { + f1:sus2 | % 1 + s1 | % 2 + ef1:sus2 | % 3 + s1 | % 4 + } + + % Verse + + \repeat volta 2 + { + f1:sus2 | % 5 + s1 | % 6 + ef1:sus2 | % 7 + s1 | % 8 + bf1 | % 9 + s1 | % 10 + f1 | % 11 + } + \alternative + { + { + g2:m7 bf4/c c | % 12 + } + { + g2:m7 bf4/c c | % 13 + } + } + + % Chorus + + \repeat volta 3 + { + f1 | % 14 + c1/e | % 15 + bf1/d | % 16 + g4:m7 f/a bf:6 c | % 17 + f1 | % 18 + c1/e | % 19 + g1:m7 | % 20 + } + \alternative + { + { + g4:m7 f/a bf:6 c | % 21 + f1 | % 22 + bf1/c | % 23 + } + { + g4:m7 f/a bf:6 c | % 24 + } + { + g4:m7 f/a bf:6 c | % 25 + } + } + + % Outro + + f1 | % 26 + c1/e | % 27 + bf1/d | % 28 + g2:m7 bf4 c | % 29 + f1 | % 30 + c1/e | % 31 + bf1/d | % 32 + g4:m7 f/a bf:6 c | % 33 + f1 | % 34 +} + + +% +% Chord rhythms +% + +% Use a RhythmicStaff on the chords instead of this? +% It almost works, but not quite. Doesn't collapse chords above to single notes... + +StaffC = \relative c +{ +% \set Voice.autoBeaming = ##f +% \set Staff.instrumentName = #"Rhythm" + \override Staff.TimeSignature #'style = #'() + \time 4/4 + \override NoteHead #'style = #'slash + + % Intro + + \repeat volta 2 + { + c1 ~ | % 1 + c1 | % 2 + c1 ~ | % 3 + c1 | % 4 + } + + % Verse + + \repeat volta 2 + { + c1 ~ | % 5 + c1 | % 6 + c1 ~ | % 7 + c1 | % 8 + c1 ~ | % 9 + c1 | % 10 + c1 | % 11 + } + \alternative + { + { + c2 c4 c | % 12 + } + { + c4 c c c | % 13 + } + } + + % Chorus + + \repeat volta 3 + { + c4 c-> c c-> | % 14 + c4 c-> c c-> | % 15 + c4 c-> c c-> | % 16 + c4-> c c c | % 17 + c4 c-> c c-> | % 18 + c4 c-> c c-> | % 19 + c4 c-> c c-> | % 20 + } + \alternative + { + { + c4 c c c | % 21 + c4 c c c | % 22 + c1 \bar "||" % 23 + } + { + c4 c c c | % 24 + } + { + c4 c c c \bar "||" % 25 + } + } + + % Outro + + c1 | % 26 + c1 | % 27 + c1 | % 28 + c4 c c c | % 29 + c1 | % 30 + c1 | % 31 + c1 | % 32 + c4_\markup { \italic { rit. } } c c c | % 33 + c1^\fermata \bar "|." % 34 +} + + +\score +{ + << + << + \new Staff = leadStaff { \new Voice = "lead" \LeadVox } + \new Lyrics \lyricsto "lead" \LeadVoxText + \new Lyrics \lyricsto "lead" \LeadVoxTextB + \new Lyrics \lyricsto "lead" \LeadVoxTextC + \new Lyrics \lyricsto "lead" \LeadVoxTextD + >> + + \new ChoirStaff = "Rhythm" + << + \new ChordNames = "chords" \Chords + \new RhythmicStaff = "chordRhythm" \StaffC + >> + + \set Score.skipBars = ##t + \set Score.melismaBusyProperties = #'() + >> +} + + +\paper +{ + #(define fonts (make-pango-font-tree + "Times New Roman" + "DomCasual BT" + "Luxi Mono" + (/ staffSize 20))) + +% Spread staves vertically across last page (default: t) +% ragged-last-bottom = ##f +% Don't spread staves vertically across the page (default: f) +% ragged-bottom = ##t +% Allow partial line for last stave (default: f) + ragged-last = ##t + +% To find out what's eating the space at the top... +% annotate-spacing = ##t +%let's try this: [It works! Huzzah!] + obsolete-page-top-space = 0 top-system-spacing #'basic-distance = #(/ obsolete-page-top-space staff-space) +} diff --git a/you-are-my-all-in-all.ly b/you-are-my-all-in-all.ly new file mode 100755 index 0000000..838ad2b --- /dev/null +++ b/you-are-my-all-in-all.ly @@ -0,0 +1,346 @@ +\version "2.16.0" +\include "pop-chords.ly" +\include "english.ly" + +% Good sizes are 16, 18, & 20 +staffSize = #18 +#(set-default-paper-size "letter") +#(set-global-staff-size staffSize) +#(ly:set-option (quote no-point-and-click)) + +\header +{ +%Let's bump up the title size and switch to the chord font. :-) + + title = \markup { \override #'(font-family . sans) \fontsize #3.5 "You Are My All In All" } +% composer = \markup { \override #'(font-family . sans) \fontsize #1.3 "" } + arranger = \markup { \override #'(font-family . sans) \fontsize #1.3 "arr. Ed Smart" } + tagline = $(string-append "Engraved by JLH and Lilypond " (lilypond-version)) +} + + +% +% Lead vocal +% + +LeadVox = \relative c' +{ +% \set Voice.autoBeaming = ##f +% \set Staff.instrument = #"Lead vox" + \clef G + \key f \major + \override Staff.TimeSignature #'style = #'() + \time 4/4 +\override Score.SpacingSpanner #'average-spacing-wishes = ##f + + % Intro + + s1^\markup { \hspace #0.0 \raise #2.0 { 16th note ballad } } | % 1 + s1 | % 2 + \time 2/4 s2 \time 4/4 | % 3 + s1 \bar "||:" % 4 + + \repeat volta 3 + { + % A section + +\mark \markup { \override #'(font-family . sans) { \box { A } } } + + r4 f16 g a8 g g f e | % 5 + f4 f16 g a8 c, c f e | % 6 + d4 d16 e f8 f4 e | % 7 + f4. ( g16 f e2 ) | % 8 + + r4 f16 g a8 g g f e | % 9 + f4 f16 g a8 c, c f e | % 10 + d4 d16 e f8 f4 e | % 11 + f2. r4 \bar "||" % 12 + + % B section + +\once \override Score.RehearsalMark #'self-alignment-X = #left +\mark \markup { \override #'(font-family . sans) { \box { B } } \hspace #1.0 \raise #2.0 \musicglyph #"scripts.segno" } + + a2 g | % 13 + f4 c' a2 | % 14 + bf4 bf a g | % 15 + a4. ( bf16 a g2 ) | % 16 + + a2 g | % 17 + f4 c' a2 | % 18 + bf4 bf a g | % 19 + } + \alternative + { + { + f2. r4 | % 20 + } + { + f2. r4^\markup { \hspace #-2.0 \raise #1.0 \bold { D.S. } } \bar "||" % 21 + } + { + f2. r4 \bar "||" % 22 + } + } + + % Ending + +\mark \markup { \override #'(font-family . sans) { \box { C } } } + + a2 g | % 23 + f4 c' a2 | % 24 + bf4 bf a g | % 25 + f1^\fermata \bar "|." % 26 +} + +LeadVoxText = \lyricmode +{ + You are my strength when I am weak; + you are the trea -- sure that I seek, + you are my all in all __ _ _ _ + + Seek -- ing you as a pre -- cious jewel; + Lord to give up I’d be a fool, + you are my all in all. + + Je -- sus, Lamb of God + wor -- thy is your name __ _ _ _ + Je -- sus, Lamb of God + wor -- thy is your name. + + name. + name. + + Je -- sus, Lamb of God + wor -- thy is your name. +} + +LeadVoxTextB = \lyricmode +{ + Tak -- ing my sin, my cross, my shame; + ris -- ing a -- gain, I bless your name, + you are my all in all __ _ _ _ + + When I fall down, you pick me up; + when I am dry you fill my cup, + you are my all in all. +} + + +Riffs = \relative c'' +{ + \clef G + \key f \major + \override Staff.TimeSignature #'style = #'() + \time 4/4 +\override Score.SpacingSpanner #'average-spacing-wishes = ##f + + % Intro + + \tiny + r4 f16 g a8 g g16 f ~ f e8 f16 ~ | % 1 + f4 f16 g a8 c, c16 f ~ f e8 d16 ~ | % 2 + \time 2/4 d4 d16 e f8 \time 4/4 | % 3 + f2 e \bar "||:" % 4 + \normalsize +} + + +% +% Chord names +% + +Chords = \chordmode +{ +%Bah, can't we set this globally? +% \popChords + + % Intro + + f2 c/e | % 1 + d2:m f/a | % 2 + \time 2/4 bf2 \time 4/4 | % 3 + f2/c c | % 4 + + \repeat volta 3 + { + % A section + + f2 c/e | % 5 + d2:m f/a | % 6 + bf2 f4/c c | % 7 + f2 c | % 8 + + f2 c/e | % 9 + d2:m f/a | % 10 + g2:m7 f4/c c | % 11 + bf2/f f | % 12 + + % B section + + f2 c/e | % 13 + d2:m f/a | % 14 + bf2 f4/c c | % 15 + f2 c | % 16 + + f2 c/e | % 17 + bf4/d c/e f2 | % 18 + g2:m7 f4/c c | % 19 + + } + \alternative + { + { + bf2/f f | % 20 + } + { + bf2/f f | % 21 + } + { + bf2/f f | % 22 + } + } + + % Ending + + f2 c/e | % 23 + bf4/d c/e f2 | % 24 + g2:m7 f4/c c | % 25 + bf2/f f | % 26 +} + + +% +% Chord rhythms +% + +% Use a RhythmicStaff on the chords instead of this? +% It almost works, but not quite. Doesn't collapse chords above to single notes... + +StaffC = \relative c +{ +% \set Voice.autoBeaming = ##f +% \set Staff.instrument = #"Rhythm" + \override Staff.TimeSignature #'style = #'() + \time 4/4 + \override NoteHead #'style = #'slash + + % Intro + + c4 c c c | % 1 + c4 c c c | % 2 + \time 2/4 c4 c \time 4/4 | % 3 + c4 c c c | % 4 + + \repeat volta 3 + { + % A section + + c4 c c c | % 5 + c4 c c c | % 6 + c4 c c c | % 7 + c4 c c c | % 8 + + c4 c c c | % 9 + c4 c c c | % 10 + c4 c c c | % 11 + c4 c c c | % 12 + + % B section + + c4 c c c | % 13 + c4 c c c | % 14 + c4 c c c | % 15 + c4 c c c | % 16 + + c4 c c c | % 17 + c4 c c c | % 18 + c4 c c c | % 19 + + } + \alternative + { + { + c4 c c c | % 20 + } + { + c4 c c c | % 21 + } + { + c4 c c c \bar "||" % 22 + } + } + + % Ending + + c2 c | % 23 + c4 c c2 | % 24 + c2 c4 c | % 25 + c2 c^\fermata \bar "|." % 26 +} + + +Dynamics = +{ + s4_\mf s2. | % 1 + s1 | % 2 + \time 2/4 s2 \time 4/4 | % 3 + s1 | % 4 + + s4_\markup { \italic { stick } } s2. | % 5 + + s1*7 + + s4_\markup { \hspace #0.0 \raise #-1.5 \italic { 1st X stick, 2nd & 3rd X light snare } } s2. | % 13 + + s1*8 + + s2 s4 \> s | % 22 + s4_\mp s2. | % 23 + s1 | % 24 + s4 s_\markup { \italic rit. } s2 | % 25 +} + + +\score +{ + << + << +% \new Staff = leadStaff { \new Voice = "lead" \LeadVox } + \new Staff = leadStaff { << \new Voice = "lead" \LeadVox \new Voice = "riffs" \Riffs >> } + \new Lyrics \lyricsto "lead" \LeadVoxText + \new Lyrics \lyricsto "lead" \LeadVoxTextB + >> + + \new ChoirStaff = "Rhythm" + << + \new ChordNames = "chords" \Chords + \new RhythmicStaff = "chordRhythm" << \StaffC \Dynamics >> + >> + + \set Score.skipBars = ##t + \set Score.melismaBusyProperties = #'() + >> +} + + +\paper +{ + #(define fonts (make-pango-font-tree + "Times New Roman" + "DomCasual BT" + "Luxi Mono" + (/ staffSize 20))) + +% Spread staves vertically across last page (default: t) +% ragged-last-bottom = ##f +% Spread staves vertically across the page (default: f) +% ragged-bottom = ##t +% Allow partial line for last stave (default: f) + ragged-last = ##t + +% To find out what's eating the space at the top... +% annotate-spacing = ##t +%let's try this: [It works! Huzzah!] + obsolete-page-top-space = 0 top-system-spacing #'basic-distance = #(/ obsolete-page-top-space staff-space) +} diff --git a/you-have-been-good.ly b/you-have-been-good.ly new file mode 100755 index 0000000..9091ae8 --- /dev/null +++ b/you-have-been-good.ly @@ -0,0 +1,379 @@ +\version "2.16.0" +\include "pop-chords.ly" +\include "english.ly" + +% Good sizes are 16, 18, & 20 +staffSize = #16 +#(set-default-paper-size "letter") +#(set-global-staff-size staffSize) +#(ly:set-option (quote no-point-and-click)) + +%{ Some useful characters: ‘ ’ “ ” – — † ‡ • … %} + +\header +{ +%Let's bump up the title size and switch to the chord font. :-) + + title = \markup { \override #'(font-family . sans) \fontsize #3.5 "You Have Been Good" } +% Neat! +% subtitle = \markup { \fret-diagram #"6-3;5-x;4-2;3-o;2-3;1-3;" " - " \fret-diagram-terse #"3-(;6;;5;4;3-);" } + composer = \markup { \override #'(font-family . sans) \fontsize #1.3 "Twila Paris" } + arranger = \markup { \override #'(font-family . sans) \fontsize #1.3 "arr. Ed Smart" } + tagline = $(string-append "Engraved by JLH and Lilypond " (lilypond-version)) +} + + +% +% Song's structure +% +Global = +{ + \key d \major + \override Staff.TimeSignature #'style = #'() + \time 12/8 + + % Intro + + s1. | % 1 + s1. | % 2 + s1. | % 3 + s1. \bar "||:" % 4 + + \repeat volta 3 + { + % A section + + \mark \markup { \override #'(font-family . sans) { \box { A } } } + + s1. | % 5 + s1. | % 6 + s1. | % 7 + s1. | % 8 + + s1. | % 9 + s1. | % 10 + s1. | % 11 + s1. \bar "||" % 12 + + % B section + + \once \override Score.RehearsalMark #'self-alignment-X = #left + \mark \markup { \override #'(font-family . sans) { \box { B } } \hspace #1.0 \raise #2.0 \musicglyph #"scripts.segno" } + + s1. | % 13 + s1. | % 14 + s1. | % 15 + s1. \bar "||" % 16 + + % A section + + s1. | % 17 + s1. | % 18 + s1. | % 19 + } + \alternative + { + { + s1. | % 20 + s1. | % 21 + } + { + s2. s4. s8^\markup { \hspace #4.0 \raise #1.0 \bold { D.S. } } s s \bar "||" % 22 + } + { + s1. | % 23 + } + } + + % Ending + + s1. | % 24 + s1. | % 25 + s1. | % 26 + s1. \bar "|." % 27 +} + + +% +% Lead vocal +% +LeadVox = \relative c' +{ + \clef G + \override Score.SpacingSpanner #'average-spacing-wishes = ##f + + % Intro + + s1. | % 1 + s1. | % 2 + s1. | % 3 + r2. r4. d | % 4 + + % A section + + d2. ~ d4. d8 d a' | % 5 + a2. ~ a4. d,8 e fs | % 6 + e4. d ~ d4 d8 d e fs | % 7 + e4. d r d | % 8 + + d2. ~ d4. d8 d a' | % 9 + a2. ~ a4. d,8 e fs | % 10 + e4. d ~ d4 d8 d e fs | % 11 + e4. d r d8 fs a | % 12 + + % B section + + b2. ~ b4. cs,8 e a | % 13 + a2. ~ a4. d,8 e fs | % 14 + e4. d ~ d b8 d e | % 15 + e2. r4. d | % 16 + + % A section + + d2. ~ d4. d8 d a' | % 17 + a2. ~ a4. d,8 e fs | % 18 + e4. d ~ d d8 fs e | % 19 + + d2. r | % 20 + r2. r4. d | % 21 + + d2. r4. d8 fs a | % 22 + + d,2. r4. d8 e fs | % 23 + + % Ending + + e4. d r d8 fs e | % 24 + d2. r4. d8 e fs | % 25 + e4. d r d8 fs e | % 26 + d1.^\fermata | % 27 +} + +LeadVoxText = \lyricmode +{ + O Lord, _ you have been good, _ + you have been faith -- ful _ to all gen -- e -- ra -- tions. + O Lord, _ your stead -- fast love _ + and ten -- der mer -- cy _ have been our sal -- va -- tion. + + For by your hand, _ we have been fed _ + And by your spi -- rit, _ we have been led + O Lord, _ you have been good, _ + you have been faith -- ful, _ you have been good. + + O + good. For by your + good. + + you have been faith -- ful, you have been good. + you have been faith -- ful, you have been good. +} + +LeadVoxTextB = \lyricmode +{ + _ _ _ _ _ _ _ _ + _ _ _ _ _ _ _ _ _ _ _ _ + O Lord, _ Al -- migh -- ty God, _ + Fa -- ther un -- chang -- ing, _ _ up -- right and ho -- ly. +} + + +Riffs = \relative c' +{ + % Intro + + \tiny + \repeat "percent" 3 { 4. << \tiny d \\ \tiny { b8 a g } >> } | % 1 - 3 + \normalsize + s1. | % 4 +} + + +% +% Chord names +% +Chords = \chordmode +{ +%Bah, can't we set this globally? +% \popChords + + % Intro + + d4. d:sus4 d g | % 1 + d4. d:sus4 d g | % 2 + d4. d:sus4 d g | % 3 + d4. d:sus4 d g/a | % 4 + + % A section + + d4. d:sus4 d2. | % 5 + fs2.:m7 b4.:m7 b:m7/a | % 6 + a4./g g g2./a | % 7 + e4.:m7/d d g2./a | % 8 + + d4. d:sus4 d2. | % 9 + fs2.:m7 b4.:m7 b:m7/a | % 10 + a4./g g g2./a | % 11 + e4.:m7/d d2. d4./fs | % 12 + + % B section + + g2.:maj7 a/g | % 13 + fs2.:m7 b4.:m7 b:m7/a | % 14 + a4./g g g2./a | % 15 + a2./b g/a | % 16 + + % A section + + d4. d:sus4 d2. | % 17 + fs2.:m7 b4.:m7 b:m7/a | % 18 + a4./g g g2./a | % 19 + + d4. d:sus4 d g | % 20 + d4. d:sus4 d g/a | % 21 + + d4. d:sus4 d d/fs | % 22 + + d4. d:sus4 d d/fs | % 23 + + % Ending + + a4./g g g2./a | % 24 + d4. d:sus4 d d/fs | % 25 + a4./g g g2./a | % 26 + d1. | % 27 +} + + +% +% Chord rhythms +% + +% Use a RhythmicStaff on the chords instead of this? +% It almost works, but not quite. Doesn't collapse chords above to single notes... + +Rhythm = +{ + \override Staff.TimeSignature #'style = #'() + \override NoteHead #'style = #'slash + + % Intro + + c4. c c c | % 1 + c4. c c c | % 2 + c4. c c c | % 3 + c4. c c c-> | % 4 + + % A section + + c4. c c c | % 5 + c4. c c c | % 6 + c4. c c c | % 7 + c4. c c c | % 8 + + c4. c c c | % 9 + c4. c c c | % 10 + c4. c c c | % 11 + c4. c c c | % 12 + + % B section + + c4. c c c | % 13 + c4. c c c | % 14 + c4. c c c | % 15 + c4. c c c | % 16 + + % A section + + c4. c c c | % 17 + c4. c c c | % 18 + c4. c c c | % 19 + + c4. c c c | % 20 + c4. c c c | % 21 + + c4. c c c | % 22 + + c4. c c c | % 23 + + % Ending + + c4. c c c | % 24 + c4. c c c | % 25 + c4. c c2. | % 26 + c1.^\fermata | % 27 +} + +Dynamics = +{ + s4._\markup { \dynamic mf \italic { piano only, rolling } } s s s | % 1 + + s1. | % 2 + + s4._\markup { \italic { add bass & drum colors } } s s s | % 3 + + s1. | % 4 + + s4._\markup { \dynamic mf \italic { 1st X stick, 2nd X snare } } s s s | % 5 + + s1.*6 | % 6-11 + + s4. s s \< s \! | % 12 + s4._\markup { \dynamic f \italic { snare } } s s s | % 13 + + s1.*7 | % 14-20 + + s4. s s \> s \! | % 21 + s4. s s \< s \! | % 22 + + s1.*3 | % 23-25 + + s4._\markup { \italic { rit. } } s s2. | % 26 + s1. | % 27 +} + + +\score +{ + << + \Global % The "roadmap" that everything else depends on + + \context Staff + << + \context Staff << \new Voice = "lead" \LeadVox \new Voice \Riffs >> + \new Lyrics \lyricsto "lead" \LeadVoxText + \new Lyrics \lyricsto "lead" \LeadVoxTextB + >> + + \new ChoirStaff + << + \new ChordNames \Chords + \new RhythmicStaff << \Rhythm \Dynamics >> + >> + + \set Score.skipBars = ##t + \set Score.melismaBusyProperties = #'() + >> +} + + +\paper +{ + #(define fonts (make-pango-font-tree + "Times New Roman" + "DomCasual BT" + "Luxi Mono" + (/ staffSize 20))) + +% Spread staves vertically across last page (default: t) + ragged-last-bottom = ##f +% Spread staves vertically across the page (default: f) +% ragged-bottom = ##t +% Allow partial line for last stave (default: f) +% ragged-last = ##t + +% To find out what's eating the space at the top... +% annotate-spacing = ##t +%let's try this: [It works! Huzzah!] + obsolete-page-top-space = 0 top-system-spacing #'basic-distance = #(/ obsolete-page-top-space staff-space) +} -- 2.37.2