Re: Towards Roassal2

You can simply add an attach point.

For example:

-=-=-=-=-=-=-=-=-=-=-=-=

| v es |
v := RTView new.
es := ((RTEllipse new size: 30) + RTLabel) elementsOn: (1 to: 20).
v addAll: es.
RTCircleLayout new initialRadius: 150; on: es.

es @ (RTShowEdge new 
connectTo: [ :value | value - 5 to: value + 5]; 
shape: [ :el | 
RTBezierLine new 

attachPoint: RTShorterDistanceAttachPoint new;

centerOfObjects: (el model - 5 to: el model +5) inView: v; 
color: (Color blue alpha: 0.4) ] ).

v 

-=-=-=-=-=-=-=-=-=-=-=-=

Cheers,

Alexandre

On Apr 15, 2014, at 6:44 PM, Stéphane Ducasse <[hidden email]> wrote:

alex 

it would be good to have the edge not to the center but to the border of the shape.

Stef
On 08 Apr 2014, at 16:05, Alexandre Bergel <[hidden email]> wrote:

I started to script the visualization in Roassal 2. But I have the following missing:

- RODynamicEdge (and ROMondrianInteractionBuilder>>dynamicEdgeFromAll: aBlockOrSymbol using: aShape)
- ROArrow

Just yesterday I have introduced RTShowEdge, which is a nice replacement of RODynamicEdge.

Try the following:
-=-=-=-=-=-=-=-=-=-=-=-=
| v es |
v := RTView new.
es := ((RTEllipse new size: 30) + RTLabel) elementsOn: (1 to: 20).
v addAll: es.
RTCircleLayout on: es.

es @ (RTShowEdge new connectTo: [ :value | value - 5 to: value + 5]).

v 
-=-=-=-=-=-=-=-=-=-=-=-=

Or:
-=-=-=-=-=-=-=-=-=-=-=-=
| v es |
v := RTView new.
es := ((RTEllipse new size: 30) + RTLabel) elementsOn: (1 to: 20).
v addAll: es.
RTCircleLayout new initialRadius: 150; on: es.

es @ (RTShowEdge new connectTo: [ :value | value - 5 to: value + 5]; shape: (RTLine new color: (Color blue alpha: 0.4))).

v 
-=-=-=-=-=-=-=-=-=-=-=-=
Here is a screenshot:
<Screen Shot 2014-04-08 at 10.54.21 AM.png>


And if you are in a curvy mood, you can do:
-=-=-=-=-=-=-=-=-=-=-=-=
| v es |
v := RTView new.
es := ((RTEllipse new size: 30) + RTLabel) elementsOn: (1 to: 20).
v addAll: es.
RTCircleLayout new initialRadius: 150; on: es.

es @ (RTShowEdge new connectTo: [ :value | value - 5 to: value + 5]; shape: [ :el | RTBezierLine new centerOfObjects: (el model - 5 to: el model +5) inView: v; color: (Color blue alpha: 0.4) ] ).

v 
-=-=-=-=-=-=-=-=-=-=-=-=
<Screen Shot 2014-04-08 at 11.04.31 AM.png>

We are currently working on RTArrow, we will be done by today or tomorrow I think…

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



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

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

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

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

I don't remember but I think there is a message pushBack or something like that no ? Can't we send it to the edges ?

On Wed, Apr 16, 2014 at 12:08 AM, Alexandre Bergel <[hidden email]> wrote:

You can simply add an attach point.

For example:

-=-=-=-=-=-=-=-=-=-=-=-=

| v es |
v := RTView new.
es := ((RTEllipse new size: 30) + RTLabel) elementsOn: (1 to: 20).
v addAll: es.
RTCircleLayout new initialRadius: 150; on: es.

es @ (RTShowEdge new 
connectTo: [ :value | value - 5 to: value + 5]; 
shape: [ :el | 
RTBezierLine new 

attachPoint: RTShorterDistanceAttachPoint new;

centerOfObjects: (el model - 5 to: el model +5) inView: v; 
color: (Color blue alpha: 0.4) ] ).

v 

-=-=-=-=-=-=-=-=-=-=-=-=

Cheers,

Alexandre

On Apr 15, 2014, at 6:44 PM, Stéphane Ducasse <[hidden email]> wrote:

alex 

it would be good to have the edge not to the center but to the border of the shape.

Stef
On 08 Apr 2014, at 16:05, Alexandre Bergel <[hidden email]> wrote:

I started to script the visualization in Roassal 2. But I have the following missing:

- RODynamicEdge (and ROMondrianInteractionBuilder>>dynamicEdgeFromAll: aBlockOrSymbol using: aShape)
- ROArrow

