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

diff --git a/how-great-thou-art-hymnal.ly b/how-great-thou-art-hymnal.ly
new file mode 100644
index 0000000..a0ebe05
--- /dev/null
+++ b/how-great-thou-art-hymnal.ly
@@ -0,0 +1,236 @@
+\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 bf \major
+	\numericTimeSignature
+	\time 4/4
+
+	\partial 8*3 s4. |   % 0
+	s1*8 \bar "||"   % 1-8
+	s1*7   % 9-15
+	\partial 8*5 s2 s8 \bar "|."   % 16
+}
+
+
+Soprano = \relative c'
+{
+	\clef G
+	\voiceOne
+
+	f8 f f |   % 0
+	d4. f8 f f g g |   % 1
+	ef4 g4. g8 g g |   % 2
+	f4. d8 f f ef ef |   % 3
+	d2 ~ d8 f f f |   % 4
+	d4. f8 f f g g |   % 5
+	ef4 g4. g8 g g |   % 6
+	f4. d8 f f ef ef |   % 7
+	d2 ~ d8 f f bf |   % 8
+
+	d4. c8 bf a bf8. g16 |   % 9
+	f2 ~ f8 bf bf a |   % 10
+	c,2 ~ c8 ef g f |   % 11
+	d2 ~ d8 f f bf |   % 12
+	d4. c8 bf a bf8. g16 |   % 13
+	f2 ~ f8 bf a bf |   % 14
+	c2 ~ c8 d ef a, |   % 15
+	bf2 ~ bf8 |   % 16
+}
+
+Alto = \relative c'
+{
+	\clef G
+	\voiceTwo
+
+	d8 d d |   % 0
+	bf4. d8 ef bf ef ef |   % 1
+	bf4 ef4. ef8 d cs |   % 2
+	d4. bf8 d d c a |   % 3
+	bf2 ~ bf8 d d d |   % 4
+	bf4. d8 ef bf ef ef |   % 5
+	bf4 ef4. ef8 d cs |   % 6
+	d4. bf8 d d c a |   % 7
+	bf2 ~ bf8 d d d |   % 8
+
+	f4. af8 g fs g8. ef16 |   % 9
+	d2 ~ d8 d d ef |   % 10
+	a,2 ~ a8 c ef c |   % 11
+	bf2 ~ bf8 d d d |   % 12
+	f4. af8 g fs g8. ef16 |   % 13
+	d2 ~ d8 d ef f |   % 14
+	g2 ~ g8 g g ef |   % 15
+	d2 ~ d8 |   % 16
+}
+
+Tenor = \relative c'
+{
+	\clef F
+	\voiceThree
+
+	bf8 bf bf |   % 0
+	f4. bf8 a f bf bf |   % 1
+	g4 bf4. bf8 bf bf |   % 2
+	bf4. f8 a a g f |   % 3
+	f2 ~ f8 bf bf bf |   % 4
+	f4. bf8 a f bf bf |   % 5
+	g4 bf4. bf8 bf bf |   % 6
+	bf4. f8 a a g f |   % 7
+	f2 ~ f8 bf8 bf bf |   % 8
+
+	bf4. bf8 ef ef ef8. bf16 |   % 9
+	bf2 ~ bf8 f f c' |   % 10
+	f,2 ~ f8 a bf a |   % 11
+	f2 ~ f8 bf bf bf |   % 12
+	bf4. bf8 ef ef ef8. bf16 |   % 13
+	bf2 ~ bf8 bf f bf |   % 14
+	bf2 ~ bf8 b c c |   % 15
+	bf2 ~ bf8 |   % 16
+}
+
+Bass = \relative c
+{
+	\clef F
+	\voiceFour
+
+	bf8 bf bf |   % 0
+	bf4. bf8 c d ef ef |   % 1
+	ef4 ef4. ef8 e e |   % 2
+	f4. f8 f, f f f |   % 3
+	bf2 ~ bf8 bf bf bf |   % 4
+	bf4. bf8 c d ef ef |   % 5
+	ef4 ef4. ef8 e e |   % 6
+	f4. f8 f, f f f |   % 7
+	bf2 ~ bf8 bf bf bf |   % 8
+
+	bf4. d8 ef ef ef8. ef16 |   % 9
+	bf2 ~ bf8 bf f' f |   % 10
+	f,2 ~ f8 f g a |   % 11
+	bf2 ~ bf8 bf bf bf |   % 12
+	bf4. d8 ef ef ef8. ef16 |   % 13
+	bf2 ~ bf8 bf c d |   % 14
+	ef2 ~ ef8 d c f |   % 15
+	bf,2 ~ bf8 |   % 16
+}
+
+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 starts, 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! _
+}
+
+VerseB = \lyricmode
+{
+	When through the 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: _
+}
+
+VerseC = \lyricmode
+{
+	And when I 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; _
+}
+
+VerseD = \lyricmode
+{
+	When Christ shall 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! _
+}
+
+
+\score
+{
+	<<
+		\context Staff
+		<<
+			\Global
+			\new Voice = "vA" \Soprano
+			\new Voice = "vB" \Alto
+			\new Lyrics \lyricsto "vA" \VerseA
+			\new Lyrics \lyricsto "vA" \VerseB
+			\new Lyrics \lyricsto "vA" \VerseC
+			\new Lyrics \lyricsto "vA" \VerseD
+		>>
+
+		<<
+			\new Staff = leadStaffB
+			{
+				<<
+					\Global
+					\new Voice = "vC" \Tenor
+					\new Voice = "vD" \Bass
+				>>
+			}
+		>>
+
+		\set Score.skipBars = ##t
+		\set Score.melismaBusyProperties = #'()
+	>>
+
+%{    \midi
+	{
+		\tempo 4 = 80
+		%% Remove the dynamics from the midi output
+		\context
+		{
+			\Voice
+			\remove "Dynamic_performer"
+			\remove "Span_dynamic_performer"
+		}
+	}
+%}
+}
+
+
+\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
+}