Computing the Newton polytope of the discriminant from the fiber polytope. Singular moduli, modular polynomials, and the index of the closure of \({\mathbb{Z}}[j(\tau)]\) in \({\mathbb{Q}}(j(\tau))\) 