% Created on Wed Dec 26 18:54:54 GMT 2007
\version "2.11.38"

myStaffSize = #19

#(set-global-staff-size myStaffSize)

\paper {
   #(set-paper-size "letter")
   #(define fonts
       (make-pango-font-tree "URW Palladio L"
                          "Nimbus Sans"
                          "Luxi Mono"
                          (/ myStaffSize 20)))
}

\header {
	title = "An Angel From on High"
	poet = \markup {\italic Text: Parley P. Pratt}
	composer = \markup {\italic Music: John E. Tullidge}
	arranger = \markup  {\italic arr. Andrew Hawryluk}
	copyright = \markup \tiny \override #'(baseline-skip . 2.5) \center-align {
              "© 2008 Andrew Hawryluk      www.musicbyandrew.ca"
              "You can share and modify this work under the Creative Commons Attribution-Noncommercial 3.0 License."
              "To view a copy of this license, visit http://creativecommons.org/licenses/by-nc/3.0/"
	}
}

\include "english.ly"

padScript = #(define-music-function (parser location amount) (number?)
#{
	\once \override Script #'staff-padding = #$amount
#})

global = {\time 6/8 \key e \minor \partial 4}

timeAlign = { 
	\once \override Score.RehearsalMark #'self-alignment-X = #-1
	\once \override Score.RehearsalMark #'break-align-symbols = #'(time-signature)
	\once \override Score.TimeSignature #'break-align-anchor-alignment = #LEFT
}

andante = {\timeAlign \mark \markup \normalsize \bold {Andante} }
larghetto = {\timeAlign \mark \markup \normalsize \bold {Larghetto} }

RightHandOne = \relative c' {
	% verse in e minor
	b''4
	\voiceOne b8.\arpeggio c16 b8 g4 a8 \oneVoice
	<b e,>4. <c e,>4 c8
	\voiceOne a4 a8 d4 c8 \oneVoice
	<b e,>4.\arpeggio <b ds,>4\arpeggio b8
	<b g>8. c16 b8 g4 a8
	<b g>8. e,16 g b <c e,>4 \padScript #1.5 g8\fermata
	\grace {fs16[ g fs]} e4 e8 e8. fs16 g e
	\voiceOne fs4.( \padScript #2.7 fs4)\fermata \oneVoice \padScript #2.7 b8\fermata
	
	% chorus in e major
	\time 4/4 \key e \major
	\voiceOne b4 gs e fs8 gs
	a4 gs fs b
	b4 gs e fs8 gs
	a4 gs <fs e cs b>\fermata \oneVoice b,~
	<cs b>4. e8 ds4. fs8
	\time 2/4
	e4. gs8
	\time 4/4
	fs4. ds8 fs( gs) gs( a)
	<gs b,>2 e4 b
	cs fs <ds fs,>4. e8
	\time 6/4
	\voiceOne <e b>1 b2--
	
	% verse in e minor
	\time 6/8 \key e \minor \oneVoice
	<b g>8. c16 b8 g4 a8
	<b g>8. e,16 g b <c e,>4 <c g>8
	\voiceOne <a d,>4 <a~ d,_~>8 <a d,> d c--~
	c b4~ b8 b4~ \oneVoice
	<b g e b>8. <c a>16 <b g>8 <g e>4 <a fs>8
	<b g>4. <c a>4 g16 fs
	e4. e8. g16 fs e
	fs4.~ fs4 b8\fermata
	
	% chorus in e major
	\time 4/4 \key e \major
	\voiceOne b4 gs e fs8 gs
	a4 gs fs b
	b4 gs e fs8 gs
	a4 gs <fs e cs b>\fermata \oneVoice b,~
	<cs b>4. e8 ds4. fs8
	\time 2/4
	e4. gs8
	\time 4/4
	fs4. ds8 fs( gs) gs( a)
	<gs b,>2 e4 b
	cs fs <ds fs,>4. e8
	\time 6/4
	\voiceOne <e b>1.
	
	% verse in c major
	\time 6/8 \key c \major
	d'16^\markup {\dynamic mp \italic legato} c g d' c g d' c g d' c g
	d' c g d' c g c a g c a g
	c g d c' g d b' g d b' g d
	d' c g g' d c g' d b g' d b
	g' d c d c g d' c g d' c g
	d' c g d' c g c a g f c'^\markup \italic {melody} b
	\voiceOne a4 a8 a b c
	b4.~b4 \oneVoice \padScript #1 e8\fermata
	
	% chorus in a major
	\time 4/4 \key a \major
	\voiceOne e4 cs a b8 cs
	d4 cs b e
	e4 cs a b8 cs
	d4 cs \oneVoice <b a fs e>\fermata e,
	<fs e d a> fs8 a <gs e b>4 gs8 b
	<a fs cs>4 a8 <cs a fs cs> <b a g d>4 <cs b a g d>8. <d d,>16
	\key gf \major
	\voiceOne <df af gf df>1
	<df af f df>2. df4->
	
	% chorus in g-flat major
	df->^\markup \italic {a tempo} bf gf af8 bf
	cf4 bf af df->
	df-> bf gf af8 bf
	<cf af ff>4( <bf gf df> <af ff cf> <bf gf df>)
	af( gf ff gf)
	\oneVoice
	<af^~ gf df>1
	<af f df>2. df,4
	ef4. gf8 f4. af8
	gf4. bf8 \padScript #1.2 af4.\fermata \padScript #1.2 df8\fermata
	ef4. gf8 f4. af8
	gf4. bf8 af4. gf8
	\time 2/4 af8( bf) bf( cf)
	\time 4/4
	<df gf, df>4\arpeggio bf gf df
	\voiceOne ef gf f2
	gf4 ef cf gf
	\time 2/4 af cf
	\time 4/4
	\oneVoice <bf gf>2 <af f>2
	<df gf, bf,>4\arpeggio bf gf df
	\voiceOne ef af f df \oneVoice
	s2 \clef "bass" f,8 af \padScript #1.2 bf\fermata \padScript #1.2 af\fermata
	\padScript #1.2 <g bf,>1\fermata
	\bar "|."
}

