A: (1, 2, 0)
B: (4, 2, 0)
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_{1}, 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[B, Distance[A, B], Segment[A, B]])
b, J, K, L, M, N, tahkoABIJ, tahkoAJNK, tahkoABLK, tahkoBIML, tahkoIJNM, tahkoKLMN, särmäAJ, särmäAB, särmäBI, särmäIJ, särmäAK, särmäJN, särmäKN, särmäKL, särmäBL, särmäLM, särmäIM, särmäMN = Cube(A, B, I)
O: (2.5, 3.5, 0)
c = Circle(O, 1.5, xOyPlane)
d, e, f = Cylinder(c, 3)