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 -=—=-=-=—=-=-=—=-=-=—=-=
Nice! Changing the time and the... "angle ratio" of rotation creates beautiful animations. Some test here:
http://ws.stfx.eu/3SD6U8XSFOJS
Cheers,
Offray
El 03/03/15 a las 11:57, Alexandre Bergel escribió:
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 -=—=-=-=—=-=-=—=-=-=—=-=
he he!! Excellent!
In the release of Roassal!
Alexandre
On Mar 4, 2015, at 8:07 PM, Offray Vladimir Luna Cárdenas offray@riseup.net wrote:
Nice! Changing the time and the... "angle ratio" of rotation creates beautiful animations. Some test here:
http://ws.stfx.eu/3SD6U8XSFOJS
Cheers,
Offray
El 03/03/15 a las 11:57, Alexandre Bergel escribió:
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 -=—=-=-=—=-=-=—=-=-=—=-=
Moose-dev mailing list Moose-dev@iam.unibe.ch https://www.iam.unibe.ch/mailman/listinfo/moose-dev
Your example is beautiful. We need more like this!
Alexandre
On Mar 4, 2015, at 8:07 PM, Offray Vladimir Luna Cárdenas offray@riseup.net wrote:
Nice! Changing the time and the... "angle ratio" of rotation creates beautiful animations. Some test here:
http://ws.stfx.eu/3SD6U8XSFOJS
Cheers,
Offray
El 03/03/15 a las 11:57, Alexandre Bergel escribió:
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 -=—=-=-=—=-=-=—=-=-=—=-=
Moose-dev mailing list Moose-dev@iam.unibe.ch https://www.iam.unibe.ch/mailman/listinfo/moose-dev
-
Alexandre Bergel -
Offray Vladimir Luna Cárdenas