delta := 30. v := RTView new. b := [ :pos | e := (RTEllipse new color: (RTPalette c3 atRandom alpha: 0.8); size: 5 atRandom + 3) element. d := ((delta atRandom - (delta / 2)) @ (delta atRandom - (delta / 2))). e translateTo: pos + d. v add: e. v addAnimation: (RTAccelerationMove to: pos during: 10 on: e) ]. [points do: [ :p | b value: p. (Delay forSeconds: 0.1) wait ]] fork. v open