Hi!
The BSpline package allows one to define hierarchical bundle edges. These screenshots have been made using the script below, runnable in a Glamour-based Roassal Easel open on a class group in Moose.
More screenshot on : https://www.facebook.com/media/set/?set=a.511442275609041.1073741827.3405434...
Cheers, Alexandre
|bs superclassEdges lastlevel| view shape circle size: 10. view nodes: classGroup.
superclassEdges := view edgesFrom: #superclass.
" view treeLayout userDefinedEdges: superclassEdges. "
view radialTreeLayout userDefinedEdges: superclassEdges.
" view forceBasedLayout userDefinedEdges: superclassEdges. "
lastlevel := classGroup select: [ :cls | (cls subclassHierarchy size) == 0 ].
"Blue" bs := (ROBSplineLine new). bs alpha: 0.8. bs setDiscovery: [ :cls | cls superclass ]. bs color: (Color blue alpha: 0.3).
view shape: bs. view edges: lastlevel from: #yourself toAll: [ :cls | (cls queryAllOutgoingInvocations atTypeScope) select: [:clsa | (clsa subclassHierarchy size) == 0 and: [ cls name size odd ] ]].
"Red" bs := (ROBSplineLine new). bs alpha: 0.8. bs setDiscovery: [ :cls | cls superclass ]. bs color: (Color red alpha: 0.3).
view shape: bs. view edges: lastlevel from: #yourself toAll: [ :cls | (cls queryAllOutgoingInvocations atTypeScope) select: [:clsa | (clsa subclassHierarchy size) == 0 and: [ cls name size even ] ]].
Beautiful. I will play with these soon.
Cheers, Doru
On Sat, Sep 14, 2013 at 1:10 AM, Alexandre Bergel alexandre.bergel@me.comwrote:
Hi!
The BSpline package allows one to define hierarchical bundle edges. These screenshots have been made using the script below, runnable in a Glamour-based Roassal Easel open on a class group in Moose.
More screenshot on : https://www.facebook.com/media/set/?set=a.511442275609041.1073741827.3405434...
Cheers, Alexandre
|bs superclassEdges lastlevel| view shape circle size: 10. view nodes: classGroup.
superclassEdges := view edgesFrom: #superclass.
" view treeLayout userDefinedEdges: superclassEdges. "
view radialTreeLayout userDefinedEdges: superclassEdges.
" view forceBasedLayout userDefinedEdges: superclassEdges. "
lastlevel := classGroup select: [ :cls | (cls subclassHierarchy size) == 0 ].
"Blue" bs := (ROBSplineLine new). bs alpha: 0.8. bs setDiscovery: [ :cls | cls superclass ]. bs color: (Color blue alpha: 0.3).
view shape: bs. view edges: lastlevel from: #yourself toAll: [ :cls | (cls queryAllOutgoingInvocations atTypeScope) select: [:clsa | (clsa subclassHierarchy size) == 0 and: [ cls name size odd ] ]].
"Red" bs := (ROBSplineLine new). bs alpha: 0.8. bs setDiscovery: [ :cls | cls superclass ]. bs color: (Color red alpha: 0.3).
view shape: bs. view edges: lastlevel from: #yourself toAll: [ :cls | (cls queryAllOutgoingInvocations atTypeScope) select: [:clsa | (clsa subclassHierarchy size) == 0 and: [ cls name size even ] ]].
-- _,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;: Alexandre Bergel http://www.bergel.eu ^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;.
Moose-dev mailing list Moose-dev@iam.unibe.ch https://www.iam.unibe.ch/mailman/listinfo/moose-dev
Yes, looks very cool!
On Sep 14, 2013, at 4:22 AM, Tudor Girba tudor@tudorgirba.com wrote:
Beautiful. I will play with these soon.
Cheers, Doru
On Sat, Sep 14, 2013 at 1:10 AM, Alexandre Bergel alexandre.bergel@me.com wrote: Hi!
The BSpline package allows one to define hierarchical bundle edges. These screenshots have been made using the script below, runnable in a Glamour-based Roassal Easel open on a class group in Moose.
<Screen Shot 2013-09-14 at 1.04.14 AM.png><Screen Shot 2013-09-14 at 12.57.02 AM.png>
More screenshot on : https://www.facebook.com/media/set/?set=a.511442275609041.1073741827.3405434...
Cheers, Alexandre
|bs superclassEdges lastlevel| view shape circle size: 10. view nodes: classGroup.
superclassEdges := view edgesFrom: #superclass.
" view treeLayout userDefinedEdges: superclassEdges. "
view radialTreeLayout userDefinedEdges: superclassEdges.
" view forceBasedLayout userDefinedEdges: superclassEdges. "
lastlevel := classGroup select: [ :cls | (cls subclassHierarchy size) == 0 ].
"Blue" bs := (ROBSplineLine new). bs alpha: 0.8. bs setDiscovery: [ :cls | cls superclass ]. bs color: (Color blue alpha: 0.3).
view shape: bs. view edges: lastlevel from: #yourself toAll: [ :cls | (cls queryAllOutgoingInvocations atTypeScope) select: [:clsa | (clsa subclassHierarchy size) == 0 and: [ cls name size odd ] ]].
"Red" bs := (ROBSplineLine new). bs alpha: 0.8. bs setDiscovery: [ :cls | cls superclass ]. bs color: (Color red alpha: 0.3).
view shape: bs. view edges: lastlevel from: #yourself toAll: [ :cls | (cls queryAllOutgoingInvocations atTypeScope) select: [:clsa | (clsa subclassHierarchy size) == 0 and: [ cls name size even ] ]].
-- _,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;: Alexandre Bergel http://www.bergel.eu ^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;.
Moose-dev mailing list Moose-dev@iam.unibe.ch https://www.iam.unibe.ch/mailman/listinfo/moose-dev
-- www.tudorgirba.com
"Every thing has its own flow" _______________________________________________ Moose-dev mailing list Moose-dev@iam.unibe.ch https://www.iam.unibe.ch/mailman/listinfo/moose-dev
---> Save our in-boxes! http://emailcharter.org <---
Johan Fabry - http://pleiad.cl/~jfabry PLEIAD lab - Computer Science Department (DCC) - University of Chile
Would be great to see what can be done with it
Alexandre
On Sep 14, 2013, at 9:27 AM, Johan Fabry jfabry@dcc.uchile.cl wrote:
Yes, looks very cool!
On Sep 14, 2013, at 4:22 AM, Tudor Girba tudor@tudorgirba.com wrote:
Beautiful. I will play with these soon.
Cheers, Doru
On Sat, Sep 14, 2013 at 1:10 AM, Alexandre Bergel alexandre.bergel@me.com wrote: Hi!
The BSpline package allows one to define hierarchical bundle edges. These screenshots have been made using the script below, runnable in a Glamour-based Roassal Easel open on a class group in Moose.
<Screen Shot 2013-09-14 at 1.04.14 AM.png><Screen Shot 2013-09-14 at 12.57.02 AM.png>
More screenshot on : https://www.facebook.com/media/set/?set=a.511442275609041.1073741827.3405434...
Cheers, Alexandre
|bs superclassEdges lastlevel| view shape circle size: 10. view nodes: classGroup.
superclassEdges := view edgesFrom: #superclass.
" view treeLayout userDefinedEdges: superclassEdges. "
view radialTreeLayout userDefinedEdges: superclassEdges.
" view forceBasedLayout userDefinedEdges: superclassEdges. "
lastlevel := classGroup select: [ :cls | (cls subclassHierarchy size) == 0 ].
"Blue" bs := (ROBSplineLine new). bs alpha: 0.8. bs setDiscovery: [ :cls | cls superclass ]. bs color: (Color blue alpha: 0.3).
view shape: bs. view edges: lastlevel from: #yourself toAll: [ :cls | (cls queryAllOutgoingInvocations atTypeScope) select: [:clsa | (clsa subclassHierarchy size) == 0 and: [ cls name size odd ] ]].
"Red" bs := (ROBSplineLine new). bs alpha: 0.8. bs setDiscovery: [ :cls | cls superclass ]. bs color: (Color red alpha: 0.3).
view shape: bs. view edges: lastlevel from: #yourself toAll: [ :cls | (cls queryAllOutgoingInvocations atTypeScope) select: [:clsa | (clsa subclassHierarchy size) == 0 and: [ cls name size even ] ]].
-- _,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;: Alexandre Bergel http://www.bergel.eu ^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;.
Moose-dev mailing list Moose-dev@iam.unibe.ch https://www.iam.unibe.ch/mailman/listinfo/moose-dev
-- www.tudorgirba.com
"Every thing has its own flow" _______________________________________________ Moose-dev mailing list Moose-dev@iam.unibe.ch https://www.iam.unibe.ch/mailman/listinfo/moose-dev
---> Save our in-boxes! http://emailcharter.org <---
Johan Fabry - http://pleiad.cl/~jfabry PLEIAD lab - Computer Science Department (DCC) - University of Chile
Moose-dev mailing list Moose-dev@iam.unibe.ch https://www.iam.unibe.ch/mailman/listinfo/moose-dev
-
Alexandre Bergel -
Johan Fabry -
Tudor Girba