It has passed too long before visualizations have been posted here.
b := RTMondrian new.
b shape box
width: [ :cls | cls numberOfAttributes * 4 ];
height: #numberOfMethods.
b nodes: self.
b edges connectFrom: #superclass.
"b shape bezierLineFollowing: #superclass;
color: Color blue trans.
b edges
notUseInLayout;
connectToAll: [:c |c queryAllOutgoingInvocations atTypeScope ]."
b layout tree.
b normalizer
normalizeColor: #numberOfLinesOfCode.
b