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(xAxis)
J = Point(Circle[I, Distance[B, I], Segment[B, I]])
b, K, L, M, N, O, tahkoBIJK, tahkoBKOL, tahkoBIML, tahkoIJNM, tahkoJKON, tahkoLMNO, särmäBK, särmäBI, särmäIJ, särmäJK, särmäBL, särmäKO, särmäLO, särmäLM, särmäIM, särmäMN, särmäJN, särmäNO = Cube(B, I, J)
P = Midpoint(B, C)
Q = Midpoint(L, O)
c, d, e, f = Cylinder(P, Q, sqrt(5) / 2)