Hi!
If you have an image with Roassal open, give a try:
v := RTView new.
v when: TRMouseClick do: [ :event | v clean ].
v when: TRMouseMove do: [ :event |
e := (RTBox new color: (Color red alpha: 0.2); size: 20 atRandom + 5) element.
e translateTo: event positionFromCamera.
v add: e.
v addAnimation: (RTAccelerationMove to:
event positionFromCamera + ((150 atRandom - 75) @ (150 atRandom - 75)) during: 5 on: e)
].
v
:-)
Cheers,
Alexandre
--
_,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;:
Alexandre Bergel
http://www.bergel.eu
^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;.