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 <stephane.duca...@inria.fr> 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
^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;.




Reply via email to