Colorful Seashell
Script
#Curve(cos(t) + 1, cos(t) + 1, sin(t), t, -π, π)
#Surface(u cos(u) (cos(v) + 1), u sin(u) (cos(v) + 1), u sin(v), u, 0, π, v, -π, π)
#Surface(a (ℯ^(u / b) - 1) cos(u) cos(v / 2)², a (1 - ℯ^(u / b)) sin(u) cos(v / 2)², ℯ^(u / b) sin(v) - ℯ^(u / c) - sin(v) + 3, u, 0, 4π, v, 0, 2π)
a = 2
b = 21.95
c = 16.35
n = 300
#Curve(a (ℯ^((("+i+"-1)*3 pi / (n-1)) / b) - 1) cos(("+i+"-1)*4 pi / (n-1)) cos(t / 2)², a (1 - ℯ^((("+i+"-1)*3 pi / (n-1)) / b)) sin(("+i+"-1)*4 pi / (n-1)) cos(t / 2)², ℯ^((("+i+"-1)*3 pi / (n-1)) / b) sin(t) - ℯ^((("+i+"-1)*3 pi / (n-1)) / c) - sin(t) + 1, t, -π, π)
Execute(Sequence("A"+i+" = Curve(a (ℯ^((("+i+"-1)*3 pi / (n-1)) / b) - 1) cos(("+i+"-1)*4 pi / (n-1)) cos(t / 2)², a (1 - ℯ^((("+i+"-1)*3 pi / (n-1)) / b)) sin(("+i+"-1)*4 pi / (n-1)) cos(t / 2)², ℯ^((("+i+"-1)*3 pi / (n-1)) / b) sin(t) - ℯ^((("+i+"-1)*3 pi / (n-1)) / c) - sin(t) + 2, t, -π, π)", i, 1, n))
Execute(Sequence("ShowLabel(A"+i+", false)", i, 1, n))
Execute(Sequence("SetLineThickness(A"+i+", 13)", i, 1, n))
f(x) = 1/2 sin( 0.3 x ) + 1/2
t = Slider(0, 20 pi / 4, 0.01, 1, 140, false, true, false, false)
val = random()
red =random()
green = random()
blue = random()
Execute(Sequence("SetDynamicColor( A"+i+", If( val < 1/3, f("+i+" + t), red), If( 1/3<= val < 2/3, f("+i+" + t), green), If( 2/3<= val, f("+i+" + t), blue))", i, 1, n))