para = 2.432 (slider from 0 to 10, step 0.001)
s3: 2 / sqrt(sqrt(3))
s5: (2 * sqrt((1 / 5 * tan(36°))))
A = Intersect(xAxis, yAxis)
c = Circle(A, s3 / 2)
B = Point(xAxis)
B' = Dilate(B, s5, A)
Vieleck1, f, g, h, i, j, C, D, E = Polygon(A, B', 5)
k = Segment(E, C)
F = Intersect(c, k, 2)
Vieleck2, m, n, p, G = Polygon(F, A, 3)
l = Segment(A, F)
q = Line(G, l)
H = Intersect(q, k)
I = Intersect(q, f)
J = Midpoint(E, C)
r = Line(J, j)
K = Intersect(r, i)
v1, a, g_1, f_1, e = Polygon(A, G, F, E)
d1, g_2, a_1, i_1 = Polygon(A, I, G)
v2, i_2, b', c_1, h_1 = Polygon(I, B', C, H)
d2, h_2, f_2, g_3 = Polygon(F, G, H)
d3, k_1, e_1, j_1 = Polygon(E, J, K)
v3, j_2, c_2, d, k_2 = Polygon(J, C, D, K)
t = 2.199114857512855 rad (slider from 0 to 180°, step 1°)
I' = Rotate(I, t, I)
B'' = Rotate(B', (180° * (para + sin((((para - 0.5) * 2) * π)) / 2 / π)), I)
C' = Rotate(C, (180° * (para + sin((((para - 0.5) * 2) * π)) / 2 / π)), I)
H' = Rotate(H, (180° * (para + sin((((para - 0.5) * 2) * π)) / 2 / π)), I)
v2', i', b'', c', h' = Polygon(I', B'', C', H')
A' = Rotate(A, t, A)
F' = Rotate(F, (180° * (para + sin((((para - 0.5) * 2) * π)) / 2 / π)), A)
E' = Rotate(E, (180° * (para + sin((((para - 0.5) * 2) * π)) / 2 / π)), A)
G' = Rotate(G, (180° * (para + sin((((para - 0.5) * 2) * π)) / 2 / π)), A)
v1', a', g', f', e' = Polygon(A', G', F', E')
u = Vector(H, H')
F'_1 = Translate(F, u)
G'_1 = Translate(G, u)
H'_1 = Translate(H, u)
d2', h'_1, f'_1, g'_1 = Polygon(F'_1, G'_1, H'_1)
L = Midpoint(B'', C')
E'_1 = Mirror(E, E)
v = Vector(E, A)
E'_2 = Translate(E, v)
N = Rotate(E'_2, -36°, A)
b = Line(E, K)
E'_3 = Rotate(E, ((-t)) / 5, E)
s = Line(A, B')
M = Intersect(b, s)
E'_4 = Rotate(E, ((-180° * (para + sin((((para - 0.5) * 2) * π)) / 2 / π))) / 5, M)
J' = Rotate(J, ((-180° * (para + sin((((para - 0.5) * 2) * π)) / 2 / π))) / 5, M)
K' = Rotate(K, ((-180° * (para + sin((((para - 0.5) * 2) * π)) / 2 / π))) / 5, M)
d3', k', e'_4, j' = Polygon(E'_4, J', K')
E'_5 = Mirror(E, A)
m_1 = LineBisector(A, C)
P = Point(m_1)
l_1 = LineBisector(D, E'_5)
O = Intersect(l_1, m_1)
J'_1 = Rotate(J, (((4 / 5 * 180))° * (para + sin((((para - 0.5) * 2) * π)) / 2 / π)), O)
C'_1 = Rotate(C, (((4 / 5 * 180))° * (para + sin((((para - 0.5) * 2) * π)) / 2 / π)), O)
D' = Rotate(D, (((4 / 5 * 180))° * (para + sin((((para - 0.5) * 2) * π)) / 2 / π)), O)
K'_1 = Rotate(K, (((4 / 5 * 180))° * (para + sin((((para - 0.5) * 2) * π)) / 2 / π)), O)
v3', j'_1, c'_1, d', k'_1 = Polygon(J'_1, C'_1, D', K'_1)