Hi,
Programmed sketch in DrGeo can be animated, for example like the script
bellow.
The "canvas do:" message forks the block so user is not blocked.
At #udpate message the items and views (morph) are recomputed and refreshed
.
Before porting DrGeo to Athens, the animation was pretty fast, now it is
very slow.
Any idea from where it could come from?
Thanks
---8<------
|canvas s stats points|
points :=Array new: 12.
stats := Array new: 12 withAll: 0.
canvas := DrGeoCanvas new.
2 to: 12 do: [:i |
points at: i put: (canvas point: i@0.1).
(points at: i) square; color: Color blue.
s := canvas segment: i@0 to: (points at: i).
s color: Color red].
canvas do: [
1 to: 10000 do: [:i|
s := 6 atRandom + 6 atRandom.
stats at: s put: ((stats at: s)+1).
(points at: s)
name: (stats at: s) asString;
moveTo: s @ ((stats at: s) / 100).
canvas update].
---8<------
--
Dr. Geo http://drgeo.eu
