\version "2.18.0"

#(set-default-paper-size "a4")
#(set-global-staff-size 16.4)
#(ly:set-option 'point-and-click #f)
%mobile -s14.0 -i1.5 -m6

italicas=\override LyricText.font-shape = #'italic
rectas=\override LyricText.font-shape = #'upright
ss=\once \set suggestAccidentals = ##t
mtempo={\tempo 4 = 78 }
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 243 - Deposuit potentes"
hcomposer="Bach"

\header {
	title=\markup{\fontsize #3 "7. Deposuit potentes"}
	subtitle="del Magnificat BWV 243"
        subsubtitle = "  "
        %subsubtitle=\markup{\raise #.8 "BWV 243" \vspace #1 }
        composer="Johann Sebastian Bach (1685-1750)"
        pdfauthor=\composer
       %opus="(-)"
	%poet=\markup{"BWV 243"}
	copyright=\markup{
		\fill-line {"Edited by Nancho Alvarez" \typewriter "http://tomasluisdevictoria.org"}
	}
%	tagline=""
}

global={
  \compressFullBarRests
  \key a \major \time 3/4 
  \partial 16 \skip 16
  \skip 1*3/4*67 \bar "|."
}

tenor=\relative c'{
        \set autoBeaming = ##f
        r16
        R1*3/4*13
        r4 r r8 r16 fis
        fis4. e16[ d] cis[ b a gis]
        a8. fis16 bis8 r8 r r16 cis
        cis4. b!16[ a] gis[ fis eis dis]
        eis8[ gis16] b d8 r r cis
        a8[ cis16 a] gis8[ cis16 gis] fis8[ d'16 fis,]
        eis8 cis r4 r8 cis
        cis'16[ b a cis] b[ a gis b] a[ gis fis a]
        gis[ fis eis dis] cis4 r8 gis'
        a8 fis d'4 ~ d16[ cis b a]
        b[ a gis b] e4 ~ e16[ d cis b]
        cis[ b a cis] fis4 ~ fis16[ e d cis]
        d[ cis b cis] d[ cis d e] fis[ e fis gis]
        a8 e d[ cis] b[ a]
        a2 r4
        R1*3/4*5
        r4 r r8 r16 e'
        e4 ~ e16[ fis e d] cis[ b ais gis]
        ais8. fis16 e'8 r r r16 d
        d4 ~ d16[ e d cis] b[ a gis fis]
        gis8. eis16 d'8 r r cis
        a8[ cis16 a] gis8[ cis16 gis] fis8[ d'16 fis,]
        eis8 cis r4 r8 cis
        cis'16[ b a cis] b[ a gis b] a[ gis fis a]
        gis[ fis eis dis] cis4 r8 cis'
        cis16[ a] gis[ fis] dis'2 ~
        dis16[ b a gis] eis'[ dis eis fis] eis[ cis dis eis]
        fis8[ fis,16 gis] a[ gis a b] cis[ b cis d]
        cis4. d16 b gis'16[ fis] eis[ dis]
        cis8. fis16 a,4 gis
        fis2. ~
        fis ~
        fis ~
        fis8 fis gis a b4 ~
        b16[ a gis fis] eis[ fis gis a] b[ cis dis eis]
        fis8 cis b[ a] gis[ fis]
        fis4 r r
        R1*3/4*13
}

textotenor=\lyricmode{
De -- po -- _ _ _ su -- it
de -- po -- _ _ _ su -- it
po -- ten -- _ _ _ tes
de se -- _ _ _ de
et ex -- al -- ta -- _ _ _ _ _ _ _ _ vit
hu -- mi -- les;
de -- po -- _ _ su -- it
de -- po -- _ _ su -- it
po -- ten -- _ _ _ tes
de se -- _ _ _ de
et ex -- al -- ta -- _ _ _ _ _ _ vit,
et ex -- al -- ta -- vit
hu -- mi -- les,
et ex -- al -- ta -- _ _ _ vit
hu -- mi -- les.
}


violinuno = \relative c'' {
  fis16
  fis4. e16 d cis b a gis
  a8. fis16 bis8 r r r16 cis
  cis4. b!16 a gis fis eis dis
  eis8. gis32 b d8 r r16 d cis b
  a8 cis16 a gis8 cis16 gis fis8 d'16 fis,
  eis8 cis r4 r16 cis eis! gis
  cis b a cis b a gis b a gis fis a
  gis fis eis dis cis4 r8 cis
  dis16 cis dis eis fis eis fis gis a gis a b
  eis, dis eis fis gis fis gis a b a b cis
  fis, eis fis gis a gis a b cis b cis d
  \appoggiatura d8 cis4. b16 a gis fis eis gis
  cis,8. fis16 a,8( gis) gis( eis')
  \override AccidentalSuggestion.avoid-slur = #'outside
  fis16( gis32 a b cis \ss dis eis) fis8 r8 r4
  R1*3/4
  r16 a, fis cis gis2 ~
  gis2. 
  r16 d'' b gis eis2
  r16 cis' a fis cis4 ~ cis8 r
  r16 cis' gis eis cis2 ~
  cis8 fis16 a cis2 ~
  cis4. gis16 eis cis8 r
  r16 cis dis eis fis eis fis gis a8 r
  r16 b, e fis gis fis gis a b8 r
  r16 e, fis gis a gis a b cis8 r
  R1*3/4
  r4 r r8 r16 a'
  a4. gis16 fis e d cis b
  cis8. a16 dis8 r r r16 e
  e4. d!16 cis b a gis fis
  gis8.*5/6 e32 gis b d8 r8 r16 fis e d % debería ser gis8 ~ gis32
  cis b a cis b a gis b a gis fis a
  gis fis e b' d,4 ~ d16 fis e d
  cis b a fis' \appoggiatura a,8 gis4.^\trill r16 a
  a4 r r
  r16 e'' cis ais fis2 ~
  fis4 r r
  r16 gis eis b gis2
  R1*3/4
  r16 cis eis gis cis8 cis,16 cis' b8 cis,16 b'
  a8 cis,16 a' gis8 cis,16 gis'16 fis8 cis16 fis
  eis8 cis r16 cis dis eis! fis gis a fis
  dis cis dis eis fis eis fis gis a gis a b
  eis, dis eis fis gis fis gis a b a b cis
  fis,4 r r
  r16 cis' eis gis b2 ~
  b16 a( gis fis eis dis cis fis) eis!( dis! cis b)
  a( d! cis b a gis fis gis) ais b cis d
  e4 ~ e16 fis e d cis b ais gis
  ais8. fis16 e'8 r r r16 d
  d4 ~ d16 e d cis b a gis fis
  eis8. cis16 b'8 r r4
  r r r8 r16 fis'
  fis4. e16 d cis b a gis
  a8. fis16 bis8 r r r16 cis
  cis4. b!16 a gis fis eis dis
  eis8. gis32 b d8 r r16 d cis b
  a8 cis16 a gis8 cis16 gis fis8 d'16 fis,
  eis8 cis r4 r16 cis eis! gis
  cis b a cis b a gis b a gis fis a
  gis fis eis dis cis4 r8 cis
  dis16 cis dis eis fis eis fis gis a gis a b
  eis, dis eis fis gis fis gis a b a b cis
  fis, eis fis gis a gis a b cis b cis d
  cis4. b16 a gis fis eis gis
  cis,8. fis16 a,8( gis) gis( eis')
  fis4 r r
}

cello=\relative c,{
  r16
  fis4 a cis
  fis4. gis16 a gis fis eis dis
  cis4 eis gis
  b4. cis16 d cis b a gis
  fis4 e d
  cis8 eis16 gis cis8 cis,16 cis' b8 cis,16 b'
  a8 cis,16 a' gis8 cis,16 gis' fis8 cis16 fis
  eis4 ~ eis16 cis dis eis! fis gis a fis
  b,4 r r
  cis4 r r
  d r r
  eis,8. gis16 b8 r r gis
  a8. b16 cis4 cis,8. fis'16
  fis4. e!16 d cis b a gis
  fis4 a cis
  fis4. gis16 a gis fis eis dis
  cis4 eis gis
  b4. cis16 d cis b a gis
  fis4 e d
  cis8 eis16 gis cis8 cis,16 cis' b8 cis,16 b'
  a8 cis,16 a' gis8 cis,16 gis' fis8 cis16 fis
  eis4 ~ eis16 dis cis dis eis fis gis eis
  fis4 fis, fis'
  gis gis, gis'
  a a, a'
  b b, r8 b 
  cis a e'4 e,
  a4 cis e
  a4. b16 cis b a gis fis
  e4 gis, b
  e,4. e'16 fis e d cis b
  a4 gis fis
  e4. e'16 fis e d cis b
  a8. d16 e4 e,
  a cis e
  fis,4. fis'16 g fis e d cis
  b4 fis' b
  eis,4 ~ eis16 fis eis! dis cis b a gis
  fis4 e d
  cis8 cis' eis gis eis cis
  cis,2. ~
  \once \override Beam.auto-knee-gap = #2
  cis8 gis'' a cis a fis
  b,4 r r
  cis r r
  d r r
  eis,8 cis' eis! gis eis cis
  fis a cis b cis cis,
  d4 r8 d cis b
  ais fis ais cis ais fis
  fis'4 ~ fis16 e fis g fis e d cis
  b b' fis d b4 gis
  cis r8 d cis b
  a fis cis'4 cis,
  fis a cis
  fis4. gis16 a gis fis eis dis
  cis4 eis gis
  b4. cis16 d cis b a gis
  fis4 e d
  cis8 eis16 gis cis8 cis,16 cis' b8 cis,16 b'
  a8 cis,16 a' gis8 cis,16 gis' fis8 cis16 fis
  eis4 ~ eis16 cis dis eis! fis gis a fis
  b,4 r r
  cis4 r r
  d r r
  eis,8. gis16 b8 r r gis
  a8. b16 cis4 cis,
  fis4 r r
}

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

}




\score {\transpose c' c'{
<<
\new ChoirStaff<<
\new Staff <<\global
        \new Voice="v3" {
                \set Staff.instrumentName="Tenore "
                %\set Staff.shortInstrumentName="T"
                \clef "G_8"
                \tenor }
        \new Lyrics \lyricsto "v3" {\textotenor }
        >>   
>>

\new PianoStaff<<
  
        \new Staff\with{
          \remove Ambitus_engraver
        fontSize = #-1
      \override StaffSymbol #'staff-space = #(magstep -1)
      }<<\global
	\new Voice="vi1" {
		\set Staff.instrumentName=\markup{\center-column{"Violini" \smaller \raise #1 "all' unisono"}}
		\clef "treble"
		\violinuno }
	>> 

        \new Staff \with{
          \remove Ambitus_engraver
        fontSize = #-1
      \override StaffSymbol #'staff-space = #(magstep -1)
      }<<\global
	\new Voice="cont" {
		\set Staff.instrumentName=\markup{\center-column{"Organo e" \raise #1 "Continuo"}}
		\clef "bass"
		\cello }
	>> 
>>
%{
	\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.7\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
}