let init_fenetre ~x ~y () =
        open_graph (" "^(string_of_int x)^"x"^(string_of_int y));
        set_window_title "Projet Puzzle"