On Wed, Apr 16, 2014 at 8:15 PM, Alexandre Bergel <alexandre.bergel@me.com> wrote:

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 <leo.perard@gmail.com> 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 <leo.perard@gmail.com> 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 <alexandre.bergel@me.com> 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 <stephane.ducasse@inria.fr> 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 <abergel@dcc.uchile.cl> 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
>>> Moose-dev@iam.unibe.ch
>>> https://www.iam.unibe.ch/mailman/listinfo/moose-dev
>>
>> _______________________________________________
>> Moose-dev mailing list
>> Moose-dev@iam.unibe.ch
>> https://www.iam.unibe.ch/mailman/listinfo/moose-dev
>
> --
> _,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;:
> Alexandre Bergel http://www.bergel.eu
> ^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;.
>
>
>
>
> _______________________________________________
> Moose-dev mailing list
> Moose-dev@iam.unibe.ch
> https://www.iam.unibe.ch/mailman/listinfo/moose-dev
>
>
>
>
> --
> Leo Perard
>
>
>
> --
> Leo Perard
> _______________________________________________
> Moose-dev mailing list
> Moose-dev@iam.unibe.ch
> https://www.iam.unibe.ch/mailman/listinfo/moose-dev

_______________________________________________
Moose-dev mailing list
Moose-dev@iam.unibe.ch
https://www.iam.unibe.ch/mailman/listinfo/moose-dev

Leo Perard