![intothecontinuum:
Hi-res (700x700):
r = 1
2.35664 ≤ a ≤ 2.35773
s = 320
Mathematica code:
Manipulate[Graphics[Line[ Table[{-r^n*Sin[n*2*Pi/a], r^n*Cos[n*2*Pi/a]}, {n, 0, s}]], PlotRange -> 1.3], {r, .1, 1}, {a, 0.001, 4*Pi, .00005}, {s, 1, 800, 1}]](http://24.media.tumblr.com/tumblr_lu8jgw4awc1qfjvexo1_500.gif)
Hi-res (700x700):
r = 12.35664 ≤ a ≤ 2.35773
s = 320
Mathematica code:
Manipulate[Graphics[Line[
Table[{-r^n*Sin[n*2*Pi/a], r^n*Cos[n*2*Pi/a]}, {n, 0, s}]],
PlotRange -> 1.3],
{r, .1, 1}, {a, 0.001, 4*Pi, .00005}, {s, 1, 800, 1}]
Page 1 of 10
Original design by John Oxton | Illustration by Denis Radenkovic | Modified for Tumblr by Christian Montoya | This design is released under a Creative Commons license
