\version "2.18.2"

%% supprime les warnings (optionnel) :
% {
    #(define (suppress message x)
      (let loop ((c x))
        (if (> c 0)
           (begin
            (ly:expect-warning message)
            (loop (1- c))))))
    
    #(suppress "barcheck failed at: -1/4" 4)
%}

%% formatage de la page :
#(set! paper-alist 
       (cons '("monExemple" . (cons (* 210 mm) (* 100 mm))) 
         paper-alist))

\paper {
  #(set-paper-size "monExemple")
  indent = 0
}

%% ici commence l'exemple :
\header {
  title = "Alleluia 7"
  composer = "Musique : J. Berthier"
  tagline = "© Atelier et Presses de Taizé, F-72240 Taizé-Communauté"
}

global = {
  \key f\major
  \time 3/4
  \partial 4
}

ossiaUn = \relative f' {
  \once\override Staff.Clef.stencil = ##f
  \clef G
  \global
  \stopStaff 
    s4*16
  \startStaff
  \set Staff.forceClef = ##t
  \override Staff.Clef.full-size-change = ##t
   \clef G
  % mes.6
  | s1 s4 \stemUp a8[ a] d4 s
  \bar "!"
  % mes.7
  | s2
}

ossiaDeux = \relative f' {
  \clef G
  \global
  \stopStaff 
    s4*16
  \startStaff
  \clef G
  % mes.6
  | \set doubleSlurs = ##t
    s1 s4 \stemDown a8[ a] d4_( <a e'>8 <g d'>)
  \bar "!"
  % mes.7
  | <a e'>2
}

aigueUn = \relative f' {
  \clef G
  \global
  % mes.0 
  | d8^\( e
  \repeat volta 2 {
    % mes.1
    | f4 f <d f>8 <e g>
    % mes.2
    | <f a>4 q q8 q
  }
  \alternative {
    {
      % mes.3
      | \set doubleSlurs = ##t
        <f d'>2( <e c'>4)
        \unset doubleSlurs
      % mes.4
      | <c a'>2 \) \breathe d8 e
    }
    {
       % mes.5
      | \stemUp 
        d'2^( <a c>4)
      % mes.6
      | \set Timing.measureLength = #(ly:make-moment 2/1)
        \set doubleSlurs = ##t
        \once\override Staff.NoteHead.style = #'altdefault
        <f d'>\breve ^( 
      \bar "!"
      % mes.7
      | \set Timing.measureLength = #(ly:make-moment 1/2)
        <e c'>2)
    }
  }
  \bar "|."
  \tweak direction #DOWN
  \mark "D.C."
}

aigueDeux = \relative f' {
  \clef G
  \global
  \stemDown 
  % mes.0 
  | d8 e 
  \repeat volta 2 {
    % mes.1
    | f4 f s
    % mes.2
    | s2.
  }
  \alternative {
    {
      % mes.3
      | s2.
      % mes.4
      | s2 
        \override Slur.positions = #'(1 . 3)
        d8^( e)
    }
    {
       % mes.5
      | f4_( g \once\hideNotes a)
      % mes.6
      | s\breve
      \bar "!"
      % mes.7
      | s2
    }
  }
  \bar "|."
  \tweak direction #DOWN
  \mark "D.C."
}

graveUn = \relative f {
  \clef F
  \global
  \stemUp
  % mes.0 
  | d8e
  \repeat volta 2 {
    % mes.1
    | f4 f s
    % mes.2
    | s2.
  }
  \alternative {
    {
      % mes.3
      | bes4^( a <c, g'>)
      % mes.4
      | s2 d8 e 
    }
    {
       % mes.5
      | s2.
      % mes.6
      | d'\breve^(
      \bar "!"
      % mes.7
      | a2)
    }
  }
  \bar "|."
  \tweak direction #DOWN
  \mark "D.C."
}

graveDeux = \relative f {
  \clef F
  \global
  \stemDown
  % mes.0 
  | d8_\( e
  \repeat volta 2 {
    % mes.1
    | f4 f <d a'>8 <c c'>
    % mes.2
    | <f c'>4 q q8 q
  }
  \alternative {
    {
      % mes.3
      | bes,2_( \once\hideNotes c4)
      % mes.4
      | <f a>2\) 
        \override Slur.positions = #'(-2 . -5)
        d8_( e)
    }
    {
       % mes.5
      | \set doubleSlurs = ##t
        <bes' d>2( <a e'>4)
        \unset doubleSlurs
      % mes.6
       \once\override Staff.NoteHead.style = #'altdefault
      | d,\breve_(
      \bar "!"
      % mes.7
      | a'2)
    }
  }
  \bar "|."
  \tweak direction #DOWN
  \mark "D.C."
}

paroles = \lyricmode {
  al -- le -- lu -- ia,
  al -- le -- lu -- ia,
  al -- le -- lu -- ia.
  al -- le -- lu -- ia! __
}

parolesOssia = \lyricmode {
  (al -- le -- lu -- ia)
}

\markup\vspace #1
\score {
  \new ChoirStaff  <<
    \new Staff \with {
      \omit KeySignature
      \omit TimeSignature
      fontSize = #-3
      \override StaffSymbol.staff-space = #(magstep -3)
      \override StaffSymbol.thickness = #(magstep -3)
    }
    <<
      \new Voice \ossiaUn
      \new Voice = "monChantOssia" \ossiaDeux
    >>
    \new Lyrics \with { \override LyricText.font-size = #-3 }
      \lyricsto monChantOssia \parolesOssia
    \new Staff  <<
      \new Voice = "monChant" \aigueUn
      \new Voice \aigueDeux
    >>
    \new Lyrics \lyricsto monChant \paroles
    \new Staff 
    <<
      \new Voice \graveUn
      \new Voice \graveDeux
    >>
  >>
}