Word:Polyèdres intermédiaires entre cube et octaèdre duaux 2018-06-11

s = 1 (slider from -5 to 5)
A: ((-s), (-s), (-s))
B: (s, (-s), (-s))
C: (s, s, (-s))
D: ((-s), s, (-s))
E: ((-s), (-s), s)
F: (s, (-s), s)
G: (s, s, s)
H: ((-s), s, s)
q1, a, b, c_3, d = Polygon(A, B, C, D)
q2, a_1, b_1, f, e = Polygon(A, B, F, E)
q3, b_2, c_1, g, f_1 = Polygon(B, C, G, F)
q4, c_2, g_1, h, d_1 = Polygon(C, G, H, D)
q5, d_2, a_2, e_1, h_1 = Polygon(D, A, E, H)
q6, e_2, f_2, g_2, h_2 = Polygon(E, F, G, H)
O1: (0, 0, (-s))
O2: (0, (-s), 0)
O3: (s, 0, 0)
O4: (0, s, 0)
O5: ((-s), 0, 0)
O6: (0, 0, s)
t1, o3, o1, o2 = Polygon(O1, O2, O3)
t2, o4, o1_1, o3_1 = Polygon(O1, O3, O4)
t3, o5, o1_2, o4_1 = Polygon(O1, O4, O5)
t4, o2_1, o1_3, o5_1 = Polygon(O1, O5, O2)
t6, o4_2, o6_1, o3_3 = Polygon(O6, O3, O4)
t7, o5_2, o6_2, o4_3 = Polygon(O6, O4, O5)
c = 0.6 (slider from 0 to s, step 0.1)
t5, o3_2, o6, o2_2 = Polygon(O6, O2, O3)
t8, o2_3, o6_3, o5_3 = Polygon(O6, O5, O2)
A1: ((-c), (-c), (-s))
B1: (c, (-c), (-s))
C1: (c, c, (-s))
D1: ((-c), c, (-s))
q7, a1, b1, c1, d1 = Polygon(A1, B1, C1, D1)
A2: ((-c), (-s), (-c))
B2: (c, (-s), (-c))
F2: (c, (-s), c)
E2: ((-c), (-s), c)
q8, a2, b2, f2, e2 = Polygon(A2, B2, F2, E2)
B3: (s, (-c), (-c))
C3: (s, c, (-c))
G3: (s, c, c)
F3: (s, (-c), c)
q9, b3, c3, g3, f3 = Polygon(B3, C3, G3, F3)
C2: (c, s, (-c))
D2: ((-c), s, (-c))
H2: ((-c), s, c)
G2: (c, s, c)
q10, c4, d4, h4, g4 = Polygon(C2, D2, H2, G2)
D3: ((-s), c, (-c))
A3: ((-s), (-c), (-c))
E3: ((-s), (-c), c)
H3: ((-s), c, c)
q11, d5, a5, e5, h5 = Polygon(D3, A3, E3, H3)
E1: ((-c), (-c), s)
F1: (c, (-c), s)
G1: (c, c, s)
H1: ((-c), c, s)
q12, e6, f6, g6, h6 = Polygon(E1, F1, G1, H1)
q13, a1_1, b1_1, b2_1, a2_1 = Polygon(A1, B1, B2, A2)
q14, b1_2, c1_1, c3_1, b3_1 = Polygon(B1, C1, C3, B3)
q15, c1_2, d1_1, d4_1, c4_1 = Polygon(C1, D1, D2, C2)
q16, d1_2, a1_2, a5_1, d5_1 = Polygon(D1, A1, A3, D3)
q17, b2_2, b3_2, f3_1, f2_1 = Polygon(B2, B3, F3, F2)
q18, c3_2, c4_2, g4_1, g3_1 = Polygon(C3, C2, G2, G3)
q20, a5_2, a2_2, e2_1, e5_1 = Polygon(A3, A2, E2, E3)
q21, e2_2, f2_2, f6_1, e6_1 = Polygon(E2, F2, F1, E1)
q22, f3_2, g3_2, g6_1, f6_2 = Polygon(F3, G3, G1, F1)
q24, h5_2, e5_2, e6_2, h6_2 = Polygon(H3, E3, E1, H1)
q23, g4_2, h4_1, h6_1, g6_2 = Polygon(G2, H2, H1, G1)
q19, d4_2, d5_2, h5_1, h4_2 = Polygon(D2, D3, H3, H2)
t9, a5_3, a1_3, a2_3 = Polygon(A1, A2, A3)
t10, b2_3, b1_3, b3_3 = Polygon(B1, B3, B2)
t11, c3_3, c1_3, c4_3 = Polygon(C1, C2, C3)
t12, d4_3, d1_3, d5_3 = Polygon(D1, D3, D2)
t13, e2_3, e6_3, e5_3 = Polygon(E1, E3, E2)
t14, f3_3, f6_3, f2_3 = Polygon(F1, F2, F3)
t15, g4_3, g6_3, g3_3 = Polygon(G1, G3, G2)
t16, h5_3, h6_3, h4_3 = Polygon(H1, H2, H3)
v = 1 (slider from 0 to 1, step 0.2)
i = Line(A1, E1)
j = Line(B1, F1)
k = Line(C1, G1)
l = Line(D1, H1)
m = Line(A2, D2)
n = Line(B2, C2)
q = Line(E2, H2)
p = Line(F2, G2)
r = Line(A3, B3)
t = Line(D3, C3)
i_1 = Line(H3, G3)
j_1 = Line(E3, F3)
A' = Intersect(r, i)
B' = Intersect(r, j)
C' = Point(Circle[B', Distance[A', B'], Segment[A', B']])
Cube_c, D', E', F', G', H', faceIJKL, faceILPM, faceIJNM, faceJKON, faceKLPO, faceMNOP, arêteIL, arêteIJ, arêteJK, arêteKL, arêteIM, arêteLP, arêteMP, arêteMN, arêteJN, arêteNO, arêteKO, arêteOP = Cube(A', B', C')