\version "2.18.0"

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

italicas=\override LyricText.font-shape = #'italic
rectas=\override LyricText.font-shape = #'upright
ss=\once \set suggestAccidentals = ##t
mtempo={\tempo 4 = 52}
pfermata=\markup{"(" \musicglyph #"scripts.ufermata" ")"}

htitle="Schafe können"
hcomposer="Bach"
%{
\header {
	title=\markup{\fontsize #3 "9. Schafe können"}
	subtitle="Hunting Cantata BWV 208"
        subsubtitle=\markup{\null \vspace #1 }
        composer="Johann Sebastian Bach (1685-1750)"
       %opus="(-)"
	poet=\markup{"Arie"}
	copyright=\markup{
		\fill-line {"Edited by Nancho Alvarez" \typewriter "http://tomasluisdevictoria.org"}
	}
%	tagline=""
}
%}
global={
  \compressFullBarRests
  \key bes \major \time 4/4
  \skip 1*40 \bar "|."
  \override Score.RehearsalMark.self-alignment-X=#right
  \override Score.RehearsalMark.padding = #1.5
  \mark \markup{"Da Capo"}

}


soprano=\relative c''{
        \set autoBeaming=##f
        R1*4
        bes4 d8[ c] c4. d8
        ees4 g8[ f] d4^\trill c8[ bes]
        d[ bes] a[ g] c4. d8
        a4 g8[ f] f2
        f4 aes8[ g] g4. a8
        bes4 d8[ c] a4 g8[ f]
        f'4 g8[ f] f[ d] c[ bes]
        f'4 g8[ f] f[ d] c[ bes]
        ees4. f8 d8[ c] bes[ c]
        a4. bes8 bes2
        r2 g'8[ ees] d[ c]
        f4. g8 d4.^\trill c16[ bes]
        bes4 r r2
        R1*3
        \once \override Score.RehearsalMark.break-visibility = #end-of-line-visible
        \mark \markup{\musicglyph #"scripts.ufermata"}
        \break
        d4 g fis4. g8
        ees4 d bes^\trill a8[ g]
        c4 d8[ b] c4. d8
        ees4 f8[ d] ees4 g8[ f]
        g4 aes b, c8[ d]
        ees4 d8[ c] c2
        R1*3
        r2 g4 bes8[ a]
        bes4. d8 c4 bes8[ a16 bes]
        a4 g8[ f] f'4 e8[ d]
        d4. f8 e8[ f16 g] e8[ d]
        cis4 b8[ a] c2 ~
        c4 bes!8[ c16 a] bes2 ~
        bes8[ a] a4 ees'!2 ~
        ees4 d8[ f16 e] f2 ~
        f8[ e] d[ e] e4 d8[ c]
        bes4 a8[ bes16 g] c16[( bes a bes] c[ bes]) c[ d]
        a4 g8[ f] f2
}

flautauno = \relative c'' {
  \set autoBeaming=##t
  f8 f16( d) f8 f16( d) f8( g) g( bes)
  ees,8 ees16( c) ees8 ees16( c) ees8( a) a( c)
  bes8 ~ bes32( c d16) bes( d) c( f,) bes8 ~ bes32(-\p c d16) bes( d) c( f,)
  bes8 d32(-\f ees f16) d16( bes) c( a) bes8 d32(-\p ees f16) d16( bes) c( a)
  bes4 r r2
  R1*3
  f8 f16( d) f8 f16( d) f8( g) g( bes)
  g8 g16( ees) g8 g16( ees) g8( a) a( c)
  r8 bes32( c d16) bes( d) c( f,) bes8 r r4
  r8 bes32( c d16) bes( d) c( f,) bes8 r r4
  R1
  r2 f8 f16( d) f8 f16( d)
  f8( g) g( bes) ees,8 ees16( c) ees8 ees16( c)
  a'8( bes) bes( c) r8 d32( ees f16) d16( bes) f( a)
  bes8 f16( d) f8 f16( d) f8( g) g( bes)
  ees,8 ees16( c) ees8 ees16( c) ees8( a) a( c)
  bes8 ~ bes32( c d16) bes( d) c( f,) bes8 ~ bes32(-\p c d16) bes( d) c( f,)
  bes8 d32-\f( ees f16) d( bes) c( a) bes8 d32-\p( ees f16) d( bes) c( a)
  bes4^\fermata r r2
  R1*4  
  r2 g8 g16( ees) g8 g16( ees)
  g8( aes) aes( c) f, f16( d) f8 f16( d)
  f8( b) b( d) c8 ~ c32( d ees16) c( ees) d( g,)
  c8 ~ c32(-\p d ees16) c( ees) d( g,) c8 ees32(-\f f g16) ees( c) d( b)
  c8 ees32(-\p f g16) ees( c) d( b) c4 r
  R1
  r2 a8 a16( f) a8 a16( f)
  a8( bes) bes( d) g,8 g16( e) g8 g16( e)
  g8( cis) cis( e) a, a16( fis) a8 a16( fis)
  a8( bes) bes( d) g, g16( e) g8 g16( e)
  g8( a) a( c) c,8 c16( a) c8 c16( a)
  c8( d) d( bes) d8 d16( b) d8 d16( b)
  d8( e) e( g) g g16( e) a8 a16( f)
  bes8( c) bes( e) r2
  R1
}

flautados = \relative c'' {
  \set autoBeaming=##t
  d8 d16( bes) d8 d16( bes) d8( ees) ees( g)
  c,8 c16( a) c8 c16( a) c8( ees) c( ees)
  d8 ~ d32( ees f16) d( f) ees( c) d8 ~ d32(-\p ees f16) d( f) ees( c)
  d8 bes'32(-\f c d16) bes( d,) ees( f) d8 bes'32(-\p c d16) bes( d,) ees( c)
  d4 r r2
  R1*3
  d8 d16( bes) d8 d16( bes) d8( ees) ees( g)
  ees8 ees16( c) ees8 ees16( c) ees8( f) f( a)
  r8 d,32( ees f16) d( f) ees( c) d8 r r4
  r8 d32( ees f16) d( f) ees( c) d8 r r4
  R1
  r2 d8 d16( bes) d8 d16( bes)
  d8( ees) ees( g)
  c,8 c16( a) c8 c16( a)
  c8( d) d( ees) r8 bes'32( c d16) bes( d,) ees( c)
  d8 d16( bes) d8 d16( bes) d8( ees) ees( g)
  c,8 c16( a) c8 c16( a) c8( ees) c( ees)
  d8 ~ d32( ees f16) d( f) ees( c) d8 ~ d32-\p( ees f16) d( f) ees( c)
  d8 bes'32(\f c d16) bes( d,) ees( f) d8 bes'32(-\p c d16) bes16( d,) ees( c)
  d4^\fermata r r2
  R1*4
  r2 ees8 ees16( c) ees8 ees16( c)
  ees8( f) f( aes) d, d16( b) d8 d16( b)
  d8( f) d( f) ees8 ~ ees32( f g16) ees( g) f( d)
  ees8 ~ ees32(\p f g16) ees( g) f( d) ees8 c'32(-\f d ees16) c16( ees,) f( g)
  ees8 c'32(-\p d ees16) c( ees,) f( d) ees4 r
  R1
  r2 f8 f16( d) f8 f16( d)
  f8( g) g( bes)
  bes,8 bes16( g) bes8 bes16( g)
  e'8( g) e( g) ees8 ees16( c) fis8 fis16( d)
  fis8( g) g( bes) c8 c16( g) e8 e16( c)
  e8( f) f( a) a, a16( f) a8 a16( f)
  a8( bes) bes( d) b8 b16( g) b8 b16( g)
  b8( c) c( e) e e16( c) f8 f16( d)
  e8( g) e( g) r2 
  R1
}

continuo=\relative c{
  \set autoBeaming=##t
  bes8( bes bes bes) bes( bes bes bes)
  bes( bes bes bes) bes( bes bes bes)
  bes'8( bes a a) g( g f f)
  ees( ees f f) g8 f16 ees f8 f,
  bes( bes bes' bes) bes( bes bes bes)
  a( a a a) bes( bes bes bes)
  bes,( bes bes bes) bes( bes a bes)
  c8( c c c) f( f ees ees)
  d( d bes bes) ees( ees d d)
  c( c c c) f( f ees ees)
  d8( d ees ees) bes( bes c c)
  d( d ees ees) bes( bes d d)
  c( c f f) bes, c d ees
  f( f f, f) bes( bes bes bes)
  bes( bes bes bes) bes( bes a a)
  bes( bes ees ees) f( f f, f)
  bes( bes bes bes) bes( bes bes bes)
  bes( bes bes bes) bes( bes bes bes)
  bes'( bes a a) g( g f f)
  ees( ees f f) g8 f16 ees f8 f,
  bes8(-\fermata bes bes' bes)
  a( a bes bes)
  c( c d d) g,( g f f)
  ees( ees d d) ees( ees b b)
  c( c b b) c( c d d)
  ees( ees f f) (f f ees f)
  g( g g, g) c( c c c)
  c( c c c) c( c c c)
  c( c c c) c'( c bes bes)
  aes( aes g g) f( f g g)
  aes8 g16 f g8 g, c8( c c c)
  d8( d d d) e( e e e)
  f( f e e) d( d c c)
  bes( bes a a) g( g g g)
  a( a g g) fis( fis d d)
  g( g f! f) e( e c c)
  f( f f f) f( f f f)
  bes( bes bes bes) g( g g g)
  c( c c c) bes( bes a a)
  g( g g g) a( a bes bes)
  c c c, c f2
}
guia=\relative c''{
\set autoBeaming=##t
}


textosoprano=\lyricmode{
Scha -- fe kön -- nen si -- cher wei -- den,
wo ein gu -- ter Hir -- te wacht,
scha -- fe kön -- nen si -- cher wei -- den,
scha -- fe kön -- nen si -- cher wei -- den,
wo ein gu -- ter Hir -- te wacht
wo ein gu -- ter Hir -- te wacht.

Wo Re -- gen -- ten wohl re -- gie -- ren,
kann man Ruh' und Frie -- den spü -- ren,
und was Län -- der glück -- lich macht
wo Re -- gen -- ten wohl re -- gie -- ren,
kann man Ruh' und Frie -- den spü -- ren,
Ruh' und Frie -- den,
Ruh' und Frie -- den,
spü -- ren,
und was Län -- der glück -- lich macht.
}

\markup{\bold \larger "Pales [Soprano]"}
\score{
        \new Staff\with{\consists Ambitus_engraver }
        <<\global
	\new Voice="v5" {
		%\set Staff.instrumentName=\markup{\center-column{"Pales" \raise #1 \smaller "[Soprano]"} }
		\clef "treble"
		\soprano }
	\new Lyrics \lyricsto "v5" {\textosoprano }
	>>
}
\pageBreak

\markup{\bold \larger "Flauto I"}
\score{
      \new Staff<<\global
	\new Voice="v1" {
		%\set Staff.instrumentName=\markup{"Flauto I e II"}
		\clef "treble" % clave de sol en primera
		\flautauno }
	>>
}
\pageBreak

\markup{\bold \larger "Flauto II"}
\score{	
	\new Staff <<\global
	\new Voice="v2" {
%		\set Staff.instrumentName=\markup{"Flauto II"}
		\clef "treble" % clave de sol en primera
		\flautados }
	>>
}
\pageBreak

\markup{\bold \larger "Continuo"}
\score{
        \new Staff<<\global
	\new Voice="c" {
		%\set Staff.instrumentName=\markup{"Continuo"}
		\clef "bass"
		\continuo } 
	>>  
}

%{
\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 %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
	}
}

%}


\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 }
        oddHeaderMarkup = \evenHeaderMarkup
%system-count=20
	%page-count = 1
	ragged-last-bottom = ##f
	indent=0.5\cm
	system-system-spacing =
	#'((basic-distance . 20) (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
}