n = 250[br][br]Execute(Sequence("E"+i+" = Ellipse((0.1 "+i+" π / 100; "+i+" π / 100), (1.9 "+i+" π / 100; "+i+" π / 100), "+i+" π / 100)", i, 1, n))[br][br]Execute(Sequence("ShowLabel(E"+i+", false)", i, 1, n))[br][br]f(x) = 1/2 sin(0.3 x ) + 1/2[br][br]speed = 5[br]t = Slider(0, 20 pi / 3, 0.01, speed, 140, false, true, false, false)[br][br]val = random()[br]r = random()[br]g = random()[br]b = random()[br][br]#r = If( val < 1/3, f(t), random())[br]#g = If( 1/3 <= val < 2/3, f(t), random()) [br]#b = If( 2/3 <= val, f(t), random()) [br][br]Execute(Sequence("SetDynamicColor( E"+i+", If( val < 1/3, f("+i+"+t), r), If( 1/3 <= val < 2/3, f("+i+"+t), g), If( 2/3 <= val, f("+i+"+t), b))", i, 1, n))

Ln = 1..250[br][br]cnt = pi / 100[br]Execute(Zip("E"+k+" = Ellipse((0.1 "+k+" cnt; "+k+" cnt), (1.9 "+k+" cnt; "+k+" cnt), "+k+" cnt)", k, Ln))[br][br]Execute(Zip("ShowLabel(E"+k+", false)", k, Ln))[br][br]f(x) = 1/2 sin(0.3 x ) + 1/2[br]SetVisibleInView(f, 1, false)[br][br]speed = 5[br]t = Slider(0, 20 pi / 3, 0.01, speed, 140, false, true, false, false)[br]SetVisibleInView(t, 1, false)[br][br]val = random()[br]r = random()[br]g = random()[br]b = random()[br][br]Execute(Zip("SetDynamicColor( E"+k+", If( val < 1/3, f("+k+"+t), r), If( 1/3 <= val < 2/3, f("+k+"+t), g), If( 2/3 <= val, f("+k+"+t), b))", k, Ln))[br][br]ShowAxes(false)[br]ShowGrid(false)[br]SetBackgroundColor("Black")[br][br]CenterView((0,3))[br]ZoomOut(3)