Message Boards Message Boards

GROUPS:

[GIF] Phyllotaxis and Voronoi animation

Posted 6 years ago
6686 Views
|
1 Reply
|
9 Total Likes
|

In case you had not known TaP (Tweet a Program) now supports animation. You can check that code wrapped in Animation - like this one:

Animate[VoronoiMesh[AnglePath[Table[{Sqrt[k], GoldenAngle}, {k, t}]], PlotTheme -> "Lines"], {t, 10, 800}]

will make something like THIS. This is from @Michael Trott blog on Aspect Ratios in Art.

In case you want to see straight at the "root" of the code look a bit beyond (forgive me the pun - there is Sqrt in the code ;) ) - look at GoldenAngle and neatest AnglePath. Those along with Sqrt line up nicely 2D points in phyllotaxis pattern and you can hang the Voronoi mesh on them.

And for those who likes complete control and own GIFs:

test = ParallelTable[VoronoiMesh[AnglePath[Table[{Sqrt[k], GoldenAngle}, {k, t}]], 
PlotTheme -> "Lines", ImageSize -> 300 {1, 1}, PlotRangePadding -> 0, AspectRatio -> 1], 
{t, 10, 800, 20}];

Export["test.gif", test~Join~Reverse[test]]

enter image description here

enter image description here

Awesome!

Reply to this discussion
Community posts can be styled and formatted using the Markdown syntax.
Reply Preview
Attachments
Remove
or Discard

Group Abstract Group Abstract