Computing the Newton polytope of the discriminant from the fiber polytope. Singularités rationnelles et quotients par les groupes réductifs. (Rational singularities and quotients by reductive groups) 