X-Git-Url: http://shamusworld.gotdns.org/cgi-bin/gitweb.cgi?a=blobdiff_plain;f=god-is-my-redeemer.ly;h=b735219b018f6624f2507b25ce21ad080b3e4414;hb=HEAD;hp=8bba74883ec24c64f4a15a8e046fb027d388b9b2;hpb=7add1480813db617ee22ba3276c5b61649445f50;p=music diff --git a/god-is-my-redeemer.ly b/god-is-my-redeemer.ly old mode 100755 new mode 100644 index 8bba748..b735219 --- a/god-is-my-redeemer.ly +++ b/god-is-my-redeemer.ly @@ -18,118 +18,163 @@ staffSize = #18 % -% Lead vocal +% Song's structure % - -LeadVox = \relative c' +Global = { -% \set Voice.autoBeaming = ##f -% \set Staff.instrumentName = #"Lead vox" \clef G \key d \major - \override Staff.TimeSignature #'style = #'() + \numericTimeSignature \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 + s1*4 \bar ".|:-||" % 1-4 % 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 + \mark \markup { \override #'(font-family . sans) { \box { A } } } + + s2^\markup { \italic { 3rd time instr. solo to B } } s | % 5 + s1*7 \bar"||" % 6-12 + + \mark \markup { \override #'(font-family . sans) { \box { B } } } + + s1*7 | % 14-19 } \alternative { { - d1 | % 20 + s1 | % 20 } { - d2 r | % 21 + s1 | % 21 } } % Outro -\mark \markup { \override #'(font-family . sans) { \box { C } } } + \mark \markup { \override #'(font-family . sans) { \box { C } } } + + s1*4 | % 22-25 + + \repeat volta 3 + { + \mark \markup { \override #'(font-family . sans) { \box { D } } } + + s4^\markup { \italic { 3x } } s2. | % 26 + s1 | % 27 + } + + % Ending + + s1*2 \bar "|." % 28-29 +} + + +% +% Lead vocal +% +LeadVox = \relative c' +{ + \clef G + + % Intro + +%{ \tiny + r4 8 [ 16 16 ] ~ 8 [ ] 4 | % 1 + r4 8 [ 16 16 ] ~ 8 [ ] 4 | % 2 + r4 g, fs e | % 3 + d1 | % 4 + \normalsize%} + s1*4 | % 1-4 + + % Verse + + fs2 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, | % 12 + + 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 + + d1 | % 20 + + d2 r | % 21 + + % Outro + 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 - } + r4 8 [ 16 16 ] ~ 8 [ ] 4 | % 26 + r4 8 [ 16 16 ] ~ 8 [ ] 4 | % 27 % Ending r4 g, fs e | % 28 - d1^\fermata \bar "|." % 29 + d1^\fermata | % 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 + God is my re -- dee -- _ _ _ _ mer + He heals me _ with re -- as -- su -- _ _ 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 - O- ver- whel- __ _ _ ming - o- ver- co- __ _ _ ming + O -- ver -- whel -- _ _ ming + o -- ver -- co -- _ _ ming - re- dee- ming love + re -- dee -- ming love } % -% Chord names +% Riffs/instrumental figures % +Riffs = \relative c' +{ + \clef G + % Intro + + \tiny + r4 8 [ 16 16 ] ~ 8 [ ] 4 | % 1 + r4 8 [ 16 16 ] ~ 8 [ ] 4 | % 2 + r4 g, fs e | % 3 + d1 | % 4 + \normalsize +} + + +% +% Chord names +% Chords = \chordmode { -%Bah, can't we set this globally? -% \popChords - % Intro g1 | % 1 @@ -139,34 +184,26 @@ Chords = \chordmode % 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 - } - } + 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 + + d2 g/a | % 20 + + d2 e4:m11 d/fs | % 21 % Outro @@ -175,33 +212,24 @@ Chords = \chordmode e2:m7 d4/a a | % 24 d2 e4:m11 d/fs | % 25 - \repeat volta 3 - { - g1 | % 26 - d2./fs b4:m7 | % 27 - } + g1 | % 26 + d2./fs b4:m7 | % 27 % Ending e2:m7 d4/a a | % 28 - d1 \bar "|." % 29 + d1 | % 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 + \numericTimeSignature \override NoteHead #'style = #'slash + \teeny % Intro @@ -212,34 +240,26 @@ StaffC = \relative c % 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 - } - } + 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 % Outro @@ -248,53 +268,56 @@ StaffC = \relative c c4 c c c | % 24 c4 c \< c c \! | % 25 - \repeat volta 3 - { - c4 c c c | % 26 - c4 c c c | % 27 - } + c4 c c c | % 26 + c4 c c c | % 27 % Ending c2_\markup { \italic { rit. } } c4 c | % 28 - c1^\fermata \bar "|." % 29 + c1^\fermata | % 29 } \score { << -% \new ChoirStaff = "Vox" + \Global % The "roadmap" that everything else depends on + + \context Staff << - \new Staff = leadStaff { \new Voice = "lead" \LeadVox } + \new Voice = "lead" \LeadVox + \new Voice \Riffs \new Lyrics \lyricsto "lead" \LeadVoxText >> - \new ChoirStaff = "Rhythm" + \new ChoirStaff << - \new ChordNames = "chords" \Chords - \new RhythmicStaff = "chordRhythm" \StaffC + \new ChordNames \Chords + \new RhythmicStaff \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))) + #(define fonts (make-pango-font-tree + "Times New Roman" + "JazzText" + "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 } +