\version "2.18.2"

\header {
  title = "Idomeneo, Ré di Créta"
  subtitle = "Acte III, Scène I N° 18"
  composer = "W.A. MOZART"
  arranger = "Transcription pour EVI Laetare : Daniel Bernair"
}

\paper {
  #(set-paper-size "a4")
}

\layout {
  %{
  \context {
    \Voice
    \consists "Melody_engraver"
    \override Stem #'neutral-direction = #'()
  }
  %}
  
  \context {
    \Score
    skipBars = ##t
    autoBeaming = ##t % pour relier les croches par temps. 
     %%% \set Score.markFormatter = #format-mark-box-letters
   %%%%%%%%%%\override RehearsalMark #'self-alignment-X = #-1
   \override Score.RehearsalMark.self-alignment-X = #LEFT
  }
  
}

global = {
  \key d \minor
  \numericTimeSignature
  \time 12/8
  \tempo "Allegro assai" 4=100
}
myR = {r4 r8 r4}
strA =
#(define-music-function (parser location p) (ly:pitch? )
   "Make the rhythm 4. 4 8 at the given pitch"
  #{ $p 4. $p 4 $p 8  #})
strB = 
#(define-music-function (parser location p r s ) (ly:pitch? ly:pitch? ly:pitch?)
   "Make the rhythm 4. 4 8 at the 3 given pitch"
  #{ $p 4. $r 4 $s 8  #})

sopranoVoice = \relative c'' {
  \global
  \dynamicUp
  % En avant la musique !
  \clef soprano
  R1.*4 %4
  r4 r8 r4 d,8^\f d4. d4 d8 \break %5
  f4. f4 f8 a4. a4 a8 %6
  d4. d, r4 r8 r4 d'8 %7
  d4. cis r4 r8 r4 e8 %8
  e4. d r4 r8 r4 f8^\p %9
  f4. f4 f8 e4. e4 e8^\f \break %10
  ees2. ees4.~ ees4 ees8 %11
  ees4. c r2. %12
  r r4 r8 r4 d8^\p %13
  d4. d4 d8 d4. d4 d8 %14
  d4. d4 d8 d4. r4 d8 %15
  d2.^\cresc d4.( d4) d8 \break %16
  
  
}

verseSopranoVoice = \lyricmode {
  % Ajouter ici des paroles.
  
}

altoVoice = \relative c' {
  \global
  \dynamicUp
  % En avant la musique !
  \clef alto
  R1.*4 %4
  \myR d8^\f d4. d4 d8 %5
  \strA f \strA a %6
  \strB f d a' f4. d %7
  \myR g8 e4. cis %8
  \myR a'8 f4. d %9
  \myR b'8^\p \strB e, a a   %10
  a2. a4.~~ a4 a8 %11
  a4. a r2. %12
  r2. \myR a8^\p %13
  \strB g c c \strB bes! a a %14
  \strB g c c  \strB bes r a %15
  g2.^\cresc \strB a~ a a %16
  
  
}


sopranoVoicePart = \new Staff \with {
  instrumentName = "Soprano"
  shortInstrumentName = "S."
  midiInstrument = "choir aahs"
  \consists "Ambitus_engraver"
} { \sopranoVoice }
\addlyrics { \verseSopranoVoice }

altoVoicePart = \new Staff \with {
  instrumentName = "Contralto"
  shortInstrumentName = "A."
  midiInstrument = "choir aahs"
  \consists "Ambitus_engraver"
} { \altoVoice }
\addlyrics { \verseAltoVoice }


\score {
  <<
    \sopranoVoicePart
    \altoVoicePart
   
  >>
  \layout { }
  \midi { }
}