a = -3.9 (slider from -10 to 10)
b = 23.7 (slider from 0 to 60)
c = 5.8 (slider from 0 to 10)
A: (a, b, c)
d = 5.5 (slider from 0 to 10)
h = 45 (slider from -45 to 45)
k = 12.2 (slider from 0 to 90)
C: (a + (d * cos(k)), b, c + (d * sin(k)))
B: (a + (d * cos(h)), b - (d * sin(h)), c + (d * cos(k)))
D = Point(Circle[B, Distance[A, B], Segment[A, B]])
e, E, F, G, H, I, faceABDE, faceAEIF, faceABGF, faceBDHG, faceDEIH, faceFGHI, arêteAE, arêteAB, arêteBD, arêteDE, arêteAF, arêteEI, arêteFI, arêteFG, arêteBG, arêteGH, arêteDH, arêteHI = Cube(A, B, D)
J = Intersect(yAxis, zAxis)
K = Point(xAxis)
L = Point(zAxis)
f = Plane(J, K, L)
g = OrthogonalLine(I, f)
i = OrthogonalLine(F, f)
j = OrthogonalLine(H, f)
l = OrthogonalLine(E, f)
M = Intersect(j, f)
N = Intersect(g, f)
O = Intersect(i, f)
P = Intersect(l, f)
m = Segment(P, N)
n = Segment(N, O)
p = Segment(N, M)
q = OrthogonalLine(G, f)
r = OrthogonalLine(A, f)
s = OrthogonalLine(D, f)
t = OrthogonalLine(B, f)
Q = Intersect(r, f)
R = Intersect(t, f)
f_1 = Segment(O, Q)
g_1 = Segment(Q, P)
S = Intersect(q, f)
h_1 = Segment(M, S)
i_1 = Segment(S, O)
T = Intersect(s, f)
j_1 = Segment(M, T)
k_1 = Segment(T, P)
l_1 = Segment(Q, R)
m_1 = Segment(R, T)
n_1 = Segment(R, S)