%
% if you could hie to kolob
%

\version "2.10.29"
\include "english.ly"

#(set-global-staff-size 17)

\header {
  title = "If You Could Hie To Kolob"
  subtitle = "SATB choir and piano"
  subsubtitle = "Version 1.1 - November 11, 2007"
  copyright = \markup {
    \center-align { "Musical arrangement copyright 2007 David and April Thomas."
		    \line {"Making copies for non-commercial use is permitted."}
    \line {"For more information, more songs or more copies: http://dt.prohosting.com/sheetmusic"} } }
  poet = "William Wines Phelps"
  composer = "Old English Melody"
  arranger = \markup { \tiny "(arr: David and April Thomas)" }
}

\layout {
  \context { \RemoveEmptyStaffContext }
  % The rest of this layout block is devoted to providing the
  % "centered piano dynamics" feature.
  \context {
    \type "Engraver_group"
    \name Dynamics
    \alias Voice % So that \cresc works, for example.
    \consists "Output_property_engraver"

    \override VerticalAxisGroup #'minimum-Y-extent = #'(-1 . 1)

    \consists "Script_engraver"
    \consists "Dynamic_engraver"
    \consists "Text_engraver"

    \override TextScript #'font-size = #2
    \override TextScript #'font-shape = #'italic
    \override DynamicText #'extra-offset = #'(0 . 2.5)
    \override Hairpin #'extra-offset = #'(0 . 2.5)

    \consists "Skip_event_swallow_translator"

    \consists "Axis_group_engraver"
  }
  \context {
    \PianoStaff
    \accepts Dynamics
    \override VerticalAlignment #'forced-distance = #7
  }
}

global = {
  \key e \minor
  \override Staff.TimeSignature #'style = #'()
  \time 4/4
}

