Advertisement
Matthen

Fibonacci Rotation

Aug 23rd, 2015
894
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 0.43 KB | None | 0 0
  1. \[Theta] = 2 Pi (Sqrt[5] - 1)/2.0;
  2. n = 500;
  3. bg = Darker@ColorData["DarkRainbow"][0];
  4. circles = (Table[
  5. {Blend[{ColorData["Rainbow"][1 - i/500], bg}, (i/500)^2.5],
  6. Disk[Sqrt[i/1.2] {Sin[\[Theta] i], Cos[\[Theta] i]},
  7. 0.04 (5 + i^0.4)]}
  8. , {i, 1, n}]);
  9. frame[t_] := (Graphics[
  10. Rotate[circles, t, {0, 0}],
  11. PlotRange -> 1.1 Sqrt[n], Background -> bg]);
  12. Manipulate[
  13. frame[t],
  14. {t, 0, 924, \[Theta] }]
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement