
% TODO:
% Copyright, Header etc.
% Begleitsatz
% Tempo

\include "deutsch.ly"

global = \notes {
	\time 2/2; \partial 2*1;
	\key g;

	s2 | s1 | s1 |
	\time 3/2;
	s1. | s1. |
	\time 2/2;
	s1 | s1 | s1 | s2

	s2 | s1 | s1 |
	\time 3/2;
	s1. | s1. |
	\time 2/2;
	s1 | s1
	\time 3/2;
	s1. \bar "||";

	s1. | s1. | s1. | s1. |
	s1. | s1. | s1. | s1. \bar "||";

	\key es;
	s1. | s1. | s1. | s1. |
	s1. | s1. | s1. | s1 \bar "||";

	\key g;
	s2 |
	\time 2/2;
	s1 | s1 |
	\time 3/2;
	s1. | s1. |
	\time 2/2;
	s1 | s1 | s1 | s2

	s2 | s1 | s1 |
	\time 3/2;
	s1. | s1. |
	\time 2/2;
	s1 | s1 | s1 \bar "|.";
}

themeMelody = \notes \relative c'' {
	g2 | g d' | h a |
	g fis g | a ~ a \breathe b |
	d b | a a | g ~ g ~ | g \breathe

	g2 | g d' | h a |
	g fis g | a ~ a \breathe b |
	d b |
}

themeBeforeBreak1EndMelody = \notes \relative  c'' {
	 a2 a | g ~ g ~ g4 r4
}

themeFinalEndMelody = \notes \relative  c'' {
	 a2 a ~ | a1^\fermata
}

themeRightHand = \notes \relative c' {
	d2 | c <e g> | <e g> <d fis> | d2 es es4 c4 |
	<d1 e1> <d2 f2> | <g2 b2> f2 | <cis2 e2> <e2 g2> |
	<d2 f2> <c4 f4> cis4 | <dis2 fis2>

	<c2 e2> | <c e> <e g> | <e g> <d fis> | d2 es es4 c4 |
	<d1 e1> <d2 f2> | <g2 b2> f2 |
}

themeBeforeBreak1EndRightHand = \notes \relative c' {
	 <cis2 e2> <e2 g2> | <d2 f2> <c4 f4> cis4 <dis4 fis4> r4 |
}

themeFinalEndRightHand = \notes \relative c' {
	 <cis2 e2> <e2 g2> | <d1 f1>
}

themeLeftHand =	\notes \relative c {
	<d2 g h> | <f a h> <g c> | <g cis> c | <g2 {a4 c4}> <a2 c2> <g2 {b4 a4}> |
	<a,1 fis'1 a1> <d2 g2 b2> | <g2 b2 e2> <f2 a2 d2> | <a2 h2> <a2 cis2> |
	<g2 b2> a2 | h2

	g2 | <g a> <g c> | <g cis> c | <g2 {a4 c4}> <a2 c2> <g2 {b4 a4}> |
	<a,1 fis'1 a1> <d2 g2 b2> | <g2 b2 e2> <f2 a2 d2> |
}

themeBeforeBreak1EndLeftHand = \notes \relative c' {
	 <a2 h2> <a2 cis2> | <g2 b2> a2 h4 r4 |
}

themeFinalEndLeftHand = \notes \relative c' {
	 <a2 h2> <a2 cis2> | <g1 b1>
}

themePedal = \notes \relative c' {
	g4 fis | f2 c | a' d, |
	h c es | d ~ d b |
	e, g | a a | d, f4 a | h2

	c2 | e2 c | a' d, |
	h c es | d ~ d b |
	e, g |
}

themeBeforeBreak1EndPedal = \notes \relative c {
	a2 a | d,2 f4 a h4 r4 |
}

themeFinalEndPedal = \notes \relative c {
	a2 a | d,1_\fermata
}

break1Melody = \notes \relative c'' {
	g4( fis e fis d' h | )a1. |
	g4( es g b es g | <fis1. )a1.> |
	b,2 g es | d1. |
	b'2 g d' | a1 r2 |
}

break1RightHand = \notes \relative c' {
	e1. | g4( fis e fis g fis |
	)es1. | dis'2 d4 c b a \breathe |
	s1. | s1. |
	es1 <es2 g2> | <dis1 fis1 > r2 |
}

break1LeftHand = \notes \relative c {
	<
		\context Voice = oben {
			\stemup
			c'1. | d2. c4 h a | b1. | d1. |
		}
		\context Voice = unten {
			\stemdown
			<c,1. g'1.> | <d1. a'1.> | <es1. g1.> | d2. e4 fis d |
		}
	>
	r4 b2( g4 b c | d c b g fis d |
	<)es1 c'1> <c2 c'2> | <h1 h'1> r2 |
}

break2RightHand = \notes \relative c'' {
	g8 r8 c,8 r8 <fis8 g8> r8 c r g' r c, r |
	<fis8 g8> r  c r  b' r  es, r  <es g> r  es  r |
	b' r es, r <es g> r es r d' r <d, g> r |
	d' r f, r <f b> r f r d' r <fis, a> r |
	d' r g, r <g b> r g r d' r g, r |
	es' r g, r <g b> r g b es r <a, c> r |
	d8 r b r d8 f d b a r <a cis> r |
	<fis1 a d1> \breathe
}

break2LeftHand = \notes \relative c' {
	r8 g r g r g r g r g r g |
	r8 g r g r b r b r b r b |
	r c r c r c r c r h r h |
	r d r d r d r d r d r d |
	r d r d r d r d r c r c |
	r <b es> r <b es> r <b es> r <g es'> r f' r <a, f'> |
	r <b f'> r <b f'> r <g f'> r <g f'> r <a e'> r <a e'> |
	<d,1 d'1>
}

break2Pedal = \notes \relative c {
	c2 c g' | es1 d2 | c1 h2 |
	b1 d2 \breathe | g2 g f2 | es1 f2 |
	b,2 g a | d1 \breathe
}

\score {
	<
		\context PianoStaff <
			\context Staff = treble <
				\global
				\context Voice = melody {
					\stemup \themeMelody \themeBeforeBreak1EndMelody
					\break1Melody
					\stemboth \break2RightHand
					\stemup \themeMelody \themeFinalEndMelody
				}
				\context Voice = firstdown {
					\stemdown \themeRightHand \themeBeforeBreak1EndRightHand
					\break1RightHand
					\notes {
						s1. | s1. | s1. | s1. |
						s1. | s1. | s1. | s1
					}
					\themeRightHand \themeFinalEndRightHand
				}
			>
			\context Staff = bass <
				\clef "bass";
				\global
				{
					\themeLeftHand \themeBeforeBreak1EndLeftHand
					\break1LeftHand
					\break2LeftHand
					\themeLeftHand \themeFinalEndLeftHand
				}
			>
		>
		\context Staff = pedal {
			\clef "bass";
			<
				\global
				{
					\themePedal \themeBeforeBreak1EndPedal
					\notes {
						s1. | s1. | s1. | s1. |
						s1. | s1. | s1. | s1. |
					}
					\break2Pedal
					\themePedal \themeFinalEndPedal
				}
			>
		}
	>

	\header {
		title = "Choral I";
		subtitle = "(über ``Aus meines Herzens Grunde'')";
		composer = "Michael Krause 1999 (*1977)";
		enteredby = "Michael Krause";
		copyright = "dunno";
	}

	\paper {
		linewidth = 18.0 \cm;
		textheight = 28.0 \cm;

		indent = 0.0 \mm;
		\translator { \OrchestralScoreContext }
	}
}
