[Moose-dev] [fun] animated rotating text

Hi! I’ve just stumbled on this rather old piece of code. It animates some text. Kind of fun :-) In case you have never seen it, you may try: RTExample new rotatingLabelsAnimated Here is the code: -=—=-=-=—=-=-=—=-=-=—=-= | v shape timer | v := RTView new. timer := VITimer new cycleLength: 2. shape := RTRotatedLabel new. shape angleInDegree: [ :cls | | valueEnd | valueEnd := cls numberOfMethods negated / 1.5. VIAnimatedValue 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: TRResetAllShapes new. timer start. v open -=—=-=-=—=-=-=—=-=-=—=-= -- _,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;: Alexandre Bergel http://www.bergel.eu ^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;.