A = (14.138512396694209, -8.02698722764838)
B = Point(Circle[A, 3])
f = segment(A, B)
poly1, g, h, i, j, C, D = Polygon(A, B, 4)
poly2, k, l, m, n, E, F = Polygon(A, D, 4)
poly3, p, q, r, s, G, H = Polygon(F, E, 4)
poly4, t, a, b, c, I, J = Polygon(C, B, 4)
poly5, d, e, f_1, g_1, K, L = Polygon(J, I, 4)
poly6, h_1, i_1, j_1, k_1, M, N = Polygon(B, A, 4)
poly7, l_1, m_1, n_1, p_1, O, P = Polygon(N, M, 4)
poly8, q_1, r_1, s_1, t_1, Q, R = Polygon(P, O, 4)
poly9, a_1, b_1, c_1, d_1, S, T = Polygon(O, M, 4)
poly10, e_1, f_2, g_2, h_2, U, V = Polygon(N, P, 4)
poly11, i_2, j_2, k_2, l_2, W, Z = Polygon(D, C, 4)
poly12, m_2, n_2, p_2, q_2, A_1, B_1 = Polygon(Z, W, 4)
poly13, r_2, s_2, t_2, a_2, C_1, D_1 = Polygon(B_1, A_1, 4)
poly14, b_2, c_2, d_2, e_2, E_1, F_1 = Polygon(D_1, C_1, 4)
poly15, f_3, g_3, h_3, i_3, G_1, H_1 = Polygon(A_1, W, 4)
poly16, j_3, k_3, l_3, m_3, I_1, J_1 = Polygon(Z, B_1, 4)
poly17, n_3, p_3, q_3, r_3, K_1, L_1 = Polygon(D_1, F_1, 4)
poly18, s_3, t_3, a_3, b_3, M_1, N_1 = Polygon(E_1, C_1, 4)
poly19, c_3, d_3, e_3, O_1 = Polygon(C_1, A_1, 3)
poly20, f_4, g_4, h_4, P_1 = Polygon(B_1, D_1, 3)
poly21, i_4, j_4, k_4, Q_1 = Polygon(W, C, 3)
poly22, l_4, m_4, n_4, R_1 = Polygon(D, Z, 3)
poly23, p_4, q_4, r_4, S_1 = Polygon(B, N, 3)
poly24, s_4, t_4, a_4, T_1 = Polygon(P, R, 3)
poly25, b_4, c_4, d_4, U_1 = Polygon(Q, O, 3)
poly26, e_4, f_5, g_5, V_1 = Polygon(M, A, 3)
c_5, d_5, m_5, n_5, p_5, q_5, r_5, s_5, t_5 = languette(U, P)
h_5 = ouverture(P, T_1)
i_5 = ouverture(N, S_1)
j_5 = ouverture(V_1, M)
k_5 = ouverture(U_1, O)
e_5, c_6, l_5, a_5, b_5, f_6, g_6, h_6, i_6 = languette(N, V)
d_6, e_6, j_6, k_6, l_6, m_6, n_6, p_6, q_6 = languette(S, M)
r_6, s_6, t_6, a_6, b_6, f_7, g_7, h_7, i_7 = languette(O, T)
c_7, d_7, j_7, k_7, l_7, m_7, n_7, p_7, q_7 = languette(V_1, A)
e_7, r_7, s_7, t_7, a_7, b_7, f_8, g_8, h_8 = languette(B, S_1)
c_8, d_8, i_8, j_8, k_8, l_8, m_8, n_8, p_8 = languette(Q_1, C)
e_8, q_8, r_8, s_8, t_8, a_8, b_8, f_9, g_9 = languette(D, R_1)
c_9, d_9, h_9, i_9, j_9, k_9, l_9, m_9, n_9 = languette(Z, J_1)
e_9, p_9, q_9, r_9, s_9, t_9, a_9, b_9, f_{10} = languette(G_1, W)
g_{10} = ouverture(F, A)
h_{10} = ouverture(B, I)
i_{10} = ouverture(C, J)
j_{10} = ouverture(D, E)
k_{10} = ouverture(W, Q_1)
l_{10} = ouverture(Z, R_1)
m_{10} = ouverture(C_1, O_1)
n_{10} = ouverture(A_1, H_1)
p_{10} = ouverture(B_1, I_1)
q_{10} = ouverture(D_1, P_1)
c_{10}, d_{10}, r_{10}, s_{10}, t_{10}, a_{10}, b_{10}, e_{10}, f_{11} = languette(D_1, L_1)
c_{11}, d_{11}, g_{11}, h_{11}, i_{11}, j_{11}, k_{11}, l_{11}, m_{11} = languette(B_1, P_1)
e_{11}, p_{11}, n_{11}, q_{11}, r_{11}, s_{11}, t_{11}, a_{11}, b_{11} = languette(M_1, C_1)
c_{12}, d_{12}, f_{12}, g_{12}, h_{12}, i_{12}, j_{12}, k_{12}, l_{12} = languette(O_1, A_1)
W_1, Z_1, A_2, B_2, C_2, D_2, E_2, F_2, G_2, H_2, I_2, e_{12}, m_{12}, n_{12}, p_{12}, q_{12}, r_{12} = Languette1(N_1, M_1)
J_2, K_2, L_2, M_2, N_2, O_2, P_2, Q_2, R_2, S_2, T_2, s_{12}, t_{12}, a_{12}, b_{12}, f_{13}, g_{13} = Languette1(L_1, K_1)
U_2, V_2, W_2, Z_2, A_3, B_3, C_3, D_3, E_3, F_3, G_3, c_{13}, h_{13}, i_{13}, j_{13}, k_{13}, l_{13} = Languette1(J_1, I_1)
H_3, I_3, J_3, K_3, L_3, M_3, N_3, O_3, P_3, Q_3, R_3, d_{13}, m_{13}, n_{13}, p_{13}, q_{13}, r_{13} = Languette1(T, S)
S_3, T_3, U_3, V_3, W_3, Z_3, A_4, B_4, C_4, D_4, E_4, e_{13}, s_{13}, t_{13}, a_{13}, b_{13}, f_{14} = Languette1(V, U)
F_4, G_4, H_4, I_4, J_4, K_4, L_4, M_4, N_4, O_4, P_4, c_{14}, g_{14}, h_{14}, i_{14}, j_{14}, k_{14} = Languette1(T_1, R)
Q_4, R_4, S_4, T_4, U_4, V_4, W_4, Z_4, A_5, B_5, C_5, d_{14}, l_{14}, m_{14}, n_{14}, p_{14}, q_{14} = Languette1(R, Q)
D_5, E_5, F_5, G_5, H_5, I_5, J_5, K_5, L_5, M_5, N_5, e_{14}, r_{14}, s_{14}, t_{14}, a_{14}, b_{14} = Languette1(Q, U_1)
f_{15}, g_{15}, h_{15}, i_{15}, j_{15}, k_{15} = languette2(K_1, F_1)
l_{15}, m_{15}, n_{15}, p_{15}, q_{15}, r_{15} = languette2(F_1, E_1)
s_{15}, t_{15}, a_{15}, b_{15}, c_{15}, d_{15} = languette2(E_1, N_1)
k_{16}, l_{16}, m_{16}, n_{16}, p_{16}, q_{16} = languette2(J, L)
r_{16}, s_{16}, t_{16}, a_{16}, b_{16}, c_{16} = languette2(L, K)
d_{16}, e_{16}, f_{17}, g_{17}, h_{17}, i_{17} = languette2(K, I)
j_{17}, k_{17}, l_{17}, m_{17}, n_{17}, p_{17} = languette2(F, H)
q_{17}, r_{17}, s_{17}, t_{17}, a_{17}, b_{17} = languette2(H, G)
c_{17}, d_{17}, e_{17}, f_{18}, g_{18}, h_{18} = languette2(G, E)
i_{18} = segment2(O, P)
j_{18} = segment2(F_1, Q)
k_{18} = segment2(R, E_1)
l_{18} = segment2(C_1, D_1)
m_{18} = segment2(B_1, A_1)
n_{18} = segment2(W, Z)
p_{18} = segment2(D, C)
q_{18} = segment2(B, A)
r_{18} = segment2(M, N)
O_5 = Intersect(f_7, b_6)
s_{18} = segment(O_5, U_1)
P_5 = Point(f_7)
t_{18} = segment(P_5, O)
Q_5 = Intersect(q_5, p_5)
a_{18} = segment(Q_5, T_1)
R_5 = Intersect(c_5, p_5, 1)
b_{18} = segment(R_5, P)
S_5 = Point(f_6)
c_{18} = segment(N, S_5)
T_5 = Intersect(f_6, b_5)
d_{18} = segment(T_5, S_1)
U_5 = Intersect(d_6, l_6, 1)
e_{18} = segment(M, U_5)
V_5 = Intersect(m_6, l_6)
f_{19} = segment(V_1, V_5)
W_5 = Point(j_5)
g_{19} = segment2(V_1, W_5)
h_{19} = segment2(U_5, M)
Z_5 = Point(j_5)
i_{19} = segment2(M, Z_5)
A_6 = Point(i_5)
j_{19} = segment2(N, A_6)
B_6 = Point(i_5)
k_{19} = segment2(S_1, B_6)
C_6 = Point(h_5)
l_{19} = segment2(T_1, C_6)
D_6 = Point(h_5)
m_{19} = segment2(P, D_6)
E_6 = Point(k_5)
n_{19} = segment2(O, E_6)
F_6 = Point(k_5)
p_{19} = segment2(U_1, F_6)
G_6 = Point(g_{10})
q_{19} = segment2(G_6, F)
H_6 = Point(g_{10})
r_{19} = segment2(H_6, A)
I_6 = Point(h_{10})
s_{19} = segment2(I_6, B)
J_6 = Point(h_{10})
t_{19} = segment2(J_6, I)
K_6 = Intersect(m_7, l_7)
a_{19} = segment(K_6, F)
L_6 = Intersect(c_7, l_7, 1)
b_{19} = segment(A, L_6)
M_6 = Intersect(r_7, b_7, 1)
c_{19} = segment(B, M_6)
N_6 = Intersect(b_7, a_7)
d_{19} = segment(I, N_6)
O_6 = Point(l_{10})
e_{19} = segment2(O_6, R_1)
P_6 = Point(l_{10})
f_{20} = segment2(P_6, Z)
Q_6 = Point(j_{10})
g_{20} = segment2(Q_6, E)
R_6 = Point(j_{10})
h_{20} = segment2(R_6, D)
S_6 = Point(i_{10})
i_{20} = segment2(S_6, C)
T_6 = Point(i_{10})
j_{20} = segment2(T_6, J)
U_6 = Point(k_{10})
k_{20} = segment2(U_6, Q_1)
V_6 = Point(k_{10})
l_{20} = segment2(V_6, W)
W_6 = Point(d_9)
m_{20} = segment(W_6, Z)
Z_6 = Intersect(k_9, j_9)
n_{20} = segment(R_1, Z_6)
A_7 = Intersect(a_8, t_8)
p_{20} = segment(A_7, E)
B_7 = Intersect(q_8, a_8, 1)
q_{20} = segment(D, B_7)
C_7 = Intersect(c_8, k_8, 1)
r_{20} = segment(C, C_7)
D_7 = Intersect(l_8, k_8)
s_{20} = segment(J, D_7)
E_7 = Intersect(e_9, s_9, 1)
t_{20} = segment(E_7, W)
F_7 = Intersect(t_9, s_9)
a_{20} = segment(Q_1, F_7)
G_7 = Point(q_{10})
b_{20} = segment2(G_7, D_1)
H_7 = Point(q_{10})
c_{20} = segment2(H_7, P_1)
I_7 = Point(p_{10})
d_{20} = segment2(I_7, I_1)
J_7 = Point(p_{10})
e_{20} = segment2(J_7, B_1)
K_7 = Point(n_{10})
f_{21} = segment2(A_1, K_7)
L_7 = Point(n_{10})
g_{21} = segment2(L_7, H_1)
M_7 = Point(m_{10})
h_{21} = segment2(O_1, M_7)
N_7 = Point(m_{10})
i_{21} = segment2(N_7, C_1)
O_7 = Intersect(a_{10}, t_{10})
j_{21} = segment(P_1, O_7)
P_7 = Point(a_{10})
k_{21} = segment(P_7, D_1)
Q_7 = Intersect(j_{11}, i_{11})
l_{21} = segment(Q_7, I_1)
R_7 = Point(j_{11})
m_{21} = segment(R_7, B_1)
S_7 = Point(c_{12})
n_{21} = segment(S_7, A_1)
T_7 = Intersect(i_{12}, h_{12})
p_{21} = segment(T_7, H_1)
U_7 = Intersect(s_{11}, r_{11})
q_{21} = segment(O_1, U_7)
V_7 = Point(e_{11})
r_{21} = segment(V_7, C_1)
W_7, Z_7, A_8, B_8, C_8, D_8, E_8, F_8, G_8, H_8, I_8, e_{15}, f_{16}, g_{16}, h_{16}, i_{16}, j_{16} = Languette1(H_1, G_1)
s_{21} = segment2(J, I)
t_{21} = segment2(E, F)

