\version "2.13.46"

\header {
  dedication = "Diminutions"
  title = "Susanne un jour"
  composer = "Orlando di LASSO"
  poet = "Giovanni BASSANO"
}

\paper {
    #(set-paper-size "a4")
    top-margin = 15\mm % définit la marge du haut
    left-margin = 15\mm % définit la marge de gauche 
    bottom-margin = 20\mm % définit la marge du bas
}

global = {
  \key f \major
  \time 2/2
  \set Score.measureLength = #(ly:make-moment 4 2)
  \set Score.skipBars = ##t
  \override Staff.NoteHead  #'style = #'baroque

}

sopranoVoiceI = \relative c'' {
  \global
  \dynamicUp
  % En avant la musique !
  g1 bes ~
  bes2 c d8[ g, bes c] d g,8. a16 bes c 
  d8 g, bes c d2 g,1 
  g2 d'8 bes g16 a bes c d8 g, g' d e[ g e c] 
  f2 d r c8 a c16 bes c d 
  c8 a16 bes c d c8 bes g bes16 g a bes a1 
%   page 2
  R\breve 
  r2 d ~ d8[ c d e]^\markup \flat d e^\markup \flat d c
  bes g bes16 a bes c d8 e^\markup \flat d4 c8 bes g16 f g a bes8[ a16 g f g a bes] 
  c bes c bes c bes a g bes a bes a bes a g a bes1 
  d8 f8. e16 d c bes8 f g a bes f8. e16 d c bes8[ bes' f bes] 
  a c8. bes16 a g a8 f16 g a bes c a bes8[ c bes a] g a bes g 
  a16 g a bes a4 d,8 g16 f g a g8 e c16 d e f g a g8[ e f g] 
  fis g a fis g16 fis g fis g fis e fis g2 g 
  bes1. c2 
  d1 d 
  g, g4 bes16 a bes c d8[ g,] d'4 
  d8 e16 f g8 d e c8. d16 e8 
  f d16 e f g f8 d2 
  r2 c8 a f16 g a bes c8 a8. bes16 c8 bes[ g8. a16 bes8] 
  a1 r 
  r r2 d ~ 
  d d bes8 a bes c d[ bes c d] 
  d bes g a bes d c bes a[ bes c a] bes16 a bes a bes a g a 
  bes \breve 
  bes8 a16 g f e d c bes c d e f g a bes a8 f f' e16 d c[ bes a g a bes c a] 
%   page 5
  bes8 g bes c d bes g16 a bes g a2 d,8 e16 f g8 d 
  e f g e g16 f^\markup \sharp g a g8 a fis d16 e fis^\markup \sharp d e fis^\markup \sharp g[ fis^\markup \sharp g fis g fis^\markup \sharp e fis]^\markup \sharp 
  g1 r2 d' 
  ees ees d a 
  a8 cis16 d  e8 a, f16 g a bes a8 d, d'8. e16 f8 d bes[ f'] d4 
  bes1 r2 d 
  d d8 e f d cis bes^\markup \natural cis d cis[^\markup \sharp a bes^\markup \natural cis]
  d2 bes bes8 a bes c bes[ d c bes] 
  a1 a ~
  a r 
  a b8 a b c d[ e] d4 
  c2 r4 g d'2 a 
  b1 r2 c 
  d8 g,8. a16 bes8 d8. e16 f8 f, bes8. c16 d8 bes a8.[ bes16 c8 a] 
  bes f g a bes a bes c bes4 a8[ g] f bes d bes
%   page 7
  f'8 e16 d c bes a g f e d e f g a bes c d e f g c, d e f[ e f e f e d e] 
  f2 c f1 
  ees2 d c1 ~ 
  c2 c b8 a b c d[ e] d4 
  c8 bes c16 bes c d c8[ g] a16 bes c8 d1 
  r1 r2 d 
  d8 c d e^\markup \flat d bes c d ees c d ees d[ f ees d] 
  c bes c d c a bes c bes1 ~ 
  bes \breve 
  r1 r2 d 
  d8 c d16 c d e^\markup \flat d8 bes16 c d bes c d c8[ d c a] bes d c bes 
  a d8. c16 bes a g8 a bes g c[ d e^\markup \flat d] c16 bes c d c8 bes 
  a g a16 g a bes a2 g d' ~
  d2 bes8. c16 d bes d e f8 f,8. g16 a f c'8[ a8. bes16 c d] 
  c8 bes c16 bes c d ees8 d ees16 d ees f g8 g,8. a16 bes c bes8[ f g a] 
  bes8 c d bes d bes c d c a bes c bes[ c bes a ]
  g16 a bes g a bes c d ees d c bes a g f e^\markup \flat d e f^\markup \sharp g a d, e fis g[ fis g fis g fis e fis]
  g \longa \bar "|."
  
}

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

