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
^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;.