X-Git-Url: http://shamusworld.gotdns.org/cgi-bin/gitweb.cgi?a=blobdiff_plain;f=leaning-on-the-everlasting-arms.ly;h=0022662a6ad2445367d8f93bf7fa31fdbb67761a;hb=HEAD;hp=8fbaabac308ecf0e1a3b0c87428711c50e860504;hpb=7add1480813db617ee22ba3276c5b61649445f50;p=music diff --git a/leaning-on-the-everlasting-arms.ly b/leaning-on-the-everlasting-arms.ly old mode 100755 new mode 100644 index 8fbaaba..0022662 --- a/leaning-on-the-everlasting-arms.ly +++ b/leaning-on-the-everlasting-arms.ly @@ -1,8 +1,8 @@ -\version "2.16.0" +\version "2.19.0" \include "pop-chords.ly" \include "english.ly" -% Good sizes are 16, 18, & 20 +% Good sizes are 16, 18, & 20 (11, 13, 14, 23, 26) staffSize = #20 #(set-default-paper-size "letter") #(set-global-staff-size staffSize) @@ -10,10 +10,7 @@ staffSize = #20 \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)) @@ -30,126 +27,163 @@ hn = #(define-music-function (parser location arg) (ly:music?) % -% Lead vocal +% Song's structure % - -LeadVox = \relative c'' +Global = { -% \set Voice.autoBeaming = ##f -% \set Staff.instrument = #"Lead vox" \clef G \key g \major - \override Staff.TimeSignature #'style = #'() + \numericTimeSignature \time 4/4 -\override Score.SpacingSpanner #'average-spacing-wishes = ##f % Intro \repeat volta 2 { - R1 | % 1 - R1 | % 2 + s1*2 | % 1-2 } \repeat volta 2 { - R1 | % 3 - R1 | % 4 + s1*2 | % 3-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 } } + \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 + s1*8 \bar "||" % 5-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 + \mark \markup { \override #'(font-family . sans) { \box { B } } } + s1*7 | % 13-19 + \time 2/4 s2 \time 4/4 | % 20 + s1*2 | % 21-22 } \alternative { { - R1 | % 23 - R1 | % 24 + s1*2 | % 23-24 } { - R1 | % 25 + s1 | % 25 } } - R1 | % 26 + s1 | % 26 \key a \major \repeat volta 2 { - R1 | % 27 - R1 | % 28 + s1*2 | % 27-28 } % Verse -\once \override Score.RehearsalMark #'self-alignment-X = #left -\mark \markup { \override #'(font-family . sans) { \box { C } } \italic { bass & drums only } } + \once \override Score.RehearsalMark #'self-alignment-X = #left + \mark \markup { \override #'(font-family . sans) { \box { C } } \italic { bass & drums only } } + + s1*4 | % 29-32 + + \once \override Score.RehearsalMark #'self-alignment-X = #left + \mark \markup { \italic { full band } } + + s1*4 | % 33-36 + + \repeat volta 2 + { + % Chorus + + \mark \markup { \override #'(font-family . sans) { \box { D } } } + s1*8 | % 37-44 + } + + s1*4 \bar "|." % 45-48 +} + + +% +% Lead vocal +% +LeadVox = \relative c'' +{ + \clef G + + % Intro + + R1*2 | % 1-2 + + R1*2 | % 3-4 + + % Verse + + 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 | % 12 + + % Chorus + + 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 + + R1*2 | % 23-24 + + R1 | % 25 + + R1 | % 26 + + + R1*2 | % 27-28 + + % Verse 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 + % 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. ~ 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 + cs4 b a2^\fermata | % 48 } + LeadVoxText = \lyricmode { What a fel -- low -- ship, what a joy di -- vine, @@ -187,115 +221,57 @@ LeadVoxTextB = \lyricmode 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 - } + s1 | % 1 + s1 | % 2 - \repeat volta 2 - { - g1:7 | % 3 - g1:7 | % 4 - } + g1:7 | % 3 + g1:7 | % 4 - \repeat volta 2 - { - % Verse + % 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 + 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 + % 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 - } - } + 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 + g4/d d | % 20 + + g1:7 | % 21 + g1:7 | % 22 + + g1:7 | % 23 + g1:7 | % 24 + + g1:7 | % 25 g1:7 | % 26 - \repeat volta 2 - { - a1:7 | % 27 - a1:7 | % 28 - } + + a1:7 | % 27 + a1:7 | % 28 % Verse @@ -308,19 +284,16 @@ Chords = \chordmode a2/cs d | % 35 a4/e e a2 | % 36 - \repeat volta 2 - { - % Chorus + % 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 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 @@ -332,77 +305,54 @@ Chords = \chordmode % % 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 + \numericTimeSignature \override NoteHead #'style = #'slash + \teeny % Intro - \repeat volta 2 - { - R1 | % 1 - R1 | % 2 - } + R1 | % 1 + R1 | % 2 - \repeat volta 2 - { - c4-> c-> r2 | % 3 - c8-> c-> r4 r2 | % 4 - } + c4-> c-> r2 | % 3 + c8-> c-> r4 r2 | % 4 - \repeat volta 2 - { - % Verse + % 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 + 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 | % 12 - % Chorus + % 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 - } - } + 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 + c4 c | % 20 + + c4-> c-> r2 | % 21 + c8-> c-> r4 r2 | % 22 + + 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 - } + c4-> c-> r2 | % 27 + c8-> c-> r4 r2 | % 28 % Verse @@ -415,24 +365,21 @@ StaffC = \relative c c4 c c c | % 35 c4 c c c | % 36 - \repeat volta 2 - { - % Chorus + % 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 - } + 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 + c4-> c-> c2^\fermata | % 48 } @@ -445,58 +392,50 @@ Dynamics = 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 { << + \Global % The "roadmap" that everything else depends on + + \context Staff << - \new Staff = leadStaff - { - << - \new Voice = "lead" \LeadVox - \new Voice = "riffs" \Riffs - >> - } + \new Voice = "lead" \LeadVox + \new Voice = "riffs" \Riffs \new Lyrics \lyricsto "lead" \LeadVoxText \new Lyrics \lyricsto "lead" \LeadVoxTextB >> - \new ChoirStaff = "Rhythm" + \new ChoirStaff << - \new ChordNames = "chords" \Chords - \new RhythmicStaff = "chordRhythm" << \StaffC \Dynamics >> + \new ChordNames \Chords + \new RhythmicStaff << \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))) + #(define fonts (make-pango-font-tree + "Times New Roman" + "LilyJAZZText" + "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 } +