RightHandTwo = \relative c' {
	% verse in e minor
	s4
	e'2.\arpeggio
	s2.
	d4. fs4.
	s2.*4
	r8 r16 cs e b' ds,4 s8
	% chorus in e major
	e2 ds
	<e cs> <e cs>
	<e b> <ds b>
	<cs b> s2
	s1*4
	s2
	a2( gs1)
	% verse in e minor
	s2.*2
	g8 fs e fs4.
	<e b>4 <e b>8 <fs b,>4 <fs b,>8
	s2.*4
	% chorus in e major
	e2 ds
	<e cs> <e cs>
	<e b> <ds b>
	<cs b> s2
	s1*4
	s2
	a2( gs1)
	% verse in c major
	s2.*6
	a'16 g f c a' f a f b f c' a~
	a4. gs4 s8
	% chorus in a major
	a2 gs
	<fs a> <fs a>
	<e gs> <e fs gs>
	<fs a b> s2
	s1*2
	r4 df8 <cf ef> <df gf> <cf ef> <df gf> <ef af>
	r4 df8 <ef af,> <f df> <af ef> <f df>4
	% chorus in g-flat major
	<gf df>2 <gf df>
	<gf df> <gf df>4 <f df>
	<gf df>2 <gf df>
	s1
	cf,1
	s1*7 s2
	cf'2 af
	<cf gf> r
	ff,
	s1*2
	cf2 <df af>4 <af f>
	\oneVoice <af bf ef>1
}

LeftHandOne = \relative c {
	% verse in e minor
	s4
	s2.*8
	% chorus in e major
	s1*8 s2
	cs'2( b1)
	% verse in e minor
	s2.*8
	%chorus in e major
	s1*8 s2
	cs,2( b2) e--
	% verse in c major
	s2.*2
	d4 d8 g4 f8
	e4. d4 e8
	s2.*4
	% chorus in a major
	s1*6
	% chorus in g-flat major
	r4 af8 gf ef df bf af
	s1
	r2 <af' f'>->
	<gf cf ef>-> s2
	r2 <ef bf'>
}

