A = Intersect(zAxis, yAxis)
B = Point(yAxis)
C = Point(Circle[B, Distance[A, B], Segment[A, B]])
a, D, E, F, G, H, faceABCD, faceADHE, faceABFE, faceBCGF, faceCDHG, faceEFGH, arêteAD, arêteAB, arêteBC, arêteCD, arêteAE, arêteDH, arêteEH, arêteEF, arêteBF, arêteFG, arêteCG, arêteGH = Cube(A, B, C)
I: (0, 0, 0)
J: (0.5, 0, 0)
u = Vector(I, J)
a' = Translate(a, u)
K: (0.7, 0.5, 0)
v = Vector(A, K)
a'_1 = Translate(a, v)
L: (0.2, 0.5, 0.25)
w = Vector(A, L)
a'_2 = Translate(a, w)
M: (0.2, 0.5, 0.75)
b = Vector(A, M)
a'_3 = Translate(a, b)
N: (0.2, 0, 0.5)
c = Vector(A, N)
a'_4 = Translate(a, c)
O: (0.7, -0.1, 0.5)
d = Vector(A, O)
a'_5 = Translate(a, d)
P: (0.7, 0.4, 0.5)
e = Vector(A, P)
a'_6 = Translate(a, e)
Q: (0.2, 0.5, -0.25)
f = Vector(A, Q)
a'_7 = Translate(a, f)
a'' = Translate(a', u)
g = Translate(a'_1, u)
R: (-1, 0, 0)
h = Vector(A, R)
i = Translate(a'_1, h)
S: (1, 0, 0)
j = Vector(A, S)
k = Translate(a'_4, j)
T: (-0.5, 0, 0)
l = Vector(A, T)
m = Translate(a'_4, l)
U: (0, 0.5, 0)
n = Vector(A, U)
m' = Translate(m, n)
V: (1.5, 0, 0)
p = Vector(A, V)
m'' = Translate(m', p)