A = Intersect(yAxis, xAxis)
B = Point(xAxis)
C = Point(Circle[B, Distance[A, B], Segment[A, B]])
a, D, E, F, G, H, FlächeABCD, FlächeADHE, FlächeABFE, FlächeBCGF, FlächeCDHG, FlächeEFGH, KanteAD, KanteAB, KanteBC, KanteCD, KanteAE, KanteDH, KanteEH, KanteEF, KanteBF, KanteFG, KanteCG, KanteGH = Cube(A, B, C)
S = 1 (slider from -5 to 5)
L: (-2 | 8 | 6)
f = Line(L, F)
g = Line(L, G)
h = Line(L, E)
E' = Intersect(h, xOyPlane)
F' = Intersect(f, xOyPlane)
G' = Intersect(g, xOyPlane)
Vieleck1, a_1, i, j, k, c, d = Polygon(A, E', F', G', C, D)