18 Oct
2014
18 Oct
'14
4:51 a.m.
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
^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;.