[code]speed = 0.6[br]t = Slider(-9, 9, 0.01, speed, 200)[br][br]f(x, y) = If(x<t, sin(x-y), cos(t-y)(x-t)+sin(t-y))[br][br]Ln = 1...10[br]Execute(Zip("B"+k+" = Curve( f(t, 2*pi*"+k+"/10), -t, t, -20, 20)", k, Ln))[br][br]Execute(Zip("SetDynamicColor(B"+k+", "+k+"/10, 0.23, 0.78)", k, Ln))[br]Execute(Zip("ShowLabel(B"+k+", false)", k, Ln))[br][br]ShowGrid(false)[br]ShowAxes(false)[br]SetBackgroundColor("black")[br]CenterView((0, 0))[br]StartAnimation(t, true)[/code]

Inspired from this post by Kowsto: [br]https://www.reddit.com/r/desmos/comments/1gm644d/re_inspired_by_another_post_on_this_sub/

If you like my work, you can support me in Patreon: [br]https://www.patreon.com/jcponce[br][br]Get my recent Mathematical Art with GeoGebra ebook:[br]https://www.patreon.com/jcponce/shop/mathematical-art-with-geogebra-577631[br][br]∞ Thanks fro your support!