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