Trascinare il punto C

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)
C = Point(c)
e = Circle(C, Segment[F_2, B])
a = Line(F_1, C)
D = Intersect(e, a, 2)
b = Segment(F_2, D)
E = Midpoint(F_2, D)
f = OrthogonalLine(E, b)
P = Intersect(f, a)
g = Circle(P, C)
luogo1 = Locus(P, C)