A = (-2.4533292609351416, -1.2199920508744015)
B = (3.692307082006632, -3.0352634631818702)
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)