Arrastra una ficha para moverla. Arrastra el círculo negro en su vértice para girarla.

cuadrícula

escala = 2 (slider from 1 to 3, step 1)
A = (-1.7320508075688772, 5)
C = (-5.196152422706632, 6)
poly2, D, f, g, h, i = trap(C)
E = (-5.196152422706632, 6)
poly3, F, j, k, l, m = trap(E)
G = (-5.196152422706632, 6)
poly4, H, n_5, p, q, r = trap(G)
I = (-5.196152422706632, 6)
poly5, J, s, t, a, c = trap(I)
K = (-5.196152422706632, 6)
poly6, L, d, e, f_1, g_1 = trap(K)
M = (-5.196152422706632, 6)
poly7, N, h_1, i_1, j_1, k_1 = trap(M)
O = (-5.196152422706632, 6)
poly8, P, l_1, m_1, n_1, p_1 = trap(O)
Q = (-5.196152422706632, 6)
poly9, R, q_1, r_1, s_1, t_1 = trap(Q)
S = (-5.196152422706632, 6)
poly10, T, a_1, b_1, c_1, d_1 = trap(S)
U = (-5.196152422706632, 6)
poly11, V, e_1, f_2, g_2, h_2 = trap(U)
W = (-5.196152422706632, 6)
poly12, Z, i_2, j_2, k_2, l_2 = trap(W)
A_1 = (-5.196152422706632, 6)
poly13, B_1, m_2, n_2, p_2, q_2 = trap(A_1)
C_1 = (-5.196152422706632, 6)
poly14, D_1, r_2, s_2, t_2, a_2 = trap(C_1)
E_1 = (-5.196152422706632, 6)
poly15, F_1, b_2, c_2, d_2, e_2 = trap(E_1)
G_1 = (-5.196152422706632, 6)
poly16, H_1, f_3, g_3, h_3, i_3 = trap(G_1)
I_1 = (-5.196152422706632, 6)
poly17, J_1, j_3, k_3, l_3, m_3 = trap(I_1)
K_1 = (-5.196152422706632, 6)
poly18, L_1, n_3, p_3, q_3, r_3 = trap(K_1)
M_1 = (-5.196152422706632, 6)
poly19, N_1, s_3, t_3, a_3, b_3 = trap(M_1)
O_1 = (-5.196152422706632, 6)
poly20, P_1, c_3, d_3, e_3, f_4 = trap(O_1)
Q_1 = (-5.196152422706632, 6)
poly21, R_1, g_4, h_4, i_4, j_4 = trap(Q_1)
S_1 = (-5.196152422706632, 6)
poly22, T_1, k_4, l_4, m_4, n_4 = trap(S_1)
B: A - (0, (2 * escala))
U_1 = Rotate(A - (0, escala), 60°, A)
V_1: U_1 - (0, escala)
A' = Rotate(A, (-(120°)), U_1)
W_1: A' - (0, (2 * escala))
poly1, a_4, b, v_1, u_1 = Polygon(A, B, V_1, U_1)
poly23, a', u_2, v_2, w_1 = Polygon(A', U_1, V_1, W_1)
n = 20
nmax: 21

Tool: trap
point
Input: A
Output: poly1, B, b, b', b'', b'''

B = Point(Circle[A, 1])
B' = Rotate(B, 60°, A)
B'' = Rotate(B', 60°, A)
B''' = Rotate(B'', 60°, A)
poly1, b, b', b'', b''' = Polygon(B, B', B'', B''')