Download or view fibonacciSpiral.frink in plain text format
phi = 1/2 (-1 + 5^(1/2))
println[circle phi -> "degrees"]
g = new graphics
for p = 1 to 1000
{
angle = p circle phi
g.fillEllipseCenter[p cos[angle],p sin[angle],3 ln[p], 3 ln[p]]
}
g.show[]
g.write["fibonacci.svg", 1000, 1000]
Download or view fibonacciSpiral.frink in plain text format
This is a program written in the programming language Frink.
For more information, view the Frink
Documentation or see More Sample Frink Programs.
Alan Eliasen, eliasen@mindspring.com