% SEGMENT A: intro
snA = \relative c'' {
  \partial 4 s4 | s1 * 4 | s2.
  \once \override TextScript #'extra-offset = #'( -5.5 . 0 )
  g8(\mp^\markup { \italic \bold \tiny "sopranos" } fs8) \mark \default
}
anA = \relative c' { \partial 4 s4 | s1*5 }
tnA = \relative c' { \partial 4 s4 | s1*5 }
bnA = \relative c' { \partial 4 s4 | s1*5 }
atA = \lyricmode { }
btA = \lyricmode { If }
abA = \lyricmode { }
bbA = \lyricmode { }
rhA = \relative c''' {
  \partial 4 e8 d | e2. d8 c | <b, b'>2. <c a'>8 g' |
  <c, a'>4 <b g'> <g e'> d' | e1 | <e b' e>\arpeggio |
}
lhA = \relative c, {
  \partial 4 r4 |
  \once \override TextScript #'extra-offset = #'( -12 . 2 )
  e8\(_\markup { \italic "con pedale" } b' e b'
      \clef treble e fs g a\) \clef bass |
  g,,\( d' a' d \clef treble g a b4\) \clef bass |
  a,,8\( e' c' g' fs2\) |
  e,8\( b' fs' b, e4 <d g>\) |
  e,8\( b' fs' b, e4 <a, d>\) |
}
dynA = {
  \partial 4 s4\mp | s1*3 |
  \once \override DynamicText #'extra-offset = #'( 1 . 2 )
  s1\p | s1
}

% SEGMENT B: first verse
snB = \relative c' {
  e4 e e d | g2 a4 g8 a | b4 b a8( g) e4 | d2. \voiceOne
  \once \override TextScript #'extra-offset = #'( -7.5 . 0 )
  g8(^\markup { \italic \bold \tiny "add altos" } fs) |
  e4 e e d | g2 a4 g8( a) | b4 b a8( g) e4 | e2. b'8 c |
  d4 b b8( a) g4 | a2 b4 g8( a) | b4 b8( a) g4 e4 | d2. g8( fs) |
  e4 e e8( d) e( fs) | g2 a4 g8( a) | b4 b a8( g) e4 |
  \oneVoice e1 | R1 \mark \default
}
anB = \relative c' {
  s1*3 | s2. \voiceTwo d4 |
  d c8( b) c4 c | b( e) d e8( fs) | g4 fs8( g) e4 c | e2. d8 d |
  g4 g g d | fs2 g4 g8 fs | e4 e8( fs) e4 e | d2. d4\< |
  d c c8( b) a4 | b( cs) d e8 fs | g4 e c a\! | s1 | s1
}
tnB = \relative c' {
  \once \override TextScript #'extra-offset = #'( -3 . 0 )
  s1*7 | s2.
  \once \override TextScript #'extra-offset = #'( -3 . 0 )
  g8^\markup { \italic \bold \tiny "tenors" } a |
  b4 g g8( a) b4 | d2 d4 g,8( a) | b4 b8( d) d4 c |
  b2. \voiceOne
  \once \override TextScript #'extra-offset = #'( -9 . 0 )
  a4^\markup { \italic \bold \tiny "add basses" } |
  g4 g g fs | g2 fs4 c' | b g a e | \oneVoice e1 |
  r2 r4
  g8\mf(^\markup { \italic \bold \tiny "all" } fs) |
}
bnB = \relative c {
  s1*11 | s2. \voiceTwo b4 | c c8( b) a4 c | e2 d4 d | e e a, a | s1 | s1 |
}
atB = \lyricmode { \skip 4 \skip 4 \skip 4 \skip 4 \skip 4 \skip 4
		   \skip 4 \skip 4 \skip 4 \skip 4 \skip 4 \skip 4
		   \skip 4 \skip 4 \skip 4 \skip 4 \skip 4 \skip 4
		   \skip 4 \skip 4 \skip 4 \skip 4 \skip 4 \skip 4
		   \skip 4 \skip 4 \skip 4 \skip 4
		   \skip 4 \skip 4 \skip 4 \skip 4 \skip 4 \skip 4
		   \skip 4 \skip 4 \skip 4 \skip 4 \skip 4 \skip 4
		   \skip 4 \skip 4 \skip 4 \skip 4 \skip 4 \skip 4
		   \skip 4 \skip 4 \skip 4 \skip 4 \skip 4 \skip 4 \skip 4 \skip 4
		 }
btB = \lyricmode {
  you could hie to Ko -- lob In the twin -- kling of an eye,
  And then con -- tin -- ue on -- ward With that same speed to fly,
  Do you think that you could ev -- er, Through all e -- ter -- ni -- ty,
  Find out the gen -- er -- a -- tion Where Gods be -- gan to be?
}
abB = \lyricmode { \skip 4 \skip 4 \skip 4 \skip 4 \skip 4 \skip 4
		   \skip 4 \skip 4 \skip 4 \skip 4 \skip 4 \skip 4
		   \skip 4 \skip 4 \skip 4 \skip 4 \skip 4 \skip 4
		   \skip 4 \skip 4 \skip 4 \skip 4 \skip 4 \skip 4
		   \skip 4 \skip 4 \skip 4 Or }
bbB = \lyricmode {
  \skip 4 \skip 4 \skip 4 \skip 4 \skip 4 \skip 4
  \skip 4 \skip 4 \skip 4 \skip 4 \skip 4 \skip 4
}
rhB = \relative c'' {
  <b e b'>1\arpeggio | <a d g>2.\arpeggio a'4 | <d, e b'>2.\arpeggio a'4 |
  <d, fs>2. <a d g>4\accent |
  <d e>2 << { d4( c) } \\ g2 >> | <g d'>4\accent <g a>\accent <fs a>2\accent |
  <e g b>2.\arpeggio c'4 | <g b>( <fs a> <e g>2) |
  <d g b d>2.\arpeggio b'4 | <d, fs a>2\arpeggio <b d g>4 g'8 fs |
  <e g>2. e4 | <a, d>( <g c> <fs b>) <a d g>\accent |
  <d e>2 << e2 \\ { d4( c) } >> | d\accent g\accent fs2\accent |
  <d g>2 <c g'> | <g e'>2. fs'8( d) | e2. \clef bass <a, d>4\accent |
}
lhB = \relative c {
  e8\( b' e b c, g' d' c\) | g\( d' g d fs, d' g fs\) |
  e,\( b' e b c, g' d' g,\) | d\( a' g a fs4\) b,\accent |
  c8\( g' c g a, e' g e\) | b4\accent cs\accent d2\accent |
  b8\( e g e a, e' g e\) | e,1 |
  g8\( d' g b d b g d\) | d,\( d' fs d\) g2 |
  e8\( g b g c, g' b4\) | b,2. b4\accent |
  c8\( g' c g a, e' g e\) | <b g'>4\accent <cs a'>\accent <d a'>2\accent |
  <e b'> <a, e'> | e8\( b' fs' b, e4\) g,\accent |
  e8\( b' fs' b, e4\) 
  #(set-octavation -1)
  <g,, g'>\accent |
}
dynB = {
  s1*12 | s1\< | s1*2 |
  \once \override DynamicText #'extra-offset = #'( 1.0 . 1.8 )
  s1\mf | s1
}

% SEGMENT C: second verse
snC = \relative c'' {
  R1 | R1 | R1 | r2 r4 g8(^\markup { \italic \bold \tiny "all" } fs) |
  e4 e e d | g2 a4 g8( a) | b4 b a8( g) e4 | e2. b'8( c) |
  d4 b b8( a) g4 | a2 b4 r4 | r1 | r2 r4 \voiceOne g8( fs) |
  e4 e e8( d) e( fs) | g2 a4 g8( a) | b4 b a8( g) e4 |
  \oneVoice e1 |
  r2 r4 af8(^\markup { \italic \bold \tiny "all" } g) \mark \default
  \key f \minor \bar "||"
}
anC = \relative c' {
  s1*11 | s2. \voiceTwo d4 |
  g8( fs) e( d) c4 c | b( e) fs g8(\< a) | b4 b a8( g) e4\! |
  \once \override DynamicText #'extra-offset = #'( 0 . -1 )
  s1\f | s1 \key f \minor \bar "||"
}
tnC = \relative c {
  e4 e e d | g2 a4 g8( a) | b4 b a8( g) e4 | d2. r4 |
  R1 | R1 | R1 | r2 r4 b'8( c) |
  d4 b b8( a) g4 | a2 b4 g8( a) | b4 b8( a) g4 e | d2. r4 |
  R1 | r2 r4 g8(\< a) |
  b4 b a8( g) e4\! | e1\f |
  r2 r4 af8(^\markup { \italic \bold \tiny "all" } g) |
  \key f \minor \bar "||"
}
bnC = \relative c { s1*17 }
atC = \lyricmode {
  \skip 4 \skip 4 \skip 4 \skip 4 \skip 4 \skip 4 \skip 4 \skip 4
  \skip 4 \skip 4 \skip 4 \skip 4 \skip 4 \skip 4 \skip 4 \skip 4
  \skip 4 \skip 4 \skip 4 \skip 4 \skip 4 \skip 4 \skip 4 \skip 4
  \skip 4 \skip 4 \skip 4 \skip 4 \skip 4 \skip 4 \skip 4 \skip 4
  \skip 4
}
btC = \lyricmode {
  Or view the last cre -- a -- tion, Where Gods and mat -- ter end?
  Me -- thinks the Spir -- it whis -- pers,
  Nor seen the out -- side cur -- tains, Where no -- thing has a place.
  The
}
abC = \lyricmode {
  see the grand be -- gin -- ning, Where space did not ex -- tend?
  Me -- thinks the Spir -- it whis -- pers,
  No man has found pure space,
  \skip 4 \skip 4 \skip 4 \skip 4 \skip 4 \skip 4 \skip 4
}
bbC = \lyricmode { }
rhC = \relative c {
  <e fs b>4 <g b>8 e <g b> e <g a> e | <d g b>4 <g b>8 d <fs a> d <fs a d>4\accent |
  <g b e>4 <g b>8 e8 << { d'8( c8) c8( b8) } \\ { <e, g>4 <e g>4 } >> |
  <d g a>4 <g a>8 d <d fs a>4 <g a d>\accent |
  << { d'4 c8 b } \\ { <e, g>2 } >> <e g c>4 <g c>8 e |
  <g b d>4\accent <g a>\accent <fs a>2\accent |
  <e g b>4 <g b>8 e <e g c>4. e8 | <g b>4\( <fs a> <e g>2\) |
  <d g b>4 <g b d> \clef treble <b d g> <d g b> |
  <d fs a>2 <b d g>4 <b g'>8 <a fs'> |
  <g e'>2 <g b e> | <fs a d> <d'' a'> |
  <g, c g'>4\arpeggio <g, d' e>8( c) <g' d' g>4\arpeggio <c, d g> |
  <d g d'>4\accent <b e a>\accent <a d e a>\accent <g e'>8( <a fs'>) |
  <b d e g>2\accent <g b c e>\accent |
  <g b e>4 a g <fs a d>\accent | <g b e> a g <g bf c e>\accent
  \key f \minor \bar "||"
}
lhC = \relative c,, {
  <e e'>4. <d d'>8 <c c'>2 | <g' g'> <fs fs'> | <e e'> <c c'> | <d d'>2. <b' b'>4\accent |
  <c c'>4. <b b'>8 <a a'>2 | <b b'>4\accent <cs cs'>\accent <d d'>2\accent |
  e2 <a, a'> | <e e'>1 |
  r8 <g g'> <b b'> <d d'>
  #(set-octavation 0)
  <g g'>4. b8 | d4. d8 <g, g'>2 |
  <e e'> <c c'> | <b b'>1 |
  c8 g' e'4
  %{#(set-octavation -1)%}
  a,,8 e' a4 | <b, b'>4\accent <cs cs'>\accent <d d'>2\accent |
  <e e'>2\accent <a, a'>\accent |
  %{#(set-octavation 0)%}
  <e e'>8 b'' fs' b, e b
  << d4 \\ { g,8(\accent fs) } >> |
  e8 b' fs' b, e4 <c, c'>\accent
  \key f \minor \bar "||"
}
dynC = {
  s8 s2..\mp | s1*5 | s4\< s2. | s1 | s1\mf | s2. s4\mp | s1 | s1 |
  s16 s2...\mf | s1
%  \once \override DynamicLineSpanner #'extra-offset = #'( 0 . 3 )
  \setTextCresc
  s8 s8\< s2. | s1 | s2.
%  \once \override DynamicText #'extra-offset = #'( 0 . -3 )
  s4
}

% SEGMENT D: third verse
snD = \relative c' {
  f4 f f ef | af2 bf4 af8( bf) | c4 c bf8( af) f4 | ef2. af8( g) |
  f4 f f ef | af2 bf4 af8( bf) | c4 c bf8( af) f4 | f2. \voiceOne c'8( df) |
  ef4 c c8( bf) af4 | bf2 c4 af8( bf) | c4 c8( bf) af4 f | ef2. af8( g) |
  f4 f f8( ef) f( g) | af2 bf4 af8( bf) | c4 c c c | c1~ | c1 |
  \oneVoice R1 | r2 r4 \voiceOne af8( g)
  \override Score.RehearsalMark #'padding = #6
  \mark \default
}
anD = \relative c'' {
  s1*7 | s2. \voiceTwo af8( bf) | bf4 af g f | ef2 ef4 af8( bf) |
  af4 af f ef8( df) | ef2. ef4 | ef df ef df | c2 f4 af8( bf) |
  c4 bf af bf\> | af1~ | af1 | s1\! | s1
}
tnD = \relative c {
  f4 f f ef | af2 bf4 af8( bf) | c4 c bf8( af) f4 | ef2. af8( g) |
  f4 f f ef | af2 bf4 af8( bf) | c4 c bf8( af) f4 | f2. \voiceOne c'8( df) |
  ef4 ef ef \times 2/3 { c8( bf af) } | g4( af8 bf) af4 c | f ef df c | bf2. bf4 |
  af af af g | f2 bf4 af8( bf) | c4 c c e | f1( | ef) |
  \oneVoice R1 | R1
}
bnD = \relative c' {
  s1*7 | s2. \voiceTwo af8( bf) | c4 af ef af | ef4( f8 g) af4 af8( g) |
  f4 f df df | c2. c4 | df4 df8( c) bf4 bf | c2 df4 af'8( bf) |
  c4 bf af g | f1( | af) | s1 | s1
}
atD = \lyricmode {
  \skip 4 \skip 4 \skip 4 \skip 4 \skip 4 \skip 4 \skip 4 \skip 4
  \skip 4 \skip 4 \skip 4 \skip 4 \skip 4 \skip 4 \skip 4 \skip 4
  \skip 4 \skip 4 \skip 4 \skip 4 \skip 4 \skip 4 \skip 4 \skip 4
  \skip 4 \skip 4 \skip 4 \skip 4 \skip 4 \skip 4 \skip 4 \skip 4
  \skip 4 \skip 4 \skip 4 \skip 4 \skip 4 \skip 4 \skip 4 \skip 4
  \skip 4 \skip 4 \skip 4 \skip 4 \skip 4 \skip 4 \skip 4 \skip 4
  \skip 4 \skip 4 \skip 4 \skip 4
  There
}
btD = \lyricmode {
  works of God con -- tin -- ue, And worlds and lives a -- bound;
  Im -- prove -- ment and pro -- gres -- sion Have one e -- ter -- nal round.
  There is no end to mat -- ter; There is no end to space;
  There is no end to spir -- it; There is no end to race.
}
abD = \lyricmode {
  \skip 4 \skip 4 \skip 4 \skip 4 \skip 4 \skip 4 \skip 4 \skip 4
  \skip 4 \skip 4 \skip 4 \skip 4 \skip 4 \skip 4 \skip 4 \skip 4
  \skip 4 \skip 4 \skip 4 \skip 4 \skip 4 \skip 4 \skip 4 \skip 4
  \skip 4 \skip 4 \skip 4 \skip 4 \skip 4 \skip 4 \skip 4 \skip 4
  \skip 4 \skip 4 \skip 4 \skip 4 \skip 4 \skip 4 \skip 4 \skip 4
  \skip 4 \skip 4 \skip 4 \skip 4 \skip 4 \skip 4 \skip 4 \skip 4
  \skip 4 \skip 4 \skip 4
}
bbD = \lyricmode {
  \skip 4 \skip 4 \skip 4 \skip 4 \skip 4 \skip 4 \skip 4 \skip 4
  \skip 4 \skip 4 \skip 4 \skip 4 \skip 4 \skip 4 \skip 4 \skip 4
  \skip 4 \skip 4 \skip 4 \skip 4 \skip 4
  \skip 4 \skip 4 \skip 4 \skip 4 \skip 4
}
rhD = \relative c' {
  \times 2/3 { f8( af c f c af) f( af df f df af) } |
  \times 2/3 { ef8( af c ef c af) ef( g bf ef bf g) } |
  \times 2/3 { c,8( f af c af f) df( f af c af f) } |
  \times 2/3 { bf8( ef, bf af' ef bf g' ef bf) } <bf ef af>4\accent |
  \times 2/3 { f'8( ef af, df af c) af( df af ef' af, f') } |
  \times 2/3 { ef( c af af' f bf,) g'( ef bf f' bf, g') } |
  \times 2/3 { c,( f g af g f) df( f g af g f) } |
  c8 f af c f2 |
  <ef, af c ef>4 <ef, af c> <af c ef> <ef' af c ef> |
  <ef g bf ef>2 <ef af c>4 <c c'>8 <bf bf'> |
  <af c f af>2 <f af df f>4~ <f af c f> | <g bf ef f>1 |
  <af df ef>2 <df ef af> | <ef af bf> <df af' bf>4 af'8( bf) |
  c2. <f f'>8( <ef ef'> | <f af c f>2.) <ef ef'>8( <df df'> |
  <c ef af c>2.) <bf bf'>8 <af af'> |
  <c df f bf>4 <af af'> <g bf ef f> <ef ef'> | <f f'>2 <f' c'>
}
lhD = \relative c, {
  <f f'>4~ \times 2/3 { <f f'>4 <ef ef'>8 } <df df'>2 |
  <af' af'>2 <g g'>4 \times 2/3 { <af af'>4 <g g'>8 } |
  <f f'>4~ \times 2/3 { <f f'>4 <ef ef'>8 } <df df'>2 |
  <ef ef'>2. <c c'>4\accent | <df df'>2 <bf bf'> |
  <c c'>4 <d d'> <ef ef'>2 | <f f'>2
  #(set-octavation -1)
  <bf, bf'>2 | <f f'>1 |
  #(set-octavation 0)
  <af' af'>2. <af af'>4 | <ef ef'>2 <af af'>4 <af af'>8 <g g'> |
  <f f'>2 <df df'>2 | <c c'>1 | <df df'>2
  #(set-octavation -1)
  <bf bf'>2 | <f f'>2 <bf bf'>4
  #(set-octavation 0)
  af''8( bf) | c1 |
  f,,8( c' f c' f2) | af,,8( ef' bf' ef af2) |
  bf,,8( f' df'4) bf,8( g'4.) |
  \set tieWaitForNote = ##t
  f,8~ c'~ g'~ c~ <f,, c' g' c>2
}
dynD = { s1\f | s1*18 }

% SEGMENT E: fugue
snE = \relative c' {
  f4 f f ef | af2 bf4 af8( bf) | c4 c bf8( af) f4 | ef2 r4 af8( g)
  f4 f f ef | af2 bf4 af8( bf) | c4 c bf8( af) f4 | f2.
}
anE = \relative c' {
  r4 f8( ef) df4 ef8( df) | c4 ef g ef | r4 af8( g) f4 df | af bf ef2~ |
  ef4 df8( c) bf4 df | c4 d ef f8 g | af4 ef f ef8( df) | c2.
}
tnE = \relative c' {
  r2 r4 \voiceOne c8( bf) | af4 af bf df | c8( bf) af4 r4 df8( c) |
  bf4 af g bf | af2. g8( ef) | af4 bf bf df | c af df8( c) bf4 |
  bf af g
}
bnE = \relative c {
  s1 | r4 af8( c) ef4 f8( g) | af4 c, df f | r4 ef ef c |
  df df ef2( | f4) f8( af) g4 ef | af c, df ef | f f f
}
atE = \lyricmode {
  is no end to vir -- tue; There is no end to might;
  There is no end to wis -- dom; There is no end to light.
}
btE = \lyricmode {
  There is no end to vir -- tue; There is no end to might;
  There is no end to wis -- dom; There is no end to light.
}
abE = \lyricmode {
  There is no end to un -- ion; There is no end to youth;
  There is no end to priest -- hood and no end to truth.
}
bbE = \lyricmode {
  There is no end to un -- ion; There is no end to youth,
  no end to priest -- hood and no end to truth.
}
rhE = { s1*7 | s2. }
lhE = { s1*7 | s2. }
dynE = { s1*7 | s2. }

% SEGMENT F: climax
snF = \relative c' {
  \partial 4 r4 |
  \override Score.RehearsalMark #'padding = #6
  \mark \default
  r8 ef af c ef4. ef8 | ef4 ef2 c8( bf) |
  af4 bf c df | ef2.\fermata af,8( g) | f4 f f8( ef) f( g) |
  af2 bf4\fermata \oneVoice s4 | s1*3 \mark \default
}
anF = \relative c'' {
  \partial 4 af8( bf) | c4 af af ef | g4.( bf8) af4 c8( bf) |
  af4 af f f | g2. ef4\f | ef df ef df8( ef) | f2 f4
  \oneVoice \breathe
  af8(\mf^\markup { \italic \bold \tiny "all" } bf) |
  c4\> c bf8( af) f4 | f1~ | f2\! r2 \mark \default
}
tnF = \relative c' {
  \partial 4 c8( df) | ef4 c c8( bf) af4 | bf2 c4 af8( bf) |
  c4 c c bf | c2.\fermata bf4 | af af af g |
  af( c) d\fermata \breathe \oneVoice r4 | r2 r4 \voiceOne
  af8(\mp^\markup { \italic \bold \tiny "(div)" } bf) | c4\> bf af g | f1\!
}
bnF = \relative c {
  \partial 4 f8( ef) | af,4 af af c | ef( f8 g) af4 af8( g) |
  f4 f8( ef) df4 df | c2. c4\f | df df8( c) bf4 bf | f'2 <bf, f'>4 s4 |
  \voiceTwo s1*2 | r4 ef\p f2~
}
atF = \lyricmode { There is no end to glo -- ry! }
btF = \lyricmode {
  There is no end to glo -- ry;
  There is no end to love;
  There is no end to be -- ing;
  There is no death a -- bove.
}
abF = \lyricmode {
  \skip 4 \skip 4 \skip 4 \skip 4 \skip 4 \skip 4 \skip 4
  \skip 4 \skip 4 \skip 4 \skip 4 \skip 4 \skip 4 
  \skip 4 \skip 4 \skip 4 \skip 4 \skip 4 \skip 4 \skip 4 
  There is no death a -- bove.
}
bbF = \lyricmode {
  \skip 4 \skip 4 \skip 4 \skip 4 \skip 4 \skip 4 \skip 4
  \skip 4 \skip 4 \skip 4 \skip 4 \skip 4 \skip 4 
  \skip 4 \skip 4 \skip 4 \skip 4 \skip 4 \skip 4 \skip 4 
  a -- bove
}
rhF = \relative c'' {
  \partial 4 <af c>8( <bf df>) | <c ef>4 <af c> <ef bf'> af |
  <ef g bf ef>8. <ef ef'>16\accent <ef ef'>8\accent <ef ef'>\accent
  <ef af c>4\accent c8( bf) | af4 <c f af> <f, af c> <af c f> |
  <g d' ef g>1\fermata |
  <f af df>2 <af df ef> | <f af c f> <f af bf d>4\fermata r4 |
  R1 | R1 | r2 r4 f'''8( ef)
}
lhF = \relative c, {
  \partial 4 <f f'>4 | <af, af'> <ef'' af c> <af,, af'> <ef'' af c> |
  %{#(set-octavation -1)%}
  <ef,, ef'>4
  %{#(set-octavation 0)%}
  <f' f'>8 <g g'> <af af'>4
  #(set-octavation -1)
  <af, af'>8 <g g'> |
  <f f'>2 <df df'> | <c c'>1\fermata
  #(set-octavation 0)
  <df' df'>4. <c c'>8 <bf bf'>4 <af af'>8 <g g'> |
  <f f'>2 <bf bf'>4\fermata r4 |
  R1 | R1 | R1
}
dynF = { \partial 4 s4 | s8 s2..\ff | s1*3 | s1\f | s1*3 | s2. s4\mp }

% SEGMENT G: outro
snG = { s1*4 }
anG = \relative c' {
  r8 c(\p^\markup { \italic \bold \tiny "altos (and sopranos as guided by the Spirit)" } f g af2) |
  r4 ef8( df c2\glissando |
  \textSpannerUp
  \override TextSpanner #'edge-text = #'("rall " . "")
  bf1\glissando\startTextSpan | c1)\fermata\stopTextSpan \bar "|."
}
tnG = \relative c' {
  \oneVoice s1 | R1 |
  \textSpannerUp
  \override TextSpanner #'edge-text = #'("rall " . "")
  \override TextSpanner #'padding = #2
  \once \override TextScript #'extra-offset = #'( -7.5 . 0 )
  \voiceOne
  bf1\startTextSpan\glissando( |
  f1)\fermata\stopTextSpan \bar "|."
}
bnG = \relative c {
  \voiceTwo f1 | s1 |
  bf,1\p\glissando( | f1) \bar "|."
}
btG = \lyricmode { ooh ooh }
bbG = \lyricmode { ooh }
rhG = \relative c''' {
  f2. ef8( df) | <c, c'>2. <df bf'>8 af' |
  \textSpannerUp
  \override TextSpanner #'padding = #0.5
  \override TextSpanner #'edge-text = #'("rall " . "")
  <df, bf'>4\startTextSpan <c af'> <bf f'> ef |
  <g, c f>2\stopTextSpan <f' g c>\fermata \bar "|."
}
lhG = \relative c, {
  f8\( c' f c' \clef treble f g af bf\) \clef bass |
  af,,\( ef' bf' ef \clef treble af bf c4\) \clef bass |
  \textSpannerUp
  \override TextSpanner #'edge-text = #'("rall " . "")
  \override TextSpanner #'padding = #0.5
  bf,,8\(\startTextSpan f' \clef treble df' af' g2\) \clef bass |
  \set tieWaitForNote = ##t
  \override Script #'padding = #1
  f,,8~ c'~ g'~ c~\stopTextSpan <f,, c' g' c>2\fermata \bar "|."
}
dynG = { s1*4 }

%%%%%%%%%%%%%%%%%%%
% SCORE STRUCTURE %
%%%%%%%%%%%%%%%%%%%

<<
  \set Score.markFormatter = #format-mark-letters
  \set Score.markFormatter = #format-mark-box-letters
  \override Score.BarNumber #'padding = #2
  \override Score.VerticalAxisGroup #'remove-first = ##t

  \new ChoirStaff <<

    % atreb: lyrics context above treble staff (setup)
    \new Lyrics = "atreb" { s1 }

    % treble staff
    \new Staff = "women" {
      \override Score.MetronomeMark #'extra-offset = #'( -8 . 3 )
      \tempo 4=82
      \set Staff.instrumentName = \markup { \column { "Soprano " \line { "Alto" } } }
      \set Staff.shortInstrumentName = "SA "
      \set Staff.printKeyCancellation = ##f
      \global
      <<
	\new Voice = "soprano" {
	  \snA
	  \snB
	  \snC
	  \snD
	  \snE
	  \snF
	  \snG
	}
	\new Voice = "alto" {
	  \anA
	  \anB
	  \anC
	  \anD
	  \anE
	  \anF
	  \anG
	}
      >>
    }

    % atreb: lyrics context above treble staff (implementation)
    \lyricsto "soprano" \context Lyrics = atreb {
      \atA
      \atB
      \atC
      \atD
      \atE
      \atF
    }

    % btreb: lyrics context below treble staff
    \new Lyrics = "btreb" { s1 }
    {
      \lyricsto "soprano" \context Lyrics = btreb {
	\btA
	\btB
	\btC
	\btD
      }
      \lyricsto "alto" \context Lyrics = btreb {
	\btE
	\btF
	\btG
      }
    }
    % abass: lyrics context above bass staff
    \new Lyrics = "abass" { s1 }

    % bass staff
    \new Staff = "men" {
      \set Staff.instrumentName = \markup { \column { "Tenor " \line { "Bass" } } }
      \set Staff.shortInstrumentName = "TB "
      \set Staff.printKeyCancellation = ##f
      \clef bass
      \global
      <<
	\new Voice = tenor {
	  \tnA
	  \tnB
	  \tnC
	  \tnD
	  \tnE
	  \tnF
	  \tnG
	}
	\new Voice = bass {
	  \bnA
	  \bnB
	  \bnC
	  \bnD
	  \bnE
	  \bnF
	  \bnG
	}
      >>
    }

    % "tenor" line lyrics
    \lyricsto "tenor" \context Lyrics = abass {
      \abA
      \abB
      \abC
      \abD
      \abE
      \abF
    }

    % bbass: lyrics context below bass staff
    \new Lyrics = "bbass" { s1 }
    \lyricsto "bass" \context Lyrics = bbass {
      \bbA
      \bbB
      \bbC
      \bbD
      \bbE
      \bbF
      \bbG
    }
  >>

  \new PianoStaff {
    \set PianoStaff.instrumentName = "Piano   "
    \set PianoStaff.connectArpeggios = ##t
    \set PianoStaff.printKeyCancellation = ##f
    <<
      \new Staff = "rh" { \global \rhA }
      \new Dynamics = "dynamics" \dynA
      \new Staff = "lh" { \clef bass \global \lhA }
    >>
    <<
      \context Staff = "rh" { \rhB }
      \context Dynamics = "dynamics" \dynB
      \context Staff = "lh" { \lhB }
    >>
    <<
      \context Staff = "rh" { \rhC }
      \context Dynamics = "dynamics" \dynC
      \context Staff = "lh" { \lhC }
    >>
    <<
      \context Staff = "rh" { \rhD }
      \context Dynamics = "dynamics" \dynD
      \context Staff = "lh" { \lhD }
    >>
    <<
      \context Staff = "rh" { \rhE }
      \context Dynamics = "dynamics" \dynE
      \context Staff = "lh" { \lhE }
    >>
    <<
      \context Staff = "rh" { \rhF }
      \context Dynamics = "dynamics" \dynF
      \context Staff = "lh" { \lhF }
    >>
    <<
      \context Staff = "rh" { \rhG }
      \context Dynamics = "dynamics" \dynG
      \context Staff = "lh" { \lhG }
    >>
  }
>>