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
^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;.
