%% lancer par : lilypond <this_file>
\version "2.10.33"

%% Mise en page (pour sortie .ps et .pdf)
#(set-default-paper-size "a4")
#(set-global-staff-size 18) 


%% En-tête
\header 
{
  title = "Mais que fait l'escargot"
  poet ="Maurice Clerc, 2006 "
  %dedication =""
}

%% Bloc "texte (à écrire sous la mélodie)"
%% Pour une bonne représentation, compter une "syllabe" par note

textUn= \lyricmode
{
  Le chat fait Mi- a- ou
  Le chat fait Mi- a- ou>  %% < c'est l'enfant qui est supposé répéter>
  Et le chien fait Wou Wou
  Et le chien fait Wou Wou
  Mais que fait l'es car- got
  Mais que fait l'es- car- got
  L'es- car- got fait  %% <mime avec la mains>
  
}


%% Blocs "première ligne musicale" (ici la mélodie)
%% Notation anglo-saxonne 
%% a = La
%% b = Si
%% c = Do
%% d = Ré
%% e = Mi
%% f = Fa
%% g = Sol
%% 


melodieUn=    \relative
{
  \tempo 4=120  
  \time 4/4
  \clef treble
  \key c \major
  cis8 cis cis cis4 e8 cis4
  cis8 cis cis cis4 e8 d4
  
  d8 d d d4 fis8 d4
  d8 d d d4 fis8 d4
  
  e8 e e e4 d8 cis4
  e8e e e4 d8 cis4
  
  a8 a a b4. r4 %
  
}


% Accompagnement (rythme deux temps)
LaUn= {a8 <e' a' c' e''>8}
LaDeux = {e8 <e' a' c' e''>8}
ReUn= {a8 <d' a' cis' fis''>8 }
ReDeux = {fis8 <d' a' cis' fis''>8 }
MimUn={b8 <e' gis' b' e''>8  }
MimDeux = {a8 <e' gis' b' e''>8  }


harmonieUn =  
{
  \LaUn  \LaDeux \LaUn  \LaDeux 
  \LaUn  \LaDeux \LaUn  \ReUn 
  
  \ReUn \ReDeux \ReUn \ReDeux 
  \ReUn \ReDeux \ReUn \ReDeux 
  
  \MimUn \MimDeux \MimUn \LaUn
  \MimUn \MimDeux \MimUn \LaUn
  
  \LaDeux b8 < e' gis' b' e''>2 r8
  
}


% Accords à afficherd

chordsUn = 
{\chords
  {
    a1 
    a1
    d1
    d1
    e2 e4 a4
    e2 e4 a4
    a2 e2
  }
}


%% Construction du morceau 

\score
{	
  
  
  <<  %% Les éléments entre les délimiteurs << et >> sont à jouer simultanément	
    <<       
      \new ChordNames {
        \frenchChords
      }
      %% Première ligne musicale (mélodie)
      \new Staff % Mélodie
      {
        \new Voice = un
        {
          \melodieUn		
        }
      }
      
      \chordsUn
      
      %% Accompagnement (seconde ligne musicale)
      \new Staff
      {
        \new Voice = "deux"
        {
          \harmonieUn 
        }
      }
      
      
      %% Affectation du texte sous la portée
      
      \new Lyrics="Un" \lyricsto "un" 
      {\set stanza = "1. "    \textUn } 
    >>
    
  >>
  
  
} % Fin score

%% On fait un assemblage à part pour la sortie audio (MIDI)
%% D'un côté cela impose de répéter des éléments musicaux
%% de l'autre cela permet éventuellement d'en ajouter qui ne sont pas visibles
%% sur la partition (troisième "voix")

\score 
{
  <<
    \new Staff
    {
      \set Staff.midiMinimumVolume = #1.2
      \set Staff.midiMaximumVolume = #1.4
      
      % Choix de l'instrument 
      % par exemple :
      % oboe, flute, cello, pan flute,  church organ, accordion, Voice Oohs
      % clarinet, ocarina, harmonica, acoustic guitar (nylon), violin
      % violin_sordino (si installé)
      \set Staff.midiInstrument = "oboe"  
      
      % Affectation du bloc "mélodie"
      
      \new Voice = "un" 
      {
        \melodieUn
        
      }
    }
    
    \new Staff  % Accompagnement
    {
      \set Staff.midiMinimumVolume = #0.3
      \set Staff.midiMaximumVolume = #0.3
      
      \set Staff.midiInstrument = "acoustic guitar (nylon)"
      \new Voice = "deux"
      {
        \harmonieUn  
      }
    }
    
    
  >>
  % Sortie audio .midi
  \midi
  {
    % ici, paramètres éventuels
  }
  
} % Fin score



% Sorties .ps et .pdf)

\paper {
  between-system-padding = 1\cm % #1
  between-system-space = #0.1
  ragged-last-bottom = ##t 
  ragged-bottom = ##t 
  indent=0
  %annotate-spacing = ##t % To graphically display the dimensions of vertical layout variables
}

% Texte après la partition
\markup
{
  \large
  \column  % I
  {
    \left-align		
    \line 
    {
      \bold "1."
      \column 
      {
        "Le chat fait Miaou"
        "Le chat fait  Miaou"
        "Et le chien fait Wou Wou"
        "Et le chien fait Wou Wou"
        "Mais que fait l'escargot"
        "Mais que fait l'escargot"
        "L'escargot fait ...<mime avec la main>"
        
        
      } % Fin column 1
    } % Fin line 1
    
    \hspace #1 
    
    \line 
    {
      
      \bold "2."
      \column 
      {
        "La vache fait Meuh-meuh"
        "La vache fait  Meuh-meuh"
        "Et l'âne fait Hi-han"
        "Et l'âne fait Hi-han"
        "Mais que fait le lapin"
        "Mais que fait le lapin"
        "Le lapin fait ..."
        
      }
    }% Fin line 2
    \hspace #1  
    \line 
    {
      \bold "3."
      \column 
      {
        "La grenouille fait Coa-coa"
        "La grenouille fait Coa-coa"
        "Le corbeau fait Croâ-croâ"
        "Le corbeau fait Croâ-croâ"
        "Que fait le papillon ?"
        "Que fait le papillon ?"
        "Le papillon fait ...."
      }
    }   
    
  } %Fin column I
  
  \hspace #1
  \large
  \column % II
  {
    
    \line 
    {
      \bold "4."
      \column 
      {
        
        "L'abeille fait Bzzz-bzzz"
        "L'abeille fait Bzzz-bzzz"
        "Le grillon fait Crrr-crrr"
        "Le grillon fait Crrr-crrr"
        "Mais que fait l'araignée ?"
        "Mais que fait l'araignée ?"
        "L'araignée fait ..."
        
        
      }
    }% Fin line 4
    \hspace #1 
    \line 
    {
      \bold "5."
      \column 
      {
        "La claque fait <bruit de claque, deux fois>"
        "La claque fait <  >"
        "Le baiser fait <bruit de baiser, deux fois>"
        "Le baiser fait < >"
        "Mais que fait le sourire ?"
        "Mais que fait le sourire ?"
        "Le sourire fait ...."
        "Voilà !"
      }
    } % Fin line 5
    
  } % Fin column II
  
  
} % Fin markup