Sacred spiral
- Author:
- Juan Carlos Ponce Campuzano
Inspired by George Wengler from this applet: Spirale
Script
n = 500
t = random() * 100
s = random() * 100
c2 = random()
c3 = random()
Ln = 1..n
a = Mod(s * t, 360)
Lname = Zip("seg"+Text(k), k, Ln)
#P = Zip( ( 1/n * k * cos(pi/180 * a * k), 1/n * k * sin(pi/180 * a * k)), k, Ln)
fx(x,y,z) = 1/x * y * cos(pi/180 * z * y)
fy(x,y,z) = 1/x * y * sin(pi/180 * z * y)
Execute(Zip( name+" = Segment( (fx(n, "+k+", a), fy(n, "+k+", a)), (fx(n, "+(k+1)+", a), fy(n, "+(k+1)+", a)) ) ", k, Ln, name, Lname))
Execute(Zip("ShowLabel("+name+", false)", name, Lname))
map(v, x, y, z, w) = z + (v - x) * (w- z) / (y - x);
Execute(Zip("SetDynamicColor("+name+", map("+k+", 1, 500, 0, 1), c2, c3)", name, Lname, k, Ln))
ShowGrid(false)
ShowAxes(false)
CenterView((0,0))
SetBackgroundColor( "Black" )