Dodecaedro rómbico

Basta hacer simetria del centro de un cubo respecto a sus caras y formas los rombos como el que se muestra.

Marca las casillas por orden para ver el procediiento.

Ver cara

Ver dodecaedro rómbico

Ver cubo

r = 2.5 (slider from 1 to 3, step 0.1)
O = (0, 0)
c = Circle(O, r)
A = Point(c)
n = 4 (slider from 3 to 5, step 1)
A' = Rotate(A, (360 * ° / n), O)
A'' = Rotate(A', (360 * ° / n), O)
a, B, C, D, E, F, caraAA'A''B, caraABFC, caraAA'DC, caraA'A''ED, caraA''BFE, caraCDEF, aristaAB, aristaAA', aristaA'A'', aristaA''B, aristaAC, aristaBF, aristaCF, aristaCD, aristaA'D, aristaDE, aristaA''E, aristaEF = Cube(A, A', A'')
G = Midpoint(A, E)
G' = Mirror(G, caraA'A''ED)
G'_1 = Mirror(G, caraCDEF)
rombo1, g'_1, d, g', e = Polygon(G'_1, D, G', E)
lista1 = Sequence(Rotate[rombo1, ((i * 90))°, zAxis], i, 0, 3)
G'_2 = Mirror(G, caraA''BFE)
G'' = Rotate(G', 90*°, zAxis)
rombo2, g'_2, e_1, g'_3, a'' = Polygon(G'_2, E, G', A'')
lista2 = Sequence(Rotate[rombo2, ((i * 90))°, zAxis], i, 0, 3)
lista1' = Mirror(lista1, G)
lista3: {lista1, lista1', lista2}
lista4 = Translate(lista3, Vector[(0, 0, 0)])
b = false
f = false
g = true