Hi!
I finally got the time to include of the last layout of Mathieu that was not included: the reverse radial tree layout.
Here what it looks like (the edges are just for aesthetic purpose).
The script was made in Moose, using the following: -=-=-=-=-=-=-=-=-=-=-=-=-=-=-= view shape ellipse size: [ :cls | cls numberOfMethods log * 7 ]. view nodes: classGroup. edges := view edgesFrom: #superclass. view layout: (ROReversedRadialTreeLayout new userDefinedEdges: edges).
bs := (ROBSplineLine new). bs alpha: 0.85. bs setDiscovery: [ :cls | cls superclass ]. bs color: (Color red alpha: 0.5).
view shape: bs.
lastlevel := classGroup select:[ :cls | (cls subclassHierarchy size) == 0 ]. view edges: lastlevel from: #yourself toAll: [ :cls | (cls queryAllOutgoingInvocations atTypeScope) select: [:clsa | (clsa subclassHierarchy size) == 0 ]].
view raw bitmap. -=-=-=-=-=-=-=-=-=-=-=-=-=-=-=
Cheers, Alexandre
Really cool! I like the bundled edges!
On Oct 16, 2013, at 2:14 AM, Alexandre Bergel alexandre.bergel@me.com wrote:
Hi!
I finally got the time to include of the last layout of Mathieu that was not included: the reverse radial tree layout.
Here what it looks like (the edges are just for aesthetic purpose). <Screen Shot 2013-10-15 at 9.12.12 PM.png>
The script was made in Moose, using the following:
view shape ellipse size: [ :cls | cls numberOfMethods log * 7 ]. view nodes: classGroup. edges := view edgesFrom: #superclass. view layout: (ROReversedRadialTreeLayout new userDefinedEdges: edges).
bs := (ROBSplineLine new). bs alpha: 0.85. bs setDiscovery: [ :cls | cls superclass ]. bs color: (Color red alpha: 0.5).
view shape: bs.
lastlevel := classGroup select:[ :cls | (cls subclassHierarchy size) == 0 ]. view edges: lastlevel from: #yourself toAll: [ :cls | (cls queryAllOutgoingInvocations atTypeScope) select: [:clsa | (clsa subclassHierarchy size) == 0 ]].
view raw bitmap.
Cheers, Alexandre -- _,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;: Alexandre Bergel http://www.bergel.eu ^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;.
Moose-dev mailing list Moose-dev@iam.unibe.ch https://www.iam.unibe.ch/mailman/listinfo/moose-dev
I'm happy to see that we spent well our money and that mathieu got a really good impact on us :) Thanks you all for this good energy.
Yuriy your algo is cool. I think that all the algorithms of Mathieu were shipped in roassal. I would not understand otherwise :) Stef
On Oct 16, 2013, at 2:14 AM, Alexandre Bergel alexandre.bergel@me.com wrote:
Hi!
I finally got the time to include of the last layout of Mathieu that was not included: the reverse radial tree layout.
Here what it looks like (the edges are just for aesthetic purpose). <Screen Shot 2013-10-15 at 9.12.12 PM.png>
The script was made in Moose, using the following:
view shape ellipse size: [ :cls | cls numberOfMethods log * 7 ]. view nodes: classGroup. edges := view edgesFrom: #superclass. view layout: (ROReversedRadialTreeLayout new userDefinedEdges: edges).
bs := (ROBSplineLine new). bs alpha: 0.85. bs setDiscovery: [ :cls | cls superclass ]. bs color: (Color red alpha: 0.5).
view shape: bs.
lastlevel := classGroup select:[ :cls | (cls subclassHierarchy size) == 0 ]. view edges: lastlevel from: #yourself toAll: [ :cls | (cls queryAllOutgoingInvocations atTypeScope) select: [:clsa | (clsa subclassHierarchy size) == 0 ]].
view raw bitmap.
Cheers, Alexandre -- _,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;: Alexandre Bergel http://www.bergel.eu ^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;.
Moose-dev mailing list Moose-dev@iam.unibe.ch https://www.iam.unibe.ch/mailman/listinfo/moose-dev
-
Alexandre Bergel -
roberto.minelli＠usi.ch -
Stéphane Ducasse