That is wonderful. I looked into how we can make a good triangulation of a sphere surface, and found two methods below that work very well.
Needs["PolyhedronOperations`"]
Geodesate[PolyhedronData["Icosahedron"],10]
Graphics3D[ConvexHullMesh[SpherePoints[1000]]]
