%% lancer par : lilypond <this_file>
%% Version de Lilypond utilisée
\version "2.11.28-1"

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

%% En-tête
\header 
{
  title = "Duo"
	dedication = "A Juliette"
  poet = "Paroles : Jean-Paul Rivron (2003)"
	composer = "Musique :  M. Clerc (2007), avec l'aide de J. S. Bach" 
}


%% Bloc "texte (à écrire sous la mélodie)"
%% Pour une bonne représentation, compter une "syllabe" par note
%% Le texte est fragmenté, de façon à pouvoir écrire plusieurs lignes sous la mélodie


textUn= \lyricmode
{
	Sou- vent je me sou- viens  		d’u- ne soi- rée d’hi- ver
	Où pous- sés par la Muse 				nous av-  ions dé- cou- vert
	L’in- no- cen- te beau- té 			d’un du- o mu- si- cal
	Que tu av- ais lan- cé 					par ten- dres- se fi- liale
}

textDeux = \lyricmode
{
	Tu é- gre- nais les notes 			a- ssise à ton pia- no
	La mé- lo- die fi- lait 				dans un beau cres- cen- do
	A- lors que je ten- tais				en une at- ro- ce lutte
	D’ex- trai- re quel- ques sons 	de ma mo- des- te flûte
}

textTrois = \lyricmode
{
	Tandis que je cher- chais 		grigno- té par le trac
	A_jouer le me- nu- et 				de_Jean Sé- bas- tien Bach
	Tu_lan- çais Per- go- lèse 		et_son Sta- bat Ma- ter
	A_moins que ce ne fût 				l’im- promp- tu de Schu- bert
}

textQuatre = \lyricmode
{
	Nous dé- ci- dions a- lors 		de dé- po- ser les armes  
	Mais dans no- tre dé- sir 		de pour- sui- vre le charme
	Et cou- ron- ner le soir 			en une a- po- thé- ose
	Nous re- ve- nions bien vite 	à la Mé- tho- de Rose
}

%% Notation anglo-saxonne (a = La, b = Si, ...)
%%     ais = La#    r = silence
%% La notation est en mode "relatif"
%% Le signe ' indique de monter d'une octave par rapport à la note précédente
%% le signe , de descendre


%% Le chant ---------------------------------
introUn = \relative c''
{
	\tempo 4 = 120
	\clef "treble"
  \time 3/4
  \key g \major

	r2 r4 |
	r2 r4 |
	r2 r4 |
	r2 r4 |
	r2 r4 |
}

introDeux = \relative c'
{
	% 5 mesures
	\tempo 4 = 120
	\clef "bass"
  \time 3/4
  \key g \major

	d4 e8 d c b |
	c4 d8 c b a  |
	b4 c8 b a g |
	a4 b8 a g fis |
	g2.  |
	
}
voixUnA =  \relative c'' 
{ % 8 mesures
	\tempo 4 = 120
	\clef "treble"
  \time 3/4
  \key g \major
	%\repeat volta 2
	{
		% Souvent je me souviens
    d,4  g8 a b c  |
 		d4 r2 |

		% D'une soirée d'hiver
		e,4  c'8\mordent d e fis  |
    g4 r2 |

		% Où poussé par la Muse
    d,4  g8 a b c  |
 		d4 r2 |
		% Nous avions découvert
		e,4  c'8\mordent d e fis  |
    g4 r2 |
	}
}

voixUnB =  \relative c'' 
{ % 6 mesures
	\tempo 4 = 120
	\clef "treble"
  \time 3/4
  \key g \major
	% L'innocente beauté
	% ...
	d8 e d c b c |
	c d c b a b |
	b c b a g a |
	a b a g fis g ~ |
	g2 r4 |
	r2 r4
}

