I've fixed a big on ROArc, so that it draws well.

And I've commented and added methods to RORectanglePacking to reduce biggest nodes, and so on.

try:

Gofer new
   smalltalkhubUser: 'MathieuDehouck' project: 'RoassalAlgorithm';
   package: 'Roassal-New';
   load

| view rawView n b |
rawView := ROView new.
view := ROMondrianViewBuilder view: rawView.
"-------------"
"-------------"
   b := 30.

   view shape rectangle
       width: [ :cls | cls numberOfVariables * 5 ];
       height: #numberOfMethods;
       color: (Color r: 0 g: 1 b: 1 ).

   view nodes: TestCase withAllSubclasses.

   view nodes do: [ :e | (e width > b ) ifTrue: [ e shapes first color: (Color r: 1 g: 0 b: 1 ) ] ].

   view layout:(( RORectanglePacking new)ratioWidth: 10 height: 10; padding: 4; logWidthIfMoreThan: b scale: 5).

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

There are other log... methods, and scale represent the factor to multiply the logs by. (yes log 10 = 1 and that's pretty small in pixel)

Regards

Mathieu

P.S. The screens have been made with the width and the height in the same time.