let new_piece c =
        let p0 = Resolution.piece_random ~c:c () in
        afficher_piece ~x:(Graphics.current_x ()) ~y:(Graphics.current_y ()) ~p:p0 ~s:40 ~c:c