| Author |
Comment/Response |
André
|
 08/05/04 1:53pm
Hello,
I have to write a kind of "real Time" animation. I was writing something like that (the points are just an example for you):
pListe = {PointSize[.1]}; buffer =.;
Do[
pListe = Join[pListe, {Hue[Random[]], Point[{Random[], Random[]}]}];
buffer =
Show[Graphics[pListe, ImageSize -> {600, Automatic},
PlotRange -> {{0, 1}, {0, 1}}], DisplayFunction -> Identity];
NotebookWrite[EvaluationNotebook[],
Cell[GraphicsData["PostScript", #],
"Graphics"] & /@ ({DisplayString[buffer]}), All];
FrontEndExecute[FrontEndToken["SelectPreviousCell"]];
, {n, 1, 100}];
This Code does what I want but there is an ungly flicker. Is it possible just to Show the Next Picture without that "black" and that flicker?
Thanks for Help,
André Hollstein
URL: , |
|
