\include "deutsch.ly" 

#(ly:set-option 'point-and-click #f)

#(set-default-paper-size "a4")

% Sinnvoller Bereich ca. 17 ... 21
#(set-global-staff-size 17) 


\version "2.10" 


global = { \key c \major \time 4/4 } 

SopNote = \relative c'
{ 
  %\pageBreak
  e2 a4 g4 | f4 e4  d2 | e2 h'2 |
  c4 c4 h4 h4 | a1 | e2 a4 g4 |
  f4 e4 d2 | e2 h'2 | c4 c4 h4 h4 | 
  a2 c2 | h4 g4 a4 h4 | c2 c4 g4 |
  a4 g4 f4 f4 | e2 c'2 | 
  %Phantomzeichen zur Einstellung der Anfangshöhe auf Seite 2
  \once \override TextScript #'padding = #12 h4^\markup{ \italic \small ""}
  d4 c4 h4 | a2 h4 e,4 | f4 e4 d4 d4 | e1(  | e1) |
  \bar "|."

} 

AltNote = \relative c' 
{ 
  g2 a4 c4 | a8 \noBeam h8 c4.( h16 a16 h4) | c2 d2 |
  e4 e4 e4 e4 | e1 | g,2 a4 c4 | a8 \noBeam h8 c4.( h16 a16 h4) |
  c2 d2 | e4 e4 e4 e4 | e2 e2 | g4 c,4 c4 d4 | e2 e4 e4 |
  f4 e4 d4 d4 | cis2 r4 e4 | g4 g4 e4 d4 |
  d2 d4 c4 | d4 c4 c4 h4 | c4 c4 a4 h4 | c4 c4 h2 |
} 

TenNote = \relative c' 
{ 
  c2 c4 c4 | d4 g,4 g2 | g2 g2 | g4 a4 a4 gis4 |
  a1 | c2 c4 c4 | d4 g,4 g2 | g2 g2 | g4 a4 a4 gis4 |
  a2 r4 a4 | d4 c4 a4 f4 | g2 g4 c4 | c4 c4 a4 a4 |
  a2 r4 a4 | g4 g4 g4 g4( | g4) fis4 g4 g4 |
  b4 g4 g4 g4 | g4 a4 c4 h4 | a4 a4 gis2 |
} 

BasNote = \relative c 
{ 
  c2 f4 e4 | d4 c4 g2 | c2 g2 | c4 a4 e'4 e4 |
  a,1 | c2 f4 e4 | d4 c4 g2 | c2 g2 |
  c4 a4 e'4 e4 | a,2 a'2 | g4 e4 f4 d4 |
  c2 c4 c4 | f4 c4 d4 d4 | a2 a2 | 
  e'4 h4 c4 g4 | d'2 g,4 c4 | b4 c4 g4 g4 |
  c4 a4 a4 gis4 | a4 a4 e2 |
} 


StfOneTxtLnA = \lyricmode {
\set stanza = "1. "
O Haupt voll Blut und Wun -- den,
voll Schmerz und vol -- ler Hohn,
o Haupt zum Spott ge -- bun -- den
mit ei -- ner Dor -- nen -- kron,
o Haupt sonst schön ge -- zie -- ret
mit höch -- ster Ehr und Zier,
jetzt a -- ber hoch schim -- pfie -- ret:
ge -- grü -- ßet seist du mir.
} 

StfOneTxtLnB = \lyricmode {
\set stanza = "2. " 
Du ed -- les An -- ge -- sich -- te, da -- vor
sonst schrickt und scheut das gro -- ße 
Welt -- ge -- wich -- te: wie bist du so
be -- speit, wie bist du so er -- blei -- chet!
Wer hat dein Au -- gen -- licht, dem sonst
kein Licht nicht glei -- chet, so 
schänd -- lich zu -- ge -- richt.
} 

StfOneTxtLnC = \lyricmode {
\set stanza = "9. " 
Wenn ich ein -- mal soll schei -- den,
so schei -- de nicht von mir, wenn 
ich den Tod soll lei -- den so tritt 
du dann her -- für; wenn mir am 
al -- ler -- bäng -- sten wird um das 
Her -- ze sein, so reiß mich aus 
den Äng -- sten Kraft dei -- ner Angst
und Pein.
} 


StfTwoTxtLnA = \lyricmode {
\set stanza = "1. " 
O Haupt voll Blut und Wun -- den,
voll Schmerz und vol -- ler Hohn,
o Haupt zum Spott ge -- bun -- den
mit ei -- ner Dor -- nen -- kron,
o Haupt sonst schön ge -- zie -- ret
mit höch -- ster Ehr und Zier,
jetzt a -- ber hoch schim -- pfie -- ret:
ge -- grü -- ßet seist du mir,
ge -- grü -- ßet seist du mir.
} 

StfTwoTxtLnB = \lyricmode {
\set stanza = "2. " 
Du ed -- les An -- ge -- sich -- te, da -- vor
sonst schrickt und scheut das gro -- ße 
Welt -- ge -- wich -- te: wie bist du so
be -- speit, wie bist du so er -- blei -- chet!
Wer hat dein Au -- gen -- licht, dem sonst
kein Licht nicht glei -- chet, so 
schänd -- lich zu -- ge -- richt, 
so schänd -- lich zu -- ge -- richt.
} 

