5 May
2015
5 May
'15
1:05 a.m.
Je je! is so fun and beautiful :-)
Thanks,
Offray
El 04/05/15 a las 16:01, Alexandre Bergel escribió:
You can just use a palette. Try this:
v := RTView new.
v when: TRMouseClick do: [ :event | v clean ].
v when: TRMouseMove do: [ :event |
e := (RTBox new color: ((ColorPalette qualitative colors: 9 scheme:'Pastel1')
atRandom alpha: 0.5); 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