Trascinare il punto B

F_1 = (0.4, 0)
F_2 = (-0.4, 0)
A = (0.5359473199163223, 0.9900876771611057)
c = Circle(F_1, A)
B = Point(c)
a = Line(B, F_1)
b = Line(B, F_2)
C = Midpoint(B, F_2)
d = OrthogonalLine(C, b)
P = Intersect(d, a)
luogo1 = Locus(P, B)
e = Segment(F_2, P)
f = Circle(P, B)