cool animation using Viva...

Alexandre

I'm trying to understand the logic.

what is angleInDegree:

Do you know if only one TRVIAnimatedValue would work instead of creating one each

I would like to understand why TRVIAnimatedValue new is not stored somewhere.

Just insect that code :-)

-=-=-=-=-=-=-=-=-=

v := RTView new.
seconds := 7.
timer := TRVITimer new cycleLength: seconds.
rotationRatio := 0.2.
shape := RTRotatedLabel new.
shape
angleInDegree: [ :cls | 
| valueEnd |
valueEnd := cls numberOfMethods negated / rotationRatio.
TRVIAnimatedValue new
evaluator: [ :t | 0 interpolateTo: valueEnd at: t ];
timer: timer;
yourself ].
shape text: [ :cls | '                                                                                ' , cls name ].
shape color: (Color black alpha: 0.2).
v addAll: (shape elementsOn: Collection withAllSubclasses).
v canvas color: Color white.
v addAnimation: RTResetAllShape new.
timer start.
v

-=-=-=-=-=-=-=-=-=

Cheers,

Alexandre

-- 
_,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;:
Alexandre Bergel  http://www.bergel.eu
^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;.

_______________________________________________
Moose-dev mailing list
[hidden email]
https://www.list.inf.unibe.ch/listinfo/moose-dev