A = (-2.617076303330546, 0.22997289318943984)
B = (9.616050097952506, 0.21097735529924877)
a = Line(A, B)
P = (2.7016743059229547, 1.3507096287107132)
D = Point(a)
c = Circle(P, D)
d = Circle(D, P)
E = Intersect(d, a, 2.0)
e = Circle(D, Segment[E, P])
F, G = Intersect(c, e)
b = Line(G, P)