Radius der Kugel

r = 1.1 (slider from 0 to 2, step 0.1)
M = (0, 0, 1.3575519705779042)
L = (4.72195672769627, -0.1349200352477542, 1)
D = Midpoint(M, L)
hk_1 = Sphere(D, L)
kug = Sphere(M, r)
p = IntersectConic(kug, hk_1)
E = Point(p)
c = Line(L, M)
f = OrthogonalPlane(E, c)
F = Intersect(c, f)
α = Angle(F, L, E)
i = Segment(L, E)
g = InfiniteCone(L, M, α)
h = IntersectPath(a, g)
M' = Intersect(c, a)