\version "2.18.0"

#(set-default-paper-size "a4")
#(set-global-staff-size 14.0)
#(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 = 136 }
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 - Crucifixus"
hcomposer="Bach"

\header {
	title=\markup{\fontsize #3 "16. Crucifixus"}
	subtitle="Misa en si menor"
        subsubtitle=\markup{\raise #.8 "BWV 232" \vspace #1 }
        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 g \major \time 3/2 \skip 1*3/2*53 \bar "|."
}

cantus=\relative c''{
        \set autoBeaming = ##f
        R1*3/2*4
        r2 c c
        c4( b) b2 r
        R1*3/2*3
        r2 f f
        f4( e) e2 r
        R1*3/2
        r2 g ais
        b2( c4 b) b2
        cis4 dis e2 e
        e( dis) dis
        R1*3/2*2
        g,2( fis) e
        dis2 b r
        r c'1 ~
        c2 b4( a) b2
        r2 e,( fis)
        g2( fis4 g a2
        gis2) a g
        fis( f) f
        e1 e2 ~
        e dis1
        e2 fis( ais
        b) e, gis
        a a1 ~
        a2 a1
        g2 c1 ~
        c2 b b
        e4( e,) a2. a4
        b1.
        r2 c1 ~
        c2( ais) b
        gis2( a!4) c b a
        d2 a( d4 a)
        b1 b2
        r4 a b c d b
        e1. ~
        e2( d) b
        c1. ~
        c2 b4 a b2 ~
        b2 a fis
        g4( a) fis2. e4
        e1 g2^\p
        fis1 f2
        e1 ees2
        d2( c4 b) c2
        b1.^\fermata
}

altus=\relative c'{
        \set autoBeaming = ##f
        R1*3/2*5
        r2 f f
        f4( e) e2 r
        R1*3/2*4
        r2 fis fis
        fis4( e) e2 r
        r f gis
        a1 ais2
        b2. c4 b2 ~
        b a( g)
        fis2 b, r
        R1*3/2
        r2 fis'1 ~
        fis2 e4( dis) e2
        fis4( gis) gis2.( fis8[ gis]
        a2) g! a
        b2( a4) g fis g
        e2 e r
        R1*3/2
        r4 a4 e2 fis
        g4 fis fis1
        e2 cis fis ~
        fis b, e ~
        e a( fis)
        dis1 dis2
        e2 dis( e
        fis2) g4( a) b2
        b a4( g) fis( e)
        dis1.
        R1*3/2
        r2 f1 ~
        f2 (dis) e2
        f1. ~
        f4 e d c d b
        fis'!2 fis fis
        g2( fis4) g e fis
        g2( fis1)
        e2 g e
        fis g( f)
        e2.( d4) c( a)
        g( fis) b2 a
        g c1^\p ~
        c2 b1 ~
        b2 c bes
        a1 a2
        g1.^\fermata
}

tenor=\relative c'{
        \set autoBeaming = ##f
        R1*3/2*6
        r2 a a
        a4( fis) dis2 r
        r c' c
        c4( b) b2 r
        R1*3/2*5
        g2( a) b
        c1. ~
        c2 b b ~
        b4 a a2. b4
        b2 b r
        R1*3/2*2
        r2 e1 ~
        e4 dis dis2 d ~
        d cis4 b c2 ~
        c b4( a) b2
        e,2( g4) fis fis e
        b'1.
        b2 ais( cis)
        fis, gis( b)
        e, fis4( g!) a2
        b1 b2
        b2 a( g
        a2) g4( fis) e fis
        g2( fis) e
        fis1.
        R1*3/2*2
        r2 a1 ~
        a2( c) b
        gis1 gis2
        R1*3/2*2
        r2 b4 a b fis
        g2 e r
        r b' gis ~
        gis2 a a
        b4( c) dis,1
        e1 e2^\p 
        fis1( gis2) ~
        gis2 a g!
        g1 fis2
        d1.^\fermata
}

bassus=\relative c{
        \set autoBeaming = ##f
        R1*3/2*7
        r2 fis fis
        fis4( e) e2 r
        R1*3/2
        r2 a a
        a4( fis) dis2 r
        R1*3/2*2
        r2 e fis
        g( fis) fis
        R1*3/2
        a2( g) fis
        e fis4( g) a2 ~
        a4 fis b( a) g( fis)
        g1.
        fis2 f1
        e2 r r
        R1*3/2
        r2 e4( dis) e2(
        fis) gis1
        a2 g!( a)
        b2( a4 g a2)
        g2 fis e
        dis e d
        cis d c
        b1 b2
        e2 fis( g)
        fis2 b g
        e( dis) e
        b1.
        R1*3/2*3
        r2 d1 ~
        d2( f) e
        c b1 ~
        b2 a4 b g a
        b1.
        e2 r r
        R1*3/2
        r2 fis dis
        e4 a, b2 b
        e,1 e'2^\p
        dis( d) d
        cis c cis
        d1 d2
        g,1.^\fermata
}

