\version "2.10.25"
global = {
  \set Score.skipBars = ##t

  % incipit
  \once \override Score.SystemStartBracket #'transparent = ##t
  \override Score.SpacingSpanner #'spacing-increment = #1.0 % tight spacing
  \key bes \major
  \time 3/2
  \once \override Staff.TimeSignature #'style = #'mensural
  \override Voice.NoteHead #'style = #'mensural
  \override Voice.Rest #'style = #'mensural
  \set Staff.printKeyCancellation = ##f
  \cadenzaOn % turn off bar lines
  \skip 1*3
  \once \override Staff.BarLine #'transparent = ##f
  \bar "||"
  \skip 1 % need this extra \skip such that clef change comes
          % after bar line
  \bar ""
  \autoBeamOff

  % main
  \revert Score.SpacingSpanner #'spacing-increment % CHECK: no effect?
  \cadenzaOff % turn bar lines on again
  \once \override Staff.Clef #'full-size-change = ##t
  \set Staff.forceClef = ##t
  \key bes \major
  \time 3/4
  \override Voice.NoteHead #'style = #'default
  \override Voice.Rest #'style = #'default

  % FIXME: setting printKeyCancellation back to #t must not
  % occur in the first bar after the incipit.  Dto. for forceClef.
  % Therefore, we need an extra \skip.
  \skip 2.
  \set Staff.printKeyCancellation = ##t
  \set Staff.forceClef = ##f

  \skip 2.*13 % go to position of volta bracket
  \set Score.repeatCommands = #'((volta "2,3"))
  \skip 2.*1
  \once \override Staff.BarLine #'transparent = ##f
  \set Score.repeatCommands = #'((volta "1,4,5") end-repeat)
  \skip 2.*1
  \set Score.repeatCommands = #'((volta #f))
  \skip 2.*18 % go to end

  % let finis bar go through all staves
  \override Staff.BarLine #'transparent = ##f

  % finis bar
  \bar "|."
}

discantusNotes = {
    \set Staff.instrumentName = #"Discantus  "

    % incipit
    \clef "neomensural-c2"
    \relative
    {f1. d2 g2 f2}
    \skip 1
    
    % main
    \clef "treble"
    \relative
    {
    %H'omme banni de sa plaisance
    f4. d8[ g f]   | d4 f g | f g8 bes4 a8 | bes4 a8 f4 g8 | f[ d f ees] c4 | bes
    %de sa plaisance
    r4 d8.[ ees16|f8] g8.[ f16] f4 ees8 | d[ c8. bes16] bes4 a8 | bes4 r4 r4 |
    %vide de joie                     et de liesse
    c4 c c | d4. c16[ bes] a4 | g4 r8 g'4 f8 | g a bes[ a16 g] f4 | d8[ ees f] d4 c8 | d2 r4 | d2. |
    %Comblé de de deuil et de tristesse
    r4 r4 f4 | ees8[ d] c4 bes | r8 bes4 a8 bes8.[ c16 | d8] ees8 f4 bes | a8 g8.[ f16] f8
    %et de tristesse
    r8 bes8 a g8.[ f16] f4 ees8[ | d] c8.[ bes16] bes4 a8 | bes4 r8
    %Suis sans nul espoir d'alegance 
    f'8 g4 | a f4. bes4 a8 bes4 c8.[ bes16] | a8 g8.[ f16] f4 ees8[ d] c4 f e8 | f\longa |
    }

}

