M = (6, 4, 3)
r = 5
k = Sphere(M, r)
c = IntersectPath(e, k)
a = OrthogonalLine(M, e)
A = Point(c)
B = Intersect(a, e)
r_1 = Segment(B, A)