When I execute the following sample code using a large Map operation and many Graphics3D objects, the end result (i=20) is shown without showing the intermediate results (i=1,i=2,..., i=19). I want to show each and every step. Can someone help?
Dynamic[a]
For[i = 1, i <= 20, i++,
b = RandomReal[{-1, 1}, {10000, 3}];
TextStr = {Text["i=" <> ToString[i], {0, 0, 5}]};
b3g = Map[Sphere[#, 1] &, b];
a = Graphics3D[{TextStr, b3g},
PlotRange -> {{-5, 5}, {-5, 5}, {-5, 5}}];
]
As a comparison, the sample code below without a large Map operation and with little Graphics3D objects, each and every individual step is visible.
Dynamic[c]
For[i = 1, i <= 20, i++,
d = RandomReal[{-1, 1}, {10000000, 3}];
TextStr = {Text["i=" <> ToString[i], {0, 0, 5}]};
c = Graphics3D[{TextStr, Sphere[d[[1]], 1]},
PlotRange -> {{-5, 5}, {-5, 5}, {-5, 5}}];
]