discantusLyricsA = \lyricmode {
  % incipit
  L'omme \skip 2 \skip 2 \skip 2

  % main
  \set stanza = "1,3,5"
  L'om -- _ me __ _ ban -- ni _ de __ _ sa __ _ plai -- _ san -- _ ce,
  de __ sa __ plai -- _ san -- _ _ ce
  Vi -- de de joie __ _ _ _  et __ _ de li -- es -- _ _ _ _ se, -se,
  Com -- _ _ blé de __ _ dueil __ et de tri -- _ stes -- se,
  et __ _ de __ _ tri -- stes -- _ _ se
  Suis sans __ _ nul __ _ es -- poir d'a -- le -- gan -- _ _ _ _ _ ce.
}
discantusLyricsB = \lyricmode {
  \skip 1. \skip 2 \skip 2 \skip 2
  \set stanza = "2"
  A -- _ pres __ _ ri -- gueur _ ma __ _ mort __ _ a -- _ van -- _ ce
  ma __ mort __ _ a -- van -- _ _ ce
  Car des -- es -- poir __ _ _ _ ja -- _ mais ne les -- _ _ _ _ se.
}
discantusLyricsC = \lyricmode {
   \skip 1. \skip 2 \skip 2 \skip 2
   \set stanza = "4"
   For -- _ tu -- _ ne m'a _ sans __ _ or -- _ don -- _ nan -- _ ce
   sans __ or -- _ don -- nan -- _ _ ce
   Mis en e -- xil __ _ _ _ par __ _ grant ru -- des -- _ _ _ _ \skip 2. -se.
   Tous -- _ _ jours des __ _ maulx __ me fait sans _ ces -- se,
   me __ _ fait __ _ sans cess -- _ _ se
   Pour -- tant __ _ m'ap -- _ pel -- loy par ou -- tran -- _ _ _ _ _ ce.
}

tenorNotes = {
  \transpose c' c' {
    \set Staff.instrumentName = #"Tenor  "

    %incipit tenor
    \clef "varbaritone"
    \relative
    {bes\longa }    
    
    % main
    \clef "bass"
    \relative 
    {
    %L'omme...
    bes1. ~bes2 c4 bes2. ~ bes2 a4 bes2 bes8.[ g16 a8] bes c a g4 f d8[ ees] c4 bes2.
    %vide...
    a'2. bes2 c4 d4. bes8 a4 g2 a4 g d8[ f] ees4 | d2 r4 | d r 
    %Comblé    
    f ees8[ d] c4 bes
    %de dueil et de tristesse
    r8 bes4 a8 bes8.[ c16 d8] ees f4 g2 a4 g r8
    %et de tristesse 
    bes4 a8 g8.[ f16 f8] r bes[ a] g4 f es8[ d] c4 bes2 r8 
    bes'8 c4 d bes c bes8.[ a16] f4 c' bes8[ a] g4 f8[ e] f4 g f\longa
    }
  }
}

tenorLyricsA = \lyricmode {
  % incipit
  L'omme

  % main
  \set stanza = "1,3,5"
  L'om -- me ban -- _ ni de sa plai -- _ san -- _ _ _ ce,
  Vi -- de de joie  et __ _ de li -- es -- _ _ se, -se,
  Com -- _ _ blé de __ _ dueil __ et de tri -- stes -- se,
  et __ _ de __ tri -- stes -- _ _ _ se
  Suis sans __ _ nul es -- poir __ _ d'a -- le -- gan -- _ _ _ ce.
}
tenorLyricsB = \lyricmode {
  \skip 2.*5
  \set stanza = "2"
  A -- pres ri -- _ gueur ma mort __ _ a -- van -- _ _ _ ce
  Car des -- es -- poir ja -- _ mais ne les -- _ _ se
}
tenorLyricsC = \lyricmode {
   \skip 2.*5
   \set stanza = "4"
   For -- tu -- ne __ _ m'a sans or -- _ don -- nan -- _ _ _ ce
   Mis en e -- xil par __ _ grant ru -- des -- _ _ \skip 2. -se.
   Tous -- _ _  jours des __ _ maulx __ me fait sans ces -- se,
   me __ _ fait __ sans ces -- _ _ _ se,
   Pour -- tant __ _ m'ap -- pel -- _ loy par ou -- tran -- _ _ _ ce.
}

bassusNotes = {
  \transpose c' c' {
    \set Staff.instrumentName = #"Bassus  "

    %incipit bassus
    \clef "varbaritone"
    \relative
    {bes,\breve }
    \skip 1*2

    % main
    \clef "bass"
    \relative
    {
    %L'omme banni
    bes,2 ees8[ d] g8.[ f16 d8 bes] ees8.[ d16] bes4 ees8[ g] f4 bes,
    %de sa plaisance
    bes8.[ c16 d8] ees bes8.[ c16 d8 ees8] f4 bes,2. r8
    %de sa plaisance
    ees4 f8 c4 a'4 g8 f4 e8 f4 g8.[ f16] d8.[ ees16] f2 
    %vide de joie et de liesse   
    f4 bes,2 f'4 bes2 c4 d2 d,4 bes' a g | a2 r4 | a 
    %comble de deuil
    f8 bes a d8.[ c16] bes4 a8 bes8.[ a16 g8] f8.[ ees16 c8] d8.[ ees16 f8] g d4 r4 r4
    d ees f8[ bes, ees f] bes4 c d8[ c bes a16 g] a8.[ f16 g8] f4 e8 f8.[ ees16] d4 ees8[ bes] f'4
    r4 bes,4 f' g a8.[ g16 f8] e4 f8 c4 a'8 g a[ f] c4 c'\longa
    }
  }
}

