\version "2.18.0"

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

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

\header {
	title=\markup{\fontsize #3 "9. Suscepit Israel"}
	subtitle="del Magnificat BWV 243"
	subsubtitle = \markup{\null \vspace #1 }
        %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 b \minor \time 3/4 \skip 1*3/4*37 \bar "|."
}

cantus=\relative c''{
        \set autoBeaming = ##f
        r8 ais b[ cis] d[ e]
        fis4. fis8 fis4
        fis4 e8[ d] cis[ b]
        ais4. gis8 fis4
        r8 d' cis[ b] a[ g]
        e'4. e8 e4
        r8 e d[ cis] b[ ais]
        b4. b8 b4
        r8 fis g[ a] b[ cis]
        d4. d8 d4
        r8 fis e[ d] cis[ b]
        cis[ d] cis[ b] a[ g]
        fis d g[ fis] e[ d]
        cis a' d[ e] fis4
        r8 b, cis d e4 ~
        e8 fis16[ g] fis8 e[ d] cis
        d[ e] cis4. d8
        d4 r r
        r4 e8[ b] cis[ gis]
        a4 e a
        d8[ c] b[ c] d4 ~
        d8[ c b a gis a]
        b2. ~ 
        b8[ d cis! b ais b]
        ais4. b8 cis4
        fis,4 fis r
        r d'8[ ais] b[ fis]
        gis4 gis cis4 ~
        cis8[ e] dis[ cis] fis4
        fis,8[ c' b a g fis]
        g4 b e
        dis e fis
        b,8 d! c[ b a g]
        a[ c b a g fis]
        g4 fis g4 ~
        g8[ a16 b] g4. fis8
        fis2.
}

cantusdos=\relative c''{
        \set autoBeaming = ##f
        R1*3/4*2
        r8 ais b[ cis] d[ e]
        fis4. fis8 fis4
        fis4 e8[ d] cis[ b]
        a2 a4
        R1*3/4
        r8 c b[ a] g[ fis]
        e4. e8 e4
        r8 d e[ fis] g[ a]
        b4. b8 b4
        r8 d, e[ fis] g[ a]
        b[ c] b[ a] g[ fis]
        e4 a8 g a4 ~
        a4 g8[ fis] g4
        g4. a8 fis4 ~
        fis8[ g] e4. fis8
        fis4 r r
        R1*3/4
        r4 e'8[ b] c[ a]
        gis4 b gis
        e4. f8 e4
        e2 ~ e8[ fis!]
        g[ fis e d] e4
        fis4 cis'8[ gis] ais[ fis]
        b[ ais] b4 fis ~
        fis b b
        b8[ d cis b] ais[ b]
        ais4 a2 ~
        a4 g8[ fis] b4
        b8[ d c b a g]
        a[ c b a g fis]
        g8[ b a g fis e]
        fis[ a g fis e dis]
        e4 dis8 fis e4 ~
        e8[ dis] e2
        dis2.
}

altus=\relative c''{
        \set autoBeaming = ##f
        R1*3/4
        r8 g fis[ e] d[ cis]
        b4. b8 b4
        cis8[ b] cis[ d] e[ fis]
        d[ e] fis4 r
        r8 b a[ g] fis[ e]
        d4. d8 d4
        r8 a' g[ fis] e[ dis]
        e[ dis] e[ fis] g[ e]
        fis4 g8[ fis] e[ d]
        g[ a] g[ fis] g[ e]
        a4 a, a' ~
        a8 fis g4 r
        r8 g fis[ e] d[ cis]
        b[ fis'] e[ d] cis[ b]
        a4 d8[ cis] b[ a]
        g4 a2
        d4 a'8[ e] fis[ d]
        e4 a, r
        a4 a a
        b8[ a gis a] b4 ~
        b8[ a b c] d4 ~
        d8[ f e d cis d]
        cis2. ~
        cis2 cis4
        d4 fis8[ e] d[ cis]
        b[ a] g4 g'8[ fis]
        eis2 eis4
        fis8[ g! fis e! dis e]
        dis2 dis4
        e8 b' a[ g] fis[ e]
        fis[ a g fis e dis]
        e4 fis g
        dis cis b
        e fis8 dis e4
        b2. ~
        b2.
}

textocantus=\lyricmode{
Su -- sce -- pit I -- sra -- el
pu -- e -- rum su -- um __ _
su -- sce -- pit I -- sra -- el
su -- sce -- pit I -- sra -- el
su -- sce -- pit I -- sra -- el
su -- sce -- pit I -- sra -- el
pu -- e -- rum su -- um,
su -- sce -- pit
su -- sce -- pit I -- sra -- el
pu -- e -- rum su -- _ um
re -- cor -- da -- tus mi -- se -- ri -- cor -- _ _ di -- æ su -- æ
re -- cor -- da -- tus mi -- se -- ri -- cor -- _ di -- æ su -- æ,
mi -- se -- ri -- cor -- _ _ di -- æ __ su -- _ æ.
}

textocantusdos=\lyricmode{
Su -- sce -- pit I -- sra -- el
pu -- e -- rum su -- um
su -- sce -- pit I -- sra -- el
su -- sce -- pit I -- sra -- el
su -- sce -- pit I -- sra -- el,
su -- sce -- pit I -- sra -- el
pu -- e -- rum __ su -- _ um
re -- cor -- da -- tus mi -- se -- _ ri -- cor -- _ di -- æ,
re -- cor -- da -- tus mi -- se -- ri -- cor -- di -- æ,
mi -- se -- ri -- cor -- _ _ _ _ di -- æ su -- _ æ.
}

textoaltus=\lyricmode{
Su -- sce -- pit I -- sra -- el
pu -- e -- rum su -- um
su -- sce -- pit I -- sra -- el
su -- sce -- pit I -- sra -- el
pu -- e -- rum su -- um,
su -- sce -- pit I -- sra -- el
su -- sce -- pit I -- sra -- el
pu -- _ e -- rum su -- um,
re -- cor -- da -- tus
mi -- se -- ri -- cor -- _ _ _ di -- æ,
re -- cor -- da -- tus mi -- se -- ri -- cor -- _ di -- æ,
mi -- se -- ri -- cor -- _ di -- æ,
mi -- se -- ri -- cor -- di -- æ su -- æ.
}


oboeuno=\relative c''{
  R1*3/4*4
  fis2.
  a
  fis 
  fis
  g
  fis
  e ~
  e
  d
  R1*3/4*4
  fis2.
  a
  e
  e
  e
  e
  e
  e
  b
  d
  cis ~
  cis
  b ~
  b ~
  b ~
  b ~
  b ~
  b ~
  b ~ 
  b
}

cello=\relative c'{
  b4 b b
  a a a
  g g g
  fis fis fis
  b b b
  cis cis cis
  d d d
  dis dis dis
  e e e
  fis fis fis
  g g g
  a a a 
  a g g 
  g4 fis8 e d cis
  b4 e8 d cis b
  a4 d8 cis b a
  g4 a a
  d d d
  cis cis cis
  c! c c
  b b b
  a a a
  gis gis gis
  g! g g
  fis cis cis
  d d' cis
  b g'! fis
  eis eis eis
  fis fis e!
  dis dis dis
  e e e
  b cis dis
  e fis g
  dis cis b
  e8 b a g fis e
  b'2.
  b,
}

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

}



\score {\transpose c' c'{
<<
  \new StaffGroup<<
       \new Staff  \with{ 
      \remove Ambitus_engraver
      fontSize = #-2
      \override StaffSymbol #'staff-space = #(magstep -2)
      }<<\global
	\new Voice="o1" {
		\set Staff.instrumentName=\markup{\center-column{"Oboe I,II" \fontsize #-2 \raise #1  "all' unisono"}}
		\clef "treble"
		\oboeuno }
	>> 
  >>
\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 \with{ 
      \remove Ambitus_engraver
      fontSize = #-2
      \override StaffSymbol #'staff-space = #(magstep -2)
      } <<\global
	\new Voice="cont" {
		\set Staff.instrumentName=\markup{\center-column{"Organo e" \raise #.8 "Violoncelli" \fontsize #-2 \raise #1 "senza Violone" \fontsize #-2 \raise #2.3 "e Bassoni"}}
		\clef "tenor"
		\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 . 12) (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 . 21) (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
	left-margin = #11
}