let trait_char cou c = match c with
        | '\027'  -> raise Fin
        | '\n' -> clear_graph ()
        | ' '  -> new_piece cou
        |   _  -> Graphics.set_color couleur_lignes; Graphics.draw_char c