\version "2.18.0"

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

ss=\once \set suggestAccidentals = ##t
cresc=\markup{\italic "cresc."}
dim=\markup{\italic "dim."}
rit=\markup{\italic "rit."}
italicas=\override LyricText.font-shape = #'italic
rectas=\override LyricText.font-shape = #'upright


htitle="KV 194 - 4. Sanctus"
hcomposer="Mozart"

\header {
	title=\markup{\fontsize #3 "4. Sanctus" }
	subtitle=\markup{"de la Missa brevis KV 194"}
	subsubtitle=" "
        composer="W.A. Mozart (1756-1791)"
        pdfauthor=\composer
	%opus="(-)"
	copyright=\markup{
		\fill-line {"Edited by Nancho Alvarez" \typewriter "http://tomasluisdevictoria.org"}
	}
%	tagline=""
}

global={\key d \major \time 4/4 \skip 1*7 \bar "||" \time 3/4
	\skip 1*3/4*28 \bar "|."
	\override Score.RehearsalMark.break-visibility = #begin-of-line-invisible
	\mark \markup {\smaller \musicglyph #"scripts.ufermata" }
}


cantus=\relative c''{
	\tempo \markup{"Andante"}
	R1*3
	r2 a2^\f
	b cis8.[ b16] a4
	a4 a8 a a4 a
	d4 ~ d8. d16 cis4 r4
	\tempo \markup{"Allegro"}
	a4 a r8 a 
	a4 a r
	d,8[ d'] d4. c8
	c8[( b]) b4 r
	b8[( c]) c4. a8
	a8[( g]) g4 r
	e'4. e8 d4 
	d cis! r
	R1*3/4*5
	r4 r d
	cis8.^\trill[ b16] a4 b8 d
	cis8.^\trill[ b16] a4 r
	R1*3/4
	r4 r fis'
	dis8.^\trill[ cis16] b4 e
	cis8.^\trill[ b16] a4 d! ~
	d8 e d4( cis)
	d4 r r
	R1*3/4
	r4 r fis 
	dis8.^\trill[ cis16] b4 e
	cis8.^\trill[ b16] a4 d! ~
	d8 e d4( cis) 
	d2 r4
}

altus=\relative c'{
	R1*2
	r2 d^\f
	e fis8.[ e16] d4
	r8 a'4 gis8 a4. g8
	fis4 fis8 fis e4 e
	gis4 ~ gis8. gis16 a4 r
	g!4 fis r8 fis
	g4 fis r
	fis fis4. fis8
	fis8[( g]) g4 r
	g8[( fis]) fis4. fis8
	fis8[( e)] e4 r
	g4. g8 fis4
	fis e r
	R1*3/4*3
	r4 r a
	fis8.^\trill[ e16] d4 e8 g
	fis8.^\trill[ e16] d8[ e fis gis]
	a4. b16[ cis] d8[ gis,]
	a4 r a ~
	a8[ fis] b8 a g!4 ~
	g8[ e] a[ g] fis4 ~
	fis dis g
	e cis a'
	b8[( g]) fis4( e)
	d! r fis^\p
	dis8.^\trill[ cis16] b4 e
	cis8.^\trill[ b16] a4 a'^\f
	fis8.^\trill[ e16] dis4 g4 ~
	g e
	a8.[( fis16]) b8 g fis4( e)
	d!2 r4
}

tenor=\relative c'{
	R1
	a2^\f b
	cis8.[ b16] a4 a8.[ g16] fis8[ g16 a]
	b8 d4 cis8 d8[( a)] a4
	r4 r8 e'4 a,8 cis8[ e]
	d4 d8 a a4 cis
	d4 ~ d8. d16 e4 r
	e4 d r8 d
	e4 d r
	a4 a4. a8
	a8[( g)] g4 r
	g8[( a]) a4. c8
	c8[( b]) b4 r
	a4. a8 a4
	a a r
	R1*3/4
	r4 r d
	cis8.^\trill[ b16] a4 b8 d
	cis8.^\trill[ b16] a4 b8[ cis]
	d4. e16[ fis] g8[ cis,]
	d8[ a fis' e] d4
	e fis16[ e d cis] b4
	a4 r r
	fis' dis b 
	e( cis) d!8[( cis])
	b2.
	a
	d8 b a2
	a4 r a^\p ~
	a8[ fis] b8 a g4 ~
	g8 e a8[ g] fis4
	b^\f fis'8.[ dis16] b4
	e cis d!
	d8 b a2
	a2 r4
}

bassus=\relative c{
	d2^\f e
	fis8.[ e16] d4 r8 a'4 gis8
	a4. g!8 fis8.[ e16] d4
	r8 b'[ a g] fis16[ g a g] fis[ e d cis]
	b8[ fis' e d] cis[ e] a,[ cis]
	d4 d8 d cis4 cis
	b4 ~ b8. b16 a4 r
	cis4 d r8 d 
	cis4 d r
	d4 d4. d8
	d4 d r
	d8[( dis]) dis4. dis8
	dis8[( e]) e4 r
	cis4. cis8 d!4
	a'4 a, a'
	fis8.^\trill[ e16] d4 e8 g
	fis8.^\trill[ e16] d8[ e fis gis]
	a4. b16[ cis] d8[ gis,]
	a4. g!16[ fis] g8[ e]
	d4 b'16[ a g fis] e4
	d4. cis8 b4
	a d8[ b'] gis e
	a4 a, fis'
	dis8.^\trill[ cis16] b4 e
	cis8.^\trill[ b16] a4 a' ~
	a8 fis[ b a] g4 ~
	g8[ e a g] fis4
	g8 g a2
	d,4 d^\p( c)
	b2( bes4)
	a2 r4
	r b'^\f g8.^\trill[ fis16] e4
	a8.[ g16] fis4
	g a2
	d,2 r4
}


textocantus=\lyricmode{
San -- _ _ ctus
Do -- mi -- nus De -- us sa -- ba -- oth.
Ple -- ni sunt cæ -- li
ple -- ni sunt cæ -- li
cæ -- li et ter -- ra
glo -- ri -- a tu -- a.
Ho -- san -- na in ex -- cel -- sis
ho -- san -- na,
ho -- san -- na in ex -- cel -- sis
ho -- san -- na,
ho -- san -- na in ex -- cel -- sis.
}

textoaltus=\lyricmode{
San -- _ _ ctus
san -- ctus, san -- ctus Do -- mi -- nus De -- us sa -- ba -- oth.
Ple -- ni sunt cæ -- li
ple -- ni sunt cæ -- li
cæ -- li et ter -- ra
glo -- ri -- a tu -- a.
Ho -- san -- na in ex -- cel -- _ _ _ _ sis
ho -- san -- na in __ ex -- cel -- sis,
ho -- san -- na in ex -- cel -- sis
ho -- san -- na,
ho -- san -- na,
ho -- san -- na,
ho -- san -- na __ in ex -- cel -- sis.
}

textotenor=\lyricmode{
San -- _ _ ctus,
san -- _ _ _ _ _ ctus
san -- _ ctus __ Do -- mi -- nus De -- us sa -- ba -- oth.
Ple -- ni sunt cæ -- li
ple -- ni sunt cæ -- li
cæ -- li et ter -- ra
glo -- ri -- a tu -- a.
Ho -- san -- na in ex -- cel -- _ _ _ _ _ _ _ _ _ _ sis
ho -- san -- na in __ ex -- cel -- sis,
in ex -- cel -- sis
ho -- san -- na in ex -- cel -- sis,
ho -- san -- na,
ho -- san -- na
in ex -- cel -- sis.
}

textobassus=\lyricmode{
San -- _ _ ctus
san -- _ _ _ _ ctus
san -- _ _ _ _ ctus __
Do -- mi -- nus De -- us sa -- ba -- oth.
Ple -- ni sunt cæ -- li
ple -- ni sunt cæ -- li
cæ -- li et ter -- ra
glo -- ri -- a tu -- a.
Ho -- san -- na in ex -- cel -- _ _ _ _ _ _ _ _ _ _ sis, __ _
ho -- san -- na __ in ex -- cel -- sis,
ho -- san -- na,
ho -- san -- na
in ex -- cel -- sis,
in ex -- cel -- sis,
ho -- san -- na
ho -- san -- _ na __ in ex -- cel -- sis.
}


violin=\relative c'{
	\set autoBeaming = ##t
	d16^\f fis8 a fis d16 cis e8 g e cis16
	fis d8 fis a d b fis' e d16
	cis e8 b16 a e'8 g,16 fis a8 e16 d d'8 fis,16
	e b'8 g e g16 fis a8 cis,16 d fis8 d'16 ~
	d b8 fis' e d16 cis e8 b16 a a'8 g16
	fis a,8 fis16 d a''8 fis16 e e,8 cis16 a e''8 cis16
	d d,8 b16 gis b''8 d,16
	cis cis8 d e fis16
	<g a,>4 <fis a,>8 d,16 e fis8 a
	<g' a,>4 <fis a,>8 d,16 e fis8 a
	d,8( d') d4. c8
	c( b) b16( a b c) b8 b
	b( c) c-! c-! c( a)
	a( g) g g g g
	g g' g g fis fis
	<fis a,>4 <e a,> r
	R1*3/4*5
	r4 r d
	cis8.^\trill b16 a4 b8 d
	cis8.^\trill b16 a4 r
	r8 b'( b,) b-! b4
	r8 a'( a,) a-! fis'4
	dis8.^\trill cis16 b4 e
	cis8.^\trill b16 a4 d! ~
	d8 e d d cis cis
	d4 r r
	R1*3/4
	r4 r a' ~
	a8 fis( dis fis) g4 ~
	g8 e( cis e) a( d,!)
	b( e) d d cis cis
	d2 r4
}

violindos=\relative c'{
	\set autoBeaming = ##t
	d16^\f fis8 a fis d16 cis e8 g e cis16
	fis d8 fis a d b fis' e d16
	cis e8 b16 a e'8 g,16 fis a8 e16 d d'8 fis,16
	e b'8 g e g16 fis a8 cis,16 d fis8 d'16 ~
	d b8 fis' e d16 cis e8 b16 a a'8 g16
	fis a,8 fis16 d a''8 fis16 e e,8 cis16 a e''8 cis16
	d d,8 b16 gis b''8 d,16
	cis a8 b cis d16
	<e a,>4 d8 d,16 e fis8 a
	<e' a,>4 d8 d,16 e fis8 a
	d,( fis) fis4. a8
	fis8( g) g16( fis g a) g8 g
	g( a) a-! a-! a( fis)
	fis( e) e8 b4( bes8)
	a8 e'' e e d d
	d4 cis r
	R1*3/4*3
	r4 r4 a
	fis8.^\trill e16 d4 e8 g
	fis8.^\trill e16 d8 e fis gis
	a4. b16 cis d8 gis,
	a4 r a ~
	a8 fis b a g!4 ~
	g8 e a g fis4
	r8 b( b,) b-! b4
	r8 a'( a,) a-! a4
	b8 g' fis fis e e
	d4 r r
	R1*3/4
	r4 r fis'
	dis8.^\trill cis16 b4 e
	cis8.^\trill b16 a8( cis) d!( a)
	b( g) fis fis e e
	d2 r4
}

cello=\relative c{
	\set autoBeaming = ##t
	r8 d^\f fis d r a cis a
	r d fis d b d e e,
	a g' e cis d a' b fis
	g e a a,
	d a d fis16 e
	d8 b e e, a a' a, a'
	d, d d d cis cis cis cis
	b b b b a4 r
	cis4 d8 d16-! e-! fis8-! d-!
	cis4 d8 d16-! e-! fis8-! a-!
	d,8 d d d d d
	d d d d d d
	d( dis) dis dis dis dis
	dis( e) e e d d
	cis cis cis cis d d
	a'4 a, a' % desde este la hasta el divisi, todas las notas tienen -!, yo no se lo pongo
	fis8.^\trill e16 d4 e8 g
	fis8.^\trill e16
	<<{s4 d'4 cis8.^\trill[ b16] a4 b8[ d] cis8.^\trill[ b16] a4 } \\
	  {d,8[ e fis8 gis] a4. b16[ cis] d8[ gis,] a4. g!16[ fis]} >>
	  g8 e
	d4 b'16 a g fis e4
	d4. cis8 b4
	a d8 b' gis e
	a4 a, fis'
	dis8.^\trill cis16 b4 e
	cis8.^\trill b16 a4 a' ~
	a8 fis b a g4 ~
	g8 e a g fis4
	g a a,
	d d^\p( c)
	b2( bes4)
	a2 r4
	r b'^\f g8.^\trill fis16
	e4 a8. g16 fis4
	g a a,
	d2 r4
}


\score {
	%<<
\new ChoirStaff<<

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

	
	\new Staff << \global
	\new Voice="v2" {
		\set Staff.instrumentName="Alto "
		\clef "treble" 
		\altus}
	\new Lyrics \lyricsto "v2" {\textoaltus }
	>>

	
	\new Staff <<\global
	\new Voice="v3" {
		\set Staff.instrumentName="Tenor "
		\clef "G_8"
		\tenor }
	\new Lyrics \lyricsto "v3" {\textotenor }
	>>
	

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

%{
	\new Staff <<\global
	\new Voice="v5" {
		\set Staff.instrumentName="Violin I " 
		\clef "treble"
		\violin }
	>>
	
	\new Staff <<\global
	\new Voice="v6" {
		\set Staff.instrumentName="Violin II " 
		\clef "treble"
		\violindos }
	>>
	
	\new Staff <<\global
	\new Voice="v7" {
		\set Staff.instrumentName="Cello " 
		\clef "bass"
		\cello }
	>>
>>
%}

\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 {\Staff 
                %\RemoveEmptyStaves
                %\override VerticalAxisGroup.remove-first = ##t
		\override VerticalAxisGroup.staff-staff-spacing =
			#'((basic-distance . 11) (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 = 8
	ragged-last-bottom = ##f
	indent=1.8\cm
	system-system-spacing =
	#'((basic-distance . 19) (minimum-distance . 0) (padding . 5))
	top-system-spacing = % header
	#'((basic-distance . 10) (minimum-distance . 0) (padding . 0))
	last-bottom-spacing = % footer
	#'((basic-distance . 12) (minimum-distance . 0) (padding . 0))


first-page-number=16
oddHeaderMarkup=\markup \fill-line {\hcomposer \htitle \fromproperty #'page:page-number-string }
evenHeaderMarkup=\markup \fill-line {\on-the-fly #not-first-page \fromproperty #'page:page-number-string \on-the-fly #not-first-page \htitle \on-the-fly #not-first-page \hcomposer }
}