A = (-2, 3)
B = (-1, 1)
C = (3, 1)
a = Segment(B, C)
d = Segment(A, B)
b = OrthogonalLine(B, a)
A' = Mirror(A, b)
f = Ray(B, A')
c = Segment(A, C)
e = OrthogonalLine(C, a)
A'_1 = Mirror(A, e)
g = Ray(C, A'_1)
D = Point(g)
E = Point(f)
poly1, b_1, c_1, d_1, e_1 = Polygon(B, C, D, E)