Cinco cubos en un dodecaedro

Primero los vemos de uno en uno. después se van agregando para verlos todos juntos.
.

Cinco cubos

Animación

Detener la animación en:

t1 = 14.65 (slider from 0 to 15, step 0.001)
O: (0, 0, 0)
L = 3 (slider from 1 to 4, step 0.1)
n = 5 (slider from 3 to 5, step 1)
c = 1.4142135623730951
t = 1.7320508075688772
p = 1.1755705045849463
ar = If(n ≟ 3, L / t, If[n ≟ 4, L / c, If[n ≟ 5, L / p]])
RA = 1 (slider from 0 to 1, step 1)
des = If(RA ≟ 0, L, If[RA ≟ 1, ar])
ci = Circle(O, des, xOyPlane)
A = Point(ci)
A' = Rotate(A, (360 * ° / n), O)
A'' = Rotate(A', (360 * ° / n), O)
v = 0.4 (slider from -1 to 1, step 0.1)
b = Distance(A, A')
arista = Distance(A, A')
radio = Distance(O, A'')
P12, B, C, D, E, F, G, H, I, J, K, M, N, P, Q, R, S, T, caraAA'A''BC, caraACGNH, caraAA'DIH, caraA'A''EJD, caraA''BFKE, caraBCGMF, caraGMSTN, caraHIPTN, caraDIPQJ, caraEJQRK, caraFKRSM, caraPQRST, aristaAC, aristaAA', aristaA'A'', aristaA''B, aristaBC, aristaAH, aristaCG, aristaGN, aristaHN, aristaHI, aristaDI, aristaA'D, aristaDJ, aristaEJ, aristaA''E, aristaEK, aristaFK, aristaBF, aristaFM, aristaGM, aristaMS, aristaST, aristaNT, aristaPT, aristaIP, aristaPQ, aristaJQ, aristaQR, aristaKR, aristaRS = Dodecahedron(A, A', A'')
U = Midpoint(A, R)
i = 4 (slider from 1 to 4, step 1)
F_1 = Intersect(aristaCG, aristaJQ)
I_2 = Intersect(aristaBF, aristaBC)
w = 0 (slider from 0 to 2, step 0.1)
texto1: "Arista del dodecaedro " + L + ""
v10: (10 * v)
w5: (5 * w)
texto2: "Velocidad de giro " + v10 + ""
p061, V, W, Z, A_1, B_1, cara1, cara2, cara3, cara4, cara5, cara6, arista1, arista2, arista3, arista4, arista5, arista6, arista7, arista8, arista9, arista10, arista11, arista12 = Cube(I, N, S)
f = Line(S, W)
p062, C_1, D_1, E_1, G_1, H_1, cara7, cara10, cara8, cara9, cara11, cara12, arista14, aristaIJ, aristaIT, arista16, arista15, arista18, arista20, arista19, arista13, arista21, arista17, arista22 = Cube(J, I, T)
p063, I_1, J_1, K_1, L_1, M_1, cara13, cara15, cara14, cara16, cara17, cara18, arista23, aristaJP, aristaPS, arista26, arista24, arista28, arista30, arista29, arista25, arista31, arista27, arista32 = Cube(J, P, S)
p064, N_1, O_1, P_1, Q_1, R_1, cara19, cara20, cara21, cara22, cara23, cara24, arista33, arista34, arista35, arista36, arista37, arista38, arista39, arista40, arista41, arista42, arista43, arista44 = Cube(V, D, K_1)
p065, S_1, T_1, U_1, V_1, W_1, cara25, cara29, cara28, cara26, cara27, cara30, arista48, aristaDP, aristaAD, arista45, arista49, arista50, arista52, arista51, arista47, arista53, arista46, arista54 = Cube(P, D, A)
texto4: "Veloc. animación " + w5 + ""
p061b: p061
p062b: p062
p063b: p063
p064b: p064
p065b: p065