let afficher_piece_option ?(x = 0) ?(y = 0) ~(p:Resolution.piece option) ?(s = 50) ~(c:int) =
        match p with
        | None -> ();
        | Some pp -> afficher_piece ~x:x ~y:y ~p:pp ~s:s ~c:c