bassusLyricsA = \lyricmode {
  % incipit
  L'omme

  % main
  \set stanza = "1,3,5"
  L'om -- me ban -- _ _ _ _ ni de sa plai -- san -- ce,
  de __ _ sa plai -- _ san -- _ _ _ _  ce,
  Vi -- de de joie  et de li -- es -- _ _ se, -se,
  Com -- blé de dueil __ _ _ _ _ _ _ _ et __ _ de __ tri -- _ stes -- _ _ _ _ _ _ se,
  Suis sans __ _ nul __ _ es -- poir d'a -- le -- gan -- _ ce.
}
bassusLyricsB = \lyricmode {
  \skip 2.*5
  \set stanza = "2"
  A -- pres ri -- _ _ _ _ gueur ma mort a -- van -- ce
  ma __ _ mort a -- _ van -- _ _ _ _ ce
  Car des -- es -- poir ja -- mais ne les -- _ _ se
}
bassusLyricsC = \lyricmode {
   \skip 2.*5
   \set stanza = "4"
   For -- tu -- ne __ _ _ _ _ m'a sans or -- don -- nan -- ce
   sans __ _ or -- don -- _ nan -- _ _ _ _ ce
   Mis  en e -- xil  par grant ru -- des -- _ _ \skip 2. -se.
   Tous -- jours des maulx __ _ _ _ _ _ _ _ me __ _ fait __ sans __ _ ces -- _ _ _ _ _ _ se,
   Pour -- tant __ _ m'ap -- _ pel -- loy par ou -- tran -- _ ce.
}

\header {
  title = "L'omme banni de sa plaisance"
  composer = \markup \right-align {"Jacob Barbireau (1455 – 1491)"}
  tagline = "Music typeset by L. Pietsch, 2008, using LilyPond 2.10."
}

#(ly:set-option 'point-and-click #f) %schaltet die verlinkung aus
#(set-global-staff-size 16.9) %"Schriftgröße" der Notenzeilen
\score {
  \new StaffGroup = choirStaff <<
    \new Voice =
      "discantusNotes" << \global \discantusNotes >>
    \addlyrics { \discantusLyricsA }
    \addlyrics { \discantusLyricsB }
    \addlyrics { \discantusLyricsC }

    \new Voice =
      "tenorNotes" << \global \tenorNotes >>
    \addlyrics { \tenorLyricsA }
    \addlyrics { \tenorLyricsB }
    \addlyrics { \tenorLyricsC }

    \new Voice =
      "bassusNotes" << \global \bassusNotes >>
    \addlyrics { \bassusLyricsA }
    \addlyrics { \bassusLyricsB }
    \addlyrics { \bassusLyricsC }
  >>
%  \midi { \context { \score tempoWholesPerMinute = #(lymake-moment 90 2) } }
% hat zwischenzeitig funktioniert, warum jetzt nicht mehr, weiß ich auch nicht.
% jedenfalls ggf. das kommentarzeichen entfernen.
  \layout {
    \context {
      \Score

      % no bars in staves
      \override BarLine #'transparent = ##t

      % incipit should not start with a start delimiter
      \remove "System_start_delimiter_engraver"
    }
    \context {
      \Voice

      % no slurs
      \override Slur #'transparent = ##t

      % Comment in the below "\remove" command to allow line
      % breaking also at those barlines where a note overlaps
      % into the next bar.  The command is commented out in this
      % short example score, but especially for large scores, you
      % will typically yield better line breaking and thus improve
      % overall spacing if you comment in the following command.
      \remove "Forbid_line_break_engraver"
    }
    }
}