Il centro della sfera è l'intersezione dei piani assiali dei lati obliqui della sezione del tronco e l'altezza del tronco condotta dal vertice del cono.
Le basi possono stare dalla stessa parte del centro o da parti opposte e solo se il tronco è equilatero esso può essere inscritto in una semisfera.
Sposta D sulla retta.

A = (-0.30743701611956453, 0.7324965320464543, 0)
f = OrthogonalLine(A, xOyPlane)
B = Point(f)
C = (1.861917873864833, 2.255063642945494, 0)
g = Segment(A, C)
a, c, b = Cone(A, B, g)
D = Point(f)
p = Plane(D, xOyPlane)
d = IntersectPath(p, a)
C' = Mirror(C, A)
h = Line(D, g)
E, F = Intersect(h, d)
i = Segment(C', F)
j = Segment(F, E)
k = Segment(E, C)
l = Segment(C, C')
G = Midpoint(i)
H = Midpoint(k)
q = OrthogonalPlane(G, i)
r = OrthogonalPlane(H, k)
n = IntersectPath(r, q)
q1, c', f_1, e, c_1 = Polygon(C', F, E, C)
O = Intersect(n, f)
m = Sphere(O, F)