# 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))