StfTwoTxtLnC = \lyricmode {
\set stanza = "9. " 
Wenn ich ein -- mal soll schei -- den,
so schei -- de nicht von mir, wenn 
ich den Tod soll lei -- den so tritt 
du dann her -- für; wenn mir am 
al -- ler -- bäng -- sten wird um das 
Her -- ze sein, so reiß mich aus 
den Äng -- sten kraft dei -- ner Angst
und Pein, Kraft dei -- ner Angst und Pein.
}

StfTreTxtLnA = \lyricmode {
\set stanza = "1. " 
O Haupt voll Blut und Wun -- den,
voll Schmerz und vol -- ler Hohn,
o Haupt zum Spott ge -- bun -- den
mit ei -- ner Dor -- nen -- kron,
o Haupt sonst schön ge -- zie -- ret
mit höch -- ster Ehr und Zier,
jetzt a -- ber hoch schim -- pfie -- ret:
ge -- grü -- ßet seist du mir,
ge -- grü -- ßet seist du mir.
} 

StfTreTxtLnB = \lyricmode {
\set stanza = "2. " 
Du ed -- les An -- ge -- sich -- te, da -- vor
sonst schrickt und scheut das gro -- ße 
Welt -- ge -- wich -- te: wie bist du so
be -- speit, wie bist du so er -- blei -- chet!
Wer hat dein Au -- gen -- licht, dem sonst
kein Licht nicht glei -- chet, so 
schänd -- lich zu -- ge -- richt, 
so schänd -- lich zu -- ge -- richt.
} 

StfTreTxtLnC = \lyricmode {
\set stanza = "9. " 
Wenn ich ein -- mal soll schei -- den,
so schei -- de nicht von mir, wenn 
ich den Tod soll lei -- den so tritt 
du dann her -- für; wenn mir am 
al -- ler -- bäng -- sten wird um das 
Her -- ze sein, so reiß mich aus 
den Äng -- sten Kraft dei -- ner Angst
und Pein, Kraft dei -- ner Angst und Pein.
}


StfFouTxtLnA = \lyricmode {
\set stanza = "1. " 
O Haupt voll Blut und Wun -- den,
voll Schmerz und vol -- ler Hohn,
o Haupt zum Spott ge -- bun -- den
mit ei -- ner Dor -- nen -- kron,
o Haupt sonst schön ge -- zie -- ret
mit höch -- ster Ehr und Zier,
jetzt a -- ber hoch schim -- pfie -- ret:
ge -- grü -- ßet seist du mir,
ge -- grü -- ßet seist du mir.
} 

StfFouTxtLnB = \lyricmode {
\set stanza = "2. " 
Du ed -- les An -- ge -- sich -- te, da -- vor
sonst schrickt und scheut das gro -- ße 
Welt -- ge -- wich -- te: wie bist du so
be -- speit, wie bist du so er -- blei -- chet!
Wer hat dein Au -- gen -- licht, dem sonst
kein Licht nicht glei -- chet, so 
schänd -- lich zu -- ge -- richt, 
so schänd -- lich zu -- ge -- richt.
} 

StfFouTxtLnC = \lyricmode {
\set stanza = "9. " 
Wenn ich ein -- mal soll schei -- den,
so schei -- de nicht von mir, wenn 
ich den Tod soll lei -- den so tritt 
du dann her -- für; wenn mir am 
al -- ler -- bäng -- sten wird um das 
Her -- ze sein, so reiß mich aus 
den Äng -- sten kraft dei -- ner Angst
und Pein, Kraft dei -- ner Angst und Pein.
}


%--------------------
% Maintainer: Sven Kaiser / e-mail: noten(at)oemsel.de
% o_haupt_voll_blut_und_wunden_crueger_s-a-t-b.ly
% 2012-01-25

