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.comwrote:

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 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