Just yesterday I have introduced RTShowEdge, which is a nice replacement of RODynamicEdge.

Try the following:
-=-=-=-=-=-=-=-=-=-=-=-=
| v es |
v := RTView new.
es := ((RTEllipse new size: 30) + RTLabel) elementsOn: (1 to: 20).
v addAll: es.
RTCircleLayout on: es.

es @ (RTShowEdge new connectTo: [ :value | value - 5 to: value + 5]).

v 
-=-=-=-=-=-=-=-=-=-=-=-=

Or:
-=-=-=-=-=-=-=-=-=-=-=-=
| v es |
v := RTView new.
es := ((RTEllipse new size: 30) + RTLabel) elementsOn: (1 to: 20).
v addAll: es.
RTCircleLayout new initialRadius: 150; on: es.

es @ (RTShowEdge new connectTo: [ :value | value - 5 to: value + 5]; shape: (RTLine new color: (Color blue alpha: 0.4))).

v 
-=-=-=-=-=-=-=-=-=-=-=-=
Here is a screenshot:
<Screen Shot 2014-04-08 at 10.54.21 AM.png>


And if you are in a curvy mood, you can do:
-=-=-=-=-=-=-=-=-=-=-=-=
| v es |
v := RTView new.
es := ((RTEllipse new size: 30) + RTLabel) elementsOn: (1 to: 20).
v addAll: es.
RTCircleLayout new initialRadius: 150; on: es.

es @ (RTShowEdge new connectTo: [ :value | value - 5 to: value + 5]; shape: [ :el | RTBezierLine new centerOfObjects: (el model - 5 to: el model +5) inView: v; color: (Color blue alpha: 0.4) ] ).

v 
-=-=-=-=-=-=-=-=-=-=-=-=
<Screen Shot 2014-04-08 at 11.04.31 AM.png>

We are currently working on RTArrow, we will be done by today or tomorrow I think…

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



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

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

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

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

--

Leo Perard

We have slightly improved the situation with the following:

view := RTView new.
els := (RTBox new size: 10; color: Color blue; borderColor: Color veryLightGray) elementsOn: Collection withAllSubclasses.
els @ RTDraggable.
view addAll: els.
RTEdge
        buildEdgesFromObjects: Collection withAllSubclasses
        from: #yourself
        toAll: #subclasses

        using: ((RTLine new attachPoint: RTShorterDistanceAttachPoint new; color: Color veryDarkGray) + (RTArrow new attachPoint: RTShorterDistanceAttachPoint new; color: Color veryDarkGray))

        inView: view.

RTTreeLayout on: els.
view open

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

On Apr 16, 2014, at 9:10 AM, Leo Perard <[hidden email]> wrote:

> I just notice that attachPoint: do not work with the RTArrow.
>
> view := RTView new.
> els := (RTBox new size: 10; color: Color blue; borderColor: Color veryLightGray) elementsOn: Collection withAllSubclasses.
> els @ RTDraggable.
> view addAll: els.
> RTEdge
>       buildEdgesFromObjects: Collection withAllSubclasses
>       from: #yourself
>       toAll: #subclasses
>       using: ((RTLine new attachPoint: RTShorterDistanceAttachPoint new; color: Color veryDarkGray) + (RTArrow new color: Color veryDarkGray))
>       inView: view.
>
> RTTreeLayout on: els.
> view open
>
>
> On Wed, Apr 16, 2014 at 12:39 AM, Leo Perard <[hidden email]> wrote:
> I don't remember but I think there is a message pushBack or something like that no ? Can't we send it to the edges ?
>
>
>
> On Wed, Apr 16, 2014 at 12:08 AM, Alexandre Bergel <[hidden email]> wrote:
> You can simply add an attach point.
>
> For example:
> -=-=-=-=-=-=-=-=-=-=-=-=
> | v es |
> v := RTView new.
> es := ((RTEllipse new size: 30) + RTLabel) elementsOn: (1 to: 20).
> v addAll: es.
> RTCircleLayout new initialRadius: 150; on: es.
>
> es @ (RTShowEdge new
>                       connectTo: [ :value | value - 5 to: value + 5];
>                       shape: [ :el |
>                               RTBezierLine new
>
> attachPoint: RTShorterDistanceAttachPoint new;
>
>                                       centerOfObjects: (el model - 5 to: el model +5) inView: v;
>                                       color: (Color blue alpha: 0.4) ] ).
>
> v
> -=-=-=-=-=-=-=-=-=-=-=-=
>

