Fun script to try out

Just made this. Fun to see :-)

-=-=-=-=-=
data := (RTView methods flatCollect: #getSource) copyFrom: 1 to: 1500.
data := data select: #isAlphaNumeric.
mousePosition := 250 @ 250.
shape := RTLabel new
        colorElement: [ :anElement |
                | d |
                d := (anElement position - mousePosition) r abs.
                d := d max: 1.
                d := (10000 / d) asInteger.
                d := d min: 256.
                Color gray256: d  ];
        text: [ :aChar | aChar asString ].
v := RTView new.
es := shape elementsOn: data.
v addAll: es.

RTGridLayout new gapSize: 0; on: es.

v when: TRMouseMove do: [ :evt |
        mousePosition := evt positionFromCamera.
        es updateShape.
        v signalUpdate
].
v
-=-=-=-=-=
--
_,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;:
Alexandre Bergel  http://www.bergel.eu
^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;.



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

abergel wrote

Fun to see :-)

What is it supposed to do/show? I got:



And then "MessageNotUnderstood: RTGroup>>updateShape"

You should update Roassal for this.

Here is a video of what the script does:

https://dl.dropboxusercontent.com/u/31543901/online/FunWithTextColoring.mov

Cheers,
Alexandre


On Oct 18, 2014, at 3:21 PM, Sean P. DeNigris <[hidden email]> wrote:

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




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