c = 4 (slider from 0 to 10, step 0.5)
A: (0, 0, 0)
B: (c, 0, 0)
C = Point(Circle[B, Distance[A, B], Segment[A, B]])
cube, D, E, F, G, H, faceABCD, faceADHE, faceABFE, faceBCGF, faceCDHG, faceEFGH, arêteAD, arêteAB, arêteBC, arêteCD, arêteAE, arêteDH, arêteEH, arêteEF, arêteBF, arêteFG, arêteCG, arêteGH = Cube(A, B, C)
A_1: ((-2 * c), 0, 0)
B_1: ((-c), 0, 0)
I = Point(Circle[Midpoint[A_1, B_1], (Distance[A_1, B_1] * sqrt(3) / 2), Segment[A_1, B_1]])
tétraèdre, J, face1, face3, face2, face4, arête2, arête1, arête4, arête3, arêteIJ, arête5 = Tetrahedron(A_1, B_1, I)
A_2: ((2 * c), 0, 0)
B_2: ((3 * c), 0, 0)
K = Point(Circle[Midpoint[A_2, B_2], (Distance[A_2, B_2] * sqrt(3) / 2), Segment[A_2, B_2]])
octaèdre, L, M, N, face5, face7, face8, face6, face10, face9, faceKMN, faceLMN, arête7, arête6, arête10, arête9, arêteKN, arête8, arêteLN, arête11, arête12, arêteLM, arêteKM, arêteMN = Octahedron(A_2, B_2, K)
a83: (0, (-c), 0)
B_3: (0, (-2.5 * c), 0)
A_3: (0, (-2 * c), 0)
O = Point(Circle[((A_3 * (1 - sqrt(5))) + (B_3 * (3 + sqrt(5)))) / 4, (Distance[A_3, B_3] * sqrt(10 + (2 * sqrt(5))) / 4), Segment[A_3, B_3]])
dodécaèdre, P, Q, R, S, T, U, V, W, Z, C_1, D_1, E_1, F_1, G_1, H_1, I_1, J_1, face11, face14, face12, face13, face15, face16, face20, face21, face17, face18, face19, face22, arête16, arête13, arête14, arêteOP, arêtePQ, arête17, arêteQU, arête22, arête23, arêteVW, arêteRW, arête15, arêteRZ, arêteSZ, arêteOS, arête18, arête19, arêtePT, arête20, arête21, arête27, arête33, arête28, arête30, arête24, arête29, arête25, arête31, arête26, arête32 = Dodecahedron(A_3, B_3, O)
A_4: ((2 * c), (-2 * c), 0)
B_4: ((2 * c), (-2.5 * c), 0)
K_1 = Point(Circle[Midpoint[A_4, B_4], (Distance[A_4, B_4] * sqrt(3) / 2), Segment[A_4, B_4]])
icosaèdre, L_1, M_1, N_1, O_1, P_1, Q_1, R_1, S_1, T_1, face23, face25, face27, face26, face24, face29, face30, face28, face31, face32, face35, face36, face41, face38, face40, face42, face39, face37, face34, face33, arête35, arête34, arête39, arête37, arête44, arête38, arête52, arête36, arête46, arête40, arête42, arête47, arête41, arête49, arête43, arête45, arête50, arête53, arête51, arête58, arête59, arête60, arête63, arête54, arête61, arête57, arête62, arête56, arête55, arête48 = Icosahedron(A_4, B_4, K_1)