Dot fever: Improved script
- Author:
- Juan Carlos Ponce Campuzano
GGB script
#=====================================
# Improved script thanks to Thijs :)
#=====================================
N = 8
#=====================================
# Create list with names of Circles
#=====================================
Lk = Sequence(2 * N)
Lij = Flatten(Zip(Zip((m, n), n, Lk), m, Lk))
Lname = Zip("circleX"+Text(x(ij))+"Y"+Text(y(ij)), ij, Lij)
#===============================================
# Create list with Centers of Circles and the index of each circle
#===============================================
Lp = Sequence(-N, N - 1)
LC = Flatten(Zip(Zip((u,v), v, Lp), u, Lp))
LI = Zip(IndexOf(P, LC ), P, LC)
#=====================================
# Create t slider for animation
#=====================================
speed = 1
t = Slider(0, 2 pi, 0.01, speed, 170, false, true, false, false)
#============================================
# Functions: Some are auxiliary to define the behaviour
# of the circles.
# The main function is "f" where the variable "z" is for
# the index of the circle.
#============================================
r(x) = abs( 2 / (1+exp(-x)) - 1 )
hypot(x, y) = sqrt(x^2 + y^2)
modf(x, y) = y * (x / y - floor(x / y))
f(x, y, z) = 6 - hypot(x-0, y-0) - sin(z/3-t)
CR(x, y, z) = If(f(x, y, z) < 0, 0, 1)
CG(x, y, z) = If(f(x, y, z) < 0,102/255, 1)
CB(x, y, z) = If(f(x, y, z) < 0,153/255, 1)
R(x, y, z) = r(f(x, y, z)) / 2
#=====================================
# Create Circles with colors
#=====================================
Execute(Zip(name" = Circle( "+C+", R(x("+C+"), y("+C+"), "+In+") )", name, Lname, C, LC, In, LI))
Execute(Zip("ShowLabel("+name+", false)", name, Lname))
Execute(Zip("SetDynamicColor("+name+", CR(x("+C+"), y("+C+"), "+In+"), CG(x("+C+"), y("+C+"), "+In+"), CB(x("+C+"), y("+C+"), "+In+"), 1)", name, Lname, C, LC, In, LI))
Execute(Zip("SetLineThickness("+name+", 1)", name, Lname))
#=====================================
# Settings: Let's make it pretty :)
#=====================================
SetActiveView(1)
CenterView((-1/2, -1/2))
ZoomIn( (x(Corner(3))-x(Corner(1))) / (2N +3) )
SetVisibleInView(Lij, 1, false)
SetVisibleInView(LC, 1, false)
SetVisibleInView(Lname, 1, false)
SetVisibleInView(r, 1, false)
SetBackgroundColor(Black)
ShowAxes(false)
ShowGrid(false)
SetColor(t, Black)
ShowLabel(t, false)
StartAnimation(t, true)
SetVisibleInView(t, 1, false)
SetVisibleInView(button1, 1, true)
#=====================================
# That's it. Enjoy! :)
#=====================================
