A = (-6, 0)
B = (-2, 8)
C = (8, 0)
F = (2, 8)
q1, i, j, k, l = Polygon(A, B, F, C)
G = Midpoint(i)
p = Line(G, l)
J = Intersect(p, k)
f = Line(A, C)
g = Line(B, f)
D = Point(g)
h = Ray(B, D)
E = Point(h)
rot1 = 0 (slider from 0 to π, step 0.001)
m = OrthogonalLine(B, p)
n = Segment(A, G)
q = Segment(G, B)
α = Angle(m, p)
H = Intersect(p, m)
q2, b, h_1, j_1, f_1 = Polygon(B, H, J, F)
B' = Rotate(B, (-rot1), J)
H' = Rotate(H, (-rot1), J)
J' = Rotate(J, (-rot1), J)
F' = Rotate(F, (-rot1), J)
q2', b', h', j', f' = Polygon(B', H', J', F')
t1, b_1, g_1, h_2 = Polygon(G, H, B)
G' = Rotate(G, rot1, G)
H'_1 = Rotate(H, rot1, G)
B'_1 = Rotate(B, rot1, G)
t1', b'_1, g', h'_1 = Polygon(G', H'_1, B'_1)
q3, h'_2, b'_2, b'_3, h'_3 = Polygon(H'_1, B'_1, B', H')
I = (16, 0)
K = (18, 8)
L = (22, 8)
M = (30, 0)
q4, i_1, k_1, l_1, m_1 = Polygon(I, K, L, M)
N = Point(p)
O = Point(p)
r = Segment(N, O)
P = Point(m)
Q = Point(m)
s = Segment(P, Q)
t = Segment(K, M)