Complementary Waves in Blue
- Author:
- Juan Carlos Ponce Campuzano
Inspired by Gábor Damásdi
https://szimmetria-airtemmizs.tumblr.com/post/163406515378/the-sea-each-color-is-a-sine-function-the
Script
a = Slider(0, 2 pi , 0.01, 1, 160, false, true, false,false)
SetVisibleInView(a, 1, false)
#Set slider repeat=Increasing#
Lk = 0..4
Execute(Zip("f"+k+" = 0.9 * sin(t - a - "+k+" * pi/5) + "+(k+1)+"", k, Lk))
Execute(Zip("SetVisibleInView(f"+k+", 1, false)", k, 0..4))
diff = 0.12
LP0' = Sequence((k, 0), k, 0, 4 pi, 4 pi/50)
Execute(Zip("LP"+k+" = Zip((x(P), f"+(k-1)+"(x(P))-diff), P, LP0')", k, 1..5))
Execute(Zip("LP"+k+"' = Zip((x(P), f"+(k-1)+"(x(P))+diff), P, LP0')", k, 1..5))
LP6 = Sequence((k, 6), k, 0, 4 pi, 4 pi/50)
Execute(Zip("SetVisibleInView(LP"+k+", 1, false)", k, 1..6))
Execute(Zip("SetVisibleInView(LP"+k+"', 1, false)", k, 0..5))
Execute(Zip("L"+k+" = Zip(Segment( A, B ), A, LP"+k+"', B, LP"+(k+1)+")", k, 0..5))
Lr = {38, 16, 85, 88, 113, 166}/255
Lg = {65, 46, 196, 135, 90, 130}/255
Lb = {90, 255, 255, 255, 255, 255}/255
Execute(Zip("SetDynamicColor(L"+k+", "+rd+", "+gr+", "+bl+")", k, 0..5, rd, Lr, gr, Lg, bl, Lb))
Execute(Zip("SetLineThickness(L"+k+", 9)", k, 0..5))
ShowGrid(false)
ShowAxes(false)
CenterView((2pi,3))
StartAnimation(a)