\version "2.12.3"

#(set-default-paper-size "a4")
#(set-global-staff-size 16.67)
#(ly:set-option 'point-and-click #f)


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
pcalderon=\markup{\smaller \line{"(  " \musicglyph #"scripts.ufermata" ")"}}


htitle="El naranjel"
hcomposer="Manuel Castillo"

\header {
	title=\markup{\column{" " " " " " " " \fontsize #4 "El Naranjel"}}
	subtitle=\markup{\column{" " "Romance del ciego" " " " " " " " " }}
	composer=\markup{\column{"Popular andaluz" "Arm.: Manuel Castillo"}}
	%opus="(-)"
	copyright=\markup{
		\fill-line {"Edited by Nancho Alvarez" \typewriter "http://tomasluisdevictoria.org"}
	}
%	tagline=""
}

#(define ((custom-time-signature one two three four) grob)
   (grob-interpret-markup grob
                          (markup #:override '(baseline-skip . 0) #:number
                                  (#:line ((#:column (one two))
                                           (#:column (three four)))))))


global={\key b \minor 
	\override Score.TimeSignature #'stencil = #(custom-time-signature "6" "8" "3" "4")
	\time 3/4 \skip 1*3/4*7 \skip 2 \bar "||:"
	\skip 4
	\skip 1*3/4*19 \skip 2 \bar ":|" \skip 4
	\skip 1*3/4*48 \bar "|." }


cantus=\relative c''{
	\dynamicUp
	\override Score.MetronomeMark #'X-offset = #-6
	\tempo \markup{"Andantino"}
	b4.^\p( a
	fis2.)
	g8(\<[ a b\!] cis\>[ d cis]\!
	b2.)
	a8(\<[ cis a\!] <<b4.) {s8\> s s\!}>>
	a4\>( g fis)\!
	g8^\rit([ a g] fis[ e g]
	\once \override TextScript #'padding = #2
	\once \override Score.TextScript #'X-offset = #-1
	fis2)^\markup{\column{ \larger "FINE" \pcalderon}} \bar "||" \break
	 r8 fis^\mf
	b8 b ais b ais4
	b4 b4. fis8
	a?8 a gis a g4
	fis2 ~ fis8 \breathe fis
	b b ais b ais4
	b4 b4. fis8
	a a gis a g4
	fis2 ~ fis8 \breathe fis
	g g g a g4
	fis fis4. fis8
	g8 g g a b4
	cis2 ~ cis8 \breathe b
	d d cis d cis4
	d d4. d8
	cis cis bis cis bis4
	cis2 ~ cis8 \breathe cis
	b? b b cis b4
	ais4 fis fis8 g
	a?4 a8 a g4
	%fis2^\fermata \parenthesize r4 % el original es blanca con puntillo con calderon
	fis2^\fermata r4
	b4.^\p( a
	fis2.)
	g8(\<[ a b] cis\>[ d cis\!]
	b2.)
	a8(\<[ cis a] <<b4.) {s8\> s s\!}>>
	a4\>( g fis)\!
	g8^\rit([ a g] fis[ e g] %\break
	fis2)^\fermata \bar ":" \break r4
	fis4.(^\mp a4 g8
	fis8[\< g] a[ b] cis[ d]\!
	cis4.) d4.(
	e8[ d] cis[ b] a[ g]
	fis4.) a4( g8
	fis8[ g] a[ b] cis[ d]
	cis4.) d(
	cis8[ b] a[ g] fis]) \breathe fis8
	g8 g g a g4
	fis fis4. fis8
	g8 g g a b4
	cis2 ~ cis8 \breathe b
	d8 d cis d cis4
	d4 d4. d8
	cis cis bis cis bis4
	cis2 ~ cis8 \breathe cis
	b8 b b cis b4
	ais4 fis fis8 g
	a4 a8 a g4
	fis2^\fermata \bar ":" \break r8 fis^\mf
	b8 b ais b ais4
	b4 b4. fis8
	a8 a gis a g4
	fis2 ~ fis8 \breathe fis
	b8 b ais b ais4
	b4 b4. fis8
	a a gis a g4
	fis2. \breathe
	g4.( fis8[ a b]
	cis4 a b)
	g4.( a ~
	a8[ b] a[ g] fis4)
	<b g>4.( <cis a>
	<d b>8[ <e cis>] <d b>[ <cis a>] <b g>4)
	<cis a>4.( <b g>
	<a fis>8[ <b g>] <a fis>[ <b g>] <cis a>4)
	d4.( e
	fis4 cis b)
	cis4.( b
	ais2.) \breathe
	\override Score.RehearsalMark #'self-alignment-X = #right
	\override Score.RehearsalMark #'break-visibility = #begin-of-line-invisible
	\mark "D.C."
}

altus=\relative c'{
	\dynamicUp
	d4.^\p( e
	cis2 b4)
	d8([\< e fis]\! g[\> a g]\!
	fis4 e d)
	<<{e4.( g)} {s8\< s s\! s\> s s\!}>>
	e4(\> d cis)\!
	d8(^\rit[ e d] cis[ b d]
	cis2)^\pcalderon r8 fis^\mf
	d8 d d e e4
	fis4 e \breathe d
	e8 e e d d4
	cis2 \breathe cis4
	d8 d d e e4
	e4 d d
	e8 e e e e4
	cis2 \breathe d4
	d8 d d e d4
	cis4 cis cis
	d8 d d e e4
	e2. \breathe
	fis(
	e4 fis g
	a2.)
	a(
	g4. fis
	e2.)
	d4.( e
	%cis2)^\fermata \parenthesize r4
	cis2)^\fermata r4
	d4.^\p( e
	cis2 b4)
	d8([\< e fis]\! g[\> a g]\!
	fis4 e d)
	<<{e4.( g)} {s8\< s s\! s\> s s\!}>>
	e4(\> d cis)\!
	d8(^\rit[ e d] cis[ b d]
	cis2)^\fermata r4
	d4.^\mp( e4 cis8
	d8\<[ e] fis[ g] a[ b\!]
	a4.) b(
	cis8[ b] a[ g] fis[ e]
	d4.) e4( cis8
	d8[ e] fis[ g] a[ b]
	a4.) b(
	a8[ g] fis[ e] d) \breathe d
	d8 d d e d4
	cis4 cis cis
	d8 d d e e4
	e2 \breathe e4
	fis8 fis fis fis fis4
	e4 fis g
	a8 a a a a4 
	a2 \breathe a4
	g8 g g fis fis4
	e e e8 e
	d4 d8 e e4 
	cis2^\fermata r4
	d4.(^\mp e
	fis8[ g] fis[ e] d4)
	cis4.( d
	e8[ d] e[ d] cis) \breathe cis
	d d d e e4
	fis8[ g] fis[ e] \breathe d4
	e8 e e d d4
	cis8([ e] d[ cis] b[ cis]) \breathe
	d4.( e8 d4
	cis8[ d] e[ fis] d4)
	e4.( cis
	fis8[ g] fis[ e] d4)
	e4.( fis
	e8[ a] g[ fis] e4)
	fis4.( e
	d8[ e] d[ e] fis4)
	g4.( a
	fis2 e4)
	d4.( e
	cis2.) \breathe
}

tenor=\relative c{
	\dynamicUp
	fis4.(^\p fis8[ g a]
	b4 a g)
	b8(\<[ cis d\!] e\>[ fis e]\!
	d4 cis b)
	<<cis4.( {s8\< s s\!}>> b8[\> d b])
	cis4(\> b a)\!
	b8[(^\rit cis b] a[ g b]
	ais2)^\pcalderon r8 fis^\mf
	fis fis fis fis fis4
	fis4 g \breathe a
	b8 b b b b4
	b4( ais) \breathe ais
	fis8 fis fis fis fis4
	fis fis g
	a8 a a b b4
	b4( a) \breathe a
	b8 b b cis b4
	a4 a a
	b8 b b b b4
	ais4( b cis) \breathe
	d2. ~
	d
	e( ~
	e4 d cis)
	d4.( cis
	b4 ais2)
	b2.( ~
	%b4 ais)^\fermata \parenthesize r4
	b4 ais)^\fermata r4
	fis4.(^\p fis8[ g a]
	b4 a g)
	b8(\<[ cis d\!] e\>[ fis e]\!
	d4 cis b)
	<<cis4.( {s8\< s s\!}>> b8[\> d b])
	cis4(\> b a)\!
	b8[(^\rit cis b] a[ g b]
	ais2) r8 fis^\mf
	b8 b ais b ais4
	b4 b4. fis8
	a? a gis a g4
	fis2 ~ fis8 fis
	b b ais b ais4
	b4 b4. fis8
	a8 a gis a g4
	fis2 ~ fis8 \breathe a
	b8 b b cis b4
	a4 a a
	b8 b b b b4
	ais4( b) \breathe cis4
	d8 d d d d4
	d4 d d
	e8 e e e e4
	e( d) \breathe cis
	d8 d d cis cis4
	b4 ais ais8 ais
	b4 b8 b b4
	b( ais)^\fermata r4
	b4.^\mp( cis
	d8[ e] d[ cis] b4)
	a4.( b
	cis8[ b] cis[ b] a) \breathe a
	b8 b b cis cis4
	d8[ e] d[ cis] \breathe b4
	cis8 cis cis b8 b4
	ais2 ~ ais8 \breathe fis
	g8 g g a g4
	fis fis4. fis8
	g8 g g a b4
	cis2 ~ cis8 \breathe b8
	d8 d cis d cis4
	d d4. d8
	cis8 cis bis cis bis4
	cis2 ~ cis8 \breathe cis8
	b?8 b b cis b4
	ais fis fis8 g
	a4 a8 a g4
	fis2. \breathe
}

bassus=\relative c{
	\dynamicUp
	b4.(^\p cis
	d2.)
	e8([\< fis g\!] a[\> b a\!]
	g2.)
	<<{fis4.( e) d2.} {s8\< s s\! s\> s s\! s4\> s s\!}>>
	e8^\rit([ fis e] d[ cis e]
	fis2)^\pcalderon r8 fis^\mf
	b, b b cis cis4
	d4 e \breathe fis
	g8 g g e e4
	fis2 \breathe e4
	d8 d d cis cis4
	b4 b b
	cis8 cis cis cis cis4
	d2 \breathe d4
	e8 e e fis e4
	d4 d d
	e8 e e cis cis4
	fis2. \breathe
	b4.( a
	b2.)
	a4.( g
	fis2.)
	e4.( d
	cis2.)
	b4.( cis
	%fis2)^\fermata \parenthesize r4
	fis2)^\fermata r4
	b,4.(^\p cis
	d2.)
	e8([\< fis g\!] a[\> b a\!]
	g2.)
	<<{fis4.( e) d2.} {s8\< s s\! s\> s s\! s4\> s s\!}>>
	e8^\rit([ fis e] d[ cis e]
	fis2)^\fermata r4
	R1*3/4*7
	r2 r8 d
	e e e fis e4
	d4 d d
	e8 e e cis cis4
	fis2 \breathe fis4
	b8 b b a a4
	b4 b b
	a8 a a g g4
	fis2 \breathe fis4
	e8 e e d d4
	cis4 cis cis8 cis
	b4 b8 cis cis4
	fis2^\fermata r4
	R1*3/4*3
	r2 r8 a
	g g g fis fis4
	b8[ cis] b[ a] \breathe g4
	fis8 fis fis e e4
	fis2. \breathe
	e4.( fis8 e4
	d cis b)
	e2.( 
	d)
	R1*3/4*4
	g4.( fis
	e8[ fis] e[ d] cis4)
	b4.( cis
	fis2.) \breathe
	
}


textocantus=\lyricmode{
U __ 
u __ u __ u __ u __
\set stanza = "1."
Ca -- mi -- na la Vir -- gen pu -- ra
ca -- mi -- no de Na -- za -- ré
con su Ni -- ñi -- to~en los bra -- zos,
que más be -- llo que~el sol es.
A la mi -- tá del ca -- mi -- no pi -- dió~el Ni -- ño de be -- bé.
«No pi -- das a -- gua, mi vi -- da,
no pi -- das a -- gua, mi bien,
que van los rí -- os muy tur -- bios y ya no se pue'n be -- bé.»
U __
u __ u __ u __ u __
U __ u __ u __ u __
La Vir -- gen, co -- mo~e -- ra Vir -- gen,
no co -- gí -- a más que tré;
el Ni -- ño co -- mo~e -- ra Ni -- ño,
to -- das las quie -- re co -- gé;
cuan -- tas el Ni -- ño co -- gí -- a vol -- ví -- an a flo -- re -- cé.
\set stanza = "4."
«To -- ma cie -- go~es -- te pa -- ñue -- lo,
lim -- pia los o -- jos con é.»
A -- pe -- nas se fue la vir -- gen,
a -- quel cie -- go~em -- pe -- zó~a ve.
U __ u __ u __ u __ u __ u __
}

textocantusb=\lyricmode{
_ _ _ _ _ 
\set stanza = "2."
Un po -- qui -- to más a -- lan -- te
ha -- lló~un ver -- de na -- ran -- jé
car -- ga -- í -- to de na -- ran -- jas,
que ya más no pue' te -- né.
Un cie -- go lo~es -- tá cui -- dan -- do,
un cie -- go que no pue' ve.
«Cie -- go, mi buen cie -- gue -- ci -- to,
si~u -- na na -- ran -- ja me die'
pa -- ra la sé de~es -- te Ni -- ño un po -- qui -- to~en -- tre -- te -- né.»
}

textoaltus=\lyricmode{
U __ 
u __ u __ u __ u __
\set stanza = "1."
Ca -- mi -- na la Vir -- gen pu -- ra
ca -- mi -- no de Na -- za -- ré
con su Ni -- ñi -- to~en los bra -- zos,
que más be -- llo que~el sol es.
A la mi -- tá del ca -- mi -- no pi -- dió~el Ni -- ño de be -- bé.
U __ u __ u __
U __
u __ u __ u __ u __
U __ u __ u __ u __
La Vir -- gen, co -- mo~e -- ra Vir -- gen,
no co -- gí -- a más que tré;
el Ni -- ño co -- mo~e -- ra Ni -- ño,
to -- das las quie -- re co -- gé;
cuan -- tas el Ni -- ño co -- gí -- a vol -- ví -- an a flo -- re -- cé.
U __ u __
A -- pe -- nas se fue la vir -- gen, __
a -- quel cie -- go~em -- pe -- zó~a ve. __
U __ u __ u __ u __ u __ u __
}

textoaltusb=\lyricmode{
_ _ _ _ _ 
\set stanza = "2."
Un po -- qui -- to más a -- lan -- te
ha -- lló~un ver -- de na -- ran -- jé
car -- ga -- í -- to de na -- ran -- jas,
que ya más no pue' te -- né.
Un cie -- go lo~es -- tá cui -- dan -- do,
un cie -- go que no pue' ve.
}

textotenor=\lyricmode{
U __ 
u __ u __ u __ u __
\set stanza = "1."
Ca -- mi -- na la Vir -- gen pu -- ra
ca -- mi -- no de Na -- za -- ré __
con su Ni -- ñi -- to~en los bra -- zos,
que más be -- llo que~el sol es. __
A la mi -- tá del ca -- mi -- no pi -- dió~el Ni -- ño de be -- bé. __
U __ u __ u __ u __
U __
u __ u __ u __ u __
\set stanza = "3."
«Co -- ja~us -- té, bue -- na se -- ño -- ra,
co -- ja~us -- té, bue -- na mu -- jé,
y~en co -- gien -- do pa -- ra~el Ni -- ño,
co -- ja las que quie -- ra~us -- té.»
La Vir -- gen, co -- mo~e -- ra Vir -- gen,
no co -- gí -- a más que tré; __
el Ni -- ño co -- mo~e -- ra Ni -- ño,
to -- das las quie -- re co -- gé; __
cuan -- tas el Ni -- ño co -- gí -- a
vol -- ví -- an a flo -- re -- cé. __
U __ u __
A -- pe -- nas se fue la vir -- gen, __
a -- quel cie -- go~em -- pe -- zó~a ve.
«¿Quién se -- rí -- a~e -- sa Se -- ño -- ra
que m'ha je -- cho tan -- to bien?
¿Si se -- rá la Vir -- gen pu -- ra y~el Ni -- ñi -- to de Be -- lén?
¿Si se -- rá la Vir -- gen be -- lla y~el glo -- rio -- so San Jo -- sé?»
}
textotenorb=\lyricmode{
_ _ _ _ _ 
\set stanza = "2."
Un po -- qui -- to más a -- lan -- te
ha -- lló~un ver -- de na -- ran -- jé __
car -- ga -- í -- to de na -- ran -- jas,
que ya más no pue' te -- né. __
Un cie -- go lo~es -- tá cui -- dan -- do,
un cie -- go que no pue' ve. __ "  "
}

textobassus=\lyricmode{
U __ 
u __ u __ u u __
\set stanza = "1."
Ca -- mi -- na la Vir -- gen pu -- ra
ca -- mi -- no de Na -- za -- ré
con su Ni -- ñi -- to~en los bra -- zos,
que más be -- llo que~el sol es.
A la mi -- tá del ca -- mi -- no pi -- dió~el Ni -- ño de be -- bé.
U __ u __ u __ u __
U __
u __ u __ u u __
La Vir -- gen, co -- mo~e -- ra Vir -- gen,
no co -- gí -- a más que tré;
el Ni -- ño co -- mo~e -- ra Ni -- ño,
to -- das las quie -- re co -- gé;
cuan -- tas el Ni -- ño co -- gí -- a vol -- ví -- an a flo -- re -- cé.
A -- pe -- nas se fue la vir -- gen, __
a -- quel cie -- go~em -- pe -- zó~a ve.
U __ u __ u __ u __
}
textobassusb=\lyricmode{
_ _ _ _ _ 
\set stanza = "2."
Un po -- qui -- to más a -- lan -- te
ha -- lló~un ver -- de na -- ran -- jé
car -- ga -- í -- to de na -- ran -- jas,
que ya más no pue' te -- né.
Un cie -- go lo~es -- tá cui -- dan -- do,
un cie -- go que no pue' ve.
}


\score {
\new ChoirStaff<<

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

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

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

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

\layout{ 
	\context {\Lyrics \override VerticalAxisGroup #'minimum-Y-extent = #'(-0 . 2) }
	\context {\Score \override BarNumber #'padding = #2 }
	\context {\Lyrics 
		%\override LyricText #'font-size = #2 
		\override LyricHyphen #'minimum-distance = #0.43
	}
	\context {\Voice 
		%melismaBusyProperties = #'()
		autoBeaming = ##f
	}
	%\context { \RemoveEmptyStaffContext }
	\context {\Staff 
		\consists Ambitus_engraver 
		\override VerticalAxisGroup #'minimum-Y-extent = #'(-4 . 5)
	}
}

%\midi {}

}


\paper{
	indent = 1.6\cm
	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=8
	line-width=19.0\cm
	between-system-padding = 0
	ragged-last-bottom = ##f
	foot-separation = 10\mm
	%head-separation = 4\mm
}