voixUnC =  \relative c'' 
{
	% 9 mesures
	\tempo 4 = 120
	\clef "treble"
  \time 3/4
  \key g \major
	% Tandis que je cher- chais 		grigno- té par le trac
	% ...
	a4 a8 b c d	| d4 d8 c d e
	a,4 a8 b c d	| d4 d8 c d e	
	e4 e8 fis e d | d4 d8 e d c
	c4 c8 d c b 	| b8 a a b g a ~	|  a4 r2 |
}

voixUnD =  \relative c'' 
{
	% 6 mesures
	\tempo 4 = 120
	\clef "treble"
  \time 3/4
  \key g \major
	d8 e d c b c |
	c d c b a b |
	b c b a g a |
	a b a g fis g ~ |
	g2 r4 | r2 r4
}

%% L'accompagnement -------------------------------
voixDeuxA =  \relative c'
{
  % 8 mesures
	\tempo 4 = 120
	\clef "bass"
  \time 3/4
  \key g \major

	<b d g,>2 a4 |
   b  g g |
   c2. |
   b4 g g |

	<b d g,>2 a4 |
   b  g g |
   c2. |
   b4 g g |
}

voixDeuxB =  \relative c'
{
  % 6 mesures
	\tempo 4 = 120
	\clef "bass"
  \time 3/4
  \key g \major

   a2. |
   g2. |
   d'4 b g |
   d' d,8 c' b a |
   b2 a4 ~ | a2 g4
}

voixDeuxC =  \relative c''
{ 
  % 9 mesures
	a,2.	| d4 e, e
	a2.	| d4 e, e	
	e4 d d | d4 d c
	c4  d b 	| b4  g a ~	|  a4 r2 |
}

voixDeuxD =  \relative c'
{
  % 6 mesures
	\tempo 4 = 120
	\clef "bass"
  \time 3/4
  \key g \major

   a2. |
   g2. |
   d'4 b g |
   d' d,8 c' b a |
   b2 a4 ~ | a2 g4 
}

%%  Assemblage des blocs ----------------------------------
\score 
{
	<<   %% les délimiteurs << et >> encadrent ce qui doit être joué simultanément
		\new Staff
		{
			\new Voice = "voixA" 
			{
				\introUn
				\repeat volta 2
				{
				\voixUnA 
				\voixUnB
				}
				\voixUnC
				\break
				\voixUnA
				\voixUnD
			}
		}

		% Affectation du texte sous la portée
		\new Lyrics \lyricsto "voixA"  { \textUn \textTrois \textQuatre }
		\new Lyrics \lyricsto "voixA"  \textDeux

		\new Staff
		{	
			\introDeux
			\repeat volta 2
			{
				\voixDeuxA
				\voixDeuxB
			}
				\voixDeuxC	
				\break
				\voixDeuxA
				\voixDeuxD
		}
  >>

	% Sorties .ps et .pdf
	\layout 
	{ 
	}
}

%% Sortie audio .midi --------------------------------
% On la construit ici séparément, c'est plus facile à cause des répétitions dans la partition
% et cela permet aussi de modifier, par exemple, la hauteur du chant 

\score
{
	<<	
		\new Voice  
		{
			% flute, oboe, harpsichord, ocarina, Voice Oohs

				\set Staff.midiInstrument = "Voice Oohs"  % oboe est bien aussi

			% Baisse d'une octave pour une voix plutôt grave
			\transpose g g,
			{
				\introUn
				\voixUnA  \voixUnB
				\voixUnA  \voixUnB
				\voixUnC
				\voixUnA
				\voixUnD
			}
		}	

		\new Voice
		{	
			% flute, acoustic guitar (nylon), harpsichord
			\set Staff.midiInstrument = "flute"
			\set Staff.midiMinimumVolume = #0.2
  		\set Staff.midiMaximumVolume = #0.3

			\introDeux
      \voixDeuxA \voixDeuxB
      \voixDeuxA \voixDeuxB
			\voixDeuxC
			\voixDeuxA
			\voixDeuxD		
		}
	>>

		\midi { }
}