Tetraèdre 1 : bleu rouge violet haut mauve gauche
Tétraèdre 2 : beige vert bas marron droite orange haut

o = 0.381 (slider from -0.2 to 1.2)
u = If(o > 1, 1, If[o < 0, 0, o])
a: (5 * (1 + o))
b = 3 (slider from -10 to 15, step 0.01)
c = -5 (slider from -10 to 15, step 0.01)
d = -3 (slider from -10 to 15, step 0.01)
A: (0, (-a), 0)
B: (0, 0, a)
p: z = y + a
C: ((a * sqrt(6) / 2), ((-a)) / 2, a / 2)
eq1: x = 0
ab0 = Segment(A, B)
O: (0, 0, 0)
β: (u * 70.5°)
α: (u * 109.47111°)
C' = Rotate(C, (-(β / 2)), ab0)
C'' = Mirror(C', eq1)
t1, c', a_1, b_1 = Polygon(A, B, C')
t2, c'', a_2, b_2 = Polygon(A, B, C'')
A' = Mirror(A, a_1)
B' = Mirror(B, b_1)
A'' = Rotate(A', (-α), a_1)
B'' = Rotate(B', (-α), b_1)
t3, a'', b_3, f = Polygon(B, C', A'')
t4, b'', a_3, g = Polygon(A, C', B'')
A''' = Mirror(A'', eq1)
B''' = Mirror(B'', eq1)
t5, a''', b_4, h = Polygon(B, C'', A''')
t6, b''', a_4, i = Polygon(A, C'', B''')
C''_{1} = Mirror(C', f)
C''_{2} = Mirror(C', g)
D = Rotate(C''_{1}, (-β), f)
t7, d_1, j, b_5 = Polygon(A'', B, D)
E = Rotate(C''_{2}, β, g)
t8, e, a_5, k = Polygon(A, B'', E)
D' = Mirror(D, eq1)
E' = Mirror(E, eq1)
t9, d', b_6, l = Polygon(B, A''', D')
t10, e', a_6, m = Polygon(A, B''', E')
A'''_{1} = Mirror(A'', j)
B'_{1} = Mirror(B, b_5)
G = Rotate(B'_{1}, (-α), b_5)
t12, g_1, n, d_3 = Polygon(A'', D, G)
G' = Mirror(G, eq1)
t14, g', r, s = Polygon(A''', D', G')
A'''_{2} = Mirror(A'', n)
F = Rotate(A'''_{2}, (-α), n)
t11, f_1, d_2, g_2 = Polygon(D, G, F)
F' = Mirror(F, eq1)
t13, f', q, t = Polygon(D', G', F')
A'_{1} = Mirror(A, a_5)
H = Rotate(A'_{1}, (-α), a_5)
t15, h_1, i_1, e_1 = Polygon(B'', E, H)
H' = Mirror(H, eq1)
t16, h', j_1, k_1 = Polygon(B''', E', H')
B'''_{1} = Mirror(B'', i_1)
I = Rotate(B'''_{1}, α, i_1)
t17, i_2, h_2, e_2 = Polygon(H, E, I)
I' = Mirror(I, eq1)
t18, i', l_1, m_1 = Polygon(E', H', I')
E'_{1} = Mirror(E, e_1)
D'_{1} = Mirror(D, d_3)
K = Rotate(E'_{1}, (-β), e_1)
K' = Mirror(K, eq1)
t20, k', p_1, q_1 = Polygon(B''', H', K')
D'_{2} = Mirror(D, d_3)
J = Rotate(D'_{2}, β, d_3)
t19, j_2, n_1, g_3 = Polygon(A'', G, J)
A'''_{3} = Mirror(A'', n_1)
G'_{1} = Mirror(G, g_3)
L = Mirror(B''', p_1)
H'' = Mirror(H', q_1)
M = Rotate(A'''_{3}, (-α), n_1)
N = Rotate(G'_{1}, (-α), g_3)
t21, m_2, g_4, j_3 = Polygon(G, J, M)
t22, n_2, r_1, j_4 = Polygon(A'', J, N)
H''' = Rotate(H'', (-α), q_1)
L' = Rotate(L, (-α), p_1)
t24, l', c_1, f_2 = Polygon(H', K', L')
H'''_{1} = Rotate(H'', (-α), q_1)
t23, s_1, h'''_{1}, t_1 = Polygon(H'''_{1}, B''', K')