Hi 

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. 