fuoco

F = (5.142407330914285, 3.181775130304757)
r = OrthogonalLine(F, xAxis)
A = Point(r)
direttrice = OrthogonalLine(A, r)
B = Point(direttrice)
s = OrthogonalLine(B, direttrice)
c = LineBisector(F, B)
C = Intersect(c, s)
luogo1 = Locus(C, B)
d = Segment(F, B)