There's a new layout fro Roassal, try it.

Gofer it
    smalltalkhubUser: 'MathieuDehouck' project: 'RoassalAlgorithm';
    package: 'Roassal-Algorithm';
    load.

| rawView view layout |
rawView := ROView new.
view := ROMondrianViewBuilder view: rawView.
"enter your script below"
"-------------"
"-------------"

    view shape circle size: 10.
    view nodes: (Collection withAllSubclasses), (ROLayout withAllSubclasses ).
    view edgesFrom: #superclass.

    layout := ROClusterLayout new.

   view edges do: [ :e | e - ROLine + (ROBezierCurve radial new attachPoint: ROCenteredAttachPoint instance) ].

    view layout: layout.

"-------------"
"-------------"
"Below is the initiation of the menu and opening the visualization"
ROEaselMorphic new populateMenuOn: view.
view open

Regards

Mathieu