Inspired by Gábor Damásdi[br][br]https://szimmetria-airtemmizs.tumblr.com/post/163406515378/the-sea-each-color-is-a-sine-function-the

a = Slider(0, 2 pi , 0.01, 1, 160, false, true, false,false)[br]SetVisibleInView(a, 1, false)[br]#Set slider repeat=Increasing#[br][br]Lk = 0..4[br][br]Execute(Zip("f"+k+" = 0.9 * sin(t - a - "+k+" * pi/5) + "+(k+1)+"", k, Lk))[br]Execute(Zip("SetVisibleInView(f"+k+", 1, false)", k, 0..4))[br][br]diff = 0.12[br]LP0' = Sequence((k, 0), k, 0, 4 pi, 4 pi/50)[br][br]Execute(Zip("LP"+k+" = Zip((x(P), f"+(k-1)+"(x(P))-diff), P, LP0')", k, 1..5))[br]Execute(Zip("LP"+k+"' = Zip((x(P), f"+(k-1)+"(x(P))+diff), P, LP0')", k, 1..5))[br][br]LP6 = Sequence((k, 6), k, 0, 4 pi, 4 pi/50)[br][br]Execute(Zip("SetVisibleInView(LP"+k+", 1, false)", k, 1..6))[br]Execute(Zip("SetVisibleInView(LP"+k+"', 1, false)", k, 0..5))[br][br]Execute(Zip("L"+k+" = Zip(Segment( A, B ), A, LP"+k+"', B, LP"+(k+1)+")", k, 0..5))[br][br]Lr = {38, 16, 85, 88, 113, 166}/255[br]Lg = {65, 46, 196, 135, 90, 130}/255[br]Lb = {90, 255, 255, 255, 255, 255}/255[br][br]Execute(Zip("SetDynamicColor(L"+k+", "+rd+", "+gr+", "+bl+")", k, 0..5, rd, Lr, gr, Lg, bl, Lb))[br][br]Execute(Zip("SetLineThickness(L"+k+", 9)", k, 0..5))[br][br]ShowGrid(false)[br]ShowAxes(false)[br]CenterView((2pi,3))[br]StartAnimation(a)