A = (-6, 3)
B = (-2, 3)
a = Segment(A, B)
b = OrthogonalLine(B, a)
C = Point(b)
c = OrthogonalLine(C, b)
d = OrthogonalLine(A, a)
D = Intersect(d, c)
poly1, a_1, b_1, c_1, d_1 = Polygon(A, B, C, D)
poly2, d_2, a_2, b_2 = Polygon(A, B, D)