struct

(**

Test du module Etat

Copyright Stéphane Grognet
IREM des Pays de la Loire - Université de Nantes
Laboratoire de mathématiques Jean Leray UMR 6629 CNRS
version 0.3
@version 0.3 @author Stéphane Grognet @since 2014, 2015 *)


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 ;;

test_etat () ;;


end