trascinare il punto H

A = (-6, -1)
B = (6, -1)
a = Line(A, B)
F = Point(yAxis)
b = OrthogonalLine(F, a)
G = Intersect(a, b)
H = Point(b)
c = Line(H, a)
d = Circle(F, Segment[H, G])
C, D = Intersect(d, c)
luogo1 = Locus(C, H)
luogo2 = Locus(D, H)