X-Git-Url: http://shamusworld.gotdns.org/cgi-bin/gitweb.cgi?a=blobdiff_plain;f=lord-i-lift-your-name-on-high.ly;h=e90e409e7453ba293e3a4c37bea60099a16efa54;hb=HEAD;hp=ede85dc645e93cbacc8ac02388bf9c9eb010556f;hpb=7add1480813db617ee22ba3276c5b61649445f50;p=music diff --git a/lord-i-lift-your-name-on-high.ly b/lord-i-lift-your-name-on-high.ly old mode 100755 new mode 100644 index ede85dc..e90e409 --- a/lord-i-lift-your-name-on-high.ly +++ b/lord-i-lift-your-name-on-high.ly @@ -1,8 +1,9 @@ -\version "2.16.0" +\version "2.19.0" \include "pop-chords.ly" \include "english.ly" -staffSize = #18 % or 16 +% 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)) @@ -15,79 +16,100 @@ staffSize = #18 % or 16 { \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" + tagline = $(string-append "Engraved by JLH and Lilypond " (lilypond-version)) } % -% Lead vocal +% Song's structure % - -LeadVox = \relative c +Global = { - \set Voice.autoBeaming = ##f -% \set Staff.instrumentName = #"Lead vox" \clef F \key g \major - \override Staff.TimeSignature #'style = #'() + \numericTimeSignature \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 + \once \override Score.RehearsalMark #'self-alignment-X = #left + \mark \markup { \small \italic { Bass line througout } } + s1*4 | % 1-4 } + \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 } } } + \mark \markup { \override #'(font-family . sans) { \box { A } } } + s1*8 \bar"||" % 5-12 % 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 + \mark \markup { \override #'(font-family . sans) { \box { B } } } + s1*7 | % 13-19 } \alternative { { - g8 [ g ] ~ g2. | % 20 - R1 | % 21 + s1*2 | % 20-21 } { - g8 \repeatTie [ g ] ~ g2. | % 22 + s1 | % 22 } } -\mark \markup { \override #'(font-family . sans) { \box { C } } } + % Chorus (redux) + + \mark \markup { \override #'(font-family . sans) { \box { C } } } + s1*8 | % 23-30 + + % Tag + + s1*4 \bar "|." % 31-34 +} + + +% +% Lead vocal +% +LeadVox = \relative c +{ + \set Voice.autoBeaming = ##f + + % Intro + + s1*4 | % 1-4 + + % 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 | % 12 + + % 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 + + g8 [ g ] ~ g2. | % 20 + R1 | % 21 + + g8 \repeatTie [ g ] ~ g2. | % 22 % Chorus (redux) @@ -105,16 +127,12 @@ LeadVox = \relative c 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 + g8 [ g ] ~ g2.-\fermata | % 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 _ @@ -144,14 +162,26 @@ LeadVoxText = \lyricmode % -% Chord names +% Riffs % +Riffs = \relative c +{ + \set Voice.autoBeaming = ##f + + \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 +} + +% +% Chord names +% Chords = \chordmode { -%Bah, can't we set this globally? -% \popChords - % Intro g2 c | % 1 @@ -208,17 +238,12 @@ 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.instrumentName = #"Rhythm" - \override Staff.TimeSignature #'style = #'() - \time 4/4 + \numericTimeSignature \override NoteHead #'style = #'slash + \teeny % Intro @@ -277,42 +302,50 @@ StaffC = \relative c c4 c c c | % 31 c4 c c c | % 32 c4 c c_\markup { \italic { rit. } } c | % 33 - c1-\fermata \bar "|." % 34 + c1-\fermata | % 34 } \score { << + \Global % The "roadmap" that everything else depends on + + \context Staff << - \new Staff = leadStaff { \new Voice = "lead" \LeadVox } + \new Voice = "lead" \LeadVox + \new Voice = "riffs" \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 - { -% \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 } +