A: (0, 0, 0)
B: (4, 0, 0)
f: z = 0
C = Point(Circle[A, Distance[B, A], Segment[B, A]])
a, D, E, F, G, H, tahkABDC, tahkBDHE, tahkABEF, tahkACGF, tahkCDHG, tahkEFGH, servBD, servAB, servAC, servCD, servBE, servDH, servEH, servEF, servAF, servFG, servCG, servGH = Cube(B, A, C)
K: (6, 0, 0)
L: (0, 6, 0)
M: (0, 0, 6)
p = Plane(K, L, M)
hulknurk1, I, J, N, g, h, i = IntersectPath(p, a)