t = 0 (slider from 0 to 1, step 0.02)
A: (3, -3 + (t * 6), -3 + (t * 6))
g: z = 6
A_0: (3, -3, -3)
H_0: (3, 3, -3)
B_1 = Point(Circle[H_0, Distance[A_0, H_0], Segment[A_0, H_0]])
a, C, D, A_1, F, B_0, Fläche1, Fläche3, Fläche2, Fläche4, FlächeBCGF, FlächeDEFG, Kante2, Kante1, Kante4, KanteBC, Kante3, KanteCG, KanteDG, KanteDE, Kante5, KanteEF, KanteBF, KanteFG = Cube(A_0, H_0, B_1)
v = Vector(B_0, B_1)
B: (-3, -3 + (t * 6), 3 - (t * 6))
f = Segment(A, B)
u = Vector(A_0, A_1)
E = (-3.5693834838570075, -2.645415607592866)
G = (-1.8774279155684803, -2.646330951264636)