this one looks better
| view txt x y el shape size offset |
txt :=
'
xxxxx xxxxx xxx x
x x x x x x x
x x x x x x x
x x x x xxxxx
x x x x x
xxxxx xxxxx x x
'.
view := ROView new.
x := 0.
y := 0.
size := 20.
offset := 100 @ 100.
txt linesDo: [ :line |
y := y + 1.
line do: [ :c |
x := x + 1.
c = $x ifTrue: [
shape := (ROEllipse new size: size; color: (Color
purple)).
el := shape element.
el translateTo: (800 atRandom @ 450 atRandom).
el on: ROMouseEnter do: [ :evt | ROColorAlphaFading new
for: evt element nbCycles: 100 ].
view add: el.
ROLinearMove new nbCycles: 50; for: el to: ((x * size)
@ (y * size) + offset)
]
].
x := 0.
].
view openInWindowSized: 800 @ 450
On 01 Jan 2014, at 00:29, Alexandre Bergel <[email protected]> wrote:
> Happy new year!!
>
> -=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=
> | view txt x y el shape size offset |
> txt :=
> '
> xxxxx xxxxx xxx x
> x x x x x x x
> x x x x x x x
> x x x x xxxxx
> x x x x x
> xxxxx xxxxx x x
> '.
> view := ROView new.
> x := 0.
> y := 0.
> size := 20.
> offset := 100 @ 100.
> txt linesDo: [ :line |
> y := y + 1.
> line do: [ :c |
> x := x + 1.
> c = $x ifTrue: [
> shape := (ROEllipse new size: size; color: (Color
> purple)).
> el := shape element.
> el translateTo: (800 atRandom @ 450 atRandom).
> el on: ROMouseEnter do: [ :evt | ROColorAlphaFading new
> for: evt element nbCycles: 100 ].
> view add: el.
> ROLinearMove new nbCycles: 50; for: el to: ((x * size)
> @ (y * size) + offset)
> ]
> ].
> x := 0.
> ].
> view openInWindowSized: 800 @ 450
> -=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=
>
> If you do not have Roassal loaded:
> -=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=
> Gofer new smalltalkhubUser: 'ObjectProfile'
> project: 'Roassal';
> package: 'ConfigurationOfRoassal';
> load.
> (Smalltalk at: #ConfigurationOfRoassal) load
> -=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=
>
> Cheers,
> Alexandre
>
>
> On Dec 31, 2013, at 3:53 PM, Stéphane Ducasse <[email protected]>
> wrote:
>
>> Hi pharoers
>>
>> Sometimes I think that we are crazy to build this system but this is really
>> important to have dreams and make them becoming true. :)
>> I really like what we are doing: we are building a strong community and a
>> really great system.
>> Of course it could be better but it is going in the right direction at full
>> speed.
>> Now remember that Pharo is not ours but YOURS and you can get an impact!
>> Pharo is not read-only.
>>
>> This year we got some nice and important changes. I think that in 2014 we
>> will have some
>> important improvements. We will have to finish what we started and build a
>> solid ground for
>> the next iteration.
>>
>> I really like our community because it pushes me forward and because my
>> dreams are becoming
>> reality :)
>>
>> I wish you a lot of success and health.
>>
>> Stef
>
> --
> _,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;:
> Alexandre Bergel http://www.bergel.eu
> ^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;.
>
>
>
>
