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: (0.5, 0.5, 0)
J: (0.5, 0.5, 1)
b, c, d, e = Cylinder(I, J, 0.5)