A = (3, 4)
B = (7, 4)
C = (3, 8)
D = (7, 8)
E = Midpoint(A, B)
hulknurk1, f, g, h, i, F, G = Polygon(B, A, 4)
j = Segment(C, E)
k = Segment(D, E)
l = Segment(C, D)
E_1 = Mirror(E, l)
m = Segment(C, E_1)
n = Segment(D, E_1)
H = Midpoint(C, D)
t1, e, c, h_1 = Polygon(C, H, E)
t2, e_1, d, h_2 = Polygon(D, H, E)
a = 0 (slider from 0 to 2, step 0.1)
C'_{1} = Translate(C, (a, 0))
H'_{1} = Translate(H, (a, 0))
E'_{1} = Translate(E, (a, 0))
t11, e'_{1}, c'_{1}, h'_{1} = Polygon(C'_{1}, H'_{1}, E'_{1})
D' = Translate(D, ((-a), 0))
H' = Translate(H, ((-a), 0))
E' = Translate(E, ((-a), 0))
t22, e', d', h' = Polygon(D', H', E')
t3, c_1, p, h_3 = Polygon(E_1, H, C)
t4, h_4, q, d_1 = Polygon(E_1, D, H)
b = 0 (slider from 0 to 8)
I = Translate(E_1, (0, (-b)))
H'_{2} = Translate(H, (0, (-b)))
C' = Translate(C, (0, (-b)))
t3', c', i_1, h'_{2} = Polygon(I, H'_{2}, C')
J = Translate(E_1, (0, (-b)))
D'_{1} = Translate(D, (0, (-b)))
H'_{3} = Translate(H, (0, (-b)))
t4', h'_{3}, j_1, d'_{1} = Polygon(J, D'_{1}, H'_{3})
C'_{2} = Translate(C, (0, ((-b)) / 2))
H'_{4} = Translate(H, (0, ((-b)) / 2))
E'_{2} = Translate(E, (0, ((-b)) / 2))
C'_{3} = Translate(C, (0, ((-b)) / 2))
H'_{5} = Translate(H, (0, ((-b)) / 2))
E'_{3} = Translate(E, (0, ((-b)) / 2))
K = Translate(C'_{1}, (0, ((-b)) / 2))
L = Translate(H'_{1}, (0, ((-b)) / 2))
M = Translate(E'_{1}, (0, ((-b)) / 2))
t11', m_1, k_1, l_1 = Polygon(K, L, M)
D'' = Translate(D', (0, ((-b)) / 2))
H'' = Translate(H', (0, ((-b)) / 2))
E'' = Translate(E', (0, ((-b)) / 2))
t22', e'', d'', h'' = Polygon(D'', H'', E'')