\version "1.4.12"
\include "paper13.ly"

italicas=\property Lyrics . LyricText \override #'font-shape = #'italic
rectas=\property Lyrics . LyricText \override #'font-shape = #'upright


\header{
	composer="John Dunstable"
	title="QUAM PULCHRA ES"
%	subtitle="Discantus inglés -- siglo XV"
	footer="Editado con LilyPond"
	tagline="Copia: Nancho Alvarez"
	poet="Discantus inglés -- siglo XV"
}





%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%5

global=\notes{\key c \major \time 3/4  \skip 1*3/4*58 \bar "|."
}

altus=\notes{
	c'2 \melisma  e'4 \melismaEnd
	d' f'4. \melisma e'8 \melismaEnd
	g'2 g'4
	a'2 f'4
%5
	g' g' e'
	\property Staff.noAutoBeaming=##t
	e'8 e' e'4 [d'8 \melisma c'] \melismaEnd 
	\property Staff.noAutoBeaming=##f
	f' \melisma e' \melismaEnd  c'4 \melisma d'8 f' ~
	f' e' c'4 \melismaEnd b8 \melisma a16 b \melismaEnd
	c'4 r e'
%10
	e' e' r
	f' d' r
	\property Staff.noAutoBeaming=##t
	f' f'8 f' g'4 
	\property Staff.noAutoBeaming=##f
	f' g' a' \melisma ~
	[a'8 f'] [f' g'] e'4 \melismaEnd
%15
	f' r d'
	e'4. e'8 c'4
	b c' b
	c'2 r4 \break
	g' c' d'
%20
	c' r e'8 \melisma f' \melismaEnd
	g' \melisma a'4 g' \melismaEnd fis'?8
	g'2 r4
	\property Staff.noAutoBeaming=##t
	a' a' f'8 f'
	\property Staff.noAutoBeaming=##f
	g'4 c' r
%25
	e' \melisma [c'8 d'] [b a16 b] \melismaEnd
	c'4 r e'8 \melisma f'
	g' a' \melismaEnd f'4 \melisma g' ~
	[g'8 f'] [e' d'] \melismaEnd [cis'? \melisma b16 cis'?] \melismaEnd
	d'2.
%30
	R1*3/4 
	f'2.^\fermata
	f'2^\fermata \breathe a'4
	g'4. \melisma f'8 [f' g'] \melismaEnd
	e'4 f' r
%35
	\property Staff.noAutoBeaming=##t
	f' f'8 f' f'4
	\property Staff.noAutoBeaming=##f
	g' g' \melisma f'8 d' \melismaEnd
	f'4 \melisma g'8 a'4 g'8 ~
	g'16 e' fis'?8 \melismaEnd g'4 r
	a'2 a'4
%40
	bes' \melisma a' g'8 f' \melismaEnd
	f'2 \melisma e'4 \melismaEnd 
	f' r f'
	\property Staff.noAutoBeaming=##t
	g'8 g' e'4 c'
	\property Staff.noAutoBeaming=##f
	e'4. \melisma d'8 \melismaEnd d'4
%45
	\property Staff.noAutoBeaming=##t
	cis'8 cis' d'4 r
	c' f'8 f' a'4 ~
	a' g'4. \melisma e'8 \melismaEnd
	f'4 c' d'8 d'
	c'2 r4
%50
	c'8 c' c' a b4
	\time 3/2 c' r f'2 e'
	\time 3/4 d' cis'?4
	\property Staff.noAutoBeaming=##f
	d' r f'8 \melisma e' \melismaEnd
	[c' \melisma e'] f' g'4 e'8
%55
	c' d' f'4 e'8 d' ~
	[d' c'] d' \melismaEnd b4 \melisma a8 \melismaEnd
	c'2.
}

tenor=\notes{
	c'2.
	g4 d \melisma f \melismaEnd
	c2 c'4
	d' \melisma a \melismaEnd b
%5
	c' g c
	\property Staff.noAutoBeaming=##t
	c8 c c4 r8 a
	\property Staff.noAutoBeaming=##f
	b c'4 \melisma a8 f4
	[f8 g] [e c] \melismaEnd f4
	g r c
%10
	e g a ~
	a f d \melisma
	\property Staff.noAutoBeaming=##t
	f \melismaEnd c'8 c' d'4
	\property Staff.noAutoBeaming=##f
	c' d' e' \melisma ~
	e'8 c' d'4 b \melismaEnd
%15
	c' \melisma a \melismaEnd b
	c'4. c'8 g4
	f g8 \melisma e \melismaEnd f4
	g c c
	r g8 \melisma a bes4 \melismaEnd
%20
	g c2
	c c'4
	d' \melisma b c' \melismaEnd
	\property Staff.noAutoBeaming=##t
	c' c' b8 b
	\property Staff.noAutoBeaming=##f
	c'4 \melisma g \melismaEnd c
%25
	g \melisma c8 d f4 \melismaEnd|
	g \melisma c \melismaEnd c'8 \melisma a
	g f \melismaEnd d4 \melisma e8 c ~
	[c d] [g f] \melismaEnd g4
	a2.
%30
	R1*3/4
	d2.^\fermata
	d2^\fermata \breathe f4
	g4. \melisma a8 c' d' \melismaEnd
	b4 c'2
%35
	\property Staff.noAutoBeaming=##t
	d'4 c'8 c' c'4
	\property Staff.noAutoBeaming=##f
	d' r r
	[d'8 \melisma c'] b \melismaEnd a4 \melisma d'8
	c'4 \melismaEnd d' \melisma b \melismaEnd
	a f2
%40
	d4 a \melisma c'
	d' b2 \melismaEnd
	c'4 \melisma a \melismaEnd a
	\property Staff.noAutoBeaming=##t
	c'8 c' g4 g
	c2 d4
%45
	g8 g a2
	c'4 c'8 c' f4
	f r c' \melisma
	f \melismaEnd a g8 g
	a4 \melisma e f \melismaEnd
%50
	g8 g e e f4
	\property Staff.noAutoBeaming=##f
	\time 3/2 g \melisma c' \melismaEnd a2 b
	\time 3/4 a g4
	a2 r4
	a4. b4 \melisma c'8
%55
	a4. b8 c' a ~
	[a f] [g a] \melismaEnd f4
	g2.
}

