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)
v: (2, -3, -2)
g = Line(G, v)
h = Line(F, v)
i = Line(E, v)
G' = Intersect(g, xOyPlane)
F' = Intersect(h, xOyPlane)
E' = Intersect(i, xOyPlane)
Vieleck1, a_1, k, j, i_1, c, d = Polygon(A, E', F', G', C, D)