textocantus=\lyricmode{
Cru -- ci -- fi -- xus
cru -- ci -- fi -- xus
cru -- ci -- fi -- xus
e -- ti -- am pro no -- bis
cru -- ci -- fi -- xus
e -- ti -- am
pro __ no -- bis
sub Pon -- ti -- o 
Pi -- la -- to,
pas -- sus et se -- pul -- tus est,
pas -- sus et se -- pul -- tus est;
cru -- ci -- fi -- xus e -- ti -- am
pro __ no -- bis
sub Pon -- ti -- o Pi -- la -- to,
pas -- _ _ _ sus et se -- pul -- tus est,
se -- pul -- tus est,
se -- pul -- tus est.
}

textoaltus=\lyricmode{
Cru -- ci -- fi -- xus
cru -- ci -- fi -- xus
cru -- ci -- fi -- xus
e -- ti -- am pro __ no -- bis
e -- ti -- am pro no -- bis
sub Pon -- ti -- o Pi -- la -- to
sub Pon -- ti -- o Pi -- la -- to,
pas -- _ sus et se -- pul -- tus est,
pas -- sus et se -- pul -- tus est;
cru -- ci -- fi -- xus
e -- ti -- am pro no -- bis
sub Pon -- ti -- o Pi -- la -- to,
pas -- sus et se -- pul -- tus, __
se -- pul -- tus est,
pas -- sus et se -- pul -- tus est.
}

textotenor=\lyricmode{
Cru -- ci -- fi -- xus
cru -- ci -- fi -- xus
cru -- ci -- fi -- xus e -- ti -- am
pro no -- bis
e -- ti -- am pro no -- _ _ bis
sub Pon -- ti -- o Pi -- la -- to,
pas -- sus,
pas -- sus et __ se -- pul -- tus est,
pas -- sus et se -- pul -- tus est;
cru -- ci -- fi -- xus
e -- ti -- am pro no -- bis
pas -- sus et se -- pul -- tus est,
se -- pul -- tus,
se -- pul -- tus est.
}

textobassus=\lyricmode{
Cru -- ci -- fi -- xus
cru -- ci -- fi -- xus
cru -- ci -- fi -- xus
cru -- ci -- fi -- xus __
e -- ti -- am __
pro __ no -- _ _ bis
sub Pon -- ti -- o
Pi -- la -- to,
pas -- _ _ _ _ sus
et se -- pul -- tus est,
pas -- sus et se -- pul -- tus est;
cru -- ci -- fi -- xus
e -- ti -- am pro no -- bis
pas -- sus et se -- pul -- tus est,
se -- pul -- tus est,
et se -- pul -- tus est.
}


