Rez na kocke Metóda AB

A = (-3, -3, 0)
B = (2, -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)
f = Line(A, D)
g = Line(D, H)
K = Point(f)
L = Point(g)
M = Point(hranaFG)