%
% "He Is Risen" for flute and two violins
%

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

#(set-global-staff-size 21)

\header {
  title = "He Is Risen"
  subtitle = "Flute and Two Violins"
  subsubtitle = "Version 1.0 - March 1, 2008"
  copyright = \markup {
    \center-align { "Musical arrangement placed into public domain; unlimited use is permitted."
    \line {"For more information, more songs or more copies: http://dt.prohosting.com/sheetmusic"} } }
  poet = "Cecil Frances Alexander"
  composer = "Joachim Neander"
  arranger = \markup { \tiny "(arr: David Thomas)" }
}

\layout {
  \context { \RemoveEmptyStaffContext }
}

% SEGMENT A: intro
fnA = {
  \key c \major
  \override Staff.TimeSignature #'style = #'()
  \time 4/4
  R1 | R1 | R1 | R1
  \mark \default
}
tnA = \relative c'' {
  \key c \major
  \override Staff.TimeSignature #'style = #'()
  \time 4/4
  c2:32\p <c e>:32 | <c g'>1:32 |
  c2:32 <g c>:32 | <f c'>:32 <d b'>2\fermata |
}
snA = \relative c'' {
  \key c \major
  \override Staff.TimeSignature #'style = #'()
  \time 4/4
  c2:32\p b:32 | <a e'>:32 g:32 |
  <f a>:32 e:32 | d:32 <g, d'>2\fermata |
}

% SEGMENT B: verse 1
fnB = \relative c'' {
  c4.\(\mp d8 e4 c | e f g g\) |
  c4\( b8 a g4 f8 e | d4 d c\) r |
  c4.\( d8 e4 c | e f g g\) |
  c4 b8( a) g4 e' | d-_ d-_ c r |
  c4-- c-- b-- b-- | a-- a-- gs8( fs e d) |
  c4 c8( d) e4 e4 | c-_ b-_ c2 \breathe |
  \textSpannerUp
  \override TextSpanner #'edge-text = #'("rit. e cresc. " . "")
  \override TextSpanner #'padding = #0.5
  r2\startTextSpan r4 c4 |
  \appoggiatura { d32[ e fs g] } a1\trill\stopTextSpan | \bar "||"
  \mark \default
}
tnB = \relative c'' {
  <g c>2\mp <g b> | a( g) |
  c <g c> | c4-_( b-_) c8( g) e( g) |
  c,8( e g c) b4 r | a8( b c a) g4 r |
  a'4 g8( f) e4 c | c-_ b-_ c \appoggiatura d32 c16( b c d) |
  e4-- e-- d-- d-- | c-- c-- b2 |
  a4. a8 g4 c | d-_ d-_ c2 \breathe |
  \textSpannerUp
  \override TextSpanner #'edge-text = #'("rit. e cresc. " . "")
  \override TextSpanner #'padding = #2
  <c e>2\startTextSpan( <bf e>2) |
  <a e'>4. <d e>16 <d e> <d e>4-> <cs e>->\stopTextSpan | \bar "||"
}
snB = \relative c' {
  <c e>2\mp <c e> | <c e>1 |
  <f a>2 e | d4-_ g-_ c,2 |
  r2 b'8( g' c, b) | a4 r g8( c b c) |
  f,8( d e f) g( e a a,) | d8( e16 f) g8( g,) c4 r |
  c8 d e f g4-- g,-- | a8 b c d e fs gs4 |
  a f e a | d,-_ g-_ c,2 \breathe |
  \textSpannerUp
  \override TextSpanner #'edge-text = #'("rit. e cresc " . "")
  \override TextSpanner #'padding = #0.5
  c4.\startTextSpan d8 e4 c |
  <a g'>4. <a g'>16 <a g'> <a g'>4-> <a e'>->\stopTextSpan | \bar "||"
}