bassus=\notes{
	c'2.
	b4 a2
	g e4
	d2 d4
%5
	c c c'
	\property Staff.noAutoBeaming=##t
	c'8 c' g4 f
	\property Staff.noAutoBeaming=##f
	d8 \melisma c \melismaEnd f2 \melisma
	d8 c e4 \melismaEnd d
	c r g
%10
	g c f
	d r f \melisma
	\property Staff.noAutoBeaming=##t
	a \melismaEnd a8 a bes4
	\property Staff.noAutoBeaming=##f
	a g c' \melisma ~
	c'8 a bes4 g \melismaEnd
%15
	f2 f4
	c4. c8 e4
	d c d
	c r g
	c2 bes,4
%20
	c g g8 \melisma a
	g c'4 g8 \melismaEnd a4
	g r c \melisma
	\property Staff.noAutoBeaming=##t
	f \melismaEnd f d8 d
	\property Staff.noAutoBeaming=##f
	c2 \melisma g4 \melismaEnd
%25
	c e8 \melisma f d4 \melismaEnd
	c \melisma e \melismaEnd c8 \melisma d
	e d \melismaEnd a4 \melisma g
	g c8 d \melismaEnd e4
	d2.
%30
	R1*3/4
	a2.^\fermata
	d'2^\fermata \breathe  c'4
	bes4. \melisma a8 a bes \melismaEnd
	g4 f2
%35
	\property Staff.noAutoBeaming=##t
	d4 a8 a a4
	\property Staff.noAutoBeaming=##f
	g b8 \melisma c' d'4 \melismaEnd
	[bes?8 \melisma a] g c'4 bes8
	a4 \melismaEnd g r
	c'2 c'4
%40
	d' c' \melisma a
	bes g2 \melismaEnd
	f f4
	\property Staff.noAutoBeaming=##t
	c8 c c4 e
	g4. \melisma f8 \melismaEnd f4
%45
	e8 e d2
	a4 a8 a c'4 ~
	c' b r
	a a b8 b
	c'4 r a \melisma
%50
	e8 \melismaEnd e c c d4
	\time 3/2 c2 d g
	\time 3/4 f4 e2
	d2.
	\property Staff.noAutoBeaming=##f
	a4 [f8 \melisma e] [g a] ~
%55
	a f4 d8 c d
	f4 e8 f \melismaEnd d4
	c2.
}

texto=\lyrics{
Quam pul -- chra es 
et quam de -- co -- ra,
ca -- ris -- si -- ma in de -- li -- ci -- is.
Sta -- tu -- ra tu -- a
as -- si -- mi -- la -- ta est pal -- me,
et u -- be -- ra tu -- a bo -- tris.
Ca -- put tu -- um ut Car -- me -- lus,
col -- lum tu -- um sic -- ut
tur -- ris e -- bur -- ne -- a.
Ve -- ni,
di -- le -- cte mi,
e -- gre -- di -- a -- mur in a -- grum,
et vi -- de -- a -- mus si flo -- res fru -- ctus par -- tu -- ri -- e -- runt,
si -- flo -- ru -- e -- runt
ma -- la Pu -- ni -- ca. 
I -- bi da -- bo ti -- bi u -- be -- ra me -- a.
Al -- le -- lu -- ia.
}


\score{
	\context ChoirStaff <
	\property Score.automaticMelismata=##t
		\addlyrics
		\context Staff = "v2"<
			\property Staff.instrument="Altus   "
			\global
			\clef treble	
			\altus
		>
		\context Lyrics="l2" \texto



		\addlyrics
		\context Staff = "v3"<
			\property Staff.VerticalExtent = #'(0 . 0)
			\property Staff.instrument="Tenor  "
			\global
			\clef "G_8"	
			\tenor
		>
		\context Lyrics="l3" \texto

		\addlyrics
		\context Staff ="v4"<
			\property Staff.instrument="Bassus  "
			\global
			\clef bass
			\bassus
		>
		\context Lyrics="l4" \texto
	>



\paper {
	linewidth=19.0 \cm
	interscoreline= 0.0 \cm
	interscorelinefill= 1.0
	textheight= 26.8 \cm
	pagenumber=no
	\translator { \LyricsContext LyricText \override #'font-relative-size = #2 }
%	\translator { \HaraKiriStaffContext }
	\translator { \ScoreContext BarNumber \override #'padding = #2 }

}



%\midi {\tempo 4 = 120}


}