Complementary Wave
Isnpired by Gábor Damásdi
https://szimmetria-airtemmizs.tumblr.com/post/163373117293/sine-wave?is_related_post=1
Script
a = Slider(0, 2 pi , 0.01, 1, 160, false, true, false,false)
SetVisibleInView(a, 1, false)
#Set slider repeat=Increasing#
f(t) = 0.92 *cos(t-a)+1
diff = 0.06
Ln = Sequence((k, 0), k, 0, 2 pi, 2pi/40)
L0 = Zip(Segment( P, (x(P), f(x(P))-diff )), P, Ln)
L1 = Zip(Segment( (x(P), f(x(P))+diff), (x(P), 2)), P, Ln)
SetVisibleInView(Ln, 1, false)
SetVisibleInView(f, 1, false)
SetColor(L0, "Red")
SetColor(L1, "Blue")
ShowGrid(false)
ShowAxes(false)
CenterView((pi,1))
StartAnimation(a)