A_1 = (-5.324401785479994, 0.07097871839698633)
B_1 = (13.067456874680198, -0.02620415431191824)
d = Line(A_1, B_1)
A = (2.984733831131345, 2.1118190452839825)
B = Point(d)
A' = Mirror(A, d)
b = Segment(A, A')
H = Intersect(d, b)
c = Segment(A, H)
d_1 = Segment(H, A')