Ajout d'une ombre par dilatation ([url=https://www.geogebra.org/m/avkdqu7g]https://www.geogebra.org/m/avkdqu7g[/url] )

nc=10[br]nl=10[br]T curseur allant de 0 à 1[br][br]m1=Séquence(Séquence(AléaEntreBornes(1, 2), i, 1, nc), j, 1, nl, 1)[br][br]p(x) = Si(x ≟ 0, 0, Si(x ≟ 1, 1, (1 + ℯ^(-3 tan(π (x - 0.5))))⁻¹)) (Fonction d'animation "#easing function")[br][br]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)[br][br][color=#ff0000]l1'=Dilatation(l1, droite, k)[/color][br]