Tool: segment-trait-plein (command segment)
segment[ <Point>, <Point> ]
Input: F, G
Output: g

g = Segment(F, G)

Tool: languette-ronde-1pour2 (command Languette1)
deux points
Input: A, B
Output: C, D, D', E, E', F, F', G, G', H, I, c, f, h, g, k, l

C = Midpoint(A, B)
D = Midpoint(A, C)
E = Midpoint(D, C)
F = Midpoint(D, E)
G = Midpoint(D, F)
D' = Mirror(D, C)
E' = Mirror(E, C)
F' = Mirror(F, C)
G' = Mirror(G, C)
c = Semicircle(D, D')
f = segment(G, G')
g = segment(G, A)
h = segment(G', B)
i = OrthogonalLine(G, g)
j = OrthogonalLine(G', h)
H = Intersect(c, i, 1)
I = Intersect(c, j, 1)
k = segment(H, G)
l = segment(I, G')

Tool: languette-trapeze-2pour1 (command languette2)
deux points [créés ou non]
Input: A, B
Output: i, j, k, l, m, n

poly1, f, g, h, C = Polygon(A, B, 3)
D = Midpoint(C, B)
E = Midpoint(B, D)
H = Midpoint(C, A)
I = Midpoint(H, A)
L = Midpoint(A, B)
M = Midpoint(L, B)
N = Midpoint(L, A)
l = segment(N, M)
m = segment(A, N)
n = segment(M, B)
i = segment(A, I)
j = segment(I, E)
k = segment(E, B)

Tool: languette-triangle-4pour3 (command languette3)
deux points [créés ou non]
Input: A, B
Output: h, j, l, i, k

B' = Rotate(B, 18°, A)
f = Ray(A, B')
A' = Rotate(A, -18°, B)
g = Ray(B, A')
C = Intersect(f, g)
D = Midpoint(A, B)
E = Midpoint(A, D)
F = Midpoint(D, B)
h = segment(A, C)
i = segment(C, B)
j = segment(B, F)
k = segment(F, E)
l = segment(E, A)

Tool: languette-triangle-arrondi-3pour4 (command languette)
deux points [créés ou non]
Input: A, B
Output: c_1, d, t, s, r, q, a, b, f_1

f, g, h, i, j = languette3(A, B)
C, D, E, F, G, H, I, J, K, L, M, c, k, l, m, n, p = Languette1(A, B)
N = Intersect(c, f, 1)
O = Intersect(c, i, 1)
P = Intersect(f, i)
Q = Intersect(f, n)
R = Intersect(i, p)
T = Intersect(n, m)
U = Intersect(p, l)
V = Intersect(c, m, 1)
Z = Midpoint(A, B)
d = CircleArc(Z, N, V)
q = segment(N, P)
r = segment(P, O)
s = segment(T, Q)
t = segment(U, R)
a = segment(A, J)
b = segment(K, B)
f_1 = segment(J, K)
c_1 = CircleArc(C, E, O)

Tool: languettes-ronde-trapeze (command languettes)
deux points (créés ou non]
Input: A, B
Output: c, f, g, h, i, j, k, l, m, n, p, q

C = Midpoint(A, B)
D, E, F, G, H, I, J, K, L, M, N, c, f, g, h, i, j = Languette1(A, C)
k, l, m, n, p, q = languette2(C, B)

Tool: ouverture-pour-languettes-1et3 (command ouverture)
ouverture[ <Point>, <Point> ]
Input: A, B
Output: f

C = Midpoint(A, B)
D = Midpoint(A, C)
E = Midpoint(C, B)
f = segment(D, E)

Tool: segment-pointillé (command segment2)
segment2[ <Point>, <Point> ]
Input: H, I
Output: h

h = segment(H, I)

Tool: languette-trapeze-colle (command languette5)
Input: J, K
Output: i, j, k, p

i, j, k, l, m, n = languette2(J, K)
p = segment(J, K)

Tool: languette-triangle-colle (command languette6)
Input: P, Q
Output: b, e, g_1

b, c, d, e, f_1 = languette3(P, Q)
g_1 = segment(P, Q)