A = Intersect(yAxis, xAxis)
B = Point(xAxis)
C = Point(xAxis)
D = Point(Circle[B, Distance[A, B], Segment[A, B]])
a, E, F, G, H, I, faceABDE, faceAEIF, faceABGF, faceBDHG, faceDEIH, faceFGHI, arestaAE, arestaAB, arestaBD, arestaDE, arestaAF, arestaEI, arestaFI, arestaFG, arestaBG, arestaGH, arestaDH, arestaHI = Cube(A, B, D)
J = Point(Circle[C, Distance[B, C], Segment[B, C]])
P: (0.5, 0, 0.5)
Q: (0.5, 0, 1)
R: (0.5, 0, 1.5)
S: (1, 0, 0.5)
T: (1, 0, 1)
U: (1, 0, 1.5)
V: (1.5, 0, 0.5)
W: (1.5, 0, 1)
Z: (1.5, 0, 1.5)
B_1: (0.5, 0.5, 2)
C_1: (1.5, 0.5, 2)
D_1: (0.5, 1.5, 2)
E_1: (1.5, 1.5, 2)
N_1: (0, 0.5, 0.5)
O_1: (0, 1.5, 1.5)
PP1: (-2, 2.01, -0.1)
PP2: (6, 2.01, -0.1)
PP3: (-2, 2.01, 6)
PP4: (6, 2.01, 6)
PP5: (-2, -2, -0.1)
PP6: (7, -2, -0.1)
K: (2, 1)
L: (1, 2, 1)
M: (2, 0.5, 0.5)
N: (2, 0.5, 1.5)
O: (2, 1.5, 0.5)
A_1: (2, 1.5, 1.5)
F_1: (2, 1, 1)
G_1: (1.5, 1.5, 0)
H_1: (1, 1, 0)
I_1: (0.5, 0.5, 0)