Was there a way to get rid of such artifacts (visible only if you rotate the plot at specific angles) ? https://i.sstatic.net/KkzqY.png . This guy being produced by Graphics3D[
GeometricTransformation[{GrayLevel[.25], Specularity[White, 10],
Sphere[]}, AffineTransform[{{1, 1, 1}, {0, -1, 1}, {0, 0, 0}}]],
Boxed -> True, Lighting -> "Neutral",
Method -> {"SpherePoints" -> 10^3}]