A = (-1.6, 4.04)
B = (0.36, 1.34)
C = (1.66, 1.98)
c = Ellipse(A, B, C)
D = Point(c)
d = Circle(D, 0.1)
E, F = Intersect(c, d)
a = Line(D, E)
G = (6.4, 2.78)
b = OrthogonalLine(G, a)
H = Intersect(a, b)
luogo1 = Locus(H, D)