From 38105f5c214b8203e5f7caaeae739da423557004 Mon Sep 17 00:00:00 2001 From: Shamus Hammons Date: Sat, 19 Aug 2017 22:15:40 -0500 Subject: [PATCH] New chart "We Fall Down". --- we-fall-down.ly | 340 ++++++++++++++++++++++++++++++++++++++++++++++++ 1 file changed, 340 insertions(+) create mode 100644 we-fall-down.ly diff --git a/we-fall-down.ly b/we-fall-down.ly new file mode 100644 index 0000000..e0b2a32 --- /dev/null +++ b/we-fall-down.ly @@ -0,0 +1,340 @@ +\version "2.19.48" +\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 Fall Down" } + composer = \markup { \override #'(font-family . sans) \fontsize #1.3 "C. Tomlin" } + arranger = \markup { \override #'(font-family . sans) \fontsize #1.3 "arr. S. 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) + +% +% 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 \italic { Piano only } } + s1*2 \bar "||" % 1-2 + + % Verse + + \mark \markup { \override #'(font-family . sans) { \box { A } } } + s1*8 \bar "||" % 3-10 + + % Refrain + + \mark \markup { \override #'(font-family . sans) { \box { B } } } + s1*6 \bar "||" % 11-16 + + % Outro + + \mark \markup { \override #'(font-family . sans) { \box { C } } } + s1*4 \bar "|." % 17-20 +} + + +% +% Lead vocal +% + +LeadVox = \relative c' +{ + \clef G + \override Score.SpacingSpanner #'average-spacing-wishes = ##f + + % Intro + + R1 | % 1 + R1 | % 2 + + % Verse + + cs8 e4 e8 ~ e4 ~ e8 a, | % 3 + gs8 b4 a8 ~ a4 ~ a8 b16 cs | % 4 + d2 ~ d8 cs4 cs8 ( ~ | % 5 + cs8 b ) b2 r8. b16 | % 6 + + cs8 e4 e8 ~ e4 ~ e8 a, | % 7 + gs16 gs b4 a8 ~ a4 ~ a8 b16 cs | % 8 + d2 ~ d8 cs4 cs8 ( ~ | % 9 + cs8 b ) b a a4 e' | % 10 + + % Refrain + + e4 e8 d ~ d d4 cs8 ~ | % 11 + cs8 b4 r8 a4 e' | % 12 + e4 e8 d ~ d d4 cs8 ~ | % 13 + cs8 b4 r8 a4 e' | % 14 + + e4 e8 d ~ d d4 cs8 ~ | % 15 + cs8 b4. cs4 b8 ( a ) | % 16 + + % Outro + + a2 r | % 17 + R1 | % 18 + R1 | % 19 + R1 | % 20 +} + + +LeadVoxTextA = \lyricmode +{ + We fall down, _ _ we lay our crowns, _ _ + at the feet _ of Je -- _ _ sus + + The great -- ness of _ _ his mer -- cy and love, _ _ + at the feet _ of Je -- _ _ sus + + And we cry, ho -- ly, ho -- _ ly, ho -- _ ly, + we cry, ho -- ly, ho -- _ ly, ho -- _ ly, + we cry, ho -- ly, ho -- _ ly, ho -- _ ly + is the _ lamb. +} + + +Riffs = \relative c'' +{ +%{ + \tiny + a8 gs gs fs | % 0 + gs4 gs a8 gs fs e | % 1 + fs4 fs a8 gs gs fs | % 2 + gs4 gs gs8 b4 e,8 ~ | % 3 + e16 a, b e ~ e b e gs ~ gs b, e b' ~ b8 b,16 e ~ | % 4 + e16 a, b e ~ e b e gs ~ gs b, e b' ~ b8 b, | % 5 + + s1*16 | % 6-21 + + r16 a b e ~ e b e gs ~ gs b, e b' ~ b8 b,16 e ~ | % 22 + e16 a, b e ~ e b e gs ~ gs b, e b' ~ b8 b, | % 23 + + s1*7 | % 24-30 + + s1 % blank bar for Coda + + s1*13 | % 31-43 + + r16 a b e ~ e b e gs ~ gs b, e b' ~ b8 b,16 e ~ | % 44 + e a, b e ~ e b e gs ~ gs b, e b' ~ b8 b,16 e ~ | % 45 + e16 a, b e ~ e b e gs ~ gs b, e b' ~ b8 b, | % 46 + 1-\fermata | % 47 + \normalsize +%} +} + + +% +% Chord names +% + +Chords = \chordmode +{ + % Intro + + a4. d8/a s2 | % 1 + a4. d8/a s2 | % 2 + + % Verse + + a1 | % 3 + e4. fs8:m s2 | % 4 + d2. cs4:m | % 5 + e1 | % 6 + a1 | % 7 + e4. fs8:m s2 | % 8 + d2. cs4:m | % 9 + e2/b a | % 10 + + % Refrain + + d2 a/cs | % 11 + e2 fs:m | % 12 + d2 cs:m | % 13 + e2/b a | % 14 + d2 a/cs | % 15 + e1 | % 16 + + % Outro + + a4. d8/a s2 | % 17 + a4. d8/a s2 | % 18 + a4. d8/a s2 | % 19 + a1 | % 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 +{ + \override NoteHead #'style = #'slash + \teeny + + % Intro + + c4. c c4 | % 1 + c4. c c4 | % 2 + + % Verse + + c4 c c c | % 3 + c4. c c4 | % 4 + c4 c c c | % 5 + c4 c c c | % 6 + c4 c c c | % 7 + c4. c c4 | % 8 + c4 c c c | % 9 + c4 c c c | % 10 + + % Refrain + + 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 + + % Outro + + c4. c c4 | % 17 + c4. c c4 | % 18 + c4. c c4 | % 19 + c1 | % 20 +} + + +Dynamics = +{ +%{ + s2_\mf | % 0 + s1*3 | % 1-3 + s4_\markup { \italic { add cymbal colors } } s2. | % 5 + s2 s16 s \> s4 s16 s \! | % 5 + + % Verse + + s4_\markup { \italic { Unison 1st X } } s2. | % 6 + s1*8 | % 7-14 + + % Chorus + + s4_\markup { \italic { snare on D.S. } } s2. | % 15 + s1*9 | % 16-24 + + % Bridge + + s4_\markup { \italic { Unison 1st X } } s2. | % 25 + s1*4 | % 26-29 + s4.. s16_\markup { \italic { big fill } } \< s4. s8-\f | % 30 + + s1 % blank bar for coda + + % Coda + + s2 s8 \< s4 s8 \! | % 31 + s4_\ff s2. | % 32 + s1*6 | % 33-38 + s2 s8 \> s4 s8-\mp | % 39 + + s4_\markup { \italic { floating } } s2. | % 40 +%} +} + + +\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 = #'() + >> +%} + << + \set Score.skipBars = ##t + \set Score.melismaBusyProperties = #'() + + \new Staff + << + \Global % The "roadmap" that everything else depends on + \new Voice = "lead" \LeadVox + \new Voice \Riffs + \new Lyrics \lyricsto "lead" \LeadVoxTextA + >> + +% \new Staff + << + \new ChordNames \Chords + \new RhythmicStaff << \Rhythm \Dynamics >> + >> + >> +} + + +\paper +{ + #(define fonts (make-pango-font-tree + "Times New Roman" + "JazzText" + "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!][nope... :-/] +% obsolete-page-top-space = 0 top-system-spacing #'basic-distance = #(/ obsolete-page-top-space staff-space) +} + -- 2.37.2