22 Jan
2016
22 Jan
'16
2:46 p.m.
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
^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;.
