Golden Circle
(271 chars)
g=1.618n=12x=y=r=for i=2,n do j=i-1x[i]=64y[i]=y[j]+(r[j]*(1-1/g))/2r[i]=r[j]*(1/g*1.2)end::_::cls()f=t()/n circ(x[1],y[1],r[1])for i=2,n do x[i]=x[i-1]+(r[i]/(2*g))*sin(f*(i+1/n)*g)y[i]=y[i-1]+(r[i]/(2*g))*cos(f*(i+1/n)*g)circ(x[i],y[i],r[i])end flip()goto _ |
Originally posted here: https://twitter.com/Spug/status/1101991723922804736
[Please log in to post a comment]