sopranoVoiceII = \relative c'' {
  \global
  \dynamicUp
  % En avant la musique !
  g1 bes ~ 
  bes2 c d1  ~
  d g, 
  g2 d' d e 
  f d r c 
  c bes a1 
  R\breve 
  r2 d d d 
  bes d c4 bes bes2 ~
  bes4 a8 g a2 bes1 ~
  bes bes 
  a2 a bes g 
  a d, e g ~ 
  g4 f8^\markup \sharp e f2 g g 
  bes1. c2 
  d \breve 
  g,1 g2 d' 
  d e f d 
  r c c bes 
  a1 r 
  r r2 d 
  d d bes d 
  c4 bes bes2. a8 g a2 
  bes  \breve 
  bes1 a2 a 
  bes2 g a d, 
  e g2. f8^\markup \sharp e f2 
  g1 r2 d' 
  ees ees d a 
  a a d d 
  bes1 r2 d 
  d d cis cis 
  d bes bes bes 
  a1 a ~
  a r 
  a bes2^\markup \natural d 
  c r4 g d'2 a 
  b1 r2 c 
  d d d a 
  bes1. f2 ~ 
  f f'1 e2 
  f c f1 
  ees2 d c1 ~ 
  c2 c b d 
  c c d1 
  r1 r2 d 
  d d ees d 
  c1 bes ~ 
  bes \breve 
  r1 r 2 d 
  d d c bes 
  a g c1 
  a g2 d' ~ 
  d f f c ~ 
  c4 c ees2 ees bes ~
  bes bes c bes 
  g1 d' 
  b \longa \bar "|."
  
}

verseSopranoVoiceII = \lyricmode {
  % Ajouter ici des paroles.
  Su -- san -- ne~un jour d'a --
  mour so -- li -- ci -- té -- e, Su -- san -- ne~un jour
  d'a -- mour so -- li -- ci -- té -- _ _ _ _ _ e 
  Par deux viel -- lards con -- 
  voi -- tans sa beau -- _ _ _ té, Fust en son 
  coeur tri -- ste~et de -- scon -- for -- té -- e,
  Fust en son cœur tri -- ste~et de -- scon -- for -- 
  té -- _ _ _ _ _ e, Voy -- ant l'ef -- 
  fort fait à sa cha -- ste -- _ _ _ té. El --
  le leur dict_: si par de -- sloy -- au -- té de ce corps mien vous
  au -- rez jo -- uis -- san -- ce, C'est fait de 
  moy, C'est fait de moy, si je fay re -- si -- stan -- ce,
  Vous me fe -- rez mou -- rir en de --
  shon -- neur; Mais j'ai -- me mieux pe -- 
  rir en in -- no -- cen -- ce, Que 
  d'of -- fen -- ser par pe -- ché le Sei -- gneur, que 
  d'of -- fen -- ser, Que d'of -- fen -- ser par pe -- ché le Sei -- gneur.
}

soprano = \relative c'' {
  \global
  % En avant la musique !
  r1 r2 g 
  ees c g'1 
  d e2^\markup \flat e 
  d g, g' e 
  a1. a2 
  f d r a' 
  a a bes a 
  g f d g ~ 
  g g g f 
  f1 d 
  r2 f f f 
  f1. d2 
  f g g e 
  d \breve 
  r2 g ees c 
  g'1 d 
  ees2 ees d g, 
  g' e a1 ~
  a2 a f d 
  r a' a a 
  bes a g f 
  d g1 g2 
  g f f1 
  d r2 f 
  f f f1 ~ 
  f2 d f g 
  g e d1 ~ 
  d2 d g1 ~
  g2 g f1 
  e2 f d d ~ 
  d4 e f g a2 g 
  fis a a1 
  f g2. f4 
  e2 e f d 
  e a a1 
  fis2 fis g2. fis4^\markup \natural 
  e f g1 f2^\markup \sharp 
  g1 r2 e 
  d d f f 
  f1 f2 bes 
  a a c1 
  c2 a1 bes2 
  g2. f4 e f g2 ~ 
  g f^\markup \sharp g d 
  e e f bes 
  a g f2. f4 
  f2 bes g4 g bes2 ~ 
  bes a bes f 
  f f bes, f' 
  f1 d2 bes' 
  bes bes a g 
  f bes a4 g g2 ~
  g f^\markup \sharp g bes 
  bes bes a1 
  g g2 g 
  f f f d 
  e4 f g1 f2^\markup \sharp 
  g \longa \bar "|."
  
}

