[Moose-dev] Rectangle packing

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.