[code]func(x) = exp(x (1 - ί ) pi /14)[br]f = LineGraph({0, 1, 2, 3, 4}, {0, 1, 1, 0, 0})[br]g = LineGraph({0, 1, 2, 3, 4}, {0, 0, 1, 1, 0})[br][br]c = Curve((f(u) - 2, g(u) - 2), u, 0, 4)[br][br]n = 16[br]Ln = 1...n[br]Lk = 1...(n-1)[br]Execute(Zip("G"+k+" = "+k+"", k, Ln))[br][br]Execute(Zip("F"+k+" = Curve(func(c(u) + (Column(G"+(k+1)+") - Row(G"+(k+1)+"), Row(G"+k+"))), u, 0, 4)", k, Lk))[br][br]Execute(Zip("E"+k+" = Curve(func(c(u) + (Column(F"+(k+1)+") - Row(F"+(k+1)+"), Row(F"+k+"))), u, 0, 4)", k, Lk))[br][br]Execute(Zip("D"+k+" = Curve(func(c(u) + (Column(E"+(k+1)+") - Row(E"+(k+1)+"), Row(E"+k+"))), u, 0, 4)", k, Lk))[br][br]Execute(Zip("C"+k+" = Curve(func(c(u) + (Column(D"+(k+1)+") - Row(D"+(k+1)+"), Row(D"+k+"))), u, 0, 4)", k, Lk))[br][br]Execute(Zip("B"+k+" = Curve(func(c(u) + (Column(C"+(k+1)+") - Row(C"+(k+1)+"), Row(C"+k+"))), u, 0, 4)", k, Lk))[br][br]Execute(Zip("A"+k+" = Curve(func(c(u) + (Column(B"+(k+1)+") - Row(B"+(k+1)+"), Row(B"+k+"))), u, 0, 4)", k, Lk))[br][br][br]Execute(Zip("ShowLabel(A"+k+", false)", k, Lk))[br]Execute(Zip("ShowLabel(B"+k+", false)", k, Lk))[br]Execute(Zip("ShowLabel(C"+k+", false)", k, Lk))[br]Execute(Zip("ShowLabel(D"+k+", false)", k, Lk))[br]Execute(Zip("ShowLabel(E"+k+", false)", k, Lk))[br]Execute(Zip("ShowLabel(F"+k+", false)", k, Lk))[br][br]A = (1, 0.5, 0.5)[br]B = (0.5, 0.5, 0.5)[br]C = (0.75, 1, 0.666)[br]D = (0.8, 1, 0.333)[br][br]Red(x) = x(A) + x(B) * cos(2pi(x(C)*x+x(D)))[br]Green(x) = y(A) + y(B) * cos(2pi(y(C)*x+y(D)))[br]Blue(x) = z(A) + z(B) * cos(2pi(z(C)*x+z(D)))[br]SetVisibleInView(Red, 1, false)[br]SetVisibleInView(Green, 1, false)[br]SetVisibleInView(Blue, 1, false)[br][br][br]#Min(1, Max( 0, Red(0) ) )[br]#Min(1, Max( 0, Green(0) ) )[br]#Min(1, Max( 0, Blue(0) ) )[br]Execute(Zip("SetDynamicColor(A"+k+", Min(1, Max( 0, Red(0) ) ), Min(1, Max( 0, Green(0) ) ), Min(1, Max( 0, Blue(0) ) ), 1)", k, Ln))[br][br]Execute(Zip("SetDynamicColor(B"+k+", Min(1, Max( 0, Red(2/6) ) ), Min(1, Max( 0, Green(2/6) ) ), Min(1, Max( 0, Blue(2/6) ) ), 1)", k, Ln))[br][br]Execute(Zip("SetDynamicColor(C"+k+", Min(1, Max( 0, Red(3/6) ) ), Min(1, Max( 0, Green(3/6) ) ), Min(1, Max( 0, Blue(3/6) ) ), 1)", k, Ln))[br][br]Execute(Zip("SetDynamicColor(D"+k+", Min(1, Max( 0, Red(4/6) ) ), Min(1, Max( 0, Green(4/6) ) ), Min(1, Max( 0, Blue(4/6) ) ), 1)", k, Ln))[br][br]Execute(Zip("SetDynamicColor(E"+k+", Min(1, Max( 0, Red(5/6) ) ), Min(1, Max( 0, Green(5/6) ) ), Min(1, Max( 0, Blue(5/6) ) ), 1)", k, Ln))[br][br]Execute(Zip("SetDynamicColor(F"+k+", Min(1, Max( 0, Red(6/6) ) ), Min(1, Max( 0, Green(6/6) ) ), Min(1, Max( 0, Blue(6/6) ) ), 1)", k, Ln))[br][br][br]ShowGrid(false)[br]ShowAxes(false)[br]SetBackgroundColor("Black")[br]CenterView((0,0))[/code]