Q = (-6.68, -1.08)
P = (18.5, -11.42)
A = (10.7, -7.04)
B: (19, y(A))
Vieleck1, a, b, c, d, e, C, D, E = Polygon(A, B, 5)
f = Segment(A, C)
g = Segment(C, E)
h = Segment(E, B)
i = Segment(B, D)
j = Segment(D, A)
F = Intersect(g, i)
G = Intersect(g, j)
H = Intersect(h, j)
I = Intersect(f, h)
J = Intersect(f, i)
Vieleck2, f_1, d_1, h_1 = Polygon(D, H, F)
Vieleck3, h_2, j_1, c_1, f_2 = Polygon(H, J, C, F)
K = Midpoint(H, J)
Vieleck4, e_1, h_3, g_1 = Polygon(H, G, E)
Vieleck5, a_1, i_1, k, h_4 = Polygon(A, I, K, H)
Vieleck6, i_2, b_1, j_2, k_1 = Polygon(I, B, J, K)
t = 1 (slider from 0 to 1, step 0.0050)
l = Segment(A, F)
m = Segment(G, B)
M = Intersect(l, m)
α: 72° * t
H' = Rotate(H, α, M)
J' = Rotate(J, α, M)
C' = Rotate(C, α, M)
F' = Rotate(F, α, M)
n = Line(P, Q)
Vieleck3', h', j', c', f' = Polygon(H', J', C', F')
L = Point(n)
u = Vector(G, L)
u_1: u * t
H'' = Translate(H', u_1)
J'' = Translate(J', u_1)
C'' = Translate(C', u_1)
F'' = Translate(F', u_1)
Vieleck3'', h'', j'', c'', f'' = Polygon(H'', J'', C'', F'')
H'_1 = Rotate(H, -α, M)
G' = Rotate(G, -α, M)
E' = Rotate(E, -α, M)
Vieleck4', e', h'_1, g' = Polygon(H'_1, G', E')
N = Point(n)
v = Vector(G, N)
v_1: v * t
O = Translate(H'_1, v_1)
G'' = Translate(G', v_1)
E'' = Translate(E', v_1)
Vieleck4'', e'', o, g'' = Polygon(O, G'', E'')
β: 144° * t
R = Point(n)
w = Vector(G, R)
w_1: w * t
D' = Translate(D, w_1)
H'_2 = Translate(H, w_1)
F'_1 = Translate(F, w_1)
Vieleck2', f'_1, d', h'_2 = Polygon(D', H'_2, F'_1)
A' = Rotate(A, -β, M)
I' = Rotate(I, -β, M)
K' = Rotate(K, -β, M)
H'_3 = Rotate(H, -β, M)
Vieleck5', a', i', k', h'_3 = Polygon(A', I', K', H'_3)
S = Point(n)
z = Vector(G, S)
z_1: z * t
A'' = Translate(A', z_1)
I'' = Translate(I', z_1)
K'' = Translate(K', z_1)
T = Translate(H'_3, z_1)
Vieleck5'', a'', i'', k'', t_1 = Polygon(A'', I'', K'', T)
I'_1 = Rotate(I, β, M)
B' = Rotate(B, β, M)
J'_1 = Rotate(J, β, M)
K'_1 = Rotate(K, β, M)
Vieleck6', i'_1, b', j'_1, k'_1 = Polygon(I'_1, B', J'_1, K'_1)
U = Point(n)
p = Vector(G, U)
p_1: p * t
V = Translate(I'_1, p_1)
B'' = Translate(B', p_1)
W = Translate(J'_1, p_1)
Z = Translate(K'_1, p_1)
Vieleck6'', v_2, b'', w_2, z_2 = Polygon(V, B'', W, Z)
Vieleck7, a_2, i_3, b_2, j_3, c_2, f_3, d_2, g_2, e_2, h_5 = Polygon(A, I, B, J, C, F, D, G, E, H)