A = (1.7666666666666666, 7.066666666666666)
B = (5.666666666666667, 7.3)
a = Segment(A, B)
C = (-4, -1)
b = Segment(B, C)
c = Line(A, b)
d = Line(C, a)
D = Intersect(c, d)
e = OrthogonalLine(B, d)
P, a_1, b_1, c_1, d_1 = Polygon(A, B, C, D)
E = Midpoint(B, C)
f = Segment(A, C)
F = Mirror(A, E)
Q, a_2, b_2, f_1, c_2 = Polygon(A, B, F, C)
g = Segment(A, F)
G = Midpoint(B, F)
H = Mirror(A, G)
R, a_3, b_3, h, f_2 = Polygon(A, B, H, F)
I = Midpoint(B, H)
i = Segment(A, H)
J = Mirror(A, I)
S, a_4, b_4, j, h_1 = Polygon(A, B, J, H)