LeftHandTwo = \relative c {
	% verse in e minor
	r8 r8
	<e' g b>2.\arpeggio
	g4 e8 a4.
	fs4. a4.
	<e g b>4.\arpeggio <b fs' b>4.\arpeggio
	r16 e' b a g_1 fs_4 e e' b a g fs
	e g b4 a4.
	c,16 g' c4~ c4.
	b,16 fs'16 b4~ b4.\fermata
	% chorus in e major
	\key e \major
	<e, b'>2 <e b'>
	<e b'> <b e b'>
	<cs gs'> <cs gs'>4 b
	<a e'>2 b2\fermata
	a8 e' a4 b,8 fs' b4
	cs,8 gs' cs4
	ds,8 fs b4 b~ <b b,>
	e,1
	<a, e'>2 b
	\clef "bass" \voiceTwo e,1. \oneVoice
	% verse in e minor
	\key e \minor
	r16 e' b a g-1 fs e_1 c b a g_1 fs
	e b' g'4 a,8 a'4
	d,4. d,4 <fs d'>8
	<g e'>4 <g e'>8 <fs ds'>4 <fs ds'>8
	e16 b' e4~ e8 b4
	e,8 b' e~ <a, e'>4.
	c,16 g' c e g c r4.
	b,,16~ b' fs' b cs e ds4.
	% chorus in e major
	\key e \major
	<e, b'>2 <e b'>
	<e b'> <b e b'>
	<cs gs'> <cs gs'>4 b
	<a e'>2 b2\fermata
	a8 e' a4 b,8 fs' b4
	cs,8 gs' cs4
	ds,8 fs b4 b~ <b b,>
	e,1
	<a, e'>2 b
	\voiceTwo e,1 d2 \oneVoice
	% verse in c major
	\key c \major
	<e' g, c,>8.\arpeggio^\mf f16 e8 <c e,>4 <d g,>8
	<e c>4. <f a,>4 f8
	\voiceTwo g,2.
	g4. g4. \oneVoice
	<e' g, c,>8.\arpeggio f16 e8 <c e,>4 <d g,>8
	<e c>4. <f a,>4 a,16 g
	f4 c'8 f4.
	e,16 b' e fs b e e,,4.
	% chorus in a major
	\key a \major
	<a' e'>2 <a e'>
	<a e'> <a d e>
	<gs b cs> <fs cs'>
	<b d e> <e, b' d>4\fermata e,
	d8 a' d d, e b' e e,
	fs cs' fs <fs, fs,> <g g,> d' g g,
	\key gf \major
	\voiceTwo df1 \oneVoice
	<df df,>8 af' ef' df af df af df,
	% chorus in g-flat major
	\voiceTwo <gf gf,>1->~ 
	<gf gf,>2 \oneVoice <df' gf af>4 <df, df,>->
	\voiceTwo <ef ef,>2.-> <df>4 \oneVoice
	\times 2/3 {ff cf' ff~} \times 2/3 {ff ff cf}
	\times 2/3 {ff, cf' ff} \times 2/3 {af ff cf}
	\times 2/3 {df, af' df} \times 2/3 {af' df, af}
	\times 2/3 {df, af' df} af'2
	cf,8 gf' cf4 df,8 af' df4
	ef,8 bf' ef4 f,8 af df4\fermata
	\clef "treble" cf8 gf' cf4 df,8 af' df4
	ef,8 bf' ef4 \set tieWaitForNote = ##t ff,8~ cf'_~ ff4~
	<ff, cf' ff>2 \set tieWaitForNote = ##f
	<df bf'>1\arpeggio
	<cf gf'>2 df
	\clef "bass" cf1
	<ff, cf'>2
	<df df'>1
	<gf, df' gf>1\arpeggio
	<cf gf'>2 df4 df,
	ef,8 ef' bf' ef~ ef2
	<ef, ef,>1\fermata
}

dynamics = {
	\override DynamicLineSpanner #'staff-padding = #2.0
	\override TextScript #'staff-padding = #2.0
	\override DynamicLineSpanner #'Y-extent = #'(-0.5 . 1.5)
	\override TextScript #'Y-extent = #'(-0.5 . 1.5)
	\larghetto
	s4\mp
	s2.*7
	s2._\markup \italic rit.
	\andante
	s4\p s2.
	s1*4 s2 s1*4 s2\mf
	\larghetto
	s2.*3
	\once \override DynamicLineSpanner #'staff-padding = #4.3 s2.\<
	s2.\!
	\once \override DynamicLineSpanner #'staff-padding = #4.3 s2.\>
	s2.*2\!
	\andante
	s1*10
	\larghetto
	s2.*8
	\andante
	s1\pp
	s1
	s1_\markup \italic dim.
	s2. \once \override DynamicLineSpanner #'staff-padding = #2.8 s4\mp
	\once \override TextScript #'staff-padding = #2.8 s1*2_\markup \italic {cresc. molto}
	s2 s2_\markup \italic rit.
	s1
	\once \override DynamicText #'X-offset = #-0.0
	s1\ff
	s1*2
	s1_\markup \italic dim.
	s1*2
	s2. s4\mp
	\once \override TextScript #'staff-padding = #2.3 s1_\markup \italic rubato
}

staffPiano = \new PianoStaff {
	\set PianoStaff.midiInstrument = #"acoustic grand"
	\set PianoStaff.connectArpeggios = ##t
	<<
		\new Staff = "RH" {  % Right hand
			\set Staff.connectArpeggios = ##t
			<<
			\new Voice {\global \RightHandOne}
			\new Voice {\voiceTwo \RightHandTwo}
			\new Voice {\dynamics}
			>>
		}
		%\new Dynamics = "dynamics" \dynamics
		\new Staff = "LH" {  % Left hand
			\set Staff.connectArpeggios = ##t 			
			<<
			\new Voice {\voiceOne \LeftHandOne}
			\new Voice {\global \LeftHandTwo}
			>>
		}
	>>
}


\score {
	<<
		\staffPiano
	>>
	
	\layout {
		\context {
			\Staff
			\consists Span_arpeggio_engraver
		}
	}
	
	\midi {}
}