\version "1.4.12"
\include "paper20.ly"

italicas=\property Lyrics . LyricText \override #'font-shape = #'italic
rectas=\property Lyrics . LyricText \override #'font-shape = #'upright


\header{
	composer="J. S. Bach \\\\ \\ "
	title="WAHRLICH \\\\ \\ "
	subtitle="Pasión según S. Mateo, nº 73 (fragmento) \\\\ \\ \\\\ \\ \\\\ \\ "
	footer="Editado con LilyPond"
	tagline="Copia: Nancho Alvarez"
	poet="(original un semitono más alto)"
	piece="\qquad \qquad \qquad Lento"
}





%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%5

global=\notes{\key g \major \time 4/4  \skip 1*5 \bar "|."
}

cantus=\notes{\transpose b {
	c''4 aes' f''2 ~ |
	f''4 ees''8 des'' ees''4 g'' | \break
	aes''4( [g''8 f''] ees''2 ~ |
	)ees''4 aes' [des''8( c''] )des''4 |
%5
	c''2*2
}
}

altus=\notes{\transpose b {
	aes'4 ees' [f'8( g'] aes'4 ~ |
	)aes' g'8 f' g'4 bes' |
	aes'( )des'' c''( )bes' |
	[aes'8( g'] f'2 )ees'4 |
%5
	ees'2*2
}
}

tenor=\notes{\transpose b {
	ees'4 c' c' aes |
	f' g'8 aes' [g'( f' ees' des'] |
	)ees'4 des' ees' [f'8( )g'] |
	aes2.( )g4 |
%5
	aes2*2
}
}

bassus=\notes{\transpose b {
	r2 aes4 f |
	des'2. c'8 bes |
	c'4 bes c'( )ees |
	f( )des bes,( )ees |
%5
	aes,2*2
}
}

textocantus=\lyrics{
Wahr -- lich, die -- ser ist Got -- tes Sohn ge -- we -- sen.
}


textoaltus=\lyrics{
Wahr -- lich, die -- ser ist Got -- tes Sohn ge -- we -- sen.
}


textotenor=\lyrics{
Wahr -- lich, wahr -- lich, die -- ser ist Got -- tes Sohn ge -- we -- sen.
}

textobassus=\lyrics{
Wahr -- lich, die -- ser ist Got -- tes Sohn ge -- we -- sen.
}


\score{
	\context ChoirStaff <
		\property Score.noAutoBeaming=##t
		\property Score.automaticMelismata=##t
		\addlyrics
		\context Staff = "v1"<
			\property Staff.instrument="Soprano   "
			\global
			\clef	treble
			\cantus
		>
		\context Lyrics="l1" \textocantus


		\addlyrics
		\context Staff = "v2"<
			\property Staff.instrument="Contralto   "
			\global
			\clef treble	
			\altus
		>
		\context Lyrics="l2" \textoaltus



		\addlyrics
		\context Staff = "v3"<
			\property Staff.VerticalExtent = #'(0 . 0)
			\property Staff.instrument="Tenor  "
			\global
			\clef "G_8"	
			\tenor
		>
		\context Lyrics="l3" \textotenor

		\addlyrics
		\context Staff ="v4"<
			\property Staff.instrument="Bajo  "
			\global
			\clef bass
			\bassus
		>
		\context Lyrics="l4" \textobassus
	>



\paper {
	linewidth=18.8 \cm
	interscoreline= 0.0 \cm
	interscorelinefill= 1.0
	textheight= 25.5 \cm
	pagenumber=no
	\translator { \LyricsContext LyricText \override #'font-relative-size = #1 }
%	\translator { \HaraKiriStaffContext }
	\translator { \ScoreContext BarNumber \override #'padding = #2 }

}



%\midi {\tempo 4 = 120}


}