View difference between Paste ID: 8H9Sn2QL and ukshqYZn

 % Alexandre JADIN - Frederic KACZYNSKI
 % -----------
 % Version 2.0.0.0.1-prealpha-b10056 pa
 
-local Mix Interprete Projet CWD ToNote ToDuree Bourdon Etirer Duree Transpose in
+local Mix Interprete Projet CWD ToNote ToDuree Bourdon Etirer Duree Transpose GetH in
    % CWD contient le chemin complet vers le dossier contenant le fichier 'code.oz'
    % modifiez sa valeur pour correspondre à votre système.
    CWD = {Property.condGet 'testcwd' '/home/justice/Documents/Projet2014/'}
 
    % Si vous utilisez Mozart 1.4, remplacez la ligne précédente par celle-ci :
    % [Projet] = {Link ['Projet2014_mozart1.4.ozf']}
    %
    % Projet fournit quatre fonctions :
    % {Projet.run Interprete Mix Music 'out.wav'} = ok OR error(...)
    % {Projet.readFile FileName} = AudioVector OR error(...)
    % {Projet.writeFile FileName AudioVector} = ok OR error(...)
    % {Projet.load 'music_file.dj.oz'} = La valeur oz contenue dans le fichier chargé (normalement une <musique>).
    %
    % et une constante :
    % Projet.hz = 44100, la fréquence d'échantilonnage (nombre de données par seconde)
    [Projet] = {Link [CWD#'Projet2014_mozart2.ozf']}
 
    local
       Audio = {Projet.readFile CWD#'wave/animaux/cow.wav'}
    in
       % Mix prends une musique et doit retourner un vecteur audio.
       fun {Mix Interprete Music}
 	 local Result in
 	    Result = {Interprete Music.1.1}
 
 	    {Browse Result}
 	    Audio
 	 end
       end % fun
 
 
    fun{GetH Note}
       H=0 in
       case Note of note(nom:Nom octave:Octave alteration:none) then
 	 case Nom of a then H=0
 	 [] b then H=2
 	 [] c then H=~8
 	 [] d then H=~6
 	 [] e then H=~4
 	 [] f then H=~3
 	 [] g then H=~2
 	 end
       []note(nom:Nom octave:Octave alteration:'# ') then
 	 case Nom of c then H=~7
 	 [] d then H=~5
 	 [] f then H=~3
 	 [] g then H=~1
 	 [] a then H=1
 	 end
       end %case
       H+48-12*Octave
    end %fun
 
       fun {Bourdon ListEchants Note}
 	 case ListEchants
 	 of echantillon(hauteur:Hauteur duree:Duree instrument:Instrument)|T then
 	    case Note
 	    of silence then
 	       silence(duree:Duree)|{Bourdon T Note}
 	    else
 	       % TODO Appliquer ToHauteur à Note
 	       echantillon(hauteur:Hauteur-2 duree:Duree instrument:Instrument)|{Bourdon T Note}
 	    end
 	 [] silence(duree:Duree)|T then
 	    silence(duree:Duree)|{Bourdon T Note}
 	 [] nil then
 	    nil
 	 end
       end
 
       fun {Etirer L Facteur}
 	 case L
 	 of echantillon(hauteur:Hauteur duree:Duree instrument:Instrument)|T then
 	    echantillon(hauteur:Hauteur duree:(Duree*Facteur) instrument:Instrument)|{Etirer T Facteur}
 	 [] silence(duree:Duree)|T then
 	    silence(duree:(Duree*Facteur))|{Etirer T Facteur}
 	 [] nil then
 	    nil
 	 end % case
       end % fun
 
       fun {Duree L Secondes DureeTotale}
 	 case L of echantillon(hauteur:Hauteur duree:DureeEchant instrument:Instrument)|T then
 	    echantillon(hauteur:Hauteur duree:(DureeEchant*Secondes/DureeTotale) instrument:Instrument)|{Duree T Secondes DureeTotale}
 	 [] nil then
 	    nil
 	 [] silence(duree:DureeSilence)|T then
 	    silence(duree:(DureeSilence*Secondes/DureeTotale))|{Duree T Secondes DureeTotale}
 	 [] E then
 	    {Duree [E] Secondes DureeTotale} % TODO
 	 end
       end
 
       fun {ToNote Note}
 	 case Note
 	 of Nom#Octave then
             note(nom:Nom octave:Octave alteration:'# ')
 	 [] Atom then
 	    case {AtomToString Atom}
 	    of [ N ] then
 	       note(nom:Atom octave:4 alteration:none)
 	    [] [N O] then
 	       note(nom:{StringToAtom [N]} octave:{StringToInt [O]} alteration:none)
 	    end
 	 end
       end
 
       fun{ToDuree EchList}
 	 local ToDuree2 in
 	    fun{ToDuree2 EchantList Acc}
 	       case EchantList of H|T then
 		  Acc=Acc+H.duree
 		  {ToDuree T}
 	       [] nil then
 		  Acc
 	       end %case
 	    end %fun
 	    {ToDuree2 EchList 0}
 	 end %local
       end %fun
 
       fun{Transpose EchList DemiTons}
 	 case EchList
 	  of echantillon(hauteur:Hauteur duree:Duree instrument:Instrument)|T then
 	     echantillon(hauteur:Hauteur+DemiTons duree:Duree instrument:Instrument)|{Transpose T DemiTons}
 	 [] silence(duree:Duree)|T then
 	    silence(duree:Duree)|{Transpose T DemiTons}
 	 [] nil then
 	    nil
 	 end
       end
 
 
 
       % Interprete doit interpréter une partition
       fun {Interprete Partition}
 	 case Partition
 	 of H|T then
 	    {Append {Interprete H} {Interprete T}}
 	 [] etirer(1:PartitionIn facteur:Facteur) then
 	    {Etirer {Interprete PartitionIn} Facteur}
 	 [] muet(1:PartitionIn) then
 	    {Bourdon {Interprete PartitionIn} silence}
 	 [] duree(1:PartitionIn secondes:Secondes) then
 	    local
 	       ListEchants = {Interprete PartitionIn}
 	       DureeTotale = {ToDuree ListEchants}
 	    in
 	       {Duree ListEchants Secondes DureeTotale}
 	    end
 	 [] bourdon(1:PartitionIn note:Note) then
 	    {Bourdon {Interprete PartitionIn} Note}
 	 [] transpose(1:PartitionIn demitons:Demitons) then
 	    {Transpose {Interprete PartitionIn} Demitons}
 	 [] nil then
 	    nil
 	 [] E then
 	    % TODO Appliquer ToHauteur
 	    [echantillon(hauteur:{ToNote E} duree:1.0 instrument: none)]
           end  % case
       end % fun
 
 	 local
 	    Music = {Projet.load CWD#'joie.dj.oz'}
 	 in
       % Votre code DOIT appeler Projet.run UNE SEULE fois.  Lors de cet appel,
       % vous devez mixer une musique qui démontre les fonctionalités de votre
       % programme.
       %
       % Si votre code devait ne pas passer nos tests, cet exemple serait le
       % seul qui ateste de la validité de votre implémentation.
 	    {Browse {Projet.run Mix Interprete Music CWD#'out.wav'}}
 	 end
       end
    end