A = (8.607173596877448, -1.491862957780128)
B = (17.23187240572601, -2.7239627876156334)
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)
F = (-3.9492792388010374, -0.5803599950078102)
G = (5.0182068753700335, -0.5803599950078102)