X-Git-Url: http://shamusworld.gotdns.org/cgi-bin/gitweb.cgi?a=blobdiff_plain;f=how-great-thou-art-lead.ly;fp=how-great-thou-art-lead.ly;h=c830e566d7095c640e74210f3481c4f84c3d30a3;hb=43b3a3e2ca80feff762e05e9b1cac3df14eb6c2a;hp=0000000000000000000000000000000000000000;hpb=3ff91f76ce7bd7f1f63aba2054d4400702e8ee8e;p=music

diff --git a/how-great-thou-art-lead.ly b/how-great-thou-art-lead.ly
new file mode 100644
index 0000000..c830e56
--- /dev/null
+++ b/how-great-thou-art-lead.ly
@@ -0,0 +1,292 @@
+\version "2.21.1"
+\include "pop-chords.ly"
+\include "english.ly"
+
+% 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))
+
+\header
+{
+	title    = \markup { \override #'(font-family . sans) \fontsize #3.5 "How Great Thou Art" }
+%	composer = \markup { \override #'(font-family . sans) \fontsize #1.3 "" }
+%	poet     = \markup { \override #'(font-family . sans) \fontsize #1.3 "" }
+%	arranger = \markup { \override #'(font-family . sans) \fontsize #1.3 "arr." }
+	tagline  = $(string-append "Engraved by JLH and Lilypond " (lilypond-version))
+}
+
+
+%
+% Song's structure
+%
+Global =
+{
+	\key g \major
+	\numericTimeSignature
+	\time 4/4
+
+	\partial 8*3 s4. |   % 0
+	s1*4 |   % 1-4
+
+	\repeat volta 4
+	{
+		s1*8 \bar "||"   % 5-12
+		s1*7   % 13-19
+	}
+	\alternative
+	{
+		{
+			s1 |   % 20
+		}
+		{
+			s1 |   % 21
+		}
+	}
+
+	s1*0^\markup { \large \italic { Rit. } }
+	s1*2 \bar "|."   % 22-23
+}
+
+
+Soprano = \relative c'
+{
+	\clef G
+%	\voiceOne
+
+	s8*3 |   % 0
+	s1*3 |   % 1-3
+	s2 s8 f8 f f |   % 4
+
+	d2 r8 f8 f f |   % 5
+	g8. g16 ef8 g r g g16 g8 f16 ~ |   % 6
+	f4. d8 f f16 ef ~ ef8 ef16 d ~ |   % 7
+	d2 r8 f f f |   % 8
+	d2 r8 f8 f f |   % 9
+	g8. g16 ef8 g r g g16 g8 f16 ~ |   % 10
+	f4. d8 f f16 ef ~ ef8 ef16 d ~ |   % 11
+	d2 r8 f f bf |   % 12
+
+	d4. c8 bf8. a16 bf8. g16 |   % 13
+	f2 r8 bf bf a |   % 14
+	c,4. ef8 g4. f8 |   % 15
+	d2 r8 f f bf |   % 16
+	d4. c8 bf8. a16 bf8. g16 |   % 17
+	f2 r8 bf a bf |   % 18
+	c4. d8 ef4 a, |   % 19
+
+	bf2 r8 f f f |   % 20
+
+	bf2 r8 bf a bf |   % 21
+
+	c4. d8 ef4 a, |   % 22
+	bf1 |   % 23
+}
+
+
+VerseA = \lyricmode
+{
+	O Lord my God! when I in awe -- some won -- der
+	Con -- sid -- er all _ the worlds Thy hands _ have made, _
+	I see the stars, I hear the roll -- ing thun -- der,
+	Thy power through -- out _ the u -- ni -- verse _ dis -- played: _
+
+	Then sings my soul, my Sav -- ior God, to Thee,
+	How great Thou art, how great Thou art!
+	Then sings my soul, my Sav -- ior God, to Thee,
+	How great Thou art, how great Thou art!
+
+	When through the
+	art!
+
+	How great Thou art, how great Thou art!
+}
+
+VerseB = \lyricmode
+{
+	_ _ _ woods and for -- est glades I wan -- der
+	And hear the birds _ sing sweet -- ly in _ the trees; _
+	When I look down from loft -- y moun -- tain gran -- deur
+	And hear the brook _ and feel the gen -- _ tle breeze: _
+
+	_ _ _ _ _ _ _ _ _ _
+	_ _ _ _ _ _ _ _
+	_ _ _ _ _ _ _ _ _ _
+	_ _ _ _ _ _ _ _
+
+	And when I
+}
+
+VerseC = \lyricmode
+{
+	_ _ _ think that God, His Son not spar -- ing,
+	Sent Him to die, _ I scarce can take _ it in, _
+	That on the cross, my bur -- den glad -- ly bear -- ing,
+	He bled and died _ to take a -- way _ my sin; _
+
+	_ _ _ _ _ _ _ _ _ _
+	_ _ _ _ _ _ _ _
+	_ _ _ _ _ _ _ _ _ _
+	_ _ _ _ _ _ _ _
+
+	When Christ shall
+}
+
+VerseD = \lyricmode
+{
+	_ _ _ come with shout of ac -- cla -- ma -- tion
+	And take me home; _ what joy shall fill _ my heart! _
+	Then I shall bow in hum -- ble ad -- o -- ra -- tion,
+	And there pro -- claim, _ my God how great _ Thou art! _
+}
+
+
+%
+% Instrumental lines
+%
+RhythmB = \relative c'
+{
+	\clef G
+	\tiny
+
+	% Intro
+
+	f8 f bf |   % 0
+	d4. c8 bf8. a16 bf8. g16 |   % 1
+	f2 r8 bf a16 bf8. |   % 2
+	c4. d8 ef4 a, |   % 3
+	bf2 r8 s4. |   % 4
+}
+
+
+%
+% Chord names
+%
+Chords = \chordmode
+{
+	% Intro
+
+	s8*3 |   % 0
+	bf2 ef |   % 1
+	bf1 |   % 2
+	f2:7 c4:m7 f:7 |   % 3
+	bf2 ef |   % 4
+
+	bf1 |   % 5
+	ef2 e:dim7 |   % 6
+	bf2 f4 ef |   % 7
+	bf2 ef |   % 8
+	bf1 |   % 9
+	ef2 e:dim7 |   % 10
+	bf2 f4 ef |   % 11
+	bf2 f:7 |   % 12
+
+	bf2 ef |   % 13
+	bf1 |   % 14
+	f2 ef |   % 15
+	bf2 f:7 |   % 16
+	bf2 ef |   % 17
+	bf1 |   % 18
+	f2:7 c4:m7 f:7 |   % 19
+	bf2 ef |   % 20
+
+	bf1 |   % 21
+
+	f2:7 c4:m7 f:7 |   % 22
+	bf1 |   % 23
+}
+
+
+%
+% Chord rhythms
+%
+StaffC = \relative c
+{
+	\numericTimeSignature
+	\override NoteHead #'style = #'slash
+	\teeny
+
+	% Intro
+
+	s8*3 |   % 0
+	\stemDown c4 c c c |   % 1
+	c4 c c c |   % 2
+	c4 c c c |   % 3
+	c4 c c c |   % 4
+
+	% 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 c |   % 12
+
+	% Chorus
+
+	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
+	c1 |   % 23
+}
+
+
+\score
+{
+	<<
+		\Global
+
+		\context Staff
+		<<
+			\new Voice = "vA" \transpose bf g \Soprano
+			\new Lyrics \lyricsto "vA" \VerseA
+			\new Lyrics \lyricsto "vA" \VerseB
+			\new Lyrics \lyricsto "vA" \VerseC
+			\new Lyrics \lyricsto "vA" \VerseD
+			\new Voice \transpose bf g \RhythmB
+		>>
+
+		\new ChoirStaff
+		<<
+			\new ChordNames \transpose bf g \Chords
+			\new RhythmicStaff \StaffC
+		>>
+
+		\set Score.skipBars = ##t
+		\set Score.melismaBusyProperties = #'()
+	>>
+}
+
+
+\paper
+{
+	#(define fonts (make-pango-font-tree
+		"Times New Roman"
+		"LilyJazz Text"
+		"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
+}