\version "2.11.27"

%% Recitativo
global = {
  \time 4/4
  \key c \major
  s2.
  s4  s1*2 s4
  s2 
  s4  s4
  s2. 
  \override Staff.TimeSignature   #'transparent = ##t
  \set Score.measureLength = #(ly:make-moment 6 4) s2.
  s2.
  \set Score.measureLength = #(ly:make-moment 4 4) s2
  s2  s1*4 s4
  s2. s4
  s2. s1*3 s2.
  s4  s1
  s1  
  \set Score.measureLength = #(ly:make-moment 5 4) s1
  s8 s8
  \set Score.measureLength = #(ly:make-moment 4 4) s1*2
  \set Score.measureLength = #(ly:make-moment 5 4) s2 
  s4 -\tag #'recit ^\markup \italic "(parte Achilla.)" s2
  \set Score.measureLength = #(ly:make-moment 4 4) s1*6
  \set Score.measureLength = #(ly:make-moment 5 4) s1 s4
  \bar "|."
}

achillaRecit =
#(define-music-function (parser location music) (ly:music?)
  #{ << { \set Staff.forceClef = ##t \clef bass }
  s8 ^\markup \smallCaps Achilla.
  $music >> #})

tolomeoRecit =
#(define-music-function (parser location music) (ly:music?)
  #{ << { \set Staff.forceClef = ##t \clef alto }
  s8 ^\markup \smallCaps Tolomeo.
  $music >> #})

recit = {
  \achillaRecit { a8 e r a cis'4 } \tolomeoRecit { r8 e' |
cis' cis' r e'16 e' e'4 fis'8 gis' |
a' a' r a' a'8. a'16 a'8 gis' |
b' b' } \achillaRecit { gis b b e } \tolomeoRecit { r e' |
%5
a' a' } \achillaRecit { r e16 e a4 a8 b |
cis' cis' r16 cis' b a d'8 d' } \tolomeoRecit { r fis' b' b' r16 b' b' e' |
fis'8 fis' r4 } \achillaRecit { r8 fis fis gis |
ais ais r ais cis' cis' r16 cis' cis' d' |
b8 b r4 r8 b16 b b8 c'16 d' |
%10
g8 g r16 d d d g8 g r16 g g a |
b4 r b8 b16 c' d'8 e' |
c' c' } \tolomeoRecit { r e' a' a' a' gis' |
b' b' } \achillaRecit { r16 e e fis gis8 gis gis gis16 a |
b8 b b c' d' d' r16 d' c' b |
%15
c'8 c' r c' c' g g a |
bes bes r16 bes bes d' bes4 r8 bes |
bes bes bes a f f } \tolomeoRecit { r f'16 a' |
d'4 d'8 cis' e' e' r4 | }
\achillaRecit { a a8 e f f r a |
%20
 bes bes c' d' a a s4 } \tolomeoRecit { r8 f' |
 d' d' r16 f' f' g' aes'8 aes' r16 aes' aes' g' |
ees'8 ees' r4 g'8 ees' r4 |
 a'8 a' r a'16 bes' f'8 f' s4 r4 |
 a'8 a' fis' g'16 a' d'8 d' r16 d' d' e' |
%25
fis'8 fis' r fis' fis' g' a' bes' |
g' g' r4 g'8 d' r d' |
d'4 d'8 ees' f'4 f'8 f'16 ees' |
c'8 c' r c'16 d' ees'4 d'8 c' |
aes' aes' r aes'16 aes' aes'4 g'8 f' |
%30
 b'4 b'8 b'16 c'' g'8 g' s4 r }
}

recitLyrics = \lyricmode {
  Si -- re, Si -- gnor! A --
chil -- la, co -- me "fù il" ca -- po
tron -- co da Ce -- sa -- re gra --
di -- to? Sde -- gnò l'o -- pra. Che
sen -- to? T'ac -- cu -- sò d'in -- es -- 
per -- to, e trop -- "po ar" -- di -- to. Tant' o -- sa un vil Ro --
ma -- no? Il mio con --
si -- glio ap -- pren -- di, oh To -- lo --
me -- o! ver -- rà Ce -- sa -- "re in"
cor -- te; "e in" tua ven -- det -- ta ca -- da co --
stui, co -- me ca -- dè Pom --
pe -- o. Chi con -- dur -- rà l'im --
pre -- sa? Io ti pro -- me -- to dar -- ti e --
stin -- to il su -- per -- bo al re -- gio
pie -- de, se di Pom -- peo la
mo -- glie in pre -- "mio a" me il
tuo vo -- ler con -- ce -- de. È co -- 
stei tan -- to va -- ga?
Le -- ga col cri -- ne, e
col bel vol -- "to im" -- pia -- ga? A --
mi -- co, il tuo con -- si -- glio è la mia
stel -- la; van -- ne, 
pen -- sa, e poi tor -- na.
Muo -- ra Ce -- sa -- re, muo -- ra, "e il" ca -- "po al" --
te -- ro sio del mio piè so --
sten -- go. Ro -- ma, op --
pres -- sa da lui, li -- be -- ra
va -- da, e fer -- mez -- "za al" mio
re -- gno sia la mor -- te di
lui più che la spa -- da.
}

bassi = {
  a,1 ~ |
a, |
fis |
e |
%5
cis |
g2 fis g |
ais,1 ~ |
ais, |
b,2 g ~ |
%10
g1 |
f |
e2 f |
gis,1 ~ |
gis, |
%15
a,2 e ~ |
e1 ~ |
e2 a, |
bes, a, ~ |
a, d |
%20
g s4 a bes ~ |
bes1 |
g |
ees2 s4 f fis ~ |
fis1 |
%25
c |
bes,2 b, ~ |
b,1 |
c |
f ~ |
%30
f2 s4 g c
}

figuredBass = \figuremode {
  \set Staff . figuredBassAlterationDirection = #RIGHT
  \override Staff . BassFigureAlignment #'stacking-dir = #UP
  \override Staff . BassFigureAlignmentPositioning #'direction = #DOWN
  <_+>1 <_>1*5 <_>2 <_>1*13
  <_>2. <_+>4 <_>4 <_>1*3 <_>4 <_>1*6
  <_>2. <_!>4
}

\score {
  <<
    \new Staff <<
      \keepWithTag #'recit \global
      \new Voice = "recit" \recit
      \lyricsto "recit" \new Lyrics \recitLyrics
    >>
    \new Staff <<
      \removeWithTag #'recit \global
      \clef "bass" \bassi
      \figuredBass
    >>
  >>
  \layout { indent = 5\mm }
  \midi { \context { \Score tempoWholesPerMinute = #(ly:make-moment 120 4) } }
}