Dot fever: Initial script
- Author:
- Juan Carlos Ponce Campuzano
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!
#=====================================
