Rez na kocke Metóda AB

B = (2, -3, 0)
A = (-3, -3, 0)
C = Point(Circle[B, Distance[A, B], Segment[A, B]])
a, D, E, F, G, H, stenaABCD, stenaADHE, stenaABFE, stenaBCGF, stenaCDHG, stenaEFGH, hranaAD, hranaAB, hranaBC, hranaCD, hranaAE, hranaDH, hranaEH, hranaEF, hranaBF, hranaFG, hranaCG, hranaGH = Cube(A, B, C)
c = Ray(D, C)
K = Point(hranaBF)
L = Point(hranaFG)
M = Point(c)