A = Point(xAxis)
B = Point(xAxis)
f = Segment(A, B)
C = Midpoint(A, B)
g = Segment(A, C)
D = Point(g)
hulknurk1, h, i, j, k, E, F = Polygon(D, B, 4)
hulknurk2, l, m, n, p, G, H = Polygon(A, D, 4)
D' = Mirror(D, C)
t1, h_1, a, d' = Polygon(A, D', H)
t2, e, q, b = Polygon(D', B, E)
r = Segment(D, F)
I = Intersect(r, a)
α = 0 rad (slider from 0 to 90°, step 0.017453292519943295)
D'' = Rotate(D', (-α), E)
B' = Rotate(B, (-α), E)
t3, e_1, d'', b' = Polygon(D'', B', E)
A' = Rotate(A, α, H)
D''_{1} = Rotate(D', α, H)
t4, s, h_2, a' = Polygon(H, A', D'')
hulknurk3, h_3, g_1, f_1, e_2, t = Polygon(H, G, F, E, D')