\version "2.18.0"

#(set-default-paper-size "a4")
#(set-global-staff-size 19.5)
#(ly:set-option 'point-and-click #f)
%nomobile

italicas=\override LyricText.font-shape = #'italic
rectas=\override LyricText.font-shape = #'upright
ss=\once \set suggestAccidentals = ##t
mtempo={\tempo 4 = 60 }
pfermata=\markup{"(" \musicglyph #"scripts.ufermata" ")"}
showMultiRests = { \set Staff.keepAliveInterfaces = #'( rhythmic-grob-interface multi-measure-rest-interface lyric-interface stanza-number-interface percent-repeat-interface) }
hideMultiRests = \unset Staff.keepAliveInterfaces
noados=\once \set Staff.aDueText = #""


htitle="BWV 232 - Et incarnatus est"
hcomposer="Bach"

%{
\header {
	title=\markup{\fontsize #3 "15. Et incarnatus est"}
	subtitle="Misa en si menor"
        subsubtitle=\markup{\raise #4 "BWV 232" \vspace #2.5 }
        composer="Johann Sebastian Bach (1685-1750)"
        pdfauthor=\composer
       %opus="(-)"
	%poet=\markup{"BWV 232"}
	copyright=\markup{
		\fill-line {"Edited by Nancho Alvarez" \typewriter "http://tomasluisdevictoria.org"}
	}
%	tagline=""
}
%}
global={
  \compressFullBarRests
  \key d \major \time 3/4 \skip 1*3/4*49 \bar "|."
}

cantus=\relative c'''{
        \set autoBeaming = ##f
        R1*3/4*5
        g4 e cis
        ais2 ais4
        b4 d b
        a!( gis) a
        gis2 gis4
        cis2 cis4
        cis bis2
        cis4 gis gis
        a2 a4
        ais2 ais4
        b2. ~
        b4 d cis
        eis( fis) d ~
        d cis b
        a2 r4
        R1*3/4*5
        gis'4 eis cis
        a2. ~
        a4( c) b
        g b e ~
        e g fis
        d2. 
        cis4 r r
        r4 d d
        dis2 dis4
        e2. ~
        e4.( d!8) cis[ b]
        ais4 b8 ais b4 ~
        b8 cis ais4. b8
        b4 r r
        R1*3/4
        r4 r cis
        d2 cis8[ b]
        e2 d8[ cis]
        fis2 r4
        e,4 g b
        e2. ~
        e ~
        e4 g,2
        fis2.^\fermata
}

cantusdos=\relative c''{
        \set autoBeaming = ##f
        R1*3/4*4
        d4 b g
        e2. ~
        e4 cis2
        b4 fis' fis
        fis2 fis4
        eis2 eis4
        fis4 b a ~
        a fis2
        eis4 eis eis
        fis2 fis4
        g!4( fis) fis
        fis eis fis
        gis a b ~
        b cis b
        gis2 gis4
        fis2 r4
        R1*3/4*4
        d'4 b gis
        eis2 eis4
        fis a c
        b fis2
        e2 b'4
        cis2 cis4
        cis b2
        ais4 ais ais
        b2 b4
        b( c) b
        b ais b
        cis!( b) e
        g4 fis8[ cis] d4 ~
        d8 e cis4. b8
        b4 r r
        R1*3/4
        r4 r4 ais
        b2. ~
        b2 fis4
        fis d b
        r4 e g
        b e b
        g2. ~
        g4 e2
        dis2.^\fermata
}

altus=\relative c''{
        \set autoBeaming = ##f
        R1*3/4*3
        b4 fis d
        b2 b4
        cis cis e
        g( fis) e
        fis b fis
        dis2 bis4
        cis2 cis4
        cis eis fis ~
        fis a( gis8[ fis])
        gis4 r r
        r cis, cis
        cis2 cis4
        dis( d) d
        cis fis eis
        b'( a) fis
        eis2 eis4
        fis2 r4
        R1*3/4*3
        a4 fis d
        b2. ~
        b4 gis2
        fis4 cis' fis
        fis( a) fis
        g4. fis8 e([ d]
        cis4) e fis ~
        fis gis2
        cis,4 cis cis
        d2 b4
        fis'2 fis4
        e g8[ fis] g4
        fis2( e8[ d])
        cis4 fis b
        fis fis8[ d] e4
        d r r
        R1*3/4*2
        r4 fis g ~
        g gis a ~
        a ais b
        r4 r e,
        g( b) g
        e( g) e
        cis2 cis4
        fis,2.^\fermata
}

tenor=\relative c'{
        \set autoBeaming = ##f
        R1*3/4*6
        cis4 ais fis
        d2 d4
        fis dis fis
        gis cis gis
        a8[ b] cis4 cis
        d4 d2
        gis,2 r4
        r a cis
        e( cis) fis
        b,2 a4
        gis4 fis b
        d( cis) d
        gis,( cis) cis
        cis2 r4
        R1*3/4*2
        fis4 cis a
        fis2 fis4
        gis gis b
        d( cis) b
        cis fis a,
        fis2 b4
        b2 g'4
        e( cis) ais
        fis4 b2
        fis'4 r r
        r4 fis fis
        fis( dis) b
        b( e4.) d!8
        cis4 d g8[ fis]
        e4( d) gis,8[ ais]
        b4( cis) fis
        fis r r
        R1*3/4*2
        r4 r b,
        cis2.
        d
        e ~
        e ~
        e2 e4
        r4 e e,
        b'2.^\fermata
        
}

bassus=\relative c'{
        \set autoBeaming = ##f
        R1*3/4*7
        b4 fis d
        bis2 bis4
        b!2 b'4
        a gis fis
        d2. 
        cis2 r4
        r4 fis fis
        e2 e4
        dis( gis) fis
        eis fis gis ~
        gis a b
        cis2 cis,4
        fis2 r4
        R1*3/4*6
        cis'4 a fis
        dis2 dis4
        e2 e4
        ais,2 ais'4
        b eis,2
        fis4 r r
        r4 b b
        a2 a4
        gis( cis) b
        ais b cis ~
        cis d eis,
        fis2 fis4
        b,4 r r
        R1*3/4*2
        b4 d( e)
        cis e( fis)
        d fis( g)
        e2. ~
        e ~
        e8[ g fis e] dis[ e]
        ais,2 ais4
        b2.^\fermata
}

textocantus=\lyricmode{
Et in -- car -- na -- tus est,
in -- car -- na -- tus est
de Spi -- ri -- tu San -- cto,
ex Ma -- ri -- a vir -- gi -- ne,
ex Ma -- ri -- a vir -- gi -- ne
et in -- car -- na -- tus est
de Spi -- ri -- tu San -- cto
ex Ma -- ri -- a vir -- gi -- ne,
ex Ma -- ri -- a vir -- gi -- ne
et ho -- mo fa -- ctus est
et ho -- mo fa -- ctus est.
}

textocantusdos=\lyricmode{
Et in -- car -- na -- tus est,
in -- car -- na -- tus est
de Spi -- ri -- tu San -- cto,
ex Ma -- ri -- a vir -- gi -- ne,
ex Ma -- ri -- a,
Ma -- ri -- a vir -- gi -- ne
et in -- car -- na -- tus est,
in -- car -- na -- tus est
de Spi -- ri -- tu San -- cto,
ex Ma -- ri -- a vir -- gi -- ne,
ex Ma -- ri -- a,
ex Ma -- ri -- a vir -- gi -- ne
et ho -- mo fa -- ctus est
et ho -- mo,
ho -- mo fa -- ctus est.
}

textoaltus=\lyricmode{
Et in -- car -- na -- tus est,
in -- car -- na -- tus est,
in -- car -- na -- tus est
de Spi -- ri -- tu San -- cto
ex Ma -- ri -- a vir -- gi -- ne,
ex Ma -- ri -- a vir -- gi -- ne
et in -- car -- na -- tus est,
in -- car -- na -- tus est
de Spi -- ri -- tu San -- cto,
ex Ma -- ri -- a vir -- gi -- ne,
ex Ma -- ri -- a,
Ma -- ri -- a vir -- gi -- ne
et ho -- mo fa -- ctus est
et ho -- mo,
ho -- mo fa -- ctus est.
}

textotenor=\lyricmode{
Et in -- car -- na -- tus est,
in -- car -- na -- tus est
de Spi -- ri -- tu San -- cto
ex Ma -- ri -- a vir -- gi -- ne,
ex Ma -- ri -- a vir -- gi -- ne
et in -- car -- na -- tus est,
in -- car -- na -- tus est,
in -- car -- na -- tus est
de Spi -- ri -- tu San -- cto
ex Ma -- ri -- a vir -- gi -- ne,
ex Ma -- ri -- a __ vir -- gi -- ne
et ho -- mo,
ho -- mo fa -- ctus est.
}

textobassus=\lyricmode{
Et in -- car -- na -- tus est
de Spi -- ri -- tu San -- cto
ex Ma -- ri -- a vir -- gi -- ne,
ex Ma -- ri -- a vir -- gi -- ne
et in -- car -- na -- tus est
de Spi -- ri -- tu San -- cto
ex Ma -- ri -- a vir -- gi -- ne,
ex Ma -- ri -- a vir -- gi -- ne
et ho -- mo fa -- ctus est, __
ho -- mo fa -- ctus est.
}


violinuno = \relative c' {
        \set aDueText= #""
        r8 fis-. cis( d) ais( b)
        r8 b'-. fis( g) dis( e)
        r8 g'-. ais,( cis e) g,-.
        fis-. d'-. ais( b) eis,( fis)
        r8 fis'-. cis( d) ais( b)
        r8 e-. ais,( b) fis( g)
        r8 cis-. fis,( g) dis( e)
        r8 d'-. ais( b) eis,( fis)
        r dis'-. gis,( a) eis( fis)
        r8 cis'-. gis( a) eis( fis)
        r8 cis'-. eis,( fis) bis,( cis)
        r8 fis'-. bis,( cis) eis,( fis)
        r8 gis'-. bis,( cis) eis,( fis)
        r8 fis'-. bis,( cis) gis( a)
        r8 g'!-. cis,( d) ais( b)
        r8 fis'-. ais,( b) eis,( fis)
        r8 b-. eis,( fis) cis( d)
        r8 b''-. eis,( fis) cis( d)
        r8 d-. gis,( a) eis( fis)
        cis-. cis'-. gis( a) eis( fis)
        r8 fis'-. cis( d) ais( b)
        r8 d-. eis,( gis b) d,-.
        cis-. a'-. eis( fis) bis,( cis)
        r8 cis'-. gis( a) eis( fis)
        r8 b-. eis,( fis) cis( d)
        r8 gis'-. cis,( d) ais( b)
        r8 a'!-. eis( fis) dis( e)
        r8 a-. fis( g) dis( e)
        r8 g-. dis( e) ais,( b)
        r8 g'-. dis( e) bis( cis)
        r8 fis-. cis( d) ais( b)
        r8 e-. cis( d) ais( b)
        r8 d-. ais( b) eis,( fis)
        r8 b'-. fis( g) dis( e)
        r8 e-. ais,( b) fis( g)
        r8 fis'-. cis( d) ais( b)
        r8 cis-. fis,( g) cis,( d)
        r8 b'-. fis( g) cis,( d)
        r8 fis'-. cis( d) ais( b)
        r8 b'-. fis( g) dis( e)
        r8 g-. ais,( cis e) g,-.
        fis-. d'-. ais( b) fis( g)
        r8 e'-. bis( cis) gis( a)
        r8 fis'-. cis( d) ais( b)
        g'4 r r8 b-.
        fis( g) dis( e) r g-.
        dis( e) b( c) r e-.
        cis!-. g-. dis( e) ais,( b)
        b2.^\fermata

}

violindos=\relative c'{
        r8 fis-. cis( d) ais( b)
        r8 b'-. fis( g) dis( e)
        r8 g'-. ais,( cis e) g,-.
        fis-. d'-. ais( b) eis,( fis)
        r8 fis'-. cis( d) ais( b)
        r8 e-. ais,( b) fis( g)
        r8 cis-. fis,( g) dis( e)
        r8 d'-. ais( b) eis,( fis)
        r dis'-. gis,( a) eis( fis)
        r8 cis'-. gis( a) eis( fis)
        r8 cis'-. eis,( fis) bis,( cis)
        r8 fis'-. bis,( cis) eis,( fis)
        r8 gis'-. bis,( cis) eis,( fis)
        r8 fis'-. bis,( cis) gis( a)
        r8 g'!-. cis,( d) ais( b)
        r8 fis'-. ais,( b) eis,( fis)
        r8 b-. eis,( fis) cis( d)
        r8 b''-. eis,( fis) cis( d)
        r8 d-. gis,( a) eis( fis)
        cis-. cis'-. gis( a) eis( fis)
        r8 fis'-. cis( d) ais( b)
        r8 d-. eis,( gis b) d,-.
        cis-. a'-. eis( fis) bis,( cis)
        r8 cis'-. gis( a) eis( fis)
        r8 b-. eis,( fis) cis( d)
        r8 gis'-. cis,( d) ais( b)
        r8 a'!-. eis( fis) dis( e)
        r8 a-. fis( g) dis( e)
        r8 g-. dis( e) ais,( b)
        r8 g'-. dis( e) bis( cis)
        r8 fis-. cis( d) ais( b)
        r8 e-. cis( d) ais( b)
        r8 d-. ais( b) eis,( fis)
        r8 b'-. fis( g) dis( e)
        r8 e-. ais,( b) fis( g)
        r8 fis'-. cis( d) ais( b)
        r8 cis-. fis,( g) cis,( d)
        r8 b'-. fis( g) cis,( d)
        r8 fis'-. cis( d) ais( b)
        r8 b'-. fis( g) dis( e)
        r8 g-. ais,( cis e) g,-.
        fis-. d'-. ais( b) fis( g)
        r8 e'-. bis( cis) gis( a)
        r8 fis'-. cis( d) ais( b)
        g'4 
        \partcombineApart
        r8 g-. dis( e)
        ais,( b) r8 e-. b( c)
        fis,( g) r8 g-. fis( g) 
        e-. g-. dis( e) ais,( b)
        b2.^\fermata
}

cello=\relative c{
       b4( b b)
       b( b b)
       b( b b)
       b( b b)
       b( b b)
       b( b b)
       b( b b)
       b( b b)
       bis( bis bis)
       b!( b b)
       a( gis fis)
       d'( d d)
       cis( cis cis)
       fis,( fis fis)
       e( e e)
       dis( gis fis)
       eis( fis gis)
       gis( a b)
       cis( cis cis)
       fis,( fis fis)
       fis( fis fis)
       fis( fis fis)
       fis( fis fis)
       fis( fis fis)
       fis( fis fis)
       fis( fis fis)
       fis( fis fis)
       b( b b)
       e( e e)
       ais,( ais ais)
       b( b b)
       fis( fis fis)
       b( b b)
       a( a a)
       gis cis b
       ais b cis ~
       cis d eis,
       fis( fis fis)
       b( b b)
       b( b b)
       b( b b)
       b d e
       cis e fis
       d fis g
       e8 e'-. ais,( b) fis( g)
       r8 b-. fis( g) dis( e)
       r8 g-. dis( e) c( b)
       ais4( ais ais)
       b2.^\fermata
}

guia=\relative c'{
  \set autoBeaming = ##t

}


\markup{\bold \larger "Violino I"}
\score{
        \new Staff<<\global
	\new Voice="vi1" {
		%\set Staff.instrumentName=\markup{"Violino I, II"}
		\clef "treble"
		\violinuno }
	>> 
}
\pageBreak

\markup{\bold \larger "Violino II"}
\score{
	\new Staff <<\global
	\new Voice="vi2" {
		%\set Staff.instrumentName=\markup{"Violino II "}
		\clef "treble"
		\violindos }
	>>     
}
\pageBreak

%{
\new ChoirStaff<<

        \new Staff <<\global
        \new Voice="v1" {
                \set Staff.instrumentName="Soprano I "
                \set Staff.shortInstrumentName="S1"
                \clef "treble"
                \cantus }
        \new Lyrics \lyricsto "v1" {\textocantus }
        >>

        \new Staff <<\global
        \new Voice="v5" {
                \set Staff.instrumentName="Soprano II "
                \set Staff.shortInstrumentName="S2"
                \clef "treble"
                \cantusdos }
        \new Lyrics \lyricsto "v5" {\textocantusdos }
        >>

        \new Staff <<\global
        \new Voice="v2" {
                \set Staff.instrumentName="Alto "
                \set Staff.shortInstrumentName="A"
                \clef "treble"
                \altus }
        \new Lyrics \lyricsto "v2" {\textoaltus }
        >>
        
        \new Staff <<\global
        \new Voice="v3" {
                \set Staff.instrumentName="Tenore "
                \set Staff.shortInstrumentName="T"
                \clef "G_8"
                \tenor }
        \new Lyrics \lyricsto "v3" {\textotenor }
        >>

        \new Staff <<\global
        \new Voice="v4" {
                \set Staff.instrumentName="Basso "
                \set Staff.shortInstrumentName="B"
                \clef "bass"
                \bassus }
        \new Lyrics \lyricsto "v4" {\textobassus }
        >>        
>>
%}

\markup{\bold \larger "Continuo"}
\score{
      \new Staff<<\global
	\new Voice="cont" {
%		\set Staff.instrumentName=\markup{\larger "Continuo"}
		\clef "bass"
		\cello }
	%\new FiguredBass {\cifrado }
	>> 
}

%{
	\new Staff \with{ 
      \remove Ambitus_engraver
      fontSize = #-3
      \override StaffSymbol #'staff-space = #(magstep -4)
      }<<\global
	\new Voice="v6" {
		\clef "treble"
		\guia }
	>>
%}

%{
\layout{ 
	\context {\Lyrics 
		\override VerticalAxisGroup.staff-affinity = #UP
		\override VerticalAxisGroup.nonstaff-relatedstaff-spacing =
			#'((basic-distance . 0) (minimum-distance . 0) (padding . 1))
		\override LyricText.font-size = #1.2
		\override LyricHyphen.minimum-distance = #0.5
	}
	\context {\Score 
		tempoHideNote = ##t
		\override BarNumber.padding = #2 
	}
	\context {\Voice 
		%melismaBusyProperties = #'()
		%autoBeaming = ##f
	}

        \context {\ChoirStaff 
                  \override StaffGrouper.staffgroup-staff-spacing =
                        #'((basic-distance . 14) (minimum-distance . 0) (padding . 1))
                  \override StaffGrouper.staff-staff-spacing =
                        #'((basic-distance . 11) (minimum-distance . 0) (padding . 1))
        }

        \context {\StaffGroup
                  \override StaffGrouper.staffgroup-staff-spacing =
                        #'((basic-distance . 14) (minimum-distance . 0) (padding . 1))
                  \override StaffGrouper.staff-staff-spacing =
                        #'((basic-distance . 11) (minimum-distance . 0) (padding . 1))
        }

	\context {\Staff 
                %\RemoveEmptyStaves %notablet
                %\override VerticalAxisGroup.remove-first = ##t
%		\override VerticalAxisGroup.staff-staff-spacing =
%			#'((basic-distance . 10) (minimum-distance . 0) (padding . 1))
		\consists Ambitus_engraver 
		\override LigatureBracket.padding = #1
	}
}
%}


\paper{
	evenHeaderMarkup=\markup  \fill-line { \fromproperty #'page:page-number-string \htitle \hcomposer }
	oddHeaderMarkup= \markup  \fill-line { \on-the-fly #not-first-page \hcomposer \on-the-fly #not-first-page \htitle \on-the-fly #not-first-page \fromproperty #'page:page-number-string }
	oddHeaderMarkup = \evenHeaderMarkup
	%system-count=20
	%page-count = 16
	ragged-last-bottom = ##f
	indent=0.5\cm
	system-system-spacing =
	#'((basic-distance . 22) (minimum-distance . 0) (padding . 5))
	top-system-spacing = % header
	#'((basic-distance . 12) (minimum-distance . 0) (padding . 0))
	last-bottom-spacing = % footer
	#'((basic-distance . 15) (minimum-distance . 0) (padding . 0))
	markup-system-spacing.padding = #1.5
}