Daniel Piker - 24 apr 2022
See Twitter: Daniel Piker - 24 apr 2022
Setup Script
α = Slider(0°, 360°, 0.5°, 0.5, 100, true, true, true)
r = (1+sqrt(2))/2
fase(k)= (k + 1/4) * 90°
LCirc1 = Zip((r; fase(k)+α), k,0…3)
LCirc2 = Zip((r; fase(k)-α), k,0…3)
M = { {1,-1}, {1,1} }
LGrid1 = Zip(Zip((M*(u,v)) + (0.5,-0.5), v,-5…5), u,-5…5)
LGrid2 = Zip(Zip((M*(u,v)) + (0.5, 0.5), v,-5…5), u,-5…5)
LPoint1 = Zip(Zip(Circ + Grid, Grid,LGrid1), Circ,LCirc1)
LPoint2 = Zip(Zip(Circ + Grid, Grid,LGrid2), Circ,LCirc2)
#=============================================
# Setting
#=============================================
ShowAxes(1, false)
ShowGrid(1, false)
CenterView((0,0))
ZoomOut(8 / x(Corner(2) - Corner(1)))
SetConditionToShowObject(α, false)
SetConditionToShowObject(fase, false)
SetConditionToShowObject(LCirc1, false)
SetConditionToShowObject(LCirc2, false)
SetConditionToShowObject(LGrid1, false)
SetConditionToShowObject(LGrid2, false)
SetColor(LPoint1, "Black")
SetColor(LPoint2, "Black")
StartAnimation(α, true)
#=============================================
# After Setup:
#=============================================
# α : Set repeat: Increasing