"Cube twist" with a familly of easing functions.

1/ easing functions : x^n(n+1-nx)

l1=Séquence(Prisme(Polygone((0, 0, k), (0, 8, k), 4, PlanxOy), 1), k, 0, 7, 1)
C=(-4,4)
g=Perpendiculaire(C, PlanxOy)
l2=Séquence(Si(0 ≤ x ≤ 1, x^k (k + 1 - k x)), k, 1, 8)

Script:

Exécute(Séquence("F"+i+"=Element(l2,"+(i)+")", i, 1, 8))
Exécute(Séquence("Rotate(Element(l1,"+(i)+"),F"+i+"(T)*α,g)", i, 1, 8))

2/ easing functions : (1 + ℯ^(-k tan(π (x - 0.5))))⁻¹

l1=Séquence(Prisme(Polygone((0, 0, k), (0, 8, k), 4, PlanxOy), 1), k, 0, 7, 1)
C=(-4,4)
g=Perpendiculaire(C, PlanxOy)
l3=Séquence((1 + ℯ^(-k tan(π (x - 0.5))))⁻¹, k, 1, 8)

Script:

Exécute(Séquence("F"+i+"=Element(l3,"+(i)+")", i, 1, 8))
Exécute(Séquence("Rotate(Element(l1,"+(i)+"),F"+i+"(T)*α,g)", i, 1, 8))