let test_etat = function () ->
 let notes = Array.make 128 0
 and ages = Array.make_matrix 128 9 0
 and sons = Array.make_matrix 128 9 0.
 and enveloppes = Array.make_matrix 128 9 0.
 and parametres = Array.make Data.nombre_de_parametres_clavier 0.
 and ic = open_in_gen [Open_binary ; Open_rdonly] 0o400 Data.adresse_forme in
  let forme = ( input_value ic : float array ) in
   Etat.etat forme notes ages enveloppes sons parametres ;
   close_in_noerr ic ;
   let oc = open_out Data.adresse_etat_pianel in
    for i = 0 to 127 do
     output_string oc ( ( string_of_float sons.(i).(0) ) ^ "\n" ) ;
    done ;
    for i = 0 to pred Data.nombre_de_parametres_clavier do
     output_string oc ( ( string_of_float parametres.(i) ) ^ "\n" ) ;
    done ;
    close_out_noerr oc