A = (8.475114338350766, -3.499390895496495)
B = (18.356071797227685, -6.253496397481746)
a = Segment(A, B)
b = OrthogonalLine(A, a)
D = Point(b)
c = OrthogonalLine(D, b)
d = Segment(D, B)
D_1 = Midpoint(d)
e = Ray(A, D_1)
C = Intersect(c, e)
f = Segment(C, B)
g = Segment(C, D)
h = Segment(D, A)
E = (-1.0676196378262093, -4.127520220510678)
F = (7.243014508515259, -4.127520220510678)