alto = \relative c' {
  \global
  % En avant la musique !
  R\breve 
  r1 r2 g 
  bes1. c2 
  d1 r2 a ~ 
  a d c c 
  a d2. c8^\markup \sharp bes^\markup \natural c2^\markup \sharp 
  d2. d4 d2 d 
  ees d g, g 
  r bes g bes 
  f1 r2 f' ~ 
  f bes, bes f ~ 
  f c' d2. d4 
  d2 bes g1 
  r2 a bes2. c4 
  d2 d g2. f8 e 
  d4 c bes a g1 
  r2 g bes1 ~ 
  bes2 c d f 
  f2. f4 c c g'2 
  e e fis fis 
  g4 g, a2 bes1 
  r2 d d d 
  ees d c1 
  bes d 
  d2 d c1 
  bes1 a2 g 
  c1 a 
  g2 g d' g, 
  g g d' d 
  cis d f f 
  f1 f2 d ~ 
  d f e e 
  d1 r 
  r2 a a2. a4 
  a2 f' e1 
  d2 a g r4 d' 
  g2 e d1 ~ 
  d r2 g 
  g f d c 
  bes f r1 
  f'1 g2 g 
  c, f f1 
  r2 d g4 f e d 
  c2 c d b 
  c c f,1 
  r2 g bes a 
  bes2. g4 c2 bes 
  f' f bes,2. bes4 
  bes2 bes g4 g bes2 ~ 
  bes4 a8 g a2 bes f'
  f f f, g 
  d' ees c1 
  d g,2 g' 
  f1. f2 
  ees \breve 
  d1 c2 g' ~
  g4 f e2^\markup \flat d d 
  d \longa \bar "|."   
}

tenor = \relative c' {
  \global
  % En avant la musique !
  R\breve*2 
  r1 r2 g 
  bes1. c2 
  d f f2. f4 
  c c g'2 e e 
  fis fis g4 g, a2 
  bes1 r2 d2 
  d d ees d 
  c1 bes1d d2 d 
  c1 bes 
%   page 3
  a2 g c1 
  a g ~ 
  g r 
  g bes1 ~
  bes2 c  d1 
  r2 a1 d2 
  c c a d ~
  d4 cis8 b^\markup \natural cis2 d2. d4 
  d2 d ees d 
  g, g r bes 
  g bes f1 
  r2 f'1 bes,2 
  bes f1 c'2 
  d2. d4 d2 bes 
  g1 r2 a 
  b \breve 
  c1 a 
  a bes4 a bes c 
  d2 d c bes 
  a \breve 
  r2 d d d 
  cis cis d f 
  e d1 cis2^\markup \sharp 
  d1. bes2 
  c1 a 
  g r2 g 
  bes a bes c 
  d1 d
%   page 7
  c1 c2 c 
  a1 d 
  c2 b c1 
  a1 g ~ 
  g2 g bes1 
  c d 
  R\breve
  r1 r2 d 
  d d ees d 
  c1 bes ~ 
  bes r 
  R\breve 
  r1 d 
  d2 d c1 ~ 
  c bes ~ 
  bes a2 g 
  c1 a 
  g \longa \bar "|."
  
}

bass = \relative c {
  \global
  % En avant la musique !
  R \breve*2
  r2 g' ees c 
  g'1 r 
  d f ~ 
  f2 g a1 
  d, g2 f 
  ees bes bes'2. a4 
  g2. f4 ees2 bes 
  r2 f' g bes 
  bes,2. bes4 bes2 bes 
  f'1 r2 g 
  d2 g c,1 
  d g, ~ 
  g r 
  r r2 g' ees c g'1 
  r d 
  f1. g2 
  a1 d, 
  g2 f ees bes 
  bes'2. a4 g2. f4 
  ees2 bes r f' 
  g bes bes,2. bes4 
  bes2 bes f'1 
  r2 g d g 
  c,1 d 
  g,2 g' g1 
  c,1 d 
  r2 d bes1 ~ 
  bes2 bes f' g 
  d1 r2 a' 
  bes bes g1 
  a d,2 d 
  cis d a'1 
  d, r2 g 
  c,1 d 
  g, r2 c 
  g' d bes f'
  bes, bes bes'1 
  f2 f c c 
  f2. e4 d2 bes 
  c g' c,1 
  r1 r2 g' 
  c, c bes2. bes4 
  f'2 ees d1 
  R\breve 
  r1 r2 bes 
  bes bes ees bes 
  f'1 bes, ~ 
  bes r 
  R \breve 
  r1 r2 g' 
  bes bes f1 
  r2 c ees ees 
  bes bes f' g 
  c,1 d 
  g, \longa 
  
}

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

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

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

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