% SEGMENT C: verse 2
fnC = \relative c'' {
  \key d \major
  a4\mf^\markup { \italic \bold \tiny "a tempo" } r4 r2 | d4. e8 fs4 d |
  fs g a a | d cs8( b) a4 r4 |
  d,4. e8 fs4 d | fs g a a |
  d cs8( b) a4 fs' | e4 e d2 \breathe |
  d4-- d-- cs-- cs-- | b-- b-- as2 |
  b4. b8 a4 d | e cs d2 \breathe |
  \mark \default
}
tnC = \relative c'' {
  \key d \major
  <d fs>4\mf^\markup { \italic \bold \tiny "a tempo" } r4 r2 | R1 |
  b4. cs8 d4 a | d e fs fs |
  a4 g8( fs) d4 fs~ | fs8 e d cs e d a fs |
  b4. cs8 d fs a4 | a g\turn fs2 \breathe |
  fs4-- fs-- e-- e-- | d-- d-- cs2 |
  b4 b8( cs) d4 fs | g e fs2 \breathe |
}
snC = \relative c' {
  \key d \major
  d4.\mf^\markup { \italic \bold \tiny "a tempo" } e8 fs4 d | fs g a a |
  d cs8( b) a4 fs' | e e d2 |
  R1 | d,4. e8 fs4 d |
  g fs8 g a4 d | d cs d2 \breathe |
  d,4-- fs-- a-- a,-- | b8 cs d e fs4( e) |
  d4 g fs b | b a <d, a'>8 e fs g |
}

% SEGMENT D: ending
fnD = \relative c''' {
  r4 d~ d cs | r b~ b as | b4. b8 a4 d |
  e1\f | cs1 | d1~ |
  \override Script #'padding = #2
  d\fermata | \bar "|."
}
tnD = \relative c'' {
  r2 a4( g) | fs4 r fs4. e8 | <d b'>4. <g b>8 <fs a>4\downbow <fs d'>\downbow |
  d'8\f cs b a g fs e d | <cs' e>4. <cs e>16 <cs e> <cs e>4 <a g'> |
  \textSpannerUp
  \override TextSpanner #'edge-text = #'("rit. " . "")
  \override TextSpanner #'padding = #1.5
  <a fs'>2\startTextSpan <d, d'>8\downbow r <d d'>\downbow r |
  \override Script #'padding = #1
  <d d'>1\fermata\stopTextSpan | \bar "|."
}
snD = \relative c' {
  fs4-- fs-- e-- e-- | d-- d-- cs2 |
  <g d'>4 d'8 e <a, d>4\downbow <b d>\downbow |
  <e d'>4.\f <e d'>16 <e d'> <e d'>4 <e d'> |
  e'8 d cs b a g fs e |
  \textSpannerUp
  \override TextSpanner #'edge-text = #'("rit. " . "")
  \override TextSpanner #'padding = #1
  <d a'>2\startTextSpan <g b>8 d <g b> d |
  \override Script #'padding = #1
  <fs a>1\fermata\stopTextSpan | \bar "|."
}

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

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

  \new Staff = "flute" {
    \override Score.MetronomeMark #'extra-offset = #'( -8 . 3 )
    \tempo 4=100
    \set Staff.instrumentName = \markup { "Flute " }
    \set Staff.shortInstrumentName = "Fl. "
    \set Staff.printKeyCancellation = ##f
    \clef treble
    \fnA
    \fnB
    \fnC
    \fnD
  }
  \new Staff = "vOne" {
    \set Staff.instrumentName = \markup { "Violin 1 " }
    \set Staff.shortInstrumentName = "V1 "
    \set Staff.printKeyCancellation = ##f
    \key c \major
    \override Staff.TimeSignature #'style = #'()
    \time 4/4
    \clef treble
    \tnA
    \tnB
    \tnC
    \tnD
  }
  \new Staff = "vTwo" {
    \set Staff.instrumentName = \markup { "Violin 2 " }
    \set Staff.shortInstrumentName = "V2 "
    \set Staff.printKeyCancellation = ##f
    \key c \major
    \override Staff.TimeSignature #'style = #'()
    \time 4/4
    \clef treble
    \snA
    \snB
    \snC
    \snD
  }
>>