Dot fever: Initial script

GGB script

#===================================== # Define slider and initial settings #===================================== t = Slider(0, 2pi, 0.01, 1, 170, false, true, false, false) L = Sequence(k, k, -10, 10) size = Length(L) #===================================== # Functions #===================================== g(x) = (2 / (1+exp(-x)) - 1)*0.5 f(x, y) = 0.5 * sin(sqrt(x^2 + y^2) - t) #===================================== # Define Circles with names #===================================== Execute(Flatten(Sequence(Sequence("A"+k+"_"+j+" = Circle((Element(L, "+k+"), Element(L, "+j+")), abs(g( f( Element(L, "+k+"), Element(L, "+j+") ) ) ) )", k, 1, size), j, 1, size))) #===================================== # Settings and colors :) #===================================== Execute(Flatten(Sequence(Sequence("ShowLabel(A"+k+"_"+j+", false)", k, 1, size), j, 1, size))) Execute(Flatten(Sequence(Sequence("SetDynamicColor(A"+k+"_"+j+", If(f( Element(L, "+k+"), Element(L, "+j+")) < 0, 1, 1), If(f( Element(L, "+k+"), Element(L, "+j+")) < 0, 1, 0), If(f( Element(L, "+k+"), Element(L, "+j+")) < 0, 1, 0), 1)", k, 1, size), j, 1, size))) #===================================== # That's it! Enjoy! #=====================================
Image