O: (0, 0, 0)
T: (4, 0, 0)
N: (0, -4, 0)
M: (0, 0, -4)
L: (4, -4, 0)
H: (4, -4, -4)
I: (0, -4, -4)
A: (4, 0, -4)
B = Point(Circle[A, Distance[H, A], Segment[H, A]])
a, C, D, E, F, G, FlächeABCH, FlächeCGDH, FlächeAEDH, FlächeABFE, FlächeBCGF, FlächeDEFG, KanteCH, KanteAH, KanteAB, KanteBC, KanteDH, KanteCG, KanteDG, KanteDE, KanteAE, KanteEF, KanteBF, KanteFG = Cube(H, A, B)