Fx(x,y) = sin(x) * (7 + cos(x/3 - 2*y) + 2 * cos(x/3 + y))[br]Fy(x,y) = cos(x) * (7 + cos(x/3 - 2*y) + 2 * cos(x/3 + y))[br]Fz(x,y) = sin(x/3 - 2 * y) + 2 * sin(x/3 + y)[br][br]g(x) = 1/2 * (sin(x) + 1)[br]t = Slider(0, 2 pi, 0.01, 1, 150, false, true, false, false)[br][br]a = Surface(Fx(u,v), Fy(u,v), Fz(u,v), u, -pi, pi, v, -pi, pi)[br][br]n = 60[br]L_1 = Sequence(-pi + (2 pi)/ n * k, k, 0, n)[br]L_2 = Sequence(-pi + (2 pi)/ n * (k+1), k, 0, n)[br]L_3 = Sequence(Surface(Fx(u, v), Fy(u, v), Fz(u, v), u, -pi, pi, v, Element(L_1, k), Element(L_2, k)), k, 1, n)[br][br]Execute(Sequence("A"+k+" = Surface(Fx(u, v), Fy(u, v), Fz(u, v), u, Element(L_1, "+k+"), Element(L_2, "+k+"), v, -pi, pi)", k, 1, n))[br][br]Execute(Sequence("SetDynamicColor(A"+k+", g("+k+"/n * 2 * pi + t), 0.53, 0.89, 1)", k, 1, n))

Fx(x,y) = sin(x) * (7 + cos(x/3 - 2*y) + 2 * cos(x/3 + y))[br]Fy(x,y) = cos(x) * (7 + cos(x/3 - 2*y) + 2 * cos(x/3 + y))[br]Fz(x,y) = sin(x/3 - 2 * y) + 2 * sin(x/3 + y)[br][br]g(x) = 1/2 * (sin(x) + 1)[br]t = Slider(0, 2 pi, 0.01, 1, 150, false, true, false, false)[br][br]a = Surface(Fx(u,v), Fy(u,v), Fz(u,v), u, -pi, pi, v, -pi, pi)[br][br]n = 60[br]LK = 0..n[br]L_1 = Zip(-pi + (2 pi)/ n * k, k, LK)[br]L_2 = Zip(-pi + (2 pi)/ n * (k+1), k, LK)[br]#L_3 = Zip(Surface(Fx(u, v), Fy(u, v), Fz(u, v), u, -pi, pi, v, a, b), a, L_1, b, L_2)[br][br]Execute(Zip("A"+k+" = Surface(Fx(u, v), Fy(u, v), Fz(u, v), u, "+a+", "+b+", v, -pi, pi)", a, L_1, b, L_2, k, 1..n))[br][br]#-------------------[br]# Settings[br]#-------------------[br][br]Execute(Zip("SetDynamicColor(A"+k+", g("+k+"/n * 2 * pi + t), 0.53, 0.89, 1)", k, 1..n))[br]Execute(Zip("SetLineThickness(A"+k+", 0)", k, 1..n))[br]Execute(Zip("ShowLabel(A"+k+", false)", k, 1..n))[br][br]SetVisibleInView(Fx, -1, false)[br]SetVisibleInView(Fy, -1, false)[br]SetVisibleInView(Fz, -1, false)[br]SetVisibleInView(g, -1, false)[br]SetVisibleInView(g, 1, false)[br]SetVisibleInView(a, -1, false)