Log In  


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 _

1




[Please log in to post a comment]