F = (0, 0.25)
A = Point(d)
a = OrthogonalLine(A, d)
b = LineBisector(A, F)
M = Intersect(LineBisector[A, F], OrthogonalLine[A, d])
c = Circle(M, A)
loc1 = Locus(M, A)