Author: Rafael Losada Liste

8 C

6 V

Tetraedro:

Octaedro:

Cubo:

Dodecaedro:

Icosaedro:

4 C

4 V

6 C

8 V

12 C

20 V

20 C

12 V

12 A

6 A

12 A

30 A

30 A

Escala = 5 (slider from 1 to 9, step 0.1)
fi: (1 + sqrt(5)) / 2
carasOcta = true
verticesOcta = false
carasTetra = true
verticesTetra = false
carasCubo = true
verticesCubo = false
carasDod = false
verticesDod = false
carasIco = false
verticesIco = false
aristasOcta = true
aristasTetra = true
aristasCubo = true
aristasDod = false
aristasIco = false
Cubo2: ((1, -1, -1) * Escala)
Cubo1: ((-1, -1, -1) * Escala)
Cubo3: ((1, 1, -1) * Escala)
a, Cubo4, Cubo5, Cubo6, Cubo7, Cubo8, caraABCO, caraCGDO, caraAEDO, caraABFE, caraBCGF, caraDEFG, aristaCO, aristaAO, aristaAB, aristaBC, aristaDO, aristaCG, aristaDG, aristaDE, aristaAE, aristaEF, aristaBF, aristaFG = Cube(Cubo1, Cubo2, Cubo3)
b, H, caraADF, caraADH, caraDFH, caraAFH, aristaAD, aristaDF, aristaAF, aristaDH, aristaAH, aristaFH = Tetrahedron(Cubo5, Cubo7, Cubo2)
I = Midpoint(aristaDF)
Octa1 = Midpoint(aristaAF)
Octa2 = Midpoint(aristaDH)
Octa3 = Midpoint(aristaAH)
Octa4 = Midpoint(aristaAD)
Octa5 = Midpoint(aristaFH)
polígono1, i, m, j = Polygon(Octa4, Octa1, I)
polígono2, i_1, m_1, k = Polygon(Octa4, Octa2, I)
polígono3, m_2, k_1, l = Polygon(Octa2, Octa3, Octa4)
polígono4, m_3, l_1, j_1 = Polygon(Octa3, Octa1, Octa4)
polígono5, l_2, j_2, n = Polygon(Octa1, Octa5, Octa3)
Octa6 = Intersect(aristaDF, m)
polígono6, i_2, n_1, j_3 = Polygon(Octa5, Octa1, I)
polígono7, n_2, l_3, k_2 = Polygon(Octa3, Octa2, Octa5)
polígono8, i_3, k_3, n_3 = Polygon(Octa2, Octa5, I)
Ico01: ((0, 1, fi) * Escala)
Ico02: ((0, 1, (-fi)) * Escala)
Ico03: ((0, -1, fi) * Escala)
Ico04: ((0, -1, (-fi)) * Escala)
Ico05: ((1, fi, 0) * Escala)
Ico06: ((1, (-fi), 0) * Escala)
Ico07: ((-1, fi, 0) * Escala)
Ico08: ((-1, (-fi), 0) * Escala)
Ico09: ((fi, 0, 1) * Escala)
Ico10: ((fi, 0, -1) * Escala)
Ico11: (((-fi), 0, 1) * Escala)
Ico12: (((-fi), 0, -1) * Escala)
d = Segment(Ico01, Ico05)
h = Segment(Ico02, Ico04)
p = Segment(Ico02, Ico05)
q = Segment(Ico02, Ico07)
r = Segment(Ico02, Ico10)
s = Segment(Ico02, Ico12)
d_1 = Segment(Ico04, Ico06)
e_1 = Segment(Ico04, Ico08)
f_1 = Segment(Ico04, Ico10)
g_1 = Segment(Ico04, Ico12)
h_1 = Segment(Ico05, Ico07)
p_1 = Segment(Ico05, Ico09)
q_1 = Segment(Ico05, Ico10)
r_1 = Segment(Ico06, Ico08)
s_1 = Segment(Ico06, Ico09)
t_1 = Segment(Ico06, Ico10)
b_2 = Segment(Ico07, Ico12)
c_2 = Segment(Ico08, Ico12)
e_2 = Segment(Ico11, Ico12)
polígono9, ico07, ico11, ico01 = Polygon(Ico11, Ico01, Ico07)
polígono10, ico11_1, ico01_1, ico03 = Polygon(Ico01, Ico03, Ico11)
polígono11, ico01_2, ico03_1, ico09 = Polygon(Ico03, Ico09, Ico01)
polígono13, ico11_2, ico08, ico03_3 = Polygon(Ico08, Ico03, Ico11)
polígono12, ico03_2, ico08_1, ico06 = Polygon(Ico08, Ico06, Ico03)
polígono14, ico09_1, ico03_4, ico06_1 = Polygon(Ico03, Ico06, Ico09)
polígono15, ico06_2, ico10, ico09_2 = Polygon(Ico10, Ico09, Ico06)
polígono16, ico10_1, ico06_3, ico04 = Polygon(Ico06, Ico04, Ico10)
polígono17, ico04_1, ico08_2, ico06_4 = Polygon(Ico08, Ico06, Ico04)
polígono18, ico12, ico11_3, ico08_3 = Polygon(Ico11, Ico08, Ico12)
polígono19, ico07_1, ico12_1, ico11_4 = Polygon(Ico12, Ico11, Ico07)
polígono20, ico04_2, ico12_2, ico08_4 = Polygon(Ico12, Ico08, Ico04)
polígono21, ico04_3, ico12_3, ico02 = Polygon(Ico12, Ico02, Ico04)
polígono22, ico07_2, ico02_1, ico12_4 = Polygon(Ico02, Ico12, Ico07)
polígono23, ico09_3, ico10_2, ico05 = Polygon(Ico10, Ico05, Ico09)
polígono24, ico10_3, ico05_1, ico02_2 = Polygon(Ico05, Ico02, Ico10)
polígono25, ico02_3, ico04_4, ico10_4 = Polygon(Ico04, Ico10, Ico02)
polígono26, ico09_4, ico05_2, ico01_3 = Polygon(Ico05, Ico01, Ico09)
polígono27, ico05_3, ico07_3, ico02_4 = Polygon(Ico07, Ico02, Ico05)
polígono28, ico01_4, ico05_4, ico07_4 = Polygon(Ico05, Ico07, Ico01)
Dod01: ((0, fi, fi - 1) * Escala)
Dod02: ((0, (-fi), fi - 1) * Escala)
Dod04: ((0, (-fi), 1 - fi) * Escala)
Dod03: ((0, fi, 1 - fi) * Escala)
Dod05: ((fi, fi - 1, 0) * Escala)
Dod06: (((-fi), fi - 1, 0) * Escala)
Dod07: ((fi, 1 - fi, 0) * Escala)
Dod08: (((-fi), 1 - fi, 0) * Escala)
Dod09: ((fi - 1, 0, fi) * Escala)
Dod10: ((fi - 1, 0, (-fi)) * Escala)
Dod11: ((1 - fi, 0, fi) * Escala)
Dod12: ((1 - fi, 0, (-fi)) * Escala)
polígono29, dod09, dod11, cubo8, dod01, cubo7 = Polygon(Dod09, Dod11, Cubo8, Dod01, Cubo7)
polígono30, dod09_1, cubo6, dod02, cubo5, dod11_1 = Polygon(Dod09, Cubo6, Dod02, Cubo5, Dod11)
polígono31, dod10, dod12, cubo1, dod04, cubo2 = Polygon(Dod10, Dod12, Cubo1, Dod04, Cubo2)
polígono32, dod12_1, cubo4, dod03, cubo3, dod10_1 = Polygon(Dod12, Cubo4, Dod03, Cubo3, Dod10)
polígono33, dod02_1, cubo6_1, dod07, cubo2_1, dod04_1 = Polygon(Dod02, Cubo6, Dod07, Cubo2, Dod04)
polígono34, dod03_1, dod01_1, cubo7_1, dod05, cubo3_1 = Polygon(Dod03, Dod01, Cubo7, Dod05, Cubo3)
polígono35, dod07_1, dod05_1, cubo7_2, dod09_2, cubo6_2 = Polygon(Dod07, Dod05, Cubo7, Dod09, Cubo6)
polígono36, dod07_2, dod05_2, cubo3_2, dod10_2, cubo2_2 = Polygon(Dod07, Dod05, Cubo3, Dod10, Cubo2)
polígono37, dod08, dod06, cubo8_1, dod11_2, cubo5_1 = Polygon(Dod08, Dod06, Cubo8, Dod11, Cubo5)
polígono38, dod08_1, cubo1_1, dod04_2, dod02_2, cubo5_2 = Polygon(Dod08, Cubo1, Dod04, Dod02, Cubo5)
polígono39, dod06_1, dod08_2, cubo1_2, dod12_2, cubo4_1 = Polygon(Dod06, Dod08, Cubo1, Dod12, Cubo4)
polígono40, dod06_2, cubo4_2, dod03_2, dod01_2, cubo8_2 = Polygon(Dod06, Cubo4, Dod03, Dod01, Cubo8)