From: Shamus Hammons <jlhamm@acm.org>
Date: Thu, 21 Sep 2017 02:17:07 +0000 (-0500)
Subject: New chart "Lord, You Have My Heart".
X-Git-Url: http://shamusworld.gotdns.org/cgi-bin/gitweb.cgi?p=music;a=commitdiff_plain;h=d946ceeed40f90b0ddf85a7b5c6721b90c903984

New chart "Lord, You Have My Heart".
---

diff --git a/lord-you-have-my-heart.ly b/lord-you-have-my-heart.ly
index 1b40378..58ffd41 100644
--- a/lord-you-have-my-heart.ly
+++ b/lord-you-have-my-heart.ly
@@ -5,7 +5,7 @@
 \include "english.ly"
 
 % Good sizes are 16, 18, & 20 (11, 13, 14, 23, 26)
-staffSize = #18
+staffSize = #20
 #(set-default-paper-size "letter")
 #(set-global-staff-size staffSize)
 #(ly:set-option (quote no-point-and-click))
@@ -13,12 +13,19 @@ staffSize = #18
 \header
 {
 	title    = \markup { \override #'(font-family . sans)
-		{ \fontsize #3.5 "Lord You Have My Heart" } }
+		{ \fontsize #3.5 "Lord, You Have My Heart" } }
 %	composer = \markup { \override #'(font-family . sans) "" }
 	arranger = \markup { \override #'(font-family . sans) "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
@@ -36,18 +43,23 @@ Global =
 
 	\repeat volta 2
 	{
-		s1*4 |   % 5-8
+		\mark \markup { \override #'(font-family . sans) { \box { 1 } } }
+		s1^\markup { Band In w/Rhodes Fig. } |   % 5
+		s1*3 |   % 6-8
 	}
 
 	\repeat volta 2
 	{
 		% Verse
 
-		s1*16 |   % 9-24
+		\mark \markup { \override #'(font-family . sans) { \box { A } } }
+		s1^\markup { Piano, Ac. Gtr. tacet 1st X } |   % 9
+		s1*15 \bar "||"   % 10-24
 
 		% Chorus
 
-		s1 \bar "||"   % 25
+		\mark \markup { \override #'(font-family . sans) { \box { B } } }
+		s1^\markup { Full Band } |   % 25
 		s1*10 |   % 26-35
 	}
 	\alternative
@@ -66,10 +78,13 @@ Global =
 
 	s1*4 \bar "||"   % 50-53
 
-	s1*4 \bar ".|:-||"   % 54-57
+	\mark \markup { \override #'(font-family . sans) { \box { C } } }
+	s1^\markup { BIG! } |   % 54
+	s1*3 \bar ".|:-||"   % 55-57
 
 	\repeat volta 2
 	{
+		\mark \markup { \override #'(font-family . sans) { \box { D } } }
 		s1*3 |   % 58-60
 	}
 	\alternative
@@ -84,123 +99,186 @@ Global =
 
 	\repeat volta 2
 	{
-		s1*4 |   % 63-66
+		\mark \markup { \override #'(font-family . sans) { \box { E } } }
+		s1^\markup { Open } |   % 63
+		s1*3 |   % 64-66
 	}
 
-	s1*7 \bar "|."   % 67-73
+	\mark \markup { \override #'(font-family . sans) { \box { F } } }
+	s1^\markup { On Cue } |   % 67
+	s1*6 \bar "|."   % 68-73
 }
 
 
 %
 % Lead vocal
 %
-LeadVox = \relative c'
+LeadVox = \relative c''
 {
 	% Intro
 
-	R1 |   % 1
-	R1 |   % 2
-	R1 |   % 3
-	R1 |   % 4
-
-	R1 |   % 5
-	R1 |   % 6
-	R1 |   % 7
-	R1 |   % 8
+	s1*8 |   % 1-8
 
 	% Verse
 
-	c1 |   % 9
-	R1 |   % 10
-	R1 |   % 11
-	R1 |   % 12
-	R1 |   % 13
-	R1 |   % 14
-	R1 |   % 15
+	gs4 gs8 a ~ a gs4 e8 ~ |   % 9
+	e2. r8 cs |   % 10
+	e4 gs8 fs ~ fs e4 b8 ~ |   % 11
+	b2. r4 |   % 12
+	gs'4 gs8 a ~ a gs4 e8 ~ |   % 13
+	e4 r8 gs fs4. e8 |   % 14
+	e1 |   % 15
 	R1 |   % 16
 
-	R1 |   % 17
-	R1 |   % 18
-	R1 |   % 19
-	R1 |   % 20
-	R1 |   % 21
-	R1 |   % 22
-	R1 |   % 23
-	R1 |   % 24
+	gs4 gs8 a ~ a gs4 e8 ~ |   % 17
+	e2. r8 cs |   % 18
+	e4 gs8 fs ~ fs e4 b8 ~ |   % 19
+	b2. r4 |   % 20
+	gs'4 gs8 a ~ a gs4 e8 ~ |   % 21
+	e4 r8 gs fs4. e8 |   % 22
+	e1 |   % 23
+	r2 r4 r8 b |   % 24
 
 	% Chorus
 
-	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
-	R1 |   % 38
-
-	R1 |   % 39
+	gs'2 a |   % 25
+	b2 e,4. ( fs8 ) |   % 26
+	<< { \voiceOne fs1 ~ } \context Voice = vEcho { \voiceTwo <\hn fs \hn ds>2 <\hn gs \hn e> } >>  |   % 27
+	<< { \voiceOne fs2 r4 r8 \stemDown b, \stemNeutral } \context Voice = vEcho { \voiceTwo <\hn a' \hn fs>2 <\hn cs \hn a>4. ( \stemUp <\hn b \hn gs>8 ) \stemNeutral } >> |   % 28
+	<< { \voiceOne gs2 a } \context Voice = vEcho { \voiceTwo <\hn b \hn gs>1 } >> |   % 29
+	<< { \voiceOne b4 e,8 e ~ e fs4 fs8 ~ } \context Voice = vEcho { \voiceTwo s1 } >> |   % 30
+	<< { \voiceOne fs1 } \context Voice = vEcho { \voiceTwo <\hn fs \hn ds>2 <\hn gs \hn e> } >> |   % 31
+	<< { \voiceOne r2 r4 r8 \stemDown b, \stemNeutral } \context Voice = vEcho { \voiceTwo <\hn a' \hn fs>4 <\hn gs \hn e>8 <\hn a \hn fs> ~ <\hn a \hn fs> <\hn cs \hn a>4 ( \stemUp <\hn b \hn gs>8 ) \stemNeutral } >> |   % 32
+	<< { \voiceOne gs2 a } \context Voice = vEcho { \voiceTwo <\hn b \hn gs>1 } >> |   % 33
+	<< { \voiceOne b2 e,4. ( fs8 ) } \context Voice = vEcho { \voiceTwo s1 } >> |   % 34
+	<< { \voiceOne fs1 } \context Voice = vEcho { <\hn fs \hn ds>2 <\hn gs \hn e>4. ( <\hn fs \hn ds>8 ) } >>  |   % 35
+
+	<< { \voiceOne r2 r4 <e \hn a> } \context Voice = vEcho { \voiceTwo \hn fs2. s4 } >> \oneVoice |   % 36
+	<e \hn a>2 <gs \hn cs> |   % 37
+	<fs \hn b>2. <e \hn gs>4 |   % 38
+
+	<e \hn gs>1 |   % 39
 	R1 |   % 40
 	R1 |   % 41
 	R1 |   % 42
 
-	R1 |   % 43
+	r2 r4 e |   % 43
 
-	R1 |   % 44
-	R1 |   % 45
-	R1 |   % 46
-	R1 |   % 47
-	R1 |   % 48
-	R1 |   % 49
+	e2 gs |   % 44
+	fs2. e4 |   % 45
+	e1 ~ |   % 46
+	e2 r4 <e \hn b \hn gs> |   % 47
+	<e \hn cs \hn a>2 <gs \hn e \hn b> |   % 48
+	<fs \hn ds \hn b>2. <e \hn b \hn a>4 |   % 49
 
-	R1 |   % 50
-	R1 |   % 51
+	<e \hn b \hn gs>1 ~ |   % 50
+	<e \hn b \hn gs>1 |   % 51
 	R1 |   % 52
 	R1 |   % 53
 
 	R1 |   % 54
 	R1 |   % 55
 	R1 |   % 56
-	R1 |   % 57
+	r2 r4 <e \hn b \hn gs> |   % 57
 
-	R1 |   % 58
-	R1 |   % 59
-	R1 |   % 60
+	<e \hn cs \hn a>2 <gs \hn e \hn b> |   % 58
+	<fs \hn ds \hn b>2. <e \hn b \hn a>4 |   % 59
+	<e \hn b \hn gs>1 |   % 60
 
-	R1 |   % 61
+	r2 r4 <e \hn b \hn gs> |   % 61
 
-	R1 |   % 62
+	r2 r4 <e \hn b \hn gs' \hn b \hn e> |   % 62
 
-	R1 |   % 63
-	R1 |   % 64
-	R1 |   % 65
-	R1 |   % 66
+	<e \hn cs \hn a' \hn cs \hn e>2 <gs \hn e \hn b' \hn e \hn gs> |   % 63
+	<fs \hn ds \hn b' \hn ds \hn fs>2. <e \hn b \hn a' \hn b \hn e>4 |   % 64
+	<e \hn b \hn gs' \hn b \hn e>1 |   % 65
+	r2 r4 <e \hn b \hn gs' \hn b \hn e> |   % 66
 
-	R1 |   % 67
-	R1 |   % 68
-	R1 |   % 69
-	R1 |   % 70
-	R1 |   % 71
-	R1 |   % 72
-	r1^\fermata |   % 73
+	<e \hn cs \hn a' \hn cs \hn e>2 <gs \hn e \hn b' \hn e \hn gs> |   % 67
+	<fs \hn ds \hn b' \hn ds \hn fs>2. <e \hn b \hn a' \hn b \hn e>4 |   % 68
+	<e \hn b \hn gs' \hn b \hn e>1 |   % 69
+	r2 r4 <e \hn b \hn gs' \hn b \hn e> |   % 70
+	<e \hn cs \hn a' \hn cs \hn e>2 <gs \hn e \hn b' \hn e \hn gs> |   % 71
+	<fs \hn ds \hn b' \hn ds \hn fs>2. <e \hn b \hn a' \hn b \hn e>4 |   % 72
+	<e \hn b \hn gs' \hn b \hn e>1^\fermata |   % 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.
+	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 sac -- ri -- fice.
+
+	And I will praise you _ Lord, _
+	and I will sing of love _ come down, _
+	And as you show your _ face,
+	we'll see your glo -- ry here.
+
+	We'll see your glo -- ry here. _
+	We'll see your glo -- ry here. _
+	We'll see your glo -- ry here.
+	We'll
+
+	We'll see your glo -- ry here.
+	We'll see your glo -- ry here.
+	We'll see your glo -- ry here.
+}
+
+LeadVoxEcho = \lyricmode
+{
+	I will praise you, _ Lord,
+	I will sing of love _ come _ down,
+	show your _ face
+}
+
+
+Cross = { \override NoteHead #'style = #'cross }
+Norm = { \revert NoteHead #'style }
+
+%
+% Riffs
+%
+Riffs = \relative c'
+{
+	\tiny
+
+	<< { \voiceTwo cs1 } \context Voice = vb { \voiceOne \tiny e'8.^\markup { \italic { Rhodes fig.; ride cym. } } gs,16 ~ gs8 b ~ b8 cs4 gs8 } >> |   % 1
+	<< { \voiceTwo b,1 } \context Voice = vb { \voiceOne e'8. gs,16 ~ gs8 b ~ b8 cs4 gs8 } >> |   % 2
+	<< { \voiceTwo a,1 } \context Voice = vb { \voiceOne e''8. gs,16 ~ gs8 b ~ b8 cs4 gs8 } >> |   % 3
+	<< { \voiceTwo b,1 } \context Voice = vb { \voiceOne e'8. gs,16 ~ gs8 b ~ b8 cs4 gs8 } >> |   % 4
+
+	<< { \Cross a,4_\markup { \italic { Kick pattern + Snare 2&4 w/Ride } } r r8 a r4 \Norm } \context Voice = vb { \voiceOne r8 b^\markup { \italic { El. Gtr. fig. } } e fs ~ fs2 ~ } >> |   % 5
+	<< { \Cross a,4 r r8 a r4 \Norm } \context Voice = vb { \voiceOne fs'1 } >> |   % 6
+	<< { \Cross a,4 r r8 a r4 \Norm } \context Voice = vb { \voiceOne r8 b e fs ~ fs2 ~ } >> |   % 7
+	<< { \Cross a,4 r r8 a r4 \Norm } \context Voice = vb { \voiceOne fs'1 } >> |   % 8
+
+	s1^\markup { \italic { Snare 2&4 w/Hat } } |   % 9
+
+	s1*13
+
+	s1^\markup { \italic { Ac. Gtr. In } } |   % 23
+
+	s1
+
+	s1^\markup { \italic { Snare 2&4 w/Ride } } |   % 25
+
+	s1*11
+
+	s1^\markup { \italic { Cym. Colors } } |   % 37
+	s1
+	s1^\markup { \italic { w/Rhodes & Gtr figs. } } |   % 39
 
-	And I will praise you Lord
+	s1*10
+
+	s1^\markup { \italic { w/Rhodes & Gtr figs., Cym. Clrs } } |   % 50
+
+	s1*3
+
+	s1^\markup { \italic { Snare 2&4 w/Ride } } |   % 54
+
+	\normalsize
 }
 
 
@@ -211,99 +289,96 @@ Chords = \chordmode
 {
 	% Intro
 
-	 |   % 1
-	 |   % 2
-	 |   % 3
-	 |   % 4
+	s1*4 |   % 1-4
 
-	|   % 5
-	|   % 6
-	|   % 7
-	|   % 8
+	cs1:m11 |   % 5
+	s1 |   % 6
+	a1:sus2/cs |   % 7
+	s1 |   % 8
 
 	% Verse
 
-	|   % 9
-	|   % 10
-	|   % 11
-	|   % 12
-	|   % 13
-	|   % 14
-	|   % 15
-	|   % 16
-
-	|   % 17
-	|   % 18
-	|   % 19
-	|   % 20
-	|   % 21
-	|   % 22
-	|   % 23
-	|   % 24
+	cs1:m7 |   % 9
+	a1:sus2 |   % 10
+	s2 e/gs |   % 11
+	b1:5 |   % 12
+	cs1:m7 |   % 13
+	a2:sus2 b:3.5.11 |   % 14
+	e1 |   % 15
+	b1/ds |   % 16
+
+	cs1:m7 |   % 17
+	a1:sus2 |   % 18
+	s2 e/gs |   % 19
+	b1:5 |   % 20
+	cs1:m7 |   % 21
+	a2:sus2 b:3.5.11 |   % 22
+	e1 |   % 23
+	s1 |   % 24
 
 	% Chorus
 
-	|   % 25
-	|   % 26
-	|   % 27
-	|   % 28
-	|   % 29
-	|   % 30
-	|   % 31
-	|   % 32
-	|   % 33
-	|   % 34
-	|   % 35
-
-	|   % 36
-	|   % 37
-	|   % 38
-
-	|   % 39
-	|   % 40
-	|   % 41
-	|   % 42
-
-	|   % 43
-
-	|   % 44
-	 |   % 45
-	 |   % 46
-	 |   % 47
-	 |   % 48
-	 |   % 49
-
-	 |   % 50
-	 |   % 51
-	 |   % 52
-	 |   % 53
-
-	 |   % 54
-	 |   % 55
-	 |   % 56
-	 |   % 57
-
-
-	 |   % 58
-	|   % 59
-	|   % 60
-
-	|   % 61
-
-	|   % 62
-
-	|   % 63
-	|   % 64
-	|   % 65
-	|   % 66
-
-	 |   % 67
-	 |   % 68
-	 |   % 69
-	 |   % 70
-	 |   % 71
-	 |   % 72
-	 |   % 73
+	e1 |   % 25
+	a2:sus2 e/gs |   % 26
+	b2 b:sus4 |   % 27
+	b2 b:sus4 |   % 28
+	e1 |   % 29
+	a2:sus2 e/gs |   % 30
+	b2 b:sus4 |   % 31
+	b2 b:sus4 |   % 32
+	e1 |   % 33
+	a2:sus2 e/gs |   % 34
+	b2 b:sus4 |   % 35
+
+	b1 |   % 36
+	a2:sus2 e/gs |   % 37
+	b1:sus4 |   % 38
+
+	cs1:m11 |   % 39
+	s1 |   % 40
+	a1:sus2/cs |   % 41
+	s1 |   % 42
+
+	b1 |   % 43
+
+	a2:sus2 e/gs |   % 44
+	b2. b4:sus4 |   % 45
+	e1 |   % 46
+	s1 |   % 47
+	a2:sus2 e/gs |   % 48
+	b2. b4:sus4 |   % 49
+
+	cs1:m11 |   % 50
+	s1 |   % 51
+	a1:sus2/cs |   % 52
+	s1 |   % 53
+
+	a2:sus2 e/gs |   % 54
+	b2. b4:sus4 |   % 55
+	e1 |   % 56
+	s1 |   % 57
+
+
+	a2:sus2 e/gs |   % 58
+	b2 b:sus4 |   % 59
+	e1 |   % 60
+
+	s1 |   % 61
+
+	e1 |   % 62
+
+	a2:sus2 e/gs |   % 63
+	b2 b:sus4 |   % 64
+	e1 |   % 65
+	s1 |   % 66
+
+	a2:sus2 e/gs |   % 67
+	b2. b4:sus4 |   % 68
+	cs1:m7 |   % 69
+	cs1:m/b |   % 70
+	a2:sus2 e/gs |   % 71
+	b2. b4:sus4 |   % 72
+	e1 |   % 73
 }
 
 
@@ -318,35 +393,32 @@ StaffC = \relative c
 
 	% Intro
 
-	c4 c c c |   % 1
-	c4 c c c |   % 2
-	c4 c c c |   % 3
-	c4 c c c |   % 4
+	s1*4 |   % 1-4
 
-	c4 c c c |   % 5
-	c4 c c c |   % 6
-	c4 c c c |   % 7
-	c4 c c c |   % 8
+	c1 ~ |   % 5
+	c1 |   % 6
+	c1 ~ |   % 7
+	c1 |   % 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
+	c1 |   % 9
+	c1 |   % 10
+	c2 c |   % 11
+	c1 |   % 12
+	c1 |   % 13
+	c2 c |   % 14
+	c1 |   % 15
+	c1 |   % 16
+
+	c1 |   % 17
+	c1 |   % 18
+	c2 c |   % 19
+	c1 |   % 20
+	c1 |   % 21
+	c2 c |   % 22
+	c1 |   % 23
+	c8 c c c c c c c |   % 24
 
 	% Chorus
 
@@ -363,13 +435,13 @@ StaffC = \relative c
 	c4 c c c |   % 35
 
 	c4 c c c |   % 36
-	c4 c c c |   % 37
-	c4 c c c |   % 38
+	c2 c |   % 37
+	c1 |   % 38
 
-	c4 c c c |   % 39
-	c4 c c c |   % 40
-	c4 c c c |   % 41
-	c4 c c c |   % 42
+	c1 ~ |   % 39
+	c1 |   % 40
+	c1 ~ |   % 41
+	c1 |   % 42
 
 	c4 c c c |   % 43
 
@@ -380,10 +452,10 @@ StaffC = \relative c
 	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
+	c1 ~ |   % 50
+	c1 |   % 51
+	c1 ~ |   % 52
+	c1 |   % 53
 
 	c4 c c c |   % 54
 	c4 c c c |   % 55
@@ -408,12 +480,48 @@ StaffC = \relative c
 	c4 c c c |   % 68
 	c4 c c c |   % 69
 	c4 c c c |   % 70
-	c4 c c c |   % 71
+	c2 c |   % 71
 	c4 c c c |   % 72
 	c1^\fermata |   % 73
 }
 
 
+Dynamics =
+{
+	s1_\mp |   % 1
+
+	s1*3
+
+	s1_\mf |   % 5
+
+	s1*18
+
+	s1_\< |   % 24
+	s1_\f |   % 25
+
+	s1*10
+
+	s4_\> s2 s4_\! |   % 36
+
+	s1*12
+
+	s4 s_\> s s_\! |   % 49
+
+	s1*4
+
+	s1_\f |   % 54
+
+	s1*7
+
+	s1_\< |   % 62
+	s1_\ff |   % 63
+
+	s1*8
+
+	s1_\markup { \italic { Rit. } } |   % 72
+}
+
+
 \score
 {
 	<<
@@ -422,13 +530,15 @@ StaffC = \relative c
 		\context Staff
 		<<
 			\new Voice = "lead" \LeadVox
+			\new Voice \Riffs
 			\new Lyrics \lyricsto "lead" \LeadVoxText
+			\new Lyrics \lyricsto "vEcho" \LeadVoxEcho
 		>>
 
 		\new ChoirStaff
 		<<
 			\new ChordNames \Chords
-			\new RhythmicStaff \StaffC
+			\new RhythmicStaff << \StaffC \Dynamics >>
 		>>
 
 		\set Score.skipBars = ##t