R

Ayuda -->

½ 2.π.R

o = 1 (slider from 0 to 1, step 0.1)
N_1 = (2, 1)
O_1 = (2, 0)
V_1 = Midpoint(N_1, O_1)
Y_1: V_1 + o * (N_1 - V_1)
W_1: V_1 + o * (O_1 - V_1)
L_1 = (-1.5, 1.34)
M_1 = (1.66, 1.34)
S_1 = Midpoint(L_1, M_1)
U_1: S_1 + o * (M_1 - S_1)
T_1: S_1 + o * (L_1 - S_1)
α = 0.20943951023931956 rad
A = (0, 0)
P_0 = (0, 1)
c = Circle(A, P_0)
A_1 = Rotate(P_0, α, A)
a = 0 (slider from 0 to 2.2, step 0.01)
d = If(a < 1, a, 1)
P_1 = Rotate(A_1, -d α / 2, P_0)
E_1 = Rotate(A, -d α / 2, P_0)
A_2 = Rotate(P_1, α, E_1)
P_2 = Rotate(A_2, -d α, P_1)
E_2 = Rotate(E_1, -d α, P_1)
A_3 = Rotate(P_2, α, E_2)
P_3 = Rotate(A_3, -d α, P_2)
E_3 = Rotate(E_2, -d α, P_2)
A_4 = Rotate(P_3, α, E_3)
P_4 = Rotate(A_4, -d α, P_3)
E_4 = Rotate(E_3, -d α, P_3)
E_5 = Rotate(E_4, -d α, P_4)
A_5 = Rotate(P_4, α, E_4)
P_5 = Rotate(A_5, -d α, P_4)
E_6 = Rotate(E_5, -d α, P_5)
A_6 = Rotate(P_5, α, E_5)
P_6 = Rotate(A_6, -d α, P_5)
E_7 = Rotate(E_6, -d α, P_6)
A_7 = Rotate(P_6, α, E_6)
P_7 = Rotate(A_7, -d α, P_6)
E_8 = Rotate(E_7, -d α, P_7)
A_8 = Rotate(P_7, α, E_7)
P_8 = Rotate(A_8, -d α, P_7)
b = Line(P_0, A)
B = Mirror(E_1, b)
C = Mirror(E_2, b)
D = Mirror(E_3, b)
E = Mirror(E_4, b)
F = Mirror(E_6, b)
G = Mirror(E_5, b)
H = Mirror(E_7, b)
I = Mirror(E_8, b)
Q = Mirror(P_1, b)
R = Mirror(P_2, b)
S = Mirror(P_3, b)
T = Mirror(P_4, b)
U = Mirror(P_5, b)
V = Mirror(P_6, b)
W = Mirror(P_7, b)
Y = Mirror(P_8, b)
R_1, e, f, g, h, i, j, k, l, m, n, p, q, r, s, t, a_1, b_1, c_1, d_1, e_1, f_1, g_1, h_1, i_1, j_1, k_1, l_1, m_1, n_1, p_1, q_1, r_1, s_1, t_1, a_2, b_2, c_2, d_2, e_2, f_2, g_2, h_2, i_2, j_2, k_2 = Polygon(P_6, P_5, P_4, P_3, P_2, P_1, P_0, Q, R, S, T, U, V, W, Y, I, W, H, V, F, U, G, T, E, S, D, R, C, Q, B, P_0, E_1, P_1, E_2, P_2, E_3, P_3, E_4, P_4, E_5, P_5, E_6, P_6, E_7, P_7)
K_1 = Midpoint(P_0, B)
v = Vector(S_1, T_1)
u = Vector(S_1, U_1)
w = Vector(V_1, W_1)
z = Vector(V_1, Y_1)
dd = If(a < 1.2, 0, a - 1.2)
P_6' = Mirror(P_6, A)
P_5' = Mirror(P_5, A)
P_4' = Mirror(P_4, A)
P_3' = Mirror(P_3, A)
P_2' = Mirror(P_2, A)
P_1' = Mirror(P_1, A)
P_0' = Mirror(P_0, A)
Q' = Mirror(Q, A)
R' = Mirror(R, A)
S' = Mirror(S, A)
T' = Mirror(T, A)
U' = Mirror(U, A)
V' = Mirror(V, A)
W' = Mirror(W, A)
Y' = Mirror(Y, A)
I' = Mirror(I, A)
W'_1 = Mirror(W, A)
H' = Mirror(H, A)
V'_1 = Mirror(V, A)
F' = Mirror(F, A)
U'_1 = Mirror(U, A)
G' = Mirror(G, A)
T'_1 = Mirror(T, A)
E' = Mirror(E, A)
S'_1 = Mirror(S, A)
D' = Mirror(D, A)
R'_1 = Mirror(R, A)
C' = Mirror(C, A)
Q'_1 = Mirror(Q, A)
B' = Mirror(B, A)
P_9 = Mirror(P_0, A)
E_1' = Mirror(E_1, A)
P_{10} = Mirror(P_1, A)
E_2' = Mirror(E_2, A)
P_{11} = Mirror(P_2, A)
E_3' = Mirror(E_3, A)
P_{12} = Mirror(P_3, A)
E_4' = Mirror(E_4, A)
P_{13} = Mirror(P_4, A)
E_5' = Mirror(E_5, A)
P_{14} = Mirror(P_5, A)
E_6' = Mirror(E_6, A)
P_{15} = Mirror(P_6, A)
E_7' = Mirror(E_7, A)
P_7' = Mirror(P_7, A)
R_1', p_6', p_5', p_4', p_3', p_2', p_1', p_0', q', r', s', t', u', v', w', y', i', w'_1, h', v'_1, f', u'_1, g', t'_1, e', s'_1, d', r'_1, c', q'_1, b', p_9, e_1', p_{10}, e_2', p_{11}, e_3', p_{12}, e_4', p_{13}, e_5', p_{14}, e_6', p_{15}, e_7', p_7' = Polygon(P_6', P_5', P_4', P_3', P_2', P_1', P_0', Q', R', S', T', U', V', W', Y', I', W'_1, H', V'_1, F', U'_1, G', T'_1, E', S'_1, D', R'_1, C', Q'_1, B', P_9, E_1', P_{10}, E_2', P_{11}, E_3', P_{12}, E_4', P_{13}, E_5', P_{14}, E_6', P_{15}, E_7', P_7')
u_1 = Vector(W', H')
v_1: dd u_1
P_6'' = Translate(P_6', v_1)
P_5'' = Translate(P_5', v_1)
P_4'' = Translate(P_4', v_1)
P_3'' = Translate(P_3', v_1)
P_2'' = Translate(P_2', v_1)
P_1'' = Translate(P_1', v_1)
P_0'' = Translate(P_0', v_1)
Q'' = Translate(Q', v_1)
R'' = Translate(R', v_1)
S'' = Translate(S', v_1)
T'' = Translate(T', v_1)
U'' = Translate(U', v_1)
V'' = Translate(V', v_1)
W'' = Translate(W', v_1)
Y'' = Translate(Y', v_1)
I'' = Translate(I', v_1)
W'_1' = Translate(W'_1, v_1)
H'' = Translate(H', v_1)
V'_1' = Translate(V'_1, v_1)
F'' = Translate(F', v_1)
U'_1' = Translate(U'_1, v_1)
G'' = Translate(G', v_1)
T'_1' = Translate(T'_1, v_1)
E'' = Translate(E', v_1)
S'_1' = Translate(S'_1, v_1)
D'' = Translate(D', v_1)
R'_1' = Translate(R'_1, v_1)
C'' = Translate(C', v_1)
Q'_1' = Translate(Q'_1, v_1)
B'' = Translate(B', v_1)
P_9' = Translate(P_9, v_1)
E_1'' = Translate(E_1', v_1)
P_{10}' = Translate(P_{10}, v_1)
E_2'' = Translate(E_2', v_1)
P_{11}' = Translate(P_{11}, v_1)
E_3'' = Translate(E_3', v_1)
P_{12}' = Translate(P_{12}, v_1)
E_4'' = Translate(E_4', v_1)
P_{13}' = Translate(P_{13}, v_1)
E_5'' = Translate(E_5', v_1)
P_{14}' = Translate(P_{14}, v_1)
E_6'' = Translate(E_6', v_1)
P_{15}' = Translate(P_{15}, v_1)
E_7'' = Translate(E_7', v_1)
P_7'' = Translate(P_7', v_1)
R_1'', p_6'', p_5'', p_4'', p_3'', p_2'', p_1'', p_0'', q'', r'', s'', t'', u'', v'', w'', y'', i'', w'_1', h'', v'_1', f'', u'_1', g'', t'_1', e'', s'_1', d'', r'_1', c'', q'_1', b'', p_9', e_1'', p_{10}', e_2'', p_{11}', e_3'', p_{12}', e_4'', p_{13}', e_5'', p_{14}', e_6'', p_{15}', e_7'', p_7'' = Polygon(P_6'', P_5'', P_4'', P_3'', P_2'', P_1'', P_0'', Q'', R'', S'', T'', U'', V'', W'', Y'', I'', W'_1', H'', V'_1', F'', U'_1', G'', T'_1', E'', S'_1', D'', R'_1', C'', Q'_1', B'', P_9', E_1'', P_{10}', E_2'', P_{11}', E_3'', P_{12}', E_4'', P_{13}', E_5'', P_{14}', E_6'', P_{15}', E_7'', P_7'')