Author: db iufm V
Date: 14 Juin 2014

A = (0, 7)
B = (1.281088913, 4.784088912)
poly1, a, b, c, d, C, D = Polygon(A, B, 4)
B' = Rotate(B, 60*°, C)
poly2, E, F, G = un_carré(C, B')
poly3, H, I, J = un_carré(F, G)
poly4, K, L, M = un_carré(I, J)
poly5, N, O, P = un_carré(L, M)
poly6, Q, R, S = un_carré(O, P)
poly7, T, U, V = un_carré(R, S)
poly8, W, Z, A_1 = un_carré(U, V)
poly9, B_1, C_1, D_1 = un_carré(Z, A_1)
poly10, E_1, F_1, G_1 = un_carré(C_1, D_1)
poly11, H_1, I_1, J_1 = un_carré(F_1, G_1)
poly12, e, f, g, h, K_1, L_1 = Polygon(I_1, J_1, 4)
B'_1 = Rotate(B, 315*°, J_1)
M_1 = Dilate(B'_1, 0.707106781, J_1)
poly13, poly14, poly15, poly16, poly17, poly18, poly19, poly20, poly21, poly22, poly23, poly24, N_1, O_1, P_1, Q_1, R_1, S_1, T_1, U_1, V_1, W_1, Z_1, A_2, B_2, C_2, D_2, E_2, F_2, G_2, H_2, I_2, J_2, K_2, L_2, M_2, N_2, O_2, P_2, Q_2, R_2, S_2, T_2, U_2, V_2, W_2, Z_2 = une_couronne(J_1, M_1)
poly25, poly26, poly27, poly28, poly29, poly30, poly31, poly32, poly33, poly34, poly35, poly36, A_3, B_3, C_3, D_3, E_3, F_3, G_3, H_3, I_3, J_3, K_3, L_3, M_3, N_3, O_3, P_3, Q_3, R_3, S_3, T_3, U_3, V_3, W_3, Z_3, A_4, B_4, C_4, D_4, E_4, F_4, G_4, H_4, I_4, J_4, K_4 = une_couronne(M_2, Z_2)
poly37, poly38, poly39, poly40, poly41, poly42, poly43, poly44, poly45, poly46, poly47, poly48, L_4, M_4, N_4, O_4, P_4, Q_4, R_4, S_4, T_4, U_4, V_4, W_4, Z_4, A_5, B_5, C_5, D_5, E_5, F_5, G_5, H_5, I_5, J_5, K_5, L_5, M_5, N_5, O_5, P_5, Q_5, R_5, S_5, T_5, U_5, V_5 = une_couronne(Z_3, K_4)
poly49, poly50, poly51, poly52, poly53, poly54, poly55, poly56, poly57, poly58, poly59, poly60, W_5, Z_5, A_6, B_6, C_6, D_6, E_6, F_6, G_6, H_6, I_6, J_6, K_6, L_6, M_6, N_6, O_6, P_6, Q_6, R_6, S_6, T_6, U_6, V_6, W_6, Z_6, A_7, B_7, C_7, D_7, E_7, F_7, G_7, H_7, I_7 = une_couronne(K_5, V_5)
poly61, poly62, poly63, poly64, poly65, poly66, poly67, poly68, poly69, poly70, poly71, poly72, J_7, K_7, L_7, M_7, N_7, O_7, P_7, Q_7, R_7, S_7, T_7, U_7, V_7, W_7, Z_7, A_8, B_8, C_8, D_8, E_8, F_8, G_8, H_8, I_8, J_8, K_8, L_8, M_8, N_8, O_8, P_8, Q_8, R_8, S_8, T_8 = une_couronne(V_6, I_7)
poly73, poly74, poly75, poly76, poly77, poly78, poly79, poly80, poly81, poly82, poly83, poly84, U_8, V_8, W_8, Z_8, A_9, B_9, C_9, D_9, E_9, F_9, G_9, H_9, I_9, J_9, K_9, L_9, M_9, N_9, O_9, P_9, Q_9, R_9, S_9, T_9, U_9, V_9, W_9, Z_9, A_{10}, B_{10}, C_{10}, D_{10}, E_{10}, F_{10}, G_{10} = une_couronne(I_8, T_8)

Tool: un_carré
point puis point
Input: A, B
Output: poly1, D, C, B'

poly1, a, b, c, d, C, D = Polygon(A, B, 4)
B' = Rotate(B, 60*°, C)

Tool: une_couronne
point puis point
Input: A, B
Output: poly1, poly2, poly3, poly4, poly5, poly6, poly7, poly8, poly9, poly10, poly11, poly12, D, E, H, K, N, Q, T, W, B_1, E_1, H_1, L_1, F, I, L, O, R, U, Z, C_1, F_1, I_1, C, J_1, B', G, J, M, P, S, V, A_1, D_1, G_1, M_1

poly1, a, b, c, d, C, D = Polygon(A, B, 4)
B' = Rotate(B, 60*°, C)
poly2, E, F, G = un_carré(C, B')
poly3, H, I, J = un_carré(F, G)
poly4, K, L, M = un_carré(I, J)
poly5, N, O, P = un_carré(L, M)
poly6, Q, R, S = un_carré(O, P)
poly7, T, U, V = un_carré(R, S)
poly8, W, Z, A_1 = un_carré(U, V)
poly9, B_1, C_1, D_1 = un_carré(Z, A_1)
poly10, E_1, F_1, G_1 = un_carré(C_1, D_1)
poly11, H_1, I_1, J_1 = un_carré(F_1, G_1)
poly12, e, f, g, h, K_1, L_1 = Polygon(I_1, J_1, 4)
B'_1 = Rotate(B, 315*°, J_1)
M_1 = Dilate(B'_1, 0.707106781, J_1)