nascondi ellisse

F_1 = (0.4, 0)
F_2 = (-0.4, 0)
A = (0.5359473199163223, 0.9900876771611057)
c = Circle(F_1, A)
B = (-0.40724420122571603, 0.13913255083106488)
d = Circle(F_2, B)
α = 6.021385919380437 rad (slider from 0 to 6.283185307179586, step 0.08726646259971647)
F = Point(xAxis)
F' = Rotate(F, α, F_1)
β = Angle(F, F_1, F')
h = Line(F_1, F')
C = Intersect(c, h, 1)
e = Circle(C, Segment[F_2, B])
D = Intersect(e, h, 2)
a = Segment(F_2, D)
E = Midpoint(D, F_2)
b = OrthogonalLine(E, a)
P = Intersect(b, h)
f = Circle(P, C)
g = Ellipse(F_1, F_2, (Radius[c] + Radius[d]) / 2)
i = true