t = Slider(0, 120 pi, 0.01, 1, 150, false, true, false, false)[br][br]#theta = Slider(0, 200pi, 10pi, 1, 150, false, true, false, false)[br][br]c1 = Curve( sin(t/10)*100+ sin(t/5)*20, cos(t/10)*100, t, 0, 20 pi )[br][br]c2 = Curve( sin(t/10)*200+ sin(t)*2, cos(t/20)*200+ cos(t/12)*20, t, 0, 120 pi )[br][br]P1 = c1(t)[br]P2 = c2(t)[br][br]s = Segment(P1, P2)[br][br]n = 20[br][br]Execute(Sequence("A"+i+" = Segment(c1(t+"+(i/2)+"), c2(t+"+(i/2)+"))", i, 1, n))[br][br]Execute(Sequence("ShowLabel(A"+i+", false)", i, 1, n))[br][br]Execute(Sequence("SetDynamicColor(A"+i+", 0.98, "+i+"/n, 0.14)", i, 1, n))[br][br]