flautauno = \relative c'''{
  r2 g e
  r fis b,
  r e a,
  r b fis
  g g' e
  r b gis'
  r a fis
  r b fis
  g e c
  r b gis'
  r e a
  r b fis
  g b, cis
  r c! b
  r e, e'
  r fis a
  gis a c
  r b b,
  r e, e'
  r dis b
  g g' c,
  r b b'
  r e, a
  r dis, fis
  gis e c
  r f b,
  r e a,
  r b fis'
  g fis ais,
  r b gis
  r a fis
  r dis fis
  g a c
  r b e
  r e a
  r fis b
  g g, a
  r ais b
  r a! e'
  r f d
  b b' gis
  r fis! b
  r e, e,
  r fis b
  g c g'
  r b, b'
  r e, fis
  r b, fis
  g r r
  R1*3/2*3
  R1*3/2^\fermataMarkup
}

flautados=\relative c''{
  r2 b g
  r b fis
  r a e
  r dis dis
  e g g'
  r gis b,
  r e e
  r dis dis
  b g g'
  r gis b,
  r a c
  r fis, dis'
  b g e
  r a gis
  r a ais
  r dis fis
  e c g
  r b d,
  r a' a'
  r fis b
  b, e, g
  r gis b
  r b a
  r fis b
  b a e'
  r b gis
  r e fis
  r fis b
  b cis fis,
  r e b'
  r e dis
  r fis a,
  g c e,
  r e g
  r a e'
  r dis dis,
  e e fis
  r f d
  r fis! e
  r a b
  b' gis b,
  r b fis
  r a e'
  r d fis,
  e g c
  r d f,
  r a c
  r dis, fis
  e r r
  R1*3/2*3
  R1*3/2^\fermataMarkup
}

violinuno = \relative c'' {
  b2 r c
  c r b
  b r a
  b r fis
  e r c'
  c r b
  b r a
  b r fis'
  g r e
  fis r gis
  a r fis
  dis r fis
  g r g
  fis r f
  e r e
  e r dis
  e r e
  fis r fis,
  g r a
  dis, r dis'
  e r e,
  fis r gis
  a r c
  fis, r fis
  e r g
  a r b
  a r a
  g r dis
  e r cis'
  b r e
  a, r a
  fis' r dis
  b' r g
  fis r b,
  e r c
  fis, r fis
  g r c
  fis, r b
  b r a
  d r f,
  f r e
  fis! r fis
  g r a
  g r d'
  c r c
  c r b
  b2 r a4( fis)
  g( e) b2 b
  b2 r r
  R1*3/2*3
  R1*3/2^\fermataMarkup
}

violindos=\relative c''{
  g2 r g
  a r fis
  g r fis
  g r a
  g r g
  a r b
  gis r a
  fis r dis'
  b r g
  a r b
  cis r a
  b r dis
  b r ais
  b r b
  e, r ais
  b r b
  b r c
  fis, r b,
  b r a
  b r b'
  b r g
  a r b,
  e r e
  b' r d,!
  d r c
  fis r f
  e r e
  e r a,
  g r fis'
  fis r gis
  a r a
  a r a
  g r c
  c r b
  b r a
  b r b
  b, r a'
  a r a
  gis r e
  f r d
  d r b
  c r b
  g r c
  g' r b
  g r e
  fis r f
  e r c4( a)
  b( c) b2 a
  g2 r r
  R1*3/2*3
  R1*3/2^\fermataMarkup
}

viola=\relative c'{
  e2 r e
  fis r b,
  e r e
  e r dis
  b r e
  fis r f
  f r e
  dis r b
  b r c
  c r d
  a r c
  fis, r b'
  g r cis,
  fis r gis
  a r e
  g, r fis'
  gis r g
  a r b
  e, r e,
  fis r fis'
  e r c
  fis, r f
  e r a
  b r b
  b r e
  a, r b
  e, r a
  b r b
  b r cis
  fis, r b
  e r e
  dis r fis
  e r e 
  fis r g
  g r e
  dis r dis
  b' r fis
  fis r f
  f r a,
  a r b
  gis r gis
  a r fis'
  e r e
  b' r fis
  e r c
  fis, r gis
  gis r a
  g!4( fis) fis a dis,2
  e2 r r
  R1*3/2*3
  R1*3/2^\fermataMarkup
}

cello=\relative c,{
  e4( e e' e e e)
  dis( dis d d d d)
  cis( cis c c c c)
  b( b b b b b)
  e,( e e' e e e)
  dis4( dis d d d d)
  cis( cis c c c c)
  b( b b b b b)
  e,( e e' e e e)
  dis( dis d d d d)
  cis( cis c c c c)
  b( b b b b b)
  e,( e e' e e e)
  dis( dis d d d d)
  cis( cis c c c c)
  b( b b b b b)
  e,( e e' e e e)
  dis( dis d d d d)
  cis( cis c c c c)
  b( b b b b b)
  e,( e e' e e e)
  dis( dis d d d d)
  cis( cis c c c c)
  b( b b b b b)
  e,( e e' e e e)
  dis( dis d d d d)
  cis( cis c c c c)
  b( b b b b b)
  e,( e e' e e e)
  dis( dis d d d d)
  cis( cis c c c c)
  b( b b b b b)
  e,( e e' e e e)
  dis( dis d d d d)
  cis( cis c c c c)
  b( b b b b b)
  e,( e e' e e e)
  dis( dis d d d d)
  cis( cis c c c c)
  b( b b b b b)
  e,( e e' e e e)
  dis( dis d d d d)
  cis( cis c c c c)
  b( b b b b b)
  e,( e e' e e e)
  dis( dis d d d d)
  cis( cis c c c c)
  b( a b b b b)
  e,( e e' e e e)
  dis( dis d d d d)
  cis( cis c c cis cis)
  d( d d, d d d)
  g1.^\fermata
}



\score {\transpose c' c'{
<<

\new StaffGroup << 
  \set StaffGroup.systemStartDelimiterHierarchy
    = #'(SystemStartBracket (SystemStartBrace a b) (SystemStartBrace c d ))

       \new Staff <<\global
	\new Voice="f1" {
		\set Staff.instrumentName=\markup{\smaller \center-column{"Flauto " \raise #.5 "traverso "} } % I y II
		\clef "treble"
		\flautauno }
	>> 
  
       \new Staff <<\global
	\new Voice="f2" {
		\set Staff.instrumentName=\markup{\smaller \center-column{"Flauta" "traverso II"}}
		\clef "treble"
		\flautados }
	>> 
  
        \new Staff <<\global
	\new Voice="vi1" {
		\set Staff.instrumentName=\markup{"Violino I "}
		\clef "treble"
		\violinuno }
	>> 
	\new Staff <<\global
	\new Voice="vi2" {
		\set Staff.instrumentName=\markup{"Violino II "}
		\clef "treble"
		\violindos }
	>>     
    
        \new Staff <<\global
	\new Voice="vi3" {
		\set Staff.instrumentName=\markup{"Viola "}
		\clef "alto"
		\viola }
	>> 
>>

\new ChoirStaff<<

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

        \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 }
        >>        
>>
        \new Staff <<\global
	\new Voice="cont" {
		\set Staff.instrumentName=\markup{\smaller "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 }
	>>
%}

>>

	} % transpose

\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 . 15) (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 . 15) (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
	}
}

%\midi { \mtempo }

}


\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 }
	%system-count=20
	%page-count = 16
	ragged-last-bottom = ##f
	indent=1.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
}