\header {
  % Headers completely removed by setting them to false -> nnn = ##f
  % Second line -> header = \markup \center-align { "Header first line" "Header second line" }
  % Formats -> header = \markup { \formatdef "headertext" }
    % formatdef -> \teeny \tiny \normalsize \large \huge \bold \italic \normal-text

  %The title of the music, centered just below the dedication. 
  title ="O Haupt voll Blut und Wunden"

  %Name of the poet, flush-left below the subtitle. 
  poet ="Paul Gerhardt (1607 - 1676)"

  %Name of the composer, flush-right below the subtitle. 
  composer ="Johann Crüger (1598 - 1662)"

  %This forces the title to start on a new page (set to ##t or ##f). 
  breakbefore = ##f

  %Centered at the bottom of the last page. Default is “Music engraving by LilyPond (version)”.
  %tagline =\markup { \tiny "Music engraving by LilyPond 2.10.25—www.lilypond.org" }
  tagline = \markup { \tiny \italic"Notensatzprogramm: http://lilypond.org   -   Rev. 2   -   Notendownload: www.oemsel.de/noten" }}  



% Defintion Formate Seitensatz
\paper{
  top-margin = 1\cm
  left-margin = 2\cm
  line-width = 17\cm
  after-title-space = 1.7\cm
  bottom-margin = 1.3\cm  

  % If true, systems not spreaded vertically across all "not-last" pages; def. = false. 
  ragged-bottom = ##t

  % If false, systems spreaded vertically to fill the last page. Def. = true.
  %ragged-last-bottom = ##f
  
  % For proper vertikal system distribution either
    between-system-space = 3\cm
  % or
    %between-system-padding = 2\cm

  print-page-number = ##f
}

% Aufbau SATB mit einzelnen Notenzeilen und (mehrstrophigen) Text unter jeder Notenzeile
\score {
	\new ChoirStaff <<
		\new Staff = "SopStf" <<
    			\clef "G2"
			\set Staff.instrumentName = \markup {\center-align {"Sopran "}}
			\new Voice = "SopVce" {\global \SopNote} 
		>>
			\new Lyrics = SopTxtLnA { s1 }
			\new Lyrics = SopTxtLnB { s1 }
			\new Lyrics = SopTxtLnC { s1 }

		\new Staff ="AltStf" <<
			\clef "G2"
			\set Staff.instrumentName = \markup {\center-align {"Alt "}}
			\new Voice = "AltVce" {\global \AltNote} 
		>>
			\new Lyrics = AltTxtLnA { s1 }
			\new Lyrics = AltTxtLnB { s1 }
			\new Lyrics = AltTxtLnC { s1 }

		\new Staff ="TenStf" <<
			\clef "G2_8"
			\set Staff.instrumentName = \markup {\center-align {"Tenor "}}
			\new Voice = "TenVce" {\global \TenNote} 
		>>
			\new Lyrics = TenTxtLnA { s1 }
			\new Lyrics = TenTxtLnB { s1 }
			\new Lyrics = TenTxtLnC { s1 }

		\new Staff ="BasStf" <<
			\clef "F"
			\set Staff.instrumentName = \markup {\center-align {"Bass "}}
			\new Voice = "BasVce" {\global \BasNote} 
		>>
			\new Lyrics = BasTxtLnA { s1 }
			\new Lyrics = BasTxtLnB { s1 }
			\new Lyrics = BasTxtLnC { s1 }


		\context Lyrics = SopTxtLnA \lyricsto SopVce \StfOneTxtLnA
		\context Lyrics = SopTxtLnB \lyricsto SopVce \StfOneTxtLnB
		\context Lyrics = SopTxtLnC \lyricsto SopVce \StfOneTxtLnC
		\context Lyrics = AltTxtLnA \lyricsto AltVce \StfTwoTxtLnA
		\context Lyrics = AltTxtLnB \lyricsto AltVce \StfTwoTxtLnB
		\context Lyrics = AltTxtLnC \lyricsto AltVce \StfTwoTxtLnC
		\context Lyrics = TenTxtLnA \lyricsto TenVce \StfTreTxtLnA
		\context Lyrics = TenTxtLnB \lyricsto TenVce \StfTreTxtLnB
		\context Lyrics = TenTxtLnC \lyricsto TenVce \StfTreTxtLnC
		\context Lyrics = BasTxtLnA \lyricsto BasVce \StfFouTxtLnA
		\context Lyrics = BasTxtLnB \lyricsto BasVce \StfFouTxtLnB
		\context Lyrics = BasTxtLnC \lyricsto BasVce \StfFouTxtLnC
	>>

	% erste Zahl: Schläge pro Minute / zweite Zahl: Bezugsnotenlänge, z.B. 4 entsprich Viertelnote
   	%\midi { \context { \Score tempoWholesPerMinute = #(ly:make-moment 100 4) } }
	
		\layout { 
        	% erster Parameter: Abstand Notenlinie / Text in einer Stimme ->
	  % Je größer der Zahlenwert desto kleiner der Abstand ; Standardwert -4
        	% zweiter Parameter: Abstand Text / Notenlinie zwischen zwei verschiedenen Stimmen ->
	  % Je größer der Zahlenwert desto größer der Abstand ; Standardwert 4
        	\context { \Staff \override VerticalAxisGroup #'minimum-Y-extent = #'(-1 . 5) }

	% schaltet die Nummerierung der Takte aus
	%\context { \Score \remove "Bar_number_engraver" } 

 	% Steuert die Höhe der Taktnummerierung über dem System
	\context { \Score \override BarNumber #'padding = #2.0 } 

	% steuert die Einrückung des ersten Systems; Standardwert = automatisch eingerückt
        %indent = #0

	% f (Standardwert) = letzte/s Zeile/System wird auf Zeilenlänge gestreckt
	%ragged-last = ##t

	% f (Standardwert) = alle Zeilen/Systeme werden auf Zeilenlänge gestreckt;
	% kann insbes. zur Kontrolle der ungesteckten Zeilenlängen verwendet werden
	%ragged-right = ##t
	}
}