A: (0, 0, 0)
B: (4, 0, 0)
f: z = 0
C = PointIn(f)
D = Point(Circle[A, Distance[C, A], Segment[C, A]])
a, E, F, G, H, I, tahkACED, tahkCEIF, tahkACFG, tahkADHG, tahkDEIH, tahkFGHI, servCE, servAC, servAD, servDE, servCF, servEI, servFI, servFG, servAG, servGH, servDH, servHI = Cube(C, A, D)
K: (6, 0, 0)
L: (0, 6, 0)
M: (0, 0, 6)
p = Plane(K, L, M)
hulknurk1, J, N, O, g, h, i = IntersectPath(p, a)