> <Screen Shot 2014-04-15 at 7.08.10 PM.png>
>

> Cheers,
> Alexandre
>
>
> On Apr 15, 2014, at 6:44 PM, Stéphane Ducasse <[hidden email]> wrote:
>
>> alex
>>
>> it would be good to have the edge not to the center but to the border of the shape.
>>
>> Stef
>> On 08 Apr 2014, at 16:05, Alexandre Bergel <[hidden email]> wrote:
>>
>>>> I started to script the visualization in Roassal 2. But I have the following missing:
>>>>
>>>> - RODynamicEdge (and ROMondrianInteractionBuilder>>dynamicEdgeFromAll: aBlockOrSymbol using: aShape)
>>>> - ROArrow
>>>
>>>
>>> Just yesterday I have introduced RTShowEdge, which is a nice replacement of RODynamicEdge.
>>>
>>> Try the following:
>>> -=-=-=-=-=-=-=-=-=-=-=-=
>>> | v es |
>>> v := RTView new.
>>> es := ((RTEllipse new size: 30) + RTLabel) elementsOn: (1 to: 20).
>>> v addAll: es.
>>> RTCircleLayout on: es.
>>>
>>> es @ (RTShowEdge new connectTo: [ :value | value - 5 to: value + 5]).
>>>
>>> v
>>> -=-=-=-=-=-=-=-=-=-=-=-=
>>>
>>> Or:
>>> -=-=-=-=-=-=-=-=-=-=-=-=
>>> | v es |
>>> v := RTView new.
>>> es := ((RTEllipse new size: 30) + RTLabel) elementsOn: (1 to: 20).
>>> v addAll: es.
>>> RTCircleLayout new initialRadius: 150; on: es.
>>>
>>> es @ (RTShowEdge new connectTo: [ :value | value - 5 to: value + 5]; shape: (RTLine new color: (Color blue alpha: 0.4))).
>>>
>>> v
>>> -=-=-=-=-=-=-=-=-=-=-=-=
>>> Here is a screenshot:
>>> <Screen Shot 2014-04-08 at 10.54.21 AM.png>
>>>
>>>
>>> And if you are in a curvy mood, you can do:
>>> -=-=-=-=-=-=-=-=-=-=-=-=
>>> | v es |
>>> v := RTView new.
>>> es := ((RTEllipse new size: 30) + RTLabel) elementsOn: (1 to: 20).
>>> v addAll: es.
>>> RTCircleLayout new initialRadius: 150; on: es.
>>>
>>> es @ (RTShowEdge new connectTo: [ :value | value - 5 to: value + 5]; shape: [ :el | RTBezierLine new centerOfObjects: (el model - 5 to: el model +5) inView: v; color: (Color blue alpha: 0.4) ] ).
>>>
>>> v
>>> -=-=-=-=-=-=-=-=-=-=-=-=
>>> <Screen Shot 2014-04-08 at 11.04.31 AM.png>
>>>
>>> We are currently working on RTArrow, we will be done by today or tomorrow I think…
>>>
>>> Alexandre
>>> --
>>> _,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;:
>>> Alexandre Bergel  http://www.bergel.eu
>>> ^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;.
>>>
>>>
>>>
>>> _______________________________________________
>>> Moose-dev mailing list
>>> [hidden email]
>>> https://www.iam.unibe.ch/mailman/listinfo/moose-dev
>>
>> _______________________________________________
>> Moose-dev mailing list
>> [hidden email]
>> https://www.iam.unibe.ch/mailman/listinfo/moose-dev
>
> --
> _,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;:
> Alexandre Bergel  http://www.bergel.eu
> ^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;.
>
>
>
>
> _______________________________________________
> Moose-dev mailing list
> [hidden email]
> https://www.iam.unibe.ch/mailman/listinfo/moose-dev
>
>
>
>
> --
> Leo Perard
>
>
>
> --
> Leo Perard
> _______________________________________________
> Moose-dev mailing list
> [hidden email]
> https://www.iam.unibe.ch/mailman/listinfo/moose-dev


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

I do not understand. It works well on my machine.
Have you updated?

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

On Apr 17, 2014, at 10:52 AM, Leo Perard <[hidden email]> wrote:

> On Thu, Apr 17, 2014 at 3:37 PM, Alexandre Bergel <[hidden email]> wrote:
> I do not understand. Where do you need buildEdgesFromObjects:from:toAll:using:?
> Is there any sender to this non-existing method?
> Just your example.
>
> Alexandre
> --
> _,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;:
> Alexandre Bergel  http://www.bergel.eu
> ^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;.
>
> --
> Leo Perard

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

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