a

b

c

d

a

a²

b²

c²

d²

ab

ab

ac

ac

ad

ad

bc

bc

bd

bd

cd

cd

n1 = 2 (slider from 2 to 4, step 1)
A = (-0.42, 6.12)
da = 4.4
B = Point(Segment[A + (0.88, 0.0), A + (da, 0.0)])
a = Segment(A, B)
db = 3.4
C = Point(Segment[B + (0.34, 0.0), B + (db, 0.0)])
b = Segment(B, C)
dc = 2.4
D = Point(Segment[C + (0.34, 0.0), C + (dc, 0.0)])
c = Segment(C, D)
dd = 1.4
E = Point(Segment[D + (0.34, 0.0), D + (dd, 0.0)])
d = Segment(D, E)
polígono1, b_1, a_1, e, f, F, G = Polygon(B, A, 4.0)
polígono2, c_1, a_2, g, h, H, I = Polygon(C, A, 4.0)
polígono3, d_1, a_3, i, j, J, K = Polygon(D, A, 4.0)
polígono4, e_1, a_4, k, l, L, M = Polygon(E, A, 4.0)
m = Line(B, G)
n1_1 = Line(F, G)
p = Line(C, I)
q = Line(H, I)
r = Line(D, K)
s = Line(J, K)
N = Intersect(p, n1_1)
O = Intersect(m, q)
P = Intersect(r, q)
Q = Intersect(p, s)
R = Intersect(m, s)
S = Intersect(n1_1, r)
T = Intersect(m, k)
U = Intersect(p, k)
V = Intersect(r, k)
W = Intersect(n1_1, l)
Z = Intersect(q, l)
A_1 = Intersect(s, l)
polígono5: {Polygon[B, C, N, G]}
polígono6: {Polygon[C, D, S, N]}
polígono7: {Polygon[D, E, W, S]}
t = Segment(F, H)
f_1 = Segment(H, J)
h_1 = Segment(J, L)
polígono8: {Polygon[H, O, G, F]}
polígono9: {Polygon[O, I, N, G]}
polígono10: {Polygon[I, P, S, N]}
polígono11: {Polygon[P, Z, W, S]}
polígono12: {Polygon[J, R, O, H]}
polígono13: {Polygon[R, Q, I, O]}
polígono14: {Polygon[Q, K, P, I]}
polígono15: {Polygon[K, A_1, Z, P]}
polígono16: {Polygon[L, T, R, J]}
polígono17: {Polygon[T, U, Q, R]}
polígono18: {Polygon[U, V, K, Q]}
polígono19: {Polygon[V, M, A_1, K]}
g_1 = Segment(A, F)
n: round(n1)
q_1 = Segment(L, M)
i_1 = Segment(E, M)
j_1 = Segment(S, W)
k_1 = Segment(P, Z)
l_1 = Segment(K, A_1)
m_1 = Segment(K, V)
n_1 = Segment(Q, U)
p_1 = Segment(R, T)
t_1 = Segment(B, G)
b_2 = Segment(F, G)
d_2 = Segment(N, S)
f_2 = Segment(I, P)
i_2 = Segment(I, Q)
j_2 = Segment(J, K)
k_2 = Segment(G, O)
r_1 = Segment(D, K)
g_2 = Segment(O, R)
s_1 = Segment(C, I)
c_2 = Segment(H, I)
e_2 = Segment(G, N)
B_1 = Midpoint(B, F)
C_1 = Midpoint(C, G)
D_1 = Midpoint(D, N)
E_1 = Midpoint(E, S)
F_1 = Midpoint(G, H)
G_1 = Midpoint(N, O)
H_1 = Midpoint(S, I)
I_1 = Midpoint(W, P)
J_1 = Midpoint(O, J)
K_1 = Midpoint(I, R)
L_1 = Midpoint(P, Q)
M_1 = Midpoint(Z, K)
N_1 = Midpoint(R, L)
O_1 = Midpoint(Q, T)
P_1 = Midpoint(K, U)
Q_1 = Midpoint(A_1, V)
texto17: "n = " + n