3D cone graphics primitive
Cone[{{x1, y1, z1}, {x2, y2, z2}}, r]
Cone[{{x1, y1, z1}, {x2, y2, z2}}]
Graphics3D[Cone[]]
→ -Graphics3D-Graphics3D[Cone[{{0, 0, 0}, {1, 1, 1}}, 1 / 2]]
→ -Graphics3D-Volume[Cone[{{Subscript[x, 1], Subscript[y, 1], Subscript[z, 1]}, {Subscript[x, 2], Subscript[y, 2], Subscript[z, 2]}}, r]]
→ (Pi*r^2*Sqrt[(Subscript[x, 1] - Subscript[x, 2])^2 + (Subscript[y, 1] - Subscript[y, 2])^2 + (Subscript[z, 1] - Subscript[z, 2])^2])/3