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:


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

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

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