u = 0.58 (slider from 0 to 1, step 0.01)
a = Translate(Cube[(0, 0, 0), (1, 0, 0), (1, 0, 1)], Vector[(u * (1, -1, 1))])
a' = Mirror(a, (0, 0, 0))
liste1 = Rotate({a, a'}, π / 2, zAxis)
liste2 = Rotate({a, a'}, π, zAxis)
liste3 = Rotate({a, a'}, ((-π)) / 2, zAxis)