pianoReduction = \new PianoStaff \with {
  fontSize = #-1
  \override StaffSymbol #'staff-space = #(magstep -1)
} <<
  \new Staff \with {
    \consists "Mark_engraver"
    \consists "Metronome_mark_engraver"
    \remove "Staff_performer"
  } {
    #(set-accidental-style 'piano)
    <<
      \soprano \\
      \alto
    >>
  }
  \new Staff \with {
    \remove "Staff_performer"
  } {
    \clef bass
    #(set-accidental-style 'piano)
    <<
      \tenor \\
      \bass
    >>
  }
>>

rehearsalMidi = #(define-music-function
  (parser location name midiInstrument lyrics) (string? string? ly:music?)
  #{
    \unfoldRepeats <<
      \new Staff = "soprano" \new Voice = "soprano" { s1*0\f \soprano }
      \new Staff = "alto" \new Voice = "alto" { s1*0\f \alto }
      \new Staff = "tenor" \new Voice = "tenor" { s1*0\f \tenor }
      \new Staff = "bass" \new Voice = "bass" { s1*0\f \bass }
      \context Staff = $name {
	\set Score.midiMinimumVolume = #0.5
	\set Score.midiMaximumVolume = #0.5
	\set Score.tempoWholesPerMinute = #(ly:make-moment 100 4)
	\set Staff.midiMinimumVolume = #0.8
	\set Staff.midiMaximumVolume = #1.0
	\set Staff.midiInstrument = $midiInstrument
      }
      \new Lyrics \with {
	alignBelowContext = $name
      } \lyricsto $name $lyrics
    >>
#})

sopranoVoiceIPart = \new Staff \with {
  instrumentName = "Diminution"
  midiInstrument = "choir aahs"
} { \sopranoVoiceI }
\addlyrics { \verseSopranoVoiceI }

sopranoVoiceIIPart = \new Staff \with {
  instrumentName = "Cantus"
  midiInstrument = "choir aahs"
} { \sopranoVoiceII }
\addlyrics { \verseSopranoVoiceII }

choirPart = <<
  \new ChoirStaff <<
    \new Staff = "sa" \with {
      midiInstrument = "choir aahs"
      instrumentName = \markup \center-column { "Altus" "Tenor" }
    } <<
      \new Voice = "soprano" { \voiceOne \soprano }
      \new Voice = "alto" { \voiceTwo \alto }
    >>
    \new Lyrics \with {
      alignAboveContext = "sa"
      \override VerticalAxisGroup #'staff-affinity = #DOWN
    } \lyricsto "soprano" \sopranoVerse
    \new Lyrics \lyricsto "alto" \altoVerse
    \new Staff = "tb" \with {
      midiInstrument = "choir aahs"
      instrumentName = \markup \center-column { "Quintus" "Bassus" }
    } <<
      \clef bass
      \new Voice = "tenor" { \voiceOne \tenor }
      \new Voice = "bass" { \voiceTwo \bass }
    >>
    \new Lyrics \with {
      alignAboveContext = "tb"
      \override VerticalAxisGroup #'staff-affinity = #DOWN
    } \lyricsto "tenor" \tenorVerse
    \new Lyrics \lyricsto "bass" \bassVerse
  >>
  \pianoReduction
>>

\book {
  \score {
    << \new ChoirStaff <<
      \sopranoVoiceIPart
      \sopranoVoiceIIPart >>
      \choirPart
    >>
   
      \layout{
%     #(layout-set-staff-size 14)
    }
    \midi {
      \context {
	\Score
	tempoWholesPerMinute = #(ly:make-moment 100 4)
      }
    }
  }
}



% Fichiers MIDI pour répétitions :
#(define output-suffix "soprano")
\book {
  \score {
    \rehearsalMidi "soprano" "soprano sax" \sopranoVerse
    \midi { }
  }
}

#(define output-suffix "alto")
\book {
  \score {
    \rehearsalMidi "alto" "soprano sax" \altoVerse
    \midi { }
  }
}

#(define output-suffix "tenor")
\book {
  \score {
    \rehearsalMidi "tenor" "tenor sax" \tenorVerse
    \midi { }
  }
}

#(define output-suffix "bass")
\book {
  \score {
    \rehearsalMidi "bass" "tenor sax" \bassVerse
    \midi { }
  }
}
#(set-global-staff-size 16 )