WMA link
Sphere
Graphics3D[Sphere[{0, 0, 0}, 1]]
Graphics3D[{Yellow, Sphere[{{-1, 0, 0}, {1, 0, 0}, {0, 0, Sqrt[3.]}}, 1]}]