A = Intersect(xAxis, zAxis)
B = Point(xAxis)
C = Point(Circle[B, Distance[A, B], Segment[A, B]])
a, D, E, F, G, H, tahkoABCD, tahkoADHE, tahkoABFE, tahkoBCGF, tahkoCDHG, tahkoEFGH, särmäAD, särmäAB, särmäBC, särmäCD, särmäAE, särmäDH, särmäEH, särmäEF, särmäBF, särmäFG, särmäCG, särmäGH = Cube(A, B, C)
I = Point(Circle[(1, 0, 0), Distance[(0, 0, 0), (1, 0, 0)], Segment[(0, 0, 0), (1, 0, 0)]])
J = Midpoint(särmäEF)
K = Point(Circle[J, Distance[E, J], Segment[E, J]])
b, L, M, N, O, P, tahkoEJKL, tahkoELPM, tahkoEJNM, tahkoJKON, tahkoKLPO, tahkoMNOP, särmäEL, särmäEJ, särmäJK, särmäKL, särmäEM, särmäLP, särmäMP, särmäMN, särmäJN, särmäNO, särmäKO, särmäOP = Cube(E, J, K)