Truchet 1/4 de cercles animé (2) (ombre par dilatation)
Ajout d'une ombre par dilatation (https://www.geogebra.org/m/avkdqu7g )
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")
l1=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)
l1'=Dilatation(l1, droite, k)