A: (0, 0, 0)
B: (4, 0, 0)
f: z = 0
C = Point(Circle[B, Distance[A, B], Segment[A, B]])
a, D, E, F, G, H, tahkABCD, tahkADHE, tahkABFE, tahkBCGF, tahkCDHG, tahkEFGH, servAD, servAB, servBC, servCD, servAE, servDH, servEH, servEF, servBF, servFG, servCG, servGH = Cube(A, B, C)
K: (6, 0, 0)
L: (0, 6, 0)
M: (0, 0, 6)
p = Plane(M, L, K)
hulknurk1, I, J, N, O, P, Q, g, h, i, j, k, l = IntersectPath(p, a)