| b classes | classes := RTLayout withAllSubclasses, RTBuilder withAllSubclasses, RTShape withAllSubclasses. b := RTMondrian new. b shape rectangle size:50. b nodes: classes. b normalizer objects: classes; normalizeSize: #numberOfMethods min: 5 max: 50; normalizeColor: #numberOfLinesOfCode using: (Array with: Color green with: Color red ) using: #sqrt. b layout for: [ :c | c includesBehavior: RTShape ] use: RTForceBasedLayout new; flow. b build. ^ b view