Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- \[Theta] = 2 Pi (Sqrt[5] - 1)/2.0;
- n = 500;
- bg = Darker@ColorData["DarkRainbow"][0];
- circles = (Table[
- {Blend[{ColorData["Rainbow"][1 - i/500], bg}, (i/500)^2.5],
- Disk[Sqrt[i/1.2] {Sin[\[Theta] i], Cos[\[Theta] i]},
- 0.04 (5 + i^0.4)]}
- , {i, 1, n}]);
- frame[t_] := (Graphics[
- Rotate[circles, t, {0, 0}],
- PlotRange -> 1.1 Sqrt[n], Background -> bg]);
- Manipulate[
- frame[t],
- {t, 0, 924, \[Theta] }]
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement