Truchet 1/4 de cercles animé (1)
nc=10
nl=10
T curseur allant de 0 à 1
m1=Séquence(Séquence(AléaEntreBornes(1, 2), i, 1, nc), j, 1, nl, 1)
p(x) = Si(x ≟ 0, 0, Si(x ≟ 1, 1, (1 + ℯ^(-3 tan(π (x - 0.5))))⁻¹)) (Fonction d'animation "#easing function")
Séquence(Translation(Séquence(Rotation({ArcCercle((i, 0), (i + 0.5, 0), (i, 0 + 0.5)), ArcCercle((i + 1, 0 + 1), (i + 0.5, 0 + 1), (i + 1, 0 + 0.5))}, Si(Elément(Elément(m1, i), k) ≟ 1, p(T) * 90°, p(1 - T) * 90°), (i + 0.5, 0 + 0.5)), i, 0, nc - 1, 1), (0, 1) k), k, 0, nl - 1)