A = (-2.933333333333333, -0.7333333333333333)
B = (0, 7)
C = (9.666666666666666, 0.7)
P, c, a, b = Polygon(A, B, C)
D = Midpoint(A, B)
E = Midpoint(B, C)
d = Line(D, b)
e = OrthogonalLine(B, b)
F = Intersect(e, d)
Q, f, b_1, d_1 = Polygon(B, D, F)
R, f_1, b_2, e_1 = Polygon(B, E, F)
gg = 0 (slider from 0 to 1, step 0.01)
h: gg π
B' = Rotate(B, h, D)
D' = Rotate(D, h, D)
F' = Rotate(F, h, D)
Q', f', b', d' = Polygon(B', D', F')
j: -gg π
E' = Rotate(E, j, E)
k: -gg π
B'_1 = Rotate(B, k, E)
E'_1 = Rotate(E, k, E)
F'_1 = Rotate(F, k, E)
R', f'_1, b'_1, e'_1 = Polygon(B'_1, E'_1, F'_1)
S, d_2, e_2, c_1, a_1 = Polygon(D, E, C, A)