Simon Woods'
swirling patterns are tremendous generators of complex structures with Image3D:
n = 1000;
r := RandomInteger[{1, n}];
f := (#/(.01 + Sqrt[#.#])) & /@ (x[[#]] - x) &;
s := With[{r1 = r}, p[[r1]] = r; q[[r1]] = r];
x = RandomReal[{-1, 1}, {n, 2}];
{p, q} = RandomInteger[{1, n}, {2, n}];
Export["Swarm.gif",
Table[Graphics[{PointSize[0.02], Opacity[0.8], Dynamic[If[r < 100, s];
Point[y = x; x = 0.995 x + 0.02 f[p] - 0.01 f[q],
VertexColors -> (ColorData["TemperatureMap"][70 Norm[#]] & /@ (x - y))]]},
Background -> Black, PlotRange -> 2], {t, 0, 2 Pi, 0.03}]]
?
Image3D[Import["Swarm.gif"], BoxRatios -> {1, 1, 1}]
